Searched refs:isplit (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/ts/interface/ |
| H A D | tsrhssplit.c | 3 static PetscErrorCode TSRHSSplitGetRHSSplit(TS ts, const char splitname[], TS_RHSSplitLink *isplit) in TSRHSSplitGetRHSSplit() argument
8 *isplit = ts->tsrhssplit; in TSRHSSplitGetRHSSplit()
10 while (*isplit) { in TSRHSSplitGetRHSSplit()
11 PetscCall(PetscStrcmp((*isplit)->splitname, splitname, &found)); in TSRHSSplitGetRHSSplit()
13 *isplit = (*isplit)->next; in TSRHSSplitGetRHSSplit()
82 TS_RHSSplitLink isplit; in TSRHSSplitGetIS() local
88 PetscCall(TSRHSSplitGetRHSSplit(ts, splitname, &isplit)); in TSRHSSplitGetIS()
89 if (isplit) *is = isplit->is; in TSRHSSplitGetIS()
111 TS_RHSSplitLink isplit; in TSRHSSplitSetRHSFunction() local
120 PetscCall(TSRHSSplitGetRHSSplit(ts, splitname, &isplit)); in TSRHSSplitSetRHSFunction()
[all …]
|
| /petsc/src/mat/tests/ |
| H A D | ex118.c | 17 PetscBLASInt n, il = 1, iu = 5, *iblock, *isplit, *iwork, nevs, *ifail, cklvl = 2; in main()
39 isplit = iblock + n; in main()
49 …tscReal *)D, (PetscReal *)E, &nevs, &nsplit, (PetscReal *)evals, iblock, isplit, work, iwork, &inf… in main()
55 …LAPACKstein_(&n, (PetscReal *)D, (PetscReal *)E, &nevs, (PetscReal *)evals, iblock, isplit, evecs_… in main()
|