196 |
& westSendBuf_RS, eastSendBuf_RS, |
& westSendBuf_RS, eastSendBuf_RS, |
197 |
& southSendBuf_RS, northSendBuf_RS, |
& southSendBuf_RS, northSendBuf_RS, |
198 |
& westRecvBuf_RS, eastRecvBuf_RS, |
& westRecvBuf_RS, eastRecvBuf_RS, |
199 |
& southRecvBuf_RS, northRecvBuf_RS |
& southRecvBuf_RS, northRecvBuf_RS, |
200 |
|
& westSendBuf_R8, eastSendBuf_R8, |
201 |
|
& southSendBuf_R8, northSendBuf_R8, |
202 |
|
& westRecvBuf_R8, eastRecvBuf_R8, |
203 |
|
& southRecvBuf_R8, northRecvBuf_R8, |
204 |
|
& westSendBuf_R4, eastSendBuf_R4, |
205 |
|
& southSendBuf_R4, northSendBuf_R4, |
206 |
|
& westRecvBuf_R4, eastRecvBuf_R4, |
207 |
|
& southRecvBuf_R4, northRecvBuf_R4 |
208 |
_RL westSendBuf_RL( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS, |
_RL westSendBuf_RL( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS, |
209 |
& nSx, nSy ) |
& nSx, nSy ) |
210 |
_RL eastSendBuf_RL( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS, |
_RL eastSendBuf_RL( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS, |
237 |
& nSx, nSy ) |
& nSx, nSy ) |
238 |
_RS northRecvBuf_RS( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS, |
_RS northRecvBuf_RS( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS, |
239 |
& nSx, nSy ) |
& nSx, nSy ) |
240 |
|
_R8 westSendBuf_R8( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS, |
241 |
|
& nSx, nSy ) |
242 |
|
_R8 eastSendBuf_R8( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS, |
243 |
|
& nSx, nSy ) |
244 |
|
_R8 southSendBuf_R8( L_SBUFFER, NUMBER_OF_BUFFER_LEVELS, |
245 |
|
& nSx, nSy ) |
246 |
|
_R8 northSendBuf_R8( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS, |
247 |
|
& nSx, nSy ) |
248 |
|
_R8 westRecvBuf_R8( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS, |
249 |
|
& nSx, nSy ) |
250 |
|
_R8 eastRecvBuf_R8( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS, |
251 |
|
& nSx, nSy ) |
252 |
|
_R8 southRecvBuf_R8( L_SBUFFER, NUMBER_OF_BUFFER_LEVELS, |
253 |
|
& nSx, nSy ) |
254 |
|
_R8 northRecvBuf_R8( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS, |
255 |
|
& nSx, nSy ) |
256 |
|
_R4 westSendBuf_R4( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS, |
257 |
|
& nSx, nSy ) |
258 |
|
_R4 eastSendBuf_R4( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS, |
259 |
|
& nSx, nSy ) |
260 |
|
_R4 southSendBuf_R4( L_SBUFFER, NUMBER_OF_BUFFER_LEVELS, |
261 |
|
& nSx, nSy ) |
262 |
|
_R4 northSendBuf_R4( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS, |
263 |
|
& nSx, nSy ) |
264 |
|
_R4 westRecvBuf_R4( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS, |
265 |
|
& nSx, nSy ) |
266 |
|
_R4 eastRecvBuf_R4( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS, |
267 |
|
& nSx, nSy ) |
268 |
|
_R4 southRecvBuf_R4( L_SBUFFER, NUMBER_OF_BUFFER_LEVELS, |
269 |
|
& nSx, nSy ) |
270 |
|
_R4 northRecvBuf_R4( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS, |
271 |
|
& nSx, nSy ) |
272 |
|
|
273 |
C-- COMMON / EXCH_I / INTEGER common arrays for exchanges |
C-- COMMON / EXCH_I / INTEGER common arrays for exchanges |
274 |
C xxxxSendAck - Flag indicating ready to send data. |
C xxxxSendAck - Flag indicating ready to send data. |