Lines Matching refs:ierr

19   PetscErrorCode                     :: ierr
24   PetscCallA(PetscInitialize(ierr))
25   PetscCallMPIA(MPI_Comm_size(PETSC_COMM_WORLD, numProc, ierr))
27 …cCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-i', ifilename, flg, ierr))
30 …allA(DMPlexCreateFromFile(PETSC_COMM_WORLD, ifilename, PETSC_NULL_CHARACTER, PETSC_TRUE, dm, ierr))
31   PetscCallA(DMPlexDistributeSetDefault(dm, PETSC_FALSE, ierr))
32   PetscCallA(DMSetFromOptions(dm, ierr))
35     PetscCallA(DMPlexDistribute(dm, 0_kPI, PETSC_NULL_SF, pdm, ierr))
36     PetscCallA(DMDestroy(dm, ierr))
39   PetscCallA(DMViewFromOptions(dm, PETSC_NULL_OBJECT, '-dm_view', ierr))
41   PetscCallA(DMGetDimension(dm, sdim, ierr))
42   PetscCallA(PetscObjectGetComm(dm, comm, ierr))
43   PetscCallA(PetscSectionCreate(comm, section, ierr))
44   PetscCallA(PetscSectionSetNumFields(section, 1_kPI, ierr))
45   PetscCallA(PetscSectionSetFieldName(section, 0_kPI, 'U', ierr))
46   PetscCallA(PetscSectionSetFieldComponents(section, 0_kPI, sdim, ierr))
47   PetscCallA(DMPlexGetChart(dm, pStart, pEnd, ierr))
48   PetscCallA(PetscSectionSetChart(section, pStart, pEnd, ierr))
51   PetscCallA(DMPlexGetDepthStratum(dm, 0_kPI, pStart, pEnd, ierr))
53     PetscCallA(PetscSectionSetDof(section, p, sdim, ierr))
54     PetscCallA(PetscSectionSetFieldDof(section, p, 0_kPI, sdim, ierr))
59   PetscCallA(DMGetLabelSize(dm, 'Vertex Sets', numVS, ierr))
61   PetscCallA(PetscPrintf(PETSC_COMM_WORLD, iobuffer, ierr))
62   PetscCallA(DMGetLabelIdIS(dm, 'Vertex Sets', setIS, ierr))
63   PetscCallA(ISGetIndices(setIS, setID, ierr))
65     PetscCallA(DMGetStratumIS(dm, 'Vertex Sets', setID(s), pointIS, ierr))
66     PetscCallA(DMGetStratumSize(dm, 'Vertex Sets', setID(s), numPoints, ierr))
68     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, iobuffer, ierr))
69     PetscCallA(ISGetIndices(pointIS, pointID, ierr))
72       PetscCallA(PetscPrintf(PETSC_COMM_WORLD, iobuffer, ierr))
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))
77     PetscCallA(ISDestroy(pointIS, ierr))
80   PetscCallA(PetscSectionSetUp(section, ierr))
86     PetscCallA(DMGetStratumIS(dm, 'Vertex Sets', setID(s), pointIS, ierr))
87     PetscCallA(DMGetStratumSize(dm, 'Vertex Sets', setID(s), numPoints, 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))
95     PetscCallA(ISDestroy(pointIS, ierr))
98   PetscCallA(ISRestoreIndices(setIS, setID, ierr))
99   PetscCallA(ISDestroy(setIS, ierr))
100   PetscCallA(PetscObjectViewFromOptions(section, PETSC_NULL_OBJECT, '-dm_section_view', ierr))
102   PetscCallA(PetscSectionDestroy(section, ierr))
103   PetscCallA(DMDestroy(dm, ierr))
105   PetscCallA(PetscFinalize(ierr))