--- trunk/OOPSE/libmdtools/wrappers.F90 2003/07/02 21:26:55 572 +++ trunk/OOPSE/libmdtools/wrappers.F90 2003/07/16 21:30:56 626 @@ -3,23 +3,23 @@ subroutine wrapForceField(infoWrapper) use atype_module, ONLY: new_atype use do_Forces, ONLY: init_FF, do_force_loop - use lj, ONLY: LJ_new_rcut use sticky_pair, ONLY: set_sticky_params use gb_pair, ONLY: set_gb_pair_params external infoWrapper call infoWrapper(new_atype,init_FF,do_force_loop, & - LJ_new_rcut,set_sticky_params,set_gb_pair_params) + set_sticky_params,set_gb_pair_params) end subroutine wrapForceField subroutine wrapSimMod(infoWrapper) use simulation, only: simulationSetup, setBox + use notifyCutoffs, only: cutoffNotify external infoWrapper - call infoWrapper( simulationSetup, setBox ) + call infoWrapper( simulationSetup, setBox, cutoffNotify ) end subroutine wrapSimMod