Go to the source code of this file.
|
subroutine | rksum (N1, N2, N3, localInterval, h, K1, K2, K3, K4, stateData) |
|
◆ rksum()
subroutine rksum |
( |
integer(kind=8), intent(in) |
N1, |
|
|
integer(kind=8), intent(in) |
N2, |
|
|
integer(kind=8), intent(in) |
N3, |
|
|
integer(kind=8), dimension(6), intent(in) |
localInterval, |
|
|
real(kind=8), intent(in) |
h, |
|
|
real(kind=8), dimension(n1*n2*n3), intent(in) |
K1, |
|
|
real(kind=8), dimension(n1*n2*n3), intent(in) |
K2, |
|
|
real(kind=8), dimension(n1*n2*n3), intent(in) |
K3, |
|
|
real(kind=8), dimension(n1*n2*n3), intent(in) |
K4, |
|
|
real(kind=8), dimension(n1*n2*n3), intent(inout) |
stateData |
|
) |
| |