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

Timestamp:

Mar 26, 2014 5:04:47 PM (10 years ago)

Author:

kanani

Message:

REAL constants defined as wp-kind

File:

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

palm/trunk/SOURCE/random_function.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! REAL constants defined as wp-kind
 !
 ! Former revisions:
@@ -104 +104 @@
        REAL(wp)     ::  rnmx             !:
 
-       PARAMETER ( ia=16807, im=2147483647, am=1.0/im, iq=127773, ir=2836, &
-                   ntab=32, ndiv=1+(im-1)/ntab, eps=1.2e-7, rnmx=1.0-eps )
+       PARAMETER ( ia=16807, im=2147483647, am=1.0_wp/im, iq=127773, ir=2836, &
+                   ntab=32, ndiv=1+(im-1)/ntab, eps=1.2e-7_wp, rnmx=1.0_wp-eps )
 
        IF ( idum .le. 0  .or.  random_iy .eq. 0 )  THEN