--- trunk/OOPSE/libmdtools/calc_dipole_dipole.F90	2003/10/29 20:41:39	843
+++ trunk/OOPSE/libmdtools/calc_dipole_dipole.F90	2004/01/05 22:49:14	898
@@ -49,9 +49,9 @@ contains
 
     real( kind = dp ) :: pot
     real( kind = dp ), dimension(3) :: d
-    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
     
     real (kind = dp), dimension(3) :: ul1
     real (kind = dp), dimension(3) :: ul2