Searched refs:edge_not_pow_2 (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/pc/impls/tfs/ |
| H A D | comm.c | 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()
[all …]
|