Searched refs:shm_comm (Results 1 – 1 of 1) sorted by relevance
138 MPI_Comm shm_comm; in PetscOmpCtrlCreate() local165 PetscCall(PetscShmCommGetMpiShmComm(pshmcomm, &shm_comm)); in PetscOmpCtrlCreate()167 PetscCallMPI(MPI_Comm_rank(shm_comm, &shm_rank)); in PetscOmpCtrlCreate()168 PetscCallMPI(MPI_Comm_size(shm_comm, &shm_comm_size)); in PetscOmpCtrlCreate()188 PetscCallMPI(MPI_Comm_split(shm_comm, color, 0 /*key*/, &ctrl->omp_comm)); in PetscOmpCtrlCreate()