--- trunk/OOPSE/libmdtools/wrappers.F90	2003/07/16 21:30:56	626
+++ trunk/OOPSE/libmdtools/wrappers.F90	2003/07/30 21:17:01	657
@@ -5,10 +5,11 @@ subroutine wrapForceField(infoWrapper)
   use do_Forces, ONLY: init_FF, do_force_loop
   use sticky_pair, ONLY: set_sticky_params
   use gb_pair, ONLY: set_gb_pair_params
+  use eam, ONLY: newEAMtype
   external infoWrapper
 
   call infoWrapper(new_atype,init_FF,do_force_loop, &
-       set_sticky_params,set_gb_pair_params)
+       set_sticky_params,set_gb_pair_params,newEAMtype)
   
 end subroutine wrapForceField