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