25 |
C == Local variables == |
C == Local variables == |
26 |
CHARACTER*(MAX_LEN_MBUF) msgBuffer |
CHARACTER*(MAX_LEN_MBUF) msgBuffer |
27 |
INTEGER myTileId, nN |
INTEGER myTileId, nN |
28 |
INTEGER PI_TC2SC(2), PJ_TC2SC(2), O_TC2SC(2) |
c INTEGER PI_TC2SC(2), PJ_TC2SC(2), O_TC2SC(2) |
29 |
_RL SXDIR_TX2CX(2), SYDIR_TX2CX(2) |
c _RL SXDIR_TX2CX(2), SYDIR_TX2CX(2) |
30 |
INTEGER targetIlo, targetIhi, targetJlo, targetJhi |
INTEGER targetIlo, targetIhi, targetJlo, targetJhi |
31 |
INTEGER sourceIlo, sourceIhi, sourceJlo, sourceJhi |
INTEGER sourceIlo, sourceIhi, sourceJlo, sourceJhi |
32 |
INTEGER I, N, targetTile, myThid, targetProc, sourceProc |
INTEGER I, N, targetTile, myThid, targetProc, sourceProc |