18 PetscMPIInt PCTFS_my_id            = 0;  variable
37   PetscCallMPI(MPI_Comm_rank(MPI_COMM_WORLD, &PCTFS_my_id));  in PCTFS_comm_init()
46     edge_node[PCTFS_i_log2_num_nodes] = PCTFS_my_id ^ PCTFS_floor_num_nodes;  in PCTFS_comm_init()
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()
94     if (PCTFS_my_id >= PCTFS_floor_num_nodes) {  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()
103   if (PCTFS_my_id < PCTFS_floor_num_nodes) {  in PCTFS_giop()
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()
116       if (PCTFS_my_id % mask) continue;  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()
129     if (PCTFS_my_id >= PCTFS_floor_num_nodes) {  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()
170     if (PCTFS_my_id >= PCTFS_floor_num_nodes) {  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()
179   if (PCTFS_my_id < PCTFS_floor_num_nodes) {  in PCTFS_grop()
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()
192       if (PCTFS_my_id % mask) continue;  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()
205     if (PCTFS_my_id >= PCTFS_floor_num_nodes) {  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()
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()
265     if (PCTFS_my_id % mask) continue;  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()
293     if (stage_n && !(PCTFS_my_id & mask)) {  in PCTFS_ssgl_radd()
295       type = MSGTAG3 + PCTFS_my_id + (PCTFS_num_nodes * edge);  in PCTFS_ssgl_radd()
296       if (PCTFS_my_id > dest) {  in PCTFS_ssgl_radd()
299         type = type - PCTFS_my_id + dest;  in PCTFS_ssgl_radd()
309     if (stage_n && !(PCTFS_my_id & mask)) {  in PCTFS_ssgl_radd()
311       type = MSGTAG6 + PCTFS_my_id + (PCTFS_num_nodes * edge);  in PCTFS_ssgl_radd()
315       if (PCTFS_my_id < dest) {  in PCTFS_ssgl_radd()
318         type = type - PCTFS_my_id + dest;  in PCTFS_ssgl_radd()
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()
378     if (PCTFS_my_id % mask) continue;  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()