--- trunk/OOPSE/libmdtools/mpiSimulation_module.F90	2003/03/27 23:33:40	432
+++ trunk/OOPSE/libmdtools/mpiSimulation_module.F90	2003/07/17 19:25:51	631
@@ -1,5 +1,5 @@
-#ifdef IS_MPI
 
+
 !! MPI support for long range forces using force decomposition 
 !! on a square grid of processors.
 !! Corresponds to mpiSimunation.cpp for C++
@@ -7,10 +7,11 @@
 !!
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @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 $
+!! @version $Id: mpiSimulation_module.F90,v 1.5 2003-07-17 19:25:51 chuckv Exp $, $Date: 2003-07-17 19:25:51 $, $Name: not supported by cvs2svn $, $Revision: 1.5 $
 
 module mpiSimulation  
   use definitions
+#ifdef IS_MPI
   use mpi
   implicit none
   PRIVATE
@@ -136,8 +137,11 @@ contains
     integer :: localStatus
 !! 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
@@ -685,7 +689,7 @@ contains
     myNode = mpiSim%myNode
   end function getMyNode
 
-
+#endif // is_mpi
 end module mpiSimulation
 
-#endif // is_mpi
+