29 |
#define W2_USE_E2_SAFEMODE |
#define W2_USE_E2_SAFEMODE |
30 |
|
|
31 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
|
CHARACTER*(MAX_LEN_MBUF) messageBuffer |
|
32 |
C |
C |
33 |
C === Routine arguments === |
C === Routine arguments === |
34 |
INTEGER tILo, tIHi, tiStride |
INTEGER tILo, tIHi, tiStride |
55 |
C :: isl etc... source local |
C :: isl etc... source local |
56 |
C :: isc etc... source canonical |
C :: isc etc... source canonical |
57 |
INTEGER itl, jtl, ktl |
INTEGER itl, jtl, ktl |
58 |
INTEGER itc, jtc, ktc |
INTEGER itc, jtc |
59 |
INTEGER isc, jsc, ksc |
INTEGER isc, jsc |
60 |
INTEGER isl, jsl, ksl |
INTEGER isl, jsl |
61 |
|
c INTEGER ktc, ksc, ksl |
62 |
C tt :: Target tile |
C tt :: Target tile |
63 |
C itb, jtb :: Target local to canonical offsets |
C itb, jtb :: Target local to canonical offsets |
64 |
C |
C |
74 |
C MPI setup |
C MPI setup |
75 |
#include "SIZE.h" |
#include "SIZE.h" |
76 |
#include "EESUPPORT.h" |
#include "EESUPPORT.h" |
77 |
|
#ifdef ALLOW_USE_MPI |
78 |
INTEGER theTag1, theTag2, theType, theHandle1, theHandle2 |
INTEGER theTag1, theTag2, theType, theHandle1, theHandle2 |
79 |
INTEGER sProc, tProc, mpiRc |
INTEGER sProc, tProc, mpiRc |
80 |
|
#endif |
81 |
|
CHARACTER*(MAX_LEN_MBUF) messageBuffer |
82 |
|
|
83 |
IF ( commSetting .EQ. 'P' ) THEN |
IF ( commSetting .EQ. 'P' ) THEN |
84 |
C Need to check that buffer synchronisation token is decremented |
C Need to check that buffer synchronisation token is decremented |