Changeset 6650a56 for opesol.f

Timestamp:

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

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

32289cd

Parents:

30644a9

Message:

Explicitly declare variables.

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

File:

• opesol.f (modified) (2 diffs)

opesol.f

@@ -32 +32 @@
 
       include 'INCL.H'
-
+      double precision xfvr, yfvr, zfvr, xfrvr, yfrvr, zfrvr, esolan, dx
+      double precision dy, dz, xfat, yfat, zfat, xi, yi, zi, xfrat
+      double precision yfrat, zfrat, xb, yb, zb, ex, ey, ez, xfiv, yfiv
+      double precision zfiv, xfriv, yfriv, zfriv
+
+      integer ntlvr, nml, ix2, ifivr, ilavr, i, i1s, i1a, io, iv, it, ia
+      integer ib, i2s, ims, i1, i2, i2a, iad, lad, ivw, j, i14
+      
       dimension xfat(mxat),yfat(mxat),zfat(mxat),
      &          xfrat(mxat),yfrat(mxat),zfrat(mxat),
@@ -244 +251 @@
 
       include 'INCL.H'
+      
+      double precision del, vlvrx, ovr, eynw, esolan, gda, gdn
+
+      integer i, it, iv, nml
+
 
       parameter (del=1.d-6)