65   PetscInt   type, dest;  in PCTFS_giop()  local
105       dest = PCTFS_my_id ^ mask;  in PCTFS_giop()
106       if (PCTFS_my_id > dest) {  in PCTFS_giop()
107         PetscCallMPI(MPI_Send(vals, n, MPIU_INT, dest, MSGTAG2 + PCTFS_my_id, MPI_COMM_WORLD));  in PCTFS_giop()
109 …PetscCallMPI(MPI_Recv(work, n, MPIU_INT, MPI_ANY_SOURCE, MSGTAG2 + dest, MPI_COMM_WORLD, &status));  in PCTFS_giop()
118       dest = PCTFS_my_id ^ mask;  in PCTFS_giop()
119       if (PCTFS_my_id < dest) {  in PCTFS_giop()
120         PetscCallMPI(MPI_Send(vals, n, MPIU_INT, dest, MSGTAG4 + PCTFS_my_id, MPI_COMM_WORLD));  in PCTFS_giop()
122 …PetscCallMPI(MPI_Recv(vals, n, MPIU_INT, MPI_ANY_SOURCE, MSGTAG4 + dest, MPI_COMM_WORLD, &status));  in PCTFS_giop()
142   PetscInt   type, dest;  in PCTFS_grop()  local
181       dest = PCTFS_my_id ^ mask;  in PCTFS_grop()
182       if (PCTFS_my_id > dest) {  in PCTFS_grop()
183         PetscCallMPI(MPI_Send(vals, n, MPIU_SCALAR, dest, MSGTAG2 + PCTFS_my_id, MPI_COMM_WORLD));  in PCTFS_grop()
185 …PetscCallMPI(MPI_Recv(work, n, MPIU_SCALAR, MPI_ANY_SOURCE, MSGTAG2 + dest, MPI_COMM_WORLD, &statu…  in PCTFS_grop()
194       dest = PCTFS_my_id ^ mask;  in PCTFS_grop()
195       if (PCTFS_my_id < dest) {  in PCTFS_grop()
196         PetscCallMPI(MPI_Send(vals, n, MPIU_SCALAR, dest, MSGTAG4 + PCTFS_my_id, MPI_COMM_WORLD));  in PCTFS_grop()
198 …PetscCallMPI(MPI_Recv(vals, n, MPIU_SCALAR, MPI_ANY_SOURCE, MSGTAG4 + dest, MPI_COMM_WORLD, &statu…  in PCTFS_grop()
218   PetscInt   type, dest;  in PCTFS_grop_hc()  local
250     dest = PCTFS_my_id ^ mask;  in PCTFS_grop_hc()
251     if (PCTFS_my_id > dest) {  in PCTFS_grop_hc()
252       PetscCallMPI(MPI_Send(vals, n, MPIU_SCALAR, dest, MSGTAG2 + PCTFS_my_id, MPI_COMM_WORLD));  in PCTFS_grop_hc()
254 …PetscCallMPI(MPI_Recv(work, n, MPIU_SCALAR, MPI_ANY_SOURCE, MSGTAG2 + dest, MPI_COMM_WORLD, &statu…  in PCTFS_grop_hc()
267     dest = PCTFS_my_id ^ mask;  in PCTFS_grop_hc()
268     if (PCTFS_my_id < dest) {  in PCTFS_grop_hc()
269       PetscCallMPI(MPI_Send(vals, n, MPIU_SCALAR, dest, MSGTAG4 + PCTFS_my_id, MPI_COMM_WORLD));  in PCTFS_grop_hc()
271 …PetscCallMPI(MPI_Recv(vals, n, MPIU_SCALAR, MPI_ANY_SOURCE, MSGTAG4 + dest, MPI_COMM_WORLD, &statu…  in PCTFS_grop_hc()
280   PetscInt     edge, type, dest, mask;  in PCTFS_ssgl_radd()  local
294       dest = edge_node[edge];  in PCTFS_ssgl_radd()
296       if (PCTFS_my_id > dest) {  in PCTFS_ssgl_radd()
297         PetscCallMPI(MPI_Send(vals + segs[edge], stage_n, MPIU_SCALAR, dest, type, MPI_COMM_WORLD));  in PCTFS_ssgl_radd()
299         type = type - PCTFS_my_id + dest;  in PCTFS_ssgl_radd()
310       dest = edge_node[level - edge - 1];  in PCTFS_ssgl_radd()
315       if (PCTFS_my_id < dest) {  in PCTFS_ssgl_radd()
316 …PetscCallMPI(MPI_Send(vals + segs[level - 1 - edge], stage_n, MPIU_SCALAR, dest, type, MPI_COMM_WO…  in PCTFS_ssgl_radd()
318         type = type - PCTFS_my_id + dest;  in PCTFS_ssgl_radd()
331   PetscInt   type, dest;  in PCTFS_giop_hc()  local
363     dest = PCTFS_my_id ^ mask;  in PCTFS_giop_hc()
364     if (PCTFS_my_id > dest) {  in PCTFS_giop_hc()
365       PetscCallMPI(MPI_Send(vals, n, MPIU_INT, dest, MSGTAG2 + PCTFS_my_id, MPI_COMM_WORLD));  in PCTFS_giop_hc()
367 …PetscCallMPI(MPI_Recv(work, n, MPIU_INT, MPI_ANY_SOURCE, MSGTAG2 + dest, MPI_COMM_WORLD, &status));  in PCTFS_giop_hc()
380     dest = PCTFS_my_id ^ mask;  in PCTFS_giop_hc()
381     if (PCTFS_my_id < dest) {  in PCTFS_giop_hc()
382       PetscCallMPI(MPI_Send(vals, n, MPIU_INT, dest, MSGTAG4 + PCTFS_my_id, MPI_COMM_WORLD));  in PCTFS_giop_hc()
384 …PetscCallMPI(MPI_Recv(vals, n, MPIU_INT, MPI_ANY_SOURCE, MSGTAG4 + dest, MPI_COMM_WORLD, &status));  in PCTFS_giop_hc()