--- trunk/OOPSE/libmdtools/calc_LJ_FF.F90	2004/01/06 18:54:57	900
+++ trunk/OOPSE/libmdtools/calc_LJ_FF.F90	2004/02/09 14:48:57	1041
@@ -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.15 2004-01-06 18:54:57 chuckv Exp $, $Date: 2004-01-06 18:54:57 $, $Name: not supported by cvs2svn $, $Revision: 1.15 $
+!! @version $Id: calc_LJ_FF.F90,v 1.17 2004-02-09 14:48:57 chrisfen Exp $, $Date: 2004-02-09 14:48:57 $, $Name: not supported by cvs2svn $, $Revision: 1.17 $
 
 module lj
   use definitions
@@ -93,6 +93,8 @@ contains
     status = 0
 
     LJ_rcut = rcut
+!!$    ! ATTENTION! This is a hardwiring of rcut!
+!!$    LJ_rcut = 9.0d0
     haveCut = .true.
 
     if (havePolicy) then
@@ -209,7 +211,6 @@ contains
     real( kind = dp ) :: delta
     integer :: id1, id2
 
-
     if (rij.lt.LJ_rcut)  then
 
        ! Look up the correct parameters in the mixing matrix