--- trunk/OOPSE/libmdtools/calc_gb.F90	2003/03/21 17:42:12	378
+++ trunk/OOPSE/libmdtools/calc_gb.F90	2003/04/04 22:22:30	460
@@ -1,6 +1,7 @@
 module gb_pair
   use force_globals
   use definitions
+  use simulation
 #ifdef IS_MPI
   use mpiSimulation
 #endif
@@ -53,9 +54,9 @@ contains
     real (kind=dp), intent(inout) :: r, r2
     real (kind=dp), dimension(3), intent(in) :: d
     real (kind=dp) :: pot
-    real (kind=dp), dimension(:,:) :: u_l
-    real (kind=dp), dimension(:,:) :: f
-    real (kind=dp), dimension(:,:) :: t
+    real (kind=dp), dimension(3,getNlocal()) :: u_l
+    real (kind=dp), dimension(3,getNlocal()) :: f
+    real (kind=dp), dimension(3,getNlocal()) :: t
     logical, intent(in) :: do_pot, do_stress
     real (kind = dp), dimension(3) :: ul1
     real (kind = dp), dimension(3) :: ul2