Parent Directory
|
Revision Log
|
Revision Graph
Fixes for single/double precision and also a 2D process topology
1 | ce107 | 1.1 | C Parameters used with MPI. |
2 | |||
3 | #ifdef ALLOW_MPI | ||
4 | COMMON /MPI_INFO/ | ||
5 | & mpi_pid, mpi_np, | ||
6 | ce107 | 1.2 | #ifdef DECOMP2D |
7 | & ewslice, nsslice, | ||
8 | & mpi_eastId, mpi_westId, | ||
9 | #endif | ||
10 | & mpi_northId, mpi_southId, | ||
11 | & comm_use | ||
12 | |||
13 | ce107 | 1.1 | INTEGER mpi_pid |
14 | INTEGER mpi_np | ||
15 | INTEGER mpi_northId | ||
16 | INTEGER mpi_southId | ||
17 | ce107 | 1.2 | #ifdef DECOMP2D |
18 | INTEGER mpi_eastId | ||
19 | INTEGER mpi_westId | ||
20 | INTEGER ewslice | ||
21 | INTEGER nsslice | ||
22 | #endif | ||
23 | INTEGER comm_use | ||
24 | |||
25 | #ifndef USE_SINGLE_PRECISION | ||
26 | #define _MPI_TYPE_REAL MPI_REAL8 | ||
27 | #else | ||
28 | #define _MPI_TYPE_REAL MPI_REAL | ||
29 | #endif | ||
30 | ce107 | 1.1 | #endif |
ViewVC Help | |
Powered by ViewVC 1.1.22 |