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 |