--- trunk/OOPSE/libmdtools/do_Forces.F90	2003/04/05 02:56:27	462
+++ trunk/OOPSE/libmdtools/do_Forces.F90	2003/04/07 20:50:46	470
@@ -4,7 +4,7 @@
 
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @version $Id: do_Forces.F90,v 1.10 2003-04-05 02:56:27 gezelter Exp $, $Date: 2003-04-05 02:56:27 $, $Name: not supported by cvs2svn $, $Revision: 1.10 $
+!! @version $Id: do_Forces.F90,v 1.11 2003-04-07 20:50:46 chuckv Exp $, $Date: 2003-04-07 20:50:46 $, $Name: not supported by cvs2svn $, $Revision: 1.11 $
 
 module do_Forces
   use force_globals
@@ -210,6 +210,7 @@ contains
 
     do_pot = do_pot_c
     do_stress = do_stress_c
+    
 
     ! Gather all information needed by all force loops:
     
@@ -479,9 +480,9 @@ contains
     endif
 
     if (do_stress) then
-       call mpi_allreduce(tau, tau_Temp,9,mpi_double_precision,mpi_sum, &
+       call mpi_allreduce(tau_Temp, tau,9,mpi_double_precision,mpi_sum, &
             mpi_comm_world,mpi_err)
-       call mpi_allreduce(virial, virial_Temp,1,mpi_double_precision,mpi_sum, &
+       call mpi_allreduce(virial_Temp, virial,1,mpi_double_precision,mpi_sum, &
             mpi_comm_world,mpi_err)
     endif
 
@@ -655,7 +656,6 @@ contains
     rf = 0.0_dp
     tau_Temp = 0.0_dp
     virial_Temp = 0.0_dp
-    
   end subroutine zero_work_arrays
   
   function skipThisPair(atom1, atom2) result(skip_it)