Lines Matching refs:CommIdx
48 #define CommIdx(comm) ((comm) - 1) /* the communicator's internal index used in attr[idx][] and com… macro
151 attr[CommIdx(MPI_COMM_WORLD)][0].active = 1; in Keyval_setup()
152 attr[CommIdx(MPI_COMM_WORLD)][0].attribute_val = &mpi_tag_ub; in Keyval_setup()
153 attr[CommIdx(MPI_COMM_SELF)][0].active = 1; in Keyval_setup()
154 attr[CommIdx(MPI_COMM_SELF)][0].attribute_val = &mpi_tag_ub; in Keyval_setup()
228 int idx = CommIdx(comm), ret; in MPI_Comm_set_attr()
241 int idx = CommIdx(comm); in MPI_Comm_delete_attr()
260 int idx = CommIdx(comm); in MPI_Comm_get_attr()
274 (void)strncpy(comm_name, all_comm_names[CommIdx(comm)], MPI_MAX_OBJECT_NAME - 1); in MPI_Comm_get_name()
284 (void)strncpy(all_comm_names[CommIdx(comm)], comm_name, MPI_MAX_OBJECT_NAME - 1); in MPI_Comm_set_name()
293 if (!comm_active[CommIdx(j)]) { in MPI_Comm_create()
294 comm_active[CommIdx(j)] = 1; in MPI_Comm_create()
301 comm_active[CommIdx(*newcomm)] = 1; in MPI_Comm_create()
310 if (!comm_active[CommIdx(j)]) { in MPI_Comm_dup()
311 comm_active[CommIdx(j)] = 1; in MPI_Comm_dup()
318 comm_active[CommIdx(*out)] = 1; in MPI_Comm_dup()
324 int idx = CommIdx(*comm); in MPI_Comm_free()
403 …if (comm_active[CommIdx(i)]) printf("MPIUni warning: MPI communicator %d is not freed before MPI_F… in MPI_Finalize()
408 …if (attr[CommIdx(i)][j].active) printf("MPIUni warning: MPI communicator %d attribute %d was not f… in MPI_Finalize()