--- trunk/OOPSE/libmdtools/do_Forces.F90	2003/03/24 18:33:51	393
+++ trunk/OOPSE/libmdtools/do_Forces.F90	2003/03/24 21:55:34	394
@@ -4,7 +4,7 @@
 
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @version $Id: do_Forces.F90,v 1.3 2003-03-24 18:33:51 mmeineke Exp $, $Date: 2003-03-24 18:33:51 $, $Name: not supported by cvs2svn $, $Revision: 1.3 $
+!! @version $Id: do_Forces.F90,v 1.4 2003-03-24 21:55:34 gezelter Exp $, $Date: 2003-03-24 21:55:34 $, $Name: not supported by cvs2svn $, $Revision: 1.4 $
 
 module do_Forces
   use force_globals
@@ -197,9 +197,6 @@ contains
     natoms = nlocal
 #endif
 
-    write(*,*) 'u_l', u_l(1,1), u_l(2,1), u_l(3,1)
-
-
     call getRcut(rcut,rc2=rcutsq)
     call getRlist(rlist,rlistsq)
     
@@ -584,8 +581,6 @@ contains
        
        d(1:3) = d(1:3) - box(1:3) * sign(1.0_dp,d(1:3)) * &
             int(abs(d(1:3)/box(1:3)) + 0.5_dp)
-
-!       write(*,'(a11,3es12.3)') 'wrapped to ', d(1), d(2), d(3)
        
     endif
     r_sq = dot_product(d,d)