| 1 |
|
module notifyCutoffs |
| 2 |
|
|
| 3 |
|
use definitions |
| 4 |
< |
use do_Forces, only: setRlistDF |
| 4 |
> |
use doForces, only: setRlistDF |
| 5 |
|
use reaction_field, only: setCutoffsRF |
| 6 |
|
use lj, only: setCutoffLJ |
| 7 |
|
use eam, only: setCutoffEAM |
| 75 |
|
end subroutine cutoffNotify |
| 76 |
|
|
| 77 |
|
end module notifyCutoffs |
| 78 |
+ |
|
| 79 |
+ |
subroutine notifyFortranCutoffs(this_rcut, this_rsw, this_rlist ) |
| 80 |
+ |
use notifyCutoffs |
| 81 |
+ |
use definitions, ONLY : dp |
| 82 |
+ |
|
| 83 |
+ |
real(kind=dp), intent(in) :: this_rcut, this_rsw, this_rlist |
| 84 |
+ |
|
| 85 |
+ |
call cutoffNotify(this_rcut, this_rsw, this_rlist ) |
| 86 |
+ |
|
| 87 |
+ |
end subroutine |
