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