Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.2 by cnh, Fri Apr 2 15:33:58 2004 UTC | revision 1.3 by cnh, Sat Apr 3 13:28:09 2004 UTC | |
|---|---|---|
| # | Line 120 C performance. | Line 120 C performance. |
| 120 | #define _EXCH_XY_RL(a,b) CALL EXCH2_XY_RL ( a, b ) | #define _EXCH_XY_RL(a,b) CALL EXCH2_XY_RL ( a, b ) |
| 121 | #define _EXCH_XYZ_RL(a,b) CALL EXCH2_XYZ_RL ( a, b ) | #define _EXCH_XYZ_RL(a,b) CALL EXCH2_XYZ_RL ( a, b ) |
| 122 | ||
| 123 | #define _MPI_TYPE_R4 MPI_REAL | |
| 124 | #ifdef TARGET_SGI | |
| 125 | #define _MPI_TYPE_R8 MPI_DOUBLE_PRECISION | |
| 126 | #else | |
| 127 | #define _MPI_TYPE_R8 MPI_REAL8 | |
| 128 | #endif | |
| 129 | #define _R4 Real*4 | #define _R4 Real*4 |
| 130 | #define _R8 Real*8 | #define _R8 Real*8 |
| 131 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |