--- trunk/OOPSE/libmdtools/do_Forces.F90	2003/04/04 22:22:30	460
+++ trunk/OOPSE/libmdtools/do_Forces.F90	2003/04/05 02:56:27	462
@@ -4,7 +4,7 @@
 
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @version $Id: do_Forces.F90,v 1.9 2003-04-04 22:22:30 chuckv Exp $, $Date: 2003-04-04 22:22:30 $, $Name: not supported by cvs2svn $, $Revision: 1.9 $
+!! @version $Id: do_Forces.F90,v 1.10 2003-04-05 02:56:27 gezelter Exp $, $Date: 2003-04-05 02:56:27 $, $Name: not supported by cvs2svn $, $Revision: 1.10 $
 
 module do_Forces
   use force_globals
@@ -543,7 +543,7 @@ contains
        
        if ( is_DP_i .and. is_DP_j ) then
           
-          call do_dipole_pair(natoms,i, j, d, r, rijsq, pot, u_l, f, t, &
+          call do_dipole_pair(i, j, d, r, rijsq, pot, u_l, f, t, &
                do_pot, do_stress)
           if (FF_uses_RF .and. SimUsesRF()) then
              call accumulate_rf(i, j, r, u_l)