Searched refs:newsplit (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/interface/ |
| H A D | tsrhssplit.c | 34 TS_RHSSplitLink newsplit, next = ts->tsrhssplit; in TSRHSSplitSetIS() local
41 PetscCall(PetscNew(&newsplit)); 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()
49 newsplit->is = is; in TSRHSSplitSetIS()
50 PetscCall(TSCreate(PetscObjectComm((PetscObject)ts), &newsplit->ts)); in TSRHSSplitSetIS()
52 PetscCall(PetscObjectIncrementTabLevel((PetscObject)newsplit->ts, (PetscObject)ts, 1)); in TSRHSSplitSetIS()
53 …"%srhsplit_%s_", ((PetscObject)ts)->prefix ? ((PetscObject)ts)->prefix : "", newsplit->splitname)); in TSRHSSplitSetIS()
54 PetscCall(TSSetOptionsPrefix(newsplit->ts, prefix)); in TSRHSSplitSetIS()
[all …]
|