Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (7 years ago)
Author:
raasch
Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:
1 edited

Legend:

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

    r1310 r1320  
    2020! Current revisions:
    2121! -----------------
     22! ONLY-attribute added to USE-statements,
     23! kind-parameters added to all INTEGER and REAL declaration statements,
     24! kinds are defined in new module kinds,
     25! old module precision_kind is removed,
     26! revision history before 2012 removed,
     27! comment fields (!:) to be used for variable explanations added to
     28! all variable declaration statements
    2229!
    23 !
    2430! Former revisions:
    2531! -----------------
     
    3036!
    3137! RCS Log replace by Id keyword, revision history cleaned up
    32 !
    33 ! Revision 1.4  2006/08/04 15:01:48  raasch
    34 ! Range of random number is limited by an upper limit (new second parameter)
    3538!
    3639! Revision 1.1  1998/03/25 20:09:47  raasch
     
    4447!------------------------------------------------------------------------------!
    4548
    46     USE random_function_mod
     49    USE kinds
     50
     51    USE random_function_mod,                                                   &
     52        ONLY:  random_function
    4753
    4854    IMPLICIT NONE
    4955
    50     INTEGER :: idum, iset
    51     REAL    :: fac, gset, random_gauss, rsq, upper_limit, v1, v2
     56    INTEGER(iwp) ::  idum          !:
     57    INTEGER(iwp) ::  iset          !:
     58
     59    REAL(wp)     ::  fac           !:
     60    REAL(wp)     ::  gset          !:
     61    REAL(wp)     ::  random_gauss  !:
     62    REAL(wp)     ::  rsq           !:
     63    REAL(wp)     ::  upper_limit   !:
     64    REAL(wp)     ::  v1            !:
     65    REAL(wp)     ::  v2            !:
    5266
    5367    SAVE  iset, gset
Note: See TracChangeset for help on using the changeset viewer.