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

• mklist.f (modified) (2 diffs)

mklist.f

@@ -19 +19 @@
 ! TODO: Calculate van-der-Waals regions over all molecules.
       include 'INCL.H'
-
+      integer nml
+
+      integer mxh, mx2, l1st1, l1st2, l2nd1, l2nd2, l1i, l2i
       parameter (mxh=50,         ! max. # of atom regions
      &           mx2=50)
@@ -27 +29 @@
       dimension l1st1(mxh),l1st2(mxh),l2nd1(mxh),l2nd2(mxh)
      &         ,l1i(mxbd),l2i(mx2)
+
+      integer ia, i, i1s, i2s, ibd, ib, ifivr, ifiat, ilaat, im, ilavr,
+     &        iob, io, ioiob, iow, it, is, iv, jbd, j, n1i, n14, n1st,
+     &        n2nd, n2i, ntlms, nvw
 
 ! _______________________ indices of 1st vdw-region/14-partner for 'nml'