Searched refs:PCMPIComms (Results 1 – 1 of 1) sorted by relevance
42 static MPI_Comm PCMPIComms[PC_MPI_MAX_RANKS]; variable65 PetscCallMPI(MPI_Comm_split(comm, color, 0, &PCMPIComms[i])); in PCMPICommsCreate()85 if (PCMPIComms[i] != MPI_COMM_NULL) PetscCallMPI(MPI_Comm_free(&PCMPIComms[i])); in PCMPICommsDestroy()116 comm = PCMPIComms[PetscMin(size, PetscMax(1, N[0] / mincntperrank)) - 1]; in PCMPICreate()