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 |
126 |
#define REAL Real*8 |
#define REAL Real*8 |
127 |
#define _RS Real*8 |
#define _RS Real*8 |
128 |
#define _RL Real*8 |
#define _RL Real*8 |
129 |
|
#define RS_IS_REAL8 |
130 |
#define _EXCH_XY_R4(a,b) CALL EXCH_XY_R8 ( a, b ) |
#define _EXCH_XY_R4(a,b) CALL EXCH_XY_R8 ( a, b ) |
131 |
#define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_R8 ( a, b ) |
#define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_R8 ( a, b ) |
132 |
#define _GLOBAL_SUM_R4(a,b,c) CALL GLOBAL_SUM_R8( a, b , c) |
#define _GLOBAL_SUM_R4(a,b,c) CALL GLOBAL_SUM_R8( a, b , c) |
138 |
#define REAL Real*8 |
#define REAL Real*8 |
139 |
#define _RS Real*4 |
#define _RS Real*4 |
140 |
#define _RL Real*8 |
#define _RL Real*8 |
141 |
|
#define RS_IS_REAL4 |
142 |
#define _EXCH_XY_R4(a,b) CALL EXCH_XY_R4 ( a, b ) |
#define _EXCH_XY_R4(a,b) CALL EXCH_XY_R4 ( a, b ) |
143 |
#define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_R4 ( a, b ) |
#define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_R4 ( a, b ) |
144 |
#define _GLOBAL_SUM_R4(a,b,c) CALL GLOBAL_SUM_R4( a, b , c) |
#define _GLOBAL_SUM_R4(a,b,c) CALL GLOBAL_SUM_R4( a, b , c) |
173 |
C precision when they see .Dnn which runs very slowly! |
C precision when they see .Dnn which runs very slowly! |
174 |
#ifdef REAL_D0_IS_16BYTES |
#ifdef REAL_D0_IS_16BYTES |
175 |
#define _d |
#define _d |
176 |
|
#define _F64( a ) a |
177 |
#endif |
#endif |
178 |
#ifndef REAL_D0_IS_16BYTES |
#ifndef REAL_D0_IS_16BYTES |
179 |
#define _d D |
#define _d D |
180 |
|
#define _F64( a ) DFLOAT( a ) |
181 |
#endif |
#endif |
182 |
|
|
183 |
#endif /* _CPP_EEOPTIONS_H_ */ |
#endif /* _CPP_EEOPTIONS_H_ */ |