22 |
#include "SIZE.h" |
#include "SIZE.h" |
23 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
24 |
#include "EESUPPORT.h" |
#include "EESUPPORT.h" |
25 |
|
#include "W2_EXCH2_SIZE.h" |
26 |
#include "W2_EXCH2_TOPOLOGY.h" |
#include "W2_EXCH2_TOPOLOGY.h" |
27 |
|
|
28 |
C === Routine arguments === |
C === Routine arguments === |
131 |
nb = thisI |
nb = thisI |
132 |
mb = nN |
mb = nN |
133 |
ir = 2 |
ir = 2 |
134 |
theTag = (tt-1)*MAX_NEIGHBOURS + oN |
theTag = (tt-1)*W2_maxNeighbours + oN |
135 |
tProc = exch2_tProc(thisTile)-1 |
tProc = exch2_tProc(thisTile)-1 |
136 |
sProc = exch2_tProc(tt)-1 |
sProc = exch2_tProc(tt)-1 |
137 |
theType = MPI_REAL8 |
theType = MPI_REAL8 |