Changeset 2144 for palm/trunk/SOURCE


Ignore:
Timestamp:
Feb 7, 2017 3:32:45 PM (7 years ago)
Author:
knoop
Message:

Bugfix: compile time issue removed for parallel random number generator

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/random_generator_parallel_mod.f90

    r2101 r2144  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix: compile time parameter replacement prevented
    2323!
    2424! Former revisions:
     
    169169      INTEGER(isp), INTENT(IN) ::  length   !<
    170170   
    171       INTEGER(isp), PARAMETER:: hg=huge(1_isp)   !<
    172       INTEGER(isp), PARAMETER:: hgm=-hg          !<
    173       INTEGER(isp), PARAMETER:: hgng=hgm-1       !<
     171      INTEGER(isp) ::  hg    !<
     172      INTEGER(isp) ::  hgm   !<
     173      INTEGER(isp) ::  hgng  !<
    174174     
    175175      INTEGER(isp) ::  new   !<
     
    179179      IF ( length < lenran ) RETURN !- Simply return if enough space is already allocated.
    180180     
     181      hg=huge(1_isp)
     182      hgm=-hg
     183      hgng=hgm-1
    181184      hgt = hg
    182185     
Note: See TracChangeset for help on using the changeset viewer.