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