Changeset 2019dff for opeshe.f

Timestamp:

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

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

08edfcf

Parents:

2d5d396

Message:

Explicitly declare variables.

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

File:

• opeshe.f (modified) (2 diffs)

opeshe.f

@@ -26 +26 @@
 
       include 'INCL.H'
+      
+      double precision eyds, c, cqi, e0, deel, eel, ep, ex, ey, eyrp, xb
+      double precision rij2, ez, fvr, rij, rij6, rij4, sr, sr2, vr, vrn
+      double precision xfat, xi, xfrvr, xfiv, xfi, xfji, xfriv, xfvr
+      double precision yfji, xsr, xij, yb, yfi, yfat, yfiv, zfriv, yi
+      double precision yfvr, yfriv, yfrvr, yij, zfat, zb, zfi, zfji
+      double precision zfiv, zfvr, zfrvr, zi, zij, del
+
+      integer nml, i, i2, i1, i1a, i14, i1s, i2s, i2a, iad, ia, ib, ic
+      integer ifivr, ilavr, ims, io, ity, it, iv, ivw, lad, j, jty
+      integer ntlvr
 
       dimension xfat(mxat),yfat(mxat),zfat(mxat),
@@ -332 +343 @@
 
       include 'INCL.H'
-
+      
+      integer nml
+
+      double precision del, eynw, eyol, gda, gdn, ovr, vlvrx
+      double precision enyshe
+
+      integer iv, i, it
+      
       parameter (del=1.d-7)