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

• partem_p.f (modified) (2 diffs)

partem_p.f

@@ -43 +43 @@
 
       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 intem, iv, jold, idum1, idum2, idum3
+      integer ierr, nsw, nequi
       integer nml, nhel, mhel, nbet, mbet, mhb, imhb, nctot, ncnat
-      integer mpi_comm_null, k1, k, nu, no1, in, jn
+      integer k1, k, nu, no1, in, jn
       
       dimension  eavm(MAX_PROC),sph(MAX_PROC),intem(MAX_PROC),
@@ -225 +225 @@
             call flush(6)
          endif
-         if(mod(iold,nmes).eq.0) then
+         if(mod(iold,nmes).eq.0.and.myrank.eq.0) then
             if ((rep_id + 1).eq.trackID.and.myrank.eq.0) then
                frame = iold /nmes