--- trunk/OOPSE/libmdtools/mpiSimulation_module.F90	2003/03/21 17:42:12	378
+++ trunk/OOPSE/libmdtools/mpiSimulation_module.F90	2003/07/17 19:25:51	631
@@ -1,5 +1,5 @@
-#ifdef IS_MPI
 
+
 !! MPI support for long range forces using force decomposition 
 !! on a square grid of processors.
 !! Corresponds to mpiSimunation.cpp for C++
@@ -7,10 +7,11 @@
 !!
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @version $Id: mpiSimulation_module.F90,v 1.1.1.1 2003-03-21 17:42:12 mmeineke Exp $, $Date: 2003-03-21 17:42:12 $, $Name: not supported by cvs2svn $, $Revision: 1.1.1.1 $
+!! @version $Id: mpiSimulation_module.F90,v 1.5 2003-07-17 19:25:51 chuckv Exp $, $Date: 2003-07-17 19:25:51 $, $Name: not supported by cvs2svn $, $Revision: 1.5 $
 
 module mpiSimulation  
   use definitions
+#ifdef IS_MPI
   use mpi
   implicit none
   PRIVATE
@@ -136,6 +137,9 @@ contains
     integer :: localStatus
 !! Global reference tag for local particles
     integer, dimension(ntags),intent(inout) :: tags 
+
+    write(*,*) 'mpiSim_mod thinks node', thisComponentPlan%myNode, ' has tags(1) = ', tags(1)
+
 
 
     status = 0
@@ -254,6 +258,7 @@ contains
     
     nComponentsLocal = thisComponentPlan%myNlocal
 
+    write(*,*) "UpdateGridComponents: myNlocal ", nComponentsLocal
     call mpi_allreduce(nComponentsLocal,nComponentsRow,1,mpi_integer,&
          mpi_sum,thisComponentPlan%rowComm,mpiErrors)
     if (mpiErrors /= 0) then
@@ -270,7 +275,10 @@ contains
 
     thisComponentPlan%nComponentsRow = nComponentsRow
     thisComponentPlan%nComponentsColumn = nComponentsColumn
-
+    write(*,*) "UpdateGridComponents: myNRow ",&
+         thisComponentPlan%nComponentsRow
+    write(*,*) "UpdateGridComponents: myNColumn ",&
+         thisComponentPlan%nComponentsColumn
 
   end subroutine updateGridComponents
 
@@ -625,10 +633,10 @@ contains
     ncol = thisplan%gsComponentPlan%nComponentsColumn
   end function getNcol
 
-  pure function getNrow(thisplan) result(ncol)
+  pure function getNrow(thisplan) result(nrow)
     type (gs_plan), intent(in) :: thisplan
-    integer :: ncol
-    ncol = thisplan%gsComponentPlan%nComponentsrow
+    integer :: nrow
+    nrow = thisplan%gsComponentPlan%nComponentsRow
   end function getNrow
 
   function isMPISimSet() result(isthisSimSet)
@@ -662,9 +670,6 @@ contains
        write(default_error,*) "nBondGlobal: ", mpiSim%nBondsGlobal
        write(default_error,*) "nTorsionsGlobal: ", mpiSim%nTorsionsGlobal
        write(default_error,*) "nSRIGlobal: ", mpiSim%nSRIGlobal
-       write(default_error,*) "myMolStart: ", mpiSim%myMolStart
-       write(default_error,*) "myMolEnd: ", mpiSim%myMolEnd
-       write(default_error,*) "myMol: ", mpiSim%myMol
        write(default_error,*) "myNlocal: ", mpiSim%myNlocal
        write(default_error,*) "myNode: ", mpiSim%myNode
        write(default_error,*) "numberProcessors: ", mpiSim%numberProcessors
@@ -684,7 +689,7 @@ contains
     myNode = mpiSim%myNode
   end function getMyNode
 
-
+#endif // is_mpi
 end module mpiSimulation
 
-#endif // is_mpi
+