--- trunk/OOPSE/libmdtools/calc_sticky_pair.F90	2003/04/02 22:19:03	443
+++ trunk/OOPSE/libmdtools/calc_sticky_pair.F90	2003/04/04 22:22:30	460
@@ -9,12 +9,13 @@
 !! @author Matthew Meineke
 !! @author Christopher Fennel
 !! @author J. Daniel Gezelter
-!! @version $Id: calc_sticky_pair.F90,v 1.3 2003-04-02 22:19:03 mmeineke Exp $, $Date: 2003-04-02 22:19:03 $, $Name: not supported by cvs2svn $, $Revision: 1.3 $
+!! @version $Id: calc_sticky_pair.F90,v 1.4 2003-04-04 22:22:30 chuckv Exp $, $Date: 2003-04-04 22:22:30 $, $Name: not supported by cvs2svn $, $Revision: 1.4 $
 
 module sticky_pair
 
   use force_globals
   use definitions
+  use simulation
 #ifdef IS_MPI
   use mpiSimulation
 #endif
@@ -74,9 +75,9 @@ contains
     real (kind=dp), intent(inout) :: rij, r2
     real (kind=dp), dimension(3), intent(in) :: d
     real (kind=dp) :: pot
-    real (kind=dp), dimension(:,:) :: A
-    real (kind=dp), dimension(:,:) :: f
-    real (kind=dp), dimension(:,:) :: t
+    real (kind=dp), dimension(9,getNlocal()) :: A
+    real (kind=dp), dimension(3,getNlocal()) :: f
+    real (kind=dp), dimension(3,getNlocal()) :: t
     logical, intent(in) :: do_pot, do_stress
 
     real (kind=dp) :: xi, yi, zi, xj, yj, zj, xi2, yi2, zi2, xj2, yj2, zj2