--- trunk/OOPSE/libmdtools/calc_LJ_FF.F90 2003/07/15 22:22:41 619 +++ trunk/OOPSE/libmdtools/calc_LJ_FF.F90 2003/07/16 16:40:03 623 @@ -2,7 +2,7 @@ !! Corresponds to the force field defined in lj_FF.cpp !! @author Charles F. Vardeman II !! @author Matthew Meineke -!! @version $Id: calc_LJ_FF.F90,v 1.8 2003-07-15 22:22:41 mmeineke Exp $, $Date: 2003-07-15 22:22:41 $, $Name: not supported by cvs2svn $, $Revision: 1.8 $ +!! @version $Id: calc_LJ_FF.F90,v 1.9 2003-07-16 16:40:03 chuckv Exp $, $Date: 2003-07-16 16:40:03 $, $Name: not supported by cvs2svn $, $Revision: 1.9 $ module lj use definitions @@ -119,10 +119,7 @@ contains if (.not. associated(ljMixed)) then allocate(ljMixed(nAtypes, nAtypes)) - else - status = -1 - return - end if + endif rcut6 = LJ_rcut**6