136 |
#define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_RL ( a, b ) |
#define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_RL ( a, b ) |
137 |
|
|
138 |
#define _RL Real*8 |
#define _RL Real*8 |
139 |
|
#define RL_IS_REAL8 |
140 |
#define _EXCH_XY_R8(a,b) CALL EXCH_XY_RL ( a, b ) |
#define _EXCH_XY_R8(a,b) CALL EXCH_XY_RL ( a, b ) |
141 |
#define _EXCH_XYZ_R8(a,b) CALL EXCH_XYZ_RL ( a, b ) |
#define _EXCH_XYZ_R8(a,b) CALL EXCH_XYZ_RL ( a, b ) |
142 |
#define _GLOBAL_SUM_R8(a,b) CALL GLOBAL_SUM_R8 ( a, b ) |
#define _GLOBAL_SUM_R8(a,b) CALL GLOBAL_SUM_R8 ( a, b ) |