main
test-branch
| Line | |
|---|
| 1 | #include <mpi.h>
|
|---|
| 2 | #include <stdio.h>
|
|---|
| 3 | #include <civl-mpi.cvh>
|
|---|
| 4 |
|
|---|
| 5 | int size, rank;
|
|---|
| 6 | int root = 0;
|
|---|
| 7 |
|
|---|
| 8 | int main(int argc, char * argv[]) {
|
|---|
| 9 | int sum = 0;
|
|---|
| 10 |
|
|---|
| 11 | MPI_Init(&argc, &argv);
|
|---|
| 12 | MPI_Comm_rank(MPI_COMM_WORLD, &rank);
|
|---|
| 13 | MPI_Comm_size(MPI_COMM_WORLD, &size);
|
|---|
| 14 | for(int i = 0; i < 4; i++) {
|
|---|
| 15 | MPI_Reduce(&i, &sum, 1, MPI_INT, MPI_SUM, root, MPI_COMM_WORLD);
|
|---|
| 16 | if(!rank)printf("sum=%d\n", sum);
|
|---|
| 17 | $mpi_coassert(MPI_COMM_WORLD, sum@(root + 1 - 1) == (i*size));
|
|---|
| 18 | }
|
|---|
| 19 | MPI_Finalize();
|
|---|
| 20 | return 0;
|
|---|
| 21 | }
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
