| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex98.c | 13 IS setIS, pointIS; in main() local 56 PetscCall(DMGetStratumIS(dm, "Vertex Sets", setID[s], &pointIS)); in main() 59 PetscCall(ISGetIndices(pointIS, &pointID)); in main() 65 PetscCall(ISRestoreIndices(pointIS, &pointID)); in main() 66 PetscCall(ISDestroy(&pointIS)); in main() 74 PetscCall(DMGetStratumIS(dm, "Vertex Sets", setID[s], &pointIS)); in main() 76 PetscCall(ISGetIndices(pointIS, &pointID)); in main() 82 PetscCall(ISRestoreIndices(pointIS, &pointID)); in main() 83 PetscCall(ISDestroy(&pointIS)); in main()
|
| H A D | ex98f90.F90 | 17 type(tIS) :: setIS, pointIS 65 PetscCallA(DMGetStratumIS(dm, 'Vertex Sets', setID(s), pointIS, ierr)) 69 PetscCallA(ISGetIndices(pointIS, pointID, ierr)) 76 PetscCallA(ISRestoreIndices(pointIS, pointID, ierr)) 77 PetscCallA(ISDestroy(pointIS, ierr)) 86 PetscCallA(DMGetStratumIS(dm, 'Vertex Sets', setID(s), pointIS, ierr)) 88 PetscCallA(ISGetIndices(pointIS, pointID, ierr)) 94 PetscCallA(ISRestoreIndices(pointIS, pointID, ierr)) 95 PetscCallA(ISDestroy(pointIS, ierr))
|
| /petsc/src/dm/field/interface/ |
| H A D | dmfield.c | 378 PetscErrorCode DMFieldCreateDefaultQuadrature(DMField field, IS pointIS, PetscQuadrature *quad) in DMFieldCreateDefaultQuadrature() argument 382 PetscValidHeaderSpecific(pointIS, IS_CLASSID, 2); in DMFieldCreateDefaultQuadrature() 386 PetscTryTypeMethod(field, createDefaultQuadrature, pointIS, quad); in DMFieldCreateDefaultQuadrature() 406 PetscErrorCode DMFieldCreateDefaultFaceQuadrature(DMField field, IS pointIS, PetscQuadrature *quad) in DMFieldCreateDefaultFaceQuadrature() argument 410 PetscValidHeaderSpecific(pointIS, IS_CLASSID, 2); in DMFieldCreateDefaultFaceQuadrature() 414 PetscTryTypeMethod(field, createDefaultFaceQuadrature, pointIS, quad); in DMFieldCreateDefaultFaceQuadrature() 439 PetscErrorCode DMFieldCreateFEGeom(DMField field, IS pointIS, PetscQuadrature quad, PetscFEGeomMode… in DMFieldCreateFEGeom() argument 449 PetscValidHeaderSpecific(pointIS, IS_CLASSID, 2); in DMFieldCreateFEGeom() 451 PetscCall(ISGetLocalSize(pointIS, &nPoints)); in DMFieldCreateFEGeom() 454 PetscCall(DMFieldEvaluateFE(field, pointIS, quad, PETSC_REAL, g->v, g->J, NULL)); in DMFieldCreateFEGeom() [all …]
|
| /petsc/src/ts/utils/ |
| H A D | dmplexts.c | 157 IS pointIS; in DMPlexTSComputeIFunctionFEM() local 160 PetscCall(DMLabelGetStratumIS(key.label, key.value, &pointIS)); in DMPlexTSComputeIFunctionFEM() 161 PetscCall(ISIntersect_Caching_Internal(allcellIS, pointIS, &cellIS)); in DMPlexTSComputeIFunctionFEM() 162 PetscCall(ISDestroy(&pointIS)); in DMPlexTSComputeIFunctionFEM() 215 IS pointIS; in DMPlexTSComputeIJacobianFEM() local 218 PetscCall(DMLabelGetStratumIS(key.label, key.value, &pointIS)); in DMPlexTSComputeIJacobianFEM() 219 PetscCall(ISIntersect_Caching_Internal(allcellIS, pointIS, &cellIS)); in DMPlexTSComputeIJacobianFEM() 220 PetscCall(ISDestroy(&pointIS)); in DMPlexTSComputeIJacobianFEM() 275 IS pointIS; in DMPlexTSComputeRHSFunctionFEM() local 278 PetscCall(DMLabelGetStratumIS(key.label, key.value, &pointIS)); in DMPlexTSComputeRHSFunctionFEM() [all …]
|
| /petsc/src/dm/field/impls/shell/ |
| H A D | dmfieldshell.c | 31 PetscErrorCode DMFieldShellEvaluateFEDefault(DMField field, IS pointIS, PetscQuadrature quad, Petsc… in DMFieldShellEvaluateFEDefault() argument 43 PetscCall(DMFieldCreateFEGeom(coordField, pointIS, quad, PETSC_FEGEOM_BASIC, &geom)); in DMFieldShellEvaluateFEDefault() 46 PetscCall(ISGetLocalSize(pointIS, &numPoints)); in DMFieldShellEvaluateFEDefault() 49 …PetscCall(VecCreateMPIWithArray(PetscObjectComm((PetscObject)pointIS), dimC, dimC * Nq * numPoints… in DMFieldShellEvaluateFEDefault() 144 PetscErrorCode DMFieldShellEvaluateFVDefault(DMField field, IS pointIS, PetscDataType type, void *B… in DMFieldShellEvaluateFVDefault() argument 160 PetscCall(DMFieldGetFVQuadrature_Internal(coordField, pointIS, &quad)); in DMFieldShellEvaluateFVDefault() 164 PetscCall(DMFieldCreateFEGeom(coordField, pointIS, quad, PETSC_FEGEOM_BASIC, &geom)); in DMFieldShellEvaluateFVDefault() 165 PetscCall(ISGetLocalSize(pointIS, &numPoints)); in DMFieldShellEvaluateFVDefault() 168 …PetscCall(VecCreateMPIWithArray(PetscObjectComm((PetscObject)pointIS), dimC, dimC * numPoints, PET… in DMFieldShellEvaluateFVDefault()
|
| /petsc/src/dm/label/impls/ephemeral/ |
| H A D | dmlabeleph.c | 133 IS pointIS; in DMLabelView_Ephemeral_Ascii() local 138 PetscCall(DMLabelGetStratumIS(olabel, value, &pointIS)); in DMLabelView_Ephemeral_Ascii() 139 PetscCall(ISGetIndices(pointIS, &points)); in DMLabelView_Ephemeral_Ascii() 140 PetscCall(ISGetLocalSize(pointIS, &n)); in DMLabelView_Ephemeral_Ascii() 142 PetscCall(ISRestoreIndices(pointIS, &points)); in DMLabelView_Ephemeral_Ascii() 143 PetscCall(ISDestroy(&pointIS)); in DMLabelView_Ephemeral_Ascii()
|
| /petsc/src/dm/field/impls/ds/ |
| H A D | dmfieldds.c | 145 static PetscErrorCode DMFieldEvaluateFE_DS(DMField field, IS pointIS, PetscQuadrature quad, PetscDa… in DMFieldEvaluateFE_DS() argument 170 PetscCall(PetscObjectTypeCompare((PetscObject)pointIS, ISSTRIDE, &isStride)); in DMFieldEvaluateFE_DS() 171 PetscCall(ISGetLocalSize(pointIS, &numCells)); in DMFieldEvaluateFE_DS() 172 if (isStride) PetscCall(ISStrideGetInfo(pointIS, &sfirst, &stride)); in DMFieldEvaluateFE_DS() 173 else PetscCall(ISGetIndices(pointIS, &points)); in DMFieldEvaluateFE_DS() 223 if (!isStride) PetscCall(ISRestoreIndices(pointIS, &points)); in DMFieldEvaluateFE_DS() 449 static PetscErrorCode DMFieldEvaluateFV_DS(DMField field, IS pointIS, PetscDataType type, void *B, … in DMFieldEvaluateFV_DS() argument 470 PetscCall(ISGetLocalSize(pointIS, &numPoints)); in DMFieldEvaluateFV_DS() 471 PetscCall(ISGetMinMax(pointIS, &imin, NULL)); in DMFieldEvaluateFV_DS() 483 PetscCall(DMFieldGetDegree(coordField, pointIS, NULL, &maxDegree)); in DMFieldEvaluateFV_DS() [all …]
|
| /petsc/src/snes/utils/ |
| H A D | dmplexsnes.c | 307 IS pointIS; in DMPlexSNESComputeResidualFEM() local 310 PetscCall(DMLabelGetStratumIS(key.label, key.value, &pointIS)); in DMPlexSNESComputeResidualFEM() 311 PetscCall(ISIntersect_Caching_Internal(allcellIS, pointIS, &cellIS)); in DMPlexSNESComputeResidualFEM() 312 PetscCall(ISDestroy(&pointIS)); in DMPlexSNESComputeResidualFEM() 389 IS pointIS; in DMPlexSNESComputeResidualDS() local 391 PetscCall(DMLabelGetStratumIS(label, val, &pointIS)); in DMPlexSNESComputeResidualDS() 392 PetscCall(ISIntersect_Caching_Internal(allcellIS, pointIS, &cellIS)); in DMPlexSNESComputeResidualDS() 393 PetscCall(ISDestroy(&pointIS)); in DMPlexSNESComputeResidualDS() 504 IS pointIS; in DMSNESComputeJacobianAction() local 506 PetscCall(DMLabelGetStratumIS(label, val, &pointIS)); in DMSNESComputeJacobianAction() [all …]
|
| /petsc/src/dm/impls/plex/ |
| H A D | plexsubmesh.c | 218 IS pointIS; in DMPlexLabelComplete_Internal() local 223 PetscCall(DMLabelGetStratumIS(label, values[v], &pointIS)); in DMPlexLabelComplete_Internal() 224 PetscCall(ISGetIndices(pointIS, &points)); in DMPlexLabelComplete_Internal() 237 PetscCall(ISRestoreIndices(pointIS, &points)); in DMPlexLabelComplete_Internal() 238 PetscCall(ISDestroy(&pointIS)); in DMPlexLabelComplete_Internal() 246 IS valueIS, pointIS; in DMPlexLabelComplete_Internal() local 258 PetscCall(DMLabelGetStratumIS(lblLeaves, value, &pointIS)); in DMPlexLabelComplete_Internal() 259 PetscCall(DMLabelInsertIS(label, pointIS, value)); in DMPlexLabelComplete_Internal() 260 PetscCall(ISDestroy(&pointIS)); in DMPlexLabelComplete_Internal() 273 PetscCall(DMLabelGetStratumIS(lblRoots, value, &pointIS)); in DMPlexLabelComplete_Internal() [all …]
|
| H A D | plexpartition.c | 1100 IS rankIS, pointIS, closureIS; in DMPlexPartitionLabelClosure() local 1110 PetscCall(DMLabelGetStratumIS(label, rank, &pointIS)); in DMPlexPartitionLabelClosure() 1111 PetscCall(ISGetLocalSize(pointIS, &numPoints)); in DMPlexPartitionLabelClosure() 1112 PetscCall(ISGetIndices(pointIS, &points)); in DMPlexPartitionLabelClosure() 1114 PetscCall(ISRestoreIndices(pointIS, &points)); in DMPlexPartitionLabelClosure() 1115 PetscCall(ISDestroy(&pointIS)); in DMPlexPartitionLabelClosure() 1137 IS rankIS, pointIS; in DMPlexPartitionLabelAdjacency() local 1149 PetscCall(DMLabelGetStratumIS(label, rank, &pointIS)); in DMPlexPartitionLabelAdjacency() 1150 PetscCall(ISGetLocalSize(pointIS, &numPoints)); in DMPlexPartitionLabelAdjacency() 1151 PetscCall(ISGetIndices(pointIS, &points)); in DMPlexPartitionLabelAdjacency() [all …]
|
| H A D | plexsection.c | 132 IS pointIS; in DMPlexCreateSectionDof() local 136 PetscCall(DMLabelGetStratumIS(label[f], 1, &pointIS)); in DMPlexCreateSectionDof() 137 if (!pointIS) continue; in DMPlexCreateSectionDof() 138 PetscCall(ISGetLocalSize(pointIS, &n)); in DMPlexCreateSectionDof() 139 PetscCall(ISGetIndices(pointIS, &points)); in DMPlexCreateSectionDof() 161 PetscCall(ISRestoreIndices(pointIS, &points)); in DMPlexCreateSectionDof() 162 PetscCall(ISDestroy(&pointIS)); in DMPlexCreateSectionDof()
|
| H A D | plexceed.c | 3 …e DMGetPoints_Internal(DM dm, DMLabel domainLabel, PetscInt labelVal, PetscInt height, IS *pointIS) in DMGetPoints_Internal() argument 18 PetscCall(ISIntersect(depthIS, domainIS, pointIS)); in DMGetPoints_Internal() 21 *pointIS = NULL; in DMGetPoints_Internal() 25 *pointIS = depthIS; in DMGetPoints_Internal()
|
| H A D | plexproject.c | 1015 IS pointIS, isectIS; in DMProjectLocal_Generic_Plex() local 1021 PetscCall(DMLabelGetStratumIS(label, ids[i], &pointIS)); in DMProjectLocal_Generic_Plex() 1022 if (!pointIS) continue; /* No points with that id on this process */ in DMProjectLocal_Generic_Plex() 1023 PetscCall(ISIntersect(pointIS, heightIS, &isectIS)); in DMProjectLocal_Generic_Plex() 1024 PetscCall(ISDestroy(&pointIS)); in DMProjectLocal_Generic_Plex() 1067 IS pointIS; in DMProjectLocal_Generic_Plex() local 1069 PetscCall(ISCreateStride(PETSC_COMM_SELF, pEnd - pStart, pStart, 1, &pointIS)); in DMProjectLocal_Generic_Plex() 1070 PetscCall(DMFieldGetDegree(coordField, pointIS, NULL, &maxDegree)); in DMProjectLocal_Generic_Plex() 1071 if (maxDegree <= 1) PetscCall(DMFieldCreateDefaultQuadrature(coordField, pointIS, &quad)); in DMProjectLocal_Generic_Plex() 1080 …PetscCall(DMFieldCreateFEGeom(coordField, pointIS, quad, (htInc && h == minHeight) ? PETSC_FEGEOM_… in DMProjectLocal_Generic_Plex() [all …]
|
| H A D | plexfem.c | 59 static PetscErrorCode DMPlexGetFEGeom(DMField coordField, IS pointIS, PetscQuadrature quad, PetscFE… in DMPlexGetFEGeom() argument 68 PetscCall(PetscObjectQuery((PetscObject)pointIS, composeStr, (PetscObject *)&container)); in DMPlexGetFEGeom() 72 PetscCall(DMFieldCreateFEGeom(coordField, pointIS, quad, mode, geom)); in DMPlexGetFEGeom() 76 PetscCall(PetscObjectCompose((PetscObject)pointIS, composeStr, (PetscObject)container)); in DMPlexGetFEGeom() 82 static PetscErrorCode DMPlexRestoreFEGeom(DMField coordField, IS pointIS, PetscQuadrature quad, Pet… in DMPlexRestoreFEGeom() argument 1729 IS fieldIS, pointIS; in DMComputeL2FieldDiff_Plex() local 1751 PetscCall(DMLabelGetStratumIS(label, 1, &pointIS)); in DMComputeL2FieldDiff_Plex() 1752 PetscCall(ISGetLocalSize(pointIS, &cEnd)); in DMComputeL2FieldDiff_Plex() 1753 PetscCall(ISGetIndices(pointIS, &points)); in DMComputeL2FieldDiff_Plex() 1841 PetscCall(ISRestoreIndices(pointIS, &points)); in DMComputeL2FieldDiff_Plex() [all …]
|
| H A D | plexcreate.c | 5043 IS pointIS; in DMPlexCreateFromOptions_Internal() local 5050 PetscCall(DMLabelGetStratumIS(inlabel, inval, &pointIS)); in DMPlexCreateFromOptions_Internal() 5051 PetscCall(ISGetLocalSize(pointIS, &ln)); in DMPlexCreateFromOptions_Internal() 5052 PetscCall(ISGetIndices(pointIS, &lpoints)); in DMPlexCreateFromOptions_Internal() 5059 PetscCall(ISRestoreIndices(pointIS, &lpoints)); in DMPlexCreateFromOptions_Internal() 5060 PetscCall(ISDestroy(&pointIS)); in DMPlexCreateFromOptions_Internal() 5232 IS valueIS, pointIS; in DMSetFromOptions_Plex() local 5246 PetscCall(DMLabelGetStratumIS(label, value, &pointIS)); in DMSetFromOptions_Plex() 5247 PetscCall(ISGetIndices(pointIS, &points)); in DMSetFromOptions_Plex() 5257 PetscCall(ISRestoreIndices(pointIS, &points)); in DMSetFromOptions_Plex() [all …]
|
| /petsc/src/vec/is/utils/ |
| H A D | isltog.c | 48 PetscErrorCode ISGetPointRange(IS pointIS, PetscInt *pStart, PetscInt *pEnd, const PetscInt *points… in ISGetPointRange() argument 56 PetscCall(ISGetLocalSize(pointIS, &numCells)); in ISGetPointRange() 57 PetscCall(PetscObjectTypeCompare((PetscObject)pointIS, ISSTRIDE, &isStride)); in ISGetPointRange() 58 if (isStride) PetscCall(ISStrideGetInfo(pointIS, pStart, &step)); in ISGetPointRange() 60 if (!isStride || step != 1) PetscCall(ISGetIndices(pointIS, points)); in ISGetPointRange() 79 PetscErrorCode ISRestorePointRange(IS pointIS, PetscInt *pStart, PetscInt *pEnd, const PetscInt *po… in ISRestorePointRange() argument 85 PetscCall(PetscObjectTypeCompare((PetscObject)pointIS, ISSTRIDE, &isStride)); in ISRestorePointRange() 86 if (isStride) PetscCall(ISStrideGetInfo(pointIS, pStart, &step)); in ISRestorePointRange() 87 if (!isStride || step != 1) PetscCall(ISGetIndices(pointIS, points)); in ISRestorePointRange()
|
| /petsc/src/dm/impls/plex/transform/impls/extrude/ |
| H A D | plextrcohesive.c | 1226 IS pointIS; in DMPlexTransformCohesiveExtrudeGetUnsplit() local 1231 PetscCall(DMLabelGetStratumIS(trTypes, val, &pointIS)); in DMPlexTransformCohesiveExtrudeGetUnsplit() 1232 PetscCall(ISGetLocalSize(pointIS, &Np)); in DMPlexTransformCohesiveExtrudeGetUnsplit() 1233 PetscCall(ISGetIndices(pointIS, &points)); in DMPlexTransformCohesiveExtrudeGetUnsplit() 1250 PetscCall(ISRestoreIndices(pointIS, &points)); in DMPlexTransformCohesiveExtrudeGetUnsplit() 1251 PetscCall(ISDestroy(&pointIS)); in DMPlexTransformCohesiveExtrudeGetUnsplit()
|
| H A D | plextrextrude.c | 98 IS valueIS, pointIS; in DMPlexTransformExtrudeComputeExtrusionDim() local 108 PetscCall(DMLabelGetStratumIS(active, values[v], &pointIS)); in DMPlexTransformExtrudeComputeExtrusionDim() 109 PetscCall(ISGetLocalSize(pointIS, &Np)); in DMPlexTransformExtrudeComputeExtrusionDim() 110 PetscCall(ISGetIndices(pointIS, &points)); in DMPlexTransformExtrudeComputeExtrusionDim() 115 PetscCall(ISRestoreIndices(pointIS, &points)); in DMPlexTransformExtrudeComputeExtrusionDim() 116 PetscCall(ISDestroy(&pointIS)); in DMPlexTransformExtrudeComputeExtrusionDim()
|
| /petsc/src/dm/label/ |
| H A D | dmlabel.c | 801 IS pointIS; in DMLabelCreateIndex() local 805 PetscUseTypeMethod(label, getstratumis, v, &pointIS); in DMLabelCreateIndex() 806 PetscCall(ISGetIndices(pointIS, &points)); in DMLabelCreateIndex() 814 PetscCall(ISDestroy(&pointIS)); in DMLabelCreateIndex() 1540 static PetscErrorCode DMLabelGetStratumIS_Concrete(DMLabel label, PetscInt v, IS *pointIS) in DMLabelGetStratumIS_Concrete() argument 1544 *pointIS = label->points[v]; in DMLabelGetStratumIS_Concrete() 1723 IS pointIS; in DMLabelGetStratumPointIndex() local 1733 PetscUseTypeMethod(label, getstratumis, v, &pointIS); in DMLabelGetStratumPointIndex() 1734 PetscCall(ISLocate(pointIS, p, index)); in DMLabelGetStratumPointIndex() 1735 PetscCall(ISDestroy(&pointIS)); in DMLabelGetStratumPointIndex()
|
| /petsc/src/dm/field/impls/da/ |
| H A D | dmfieldda.c | 355 static PetscErrorCode DMFieldGetDegree_DA(DMField field, IS pointIS, PetscInt *minDegree, PetscInt … in DMFieldGetDegree_DA() argument 362 PetscCall(ISGetMinMax(pointIS, &imin, NULL)); in DMFieldGetDegree_DA()
|
| /petsc/src/dm/impls/plex/transform/interface/ |
| H A D | plextransform.c | 1891 IS pointIS; in RefineLabel_Internal() local 1898 PetscCall(DMLabelGetStratumIS(label, values[val], &pointIS)); in RefineLabel_Internal() 1899 PetscCall(ISGetLocalSize(pointIS, &numPoints)); in RefineLabel_Internal() 1900 PetscCall(ISGetIndices(pointIS, &points)); in RefineLabel_Internal() 1917 PetscCall(ISRestoreIndices(pointIS, &points)); in RefineLabel_Internal() 1918 PetscCall(ISDestroy(&pointIS)); in RefineLabel_Internal()
|
| /petsc/src/dm/interface/ |
| H A D | dm.c | 6020 IS pointIS; in DMCreateDS() local 6023 PetscCall(DMLabelGetStratumIS(label, 1, &pointIS)); in DMCreateDS() 6024 PetscCall(ISDifference(allcellIS, pointIS, &defcellIS)); in DMCreateDS() 6025 PetscCall(ISDestroy(&pointIS)); in DMCreateDS()
|