| 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 |
