Changeset cb47b9c for redvar.f

Timestamp:

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

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

2d5d396

Parents:

ffd2d46

Message:

Explicitly declare variables.

All variables should be declared so that we can remove the implicit statements
from the beginning of the INCL.H file.

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

File:

• redvar.f (modified) (2 diffs)

redvar.f

@@ -70 +70 @@
       include 'INCL.H'
 
+!     functions
+      integer iopfil, iendst, iredin, iredrl, ibegst
 ! maxfld: max. # of fields in one command
 ! maxide: max. # of identifiers in a field
@@ -75 +77 @@
 ! ilrg:   a large integer
 
+      integer maxfld, maxide, maxcmd, ilrg, ifdend, icb, i, ib, ibz
+      integer ife, ifb, ide, id, ice, ie, ieh, ieh1, iez, ihz, ifx, ifld
+      integer ile, ii, ihy, ilb, iml, it, in ,io, inum, kbz, iv, ity, jb
+      integer j, k, l, kez, kk, kv, lez, lbz,ll, ll1, ll2, n, nfi, ncmd
+      integer nfld, nide, nml, ntlvr
+      double precision vlvrx, rn, vr, val
       parameter (maxfld=4,
      &           maxide=30,