| Revision: | 2285 |
| Committed: | Wed Sep 7 20:46:46 2005 UTC (18 years, 10 months 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 |