# | 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 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |