--- trunk/OOPSE/libmdtools/calc_dipole_dipole.F90	2003/04/09 04:06:43	483
+++ trunk/OOPSE/libmdtools/calc_dipole_dipole.F90	2003/04/10 16:22:00	486
@@ -80,15 +80,7 @@ contains
     ul2(3) = u_l(3,atom2)
 #endif
 
-    if( atom1 .eq. 2 )then
-       write (0,*) 'ul =', ul1(1), ul1(2), ul1(3)
-    endif
 
-    if( atom2 .eq. 2 )then
-       write (0,*) 'ul =', ul2(1), ul2(2), ul2(3)
-    endif
-
-
     call getElementProperty(atypes, me1, "dipole_moment", mu1)
     call getElementProperty(atypes, me2, "dipole_moment", mu2)