1 static char help[] = "Tests PetscSynchronizedPrintf() and PetscSynchronizedFPrintf().\n\n";
2
3 #include <petscsys.h>
4
main(int argc,char ** argv)5 int main(int argc, char **argv)
6 {
7 PetscMPIInt rank;
8
9 PetscFunctionBeginUser;
10 PetscCall(PetscInitialize(&argc, &argv, NULL, help));
11 PetscCallMPI(MPI_Comm_rank(PETSC_COMM_WORLD, &rank));
12
13 PetscCall(PetscSynchronizedPrintf(PETSC_COMM_WORLD, "Greetings from %d\n", rank));
14 PetscCall(PetscSynchronizedFlush(PETSC_COMM_WORLD, PETSC_STDOUT));
15
16 PetscCall(PetscSynchronizedFPrintf(PETSC_COMM_WORLD, PETSC_STDOUT, "Greetings again from %d\n", rank));
17 PetscCall(PetscSynchronizedFlush(PETSC_COMM_WORLD, PETSC_STDOUT));
18
19 PetscCall(PetscFinalize());
20 return 0;
21 }
22
23 /*TEST
24
25 test:
26 nsize: 3
27
28 TEST*/
29