--- trunk/OOPSE/libmdtools/do_Forces.F90 2003/10/28 16:03:37 829 +++ trunk/OOPSE/libmdtools/do_Forces.F90 2003/10/28 20:09:45 834 @@ -4,7 +4,7 @@ !! @author Charles F. Vardeman II !! @author Matthew Meineke -!! @version $Id: do_Forces.F90,v 1.32 2003-10-28 16:03:35 gezelter Exp $, $Date: 2003-10-28 16:03:35 $, $Name: not supported by cvs2svn $, $Revision: 1.32 $ +!! @version $Id: do_Forces.F90,v 1.33 2003-10-28 20:09:38 gezelter Exp $, $Date: 2003-10-28 20:09:38 $, $Name: not supported by cvs2svn $, $Revision: 1.33 $ module do_Forces use force_globals @@ -129,10 +129,10 @@ contains if (FF_uses_LJ) then select case (LJMIXPOLICY) - case (1) - call init_lj_FF(1, my_status) - case (2) - call init_lj_FF(2, my_status) + case (LB_MIXING_RULE) + call init_lj_FF(LB_MIXING_RULE, my_status) + case (EXPLICIT_MIXING_RULE) + call init_lj_FF(EXPLICIT_MIXING_RULE, my_status) case default write(default_error,*) 'unknown LJ Mixing Policy!' thisStat = -1