1 static char help[] = "Tests repeated PetscInitialize/PetscFinalize calls.\n\n"; 2 3 #include <petscsys.h> 4 5 int main(int argc, char **argv) 6 { 7 int i,imax; 8 PetscErrorCode ierr; 9 10 #if defined(PETSC_HAVE_MPIUNI) 11 imax = 32; 12 #else 13 imax = 1024; 14 #endif 15 16 MPI_Init(&argc, &argv); 17 for (i = 0; i < imax; ++i) { 18 ierr = PetscInitialize(&argc, &argv, (char*) 0, help); if (ierr) return ierr; 19 ierr = PetscFinalize(); if (ierr) return ierr; 20 } 21 MPI_Finalize(); 22 return ierr; 23 } 24 25 /*TEST 26 27 test: 28 29 test: 30 suffix: 2 31 nsize: 2 32 output_file: output/ex26_1.out 33 34 TEST*/ 35