--- trunk/OOPSE/libmdtools/mpiSimulation_module.F90 2003/03/27 23:33:40 432 +++ 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.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.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