--- trunk/OOPSE/libmdtools/mpiSimulation_module.F90	2003/03/26 23:14:02	416
+++ trunk/OOPSE/libmdtools/mpiSimulation_module.F90	2003/04/01 16:50:14	441
@@ -7,7 +7,7 @@
 !!
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @version $Id: mpiSimulation_module.F90,v 1.2 2003-03-26 23:14:02 gezelter Exp $, $Date: 2003-03-26 23:14:02 $, $Name: not supported by cvs2svn $, $Revision: 1.2 $
+!! @version $Id: mpiSimulation_module.F90,v 1.4 2003-04-01 16:50:14 chuckv Exp $, $Date: 2003-04-01 16:50:14 $, $Name: not supported by cvs2svn $, $Revision: 1.4 $
 
 module mpiSimulation  
   use definitions
@@ -137,7 +137,10 @@ contains
 !! 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
     if (componentPlanSet) then
        return
@@ -254,6 +257,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 +274,10 @@ contains
 
     thisComponentPlan%nComponentsRow = nComponentsRow
     thisComponentPlan%nComponentsColumn = nComponentsColumn
-
+    write(*,*) "UpdateGridComponents: myNRow ",&
+         thisComponentPlan%nComponentsRow
+    write(*,*) "UpdateGridComponents: myNColumn ",&
+         thisComponentPlan%nComponentsColumn
 
   end subroutine updateGridComponents
 
@@ -625,10 +632,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)