Ignore:
Timestamp:
Mar 17, 2019 1:33:42 PM (3 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:
1 edited

Legend:

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

    r3655 r3802  
    2525! -----------------
    2626! $Id$
     27! type conversion added to avoid compiler warning about constant integer
     28! division truncation
     29!
     30! 3655 2019-01-07 16:51:22Z knoop
    2731! Corrected "Former revisions" section
    2832!
     
    131135
    132136       PARAMETER ( ia=16807, im=2147483647, am=1.0_wp/im, iq=127773, ir=2836, &
    133                    ntab=32, ndiv=1+(im-1)/ntab, eps=1.2e-7_wp, rnmx=1.0_wp-eps )
     137                   ntab=32, ndiv=1+INT(REAL(im-1)/ntab), eps=1.2e-7_wp, rnmx=1.0_wp-eps )
    134138
    135139       IF ( idum .le. 0  .or.  random_iy .eq. 0 )  THEN
Note: See TracChangeset for help on using the changeset viewer.