7 …MPI_Comm     globcomm, shmcomm; /* global communicator and shared memory communicator (a sub-commu…  member
67 PetscErrorCode PetscShmCommGet(MPI_Comm globcomm, PetscShmComm *pshmcomm)  in PetscShmCommGet()  argument
77   PetscCallMPI(MPI_Comm_get_attr(globcomm, Petsc_Counter_keyval, &counter, &flg));  in PetscShmCommGet()
85     PetscCallMPI(MPI_Comm_get_attr(globcomm, Petsc_InnerComm_keyval, &ucomm, &flg));  in PetscShmCommGet()
88 …PetscCheck(num_dupped_comms < MAX_SHMCOMM_DUPPED_COMMS, globcomm, PETSC_ERR_PLIB, "PetscShmCommGet…  in PetscShmCommGet()
89       PetscCall(PetscCommDuplicate(globcomm, &globcomm, NULL));  in PetscShmCommGet()
92       shmcomm_dupped_comms[num_dupped_comms] = globcomm;  in PetscShmCommGet()
96       globcomm = ucomm.comm;  in PetscShmCommGet()
101   PetscCallMPI(MPI_Comm_get_attr(globcomm, Petsc_ShmComm_keyval, pshmcomm, &flg));  in PetscShmCommGet()
105   (*pshmcomm)->globcomm = globcomm;  in PetscShmCommGet()
107 …PetscCallMPI(MPI_Comm_split_type(globcomm, MPI_COMM_TYPE_SHARED, 0, MPI_INFO_NULL, &(*pshmcomm)->s…  in PetscShmCommGet()
110   PetscCallMPI(MPI_Comm_group(globcomm, &globgroup));  in PetscShmCommGet()
121   PetscCallMPI(MPI_Comm_set_attr(globcomm, Petsc_ShmComm_keyval, *pshmcomm));  in PetscShmCommGet()
124 …SETERRQ(globcomm, PETSC_ERR_SUP, "Shared memory communicators need MPI-3 package support.\nPlease …  in PetscShmCommGet()