--- trunk/OOPSE/libmdtools/calc_gb.F90	2003/08/27 16:25:11	730
+++ trunk/OOPSE/libmdtools/calc_gb.F90	2004/01/05 22:49:14	898
@@ -55,9 +55,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(3,getNlocal()) :: u_l
-    real (kind=dp), dimension(3,getNlocal()) :: f
-    real (kind=dp), dimension(3,getNlocal()) :: t
+    real (kind=dp), dimension(3,nLocal) :: u_l
+    real (kind=dp), dimension(3,nLocal) :: f
+    real (kind=dp), dimension(3,nLocal) :: t
     logical, intent(in) :: do_pot, do_stress
     real (kind = dp), dimension(3) :: ul1
     real (kind = dp), dimension(3) :: ul2