Revision: | 2285 |
Committed: | Wed Sep 7 20:46:46 2005 UTC (19 years ago) by gezelter |
File size: | 327 byte(s) |
Log Message: | adding c-side interface to change cutoff Policy |
# | Content |
---|---|
1 | subroutine notifyFortranCutoffs(this_rcut, this_rsw, this_rlist, cutPolicy) |
2 | use notifyCutoffs |
3 | use definitions, ONLY : dp |
4 | |
5 | real(kind=dp), intent(in) :: this_rcut, this_rsw, this_rlist |
6 | integer, intent(in) :: cutPolicy |
7 | |
8 | call cutoffNotify(this_rcut, this_rsw, this_rlist, cutPolicy ) |
9 | |
10 | end subroutine notifyFortranCutoffs |