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

Comparing trunk/OOPSE/libmdtools/f_verlet_constrained.F90 (file contents):
Revision 378 by mmeineke, Fri Mar 21 17:42:12 2003 UTC vs.
Revision 389 by mmeineke, Mon Mar 24 15:26:05 2003 UTC

# Line 57 | Line 57 | subroutine v_constrain_a(dt,natoms,mass,rx,ry,rz, &
57    
58    double precision e_convert
59    parameter ( e_convert = 4.184d-4 )
60  
60    
61 +
62    DT2   = DT / 2.0d0
63    DTSQ2 = DT * DT2
64    

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines