--- trunk/OOPSE/libmdtools/atype_module.F90	2003/04/05 02:56:27	462
+++ trunk/OOPSE/libmdtools/atype_module.F90	2003/07/17 19:25:51	631
@@ -13,7 +13,7 @@ contains
   
 contains
   
-  subroutine new_atype(c_ident, is_LJ, is_Sticky, is_DP, is_GB, &
+  subroutine new_atype(c_ident, is_LJ, is_Sticky, is_DP, is_GB, is_EAM,&
        lj_epsilon, lj_sigma, dipole_moment, status)
     
     real( kind = dp ), intent(in) :: lj_epsilon
@@ -25,9 +25,11 @@ contains
     integer, intent(in)  :: is_Sticky
     integer, intent(in)  :: is_DP
     integer, intent(in)  :: is_GB
+    integer, intent(in)  :: is_EAM
     integer, intent(in)  :: is_LJ
     integer :: me
     logical :: l_is_LJ, l_is_DP, l_is_Sticky, l_is_GB
+    logical :: l_is_EAM
     integer :: FFcheckStatus
     status = 0
 
@@ -48,11 +50,13 @@ contains
     l_is_DP = (is_DP .ne. 0)
     l_is_Sticky = (is_Sticky .ne. 0)
     l_is_GB = (is_GB .ne. 0)
+    l_is_EAM = (is_EAM .ne. 0)
 
     call setElementProperty(atypes, me, "is_LJ", l_is_LJ)
     call setElementProperty(atypes, me, "is_DP", l_is_DP)
     call setElementProperty(atypes, me, "is_Sticky", l_is_Sticky)
     call setElementProperty(atypes, me, "is_GB", l_is_GB)
+    call setElementPorperty(atypes, me, "is_EAM", l_is_EAM)
 
     if (l_is_LJ) then
        call setElementProperty(atypes, me, "lj_sigma", lj_sigma)