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