Changeset 32289cd for twister.f

Timestamp:

11/19/09 11:29:41 (14 years ago)

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

38d77eb

Parents:

6650a56

Message:

Explicitly declare variables.

git-svn-id: ​svn+ssh://svn.berlios.de/svnroot/repos/smmp/trunk@33 26dc1dd8-5c4e-0410-9ffe-d298b4865968

File:

• twister.f (modified) (5 diffs)

twister.f

@@ -47 +47 @@
 * May 03, 2000
 *
-* compile with: f90 -i32 -dp -o mt19937 mt19937.f 
+* compile with: f90 -i32 -dp -o mt19937 mt19937.f
 * Changes:
 *    Do not use UMASK as parameter due to restrictions of CF90
@@ -55 +55 @@
 *
 *    Now the T3E produces the same random number as a RS6000 running AIX
-*      
+*
 * from other programs sgrnd() must be called with integer*4
 *
@@ -64 +64 @@
       subroutine sgrnd(seed)
 *
-      implicit integer(a-z)
+      integer seed, tmaskb, tmaskc, tshftu, tshfts, tshftt
+      integer tshftl, y
+
+      integer N, N1, mti, mt, m, mata, lmask, mag01
+      integer kk
 *
 * Period parameters
@@ -88 +92 @@
 
       block data twbloks
+      integer n,n1,mt,mti
       parameter(N     =  624)
       parameter(N1    =  N+1)
@@ -99 +104 @@
       double precision function grnd()
 *
-      implicit integer(a-z)
+      integer tmaskb, tmaskc, tshftu, tshfts, tshftt, tshftl, y
+
+      integer n, n1, mti, mt, m, mata, lmask, mag01, kk
+
 *
 * Period parameters