| 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 ) |