Searched refs:lcid (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/pc/impls/gamg/ |
| H A D | classical.c | 191 PetscInt *lcid, *gcid, *lsparse, *gsparse, *colmap, *pcols; in PCGAMGProlongator_Classical_Direct() local
224 PetscCall(PetscMalloc5(fn, &lsparse, fn, &gsparse, fn, &lcid, fn, &Amax_pos, fn, &Amax_neg)); in PCGAMGProlongator_Classical_Direct()
231 lcid[i] = -1; in PCGAMGProlongator_Classical_Direct()
243 lcid[i] = cs + cn; in PCGAMGProlongator_Classical_Direct()
246 lcid[i] = -1; in PCGAMGProlongator_Classical_Direct()
251 PetscCall(PetscSFBcastBegin(sf, MPIU_INT, lcid, gcid, MPI_REPLACE)); in PCGAMGProlongator_Classical_Direct()
252 PetscCall(PetscSFBcastEnd(sf, MPIU_INT, lcid, gcid, MPI_REPLACE)); in PCGAMGProlongator_Classical_Direct()
275 if (lcid[i] >= 0) { in PCGAMGProlongator_Classical_Direct()
282 …if (lcid[col] >= 0 && (PetscRealPart(rval[j]) > gamg->threshold[0] * Amax_pos[i] || PetscRealPart(… in PCGAMGProlongator_Classical_Direct()
309 row_c = lcid[i]; in PCGAMGProlongator_Classical_Direct()
[all …]
|