subroutine hecmw_solver_sr_66i::hecmw_solve_send_recv_66i |
( |
integer(kind=kint ), intent(in) |
N, |
|
|
integer(kind=kint ), intent(in) |
NEIBPETOT, |
|
|
integer(kind=kint ), dimension (:), pointer |
NEIBPE, |
|
|
integer(kind=kint ), dimension(:), pointer |
STACK_IMPORT, |
|
|
integer(kind=kint ), dimension (:), pointer |
NOD_IMPORT, |
|
|
integer(kind=kint ), dimension(:), pointer |
STACK_EXPORT, |
|
|
integer(kind=kint ), dimension (:), pointer |
NOD_EXPORT, |
|
|
integer(kind=kint ), dimension(: ), intent(inout) |
WS, |
|
|
integer(kind=kint ), dimension(: ), intent(inout) |
WR, |
|
|
integer(kind=kint ), dimension(: ), intent(inout) |
X, |
|
|
integer(kind=kint ), intent(in) |
SOLVER_COMM, |
|
|
integer(kind=kint ), intent(in) |
my_rank |
|
) |
| |