Commit 7b1c348f authored by thomas.forbriger's avatar 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.
parent e217fa48
......@@ -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
......
Supports Markdown
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