--- trunk/OOPSE/libmdtools/do_Forces.F90	2003/10/29 20:40:08	842
+++ trunk/OOPSE/libmdtools/do_Forces.F90	2003/10/29 20:41:39	843
@@ -4,7 +4,7 @@
 
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @version $Id: do_Forces.F90,v 1.34 2003-10-29 17:55:28 mmeineke Exp $, $Date: 2003-10-29 17:55:28 $, $Name: not supported by cvs2svn $, $Revision: 1.34 $
+!! @version $Id: do_Forces.F90,v 1.35 2003-10-29 20:41:39 mmeineke Exp $, $Date: 2003-10-29 20:41:39 $, $Name: not supported by cvs2svn $, $Revision: 1.35 $
 
 module do_Forces
   use force_globals
@@ -730,15 +730,7 @@ contains
     endif
 
 #endif
-
-
-    write(*,*) "In F, after: Tau = "
-    write(*,*) tau(1), tau(2), tau(3)
-    write(*,*) tau(4), tau(5), tau(6)
-    write(*,*) tau(7), tau(8), tau(9)
-    write(*,*) " "
 
-
   end subroutine do_force_loop
 
   subroutine do_pair(i, j, rijsq, d, do_pot, do_stress, u_l, A, f, t, pot)