--- trunk/OOPSE/libmdtools/simulation_module.F90	2003/03/21 22:11:50	388
+++ trunk/OOPSE/libmdtools/simulation_module.F90	2003/03/24 21:55:34	394
@@ -281,6 +281,7 @@ contains
   function getRrf() result(rrf)
     real( kind = dp ) :: rrf
     rrf = thisSim%rrf
+    write(*,*) 'getRrf = ', rrf, thisSim%rrf
   end function getRrf
   
   function getRt() result(rt)