Lines Matching refs:globcomm
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()