Changeset 1320 for palm/trunk/SOURCE/random_function.f90

Timestamp:

Mar 20, 2014 8:40:49 AM (10 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:

• palm/trunk/SOURCE/random_function.f90 (modified) (5 diffs)

palm/trunk/SOURCE/random_function.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! 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
 !
 ! Former revisions:
@@ -34 +40 @@
 ! RCS Log replace by Id keyword, revision history cleaned up
 !
-! Revision 1.3  2003/10/29 09:06:57  raasch
-! Former function changed to a module.
-!
 ! Revision 1.1  1998/02/04 16:09:45  raasch
 ! Initial revision
@@ -47 +50 @@
 !------------------------------------------------------------------------------!
 
+    USE kinds
+
     IMPLICIT NONE
 
@@ -53 +58 @@
     PUBLIC random_function, random_function_ini
 
-    INTEGER, PUBLIC, SAVE ::  random_iv(32), random_iy
+    INTEGER(iwp), PUBLIC, SAVE ::  random_iv(32)  !:
+    INTEGER(iwp), PUBLIC, SAVE ::  random_iy      !:
 
     INTERFACE random_function_ini
@@ -79 +85 @@
        IMPLICIT NONE
 
-       INTEGER ::  ia, idum, im, iq, ir, ndiv, ntab
-       REAL    ::  am, eps, random_function, rnmx
+       INTEGER(iwp) ::  ia               !:
+       INTEGER(iwp) ::  idum             !:
+       INTEGER(iwp) ::  im               !:
+       INTEGER(iwp) ::  iq               !:
+       INTEGER(iwp) ::  ir               !:
+       INTEGER(iwp) ::  ndiv             !:
+       INTEGER(iwp) ::  ntab             !:
+
+       INTEGER(iwp) ::  j                !:
+       INTEGER(iwp) ::  k                !:
+
+       REAL(wp)     ::  am               !:
+       REAL(wp)     ::  eps              !:
+       REAL(wp)     ::  random_function  !:
+       REAL(wp)     ::  rnmx             !:
 
        PARAMETER ( ia=16807, im=2147483647, am=1.0/im, iq=127773, ir=2836, &
                    ntab=32, ndiv=1+(im-1)/ntab, eps=1.2e-7, rnmx=1.0-eps )
-
-       INTEGER ::  j, k
-
 
        IF ( idum .le. 0  .or.  random_iy .eq. 0 )  THEN