62 |
#endif |
#endif |
63 |
|
|
64 |
#ifdef TARGET_DEC |
#ifdef TARGET_DEC |
65 |
#undef USE_KAP_THREADING |
#define USE_KAP_THREADING |
66 |
#endif |
#endif |
67 |
|
|
68 |
#ifdef TARGET_SGI |
#ifdef TARGET_SGI |
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) |