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