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 CHKERRQ(PetscInitialize(&argc,&argv,(char*)0,help)); 11 CHKERRMPI(MPI_Comm_rank(PETSC_COMM_WORLD,&rank)); 12 13 CHKERRQ(PetscSynchronizedPrintf(PETSC_COMM_WORLD,"Greetings from %d\n",rank)); 14 CHKERRQ(PetscSynchronizedFlush(PETSC_COMM_WORLD,PETSC_STDOUT)); 15 16 CHKERRQ(PetscSynchronizedFPrintf(PETSC_COMM_WORLD,PETSC_STDOUT,"Greetings again from %d\n",rank)); 17 CHKERRQ(PetscSynchronizedFlush(PETSC_COMM_WORLD,PETSC_STDOUT)); 18 19 CHKERRQ(PetscFinalize()); 20 return 0; 21 } 22 23 /*TEST 24 25 test: 26 nsize: 3 27 28 TEST*/ 29