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

• utilities.f (modified) (13 diffs)

utilities.f

@@ -8 +8 @@
 
 !! Calculate the best way to distribute the work load across processors.
-!  It calculates the average number of interactions and then tries to 
+!  It calculates the average number of interactions and then tries to
 !  assign a number of interactions to each processor that is as close
 !  as possible to the average. The routine should be called once for
@@ -21 +21 @@
       include 'INCL.H'
 
+      integer i1ms, io, iv, i2ms, ms
+
       integer num_ppr, nml
       integer idxOfFirstVariable, idxOfLastVariable
@@ -26 +28 @@
       integer totalct, irank, itarget
       double precision ipps
-      
+
       if (nml.eq.0) then
          idxOfFirstVariable = ivrml1(1)
@@ -36 +38 @@
             end do
          end do
-      else 
+      else
          idxOfFirstVariable = ivrml1(nml)
          idxOfLastVariable = ivrml1(nml) + nvrml(nml) - 1
@@ -44 +46 @@
          end do
       end if
-      
+
       isum = 0
       do io = idxOfLastVariable, idxOfFirstVariable, - 1
@@ -52 +54 @@
          do ms = i1ms, i2ms
             do at = latms1(ms), latms2(ms)
-               do ivw=ivwat1(at),ivwat2(at)  
+               do ivw=ivwat1(at),ivwat2(at)
                   do j=lvwat1(ivw),lvwat2(ivw)
                      isum = isum + 1
                   end do
                end do
-               do i14=i14at1(at),i14at2(at)   
+               do i14=i14at1(at),i14at2(at)
                   isum = isum + 1
                end do
@@ -66 +68 @@
       write (*,*) "Total number of interactions:", isum
       write (*,*) "Average # of interactions per processor", ipps
-      
+
       totalct = 0
       irank = 1
@@ -72 +74 @@
       if (nml.eq.0) then
          i1ms = imsml1(ntlml)+ nmsml(ntlml)
-      else 
+      else
          i1ms = imsml1(nml)+ nmsml(nml)
       end if
       do io = idxOfLastVariable, idxOfFirstVariable, - 1
-         isum = 0 
+         isum = 0
          iv = iorvr(io)
          i2ms = i1ms - 1
@@ -83 +85 @@
             do at = latms1(ms), latms2(ms)
                atct = atct + 1
-               do ivw=ivwat1(at),ivwat2(at)  
+               do ivw=ivwat1(at),ivwat2(at)
                   do j=lvwat1(ivw),lvwat2(ivw)
                      isum = isum + 1
                   end do
                end do
-               do i14=i14at1(at),i14at2(at)   
+               do i14=i14at1(at),i14at2(at)
                   isum = isum + 1
                end do
@@ -113 +115 @@
 
       end subroutine distributeWorkLoad
-      
+
 !-----------------------------------------------------------------------
 !     The function fileNameMP takes a template of a file name in the
@@ -128 +130 @@
 !     \endcode
 !     will output base_0011.dat.
-!     
+!
 !     @param base the base file name, e.g., base_0000.dat.
 !     @param i1 index of the first character that may be replaced
 !     @param i2 index of the last character that may be replaced
 !     @param rank the number that should be inserted into the file name.
-!     
+!
 !     @return file name for rank
 !-----------------------------------------------------------------------
@@ -165 +167 @@
          write(fileNameMP(i2-5:i2), '(i6)') rank
       endif
-      end function fileNameMP 
+      end function fileNameMP
 !     End fileNameMP
 
@@ -172 +174 @@
 !     Add messages to log. This routine takes the log (debugging) mes-
 !     sages and writes them to the log file if the log level is less or
-!     equal to the maximum log level given by the global variable 
+!     equal to the maximum log level given by the global variable
 !     MAXLOGLEVEL.
 !
 !     @author Jan H. Meinke
 !
-!     @param loglevel level at which this message should be added to 
+!     @param loglevel level at which this message should be added to
 !            the log.
 !     @param message message to be written to the log.
-!     @param rank global rank of this node if running an MPI job zero 
+!     @param rank global rank of this node if running an MPI job zero
 !            otherwise.
 !----------------------------------------------------------------------
       subroutine addLogMessage(loglevel, message, rank)
-      
+
+      integer maxloglevel, logfileunit
+
          integer :: loglevel, rank
          character(LEN=*) :: message
-         
+
          if (loglevel <= MAXLOGLEVEL) then
             write(LOGFILEUNIT, *) message
          end if
-         
+
       end subroutine addLogMessage