Changeset 6650a56 for partem_p.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:

• partem_p.f (modified) (1 diff)

partem_p.f

@@ -38 +38 @@
 !     nmes:   number of Monte Carlo sweeps between measurments
 !     newsta: .true. for new simulations, .false. for re-start
-
+      double precision temp, eavm, sph, geavm, gsph, dv, grnd, vr
+      double precision addang, dummy, eol, energy, acz, rmsv, rmsdfun
+      double precision rgy, ee, tmhb, dham, swp, wij, rd, e_final
+
+      integer ifrrm, nmes, nswp, num_rep, i, j, nresi, iold, inode
+      integer intem, iv, jold, idum1, idum2, idum3, mpi_integer
+      integer mpi_comm_world, ierr, mpi_double_precision, nsw, nequi
+      integer nml, nhel, mhel, nbet, mbet, mhb, imhb, nctot, ncnat
+      integer mpi_comm_null, k1, k, nu, no1, in, jn
+      
       dimension  eavm(MAX_PROC),sph(MAX_PROC),intem(MAX_PROC),
      &     inode(MAX_PROC), geavm(MAX_PROC), gsph(MAX_PROC)