50 |
|
!! @author Matthew Meineke |
51 |
|
!! @author Christopher Fennell |
52 |
|
!! @author J. Daniel Gezelter |
53 |
< |
!! @version $Id: sticky.F90,v 1.11 2005-05-18 18:31:40 chrisfen Exp $, $Date: 2005-05-18 18:31:40 $, $Name: not supported by cvs2svn $, $Revision: 1.11 $ |
53 |
> |
!! @version $Id: sticky.F90,v 1.12 2005-05-18 19:06:22 chrisfen Exp $, $Date: 2005-05-18 19:06:22 $, $Name: not supported by cvs2svn $, $Revision: 1.12 $ |
54 |
|
|
55 |
|
module sticky |
56 |
|
|
651 |
|
|
652 |
|
call calc_sw_fnc(rij, rl, ru, rlp, rup, s, sp, dsdr, dspdr) |
653 |
|
|
654 |
< |
frac1 = 0.6d0 |
655 |
< |
frac2 = 0.0d0 |
654 |
> |
frac1 = 1.5d0 |
655 |
> |
frac2 = 0.5d0 |
656 |
|
|
657 |
|
wi = 2.0d0*(xi2-yi2)*zi*rI3 |
658 |
|
wj = 2.0d0*(xj2-yj2)*zj*rI3 |