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 |
#define ALLOW_USE_MPI |
#undef ALLOW_USE_MPI |
102 |
#define ALWAYS_USE_MPI |
#undef 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 |
#undef REAL4_IS_SLOW |
#define REAL4_IS_SLOW |
123 |
|
|
124 |
#ifdef REAL4_IS_SLOW |
#ifdef REAL4_IS_SLOW |
125 |
#define real Real*8 |
#define real Real*8 |
171 |
C precision when they see .Dnn which runs very slowly! |
C precision when they see .Dnn which runs very slowly! |
172 |
#ifdef REAL_D0_IS_16BYTES |
#ifdef REAL_D0_IS_16BYTES |
173 |
#define _d |
#define _d |
174 |
|
#define _F64( a ) a |
175 |
#endif |
#endif |
176 |
#ifndef REAL_D0_IS_16BYTES |
#ifndef REAL_D0_IS_16BYTES |
177 |
#define _d D |
#define _d D |
178 |
|
#define _F64( a ) DFLOAT( a ) |
179 |
#endif |
#endif |
180 |
|
|
181 |
#endif /* _CPP_EEOPTIONS_H_ */ |
#endif /* _CPP_EEOPTIONS_H_ */ |