# | Line 73 | Line 73 | contains | |
---|---|---|
73 | ||
74 | subroutine setSimulation(nLRParticles,box,rlist,rcut) | |
75 | integer, intent(in) :: nLRParticles | |
76 | < | real(kind = dp ), intent(in) :: box |
76 | > | real(kind = dp ), intent(in), dimension(3) :: box |
77 | real(kind = dp ), intent(in) :: rlist | |
78 | real(kind = dp ), intent(in) :: rcut | |
79 | ||
# | Line 218 | Line 218 | contains | |
218 | if(present(rcut2)) rcut2 = rcutsq | |
219 | if(present(rcut2)) rcut6 = rcut_6 | |
220 | ||
221 | – | |
221 | end subroutine getRcut | |
222 | ||
223 | + | |
224 | + | |
225 | + | |
226 | end module simulation |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |