Changeset 2144

Timestamp:

Feb 7, 2017 3:32:45 PM (8 years ago)

Author:

knoop

Message:

Bugfix: compile time issue removed for parallel random number generator

File:

• palm/trunk/SOURCE/random_generator_parallel_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/random_generator_parallel_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: compile time parameter replacement prevented
 ! 
 ! Former revisions:
@@ -169 +169 @@
       INTEGER(isp), INTENT(IN) ::  length   !< 
    
-      INTEGER(isp), PARAMETER:: hg=huge(1_isp)   !< 
-      INTEGER(isp), PARAMETER:: hgm=-hg          !< 
-      INTEGER(isp), PARAMETER:: hgng=hgm-1       !< 
+      INTEGER(isp) ::  hg    !< 
+      INTEGER(isp) ::  hgm   !< 
+      INTEGER(isp) ::  hgng  !< 
       
       INTEGER(isp) ::  new   !< 
@@ -179 +179 @@
       IF ( length < lenran ) RETURN !- Simply return if enough space is already allocated.
       
+      hg=huge(1_isp)
+      hgm=-hg
+      hgng=hgm-1
       hgt = hg