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 443 by mmeineke, Wed Apr 2 22:19:03 2003 UTC vs.
Revision 459 by mmeineke, Fri Apr 4 19:57:01 2003 UTC

# Line 31 | Line 31 | contains
31    end subroutine initialize_dipole
32  
33  
34 <  subroutine do_dipole_pair(atom1, atom2, d, rij, r2, pot, u_l, f, t, &
34 >  subroutine do_dipole_pair(natoms, atom1, atom2, d, rij, r2, pot, u_l, f, t, &
35         do_pot, do_stress)
36      
37      logical :: do_pot, do_stress
38  
39 +    integer :: natoms
40      integer atom1, atom2, me1, me2
41      real(kind=dp) :: rij, mu1, mu2
42      real(kind=dp) :: dfact1, dfact2, dip2, r2, r3, r5, pre

Diff Legend

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