--- trunk/OOPSE/libmdtools/do_Forces.F90	2003/07/14 21:28:54	597
+++ trunk/OOPSE/libmdtools/do_Forces.F90	2003/07/14 23:06:09	601
@@ -4,7 +4,7 @@
 
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @version $Id: do_Forces.F90,v 1.18 2003-07-14 21:28:54 mmeineke Exp $, $Date: 2003-07-14 21:28:54 $, $Name: not supported by cvs2svn $, $Revision: 1.18 $
+!! @version $Id: do_Forces.F90,v 1.19 2003-07-14 23:06:09 gezelter Exp $, $Date: 2003-07-14 23:06:09 $, $Name: not supported by cvs2svn $, $Revision: 1.19 $
 
 module do_Forces
   use force_globals
@@ -502,14 +502,6 @@ contains
 
 #endif
     
-    write(*,*) 'T(1) = '
-    write(*,'(3es12.3)') t(1,1), t(1,2), t(1,3)
-    write(*,*)
-
-    write(*,*) 'T(2) = '
-    write(*,'(3es12.3)') t(2,1), t(2,2), t(2,3)
-    write(*,*)
-
   end subroutine do_force_loop
 
   subroutine do_pair(i, j, rijsq, d, do_pot, do_stress, u_l, A, f, t, pot)
@@ -533,27 +525,6 @@ contains
 
     r = sqrt(rijsq)
 
-    write(*,*) 'ul(1) = '
-    write(*,'(3es12.3)') u_l(1,1), u_l(1,2), u_l(1,3)
-    write(*,*)
-
-    write(*,*) 'ul(2) = '
-    write(*,'(3es12.3)') u_l(2,1), u_l(2,2), u_l(2,3)
-    write(*,*)
-
-
-    write(*,*) 'A(1) = '
-    write(*,'(3es12.3)') A(1,1), A(2,1), A(3,1)
-    write(*,'(3es12.3)') A(4,1), A(5,1), A(6,1)
-    write(*,'(3es12.3)') A(7,1), A(8,1), A(9,1)
-    write(*,*) 
-    write(*,*) 'A(2) = '
-    write(*,'(3es12.3)') A(1,2), A(2,2), A(3,2)
-    write(*,'(3es12.3)') A(4,2), A(5,2), A(6,2)
-    write(*,'(3es12.3)') A(7,2), A(8,2), A(9,2)
-    write(*,*)
-
-
 #ifdef IS_MPI
     if (tagRow(i) .eq. tagColumn(j)) then
        write(0,*) 'do_pair is doing', i , j, tagRow(i), tagColumn(j)