--- trunk/OOPSE/libmdtools/do_Forces.F90	2003/12/18 20:46:45	883
+++ trunk/OOPSE/libmdtools/do_Forces.F90	2003/12/19 17:25:00	887
@@ -4,7 +4,7 @@
 
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @version $Id: do_Forces.F90,v 1.38 2003-12-18 20:46:45 chuckv Exp $, $Date: 2003-12-18 20:46:45 $, $Name: not supported by cvs2svn $, $Revision: 1.38 $
+!! @version $Id: do_Forces.F90,v 1.39 2003-12-19 17:25:00 mmeineke Exp $, $Date: 2003-12-19 17:25:00 $, $Name: not supported by cvs2svn $, $Revision: 1.39 $
 
 module do_Forces
   use force_globals
@@ -694,14 +694,11 @@ contains
        tau = tau_Temp
        virial = virial_Temp
     endif
-
+    
 #endif
-
-     
-    endif
-
-#endif
-
+    
+    
+    
   end subroutine do_force_loop
 
   subroutine do_pair(i, j, rijsq, d, do_pot, do_stress, u_l, A, f, t, pot)