1: /*$Id: ex7.c,v 1.15 2001/04/10 19:34:46 bsmith Exp $*/
3: /*
4: Formatted test for PetscSetCommWorld()
5: */
7: static char help[] = "Tests PetscSetCommWorld().\n\n";
9: #include petsc.h
13: int main(int argc,char **argv)
14: {
15: int size,ierr;
17: MPI_Init(&argc,&argv);
19: /*
20: Create a seperate PETSc universe for each processor
21: */
22: PetscSetCommWorld(MPI_COMM_SELF);
23: PetscInitialize(&argc,&argv,PETSC_NULL,help);
24:
25: MPI_Comm_size(PETSC_COMM_WORLD,&size);
26: if (size != 1) SETERRQ(1,"main:Error from PetscSetCommWorld()");
28: PetscFinalize();
29: MPI_Finalize();
30: return 0;
31: }