Home
last modified time | relevance | path

Searched refs:pointID (Results 1 – 2 of 2) sorted by relevance

/petsc/src/dm/impls/plex/tests/
H A Dex98.c14 const PetscInt *setID, *pointID; in main() local
59 PetscCall(ISGetIndices(pointIS, &pointID)); in main()
61 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "\t point %" PetscInt_FMT "\n", pointID[p])); in main()
62 PetscCall(PetscSectionSetConstraintDof(section, pointID[p], 1)); in main()
63 PetscCall(PetscSectionSetFieldConstraintDof(section, pointID[p], field, 1)); in main()
65 PetscCall(ISRestoreIndices(pointIS, &pointID)); in main()
76 PetscCall(ISGetIndices(pointIS, &pointID)); in main()
79 PetscCall(PetscSectionSetConstraintIndices(section, pointID[p], constraints)); in main()
80 PetscCall(PetscSectionSetFieldConstraintIndices(section, pointID[p], field, constraints)); in main()
82 PetscCall(ISRestoreIndices(pointIS, &pointID)); in main()
H A Dex98f90.F9018 PetscInt, dimension(:), pointer :: setID, pointID
69 PetscCallA(ISGetIndices(pointIS, pointID, ierr))
71 write (iobuffer, '(" point ",i3,"\n")') pointID(p)
73 PetscCallA(PetscSectionSetConstraintDof(section, pointID(p), 1_kPI, ierr))
74 PetscCallA(PetscSectionSetFieldConstraintDof(section, pointID(p), 0_kPI, 1_kPI, ierr))
76 PetscCallA(ISRestoreIndices(pointIS, pointID, ierr))
88 PetscCallA(ISGetIndices(pointIS, pointID, ierr))
91 PetscCallA(PetscSectionSetConstraintIndices(section, pointID(p), constraints, ierr))
92 … PetscCallA(PetscSectionSetFieldConstraintIndices(section, pointID(p), 0_kPI, constraints, ierr))
94 PetscCallA(ISRestoreIndices(pointIS, pointID, ierr))