| /petsc/src/ts/interface/ |
| H A D | tsrhssplit.c | 3 static PetscErrorCode TSRHSSplitGetRHSSplit(TS ts, const char splitname[], TS_RHSSplitLink *isplit) in TSRHSSplitGetRHSSplit() argument
11 PetscCall(PetscStrcmp((*isplit)->splitname, splitname, &found)); in TSRHSSplitGetRHSSplit()
32 PetscErrorCode TSRHSSplitSetIS(TS ts, const char splitname[], IS is) in TSRHSSplitSetIS() argument
42 if (splitname) { in TSRHSSplitSetIS()
43 PetscCall(PetscStrallocpy(splitname, &newsplit->splitname)); in TSRHSSplitSetIS()
45 PetscCall(PetscMalloc1(8, &newsplit->splitname)); in TSRHSSplitSetIS()
46 PetscCall(PetscSNPrintf(newsplit->splitname, 7, "%" PetscInt_FMT, ts->num_rhs_splits)); in TSRHSSplitSetIS()
53 …"%srhsplit_%s_", ((PetscObject)ts)->prefix ? ((PetscObject)ts)->prefix : "", newsplit->splitname)); in TSRHSSplitSetIS()
80 PetscErrorCode TSRHSSplitGetIS(TS ts, const char splitname[], IS *is) in TSRHSSplitGetIS() argument
88 PetscCall(TSRHSSplitGetRHSSplit(ts, splitname, &isplit)); in TSRHSSplitGetIS()
[all …]
|
| H A D | ts.c | 2618 PetscCall(PetscFree(ilink->splitname)); in TSReset()
|
| /petsc/src/ksp/pc/impls/redistribute/ |
| H A D | redistribute.c | 9 char *splitname; member
28 static PetscErrorCode PCFieldSplitSetIS_Redistribute(PC pc, const char splitname[], IS is) in PCFieldSplitSetIS_Redistribute() argument
36 if (splitname) { in PCFieldSplitSetIS_Redistribute()
37 PetscCall(PetscStrallocpy(splitname, &(*next)->splitname)); in PCFieldSplitSetIS_Redistribute()
39 PetscCall(PetscMalloc1(8, &(*next)->splitname)); in PCFieldSplitSetIS_Redistribute()
40 PetscCall(PetscSNPrintf((*next)->splitname, 7, "%" PetscInt_FMT, red->nsplits++)); in PCFieldSplitSetIS_Redistribute()
298 PetscCall(PCFieldSplitSetIS(ipc, (*next)->splitname, ris)); in PCSetUp_Redistribute()
440 PetscCall(PetscFree(next->splitname)); in PCDestroy_Redistribute()
|
| /petsc/src/ksp/pc/impls/fieldsplit/ |
| H A D | fieldsplit.c | 23 char *splitname; member
356 char optionname[128], splitname[8], optionname_col[128]; in PCFieldSplitSetRuntimeSplits_Private() local
367 PetscCall(PetscSNPrintf(splitname, sizeof(splitname), "%" PetscInt_FMT, i)); in PCFieldSplitSetRuntimeSplits_Private()
377 PetscCall(PCFieldSplitSetFields(pc, splitname, nfields, ifields, ifields)); in PCFieldSplitSetRuntimeSplits_Private()
381 PetscCall(PCFieldSplitSetFields(pc, splitname, nfields, ifields, ifields_col)); in PCFieldSplitSetRuntimeSplits_Private()
421 char optionname[128], splitname[8]; in PCFieldSplitSetDefaults() local
432 PetscCall(PetscSNPrintf(splitname, sizeof(splitname), "%" PetscInt_FMT, i)); in PCFieldSplitSetDefaults()
433 PetscCall(PCFieldSplitSetIS(pc, splitname, compField)); in PCFieldSplitSetDefaults()
528 char splitname[8]; in PCFieldSplitSetDefaults() local
530 PetscCall(PetscSNPrintf(splitname, sizeof(splitname), "%" PetscInt_FMT, i)); in PCFieldSplitSetDefaults()
[all …]
|
| /petsc/src/dm/impls/composite/ |
| H A D | pack.c | 1080 const char *splitname; in DMCreateFieldIS_Composite() local
1083 splitname = ((PetscObject)dm)->name; in DMCreateFieldIS_Composite()
1084 if (!splitname) { in DMCreateFieldIS_Composite()
1085 PetscCall(PetscObjectGetOptionsPrefix((PetscObject)dms[i], &splitname)); in DMCreateFieldIS_Composite()
1086 if (splitname) { in DMCreateFieldIS_Composite()
1088 PetscCall(PetscStrncpy(buf, splitname, sizeof(buf))); in DMCreateFieldIS_Composite()
1092 splitname = buf; in DMCreateFieldIS_Composite()
1095 if (!splitname) { in DMCreateFieldIS_Composite()
1097 splitname = buf; in DMCreateFieldIS_Composite()
1099 PetscCall(PetscStrallocpy(splitname, &(*fieldNames)[i])); in DMCreateFieldIS_Composite()
|
| /petsc/src/binding/petsc4py/src/petsc4py/PETSc/ |
| H A D | TS.pyx | 1252 def setRHSSplitIS(self, splitname: str, IS iss) -> None:
1259 splitname
1270 splitname = str2bytes(splitname, &cname)
1275 splitname: str,
1286 splitname
1304 splitname = str2bytes(splitname, <const char**>&cname)
1319 splitname: str,
1330 splitname
1348 splitname = str2bytes(splitname, &cname)
1363 splitname: str,
[all …]
|
| H A D | PC.pyx | 1605 def getFieldSplitSubIS(self, splitname: str) -> IS:
1617 splitname = str2bytes(splitname, &cname)
|
| /petsc/src/snes/impls/multiblock/ |
| H A D | multiblock.c | 319 …sfieldsplit_%s_",((PetscObject)pc)->prefix ? ((PetscObject)pc)->prefix : "",jac->head->splitname)); in SNESSetUp_Multiblock()
332 …),"%sfieldsplit_%s_",((PetscObject)pc)->prefix ? ((PetscObject)pc)->prefix : "",ilink->splitname)); in SNESSetUp_Multiblock()
|
| /petsc/include/petsc/private/ |
| H A D | tsimpl.h | 141 char *splitname; member
|