Ignore:
Timestamp:
Mar 26, 2014 5:04:47 PM (8 years ago)
Author:
kanani
Message:

REAL constants defined as wp-kind

File:
1 edited

Legend:

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

    r1321 r1342  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants defined as wp-kind
    2323!
    2424! Former revisions:
     
    104104       REAL(wp)     ::  rnmx             !:
    105105
    106        PARAMETER ( ia=16807, im=2147483647, am=1.0/im, iq=127773, ir=2836, &
    107                    ntab=32, ndiv=1+(im-1)/ntab, eps=1.2e-7, rnmx=1.0-eps )
     106       PARAMETER ( ia=16807, im=2147483647, am=1.0_wp/im, iq=127773, ir=2836, &
     107                   ntab=32, ndiv=1+(im-1)/ntab, eps=1.2e-7_wp, rnmx=1.0_wp-eps )
    108108
    109109       IF ( idum .le. 0  .or.  random_iy .eq. 0 )  THEN
Note: See TracChangeset for help on using the changeset viewer.