--- trunk/OOPSE/libmdtools/calc_sticky_pair.F90 2003/08/27 16:25:11 730 +++ trunk/OOPSE/libmdtools/calc_sticky_pair.F90 2003/10/29 20:41:39 843 @@ -9,7 +9,7 @@ !! @author Matthew Meineke !! @author Christopher Fennel !! @author J. Daniel Gezelter -!! @version $Id: calc_sticky_pair.F90,v 1.14 2003-08-27 16:25:11 gezelter Exp $, $Date: 2003-08-27 16:25:11 $, $Name: not supported by cvs2svn $, $Revision: 1.14 $ +!! @version $Id: calc_sticky_pair.F90,v 1.15 2003-10-29 20:41:38 mmeineke Exp $, $Date: 2003-10-29 20:41:38 $, $Name: not supported by cvs2svn $, $Revision: 1.15 $ module sticky_pair @@ -118,6 +118,7 @@ contains return endif + if ( rij .LE. SSD_rbig ) then r3 = r2*rij