--- trunk/OOPSE/libmdtools/do_Forces.F90	2003/04/04 19:57:01	459
+++ trunk/OOPSE/libmdtools/do_Forces.F90	2003/04/04 22:22:30	460
@@ -4,7 +4,7 @@
 
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @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 $
+!! @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 $
 
 module do_Forces
   use force_globals
@@ -499,10 +499,10 @@ contains
   subroutine do_pair(i, j, rijsq, d, do_pot, do_stress, u_l, A, f, t, pot)
 
     real( kind = dp ) :: pot
-    real( kind = dp ), dimension(:,:) :: u_l
-    real (kind=dp), dimension(:,:) :: A
-    real (kind=dp), dimension(:,:) :: f
-    real (kind=dp), dimension(:,:) :: t
+    real( kind = dp ), dimension(3,getNlocal()) :: u_l
+    real (kind=dp), dimension(9,getNlocal()) :: A
+    real (kind=dp), dimension(3,getNlocal()) :: f
+    real (kind=dp), dimension(3,getNlocal()) :: t
 
     logical, intent(inout) :: do_pot, do_stress
     integer, intent(in) :: i, j