Changeset 1092 for palm/trunk/SOURCE/random_function.f90

Timestamp:

Feb 2, 2013 11:24:22 AM (11 years ago)

Author:

raasch

Message:

unused variables remove from several routines

File:

• palm/trunk/SOURCE/random_function.f90 (modified) (2 diffs)

palm/trunk/SOURCE/random_function.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! unused variables removed
 !
 ! Former revisions:
@@ -77 +77 @@
 
        INTEGER ::  ia, idum, im, iq, ir, ndiv, ntab
-       REAL    ::  am, eps, random_function, ranf, rnmx
+       REAL    ::  am, eps, random_function, rnmx
 
        PARAMETER ( ia=16807, im=2147483647, am=1.0/im, iq=127773, ir=2836, &