Changeset cb47b9c for setmvs.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:

• setmvs.f (modified) (2 diffs)

setmvs.f

@@ -47 +47 @@
 
       include 'INCL.H'
+!     ID of molecule
+      integer nml
+
+      integer nursvr
 
       logical bb
-
+      integer mxh, lvw1h, lvw2h, l1h, l2h
       parameter (mxh=10)
       dimension lvw1h(mxh),lvw2h(mxh),l1h(mxh),l2h(mxh)
 
+      integer ifivr, i, i1, ia, ib, ic, ifirs, ifiat, ko, ilaat, ii,
+     &        ilars, ilavr, io, ir, irg1, is, it, iv, j, k, j1, jns,
+     &        j2, j1s, ja, jb, jv, jo, l, i2, irg2, n, nad, nms,
+     &        ntlvr
 
       ntlvr=nvrml(nml)
@@ -418 +426 @@
       include 'INCL.H'
 
+      integer nml, nrs, ifirg, ilarg, irg1, irg2
+                  
       logical bb
+      integer ibd
       dimension ibd(4)
 
+      integer i, ib, ila, ifi, il, ixt, k, j, jb            
+                  
       ilarg=ifirg