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

• addend.f (modified) (3 diffs)

addend.f

@@ -28 +28 @@
       character res*4,rpat*4,sbrs*4,grn*4,grc*4
 
+      integer nml
+      
+      integer i, ifirs, ilars
+      
+      double precision cg
 
       grn = grpn
@@ -170 +175 @@
       character rpat*4,sbrs*4
       logical ntbb,bb
+      integer nml, nrs, ibd, iybd
 
       dimension ibd(mxbd+1),iybd(mxbd+1)
-
-
+      
+      integer iopfil, iendst
+      
+      double precision valang, dihedr
+
+      integer ish, i, i1, irng1, irng2, ilavr, ilaat, i2, i3, ibdrg,
+     &        ib, iat, ifirs, ifivr, ii, iow, isgbb1, ity, nfi, ilars,
+     &        ivrrp, ivrsb, jsh, j, iybdrg, k, lvrrp, nb, natsb, nla, 
+     &        nfirp, nxt, nsb, nlarp, nfisb, nlasb, nrp, nsh,
+     &        nvrsb, nxtbb1, nxtbb2, nxtsb
+      double precision ba, ca, ct, dx, dz, h3, h2, sa, st,to, x1, x2,
+     &        x3, y1, y2, y3, z1, z2, z3
+      
       ifirs=irsml1(nml)
       ilars=irsml2(nml)
@@ -638 +655 @@
 
       character rpat*4,sbrs*4,atnm*4,res*4,cgty*5,line*100
+      integer nml, nrs
+
+      integer iopfil, iendst
+
+      integer ifirs, ilars, ifvr, ilib, i, l, j, nchg
 
       ifirs=irsml1(nml)