98 |
#define _END_MASTER(a) ENDIF |
#define _END_MASTER(a) ENDIF |
99 |
|
|
100 |
C-- Control MPI based parallel processing |
C-- Control MPI based parallel processing |
101 |
#undef ALLOW_USE_MPI |
#define ALLOW_USE_MPI |
102 |
#undef ALWAYS_USE_MPI |
#define ALWAYS_USE_MPI |
103 |
|
|
104 |
C-- Control use of communication that might overlap computation. |
C-- Control use of communication that might overlap computation. |
105 |
C Under MPI selects/deselects "non-blocking" sends and receives. |
C Under MPI selects/deselects "non-blocking" sends and receives. |
119 |
C boosting performance because of a smaller working |
C boosting performance because of a smaller working |
120 |
C set size. However, on vector CRAY systems this degrades |
C set size. However, on vector CRAY systems this degrades |
121 |
C performance. |
C performance. |
122 |
#define REAL4_IS_SLOW |
#undef REAL4_IS_SLOW |
123 |
|
|
124 |
#ifdef REAL4_IS_SLOW |
#ifdef REAL4_IS_SLOW |
125 |
#define real Real*8 |
#define real Real*8 |