Searched refs:stage_n (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/pc/impls/tfs/ |
| H A D | comm.c | 281 PetscInt stage_n; in PCTFS_ssgl_radd() local
292 stage_n = (segs[level] - segs[edge]); in PCTFS_ssgl_radd()
293 if (stage_n && !(PCTFS_my_id & mask)) { in PCTFS_ssgl_radd()
297 PetscCallMPI(MPI_Send(vals + segs[edge], stage_n, MPIU_SCALAR, dest, type, MPI_COMM_WORLD)); in PCTFS_ssgl_radd()
300 … PetscCallMPI(MPI_Recv(work, stage_n, MPIU_SCALAR, MPI_ANY_SOURCE, type, MPI_COMM_WORLD, &status)); in PCTFS_ssgl_radd()
301 PetscCall(PCTFS_rvec_add(vals + segs[edge], work, stage_n)); in PCTFS_ssgl_radd()
308 stage_n = (segs[level] - segs[level - 1 - edge]); in PCTFS_ssgl_radd()
309 if (stage_n && !(PCTFS_my_id & mask)) { 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()
319 …PetscCallMPI(MPI_Recv(vals + segs[level - 1 - edge], stage_n, MPIU_SCALAR, MPI_ANY_SOURCE, type, M… in PCTFS_ssgl_radd()
|