1: /*$Id: pcomm.c,v 1.24 2001/03/23 23:20:38 balay Exp $*/ 3: #include petsc.h 5: /*@C 6: PetscSetCommWorld - Sets a communicator to be PETSc world communicator 7: (default is MPI_COMM_WORLD). Must call BEFORE PetscInitialize(). 9: Collective on MPI_Comm 11: Input Parameter: 12: . comm - the communicator 14: Note: 15: This routine is intended for users who need to initialize PETSc on a 16: subset of processors within a larger job. Thus, most users need not 17: call this routine. 19: Level: advanced 21: Concepts: communicator^setting for PETSc 22: Concepts: MPI communicator^setting for PETSc 23: Concepts: PETSC_COMM_WORLD^setting 25: @*/ 26: int PetscSetCommWorld(MPI_Comm comm) 27: { 29: if (PetscInitializeCalled) SETERRQ(PETSC_ERR_ARG_WRONGSTATE,"Must call before PetscInitialize()"); 30: PETSC_COMM_WORLD = comm; 31: return(0); 32: }