Changeset 32289cd for eninteract.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:

• eninteract.f (modified) (4 diffs)

eninteract.f

@@ -15 +15 @@
 
         include 'INCL.H'
-                
+
+      double precision cqi, xi, yi, zi, xj, yj, zj, xij, yij, zij, rij2
+      double precision rij4, rij6, rij, sr, ep
+
+      integer iml, jml, ires, jres, iat, ity, jat, jty
+
         eysmi=0.0
         eyeli=0.0
@@ -42 +47 @@
                     yj=yat(jat)
                     zj=zat(jat)
-                    
+
                     xij=xat(jat)-xi
                     yij=yat(jat)-yi
@@ -69 +74 @@
      &                          -chb(ity,jty)/(rij6*rij4)
                     endif
-                  enddo 
+                  enddo
                 enddo
               enddo
@@ -78 +83 @@
         eysmi = eyeli + eyvwi + eyhbi
         eninteract = eysmi
-        return 
-      end   
+        return
+      end