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