--- trunk/OOPSE/libmdtools/calc_eam.F90	2003/07/24 19:57:35	650
+++ trunk/OOPSE/libmdtools/calc_eam.F90	2003/07/25 20:00:17	653
@@ -84,7 +84,7 @@ module eam
 
 
   public :: init_EAM_FF
-!  public :: EAM_new_rcut
+  public :: setCutoffEAM
   public :: do_eam_pair
   public :: newEAMtype
   public :: calc_eam_prepair_rho
@@ -335,6 +335,18 @@ contains
 #endif
 
   end subroutine allocateEAM
+
+  subroutine setCutoffEAM(rcut, status)
+    real(kind=dp) :: rcut
+    integer :: status
+
+    if (rcut < EAM_rcut) then
+       EAM_rcut = rcut
+    endif
+
+
+  end subroutine setCutoffEAM
+
 
 
   subroutine clean_EAM()