--- trunk/OOPSE/libmdtools/mpiSimulation_module.F90	2003/09/05 21:28:52	747
+++ trunk/OOPSE/libmdtools/mpiSimulation_module.F90	2003/10/28 20:09:45	834
@@ -7,7 +7,7 @@
 !!
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @version $Id: mpiSimulation_module.F90,v 1.7 2003-09-05 21:28:19 gezelter Exp $, $Date: 2003-09-05 21:28:19 $, $Name: not supported by cvs2svn $, $Revision: 1.7 $
+!! @version $Id: mpiSimulation_module.F90,v 1.8 2003-10-28 20:09:38 gezelter Exp $, $Date: 2003-10-28 20:09:38 $, $Name: not supported by cvs2svn $, $Revision: 1.8 $
 
 module mpiSimulation  
   use definitions
@@ -663,13 +663,15 @@ contains
 
   end subroutine setTags
 
-  pure function getNcol(thisplan) result(ncol)
+!  pure function getNcol(thisplan) result(ncol)
+  function getNcol(thisplan) result(ncol)
     type (gs_plan), intent(in) :: thisplan
     integer :: ncol
     ncol = thisplan%gsComponentPlan%nComponentsColumn
   end function getNcol
 
-  pure function getNrow(thisplan) result(nrow)
+!  pure function getNrow(thisplan) result(nrow)
+  function getNrow(thisplan) result(nrow)
     type (gs_plan), intent(in) :: thisplan
     integer :: nrow
     nrow = thisplan%gsComponentPlan%nComponentsRow