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

• enysol.f (modified) (2 diffs)

enysol.f

@@ -25 +25 @@
 ! -------------------------------------------------------------
 ! TODO: Check the solvent energy for multiple molecules     
+!     arguments
+      integer nmol
+      
+!     functions
+      integer nursat
+
+      integer numbox, inbox, indsort, look, i, ii, ia, ib, ibox, icount
+      integer ilk, il, ik, ix, iy, iz, j, jy, jbox, jbi, jres, jj, jcnt
+      integer jtk, jx, jz, lbn, lst, mhx, mx, nsy, ndy, mz, my, nboxj
+      integer ndx, ncbox, nbt, nez, ndz, nex, ney, nlow, nhx, nnei
+      integer nrshi, nqxy, nrslow, mbt, nsx, nsz, numat, nup
+      double precision xyz, radb, radb2, ymin, diamax, area, akrad
+      double precision avr_x, avr_y, avr_z, dd, dr, dx, dy, dz, sizex
+      double precision rmax, shiftx, shifty, shiftz, sizey, sizez
+      double precision sizes, trad, zmin, xmax, xmin, ymax, zmax
+      double precision sdr, sdd, volume
+      
       dimension numbox(mxat),inbox(mxbox+1),indsort(mxat),look(mxat)
       dimension xyz(mxinbox,3),radb(mxinbox),radb2(mxinbox)
@@ -323 +340 @@
       include 'INCL.H'
       character lin*80
-
+      integer i
 !    Skipping comment lines, which begin with '!'  
       read(20,'(a)') lin