ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE/libmdtools/simulation_module.F90
(Generate patch)

Comparing trunk/OOPSE/libmdtools/simulation_module.F90 (file contents):
Revision 618 by mmeineke, Tue Jul 15 21:34:56 2003 UTC vs.
Revision 619 by mmeineke, Tue Jul 15 22:22:41 2003 UTC

# Line 245 | Line 245 | contains
245    function getRrf() result(rrf)
246      real( kind = dp ) :: rrf
247      rrf = thisSim%rrf
248 <    write(*,*) 'getRrf = ', rrf
249 <  end function getRrf
248 >   end function getRrf
249    
250    function getRt() result(rt)
251      real( kind = dp ) :: rt
252      rt = thisSim%rt
253 <    write(*,*) 'getRt = ', rt
255 <  end function getRt
253 >   end function getRt
254  
255    function getDielect() result(dielect)
256      real( kind = dp ) :: dielect

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines