1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
#include "CPP_OPTIONS.h" |
#include "CPP_EEOPTIONS.h" |
5 |
|
#include "W2_OPTIONS.h" |
6 |
|
|
7 |
SUBROUTINE EXCH2_RECV_RX1( |
SUBROUTINE EXCH2_RECV_RX1( |
8 |
I tIlo, tIhi, tiStride, |
I tIlo, tIhi, tiStride, |
19 |
|
|
20 |
IMPLICIT NONE |
IMPLICIT NONE |
21 |
|
|
22 |
C |
#include "SIZE.h" |
23 |
#include "W2_OPTIONS.h" |
#include "EEPARAMS.h" |
24 |
|
#include "EESUPPORT.h" |
25 |
#include "W2_EXCH2_TOPOLOGY.h" |
#include "W2_EXCH2_TOPOLOGY.h" |
26 |
|
|
|
#include "EEPARAMS.h" |
|
|
C |
|
27 |
C === Routine arguments === |
C === Routine arguments === |
28 |
C tIlo, tIhi, tIstride :: index range in I that will be filled in target "array" |
C tIlo, tIhi, tIstride :: index range in I that will be filled in target "array" |
29 |
C tJlo, tJhi, tJstride :: index range in J that will be filled in target "array" |
C tJlo, tJhi, tJstride :: index range in J that will be filled in target "array" |
94 |
INTEGER I |
INTEGER I |
95 |
|
|
96 |
C MPI setup |
C MPI setup |
|
#include "SIZE.h" |
|
|
#include "EESUPPORT.h" |
|
97 |
#ifdef ALLOW_USE_MPI |
#ifdef ALLOW_USE_MPI |
98 |
c INTEGER theTag, theSize, theType |
c INTEGER theTag, theSize, theType |
99 |
INTEGER theTag, theType |
INTEGER theTag, theType |