source:
CIVL/examples/mpi/routines/mpiSysStatus.c
| Last change on this file was ea777aa, checked in by , 3 years ago | |
|---|---|
|
|
| File size: 389 bytes | |
| Rev | Line | |
|---|---|---|
| [3ff27cf] | 1 | #ifdef _CIVL |
| 2 | #include <civlc.cvh> | |
| 3 | #endif | |
| [a96092d] | 4 | #include <mpi.h> |
| [3af26ac] | 5 | #include <civl-mpi.cvh> |
| [a96092d] | 6 | #include <assert.h> |
| 7 | ||
| 8 | #ifdef _CIVL | |
| [024a9eb] | 9 | $input int _mpi_nprocs_lo = 1; |
| 10 | $input int _mpi_nprocs_hi = 6; | |
| [a96092d] | 11 | #endif |
| 12 | ||
| 13 | int main(int argc, char * argv[]) { | |
| [ff51d87] | 14 | $mpi_sys_status curr_status; |
| [a96092d] | 15 | |
| 16 | MPI_Init(&argc, &argv); | |
| 17 | #ifdef _CIVL | |
| [ff51d87] | 18 | curr_status = $mpi_get_status(); |
| [3ff27cf] | 19 | $assert(__INIT == curr_status); |
| [a96092d] | 20 | #endif |
| 21 | MPI_Finalize(); | |
| 22 | } |
Note:
See TracBrowser
for help on using the repository browser.
