--- trunk/OOPSE/libmdtools/wrappers.F90 2003/03/21 17:42:12 378 +++ trunk/OOPSE/libmdtools/wrappers.F90 2003/04/04 22:22:30 460 @@ -3,14 +3,17 @@ 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, ONLY: set_sticky_params + use gb, ONLY: set_gb_pair_params external infoWrapper - call infoWrapper(new_atype,init_FF,do_force_loop) + call infoWrapper(new_atype,init_FF,do_force_loop, & + LJ_new_rcut,set_sticky_params,set_gb_pair_params) end subroutine wrapForceField - subroutine wrapSimMod(infoWrapper) use simulation, only: simulationSetup, setBox_3d