| /petsc/src/vec/is/utils/ftn-custom/ |
| H A D | zvsectionisf.c | 18 …(PetscSection section, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***ro… in petscsectiongetpointsyms_() argument 20 …*__ierr = PetscSectionGetPointSyms(section, *numPoints, points, (const PetscInt ***)perms, (const … in petscsectiongetpointsyms_() 22 …(PetscSection section, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***ro… in petscsectionrestorepointsyms_() argument 24 …*__ierr = PetscSectionRestorePointSyms(section, *numPoints, points, (const PetscInt ***)perms, (co… in petscsectionrestorepointsyms_() 26 …tion, PetscInt *field, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***ro… in petscsectiongetfieldpointsyms_() argument 28 …etFieldPointSyms(section, *field, *numPoints, points, (const PetscInt ***)perms, (const PetscScala… in petscsectiongetfieldpointsyms_() 30 …tion, PetscInt *field, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***ro… in petscsectionrestorefieldpointsyms_() argument 32 …reFieldPointSyms(section, *field, *numPoints, points, (const PetscInt ***)perms, (const PetscScala… in petscsectionrestorefieldpointsyms_()
|
| /petsc/src/dm/label/ftn-custom/ |
| H A D | zdmlabel.c | 11 …PetscInt *minOrient, PetscInt *maxOrient, PetscCopyMode *mode, PetscInt **perms, PetscScalar **rot… in petscsectionsymlabelsetstratum_() argument 13 …(*sym, *stratum, *size, *minOrient, *maxOrient, *mode, (const PetscInt **)perms, (const PetscScala… in petscsectionsymlabelsetstratum_()
|
| /petsc/src/dm/dt/tests/ |
| H A D | ex4.c | 15 const PetscInt ***perms = NULL; in CheckSymmetry() local 29 PetscCall(PetscDualSpaceGetSymmetries(sp, &perms, &flips)); in CheckSymmetry() 30 if (!perms && !flips) { in CheckSymmetry() 54 const PetscInt **pointPerms = perms ? perms[i] : NULL; in CheckSymmetry()
|
| /petsc/src/dm/impls/plex/tutorials/ |
| H A D | ex6.c | 208 PetscInt **perms; in SetSymmetries() local 210 PetscCall(PetscCalloc1(maxOrnt - minOrnt, &perms)); in SetSymmetries() 215 perms[o - minOrnt] = NULL; in SetSymmetries() 221 perms[o - minOrnt] = perm; in SetSymmetries() 224 …um(sym, d, numDof * numComp, minOrnt, maxOrnt, PETSC_OWN_POINTER, (const PetscInt **)perms, NULL)); in SetSymmetries() 231 PetscInt **perms; in SetSymmetries() local 233 PetscCall(PetscCalloc1(maxOrnt - minOrnt, &perms)); in SetSymmetries() 295 perms[o - minOrnt] = perm; in SetSymmetries() 297 …um(sym, d, numDof * numComp, minOrnt, maxOrnt, PETSC_OWN_POINTER, (const PetscInt **)perms, NULL)); in SetSymmetries()
|
| /petsc/src/dm/label/ |
| H A D | dmlabel.c | 2667 const PetscInt ***perms; member 2682 if (sl->perms[i]) PetscCall(PetscFree(sl->perms[i][j])); in PetscSectionSymLabelReset() 2685 if (sl->perms[i]) { in PetscSectionSymLabelReset() 2686 const PetscInt **perms = &sl->perms[i][sl->minMaxOrients[i][0]]; in PetscSectionSymLabelReset() local 2688 PetscCall(PetscFree(perms)); in PetscSectionSymLabelReset() 2697 PetscCall(PetscFree5(sl->modes, sl->sizes, sl->perms, sl->rots, sl->minMaxOrients)); in PetscSectionSymLabelReset() 2742 if (!(sl->perms[i] || sl->rots[i])) { in PetscSectionSymView_Label() 2751 if (!((sl->perms[i] && sl->perms[i][j]) || (sl->rots[i] && sl->rots[i][j]))) { in PetscSectionSymView_Label() 2759 if (sl->perms[i] && sl->perms[i][j]) { in PetscSectionSymView_Label() 2762 …l->sizes[i]; k++) PetscCall(PetscViewerASCIIPrintf(viewer, " %" PetscInt_FMT, sl->perms[i][j][k])); in PetscSectionSymView_Label() [all …]
|
| /petsc/src/vec/is/section/interface/ |
| H A D | section.c | 3550 PetscInt **perms = (PetscInt **)link->perms; in PetscSectionSymDestroy() local 3552 PetscCall(PetscFree2(perms, rots)); in PetscSectionSymDestroy() 3755 …on section, PetscInt numPoints, const PetscInt *points, const PetscInt ***perms, const PetscScalar… in PetscSectionGetPointSyms() argument 3762 if (perms) *perms = NULL; in PetscSectionGetPointSyms() 3765 if (sym && (perms || rots)) { in PetscSectionGetPointSyms() 3775 PetscInt **perms = (PetscInt **)link->perms; in PetscSectionGetPointSyms() local 3777 PetscCall(PetscFree2(perms, rots)); in PetscSectionGetPointSyms() 3778 …PetscCall(PetscMalloc2(numPoints, (PetscInt ***)&link->perms, numPoints, (PetscScalar ***)&link->r… in PetscSectionGetPointSyms() 3783 PetscCall(PetscArrayzero((PetscInt **)link->perms, numPoints)); in PetscSectionGetPointSyms() 3785 PetscUseTypeMethod(sym, getpoints, section, numPoints, points, link->perms, link->rots); in PetscSectionGetPointSyms() [all …]
|
| /petsc/src/dm/impls/plex/ |
| H A D | plextree.c | 1174 const PetscInt ***perms = NULL; in DMPlexComputeAnchorMatrix_Tree_Direct() local 1201 PetscCall(PetscDualSpaceGetSymmetries(dspace, &perms, &flips)); in DMPlexComputeAnchorMatrix_Tree_Direct() 1314 perm = (perms && perms[i]) ? perms[i][o] : NULL; in DMPlexComputeAnchorMatrix_Tree_Direct() 1341 permP = (perms && perms[j]) ? perms[j][oq] : NULL; in DMPlexComputeAnchorMatrix_Tree_Direct() 1396 const PetscInt **perms; in DMPlexReferenceTreeGetChildrenMatrices() local 1430 … PetscCall(PetscSectionGetFieldPointSyms(refSection, f, closureSize, closure, &perms, &flips)); in DMPlexReferenceTreeGetChildrenMatrices() 1434 PetscCall(PetscSectionGetPointSyms(refSection, closureSize, closure, &perms, &flips)); in DMPlexReferenceTreeGetChildrenMatrices() 1442 const PetscInt *perm = perms ? perms[i] : NULL; in DMPlexReferenceTreeGetChildrenMatrices() 1482 … PetscCall(PetscSectionRestoreFieldPointSyms(refSection, f, closureSize, closure, &perms, &flips)); in DMPlexReferenceTreeGetChildrenMatrices() 1484 PetscCall(PetscSectionRestorePointSyms(refSection, closureSize, closure, &perms, &flips)); in DMPlexReferenceTreeGetChildrenMatrices() [all …]
|
| H A D | plex.c | 6482 const PetscInt **perms = NULL; in DMPlexVecGetClosure_Static() local 6487 PetscCall(PetscSectionGetPointSyms(section, numPoints, points, &perms, &flips)); in DMPlexVecGetClosure_Static() 6490 const PetscInt *perm = perms ? perms[p] : NULL; in DMPlexVecGetClosure_Static() 6519 PetscCall(PetscSectionRestorePointSyms(section, numPoints, points, &perms, &flips)); in DMPlexVecGetClosure_Static() 6532 const PetscInt **perms = NULL; in DMPlexVecGetClosure_Fields_Static() local 6535 PetscCall(PetscSectionGetFieldPointSyms(section, f, numPoints, points, &perms, &flips)); in DMPlexVecGetClosure_Fields_Static() 6540 const PetscInt *perm = perms ? perms[p] : NULL; in DMPlexVecGetClosure_Fields_Static() 6567 PetscCall(PetscSectionRestoreFieldPointSyms(section, f, numPoints, points, &perms, &flips)); in DMPlexVecGetClosure_Fields_Static() 7328 const PetscInt **perms = NULL; in DMPlexVecSetClosure() local 7331 PetscCall(PetscSectionGetFieldPointSyms(section, f, numPoints, points, &perms, &flips)); in DMPlexVecSetClosure() [all …]
|
| H A D | plexsfc.c | 356 const PetscInt **perms; in DMPlexOrientFieldPointIndex() local 359 PetscCall(PetscSectionGetFieldPointSyms(section, field, 1, point_ornt, &perms, NULL)); in DMPlexOrientFieldPointIndex() 360 …if (!perms) PetscFunctionReturn(PETSC_SUCCESS); // section may not have symmetries, such as Q2 fin… in DMPlexOrientFieldPointIndex() 368 if (perms[0]) array[off + perms[0][i]] = copy[i]; in DMPlexOrientFieldPointIndex() 371 PetscCall(PetscSectionRestoreFieldPointSyms(section, field, 1, point_ornt, &perms, NULL)); in DMPlexOrientFieldPointIndex() 381 const PetscInt **perms; in DMPlexOrientFieldPointVec() local 385 PetscCall(PetscSectionGetFieldPointSyms(section, field, 1, point_ornt, &perms, &rots)); in DMPlexOrientFieldPointVec() 386 …if (!perms) PetscFunctionReturn(PETSC_SUCCESS); // section may not have symmetries, such as Q2 fin… in DMPlexOrientFieldPointVec() 394 if (perms[0]) V_arr[off + perms[0][i]] = copy[i]; in DMPlexOrientFieldPointVec() 395 if (rots[0]) V_arr[off + perms[0][i]] *= rots[0][i]; in DMPlexOrientFieldPointVec() [all …]
|
| H A D | plexsection.c | 37 const PetscInt ***perms; in DMPlexCreateSectionFields() local 43 PetscCall(PetscDualSpaceGetSymmetries(dspace, &perms, &flips)); in DMPlexCreateSectionFields() 45 if (perms || flips) { in DMPlexCreateSectionFields() 63 PetscCall(PetscDualSpaceGetSymmetries(hspace, &perms, &flips)); in DMPlexCreateSectionFields() 64 if (perms) perms0 = perms[0]; in DMPlexCreateSectionFields()
|
| H A D | plexproject.c | 306 const PetscInt ***perms; in DMProjectPoint_Field_Private() local 308 PetscCall(PetscDualSpaceGetSymmetries(sp[f], &perms, NULL)); in DMProjectPoint_Field_Private() 316 qpt[0] = perms ? perms[0][ornt[0]][q] : q; in DMProjectPoint_Field_Private() 317 qpt[1] = perms ? perms[0][DMPolytopeTypeComposeOrientationInv(qct, ornt[1], 0)][q] : q; in DMProjectPoint_Field_Private()
|
| /petsc/include/petsc/private/ |
| H A D | sectionimpl.h | 68 const PetscInt **perms; member
|
| /petsc/src/dm/dt/dualspace/interface/ |
| H A D | dualspace.c | 1751 PetscErrorCode PetscDualSpaceGetSymmetries(PetscDualSpace sp, const PetscInt ****perms, const Petsc… in PetscDualSpaceGetSymmetries() argument 1755 if (perms) { in PetscDualSpaceGetSymmetries() 1756 PetscAssertPointer(perms, 2); in PetscDualSpaceGetSymmetries() 1757 *perms = NULL; in PetscDualSpaceGetSymmetries() 1763 PetscTryTypeMethod(sp, getsymmetries, perms, flips); in PetscDualSpaceGetSymmetries()
|
| /petsc/src/dm/dt/dualspace/impls/sum/ |
| H A D | dualspacesum.c | 574 static PetscErrorCode PetscDualSpaceGetSymmetries_Sum(PetscDualSpace sp, const PetscInt ****perms, … in PetscDualSpaceGetSymmetries_Sum() argument 725 if (perms) *perms = (const PetscInt ***)sum->symperms; in PetscDualSpaceGetSymmetries_Sum()
|
| /petsc/src/dm/dt/dualspace/impls/lagrange/ |
| H A D | dspacelagrange.c | 2669 …etscDualSpaceGetSymmetries_Lagrange(PetscDualSpace sp, const PetscInt ****perms, const PetscScalar… in PetscDualSpaceGetSymmetries_Lagrange() argument 2803 if (perms) *perms = (const PetscInt ***)lag->symperms; in PetscDualSpaceGetSymmetries_Lagrange()
|