106 |
#endif |
#endif |
107 |
|
|
108 |
tt=exch2_neighbourId(nN, thisTile ) |
tt=exch2_neighbourId(nN, thisTile ) |
109 |
oN=exch2_opposingSend_record(nN, thisTile ) |
oN=exch2_opposingSend(nN, thisTile ) |
110 |
|
|
111 |
C Handle receive end data transport according to communication mechanism between |
C Handle receive end data transport according to communication mechanism between |
112 |
C source and target tile |
C source and target tile |
115 |
C assume only one thread per process. |
C assume only one thread per process. |
116 |
|
|
117 |
C 2 Need to set e2Bufr to use put buffer from opposing send. |
C 2 Need to set e2Bufr to use put buffer from opposing send. |
118 |
oN = exch2_opposingSend_record(nN, thisTile ) |
oN = exch2_opposingSend(nN, thisTile ) |
119 |
mb = oN |
mb = oN |
120 |
DO I=1,nt |
DO I=1,nt |
121 |
IF ( myTiles(I) .EQ. tt ) THEN |
IF ( myTiles(I) .EQ. tt ) THEN |