439 |
|
end subroutine checkSummationMethod |
440 |
|
|
441 |
|
|
442 |
< |
subroutine doElectrostaticPair(atom1, atom2, d, rij, r2, sw, & |
442 |
> |
subroutine doElectrostaticPair(atom1, atom2, d, rij, r2, rcut, sw, & |
443 |
|
vpair, fpair, pot, eFrame, f, t, do_pot) |
444 |
|
|
445 |
|
logical, intent(in) :: do_pot |
447 |
|
integer, intent(in) :: atom1, atom2 |
448 |
|
integer :: localError |
449 |
|
|
450 |
< |
real(kind=dp), intent(in) :: rij, r2, sw |
450 |
> |
real(kind=dp), intent(in) :: rij, r2, sw, rcut |
451 |
|
real(kind=dp), intent(in), dimension(3) :: d |
452 |
|
real(kind=dp), intent(inout) :: vpair |
453 |
|
real(kind=dp), intent(inout), dimension(3) :: fpair |