ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE_old/src/mdtools/libmdCode/calc_dipole_dipole.F90
(Generate patch)

Comparing trunk/OOPSE_old/src/mdtools/libmdCode/calc_dipole_dipole.F90 (file contents):
Revision 309 by gezelter, Mon Mar 10 23:19:23 2003 UTC vs.
Revision 312 by gezelter, Tue Mar 11 17:46:18 2003 UTC

# Line 12 | Line 12 | module dipole_dipole
12    contains
13    
14    subroutine do_dipole_pair(atom1, atom2, atype1, atype2, dx, dy, dz, rij, &
15 <       rt, rrf, pot, u_l, f, t)
15 >       pot, u_l, f, t)
16      
17      integer atom1, atom2
18      double precision dx, dy, dz, rij
# Line 49 | Line 49 | module dipole_dipole
49      ul1(3) = u_l(3,atom2)
50   #endif
51  
52 +    rrf = getRrf()
53 +    rt = getRt()
54 +
55      ! pre converts from mu in units of debye to kcal/mol
56      pre = 14.38362d0
57      

Diff Legend

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