--- trunk/OOPSE/libmdtools/calc_eam.F90	2003/12/17 20:13:33	882
+++ trunk/OOPSE/libmdtools/calc_eam.F90	2004/01/05 22:49:14	898
@@ -250,7 +250,6 @@ contains
   subroutine allocateEAM(status)
     integer, intent(out) :: status
 
-    integer :: nlocal
 #ifdef IS_MPI
     integer :: nrow
     integer :: ncol
@@ -258,7 +257,6 @@ contains
     integer :: alloc_stat
 
 
-    nlocal = getNlocal()
     status = 0
 #ifdef IS_MPI
     nrow = getNrow(plan_row)
@@ -658,7 +656,7 @@ contains
     integer, intent(in) ::  atom1, atom2
     real( kind = dp ), intent(in) :: rij, r2
     real( kind = dp ) :: pot
-    real( kind = dp ), dimension(3,getNlocal()) :: f
+    real( kind = dp ), dimension(3,nLocal) :: f
     real( kind = dp ), intent(in), dimension(3) :: d
     logical, intent(in) :: do_pot, do_stress