1c4762a1bSJed Brown static char help[] = "Tests PetscSynchronizedPrintf() and PetscSynchronizedFPrintf().\n\n";
2c4762a1bSJed Brown
3c4762a1bSJed Brown #include <petscsys.h>
4c4762a1bSJed Brown
main(int argc,char ** argv)5d71ae5a4SJacob Faibussowitsch int main(int argc, char **argv)
6d71ae5a4SJacob Faibussowitsch {
7c4762a1bSJed Brown PetscMPIInt rank;
8c4762a1bSJed Brown
9327415f7SBarry Smith PetscFunctionBeginUser;
10*c8025a54SPierre Jolivet PetscCall(PetscInitialize(&argc, &argv, NULL, help));
119566063dSJacob Faibussowitsch PetscCallMPI(MPI_Comm_rank(PETSC_COMM_WORLD, &rank));
12c4762a1bSJed Brown
139566063dSJacob Faibussowitsch PetscCall(PetscSynchronizedPrintf(PETSC_COMM_WORLD, "Greetings from %d\n", rank));
149566063dSJacob Faibussowitsch PetscCall(PetscSynchronizedFlush(PETSC_COMM_WORLD, PETSC_STDOUT));
15c4762a1bSJed Brown
169566063dSJacob Faibussowitsch PetscCall(PetscSynchronizedFPrintf(PETSC_COMM_WORLD, PETSC_STDOUT, "Greetings again from %d\n", rank));
179566063dSJacob Faibussowitsch PetscCall(PetscSynchronizedFlush(PETSC_COMM_WORLD, PETSC_STDOUT));
18c4762a1bSJed Brown
199566063dSJacob Faibussowitsch PetscCall(PetscFinalize());
20b122ec5aSJacob Faibussowitsch return 0;
21c4762a1bSJed Brown }
22c4762a1bSJed Brown
23c4762a1bSJed Brown /*TEST
24c4762a1bSJed Brown
25c4762a1bSJed Brown test:
26c4762a1bSJed Brown nsize: 3
27c4762a1bSJed Brown
28c4762a1bSJed Brown TEST*/
29