26 static PetscInt edge_not_pow_2;  variable
55 …if ((PCTFS_my_id > 0) && (PCTFS_my_id <= modfl_num_nodes)) edge_not_pow_2 = ((PCTFS_my_id | PCTFS_…  in PCTFS_comm_init()
56 …else if (PCTFS_my_id >= PCTFS_floor_num_nodes) edge_not_pow_2 = ((PCTFS_my_id ^ PCTFS_floor_num_no…  in PCTFS_comm_init()
57   else edge_not_pow_2 = 0;  in PCTFS_comm_init()
93   if (edge_not_pow_2) {  in PCTFS_giop()
95 …  PetscCallMPI(MPI_Send(vals, n, MPIU_INT, edge_not_pow_2, MSGTAG0 + PCTFS_my_id, MPI_COMM_WORLD));  in PCTFS_giop()
97 …PetscCallMPI(MPI_Recv(work, n, MPIU_INT, MPI_ANY_SOURCE, MSGTAG0 + edge_not_pow_2, MPI_COMM_WORLD,…  in PCTFS_giop()
128   if (edge_not_pow_2) {  in PCTFS_giop()
130 …PetscCallMPI(MPI_Recv(vals, n, MPIU_INT, MPI_ANY_SOURCE, MSGTAG5 + edge_not_pow_2, MPI_COMM_WORLD,…  in PCTFS_giop()
132 …  PetscCallMPI(MPI_Send(vals, n, MPIU_INT, edge_not_pow_2, MSGTAG5 + PCTFS_my_id, MPI_COMM_WORLD));  in PCTFS_giop()
169   if (edge_not_pow_2) {  in PCTFS_grop()
171 …PetscCallMPI(MPI_Send(vals, n, MPIU_SCALAR, edge_not_pow_2, MSGTAG0 + PCTFS_my_id, MPI_COMM_WORLD)…  in PCTFS_grop()
173 …PetscCallMPI(MPI_Recv(work, n, MPIU_SCALAR, MPI_ANY_SOURCE, MSGTAG0 + edge_not_pow_2, MPI_COMM_WOR…  in PCTFS_grop()
204   if (edge_not_pow_2) {  in PCTFS_grop()
206 …PetscCallMPI(MPI_Recv(vals, n, MPIU_SCALAR, MPI_ANY_SOURCE, MSGTAG5 + edge_not_pow_2, MPI_COMM_WOR…  in PCTFS_grop()
208 …PetscCallMPI(MPI_Send(vals, n, MPIU_SCALAR, edge_not_pow_2, MSGTAG5 + PCTFS_my_id, MPI_COMM_WORLD)…  in PCTFS_grop()