--- trunk/OOPSE/libmdtools/calc_dipole_dipole.F90	2003/04/02 22:19:03	443
+++ trunk/OOPSE/libmdtools/calc_dipole_dipole.F90	2003/04/04 19:57:01	459
@@ -31,11 +31,12 @@ contains
   end subroutine initialize_dipole
 
 
-  subroutine do_dipole_pair(atom1, atom2, d, rij, r2, pot, u_l, f, t, &
+  subroutine do_dipole_pair(natoms, atom1, atom2, d, rij, r2, pot, u_l, f, t, &
        do_pot, do_stress)
     
     logical :: do_pot, do_stress
 
+    integer :: natoms
     integer atom1, atom2, me1, me2
     real(kind=dp) :: rij, mu1, mu2
     real(kind=dp) :: dfact1, dfact2, dip2, r2, r3, r5, pre