Changeset 3802 for palm/trunk/SOURCE/random_function_mod.f90

Timestamp:

Mar 17, 2019 1:33:42 PM (5 years ago)

Author:

raasch

Message:

unused variables removed, unused subroutines commented out, type conversion added to avoid compiler warning about constant integer division truncation, script document_changes made bash compatible

File:

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

palm/trunk/SOURCE/random_function_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! type conversion added to avoid compiler warning about constant integer
+! division truncation
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! Corrected "Former revisions" section
 ! 
@@ -131 +135 @@
 
        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 )
+                   ntab=32, ndiv=1+INT(REAL(im-1)/ntab), eps=1.2e-7_wp, rnmx=1.0_wp-eps )
 
        IF ( idum .le. 0  .or.  random_iy .eq. 0 )  THEN