--- trunk/OOPSE/libmdtools/f_verlet_constrained.F90	2003/03/21 22:11:50	388
+++ trunk/OOPSE/libmdtools/f_verlet_constrained.F90	2003/03/24 15:26:05	389
@@ -59,8 +59,6 @@ subroutine v_constrain_a(dt,natoms,mass,rx,ry,rz, &
   parameter ( e_convert = 4.184d-4 )
   
 
-  write(*,*) 'n_constrained = ', n_constrained
-  
   DT2   = DT / 2.0d0
   DTSQ2 = DT * DT2