--- trunk/OOPSE/libmdtools/mpiSimulation_module.F90	2003/03/26 23:14:02	416
+++ 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.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.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)