| 1 |  | C       $Id$ | 
| 2 | C      Parameters used with MPI. | C      Parameters used with MPI. | 
| 3 |  |  | 
| 4 | #ifdef ALLOW_MPI | #ifdef ALLOW_MPI | 
| 5 | COMMON /MPI_INFO/ | COMMON /MPI_INFO/ | 
| 6 | &  mpi_pid,     mpi_np, | &  mpi_pid,     mpi_np, | 
| 7 | &  mpi_northId, mpi_southId | #ifdef DECOMP2D | 
| 8 |  | &  ewslice, nsslice, | 
| 9 |  | &  mpi_eastId, mpi_westId, | 
| 10 |  | #endif | 
| 11 |  | &  mpi_northId, mpi_southId, | 
| 12 |  | &  comm_use | 
| 13 |  |  | 
| 14 | INTEGER mpi_pid | INTEGER mpi_pid | 
| 15 | INTEGER mpi_np | INTEGER mpi_np | 
| 16 | INTEGER mpi_northId | INTEGER mpi_northId | 
| 17 | INTEGER mpi_southId | INTEGER mpi_southId | 
| 18 |  | #ifdef DECOMP2D | 
| 19 |  | INTEGER mpi_eastId | 
| 20 |  | INTEGER mpi_westId | 
| 21 |  | INTEGER ewslice | 
| 22 |  | INTEGER nsslice | 
| 23 |  | #endif | 
| 24 |  | INTEGER comm_use | 
| 25 |  |  | 
| 26 |  | #ifndef USE_SINGLE_PRECISION | 
| 27 |  | #define _MPI_TYPE_REAL MPI_REAL8 | 
| 28 |  | #else | 
| 29 |  | #define _MPI_TYPE_REAL MPI_REAL | 
| 30 |  | #endif | 
| 31 | #endif | #endif |