--- trunk/OOPSE/libmdtools/mpiSimulation_module.F90	2003/08/13 21:20:20	694
+++ trunk/OOPSE/libmdtools/mpiSimulation_module.F90	2003/09/05 21:28:52	747
@@ -7,7 +7,7 @@
 !!
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @version $Id: mpiSimulation_module.F90,v 1.6 2003-08-13 21:20:20 chuckv Exp $, $Date: 2003-08-13 21:20:20 $, $Name: not supported by cvs2svn $, $Revision: 1.6 $
+!! @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 $
 
 module mpiSimulation  
   use definitions
@@ -52,16 +52,16 @@ module mpiSimulation  
 
 !! Safety logical to prevent access to ComponetPlan until
 !! set by C++.
-  logical :: ComponentPlanSet = .false.
+  logical, save :: ComponentPlanSet = .false.
 
 
 !! generic mpi error declaration.
-  integer,public  :: mpi_err
+  integer, public :: mpi_err
 
 #ifdef PROFILE
   public :: printCommTime
 
-  real(kind = dp ) :: commTime = 0.0_dp
+  real(kind = dp ), save :: commTime = 0.0_dp
   real(kind = dp ) :: commTimeInitial,commTimeFinal
 #endif
 
@@ -78,10 +78,10 @@ module mpiSimulation  
   integer, public, allocatable, dimension(:) :: tagColumn
 
 !! Logical set true if mpiSimulation has been initialized
-  logical :: isSimSet = .false.
+  logical, save :: isSimSet = .false.
 
 
-  type (mpiComponentPlan) :: mpiSim
+  type (mpiComponentPlan), save :: mpiSim
 
 !! gs_plan contains plans for gather and scatter routines
   type, public :: gs_plan
@@ -97,12 +97,12 @@ module mpiSimulation  
   end type gs_plan
 
 ! plans for different decompositions
-  type (gs_plan), public :: plan_row
-  type (gs_plan), public :: plan_row3d
-  type (gs_plan), public :: plan_col
-  type (gs_plan), public :: plan_col3d
-  type(gs_plan),  public :: plan_row_Rotation
-  type(gs_plan),  public :: plan_col_Rotation
+  type (gs_plan), public, save :: plan_row
+  type (gs_plan), public, save :: plan_row3d
+  type (gs_plan), public, save :: plan_col
+  type (gs_plan), public, save :: plan_col3d
+  type (gs_plan),  public, save :: plan_row_Rotation
+  type (gs_plan),  public, save :: plan_col_Rotation
 
   type (mpiComponentPlan), pointer :: simComponentPlan