| /petsc/src/dm/interface/ftn-custom/ |
| H A D | zdmf.c | 35 PETSC_EXTERN void dmcreatefielddecompositiongetisdm_(DM *dm, F90Array1d *iss, F90Array1d *dms, Pets… in dmcreatefielddecompositiongetisdm_() argument 41 if (iss && dms) { in dmcreatefielddecompositiongetisdm_() 43 } else if (iss) { in dmcreatefielddecompositiongetisdm_() 49 if (iss) *ierr = F90Array1dCreate(tis, MPIU_FORTRANADDR, 1, n, iss PETSC_F90_2PTR_PARAM(ptrd1)); in dmcreatefielddecompositiongetisdm_() 54 PETSC_EXTERN void dmcreatefielddecompositionrestoreisdm_(DM *dm, F90Array1d *iss, F90Array1d *dms, … in dmcreatefielddecompositionrestoreisdm_() argument 60 if (iss) { in dmcreatefielddecompositionrestoreisdm_() 62 *ierr = F90Array1dAccess(iss, MPIU_FORTRANADDR, (void **)&tis PETSC_F90_2PTR_PARAM(ptrd1)); in dmcreatefielddecompositionrestoreisdm_() 64 *ierr = F90Array1dDestroy(iss, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd1)); in dmcreatefielddecompositionrestoreisdm_()
|
| /petsc/src/dm/ftn-mod/ |
| H A D | petscdmmod.F90 | 74 subroutine DMCreateFieldDecompositionGetISDM(dm, iss, dms, ierr) 79 IS, pointer :: iss(:) 86 subroutine DMCreateFieldDecompositionRestoreISDM(dm, iss, dms, ierr) 91 IS, pointer :: iss(:) 143 subroutine DMCreateFieldDecomposition(dm, n, names, iss, dms, ierr) argument 146 IS, pointer :: iss(:) 157 call DMCreateFieldDecompositionGetISDM(dm, iss, dms, ierr) 160 subroutine DMDestroyFieldDecomposition(dm, n, names, iss, dms, ierr) argument 163 IS, pointer :: iss(:) 171 call DMCreateFieldDecompositionRestoreISDM(dm, iss, dms, ierr)
|
| H A D | petscdmcomposite.h90 | 2 subroutine DMCompositeRestoreGlobalISs(dm, iss, ierr) 6 IS, pointer :: iss(:) 10 subroutine DMCompositeRestoreLocalISs(dm, iss, ierr) 14 IS, pointer :: iss(:)
|
| /petsc/src/ts/tutorials/multirate/ |
| H A D | ex3.c | 81 IS iss; in main() local 103 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, 1, indicess, PETSC_COPY_VALUES, &iss)); in main() 130 PetscCall(TSRHSSplitSetIS(ts, "slow", iss)); in main() 181 PetscCall(ISDestroy(&iss)); in main()
|
| H A D | ex1.c | 84 IS iss; in main() local 106 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, 1, indicess, PETSC_COPY_VALUES, &iss)); in main() 149 PetscCall(TSRHSSplitSetIS(ts, "slow", iss)); in main() 192 PetscCall(ISDestroy(&iss)); in main()
|
| H A D | ex2.c | 84 IS iss; in main() local 106 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, 1, indicess, PETSC_COPY_VALUES, &iss)); in main() 149 PetscCall(TSRHSSplitSetIS(ts, "slow", iss)); in main() 192 PetscCall(ISDestroy(&iss)); in main()
|
| H A D | ex3fastslowsplit.c | 112 IS iss; in main() local 134 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, 1, indicess, PETSC_COPY_VALUES, &iss)); in main() 171 PetscCall(TSRHSSplitSetIS(ts, "slow", iss)); in main() 220 PetscCall(ISDestroy(&iss)); in main()
|
| H A D | ex5.c | 208 PetscCall(ISGetSize(ctx->iss, &len_slow)); in FVRHSFunctionslow() 313 PetscCall(ISGetSize(ctx->iss, &len_slow)); in FVRHSFunctionfast() 414 PetscCall(ISGetSize(ctx->iss, &len_slow1)); in FVRHSFunctionslow2() 529 PetscCall(ISGetSize(ctx->iss, &len_slow1)); in FVRHSFunctionfast2() 713 PetscCall(ISCreateGeneral(PETSC_COMM_WORLD, islow, index_slow, PETSC_COPY_VALUES, &ctx.iss)); in main() 720 PetscCall(TSRHSSplitSetIS(ts, "slow", ctx.iss)); in main() 821 PetscCall(ISDestroy(&ctx.iss)); in main()
|
| H A D | finitevolume1d.h | 127 IS isf, iss, isf2, iss2, ism, issb, ismb; member
|
| H A D | ex7.c | 70 IS isf, iss; member 741 PetscCall(ISCreateGeneral(PETSC_COMM_WORLD, islow, index_slow, PETSC_COPY_VALUES, &ctx.iss)); in main() 748 PetscCall(TSRHSSplitSetIS(ts, "slow", ctx.iss)); in main() 853 PetscCall(ISDestroy(&ctx.iss)); in main()
|
| H A D | ex6.c | 849 PetscCall(ISCreateGeneral(PETSC_COMM_WORLD, islow, index_slow, PETSC_COPY_VALUES, &ctx.iss)); in main() 857 PetscCall(TSRHSSplitSetIS(ts, "slow", ctx.iss)); in main() 975 PetscCall(ISDestroy(&ctx.iss)); in main()
|
| H A D | ex4.c | 1293 PetscCall(ISCreateGeneral(PETSC_COMM_WORLD, islow, index_slow, PETSC_COPY_VALUES, &ctx.iss)); in main() 1301 PetscCall(TSRHSSplitSetIS(ts, "slow", ctx.iss)); in main() 1420 PetscCall(ISDestroy(&ctx.iss)); in main()
|
| H A D | ex8.c | 1205 PetscCall(ISCreateGeneral(PETSC_COMM_WORLD, islow, index_slow, PETSC_COPY_VALUES, &ctx.iss)); in main() 1215 PetscCall(TSRHSSplitSetIS(ts, "slow", ctx.iss)); in main() 1345 PetscCall(ISDestroy(&ctx.iss)); in main()
|
| /petsc/src/mat/tests/ |
| H A D | ex241.c | 47 IS iss, ist, is[2]; in main() local 93 PetscCall(MatHtoolGetPermutationSource(A, &iss)); in main() 98 PetscCall(VecPermute(right, iss, PETSC_FALSE)); in main() 109 PetscCall(ISDestroy(&iss)); in main() 211 PetscCall(MatHtoolGetPermutationSource(R, &iss)); in main() 216 PetscCall(VecPermute(right, iss, PETSC_FALSE)); in main() 227 PetscCall(ISDestroy(&iss)); in main()
|
| /petsc/src/binding/petsc4py/demo/legacy/ode/ |
| H A D | fastslowsplit.py | 82 iss = PETSc.IS().createGeneral([0], comm=ode.comm) variable 86 ts.setRHSSplitIS('slow', iss)
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex18.c | 882 IS *iss; in TestExpandPoints() local 894 PetscCall(DMPlexGetConeRecursive(dm, is, &depth, &iss, §s)); in TestExpandPoints() 903 PetscCall(ISView(iss[d], sviewer)); in TestExpandPoints() 906 PetscCall(DMPlexExpandedConesToFaces_Private(dm, iss[d], sects[d], &checkIS)); in TestExpandPoints() 907 PetscCall(ISEqualUnsorted(checkIS, iss[d + 1], &flg)); in TestExpandPoints() 913 PetscCall(DMPlexRestoreConeRecursive(dm, is, &depth, &iss, §s)); in TestExpandPoints()
|
| /petsc/src/ksp/pc/impls/gamg/ |
| H A D | gamg.c | 861 IS *iss; in PCSetUp_GAMG() local 864 iss = ASMLocalIDsArr[level]; in PCSetUp_GAMG() 875 PetscCall(PCASMSetLocalSubdomains(subpc, sz, iss, NULL)); in PCSetUp_GAMG() 876 for (kk = 0; kk < sz; kk++) PetscCall(ISDestroy(&iss[kk])); in PCSetUp_GAMG() 877 PetscCall(PetscFree(iss)); in PCSetUp_GAMG()
|
| /petsc/src/binding/petsc4py/src/petsc4py/PETSc/ |
| H A D | TS.pyx | 1252 def setRHSSplitIS(self, splitname: str, IS iss) -> None: argument 1261 iss 1271 CHKERR(TSRHSSplitSetIS(self.ts, cname, iss.iset))
|
| /petsc/src/mat/interface/ |
| H A D | matrix.c | 11122 PetscErrorCode MatSubdomainsCreateCoalesce(Mat A, PetscInt N, PetscInt *n, IS *iss[]) in MatSubdomainsCreateCoalesce() argument 11137 PetscCall(PetscMalloc1(1, iss)); in MatSubdomainsCreateCoalesce() 11139 PetscCall(ISCreateStride(subcomm, rend - rstart, rstart, 1, iss[0])); in MatSubdomainsCreateCoalesce()
|