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

Timestamp:

Aug 6, 2019 9:11:47 AM (5 years ago)

Author:

raasch

Message:

relational operators .EQ., .NE., etc. replaced by ==, /=, etc.

File:

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

palm/trunk/SOURCE/random_function_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! relational operators .EQ., .NE., etc. replaced by ==, /=, etc.
+! 
+! 3802 2019-03-17 13:33:42Z raasch
 ! type conversion added to avoid compiler warning about constant integer
 ! division truncation
@@ -73 +76 @@
 ! ------------
 !> Random number generator, produces numbers equally distributed in interval [0,1]
-!> This routine is taken from the "numerical recipies"
+!> This routine is taken from the "numerical recipes"
 !------------------------------------------------------------------------------!
  MODULE random_function_mod
@@ -137 +140 @@
                    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
+       IF ( idum <= 0  .OR.  random_iy == 0 )  THEN
           idum = max (-idum,1)
           DO  j = ntab+8,1,-1
              k    = idum / iq
              idum = ia * ( idum - k * iq ) - ir * k
-             IF ( idum .lt. 0 )  idum = idum + im
-             IF ( j .le. ntab )  random_iv(j) = idum
+             IF ( idum < 0 )  idum = idum + im
+             IF ( j <= ntab )  random_iv(j) = idum
           ENDDO
           random_iy = random_iv(1)
@@ -150 +153 @@
        k    = idum / iq
        idum = ia * ( idum - k * iq ) - ir * k
-       IF ( idum .lt. 0 )  idum = idum + im
+       IF ( idum < 0 )  idum = idum + im
        j            = 1 + random_iy / ndiv
        random_iy    = random_iv(j)
        random_iv(j) = idum
-       random_function  = min ( am * random_iy , rnmx )
+       random_function  = MIN( am * random_iy , rnmx )
 
     END FUNCTION random_function