subroutine hecmw_solver_sr_66::hecmw_solve_send_recv_66 |
( |
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, |
|
|
real (kind=kreal), dimension(: ), intent(inout) |
ws, |
|
|
real (kind=kreal), dimension(: ), intent(inout) |
wr, |
|
|
real (kind=kreal), dimension(: ), intent(inout) |
x, |
|
|
integer(kind=kint ), intent(in) |
solver_comm, |
|
|
integer(kind=kint ), intent(in) |
my_rank |
|
) |
| |