| 92 |
|
|
| 93 |
|
end subroutine notifyFortranSkinThickness |
| 94 |
|
|
| 95 |
< |
subroutine notifyFortranCutoffs(this_rcut, this_rsw) |
| 95 |
> |
subroutine notifyFortranCutoffs(this_rcut, this_rsw, this_sp, this_sf) |
| 96 |
|
use doForces, ONLY : setCutoffs |
| 97 |
|
use definitions, ONLY : dp |
| 98 |
|
|
| 99 |
|
real(kind=dp), intent(in) :: this_rcut, this_rsw |
| 100 |
+ |
logical, intent(in) :: this_sp, this_sf |
| 101 |
|
|
| 102 |
< |
call setCutoffs(this_rcut, this_rsw) |
| 102 |
> |
call setCutoffs(this_rcut, this_rsw, this_sp, this_sf) |
| 103 |
|
|
| 104 |
|
end subroutine notifyFortranCutoffs |
| 105 |
|
|
