Commit 8a2e1366 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

[FIX] (nlnmtab): declare functions return type

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.

 src/ts/noise/noisecon/nlnmtab.f | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 5665
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parents e2b1484c 87712286
......@@ -35,6 +35,7 @@ c
c REVISIONS and CHANGES
c 06/06/2005 V1.0 Thomas Forbriger
c 26/06/2013 V1.1 check definition of PSD values
c 04/12/2014 V1.2 fix: declare return type of function fnlnm
c
c ============================================================================
c
......@@ -42,14 +43,14 @@ c
c
character*(*) version
parameter(version=
& 'NLNMTAB V1.1 write table of NLNM values')
& 'NLNMTAB V1.2 write table of NLNM values')
character*(*) NLNMTAB_CVS_ID
parameter(NLNMTAB_CVS_ID=
& '$Id$')
c
c
logical useperiod, uselog
double precision f,p,f1,f2,df
double precision f,p,f1,f2,df,fnlnm
integer k,n
character*80 outstring
c commandline
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment