--- trunk/OOPSE/libmdtools/mpiSimulation_module.F90	2003/03/21 17:42:12	378
+++ trunk/OOPSE/libmdtools/mpiSimulation_module.F90	2003/03/27 23:33:40	432
@@ -7,7 +7,7 @@
 !!
 !! @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.3 2003-03-27 23:33:40 chuckv Exp $, $Date: 2003-03-27 23:33:40 $, $Name: not supported by cvs2svn $, $Revision: 1.3 $
 
 module mpiSimulation  
   use definitions
@@ -254,6 +254,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 +271,10 @@ contains
 
     thisComponentPlan%nComponentsRow = nComponentsRow
     thisComponentPlan%nComponentsColumn = nComponentsColumn
-
+    write(*,*) "UpdateGridComponents: myNRow ",&
+         thisComponentPlan%nComponentsRow
+    write(*,*) "UpdateGridComponents: myNColumn ",&
+         thisComponentPlan%nComponentsColumn
 
   end subroutine updateGridComponents
 
@@ -625,10 +629,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 +666,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