--- trunk/OOPSE/libmdtools/do_Forces.F90	2003/04/01 16:50:14	441
+++ trunk/OOPSE/libmdtools/do_Forces.F90	2003/04/04 19:57:01	459
@@ -4,7 +4,7 @@
 
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @version $Id: do_Forces.F90,v 1.7 2003-04-01 16:50:14 chuckv Exp $, $Date: 2003-04-01 16:50:14 $, $Name: not supported by cvs2svn $, $Revision: 1.7 $
+!! @version $Id: do_Forces.F90,v 1.8 2003-04-04 19:57:01 mmeineke Exp $, $Date: 2003-04-04 19:57:01 $, $Name: not supported by cvs2svn $, $Revision: 1.8 $
 
 module do_Forces
   use force_globals
@@ -246,7 +246,7 @@ contains
        
        !! save current configuration, construct neighbor list, 
        !! and calculate forces
-       call saveNeighborList(q)
+       call saveNeighborList(nlocal, q)
        
        neighborListSize = size(list)
        nlist = 0       
@@ -313,7 +313,7 @@ contains
        
        ! save current configuration, contruct neighbor list, 
        ! and calculate forces
-       call saveNeighborList(q)
+       call saveNeighborList(natoms, q)
        
        neighborListSize = size(list)
    
@@ -543,7 +543,7 @@ contains
        
        if ( is_DP_i .and. is_DP_j ) then
           
-          call do_dipole_pair(i, j, d, r, rijsq, pot, u_l, f, t, &
+          call do_dipole_pair(natoms,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)