--- trunk/OOPSE/libmdtools/simulation_module.F90	2003/07/15 21:34:56	618
+++ trunk/OOPSE/libmdtools/simulation_module.F90	2003/07/15 22:22:41	619
@@ -245,14 +245,12 @@ contains
   function getRrf() result(rrf)
     real( kind = dp ) :: rrf
     rrf = thisSim%rrf
-    write(*,*) 'getRrf = ', rrf
-  end function getRrf
+   end function getRrf
   
   function getRt() result(rt)
     real( kind = dp ) :: rt
     rt = thisSim%rt
-    write(*,*) 'getRt = ', rt
-  end function getRt
+   end function getRt
 
   function getDielect() result(dielect)
     real( kind = dp ) :: dielect