122 |
#ifdef REAL4_IS_SLOW |
#ifdef REAL4_IS_SLOW |
123 |
#define _RS Real*8 |
#define _RS Real*8 |
124 |
#define RS_IS_REAL8 |
#define RS_IS_REAL8 |
125 |
|
#define _EXCH_XY_RS(a,b) CALL EXCH_XY_RL ( a, b ) |
126 |
|
#define _EXCH_XYZ_RS(a,b) CALL EXCH_XYZ_RL ( a, b ) |
127 |
|
#define _EXCH_XY_R4(a,b) CALL EXCH_XY_RL ( a, b ) |
128 |
|
#define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_RL ( a, b ) |
129 |
#define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R8 ( a, b) |
#define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R8 ( a, b) |
130 |
#define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R8 ( a, b ) |
#define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R8 ( a, b ) |
131 |
#define _MPI_TYPE_RS MPI_DOUBLE_PRECISION |
#define _MPI_TYPE_RS MPI_DOUBLE_PRECISION |
132 |
#else |
#else |
133 |
#define _RS Real*4 |
#define _RS Real*4 |
134 |
#define RS_IS_REAL4 |
#define RS_IS_REAL4 |
135 |
|
#define _EXCH_XY_RS(a,b) CALL EXCH_XY_RS ( a, b ) |
136 |
|
#define _EXCH_XYZ_RS(a,b) CALL EXCH_XYZ_RS ( a, b ) |
137 |
|
#define _EXCH_XY_R4(a,b) CALL EXCH_XY_RS ( a, b ) |
138 |
|
#define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_RS ( a, b ) |
139 |
#define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R4 ( a, b ) |
#define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R4 ( a, b ) |
140 |
#define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R4 ( a, b ) |
#define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R4 ( a, b ) |
141 |
#define _MPI_TYPE_RS MPI_REAL |
#define _MPI_TYPE_RS MPI_REAL |
142 |
#endif |
#endif |
|
#define _EXCH_XY_R4(a,b) CALL EXCH_XY_RL ( a, b ) |
|
|
#define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_RL ( a, b ) |
|
143 |
|
|
144 |
#define _RL Real*8 |
#define _RL Real*8 |
145 |
#define RL_IS_REAL8 |
#define RL_IS_REAL8 |
146 |
|
#define _EXCH_XY_RL(a,b) CALL EXCH_XY_RL ( a, b ) |
147 |
|
#define _EXCH_XYZ_RL(a,b) CALL EXCH_XYZ_RL ( a, b ) |
148 |
#define _EXCH_XY_R8(a,b) CALL EXCH_XY_RL ( a, b ) |
#define _EXCH_XY_R8(a,b) CALL EXCH_XY_RL ( a, b ) |
149 |
#define _EXCH_XYZ_R8(a,b) CALL EXCH_XYZ_RL ( a, b ) |
#define _EXCH_XYZ_R8(a,b) CALL EXCH_XYZ_RL ( a, b ) |
150 |
#define _GLOBAL_SUM_R8(a,b) CALL GLOBAL_SUM_R8 ( a, b ) |
#define _GLOBAL_SUM_R8(a,b) CALL GLOBAL_SUM_R8 ( a, b ) |
151 |
#define _GLOBAL_MAX_R8(a,b) CALL GLOBAL_MAX_R8 ( a, b ) |
#define _GLOBAL_MAX_R8(a,b) CALL GLOBAL_MAX_R8 ( a, b ) |
152 |
#define _MPI_TYPE_RL MPI_DOUBLE_PRECISION |
#define _MPI_TYPE_RL MPI_DOUBLE_PRECISION |
153 |
|
|
|
#define _EXCH_XY_RS(a,b) CALL EXCH_XY_RL ( a, b ) |
|
|
#define _EXCH_XYZ_RS(a,b) CALL EXCH_XYZ_RL ( a, b ) |
|
|
#define _EXCH_XY_RL(a,b) CALL EXCH_XY_RL ( a, b ) |
|
|
#define _EXCH_XYZ_RL(a,b) CALL EXCH_XYZ_RL ( a, b ) |
|
|
|
|
154 |
#define _MPI_TYPE_R4 MPI_REAL |
#define _MPI_TYPE_R4 MPI_REAL |
155 |
#if (defined (TARGET_SGI) || defined (TARGET_AIX) || defined (TARGET_LAM)) |
#if (defined (TARGET_SGI) || defined (TARGET_AIX) || defined (TARGET_LAM)) |
156 |
#define _MPI_TYPE_R8 MPI_DOUBLE_PRECISION |
#define _MPI_TYPE_R8 MPI_DOUBLE_PRECISION |