129 |
#define RS_IS_REAL8 |
#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 ) |
#define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R8( a, b ) |
133 |
#define _GLOBAL_MAX_R4(a,b,c) CALL GLOBAL_MAX_R8( a, b ) |
#define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R8( a, b ) |
134 |
#endif |
#endif |
135 |
|
|
136 |
#ifndef REAL4_IS_SLOW |
#ifndef REAL4_IS_SLOW |
141 |
#define RS_IS_REAL4 |
#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 ) |
#define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R4( a, b ) |
145 |
#define _GLOBAL_MAX_R4(a,b,c) CALL GLOBAL_MAX_R4( a, b ) |
#define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R4( a, b ) |
146 |
#endif |
#endif |
147 |
|
|
148 |
#define _EXCH_XY_R8(a,b) CALL EXCH_XY_R8 ( a, b ) |
#define _EXCH_XY_R8(a,b) CALL EXCH_XY_R8 ( a, b ) |
149 |
#define _EXCH_XYZ_R8(a,b) CALL EXCH_XYZ_R8 ( a, b ) |
#define _EXCH_XYZ_R8(a,b) CALL EXCH_XYZ_R8 ( a, b ) |
150 |
#define _GLOBAL_SUM_R8(a,b,c) 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,c) CALL GLOBAL_MAX_R8( a, b ) |
#define _GLOBAL_MAX_R8(a,b) CALL GLOBAL_MAX_R8( a, b ) |
152 |
|
|
153 |
C-- Control use of "double" precision constants. |
C-- Control use of "double" precision constants. |
154 |
C Use D0 where it means REAL*8 but not where it means REAL*16 |
C Use D0 where it means REAL*8 but not where it means REAL*16 |