Changeset 32289cd for opereg.f

Timestamp:

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

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

38d77eb

Parents:

6650a56

Message:

Explicitly declare variables.

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

File:

• opereg.f (modified) (5 diffs)

opereg.f

@@ -4 +4 @@
 !
 ! Copyright 2003-2005  Frank Eisenmenger, U.H.E. Hansmann,
-!                      Shura Hayryan, Chin-Ku 
+!                      Shura Hayryan, Chin-Ku
 ! Copyright 2007       Frank Eisenmenger, U.H.E. Hansmann,
 !                      Jan H. Meinke, Sandipan Mohanty
@@ -33 +33 @@
       include 'INCL.H'
       include 'INCP.H'
+
+      double precision xfvr, yfvr, zfvr, xfrvr, yfrvr, zfrvr, x1, y1, z1
+      double precision a, sa, ca, xk, yk, zk, xi, yi, zi, xji, yji, zji
+      double precision dx, dy, dz, x, y, z, xfat, yfat, zfat, 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, ii, j, i1s, i1a, io, iv
+      integer it, ia, ib, i2s, ims, i1, i2, i2a, iad, lad, ivw, i14
 
       dimension xfat(mxat),yfat(mxat),zfat(mxat),
@@ -100 +109 @@
 
           eyrg = eyrg + xji**2 + yji**2 + zji**2  ! The regularization energy is just
-                                                  ! the sum over the atom distances 
+                                                  ! the sum over the atom distances
                                                   ! squared.
 
@@ -303 +312 @@
       include 'INCL.H'
 
+      double precision del, pro, gdn, enyreg
+
+      integer ii, nml, i
+
       parameter (del=1.d-7)
 
@@ -339 +352 @@
 
       include 'INCL.H'
+
+      double precision del, vlvrx, ovr, eynw, enyreg, gdn, gda
+
+      integer i, it, iv, nml
 
       parameter (del=1.d-6)