| /petsc/src/ksp/pc/impls/fieldsplit/ |
| H A D | fieldsplit.c | 113 PC_FieldSplitLink ilink = jac->head; in PCView_FieldSplit() local
129 if (ilink->fields) { in PCView_FieldSplit()
132 for (j = 0; j < ilink->nfields; j++) { in PCView_FieldSplit()
134 PetscCall(PetscViewerASCIIPrintf(viewer, " %" PetscInt_FMT, ilink->fields[j])); in PCView_FieldSplit()
141 PetscCall(KSPView(ilink->ksp, viewer)); in PCView_FieldSplit()
142 ilink = ilink->next; in PCView_FieldSplit()
157 PetscCall(KSPView(ilink->ksp, viewer)); in PCView_FieldSplit()
160 ilink = ilink->next; in PCView_FieldSplit()
171 PC_FieldSplitLink ilink = jac->head; in PCView_FieldSplit_Schur() local
213 if (ilink->fields) { in PCView_FieldSplit_Schur()
[all …]
|
| /petsc/src/snes/impls/multiblock/ |
| H A D | multiblock.c | 230 ilink = jac->head; in SNESSetUp_Multiblock()
234 PetscCall(MatCreateSubMatrix(pc->pmat,ilink->is,ilink->is,MAT_INITIAL_MATRIX,&jac->pmat[i])); in SNESSetUp_Multiblock()
235 ilink = ilink->next; in SNESSetUp_Multiblock()
239 PetscCall(MatCreateSubMatrix(pc->pmat,ilink->is,ilink->is,MAT_REUSE_MATRIX,&jac->pmat[i])); in SNESSetUp_Multiblock()
240 ilink = ilink->next; in SNESSetUp_Multiblock()
244 ilink = jac->head; in SNESSetUp_Multiblock()
248 PetscCall(MatCreateSubMatrix(pc->mat,ilink->is,ilink->is,MAT_INITIAL_MATRIX,&jac->mat[i])); in SNESSetUp_Multiblock()
249 ilink = ilink->next; in SNESSetUp_Multiblock()
253 …if (jac->mat[i]) PetscCall(MatCreateSubMatrix(pc->mat,ilink->is,ilink->is,MAT_REUSE_MATRIX,&jac->m… in SNESSetUp_Multiblock()
254 ilink = ilink->next; in SNESSetUp_Multiblock()
[all …]
|
| /petsc/src/mat/graphops/order/ |
| H A D | qmdqt.c | 33 PetscInt inhd, irch, node, ilink, j, nabor, jstop, jstrt; in SPARSEPACKqmdqt() local
60 ilink = adjncy[jstop + 1]; in SPARSEPACKqmdqt()
61 node = -ilink; in SPARSEPACKqmdqt()
62 if (ilink < 0) goto L100; in SPARSEPACKqmdqt()
|
| H A D | qmdmrg.c | 40 …PetscInt head, inhd, irch, node, mark, ilink, root, j, lnode, nabor, jstop, jstrt, rchsze, mrgsze,… in SPARSEPACKqmdmrg() local
123 ilink = qlink[lnode]; in SPARSEPACKqmdmrg()
124 if (ilink <= 0) goto L1000; in SPARSEPACKqmdmrg()
125 lnode = ilink; in SPARSEPACKqmdmrg()
|
| /petsc/src/snes/impls/composite/ |
| H A D | snescomposite.c | 486 SNES_CompositeLink next, ilink; in SNESCompositeAddSNES_Composite() local
493 PetscCall(PetscNew(&ilink)); in SNESCompositeAddSNES_Composite()
494 ilink->next = NULL; in SNESCompositeAddSNES_Composite()
495 PetscCall(SNESCreate(PetscObjectComm((PetscObject)snes), &ilink->snes)); in SNESCompositeAddSNES_Composite()
496 PetscCall(PetscObjectIncrementTabLevel((PetscObject)ilink->snes, (PetscObject)snes, 1)); in SNESCompositeAddSNES_Composite()
498 PetscCall(SNESSetDM(ilink->snes, dm)); in SNESCompositeAddSNES_Composite()
499 …PetscCall(SNESSetTolerances(ilink->snes, snes->abstol, snes->rtol, snes->stol, 1, snes->max_funcs)… in SNESCompositeAddSNES_Composite()
500 PetscCall(PetscObjectCopyFortranFunctionPointers((PetscObject)snes, (PetscObject)ilink->snes)); in SNESCompositeAddSNES_Composite()
504 jac->head = ilink; in SNESCompositeAddSNES_Composite()
505 ilink->previous = NULL; in SNESCompositeAddSNES_Composite()
[all …]
|
| /petsc/src/ts/interface/ |
| H A D | tsrhssplit.c | 299 TS_RHSSplitLink ilink = ts->tsrhssplit; in TSRHSSplitGetSubTSs() local
306 while (ilink) { in TSRHSSplitGetSubTSs()
307 (*subts)[i++] = ilink->ts; in TSRHSSplitGetSubTSs()
308 ilink = ilink->next; in TSRHSSplitGetSubTSs()
|
| H A D | ts.c | 2589 TS_RHSSplitLink ilink = ts->tsrhssplit, next; in TSReset() local
2615 while (ilink) { in TSReset()
2616 next = ilink->next; in TSReset()
2617 PetscCall(TSDestroy(&ilink->ts)); in TSReset()
2618 PetscCall(PetscFree(ilink->splitname)); in TSReset()
2619 PetscCall(ISDestroy(&ilink->is)); in TSReset()
2620 PetscCall(PetscFree(ilink)); in TSReset()
2621 ilink = next; in TSReset()
|
| /petsc/src/mat/impls/composite/ |
| H A D | mcomposite.c | 404 Mat_CompositeLink ilink, next; in MatCompositeAddMat_Composite() local
411 PetscCall(PetscNew(&ilink)); in MatCompositeAddMat_Composite()
412 ilink->next = NULL; in MatCompositeAddMat_Composite()
414 ilink->mat = smat; in MatCompositeAddMat_Composite()
416 if (!next) shell->head = ilink; in MatCompositeAddMat_Composite()
419 next->next = ilink; in MatCompositeAddMat_Composite()
420 ilink->prev = next; in MatCompositeAddMat_Composite()
422 shell->tail = ilink; in MatCompositeAddMat_Composite()
783 Mat_CompositeLink ilink; in MatCompositeGetMat_Composite() local
789 ilink = shell->head; in MatCompositeGetMat_Composite()
[all …]
|
| /petsc/src/ksp/pc/impls/composite/ |
| H A D | composite.c | 348 PC_CompositeLink next, ilink; in PCCompositeAddPC_Composite() local
354 PetscCall(PetscNew(&ilink)); in PCCompositeAddPC_Composite()
355 ilink->next = NULL; in PCCompositeAddPC_Composite()
356 ilink->pc = subpc; in PCCompositeAddPC_Composite()
361 jac->head = ilink; in PCCompositeAddPC_Composite()
362 ilink->previous = NULL; in PCCompositeAddPC_Composite()
369 next->next = ilink; in PCCompositeAddPC_Composite()
370 ilink->previous = next; in PCCompositeAddPC_Composite()
|
| /petsc/src/ksp/pc/impls/redistribute/ |
| H A D | redistribute.c | 439 PC_FieldSplitLink ilink; in PCDestroy_Redistribute() local
442 ilink = next; in PCDestroy_Redistribute()
444 PetscCall(PetscFree(ilink)); in PCDestroy_Redistribute()
|