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 388 by chuckv, Fri Mar 21 22:11:50 2003 UTC

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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines