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

• getmol.f (modified) (2 diffs)

getmol.f

@@ -38 +38 @@
 
       include 'INCL.H'
-
+!     arguments
+      integer nml
+!     functions      
+      integer iopfil, iendst
+      
+      integer i, iat, iow, ifirs, ibd, ilars, j, mvr, nbd, n, nbd1, nj
+      integer nh, nrs, ntlat, ntlvr, nat, nxt
+      double precision ba, t, to
       character res*4
 
@@ -270 +277 @@
 
       include 'INCL.H'
-
+!     arguments
+      integer nat, nxt, nvrr
+      
+!     functions
+      integer iendst
+      
+      integer icl, ibd, ib3, i, ib1, ib2, ic, iow, iexcp, ity, jow, lg
+      integer nln, j
       dimension icl(3),ibd(mxbd)
       character blnk,fix(3),nm(3)*3,res*4,resl*4,line*132
       data blnk/' '/
 
+      double precision ba, to
 
       nln=0