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

Comparing trunk/OOPSE/libmdtools/calc_dipole_dipole.F90 (file contents):
Revision 611 by gezelter, Tue Jul 15 17:10:50 2003 UTC vs.
Revision 621 by gezelter, Wed Jul 16 02:11:02 2003 UTC

# Line 31 | Line 31 | contains
31      return
32    end subroutine initialize_dipole
33  
34 –
34    subroutine do_dipole_pair(atom1, atom2, d, rij, r2, pot, u_l, f, t, &
35         do_pot, do_stress)
36      

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines