Searched refs:comm_active (Results 1 – 1 of 1) sorted by relevance
42 static int comm_active[MAX_COMM]; /* Boolean array indicating which comms are in use */ variable293 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()332 if (*comm >= 3) comm_active[idx] = 0; 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()