Bug Summary

File:dm/impls/plex/plexrefine.c
Warning:line 17, column 37
Array access (from variable 'depthSize') results in a null pointer dereference

Annotated Source Code

[?] Use j/k keys for keyboard navigation

1#include <petsc/private/dmpleximpl.h> /*I "petscdmplex.h" I*/
2#include <petscsf.h>
3
4PETSC_STATIC_INLINEstatic inline PetscErrorCode GetDepthStart_Private(PetscInt depth, PetscInt depthSize[], PetscInt *cStart, PetscInt *fStart, PetscInt *eStart, PetscInt *vStart)
5{
6 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 6; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
7 if (cStart) *cStart = 0;
8 if (vStart) *vStart = depth < 0 ? 0 : depthSize[depth];
9 if (fStart) *fStart = depth < 0 ? 0 : depthSize[depth] + depthSize[0];
10 if (eStart) *eStart = depth < 0 ? 0 : depthSize[depth] + depthSize[0] + depthSize[depth-1];
11 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
12}
13
14PETSC_STATIC_INLINEstatic inline PetscErrorCode GetDepthEnd_Private(PetscInt depth, PetscInt depthSize[], PetscInt *cEnd, PetscInt *fEnd, PetscInt *eEnd, PetscInt *vEnd)
15{
16 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 16; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
17 if (cEnd) *cEnd = depth < 0 ? 0 : depthSize[depth];
11
←
Taking true branch
→
12
←
Assuming 'depth' is >= 0
→
13
←
'?' condition is false
→
14
←
Array access (from variable 'depthSize') results in a null pointer dereference
18 if (vEnd) *vEnd = depth < 0 ? 0 : depthSize[depth] + depthSize[0];
19 if (fEnd) *fEnd = depth < 0 ? 0 : depthSize[depth] + depthSize[0] + depthSize[depth-1];
20 if (eEnd) *eEnd = depth < 0 ? 0 : depthSize[depth] + depthSize[0] + depthSize[depth-1] + depthSize[1];
21 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
22}
23
24/* Gets the affine map from the original cell to each subcell */
25PetscErrorCode CellRefinerGetAffineTransforms_Internal(CellRefiner refiner, PetscInt *numSubcells, PetscReal *v0[], PetscReal *jac[], PetscReal *invjac[])
26{
27 PetscReal *v = NULL((void*)0), *j = NULL((void*)0), *invj = NULL((void*)0), detJ;
28 PetscInt dim, s;
29 PetscErrorCode ierr;
30
31 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 31; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
32 switch (refiner) {
33 case REFINER_NOOP: break;
34 case REFINER_SIMPLEX_2D:
35 /*
36 2
37 |\
38 | \
39 | \
40 | \
41 | C \
42 | \
43 | \
44 2---1---1
45 |\ D / \
46 | 2 0 \
47 |A \ / B \
48 0---0-------1
49 */
50 dim = 2;
51 if (numSubcells) *numSubcells = 4;
52 if (v0) {
53 ierr = PetscMalloc3(4*dim,&v,4*dim*dim,&j,4*dim*dim,&invj)PetscMallocA(3,PETSC_FALSE,53,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(4*dim)*sizeof(**(&v)),(&v),(size_t)(4*dim*dim
)*sizeof(**(&j)),(&j),(size_t)(4*dim*dim)*sizeof(**(&
invj)),(&invj));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),53,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
54 /* A */
55 v[0+0] = -1.0; v[0+1] = -1.0;
56 j[0+0] = 0.5; j[0+1] = 0.0;
57 j[0+2] = 0.0; j[0+3] = 0.5;
58 /* B */
59 v[2+0] = 0.0; v[2+1] = -1.0;
60 j[4+0] = 0.5; j[4+1] = 0.0;
61 j[4+2] = 0.0; j[4+3] = 0.5;
62 /* C */
63 v[4+0] = -1.0; v[4+1] = 0.0;
64 j[8+0] = 0.5; j[8+1] = 0.0;
65 j[8+2] = 0.0; j[8+3] = 0.5;
66 /* D */
67 v[6+0] = 0.0; v[6+1] = -1.0;
68 j[12+0] = 0.0; j[12+1] = -0.5;
69 j[12+2] = 0.5; j[12+3] = 0.5;
70 for (s = 0; s < 4; ++s) {
71 DMPlex_Det2D_Internal(&detJ, &j[s*dim*dim]);
72 DMPlex_Invert2D_Internal(&invj[s*dim*dim], &j[s*dim*dim], detJ);
73 }
74 }
75 break;
76 case REFINER_HEX_2D:
77 /*
78 3---------2---------2
79 | | |
80 | D 2 C |
81 | | |
82 3----3----0----1----1
83 | | |
84 | A 0 B |
85 | | |
86 0---------0---------1
87 */
88 dim = 2;
89 if (numSubcells) *numSubcells = 4;
90 if (v0) {
91 ierr = PetscMalloc3(4*dim,&v,4*dim*dim,&j,4*dim*dim,&invj)PetscMallocA(3,PETSC_FALSE,91,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(4*dim)*sizeof(**(&v)),(&v),(size_t)(4*dim*dim
)*sizeof(**(&j)),(&j),(size_t)(4*dim*dim)*sizeof(**(&
invj)),(&invj));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),91,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
92 /* A */
93 v[0+0] = -1.0; v[0+1] = -1.0;
94 j[0+0] = 0.5; j[0+1] = 0.0;
95 j[0+2] = 0.0; j[0+3] = 0.5;
96 /* B */
97 v[2+0] = 0.0; v[2+1] = -1.0;
98 j[4+0] = 0.5; j[4+1] = 0.0;
99 j[4+2] = 0.0; j[4+3] = 0.5;
100 /* C */
101 v[4+0] = 0.0; v[4+1] = 0.0;
102 j[8+0] = 0.5; j[8+1] = 0.0;
103 j[8+2] = 0.0; j[8+3] = 0.5;
104 /* D */
105 v[6+0] = -1.0; v[6+1] = 0.0;
106 j[12+0] = 0.5; j[12+1] = 0.0;
107 j[12+2] = 0.0; j[12+3] = 0.5;
108 for (s = 0; s < 4; ++s) {
109 DMPlex_Det2D_Internal(&detJ, &j[s*dim*dim]);
110 DMPlex_Invert2D_Internal(&invj[s*dim*dim], &j[s*dim*dim], detJ);
111 }
112 }
113 break;
114 case REFINER_HEX_3D:
115 /*
116 Bottom (viewed from top) Top
117 1---------2---------2 7---------2---------6
118 | | | | | |
119 | B 2 C | | H 2 G |
120 | | | | | |
121 3----3----0----1----1 3----3----0----1----1
122 | | | | | |
123 | A 0 D | | E 0 F |
124 | | | | | |
125 0---------0---------3 4---------0---------5
126 */
127 break;
128 dim = 3;
129 if (numSubcells) *numSubcells = 8;
130 if (v0) {
131 ierr = PetscMalloc3(4*dim,&v,4*dim*dim,&j,4*dim*dim,&invj)PetscMallocA(3,PETSC_FALSE,131,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(4*dim)*sizeof(**(&v)),(&v),(size_t)(4*dim*dim
)*sizeof(**(&j)),(&j),(size_t)(4*dim*dim)*sizeof(**(&
invj)),(&invj));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),131,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
132 /* A */
133 v[0+0] = -1.0; v[0+1] = -1.0; v[0+2] = -1.0;
134 j[0+0] = 0.5; j[0+1] = 0.0; j[0+2] = 0.0;
135 j[0+3] = 0.0; j[0+4] = 0.5; j[0+5] = 0.0;
136 j[0+6] = 0.0; j[0+7] = 0.0; j[0+8] = 0.5;
137 /* B */
138 v[3+0] = -1.0; v[3+1] = 0.0; v[3+2] = -1.0;
139 j[9+0] = 0.5; j[9+1] = 0.0; j[9+2] = 0.0;
140 j[9+3] = 0.0; j[9+4] = 0.5; j[9+5] = 0.0;
141 j[9+6] = 0.0; j[9+7] = 0.0; j[9+8] = 0.5;
142 /* C */
143 v[6+0] = 0.0; v[6+1] = 0.0; v[6+2] = -1.0;
144 j[18+0] = 0.5; j[18+1] = 0.0; j[18+2] = 0.0;
145 j[18+3] = 0.0; j[18+4] = 0.5; j[18+5] = 0.0;
146 j[18+6] = 0.0; j[18+7] = 0.0; j[18+8] = 0.5;
147 /* D */
148 v[9+0] = 0.0; v[9+1] = -1.0; v[9+2] = -1.0;
149 j[27+0] = 0.5; j[27+1] = 0.0; j[27+2] = 0.0;
150 j[27+3] = 0.0; j[27+4] = 0.5; j[27+5] = 0.0;
151 j[27+6] = 0.0; j[27+7] = 0.0; j[27+8] = 0.5;
152 /* E */
153 v[12+0] = -1.0; v[12+1] = -1.0; v[12+2] = 0.0;
154 j[36+0] = 0.5; j[36+1] = 0.0; j[36+2] = 0.0;
155 j[36+3] = 0.0; j[36+4] = 0.5; j[36+5] = 0.0;
156 j[36+6] = 0.0; j[36+7] = 0.0; j[36+8] = 0.5;
157 /* F */
158 v[15+0] = 0.0; v[15+1] = -1.0; v[15+2] = 0.0;
159 j[45+0] = 0.5; j[45+1] = 0.0; j[45+2] = 0.0;
160 j[45+3] = 0.0; j[45+4] = 0.5; j[45+5] = 0.0;
161 j[45+6] = 0.0; j[45+7] = 0.0; j[45+8] = 0.5;
162 /* G */
163 v[18+0] = 0.0; v[18+1] = 0.0; v[18+2] = 0.0;
164 j[54+0] = 0.5; j[54+1] = 0.0; j[54+2] = 0.0;
165 j[54+3] = 0.0; j[54+4] = 0.5; j[54+5] = 0.0;
166 j[54+6] = 0.0; j[54+7] = 0.0; j[54+8] = 0.5;
167 /* H */
168 v[21+0] = -1.0; v[21+1] = 0.0; v[21+2] = 0.0;
169 j[63+0] = 0.5; j[63+1] = 0.0; j[63+2] = 0.0;
170 j[63+3] = 0.0; j[63+4] = 0.5; j[63+5] = 0.0;
171 j[63+6] = 0.0; j[63+7] = 0.0; j[63+8] = 0.5;
172 for (s = 0; s < 8; ++s) {
173 DMPlex_Det3D_Internal(&detJ, &j[s*dim*dim]);
174 DMPlex_Invert3D_Internal(&invj[s*dim*dim], &j[s*dim*dim], detJ);
175 }
176 }
177 default:
178 SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown cell refiner %D", refiner)return PetscError(((MPI_Comm)0x44000001),178,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown cell refiner %D",refiner);
179 }
180 if (v0) {*v0 = v; *jac = j; *invjac = invj;}
181 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
182}
183
184PetscErrorCode CellRefinerRestoreAffineTransforms_Internal(CellRefiner refiner, PetscInt *numSubcells, PetscReal *v0[], PetscReal *jac[], PetscReal *invjac[])
185{
186 PetscErrorCode ierr;
187
188 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 188; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
189 ierr = PetscFree3(*v0,*jac,*invjac)PetscFreeA(3,189,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,&(*v0),&(*jac),&(*invjac));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),189,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
190 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
191}
192
193/* Should this be here or in the DualSpace somehow? */
194PetscErrorCode CellRefinerInCellTest_Internal(CellRefiner refiner, const PetscReal point[], PetscBool *inside)
195{
196 PetscReal sum = 0.0;
197 PetscInt d;
198
199 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 199; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
200 *inside = PETSC_TRUE;
201 switch (refiner) {
202 case REFINER_NOOP: break;
203 case REFINER_SIMPLEX_2D:
204 for (d = 0; d < 2; ++d) {
205 if (point[d] < -1.0) {*inside = PETSC_FALSE; break;}
206 sum += point[d];
207 }
208 if (sum > 1.0e-10) {*inside = PETSC_FALSE; break;}
209 break;
210 case REFINER_HEX_2D:
211 for (d = 0; d < 2; ++d) if ((point[d] < -1.00000000001) || (point[d] > 1.000000000001)) {*inside = PETSC_FALSE; break;}
212 break;
213 default:
214 SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown cell refiner %D", refiner)return PetscError(((MPI_Comm)0x44000001),214,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown cell refiner %D",refiner);
215 }
216 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
217}
218
219static PetscErrorCode CellRefinerGetSizes(CellRefiner refiner, DM dm, PetscInt depthSize[])
220{
221 PetscInt cStart, cEnd, cMax, vStart, vEnd, vMax, fStart, fEnd, fMax, eStart, eEnd, eMax;
222 PetscErrorCode ierr;
223
224 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 224; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
225 ierr = DMPlexGetDepthStratum(dm, 0, &vStart, &vEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),225,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
226 ierr = DMPlexGetDepthStratum(dm, 1, &eStart, &eEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),226,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
227 ierr = DMPlexGetHeightStratum(dm, 0, &cStart, &cEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),227,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
228 ierr = DMPlexGetHeightStratum(dm, 1, &fStart, &fEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),228,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
229 ierr = DMPlexGetHybridBounds(dm, &cMax, &fMax, &eMax, &vMax);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),229,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
230 switch (refiner) {
231 case REFINER_NOOP:
232 break;
233 case REFINER_SIMPLEX_1D:
234 depthSize[0] = vEnd - vStart + cEnd - cStart; /* Add a vertex on every cell. */
235 depthSize[1] = 2*(cEnd - cStart); /* Split every cell in 2. */
236 break;
237 case REFINER_SIMPLEX_2D:
238 depthSize[0] = vEnd - vStart + fEnd - fStart; /* Add a vertex on every face */
239 depthSize[1] = 2*(fEnd - fStart) + 3*(cEnd - cStart); /* Every face is split into 2 faces and 3 faces are added for each cell */
240 depthSize[2] = 4*(cEnd - cStart); /* Every cell split into 4 cells */
241 break;
242 case REFINER_HYBRID_SIMPLEX_2D:
243 if (cMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No cell maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),243,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No cell maximum specified in hybrid mesh"
);
244 if (fMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No face maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),244,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No face maximum specified in hybrid mesh"
);
245 depthSize[0] = vEnd - vStart + fMax - fStart; /* Add a vertex on every face, but not hybrid faces */
246 depthSize[1] = 2*(fMax - fStart) + 3*(cMax - cStart) + (fEnd - fMax) + (cEnd - cMax); /* Every interior face is split into 2 faces, 3 faces are added for each interior cell, and one in each hybrid cell */
247 depthSize[2] = 4*(cMax - cStart) + 2*(cEnd - cMax); /* Interior cells split into 4 cells, hybrid cells split into 2 cells */
248 break;
249 case REFINER_SIMPLEX_TO_HEX_2D:
250 depthSize[0] = vEnd - vStart + fEnd - fStart + cEnd - cStart; /* Add a vertex on every face and cell */
251 depthSize[1] = 2*(fEnd - fStart) + 3*(cEnd - cStart); /* Every face is split into 2 faces and 3 faces are added for each cell */
252 depthSize[2] = 3*(cEnd - cStart); /* Every cell split into 3 cells */
253 break;
254 case REFINER_HYBRID_SIMPLEX_TO_HEX_2D:
255 if (cMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No cell maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),255,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No cell maximum specified in hybrid mesh"
);
256 depthSize[0] = vEnd - vStart + fEnd - fStart + cEnd - cStart; /* Add a vertex on every face and cell */
257 depthSize[1] = 2*(fEnd - fStart) + 3*(cMax - cStart) + 4*(cEnd - cMax); /* Every face is split into 2 faces and 3 faces are added for each cell. 4 for each hybrid cell */
258 depthSize[2] = 3*(cMax - cStart) + 4*(cEnd - cMax); /* Every cell split into 3 cells, hybrid cells split in 4 */
259 break;
260 case REFINER_HEX_2D:
261 depthSize[0] = vEnd - vStart + fEnd - fStart + cEnd - cStart; /* Add a vertex on every face and cell */
262 depthSize[1] = 2*(fEnd - fStart) + 4*(cEnd - cStart); /* Every face is split into 2 faces and 4 faces are added for each cell */
263 depthSize[2] = 4*(cEnd - cStart); /* Every cell split into 4 cells */
264 break;
265 case REFINER_HYBRID_HEX_2D:
266 if (cMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No cell maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),266,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No cell maximum specified in hybrid mesh"
);
267 if (fMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No face maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),267,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No face maximum specified in hybrid mesh"
);
268 /* Quadrilateral */
269 depthSize[0] = vEnd - vStart + fMax - fStart + cMax - cStart; /* Add a vertex on every face and cell */
270 depthSize[1] = 2*(fMax - fStart) + 4*(cMax - cStart); /* Every face is split into 2 faces, and 4 faces are added for each cell */
271 depthSize[2] = 4*(cMax - cStart); /* Every cell split into 4 cells */
272 /* Segment Prisms */
273 depthSize[0] += 0; /* No hybrid vertices */
274 depthSize[1] += (fEnd - fMax) + (cEnd - cMax); /* Every hybrid face remains and 1 faces is added for each hybrid cell */
275 depthSize[2] += 2*(cEnd - cMax); /* Every hybrid cell split into 2 cells */
276 break;
277 case REFINER_SIMPLEX_3D:
278 depthSize[0] = vEnd - vStart + eEnd - eStart; /* Add a vertex on every edge */
279 depthSize[1] = 2*(eEnd - eStart) + 3*(fEnd - fStart) + (cEnd - cStart); /* Every edge is split into 2 edges, 3 edges are added for each face, and 1 edge for each cell */
280 depthSize[2] = 4*(fEnd - fStart) + 8*(cEnd - cStart); /* Every face split into 4 faces and 8 faces are added for each cell */
281 depthSize[3] = 8*(cEnd - cStart); /* Every cell split into 8 cells */
282 break;
283 case REFINER_HYBRID_SIMPLEX_3D:
284 if (cMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No cell maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),284,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No cell maximum specified in hybrid mesh"
);
285 if (fMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No face maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),285,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No face maximum specified in hybrid mesh"
);
286 if (eMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No edge maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),286,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No edge maximum specified in hybrid mesh"
);
287 /* Tetrahedra */
288 depthSize[0] = vEnd - vStart + eMax - eStart; /* Add a vertex on every interior edge */
289 depthSize[1] = 2*(eMax - eStart) + 3*(fMax - fStart) + (cMax - cStart); /* Every interior edge split into 2 edges, 3 edges added for each interior face, 1 edge for each interior cell */
290 depthSize[2] = 4*(fMax - fStart) + 8*(cMax - cStart); /* Every interior face split into 4 faces, 8 faces added for each interior cell */
291 depthSize[3] = 8*(cMax - cStart); /* Every interior cell split into 8 cells */
292 /* Triangular Prisms */
293 depthSize[0] += 0; /* No hybrid vertices */
294 depthSize[1] += (eEnd - eMax) + (fEnd - fMax); /* Every hybrid edge remains, 1 edge for every hybrid face */
295 depthSize[2] += 2*(fEnd - fMax) + 3*(cEnd - cMax); /* Every hybrid face split into 2 faces and 3 faces are added for each hybrid cell */
296 depthSize[3] += 4*(cEnd - cMax); /* Every hybrid cell split into 4 cells */
297 break;
298 case REFINER_SIMPLEX_TO_HEX_3D:
299 depthSize[0] = vEnd - vStart + fEnd - fStart + eEnd - eStart + cEnd - cStart; /* Add a vertex on every face, edge and cell */
300 depthSize[1] = 2*(eEnd - eStart) + 3*(fEnd - fStart) + 4*(cEnd - cStart); /* Every edge is split into 2 edges, 3 edges are added for each face, and 4 for each cell */
301 depthSize[2] = 3*(fEnd - fStart) + 6*(cEnd - cStart); /* Every face is split into 3 faces and 6 faces are added for each cell */
302 depthSize[3] = 4*(cEnd - cStart); /* Every cell split into 4 cells */
303 break;
304 case REFINER_HYBRID_SIMPLEX_TO_HEX_3D:
305 if (cMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No cell maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),305,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No cell maximum specified in hybrid mesh"
);
306 if (fMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No face maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),306,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No face maximum specified in hybrid mesh"
);
307 if (eMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No edge maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),307,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No edge maximum specified in hybrid mesh"
);
308 /* Tetrahedra */
309 depthSize[0] = vEnd - vStart + eMax - eStart + fMax - fStart + cMax - cStart; /* Add a vertex on every interior edge, face and cell */
310 depthSize[1] = 2*(eMax - eStart) + 3*(fMax - fStart) + 4*(cMax - cStart); /* Every interior edge split into 2 edges, 3 edges added for each interior face, 4 edges for each interior cell */
311 depthSize[2] = 3*(fMax - fStart) + 6*(cMax - cStart); /* Every interior face split into 3 faces, 6 faces added for each interior cell */
312 depthSize[3] = 4*(cMax - cStart); /* Every interior cell split into 8 cells */
313 /* Triangular Prisms */
314 depthSize[0] += 0; /* No hybrid vertices */
315 depthSize[1] += (eEnd - eMax) + (fEnd - fMax) + (cEnd - cMax); /* Every hybrid edge remains, 1 edge for every hybrid face and cell */
316 depthSize[2] += 2*(fEnd - fMax) + 3*(cEnd - cMax); /* Every hybrid face split into 2 faces and 3 faces are added for each hybrid cell */
317 depthSize[3] += 3*(cEnd - cMax); /* Every hybrid cell split into 3 cells */
318 break;
319 case REFINER_HEX_3D:
320 depthSize[0] = vEnd - vStart + eEnd - eStart + fEnd - fStart + cEnd - cStart; /* Add a vertex on every edge, face and cell */
321 depthSize[1] = 2*(eEnd - eStart) + 4*(fEnd - fStart) + 6*(cEnd - cStart); /* Every edge is split into 2 edge, 4 edges are added for each face, and 6 edges for each cell */
322 depthSize[2] = 4*(fEnd - fStart) + 12*(cEnd - cStart); /* Every face is split into 4 faces, and 12 faces are added for each cell */
323 depthSize[3] = 8*(cEnd - cStart); /* Every cell split into 8 cells */
324 break;
325 case REFINER_HYBRID_HEX_3D:
326 if (cMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No cell maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),326,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No cell maximum specified in hybrid mesh"
);
327 if (fMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No face maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),327,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No face maximum specified in hybrid mesh"
);
328 if (eMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No edge maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),328,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No edge maximum specified in hybrid mesh"
);
329 /* Hexahedra */
330 depthSize[0] = vEnd - vStart + eMax - eStart + fMax - fStart + cMax - cStart; /* Add a vertex on every edge, face and cell */
331 depthSize[1] = 2*(eMax - eStart) + 4*(fMax - fStart) + 6*(cMax - cStart); /* Every edge is split into 2 edge, 4 edges are added for each face, and 6 edges for each cell */
332 depthSize[2] = 4*(fMax - fStart) + 12*(cMax - cStart); /* Every face is split into 4 faces, and 12 faces are added for each cell */
333 depthSize[3] = 8*(cMax - cStart); /* Every cell split into 8 cells */
334 /* Quadrilateral Prisms */
335 depthSize[0] += 0; /* No hybrid vertices */
336 depthSize[1] += (eEnd - eMax) + (fEnd - fMax) + (cEnd - cMax); /* Every hybrid edge remains, 1 edge for every hybrid face and hybrid cell */
337 depthSize[2] += 2*(fEnd - fMax) + 4*(cEnd - cMax); /* Every hybrid face split into 2 faces and 4 faces are added for each hybrid cell */
338 depthSize[3] += 4*(cEnd - cMax); /* Every hybrid cell split into 4 cells */
339 break;
340 default:
341 SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown cell refiner %D", refiner)return PetscError(((MPI_Comm)0x44000001),341,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown cell refiner %D",refiner);
342 }
343 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
344}
345
346/* Return triangle edge for orientation o, if it is r for o == 0 */
347PETSC_STATIC_INLINEstatic inline PetscInt GetTriEdge_Static(PetscInt o, PetscInt r) {
348 return (o < 0 ? 2-(o+r) : o+r)%3;
349}
350PETSC_STATIC_INLINEstatic inline PetscInt GetTriEdgeInverse_Static(PetscInt o, PetscInt s) {
351 return (o < 0 ? 2-(o+s) : 3+s-o)%3;
352}
353
354/* Return triangle subface for orientation o, if it is r for o == 0 */
355PETSC_STATIC_INLINEstatic inline PetscInt GetTriSubface_Static(PetscInt o, PetscInt r) {
356 return (o < 0 ? 3-(o+r) : o+r)%3;
357}
358PETSC_STATIC_INLINEstatic inline PetscInt GetTriSubfaceInverse_Static(PetscInt o, PetscInt s) {
359 return (o < 0 ? 3-(o+s) : 3+s-o)%3;
360}
361
362/* Return the interior edge number connecting the midpoints of the triangle edges r
363 and r+1 in the transitive closure for triangle orientation o */
364PETSC_STATIC_INLINEstatic inline PetscInt GetTriMidEdge_Static(PetscInt o, PetscInt r) {
365 return (o < 0 ? 1-(o+r) : o+r)%3;
366}
367PETSC_STATIC_INLINEstatic inline PetscInt GetTriMidEdgeInverse_Static(PetscInt o, PetscInt s) {
368 return (o < 0 ? 1-(o+s) : 3+s-o)%3;
369}
370
371/* Return the interior edge number connecting the midpoint of the triangle edge r
372 (in the transitive closure) and the vertex in the interior of the face for triangle orientation o */
373PETSC_STATIC_INLINEstatic inline PetscInt GetTriInteriorEdge_Static(PetscInt o, PetscInt r) {
374 return (o < 0 ? 2-(o+r) : o+r)%3;
375}
376PETSC_STATIC_INLINEstatic inline PetscInt GetTriInteriorEdgeInverse_Static(PetscInt o, PetscInt s) {
377 return (o < 0 ? 2-(o+s) : 3+s-o)%3;
378}
379
380/* Return quad edge for orientation o, if it is r for o == 0 */
381PETSC_STATIC_INLINEstatic inline PetscInt GetQuadEdge_Static(PetscInt o, PetscInt r) {
382 return (o < 0 ? 3-(o+r) : o+r)%4;
383}
384PETSC_STATIC_INLINEstatic inline PetscInt GetQuadEdgeInverse_Static(PetscInt o, PetscInt s) {
385 return (o < 0 ? 3-(o+s) : 4+s-o)%4;
386}
387
388/* Return quad subface for orientation o, if it is r for o == 0 */
389PETSC_STATIC_INLINEstatic inline PetscInt GetQuadSubface_Static(PetscInt o, PetscInt r) {
390 return (o < 0 ? 4-(o+r) : o+r)%4;
391}
392PETSC_STATIC_INLINEstatic inline PetscInt GetQuadSubfaceInverse_Static(PetscInt o, PetscInt s) {
393 return (o < 0 ? 4-(o+s) : 4+s-o)%4;
394}
395
396static PetscErrorCode DMLabelSetStratumBounds(DMLabel label, PetscInt value, PetscInt cStart, PetscInt cEnd)
397{
398 IS cIS;
399 PetscErrorCode ierr;
400
401 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 401; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
402 ierr = ISCreateStride(PETSC_COMM_SELF((MPI_Comm)0x44000001), cEnd - cStart, cStart, 1, &cIS);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),402,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
403 ierr = DMLabelSetStratumIS(label, value, cIS);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),403,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
404 ierr = ISDestroy(&cIS);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),404,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
405 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
406}
407
408static PetscErrorCode CellRefinerSetConeSizes(CellRefiner refiner, DM dm, PetscInt depthSize[], DM rdm)
409{
410 PetscInt depth, cStart, cStartNew, cEnd, cEndNew, cMax, c, vStart, vStartNew, vEnd, vEndNew, vMax, v, fStart, fStartNew, fEnd, fEndNew, fMax, f, eStart, eStartNew, eEnd, eEndNew, eMax, e, r;
411 DMLabel depthLabel;
412 PetscErrorCode ierr;
413
414 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 414; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
415 ierr = DMPlexGetDepth(dm, &depth);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),415,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
416 ierr = DMPlexGetDepthStratum(dm, 0, &vStart, &vEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),416,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
417 ierr = DMPlexGetDepthStratum(dm, 1, &eStart, &eEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),417,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
418 ierr = DMPlexGetHeightStratum(dm, 0, &cStart, &cEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),418,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
419 ierr = DMPlexGetHeightStratum(dm, 1, &fStart, &fEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),419,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
420 ierr = DMPlexGetHybridBounds(dm, &cMax, &fMax, &eMax, &vMax);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),420,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
421 ierr = GetDepthStart_Private(depth, depthSize, &cStartNew, &fStartNew, &eStartNew, &vStartNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),421,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
422 ierr = GetDepthEnd_Private(depth, depthSize, &cEndNew, &fEndNew, &eEndNew, &vEndNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),422,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
423 ierr = DMCreateLabel(rdm,"depth");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),423,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
424 ierr = DMPlexGetDepthLabel(rdm,&depthLabel);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),424,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
425 ierr = DMLabelSetStratumBounds(depthLabel, 0, vStartNew, vEndNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),425,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
426 if (depth > 2) ierr = DMLabelSetStratumBounds(depthLabel, 1, eStartNew, eEndNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),426,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
427 if (depth > 1) ierr = DMLabelSetStratumBounds(depthLabel, depth - 1, fStartNew, fEndNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),427,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
428 if (depth > 0) ierr = DMLabelSetStratumBounds(depthLabel, depth, cStartNew, cEndNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),428,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
429 {
430 DM_Plex *plex = (DM_Plex *) rdm->data;
431 ierr = PetscObjectStateGet((PetscObject) depthLabel, &plex->depthState);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),431,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
432 }
433 if (!refiner) PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
434 switch (refiner) {
435 case REFINER_SIMPLEX_1D:
436 /* All cells have 2 vertices */
437 for (c = cStart; c < cEnd; ++c) {
438 for (r = 0; r < 2; ++r) {
439 const PetscInt newp = cStartNew + (c - cStart)*2 + r;
440
441 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),441,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
442 }
443 }
444 /* Old vertices have identical supports */
445 for (v = vStart; v < vEnd; ++v) {
446 const PetscInt newp = vStartNew + (v - vStart);
447 PetscInt size;
448
449 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),449,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
450 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),450,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
451 }
452 /* Cell vertices have support 2 */
453 for (c = cStart; c < cEnd; ++c) {
454 const PetscInt newp = vStartNew + (vEnd - vStart) + (c - cStart);
455
456 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),456,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
457 }
458 break;
459 case REFINER_SIMPLEX_2D:
460 /* All cells have 3 faces */
461 for (c = cStart; c < cEnd; ++c) {
462 for (r = 0; r < 4; ++r) {
463 const PetscInt newp = (c - cStart)*4 + r;
464
465 ierr = DMPlexSetConeSize(rdm, newp, 3);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),465,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
466 }
467 }
468 /* Split faces have 2 vertices and the same cells as the parent */
469 for (f = fStart; f < fEnd; ++f) {
470 for (r = 0; r < 2; ++r) {
471 const PetscInt newp = fStartNew + (f - fStart)*2 + r;
472 PetscInt size;
473
474 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),474,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
475 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),475,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
476 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),476,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
477 }
478 }
479 /* Interior faces have 2 vertices and 2 cells */
480 for (c = cStart; c < cEnd; ++c) {
481 for (r = 0; r < 3; ++r) {
482 const PetscInt newp = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + r;
483
484 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),484,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
485 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),485,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
486 }
487 }
488 /* Old vertices have identical supports */
489 for (v = vStart; v < vEnd; ++v) {
490 const PetscInt newp = vStartNew + (v - vStart);
491 PetscInt size;
492
493 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),493,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
494 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),494,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
495 }
496 /* Face vertices have 2 + cells*2 supports */
497 for (f = fStart; f < fEnd; ++f) {
498 const PetscInt newp = vStartNew + (vEnd - vStart) + (f - fStart);
499 PetscInt size;
500
501 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),501,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
502 ierr = DMPlexSetSupportSize(rdm, newp, 2 + size*2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),502,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
503 }
504 break;
505 case REFINER_SIMPLEX_TO_HEX_2D:
506 /* All cells have 4 faces */
507 for (c = cStart; c < cEnd; ++c) {
508 for (r = 0; r < 3; ++r) {
509 const PetscInt newp = (c - cStart)*3 + r;
510
511 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),511,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
512 }
513 }
514 /* Split faces have 2 vertices and the same cells as the parent */
515 for (f = fStart; f < fEnd; ++f) {
516 for (r = 0; r < 2; ++r) {
517 const PetscInt newp = fStartNew + (f - fStart)*2 + r;
518 PetscInt size;
519
520 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),520,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
521 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),521,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
522 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),522,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
523 }
524 }
525 /* Interior faces have 2 vertices and 2 cells */
526 for (c = cStart; c < cEnd; ++c) {
527 for (r = 0; r < 3; ++r) {
528 const PetscInt newp = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + r;
529
530 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),530,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
531 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),531,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
532 }
533 }
534 /* Old vertices have identical supports */
535 for (v = vStart; v < vEnd; ++v) {
536 const PetscInt newp = vStartNew + (v - vStart);
537 PetscInt size;
538
539 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),539,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
540 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),540,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
541 }
542 /* Split-face vertices have cells + 2 supports */
543 for (f = fStart; f < fEnd; ++f) {
544 const PetscInt newp = vStartNew + (vEnd - vStart) + (f - fStart);
545 PetscInt size;
546
547 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),547,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
548 ierr = DMPlexSetSupportSize(rdm, newp, size + 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),548,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
549 }
550 /* Interior vertices have 3 supports */
551 for (c = cStart; c < cEnd; ++c) {
552 const PetscInt newp = vStartNew + (vEnd - vStart) + (fEnd - fStart) + c - cStart;
553
554 ierr = DMPlexSetSupportSize(rdm, newp, 3);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),554,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
555 }
556 break;
557 case REFINER_HYBRID_SIMPLEX_TO_HEX_2D:
558 if (cMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No cell maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),558,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No cell maximum specified in hybrid mesh"
);
559 /* the mesh is no longer hybrid */
560 cMax = PetscMin(cEnd, cMax)(((cEnd)<(cMax)) ? (cEnd) : (cMax));
561 /* All cells have 4 faces */
562 for (c = cStart; c < cMax; ++c) {
563 for (r = 0; r < 3; ++r) {
564 const PetscInt newp = (c - cStart)*3 + r;
565
566 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),566,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
567 }
568 }
569 for (c = cMax; c < cEnd; ++c) {
570 for (r = 0; r < 4; ++r) {
571 const PetscInt newp = (cMax - cStart)*3 + (c - cMax)*4 + r;
572
573 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),573,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
574 }
575 }
576 /* Split faces have 2 vertices and the same cells as the parent */
577 for (f = fStart; f < fEnd; ++f) {
578 for (r = 0; r < 2; ++r) {
579 const PetscInt newp = fStartNew + (f - fStart)*2 + r;
580 PetscInt size;
581
582 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),582,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
583 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),583,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
584 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),584,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
585 }
586 }
587 /* Interior faces have 2 vertices and 2 cells */
588 for (c = cStart; c < cMax; ++c) {
589 for (r = 0; r < 3; ++r) {
590 const PetscInt newp = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + r;
591
592 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),592,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
593 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),593,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
594 }
595 }
596 /* Hybrid interior faces have 2 vertices and 2 cells */
597 for (c = cMax; c < cEnd; ++c) {
598 for (r = 0; r < 4; ++r) {
599 const PetscInt newp = fStartNew + (fEnd - fStart)*2 + (cMax - cStart)*3 + (c - cMax)*4 + r;
600
601 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),601,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
602 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),602,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
603 }
604 }
605 /* Old vertices have identical supports */
606 for (v = vStart; v < vEnd; ++v) {
607 const PetscInt newp = vStartNew + (v - vStart);
608 PetscInt size;
609
610 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),610,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
611 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),611,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
612 }
613 /* Split-face vertices have cells + 2 supports */
614 for (f = fStart; f < fEnd; ++f) {
615 const PetscInt newp = vStartNew + (vEnd - vStart) + (f - fStart);
616 PetscInt size;
617
618 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),618,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
619 ierr = DMPlexSetSupportSize(rdm, newp, size + 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),619,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
620 }
621 /* Interior vertices have 3 supports */
622 for (c = cStart; c < cMax; ++c) {
623 const PetscInt newp = vStartNew + (vEnd - vStart) + (fEnd - fStart) + c - cStart;
624
625 ierr = DMPlexSetSupportSize(rdm, newp, 3);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),625,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
626 }
627 /* Hybrid interior vertices have 4 supports */
628 for (c = cMax; c < cEnd; ++c) {
629 const PetscInt newp = vStartNew + (vEnd - vStart) + (fEnd - fStart) + c - cStart;
630
631 ierr = DMPlexSetSupportSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),631,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
632 }
633 break;
634 case REFINER_HEX_2D:
635 /* All cells have 4 faces */
636 for (c = cStart; c < cEnd; ++c) {
637 for (r = 0; r < 4; ++r) {
638 const PetscInt newp = cStartNew + (c - cStart)*4 + r;
639
640 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),640,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
641 }
642 }
643 /* Split faces have 2 vertices and the same cells as the parent */
644 for (f = fStart; f < fEnd; ++f) {
645 for (r = 0; r < 2; ++r) {
646 const PetscInt newp = fStartNew + (f - fStart)*2 + r;
647 PetscInt size;
648
649 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),649,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
650 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),650,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
651 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),651,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
652 }
653 }
654 /* Interior faces have 2 vertices and 2 cells */
655 for (c = cStart; c < cEnd; ++c) {
656 for (r = 0; r < 4; ++r) {
657 const PetscInt newp = fStartNew + (fEnd - fStart)*2 + (c - cStart)*4 + r;
658
659 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),659,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
660 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),660,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
661 }
662 }
663 /* Old vertices have identical supports */
664 for (v = vStart; v < vEnd; ++v) {
665 const PetscInt newp = vStartNew + (v - vStart);
666 PetscInt size;
667
668 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),668,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
669 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),669,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
670 }
671 /* Face vertices have 2 + cells supports */
672 for (f = fStart; f < fEnd; ++f) {
673 const PetscInt newp = vStartNew + (vEnd - vStart) + (f - fStart);
674 PetscInt size;
675
676 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),676,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
677 ierr = DMPlexSetSupportSize(rdm, newp, 2 + size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),677,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
678 }
679 /* Cell vertices have 4 supports */
680 for (c = cStart; c < cEnd; ++c) {
681 const PetscInt newp = vStartNew + (vEnd - vStart) + (fEnd - fStart) + (c - cStart);
682
683 ierr = DMPlexSetSupportSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),683,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
684 }
685 break;
686 case REFINER_HYBRID_SIMPLEX_2D:
687 if (cMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No cell maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),687,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No cell maximum specified in hybrid mesh"
);
688 cMax = PetscMin(cEnd, cMax)(((cEnd)<(cMax)) ? (cEnd) : (cMax));
689 if (fMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No face maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),689,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No face maximum specified in hybrid mesh"
);
690 fMax = PetscMin(fEnd, fMax)(((fEnd)<(fMax)) ? (fEnd) : (fMax));
691 ierr = DMPlexSetHybridBounds(rdm, cStartNew + (cMax - cStart)*4, fStartNew + (fMax - fStart)*2 + (cMax - cStart)*3, PETSC_DETERMINE-1, PETSC_DETERMINE-1);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),691,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
692 /* Interior cells have 3 faces */
693 for (c = cStart; c < cMax; ++c) {
694 for (r = 0; r < 4; ++r) {
695 const PetscInt newp = cStartNew + (c - cStart)*4 + r;
696
697 ierr = DMPlexSetConeSize(rdm, newp, 3);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),697,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
698 }
699 }
700 /* Hybrid cells have 4 faces */
701 for (c = cMax; c < cEnd; ++c) {
702 for (r = 0; r < 2; ++r) {
703 const PetscInt newp = cStartNew + (cMax - cStart)*4 + (c - cMax)*2 + r;
704
705 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),705,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
706 }
707 }
708 /* Interior split faces have 2 vertices and the same cells as the parent */
709 for (f = fStart; f < fMax; ++f) {
710 for (r = 0; r < 2; ++r) {
711 const PetscInt newp = fStartNew + (f - fStart)*2 + r;
712 PetscInt size;
713
714 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),714,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
715 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),715,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
716 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),716,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
717 }
718 }
719 /* Interior cell faces have 2 vertices and 2 cells */
720 for (c = cStart; c < cMax; ++c) {
721 for (r = 0; r < 3; ++r) {
722 const PetscInt newp = fStartNew + (fMax - fStart)*2 + (c - cStart)*3 + r;
723
724 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),724,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
725 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),725,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
726 }
727 }
728 /* Hybrid faces have 2 vertices and the same cells */
729 for (f = fMax; f < fEnd; ++f) {
730 const PetscInt newp = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*3 + (f - fMax);
731 PetscInt size;
732
733 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),733,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
734 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),734,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
735 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),735,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
736 }
737 /* Hybrid cell faces have 2 vertices and 2 cells */
738 for (c = cMax; c < cEnd; ++c) {
739 const PetscInt newp = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*3 + (fEnd - fMax) + (c - cMax);
740
741 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),741,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
742 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),742,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
743 }
744 /* Old vertices have identical supports */
745 for (v = vStart; v < vEnd; ++v) {
746 const PetscInt newp = vStartNew + (v - vStart);
747 PetscInt size;
748
749 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),749,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
750 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),750,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
751 }
752 /* Face vertices have 2 + (2 interior, 1 hybrid) supports */
753 for (f = fStart; f < fMax; ++f) {
754 const PetscInt newp = vStartNew + (vEnd - vStart) + (f - fStart);
755 const PetscInt *support;
756 PetscInt size, newSize = 2, s;
757
758 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),758,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
759 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),759,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
760 for (s = 0; s < size; ++s) {
761 if (support[s] >= cMax) newSize += 1;
762 else newSize += 2;
763 }
764 ierr = DMPlexSetSupportSize(rdm, newp, newSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),764,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
765 }
766 break;
767 case REFINER_HYBRID_HEX_2D:
768 if (cMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No cell maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),768,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No cell maximum specified in hybrid mesh"
);
769 cMax = PetscMin(cEnd, cMax)(((cEnd)<(cMax)) ? (cEnd) : (cMax));
770 if (fMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No face maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),770,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No face maximum specified in hybrid mesh"
);
771 fMax = PetscMin(fEnd, fMax)(((fEnd)<(fMax)) ? (fEnd) : (fMax));
772 ierr = DMPlexSetHybridBounds(rdm, cStartNew + (cMax - cStart)*4, fStartNew + (fMax - fStart)*2 + (cMax - cStart)*4, PETSC_DETERMINE-1, PETSC_DETERMINE-1);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),772,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
773 /* Interior cells have 4 faces */
774 for (c = cStart; c < cMax; ++c) {
775 for (r = 0; r < 4; ++r) {
776 const PetscInt newp = cStartNew + (c - cStart)*4 + r;
777
778 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),778,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
779 }
780 }
781 /* Hybrid cells have 4 faces */
782 for (c = cMax; c < cEnd; ++c) {
783 for (r = 0; r < 2; ++r) {
784 const PetscInt newp = cStartNew + (cMax - cStart)*4 + (c - cMax)*2 + r;
785
786 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),786,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
787 }
788 }
789 /* Interior split faces have 2 vertices and the same cells as the parent */
790 for (f = fStart; f < fMax; ++f) {
791 for (r = 0; r < 2; ++r) {
792 const PetscInt newp = fStartNew + (f - fStart)*2 + r;
793 PetscInt size;
794
795 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),795,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
796 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),796,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
797 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),797,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
798 }
799 }
800 /* Interior cell faces have 2 vertices and 2 cells */
801 for (c = cStart; c < cMax; ++c) {
802 for (r = 0; r < 4; ++r) {
803 const PetscInt newp = fStartNew + (fMax - fStart)*2 + (c - cStart)*4 + r;
804
805 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),805,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
806 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),806,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
807 }
808 }
809 /* Hybrid faces have 2 vertices and the same cells */
810 for (f = fMax; f < fEnd; ++f) {
811 const PetscInt newp = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*4 + (f - fMax);
812 PetscInt size;
813
814 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),814,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
815 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),815,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
816 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),816,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
817 }
818 /* Hybrid cell faces have 2 vertices and 2 cells */
819 for (c = cMax; c < cEnd; ++c) {
820 const PetscInt newp = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*4 + (fEnd - fMax) + (c - cMax);
821
822 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),822,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
823 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),823,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
824 }
825 /* Old vertices have identical supports */
826 for (v = vStart; v < vEnd; ++v) {
827 const PetscInt newp = vStartNew + (v - vStart);
828 PetscInt size;
829
830 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),830,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
831 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),831,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
832 }
833 /* Face vertices have 2 + cells supports */
834 for (f = fStart; f < fMax; ++f) {
835 const PetscInt newp = vStartNew + (vEnd - vStart) + (f - fStart);
836 PetscInt size;
837
838 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),838,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
839 ierr = DMPlexSetSupportSize(rdm, newp, 2 + size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),839,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
840 }
841 /* Cell vertices have 4 supports */
842 for (c = cStart; c < cMax; ++c) {
843 const PetscInt newp = vStartNew + (vEnd - vStart) + (fMax - fStart) + (c - cStart);
844
845 ierr = DMPlexSetSupportSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),845,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
846 }
847 break;
848 case REFINER_SIMPLEX_3D:
849 /* All cells have 4 faces */
850 for (c = cStart; c < cEnd; ++c) {
851 for (r = 0; r < 8; ++r) {
852 const PetscInt newp = cStartNew + (c - cStart)*8 + r;
853
854 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),854,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
855 }
856 }
857 /* Split faces have 3 edges and the same cells as the parent */
858 for (f = fStart; f < fEnd; ++f) {
859 for (r = 0; r < 4; ++r) {
860 const PetscInt newp = fStartNew + (f - fStart)*4 + r;
861 PetscInt size;
862
863 ierr = DMPlexSetConeSize(rdm, newp, 3);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),863,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
864 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),864,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
865 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),865,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
866 }
867 }
868 /* Interior cell faces have 3 edges and 2 cells */
869 for (c = cStart; c < cEnd; ++c) {
870 for (r = 0; r < 8; ++r) {
871 const PetscInt newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + r;
872
873 ierr = DMPlexSetConeSize(rdm, newp, 3);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),873,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
874 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),874,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
875 }
876 }
877 /* Split edges have 2 vertices and the same faces */
878 for (e = eStart; e < eEnd; ++e) {
879 for (r = 0; r < 2; ++r) {
880 const PetscInt newp = eStartNew + (e - eStart)*2 + r;
881 PetscInt size;
882
883 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),883,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
884 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),884,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
885 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),885,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
886 }
887 }
888 /* Face edges have 2 vertices and 2+cells*(1/2) faces */
889 for (f = fStart; f < fEnd; ++f) {
890 for (r = 0; r < 3; ++r) {
891 const PetscInt newp = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + r;
892 const PetscInt *cone, *ornt, *support, eint[4] = {1, 0, 2, 0};
893 PetscInt coneSize, c, supportSize, s, er, intFaces = 0;
894
895 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),895,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
896 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),896,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
897 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),897,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
898 for (s = 0; s < supportSize; ++s) {
899 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),899,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
900 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),900,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
901 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),901,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
902 for (c = 0; c < coneSize; ++c) {if (cone[c] == f) break;}
903 /* Here we want to determine whether edge newp contains a vertex which is part of the cross-tet edge */
904 er = GetTriMidEdgeInverse_Static(ornt[c], r);
905 if (er == eint[c]) {
906 intFaces += 1;
907 } else {
908 intFaces += 2;
909 }
910 }
911 ierr = DMPlexSetSupportSize(rdm, newp, 2+intFaces);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),911,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
912 }
913 }
914 /* Interior cell edges have 2 vertices and 4 faces */
915 for (c = cStart; c < cEnd; ++c) {
916 const PetscInt newp = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart);
917
918 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),918,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
919 ierr = DMPlexSetSupportSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),919,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
920 }
921 /* Old vertices have identical supports */
922 for (v = vStart; v < vEnd; ++v) {
923 const PetscInt newp = vStartNew + (v - vStart);
924 PetscInt size;
925
926 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),926,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
927 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),927,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
928 }
929 /* Edge vertices have 2 + faces*2 + cells*0/1 supports */
930 for (e = eStart; e < eEnd; ++e) {
931 const PetscInt newp = vStartNew + (vEnd - vStart) + (e - eStart);
932 PetscInt size, *star = NULL((void*)0), starSize, s, cellSize = 0;
933
934 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),934,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
935 ierr = DMPlexGetTransitiveClosure(dm, e, PETSC_FALSE, &starSize, &star);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),935,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
936 for (s = 0; s < starSize*2; s += 2) {
937 const PetscInt *cone, *ornt;
938 PetscInt e01, e23;
939
940 if ((star[s] >= cStart) && (star[s] < cEnd)) {
941 /* Check edge 0-1 */
942 ierr = DMPlexGetCone(dm, star[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),942,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
943 ierr = DMPlexGetConeOrientation(dm, star[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),943,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
944 ierr = DMPlexGetCone(dm, cone[0], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),944,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
945 e01 = cone[GetTriEdge_Static(ornt[0], 0)];
946 /* Check edge 2-3 */
947 ierr = DMPlexGetCone(dm, star[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),947,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
948 ierr = DMPlexGetConeOrientation(dm, star[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),948,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
949 ierr = DMPlexGetCone(dm, cone[2], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),949,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
950 e23 = cone[GetTriEdge_Static(ornt[2], 1)];
951 if ((e01 == e) || (e23 == e)) ++cellSize;
952 }
953 }
954 ierr = DMPlexRestoreTransitiveClosure(dm, e, PETSC_FALSE, &starSize, &star);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),954,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
955 ierr = DMPlexSetSupportSize(rdm, newp, 2 + size*2 + cellSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),955,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
956 }
957 break;
958 case REFINER_HYBRID_SIMPLEX_3D:
959 ierr = DMPlexSetHybridBounds(rdm, cStartNew + 8*(cMax-cStart), fStartNew + 4*(fMax - fStart) + 8*(cMax - cStart),
960 eStartNew + 2*(eMax - eStart) + 3*(fMax - fStart) + (cMax - cStart), PETSC_DETERMINE-1);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),960,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
961 /* Interior cells have 4 faces */
962 for (c = cStart; c < cMax; ++c) {
963 for (r = 0; r < 8; ++r) {
964 const PetscInt newp = cStartNew + (c - cStart)*8 + r;
965
966 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),966,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
967 }
968 }
969 /* Hybrid cells have 5 faces */
970 for (c = cMax; c < cEnd; ++c) {
971 for (r = 0; r < 4; ++r) {
972 const PetscInt newp = cStartNew + (cMax - cStart)*8 + (c - cMax)*4 + r;
973
974 ierr = DMPlexSetConeSize(rdm, newp, 5);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),974,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
975 }
976 }
977 /* Interior split faces have 3 edges and the same cells as the parent */
978 for (f = fStart; f < fMax; ++f) {
979 for (r = 0; r < 4; ++r) {
980 const PetscInt newp = fStartNew + (f - fStart)*4 + r;
981 PetscInt size;
982
983 ierr = DMPlexSetConeSize(rdm, newp, 3);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),983,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
984 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),984,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
985 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),985,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
986 }
987 }
988 /* Interior cell faces have 3 edges and 2 cells */
989 for (c = cStart; c < cMax; ++c) {
990 for (r = 0; r < 8; ++r) {
991 const PetscInt newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + r;
992
993 ierr = DMPlexSetConeSize(rdm, newp, 3);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),993,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
994 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),994,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
995 }
996 }
997 /* Hybrid split faces have 4 edges and the same cells as the parent */
998 for (f = fMax; f < fEnd; ++f) {
999 for (r = 0; r < 2; ++r) {
1000 const PetscInt newp = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (f - fMax)*2 + r;
1001 PetscInt size;
1002
1003 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1003,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1004 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1004,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1005 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1005,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1006 }
1007 }
1008 /* Hybrid cells faces have 4 edges and 2 cells */
1009 for (c = cMax; c < cEnd; ++c) {
1010 for (r = 0; r < 3; ++r) {
1011 const PetscInt newp = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (fEnd - fMax)*2 + (c - cMax)*3 + r;
1012
1013 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1013,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1014 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1014,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1015 }
1016 }
1017 /* Interior split edges have 2 vertices and the same faces */
1018 for (e = eStart; e < eMax; ++e) {
1019 for (r = 0; r < 2; ++r) {
1020 const PetscInt newp = eStartNew + (e - eStart)*2 + r;
1021 PetscInt size;
1022
1023 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1023,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1024 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1024,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1025 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1025,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1026 }
1027 }
1028 /* Interior face edges have 2 vertices and 2+cells*(1/2) faces */
1029 for (f = fStart; f < fMax; ++f) {
1030 for (r = 0; r < 3; ++r) {
1031 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + r;
1032 const PetscInt *cone, *ornt, *support, eint[4] = {1, 0, 2, 0};
1033 PetscInt coneSize, c, supportSize, s, er, intFaces = 0;
1034
1035 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1035,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1036 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1036,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1037 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1037,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1038 for (s = 0; s < supportSize; ++s) {
1039 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1039,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1040 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1040,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1041 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1041,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1042 for (c = 0; c < coneSize; ++c) {if (cone[c] == f) break;}
1043 if (support[s] < cMax) {
1044 /* Here we want to determine whether edge newp contains a vertex which is part of the cross-tet edge */
1045 er = GetTriMidEdgeInverse_Static(ornt[c], r);
1046 if (er == eint[c]) {
1047 intFaces += 1;
1048 } else {
1049 intFaces += 2;
1050 }
1051 } else {
1052 intFaces += 1;
1053 }
1054 }
1055 ierr = DMPlexSetSupportSize(rdm, newp, 2+intFaces);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1055,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1056 }
1057 }
1058 /* Interior cell edges have 2 vertices and 4 faces */
1059 for (c = cStart; c < cMax; ++c) {
1060 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart);
1061
1062 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1062,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1063 ierr = DMPlexSetSupportSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1063,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1064 }
1065 /* Hybrid edges have 2 vertices and the same faces */
1066 for (e = eMax; e < eEnd; ++e) {
1067 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart) + (e - eMax);
1068 PetscInt size;
1069
1070 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1070,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1071 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1071,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1072 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1072,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1073 }
1074 /* Hybrid face edges have 2 vertices and 2+2*cells faces */
1075 for (f = fMax; f < fEnd; ++f) {
1076 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart) + (eEnd - eMax) + (f - fMax);
1077 PetscInt size;
1078
1079 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1079,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1080 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1080,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1081 ierr = DMPlexSetSupportSize(rdm, newp, 2+2*size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1081,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1082 }
1083 /* Interior vertices have identical supports */
1084 for (v = vStart; v < vEnd; ++v) {
1085 const PetscInt newp = vStartNew + (v - vStart);
1086 PetscInt size;
1087
1088 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1088,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1089 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1089,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1090 }
1091 /* Interior edge vertices have 2 + interior face*2 + hybrid face + cells*0/1 supports */
1092 for (e = eStart; e < eMax; ++e) {
1093 const PetscInt newp = vStartNew + (vEnd - vStart) + (e - eStart);
1094 const PetscInt *support;
1095 PetscInt size, *star = NULL((void*)0), starSize, s, faceSize = 0, cellSize = 0;
1096
1097 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1097,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1098 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1098,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1099 for (s = 0; s < size; ++s) {
1100 if (support[s] < fMax) faceSize += 2;
1101 else faceSize += 1;
1102 }
1103 ierr = DMPlexGetTransitiveClosure(dm, e, PETSC_FALSE, &starSize, &star);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1103,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1104 for (s = 0; s < starSize*2; s += 2) {
1105 const PetscInt *cone, *ornt;
1106 PetscInt e01, e23;
1107
1108 if ((star[s] >= cStart) && (star[s] < cMax)) {
1109 /* Check edge 0-1 */
1110 ierr = DMPlexGetCone(dm, star[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1110,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1111 ierr = DMPlexGetConeOrientation(dm, star[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1111,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1112 ierr = DMPlexGetCone(dm, cone[0], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1112,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1113 e01 = cone[GetTriEdge_Static(ornt[0], 0)];
1114 /* Check edge 2-3 */
1115 ierr = DMPlexGetCone(dm, star[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1115,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1116 ierr = DMPlexGetConeOrientation(dm, star[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1116,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1117 ierr = DMPlexGetCone(dm, cone[2], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1117,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1118 e23 = cone[GetTriEdge_Static(ornt[2], 1)];
1119 if ((e01 == e) || (e23 == e)) ++cellSize;
1120 }
1121 }
1122 ierr = DMPlexRestoreTransitiveClosure(dm, e, PETSC_FALSE, &starSize, &star);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1122,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1123 ierr = DMPlexSetSupportSize(rdm, newp, 2 + faceSize + cellSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1123,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1124 }
1125 break;
1126 case REFINER_SIMPLEX_TO_HEX_3D:
1127 /* All cells have 6 faces */
1128 for (c = cStart; c < cEnd; ++c) {
1129 for (r = 0; r < 4; ++r) {
1130 const PetscInt newp = cStartNew + (c - cStart)*4 + r;
1131
1132 ierr = DMPlexSetConeSize(rdm, newp, 6);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1132,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1133 }
1134 }
1135 /* Split faces have 4 edges and the same cells as the parent */
1136 for (f = fStart; f < fEnd; ++f) {
1137 for (r = 0; r < 3; ++r) {
1138 const PetscInt newp = fStartNew + (f - fStart)*3 + r;
1139 PetscInt size;
1140
1141 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1141,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1142 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1142,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1143 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1143,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1144 }
1145 }
1146 /* Interior cell faces have 4 edges and 2 cells */
1147 for (c = cStart; c < cEnd; ++c) {
1148 for (r = 0; r < 6; ++r) {
1149 const PetscInt newp = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + r;
1150
1151 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1151,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1152 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1152,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1153 }
1154 }
1155 /* Split edges have 2 vertices and the same faces */
1156 for (e = eStart; e < eEnd; ++e) {
1157 for (r = 0; r < 2; ++r) {
1158 const PetscInt newp = eStartNew + (e - eStart)*2 + r;
1159 PetscInt size;
1160
1161 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1161,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1162 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1162,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1163 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1163,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1164 }
1165 }
1166 /* Face edges have 2 vertices and 2 + cell faces supports */
1167 for (f = fStart; f < fEnd; ++f) {
1168 for (r = 0; r < 3; ++r) {
1169 const PetscInt newp = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + r;
1170 PetscInt size;
1171
1172 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1172,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1173 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1173,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1174 ierr = DMPlexSetSupportSize(rdm, newp, 2+size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1174,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1175 }
1176 }
1177 /* Interior cell edges have 2 vertices and 3 faces */
1178 for (c = cStart; c < cEnd; ++c) {
1179 for (r = 0; r < 4; ++r) {
1180 const PetscInt newp = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + r;
1181
1182 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1182,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1183 ierr = DMPlexSetSupportSize(rdm, newp, 3);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1183,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1184 }
1185 }
1186 /* Old vertices have identical supports */
1187 for (v = vStart; v < vEnd; ++v) {
1188 const PetscInt newp = vStartNew + (v - vStart);
1189 PetscInt size;
1190
1191 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1191,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1192 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1192,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1193 }
1194 /* Edge vertices have 2 + faces supports */
1195 for (e = eStart; e < eEnd; ++e) {
1196 const PetscInt newp = vStartNew + (vEnd - vStart) + (e - eStart);
1197 PetscInt size;
1198
1199 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1199,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1200 ierr = DMPlexSetSupportSize(rdm, newp, 2 + size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1200,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1201 }
1202 /* Face vertices have 3 + cells supports */
1203 for (f = fStart; f < fEnd; ++f) {
1204 const PetscInt newp = vStartNew + (vEnd - vStart) + (eEnd - eStart) + f - fStart;
1205 PetscInt size;
1206
1207 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1207,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1208 ierr = DMPlexSetSupportSize(rdm, newp, 3 + size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1208,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1209 }
1210 /* Interior cell vertices have 4 supports */
1211 for (c = cStart; c < cEnd; ++c) {
1212 const PetscInt newp = vStartNew + (vEnd - vStart) + (eEnd - eStart) + fEnd - fStart + c - cStart;
1213
1214 ierr = DMPlexSetSupportSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1214,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1215 }
1216 break;
1217 case REFINER_HYBRID_SIMPLEX_TO_HEX_3D:
1218 /* the mesh is no longer hybrid */
1219 if (cMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No cell maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),1219,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No cell maximum specified in hybrid mesh"
);
1220 cMax = PetscMin(cEnd, cMax)(((cEnd)<(cMax)) ? (cEnd) : (cMax));
1221 if (fMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No face maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),1221,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No face maximum specified in hybrid mesh"
);
1222 fMax = PetscMin(fEnd, fMax)(((fEnd)<(fMax)) ? (fEnd) : (fMax));
1223 if (eMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No edge maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),1223,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No edge maximum specified in hybrid mesh"
);
1224 eMax = PetscMin(eEnd, eMax)(((eEnd)<(eMax)) ? (eEnd) : (eMax));
1225 /* All cells have 6 faces */
1226 for (c = cStart; c < cMax; ++c) {
1227 for (r = 0; r < 4; ++r) {
1228 const PetscInt newp = cStartNew + (c - cStart)*4 + r;
1229
1230 ierr = DMPlexSetConeSize(rdm, newp, 6);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1230,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1231 }
1232 }
1233 for (c = cMax; c < cEnd; ++c) {
1234 for (r = 0; r < 3; ++r) {
1235 const PetscInt newp = cStartNew + (cMax - cStart)*4 + (c - cMax)*3 + r;
1236
1237 ierr = DMPlexSetConeSize(rdm, newp, 6);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1237,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1238 }
1239 }
1240 /* Interior split faces have 4 edges and the same cells as the parent */
1241 for (f = fStart; f < fMax; ++f) {
1242 for (r = 0; r < 3; ++r) {
1243 const PetscInt newp = fStartNew + (f - fStart)*3 + r;
1244 PetscInt size;
1245
1246 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1246,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1247 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1247,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1248 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1248,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1249 }
1250 }
1251 /* Interior cell faces have 4 edges and 2 cells */
1252 for (c = cStart; c < cMax; ++c) {
1253 for (r = 0; r < 6; ++r) {
1254 const PetscInt newp = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + r;
1255
1256 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1256,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1257 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1257,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1258 }
1259 }
1260 /* Hybrid split faces have 4 edges and the same cells as the parent */
1261 for (f = fMax; f < fEnd; ++f) {
1262 for (r = 0; r < 2; ++r) {
1263 const PetscInt newp = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (f - fMax)*2 + r;
1264 PetscInt size;
1265
1266 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1266,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1267 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1267,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1268 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1268,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1269 }
1270 }
1271 /* Hybrid cell faces have 4 edges and 2 cells */
1272 for (c = cMax; c < cEnd; ++c) {
1273 for (r = 0; r < 3; ++r) {
1274 const PetscInt newp = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (fEnd - fMax)*2 + (c - cMax)*3 + r;
1275
1276 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1276,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1277 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1277,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1278 }
1279 }
1280 /* Interior split edges have 2 vertices and the same faces */
1281 for (e = eStart; e < eMax; ++e) {
1282 for (r = 0; r < 2; ++r) {
1283 const PetscInt newp = eStartNew + (e - eStart)*2 + r;
1284 PetscInt size;
1285
1286 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1286,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1287 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1287,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1288 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1288,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1289 }
1290 }
1291 /* Interior face edges have 2 vertices and 2 + cell faces supports */
1292 for (f = fStart; f < fMax; ++f) {
1293 for (r = 0; r < 3; ++r) {
1294 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + r;
1295 PetscInt size;
1296
1297 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1297,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1298 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1298,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1299 ierr = DMPlexSetSupportSize(rdm, newp, 2+size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1299,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1300 }
1301 }
1302 /* Interior cell edges have 2 vertices and 3 faces */
1303 for (c = cStart; c < cMax; ++c) {
1304 for (r = 0; r < 4; ++r) {
1305 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + r;
1306
1307 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1307,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1308 ierr = DMPlexSetSupportSize(rdm, newp, 3);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1308,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1309 }
1310 }
1311 /* Hybrid edges have 2 vertices and the same faces */
1312 for (e = eMax; e < eEnd; ++e) {
1313 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (e - eMax);
1314 PetscInt size;
1315
1316 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1316,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1317 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1317,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1318 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1318,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1319 }
1320 /* Hybrid face edges have 2 vertices and 2+cells faces */
1321 for (f = fMax; f < fEnd; ++f) {
1322 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (f - fMax);
1323 PetscInt size;
1324
1325 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1325,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1326 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1326,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1327 ierr = DMPlexSetSupportSize(rdm, newp, 2+size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1327,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1328 }
1329 /* Hybrid cell edges have 2 vertices and 3 faces */
1330 for (c = cMax; c < cEnd; ++c) {
1331 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (fEnd - fMax) + (c - cMax);
1332
1333 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1333,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1334 ierr = DMPlexSetSupportSize(rdm, newp, 3);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1334,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1335 }
1336 /* Old vertices have identical supports */
1337 for (v = vStart; v < vEnd; ++v) {
1338 const PetscInt newp = vStartNew + (v - vStart);
1339 PetscInt size;
1340
1341 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1341,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1342 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1342,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1343 }
1344 /* Interior edge vertices have 2 + faces supports */
1345 for (e = eStart; e < eMax; ++e) {
1346 const PetscInt newp = vStartNew + (vEnd - vStart) + (e - eStart);
1347 PetscInt size;
1348
1349 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1349,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1350 ierr = DMPlexSetSupportSize(rdm, newp, 2 + size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1350,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1351 }
1352 /* Interior face vertices have 3 + cells supports */
1353 for (f = fStart; f < fMax; ++f) {
1354 const PetscInt newp = vStartNew + (vEnd - vStart) + (eMax - eStart) + f - fStart;
1355 PetscInt size;
1356
1357 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1357,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1358 ierr = DMPlexSetSupportSize(rdm, newp, 3 + size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1358,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1359 }
1360 /* Interior cell vertices have 4 supports */
1361 for (c = cStart; c < cMax; ++c) {
1362 const PetscInt newp = vStartNew + (vEnd - vStart) + (eMax - eStart) + (fMax - fStart) + c - cStart;
1363
1364 ierr = DMPlexSetSupportSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1364,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1365 }
1366 break;
1367 case REFINER_HEX_3D:
1368 /* All cells have 6 faces */
1369 for (c = cStart; c < cEnd; ++c) {
1370 for (r = 0; r < 8; ++r) {
1371 const PetscInt newp = (c - cStart)*8 + r;
1372
1373 ierr = DMPlexSetConeSize(rdm, newp, 6);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1373,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1374 }
1375 }
1376 /* Split faces have 4 edges and the same cells as the parent */
1377 for (f = fStart; f < fEnd; ++f) {
1378 for (r = 0; r < 4; ++r) {
1379 const PetscInt newp = fStartNew + (f - fStart)*4 + r;
1380 PetscInt size;
1381
1382 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1382,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1383 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1383,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1384 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1384,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1385 }
1386 }
1387 /* Interior faces have 4 edges and 2 cells */
1388 for (c = cStart; c < cEnd; ++c) {
1389 for (r = 0; r < 12; ++r) {
1390 const PetscInt newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + r;
1391
1392 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1392,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1393 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1393,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1394 }
1395 }
1396 /* Split edges have 2 vertices and the same faces as the parent */
1397 for (e = eStart; e < eEnd; ++e) {
1398 for (r = 0; r < 2; ++r) {
1399 const PetscInt newp = eStartNew + (e - eStart)*2 + r;
1400 PetscInt size;
1401
1402 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1402,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1403 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1403,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1404 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1404,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1405 }
1406 }
1407 /* Face edges have 2 vertices and 2+cells faces */
1408 for (f = fStart; f < fEnd; ++f) {
1409 for (r = 0; r < 4; ++r) {
1410 const PetscInt newp = eStartNew + (eEnd - eStart)*2 + (f - fStart)*4 + r;
1411 PetscInt size;
1412
1413 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1413,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1414 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1414,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1415 ierr = DMPlexSetSupportSize(rdm, newp, 2+size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1415,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1416 }
1417 }
1418 /* Cell edges have 2 vertices and 4 faces */
1419 for (c = cStart; c < cEnd; ++c) {
1420 for (r = 0; r < 6; ++r) {
1421 const PetscInt newp = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + r;
1422
1423 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1423,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1424 ierr = DMPlexSetSupportSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1424,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1425 }
1426 }
1427 /* Old vertices have identical supports */
1428 for (v = vStart; v < vEnd; ++v) {
1429 const PetscInt newp = vStartNew + (v - vStart);
1430 PetscInt size;
1431
1432 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1432,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1433 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1433,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1434 }
1435 /* Edge vertices have 2 + faces supports */
1436 for (e = eStart; e < eEnd; ++e) {
1437 const PetscInt newp = vStartNew + (vEnd - vStart) + (e - eStart);
1438 PetscInt size;
1439
1440 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1440,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1441 ierr = DMPlexSetSupportSize(rdm, newp, 2 + size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1441,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1442 }
1443 /* Face vertices have 4 + cells supports */
1444 for (f = fStart; f < fEnd; ++f) {
1445 const PetscInt newp = vStartNew + (vEnd - vStart) + (eEnd - eStart) + (f - fStart);
1446 PetscInt size;
1447
1448 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1448,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1449 ierr = DMPlexSetSupportSize(rdm, newp, 4 + size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1449,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1450 }
1451 /* Cell vertices have 6 supports */
1452 for (c = cStart; c < cEnd; ++c) {
1453 const PetscInt newp = vStartNew + (vEnd - vStart) + (eEnd - eStart) + (fEnd - fStart) + (c - cStart);
1454
1455 ierr = DMPlexSetSupportSize(rdm, newp, 6);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1455,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1456 }
1457 break;
1458 case REFINER_HYBRID_HEX_3D:
1459 ierr = DMPlexSetHybridBounds(rdm, cStartNew + 8*(cMax-cStart), fStartNew + 4*(fMax - fStart) + 12*(cMax - cStart),
1460 eStartNew + 2*(eMax - eStart) + 4*(fMax - fStart) + 6*(cMax - cStart), PETSC_DETERMINE-1);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1460,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1461 /* Interior cells have 6 faces */
1462 for (c = cStart; c < cMax; ++c) {
1463 for (r = 0; r < 8; ++r) {
1464 const PetscInt newp = cStartNew + (c - cStart)*8 + r;
1465
1466 ierr = DMPlexSetConeSize(rdm, newp, 6);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1466,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1467 }
1468 }
1469 /* Hybrid cells have 6 faces */
1470 for (c = cMax; c < cEnd; ++c) {
1471 for (r = 0; r < 4; ++r) {
1472 const PetscInt newp = cStartNew + (cMax - cStart)*8 + (c - cMax)*4 + r;
1473
1474 ierr = DMPlexSetConeSize(rdm, newp, 6);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1474,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1475 }
1476 }
1477 /* Interior split faces have 4 edges and the same cells as the parent */
1478 for (f = fStart; f < fMax; ++f) {
1479 for (r = 0; r < 4; ++r) {
1480 const PetscInt newp = fStartNew + (f - fStart)*4 + r;
1481 PetscInt size;
1482
1483 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1483,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1484 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1484,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1485 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1485,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1486 }
1487 }
1488 /* Interior cell faces have 4 edges and 2 cells */
1489 for (c = cStart; c < cMax; ++c) {
1490 for (r = 0; r < 12; ++r) {
1491 const PetscInt newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + r;
1492
1493 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1493,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1494 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1494,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1495 }
1496 }
1497 /* Hybrid split faces have 4 edges and the same cells as the parent */
1498 for (f = fMax; f < fEnd; ++f) {
1499 for (r = 0; r < 2; ++r) {
1500 const PetscInt newp = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (f - fMax)*2 + r;
1501 PetscInt size;
1502
1503 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1503,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1504 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1504,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1505 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1505,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1506 }
1507 }
1508 /* Hybrid cells faces have 4 edges and 2 cells */
1509 for (c = cMax; c < cEnd; ++c) {
1510 for (r = 0; r < 4; ++r) {
1511 const PetscInt newp = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (fEnd - fMax)*2 + (c - cMax)*4 + r;
1512
1513 ierr = DMPlexSetConeSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1513,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1514 ierr = DMPlexSetSupportSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1514,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1515 }
1516 }
1517 /* Interior split edges have 2 vertices and the same faces as the parent */
1518 for (e = eStart; e < eMax; ++e) {
1519 for (r = 0; r < 2; ++r) {
1520 const PetscInt newp = eStartNew + (e - eStart)*2 + r;
1521 PetscInt size;
1522
1523 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1523,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1524 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1524,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1525 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1525,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1526 }
1527 }
1528 /* Interior face edges have 2 vertices and 2+cells faces */
1529 for (f = fStart; f < fMax; ++f) {
1530 for (r = 0; r < 4; ++r) {
1531 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (f - fStart)*4 + r;
1532 PetscInt size;
1533
1534 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1534,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1535 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1535,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1536 ierr = DMPlexSetSupportSize(rdm, newp, 2+size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1536,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1537 }
1538 }
1539 /* Interior cell edges have 2 vertices and 4 faces */
1540 for (c = cStart; c < cMax; ++c) {
1541 for (r = 0; r < 6; ++r) {
1542 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + r;
1543
1544 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1544,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1545 ierr = DMPlexSetSupportSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1545,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1546 }
1547 }
1548 /* Hybrid edges have 2 vertices and the same faces */
1549 for (e = eMax; e < eEnd; ++e) {
1550 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (e - eMax);
1551 PetscInt size;
1552
1553 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1553,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1554 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1554,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1555 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1555,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1556 }
1557 /* Hybrid face edges have 2 vertices and 2+cells faces */
1558 for (f = fMax; f < fEnd; ++f) {
1559 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (eEnd - eMax) + (f - fMax);
1560 PetscInt size;
1561
1562 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1562,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1563 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1563,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1564 ierr = DMPlexSetSupportSize(rdm, newp, 2+size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1564,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1565 }
1566 /* Hybrid cell edges have 2 vertices and 4 faces */
1567 for (c = cMax; c < cEnd; ++c) {
1568 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (eEnd - eMax) + (fEnd - fMax) + (c - cMax);
1569
1570 ierr = DMPlexSetConeSize(rdm, newp, 2);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1570,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1571 ierr = DMPlexSetSupportSize(rdm, newp, 4);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1571,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1572 }
1573 /* Interior vertices have identical supports */
1574 for (v = vStart; v < vEnd; ++v) {
1575 const PetscInt newp = vStartNew + (v - vStart);
1576 PetscInt size;
1577
1578 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1578,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1579 ierr = DMPlexSetSupportSize(rdm, newp, size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1579,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1580 }
1581 /* Interior edge vertices have 2 + faces supports */
1582 for (e = eStart; e < eMax; ++e) {
1583 const PetscInt newp = vStartNew + (vEnd - vStart) + (e - eStart);
1584 PetscInt size;
1585
1586 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1586,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1587 ierr = DMPlexSetSupportSize(rdm, newp, 2 + size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1587,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1588 }
1589 /* Interior face vertices have 4 + cells supports */
1590 for (f = fStart; f < fMax; ++f) {
1591 const PetscInt newp = vStartNew + (vEnd - vStart) + (eMax - eStart) + (f - fStart);
1592 PetscInt size;
1593
1594 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1594,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1595 ierr = DMPlexSetSupportSize(rdm, newp, 4 + size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1595,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1596 }
1597 /* Interior cell vertices have 6 supports */
1598 for (c = cStart; c < cMax; ++c) {
1599 const PetscInt newp = vStartNew + (vEnd - vStart) + (eMax - eStart) + (fMax - fStart) + (c - cStart);
1600
1601 ierr = DMPlexSetSupportSize(rdm, newp, 6);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1601,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1602 }
1603 break;
1604 default:
1605 SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown cell refiner %D", refiner)return PetscError(((MPI_Comm)0x44000001),1605,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown cell refiner %D",refiner);
1606 }
1607 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
1608}
1609
1610static PetscErrorCode CellRefinerSetCones(CellRefiner refiner, DM dm, PetscInt depthSize[], DM rdm)
1611{
1612 const PetscInt *faces, cellInd[4] = {0, 1, 2, 3};
1613 PetscInt cStart, cEnd, cMax, vStart, vEnd, vMax, fStart, fEnd, fMax, eStart, eEnd, eMax;
1614 PetscInt cStartNew, cEndNew, cMaxNew, vStartNew, vEndNew, fStartNew, fEndNew, fMaxNew, eStartNew, eEndNew, eMaxNew;
1615 PetscInt depth, maxSupportSize, *supportRef, c, f, e, v, r;
1616#if defined(PETSC_USE_DEBUG1)
1617 PetscInt p;
1618#endif
1619 PetscErrorCode ierr;
1620
1621 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 1621; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
1622 if (!refiner) PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
1623 ierr = DMPlexGetDepth(dm, &depth);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1623,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1624 ierr = DMPlexGetDepthStratum(dm, 0, &vStart, &vEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1624,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1625 ierr = DMPlexGetDepthStratum(dm, 1, &eStart, &eEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1625,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1626 ierr = DMPlexGetHeightStratum(dm, 0, &cStart, &cEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1626,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1627 ierr = DMPlexGetHeightStratum(dm, 1, &fStart, &fEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1627,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1628 ierr = DMPlexGetHybridBounds(dm, &cMax, &fMax, &eMax, &vMax);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1628,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1629 ierr = GetDepthStart_Private(depth, depthSize, &cStartNew, &fStartNew, &eStartNew, &vStartNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1629,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1630 ierr = GetDepthEnd_Private(depth, depthSize, &cEndNew, &fEndNew, &eEndNew, &vEndNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1630,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1631 switch (refiner) {
1632 case REFINER_SIMPLEX_1D:
1633 /* Max support size of refined mesh is 2 */
1634 ierr = PetscMalloc1(2, &supportRef)PetscMallocA(1,PETSC_FALSE,1634,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(2)*sizeof(**(&supportRef)),(&supportRef));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1634,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1635 /* All cells have 2 vertices */
1636 for (c = cStart; c < cEnd; ++c) {
1637 const PetscInt newv = vStartNew + (vEnd - vStart) + (c - cStart);
1638
1639 for (r = 0; r < 2; ++r) {
1640 const PetscInt newp = cStartNew + (c - cStart)*2 + r;
1641 const PetscInt *cone;
1642 PetscInt coneNew[2];
1643
1644 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1644,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1645 coneNew[0] = vStartNew + (cone[0] - vStart);
1646 coneNew[1] = vStartNew + (cone[1] - vStart);
1647 coneNew[(r+1)%2] = newv;
1648 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1648,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1649#if defined(PETSC_USE_DEBUG1)
1650 if ((newp < cStartNew) || (newp >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),1650,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
,cStartNew,cEndNew);
1651 for (p = 0; p < 2; ++p) {
1652 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),1652,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
1653 }
1654#endif
1655 }
1656 }
1657 /* Old vertices have identical supports */
1658 for (v = vStart; v < vEnd; ++v) {
1659 const PetscInt newp = vStartNew + (v - vStart);
1660 const PetscInt *support, *cone;
1661 PetscInt size, s;
1662
1663 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1663,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1664 ierr = DMPlexGetSupport(dm, v, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1664,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1665 for (s = 0; s < size; ++s) {
1666 PetscInt r = 0;
1667
1668 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1668,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1669 if (cone[1] == v) r = 1;
1670 supportRef[s] = cStartNew + (support[s] - cStart)*2 + r;
1671 }
1672 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1672,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1673#if defined(PETSC_USE_DEBUG1)
1674 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),1674,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
1675 for (p = 0; p < size; ++p) {
1676 if ((supportRef[p] < cStartNew) || (supportRef[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportRef[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),1676,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportRef
[p],cStartNew,cEndNew);
1677 }
1678#endif
1679 }
1680 /* Cell vertices have support of 2 cells */
1681 for (c = cStart; c < cEnd; ++c) {
1682 const PetscInt newp = vStartNew + (vEnd - vStart) + (c - cStart);
1683
1684 supportRef[0] = cStartNew + (c - cStart)*2 + 0;
1685 supportRef[1] = cStartNew + (c - cStart)*2 + 1;
1686 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1686,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1687#if defined(PETSC_USE_DEBUG1)
1688 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),1688,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
1689 for (p = 0; p < 2; ++p) {
1690 if ((supportRef[p] < cStartNew) || (supportRef[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportRef[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),1690,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportRef
[p],cStartNew,cEndNew);
1691 }
1692#endif
1693 }
1694 ierr = PetscFree(supportRef)((*PetscTrFree)((void*)(supportRef),1694,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((supportRef) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1694,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1695 break;
1696 case REFINER_SIMPLEX_2D:
1697 /*
1698 2
1699 |\
1700 | \
1701 | \
1702 | \
1703 | C \
1704 | \
1705 | \
1706 2---1---1
1707 |\ D / \
1708 | 2 0 \
1709 |A \ / B \
1710 0---0-------1
1711 */
1712 /* All cells have 3 faces */
1713 for (c = cStart; c < cEnd; ++c) {
1714 const PetscInt newp = cStartNew + (c - cStart)*4;
1715 const PetscInt *cone, *ornt;
1716 PetscInt coneNew[3], orntNew[3];
1717
1718 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1718,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1719 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1719,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1720 /* A triangle */
1721 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 1 : 0);
1722 orntNew[0] = ornt[0];
1723 coneNew[1] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 2;
1724 orntNew[1] = -2;
1725 coneNew[2] = fStartNew + (cone[2] - fStart)*2 + (ornt[2] < 0 ? 0 : 1);
1726 orntNew[2] = ornt[2];
1727 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1727,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1728 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1728,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1729#if defined(PETSC_USE_DEBUG1)
1730 if ((newp+0 < cStartNew) || (newp+0 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+0, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),1730,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+0,cStartNew,cEndNew);
1731 for (p = 0; p < 3; ++p) {
1732 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),1732,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
1733 }
1734#endif
1735 /* B triangle */
1736 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 0 : 1);
1737 orntNew[0] = ornt[0];
1738 coneNew[1] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 1 : 0);
1739 orntNew[1] = ornt[1];
1740 coneNew[2] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 0;
1741 orntNew[2] = -2;
1742 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1742,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1743 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1743,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1744#if defined(PETSC_USE_DEBUG1)
1745 if ((newp+1 < cStartNew) || (newp+1 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+1, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),1745,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+1,cStartNew,cEndNew);
1746 for (p = 0; p < 3; ++p) {
1747 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),1747,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
1748 }
1749#endif
1750 /* C triangle */
1751 coneNew[0] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 1;
1752 orntNew[0] = -2;
1753 coneNew[1] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 0 : 1);
1754 orntNew[1] = ornt[1];
1755 coneNew[2] = fStartNew + (cone[2] - fStart)*2 + (ornt[2] < 0 ? 1 : 0);
1756 orntNew[2] = ornt[2];
1757 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1757,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1758 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1758,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1759#if defined(PETSC_USE_DEBUG1)
1760 if ((newp+2 < cStartNew) || (newp+2 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+2, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),1760,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+2,cStartNew,cEndNew);
1761 for (p = 0; p < 3; ++p) {
1762 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),1762,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
1763 }
1764#endif
1765 /* D triangle */
1766 coneNew[0] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 0;
1767 orntNew[0] = 0;
1768 coneNew[1] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 1;
1769 orntNew[1] = 0;
1770 coneNew[2] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 2;
1771 orntNew[2] = 0;
1772 ierr = DMPlexSetCone(rdm, newp+3, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1772,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1773 ierr = DMPlexSetConeOrientation(rdm, newp+3, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1773,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1774#if defined(PETSC_USE_DEBUG1)
1775 if ((newp+3 < cStartNew) || (newp+3 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+3, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),1775,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+3,cStartNew,cEndNew);
1776 for (p = 0; p < 3; ++p) {
1777 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),1777,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
1778 }
1779#endif
1780 }
1781 /* Split faces have 2 vertices and the same cells as the parent */
1782 ierr = DMPlexGetMaxSizes(dm, NULL((void*)0), &maxSupportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1782,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1783 ierr = PetscMalloc1(2 + maxSupportSize*2, &supportRef)PetscMallocA(1,PETSC_FALSE,1783,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(2 + maxSupportSize*2)*sizeof(**(&supportRef)),(
&supportRef));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1783,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1784 for (f = fStart; f < fEnd; ++f) {
1785 const PetscInt newv = vStartNew + (vEnd - vStart) + (f - fStart);
1786
1787 for (r = 0; r < 2; ++r) {
1788 const PetscInt newp = fStartNew + (f - fStart)*2 + r;
1789 const PetscInt *cone, *ornt, *support;
1790 PetscInt coneNew[2], coneSize, c, supportSize, s;
1791
1792 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1792,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1793 coneNew[0] = vStartNew + (cone[0] - vStart);
1794 coneNew[1] = vStartNew + (cone[1] - vStart);
1795 coneNew[(r+1)%2] = newv;
1796 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1796,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1797#if defined(PETSC_USE_DEBUG1)
1798 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),1798,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
1799 for (p = 0; p < 2; ++p) {
1800 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),1800,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
1801 }
1802#endif
1803 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1803,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1804 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1804,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1805 for (s = 0; s < supportSize; ++s) {
1806 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1806,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1807 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1807,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1808 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1808,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1809 for (c = 0; c < coneSize; ++c) {
1810 if (cone[c] == f) break;
1811 }
1812 supportRef[s] = cStartNew + (support[s] - cStart)*4 + (ornt[c] < 0 ? (c+1-r)%3 : (c+r)%3);
1813 }
1814 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1814,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1815#if defined(PETSC_USE_DEBUG1)
1816 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),1816,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
1817 for (p = 0; p < supportSize; ++p) {
1818 if ((supportRef[p] < cStartNew) || (supportRef[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportRef[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),1818,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportRef
[p],cStartNew,cEndNew);
1819 }
1820#endif
1821 }
1822 }
1823 /* Interior faces have 2 vertices and 2 cells */
1824 for (c = cStart; c < cEnd; ++c) {
1825 const PetscInt *cone;
1826
1827 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1827,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1828 for (r = 0; r < 3; ++r) {
1829 const PetscInt newp = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + r;
1830 PetscInt coneNew[2];
1831 PetscInt supportNew[2];
1832
1833 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[r] - fStart);
1834 coneNew[1] = vStartNew + (vEnd - vStart) + (cone[(r+1)%3] - fStart);
1835 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1835,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1836#if defined(PETSC_USE_DEBUG1)
1837 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),1837,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
1838 for (p = 0; p < 2; ++p) {
1839 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),1839,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
1840 }
1841#endif
1842 supportNew[0] = (c - cStart)*4 + (r+1)%3;
1843 supportNew[1] = (c - cStart)*4 + 3;
1844 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1844,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1845#if defined(PETSC_USE_DEBUG1)
1846 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),1846,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
1847 for (p = 0; p < 2; ++p) {
1848 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),1848,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
1849 }
1850#endif
1851 }
1852 }
1853 /* Old vertices have identical supports */
1854 for (v = vStart; v < vEnd; ++v) {
1855 const PetscInt newp = vStartNew + (v - vStart);
1856 const PetscInt *support, *cone;
1857 PetscInt size, s;
1858
1859 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1859,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1860 ierr = DMPlexGetSupport(dm, v, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1860,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1861 for (s = 0; s < size; ++s) {
1862 PetscInt r = 0;
1863
1864 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1864,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1865 if (cone[1] == v) r = 1;
1866 supportRef[s] = fStartNew + (support[s] - fStart)*2 + r;
1867 }
1868 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1868,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1869#if defined(PETSC_USE_DEBUG1)
1870 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),1870,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
1871 for (p = 0; p < size; ++p) {
1872 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),1872,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
1873 }
1874#endif
1875 }
1876 /* Face vertices have 2 + cells*2 supports */
1877 for (f = fStart; f < fEnd; ++f) {
1878 const PetscInt newp = vStartNew + (vEnd - vStart) + (f - fStart);
1879 const PetscInt *cone, *support;
1880 PetscInt size, s;
1881
1882 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1882,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1883 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1883,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1884 supportRef[0] = fStartNew + (f - fStart)*2 + 0;
1885 supportRef[1] = fStartNew + (f - fStart)*2 + 1;
1886 for (s = 0; s < size; ++s) {
1887 PetscInt r = 0;
1888
1889 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1889,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1890 if (cone[1] == f) r = 1;
1891 else if (cone[2] == f) r = 2;
1892 supportRef[2+s*2+0] = fStartNew + (fEnd - fStart)*2 + (support[s] - cStart)*3 + (r+2)%3;
1893 supportRef[2+s*2+1] = fStartNew + (fEnd - fStart)*2 + (support[s] - cStart)*3 + r;
1894 }
1895 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1895,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1896#if defined(PETSC_USE_DEBUG1)
1897 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),1897,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
1898 for (p = 0; p < 2+size*2; ++p) {
1899 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),1899,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
1900 }
1901#endif
1902 }
1903 ierr = PetscFree(supportRef)((*PetscTrFree)((void*)(supportRef),1903,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((supportRef) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1903,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1904 break;
1905 case REFINER_SIMPLEX_TO_HEX_2D:
1906 /*
1907 2
1908 |\
1909 | \
1910 | \
1911 | \
1912 | C \
1913 | \
1914 2 1
1915 |\ / \
1916 | 2 1 \
1917 | \/ \
1918 | | \
1919 |A | B \
1920 | 0 \
1921 | | \
1922 0---0----------1
1923 */
1924 /* All cells have 4 faces */
1925 for (c = cStart; c < cEnd; ++c) {
1926 const PetscInt newp = cStartNew + (c - cStart)*3;
1927 const PetscInt *cone, *ornt;
1928 PetscInt coneNew[4], orntNew[4];
1929
1930 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1930,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1931 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1931,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1932 /* A quad */
1933 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 1 : 0);
1934 orntNew[0] = ornt[0];
1935 coneNew[1] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 0;
1936 orntNew[1] = 0;
1937 coneNew[2] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 2;
1938 orntNew[2] = -2;
1939 coneNew[3] = fStartNew + (cone[2] - fStart)*2 + (ornt[2] < 0 ? 0 : 1);
1940 orntNew[3] = ornt[2];
1941 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1941,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1942 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1942,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1943#if defined(PETSC_USE_DEBUG1)
1944 if ((newp+0 < cStartNew) || (newp+0 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+0, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),1944,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+0,cStartNew,cEndNew);
1945 for (p = 0; p < 4; ++p) {
1946 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),1946,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
1947 }
1948#endif
1949 /* B quad */
1950 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 0 : 1);
1951 orntNew[0] = ornt[0];
1952 coneNew[1] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 1 : 0);
1953 orntNew[1] = ornt[1];
1954 coneNew[2] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 1;
1955 orntNew[2] = 0;
1956 coneNew[3] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 0;
1957 orntNew[3] = -2;
1958 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1958,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1959 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1959,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1960#if defined(PETSC_USE_DEBUG1)
1961 if ((newp+1 < cStartNew) || (newp+1 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+1, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),1961,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+1,cStartNew,cEndNew);
1962 for (p = 0; p < 4; ++p) {
1963 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),1963,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
1964 }
1965#endif
1966 /* C quad */
1967 coneNew[0] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 0 : 1);
1968 orntNew[0] = ornt[1];
1969 coneNew[1] = fStartNew + (cone[2] - fStart)*2 + (ornt[2] < 0 ? 1 : 0);
1970 orntNew[1] = ornt[2];
1971 coneNew[2] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 2;
1972 orntNew[2] = 0;
1973 coneNew[3] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 1;
1974 orntNew[3] = -2;
1975 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1975,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1976 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1976,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1977#if defined(PETSC_USE_DEBUG1)
1978 if ((newp+2 < cStartNew) || (newp+2 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+2, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),1978,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+2,cStartNew,cEndNew);
1979 for (p = 0; p < 4; ++p) {
1980 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),1980,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
1981 }
1982#endif
1983 }
1984 /* Split faces have 2 vertices and the same cells as the parent */
1985 ierr = DMPlexGetMaxSizes(dm, NULL((void*)0), &maxSupportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1985,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1986 ierr = PetscMalloc1(2 + maxSupportSize*2, &supportRef)PetscMallocA(1,PETSC_FALSE,1986,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(2 + maxSupportSize*2)*sizeof(**(&supportRef)),(
&supportRef));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1986,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1987 for (f = fStart; f < fEnd; ++f) {
1988 const PetscInt newv = vStartNew + (vEnd - vStart) + (f - fStart);
1989
1990 for (r = 0; r < 2; ++r) {
1991 const PetscInt newp = fStartNew + (f - fStart)*2 + r;
1992 const PetscInt *cone, *ornt, *support;
1993 PetscInt coneNew[2], coneSize, c, supportSize, s;
1994
1995 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1995,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
1996 coneNew[0] = vStartNew + (cone[0] - vStart);
1997 coneNew[1] = vStartNew + (cone[1] - vStart);
1998 coneNew[(r+1)%2] = newv;
1999 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1999,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2000#if defined(PETSC_USE_DEBUG1)
2001 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2001,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2002 for (p = 0; p < 2; ++p) {
2003 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2003,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
2004 }
2005#endif
2006 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2006,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2007 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2007,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2008 for (s = 0; s < supportSize; ++s) {
2009 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2009,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2010 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2010,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2011 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2011,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2012 for (c = 0; c < coneSize; ++c) {
2013 if (cone[c] == f) break;
2014 }
2015 supportRef[s] = cStartNew + (support[s] - cStart)*3 + (ornt[c] < 0 ? (c+1-r)%3 : (c+r)%3);
2016 }
2017 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2017,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2018#if defined(PETSC_USE_DEBUG1)
2019 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2019,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2020 for (p = 0; p < supportSize; ++p) {
2021 if ((supportRef[p] < cStartNew) || (supportRef[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportRef[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2021,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportRef
[p],cStartNew,cEndNew);
2022 }
2023#endif
2024 }
2025 }
2026 /* Interior faces have 2 vertices and 2 cells */
2027 for (c = cStart; c < cEnd; ++c) {
2028 const PetscInt *cone;
2029
2030 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2030,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2031 for (r = 0; r < 3; ++r) {
2032 const PetscInt newp = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + r;
2033 PetscInt coneNew[2];
2034 PetscInt supportNew[2];
2035
2036 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[r] - fStart);
2037 coneNew[1] = vStartNew + (vEnd - vStart) + (fEnd - fStart) + (c - cStart);
2038 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2038,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2039#if defined(PETSC_USE_DEBUG1)
2040 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2040,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2041 for (p = 0; p < 2; ++p) {
2042 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2042,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
2043 }
2044#endif
2045 supportNew[0] = (c - cStart)*3 + r%3;
2046 supportNew[1] = (c - cStart)*3 + (r+1)%3;
2047 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2047,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2048#if defined(PETSC_USE_DEBUG1)
2049 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2049,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2050 for (p = 0; p < 2; ++p) {
2051 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2051,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
2052 }
2053#endif
2054 }
2055 }
2056 /* Old vertices have identical supports */
2057 for (v = vStart; v < vEnd; ++v) {
2058 const PetscInt newp = vStartNew + (v - vStart);
2059 const PetscInt *support, *cone;
2060 PetscInt size, s;
2061
2062 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2062,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2063 ierr = DMPlexGetSupport(dm, v, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2063,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2064 for (s = 0; s < size; ++s) {
2065 PetscInt r = 0;
2066
2067 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2067,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2068 if (cone[1] == v) r = 1;
2069 supportRef[s] = fStartNew + (support[s] - fStart)*2 + r;
2070 }
2071 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2071,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2072#if defined(PETSC_USE_DEBUG1)
2073 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2073,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
2074 for (p = 0; p < size; ++p) {
2075 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2075,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
2076 }
2077#endif
2078 }
2079 /* Split-face vertices have cells + 2 supports */
2080 for (f = fStart; f < fEnd; ++f) {
2081 const PetscInt newp = vStartNew + (vEnd - vStart) + (f - fStart);
2082 const PetscInt *cone, *support;
2083 PetscInt size, s;
2084
2085 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2085,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2086 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2086,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2087 supportRef[0] = fStartNew + (f - fStart)*2 + 0;
2088 supportRef[1] = fStartNew + (f - fStart)*2 + 1;
2089 for (s = 0; s < size; ++s) {
2090 PetscInt r = 0;
2091
2092 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2092,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2093 if (cone[1] == f) r = 1;
2094 else if (cone[2] == f) r = 2;
2095 supportRef[2+s+0] = fStartNew + (fEnd - fStart)*2 + (support[s] - cStart)*3 + r;
2096 }
2097 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2097,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2098#if defined(PETSC_USE_DEBUG1)
2099 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2099,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
2100 for (p = 0; p < 2+size; ++p) {
2101 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2101,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
2102 }
2103#endif
2104 }
2105 /* Interior vertices have 3 supports */
2106 for (c = cStart; c < cEnd; ++c) {
2107 const PetscInt newp = vStartNew + (vEnd - vStart) + (fEnd - fStart) + c - cStart;
2108
2109 supportRef[0] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 0;
2110 supportRef[1] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 1;
2111 supportRef[2] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 2;
2112 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2112,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2113 }
2114 ierr = PetscFree(supportRef)((*PetscTrFree)((void*)(supportRef),2114,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((supportRef) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2114,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2115 break;
2116 case REFINER_HYBRID_SIMPLEX_TO_HEX_2D:
2117 if (cMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No cell maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),2117,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No cell maximum specified in hybrid mesh"
);
2118 cMax = PetscMin(cEnd, cMax)(((cEnd)<(cMax)) ? (cEnd) : (cMax));
2119 for (c = cStart; c < cMax; ++c) {
2120 const PetscInt newp = cStartNew + (c - cStart)*3;
2121 const PetscInt *cone, *ornt;
2122 PetscInt coneNew[4], orntNew[4];
2123
2124 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2124,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2125 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2125,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2126 /* A quad */
2127 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 1 : 0);
2128 orntNew[0] = ornt[0];
2129 coneNew[1] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 0;
2130 orntNew[1] = 0;
2131 coneNew[2] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 2;
2132 orntNew[2] = -2;
2133 coneNew[3] = fStartNew + (cone[2] - fStart)*2 + (ornt[2] < 0 ? 0 : 1);
2134 orntNew[3] = ornt[2];
2135 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2135,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2136 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2136,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2137#if defined(PETSC_USE_DEBUG1)
2138 if ((newp+0 < cStartNew) || (newp+0 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+0, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2138,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+0,cStartNew,cEndNew);
2139 for (p = 0; p < 4; ++p) {
2140 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2140,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
2141 }
2142#endif
2143 /* B quad */
2144 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 0 : 1);
2145 orntNew[0] = ornt[0];
2146 coneNew[1] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 1 : 0);
2147 orntNew[1] = ornt[1];
2148 coneNew[2] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 1;
2149 orntNew[2] = 0;
2150 coneNew[3] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 0;
2151 orntNew[3] = -2;
2152 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2152,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2153 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2153,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2154#if defined(PETSC_USE_DEBUG1)
2155 if ((newp+1 < cStartNew) || (newp+1 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+1, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2155,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+1,cStartNew,cEndNew);
2156 for (p = 0; p < 4; ++p) {
2157 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2157,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
2158 }
2159#endif
2160 /* C quad */
2161 coneNew[0] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 0 : 1);
2162 orntNew[0] = ornt[1];
2163 coneNew[1] = fStartNew + (cone[2] - fStart)*2 + (ornt[2] < 0 ? 1 : 0);
2164 orntNew[1] = ornt[2];
2165 coneNew[2] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 2;
2166 orntNew[2] = 0;
2167 coneNew[3] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 1;
2168 orntNew[3] = -2;
2169 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2169,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2170 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2170,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2171#if defined(PETSC_USE_DEBUG1)
2172 if ((newp+2 < cStartNew) || (newp+2 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+2, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2172,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+2,cStartNew,cEndNew);
2173 for (p = 0; p < 4; ++p) {
2174 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2174,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
2175 }
2176#endif
2177 }
2178 /*
2179 2---------1---------3
2180 | | |
2181 | D 1 C |
2182 | | |
2183 2----2----0----3----3
2184 | | |
2185 | A 0 B |
2186 | | |
2187 0---------0---------1
2188 */
2189 /* Parent cells are input as prisms but children are quads, since the mesh is no longer hybrid */
2190 for (c = cMax; c < cEnd; ++c) {
2191 const PetscInt newp = cStartNew + (cMax - cStart)*3 + (c - cMax)*4;
2192 const PetscInt newpt = (cMax - cStart)*3 + (c - cMax)*4;
2193 const PetscInt *cone, *ornt;
2194 PetscInt coneNew[4], orntNew[4];
2195
2196 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2196,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2197 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2197,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2198 /* A quad */
2199 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 1 : 0);
2200 orntNew[0] = ornt[0];
2201 coneNew[1] = fStartNew + (fEnd - fStart)*2 + newpt + 0;
2202 orntNew[1] = 0;
2203 coneNew[2] = fStartNew + (fEnd - fStart)*2 + newpt + 2;
2204 orntNew[2] = -2;
2205 coneNew[3] = fStartNew + (cone[2] - fStart)*2 + (ornt[2] < 0 ? 1 : 0);
2206 orntNew[3] = ornt[2] < 0 ? 0 : -2;
2207 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2207,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2208 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2208,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2209#if defined(PETSC_USE_DEBUG1)
2210 if ((newp+0 < cStartNew) || (newp+0 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+0, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2210,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+0,cStartNew,cEndNew);
2211 for (p = 0; p < 4; ++p) {
2212 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2212,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
2213 }
2214#endif
2215 /* B quad */
2216 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 0 : 1);
2217 orntNew[0] = ornt[0];
2218 coneNew[1] = fStartNew + (cone[3] - fStart)*2 + (ornt[3] < 0 ? 1 : 0);
2219 orntNew[1] = ornt[3];
2220 coneNew[2] = fStartNew + (fEnd - fStart)*2 + newpt + 3;
2221 orntNew[2] = 0;
2222 coneNew[3] = fStartNew + (fEnd - fStart)*2 + newpt + 0;
2223 orntNew[3] = -2;
2224 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2224,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2225 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2225,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2226#if defined(PETSC_USE_DEBUG1)
2227 if ((newp+1 < cStartNew) || (newp+1 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+1, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2227,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+1,cStartNew,cEndNew);
2228 for (p = 0; p < 4; ++p) {
2229 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2229,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
2230 }
2231#endif
2232 /* C quad */
2233 coneNew[0] = fStartNew + (fEnd - fStart)*2 + newpt + 3;
2234 orntNew[0] = -2;
2235 coneNew[1] = fStartNew + (cone[3] - fStart)*2 + (ornt[3] < 0 ? 0 : 1);
2236 orntNew[1] = ornt[3];
2237 coneNew[2] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 0 : 1);
2238 orntNew[2] = ornt[1] < 0 ? 0 : -2;
2239 coneNew[3] = fStartNew + (fEnd - fStart)*2 + newpt + 1;
2240 orntNew[3] = 0;
2241 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2241,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2242 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2242,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2243#if defined(PETSC_USE_DEBUG1)
2244 if ((newp+2 < cStartNew) || (newp+2 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+2, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2244,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+2,cStartNew,cEndNew);
2245 for (p = 0; p < 4; ++p) {
2246 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2246,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
2247 }
2248#endif
2249 /* D quad */
2250 coneNew[0] = fStartNew + (fEnd - fStart)*2 + newpt + 2;
2251 orntNew[0] = 0;
2252 coneNew[1] = fStartNew + (fEnd - fStart)*2 + newpt + 1;
2253 orntNew[1] = -2;
2254 coneNew[2] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 1 : 0);
2255 orntNew[2] = ornt[1] < 0 ? 0 : -2;
2256 coneNew[3] = fStartNew + (cone[2] - fStart)*2 + (ornt[2] < 0 ? 0 : 1);
2257 orntNew[3] = ornt[2] < 0 ? 0 : -2;
2258 ierr = DMPlexSetCone(rdm, newp+3, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2258,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2259 ierr = DMPlexSetConeOrientation(rdm, newp+3, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2259,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2260#if defined(PETSC_USE_DEBUG1)
2261 if ((newp+3 < cStartNew) || (newp+3 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+3, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2261,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+3,cStartNew,cEndNew);
2262 for (p = 0; p < 4; ++p) {
2263 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2263,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
2264 }
2265#endif
2266 }
2267 /* Split faces have 2 vertices and the same cells as the parent */
2268 ierr = DMPlexGetMaxSizes(dm, NULL((void*)0), &maxSupportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2268,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2269 ierr = PetscMalloc1(2 + maxSupportSize*2, &supportRef)PetscMallocA(1,PETSC_FALSE,2269,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(2 + maxSupportSize*2)*sizeof(**(&supportRef)),(
&supportRef));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2269,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2270 for (f = fStart; f < fEnd; ++f) {
2271 const PetscInt newv = vStartNew + (vEnd - vStart) + (f - fStart);
2272
2273 for (r = 0; r < 2; ++r) {
2274 const PetscInt newp = fStartNew + (f - fStart)*2 + r;
2275 const PetscInt *cone, *ornt, *support;
2276 PetscInt coneNew[2], coneSize, c, supportSize, s;
2277
2278 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2278,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2279 coneNew[0] = vStartNew + (cone[0] - vStart);
2280 coneNew[1] = vStartNew + (cone[1] - vStart);
2281 coneNew[(r+1)%2] = newv;
2282 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2282,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2283#if defined(PETSC_USE_DEBUG1)
2284 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2284,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2285 for (p = 0; p < 2; ++p) {
2286 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2286,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
2287 }
2288#endif
2289 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2289,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2290 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2290,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2291 for (s = 0; s < supportSize; ++s) {
2292 const PetscInt p2q[4][2] = { {0, 1},
2293 {3, 2},
2294 {0, 3},
2295 {1, 2} };
2296
2297 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2297,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2298 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2298,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2299 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2299,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2300 for (c = 0; c < coneSize; ++c) {
2301 if (cone[c] == f) break;
2302 }
2303 if (coneSize == 3) supportRef[s] = cStartNew + (support[s] - cStart)*3 + (ornt[c] < 0 ? (c+1-r)%3 : (c+r)%3);
2304 else if (coneSize == 4) supportRef[s] = cStartNew + (cMax - cStart)*3 + (support[s] - cMax)*4 + (ornt[c] < 0 ? p2q[c][(r+1)%2] : p2q[c][r]);
2305 else SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected cone size %D", coneSize)return PetscError(((MPI_Comm)0x44000001),2305,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected cone size %D",coneSize);
2306 }
2307 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2307,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2308#if defined(PETSC_USE_DEBUG1)
2309 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2309,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2310 for (p = 0; p < supportSize; ++p) {
2311 if ((supportRef[p] < cStartNew) || (supportRef[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportRef[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2311,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportRef
[p],cStartNew,cEndNew);
2312 }
2313#endif
2314 }
2315 }
2316 /* Interior faces have 2 vertices and 2 cells */
2317 for (c = cStart; c < cMax; ++c) {
2318 const PetscInt *cone;
2319
2320 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2320,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2321 for (r = 0; r < 3; ++r) {
2322 const PetscInt newp = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + r;
2323 PetscInt coneNew[2];
2324 PetscInt supportNew[2];
2325
2326 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[r] - fStart);
2327 coneNew[1] = vStartNew + (vEnd - vStart) + (fEnd - fStart) + (c - cStart);
2328 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2328,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2329#if defined(PETSC_USE_DEBUG1)
2330 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2330,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2331 for (p = 0; p < 2; ++p) {
2332 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2332,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
2333 }
2334#endif
2335 supportNew[0] = (c - cStart)*3 + r%3;
2336 supportNew[1] = (c - cStart)*3 + (r+1)%3;
2337 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2337,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2338#if defined(PETSC_USE_DEBUG1)
2339 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2339,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2340 for (p = 0; p < 2; ++p) {
2341 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2341,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
2342 }
2343#endif
2344 }
2345 }
2346 /* Hybrid interior faces have 2 vertices and 2 cells */
2347 for (c = cMax; c < cEnd; ++c) {
2348 const PetscInt *cone;
2349 PetscInt coneNew[2], supportNew[2];
2350
2351 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2351,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2352 for (r = 0; r < 4; ++r) {
2353 const PetscInt newp = fStartNew + (fEnd - fStart)*2 + (cMax - cStart)*3 + (c - cMax)*4 + r;
2354
2355 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[r] - fStart);
2356 coneNew[1] = vStartNew + (vEnd - vStart) + (fEnd - fStart) + (cMax - cStart) + (c - cMax);
2357 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2357,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2358#if defined(PETSC_USE_DEBUG1)
2359 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2359,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2360 for (p = 0; p < 2; ++p) {
2361 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2361,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
2362 }
2363#endif
2364 if (r==0) {
2365 supportNew[0] = (cMax - cStart)*3 + (c - cMax)*4 + 0;
2366 supportNew[1] = (cMax - cStart)*3 + (c - cMax)*4 + 1;
2367 } else if (r==1) {
2368 supportNew[0] = (cMax - cStart)*3 + (c - cMax)*4 + 2;
2369 supportNew[1] = (cMax - cStart)*3 + (c - cMax)*4 + 3;
2370 } else if (r==2) {
2371 supportNew[0] = (cMax - cStart)*3 + (c - cMax)*4 + 0;
2372 supportNew[1] = (cMax - cStart)*3 + (c - cMax)*4 + 3;
2373 } else {
2374 supportNew[0] = (cMax - cStart)*3 + (c - cMax)*4 + 1;
2375 supportNew[1] = (cMax - cStart)*3 + (c - cMax)*4 + 2;
2376 }
2377 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2377,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2378#if defined(PETSC_USE_DEBUG1)
2379 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2379,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2380 for (p = 0; p < 2; ++p) {
2381 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2381,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
2382 }
2383#endif
2384 }
2385 }
2386 /* Old vertices have identical supports */
2387 for (v = vStart; v < vEnd; ++v) {
2388 const PetscInt newp = vStartNew + (v - vStart);
2389 const PetscInt *support, *cone;
2390 PetscInt size, s;
2391
2392 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2392,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2393 ierr = DMPlexGetSupport(dm, v, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2393,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2394 for (s = 0; s < size; ++s) {
2395 PetscInt r = 0;
2396
2397 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2397,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2398 if (cone[1] == v) r = 1;
2399 supportRef[s] = fStartNew + (support[s] - fStart)*2 + r;
2400 }
2401 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2401,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2402#if defined(PETSC_USE_DEBUG1)
2403 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2403,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
2404 for (p = 0; p < size; ++p) {
2405 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2405,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
2406 }
2407#endif
2408 }
2409 /* Split-face vertices have cells + 2 supports */
2410 for (f = fStart; f < fEnd; ++f) {
2411 const PetscInt newp = vStartNew + (vEnd - vStart) + (f - fStart);
2412 const PetscInt *cone, *support;
2413 PetscInt size, s;
2414
2415 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2415,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2416 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2416,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2417 supportRef[0] = fStartNew + (f - fStart)*2 + 0;
2418 supportRef[1] = fStartNew + (f - fStart)*2 + 1;
2419 for (s = 0; s < size; ++s) {
2420 PetscInt r = 0, coneSize;
2421
2422 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2422,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2423 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2423,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2424 if (coneSize == 3) {
2425 if (cone[1] == f) r = 1;
2426 else if (cone[2] == f) r = 2;
2427 supportRef[2+s] = fStartNew + (fEnd - fStart)*2 + (support[s] - cStart)*3 + r;
2428 } else if (coneSize == 4) {
2429 if (cone[1] == f) r = 1;
2430 else if (cone[2] == f) r = 2;
2431 else if (cone[3] == f) r = 3;
2432 supportRef[2+s] = fStartNew + (fEnd - fStart)*2 + (cMax - cStart)*3 + (support[s] - cMax)*4 + r;
2433 } else SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected cone size %D", coneSize)return PetscError(((MPI_Comm)0x44000001),2433,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected cone size %D",coneSize);
2434 }
2435 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2435,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2436#if defined(PETSC_USE_DEBUG1)
2437 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2437,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
2438 for (p = 0; p < 2+size; ++p) {
2439 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2439,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
2440 }
2441#endif
2442 }
2443 /* Interior vertices have 3 supports */
2444 for (c = cStart; c < cMax; ++c) {
2445 const PetscInt newp = vStartNew + (vEnd - vStart) + (fEnd - fStart) + c - cStart;
2446
2447 supportRef[0] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 0;
2448 supportRef[1] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 1;
2449 supportRef[2] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*3 + 2;
2450 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2450,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2451 }
2452 /* Hybrid interior vertices have 4 supports */
2453 for (c = cMax; c < cEnd; ++c) {
2454 const PetscInt newp = vStartNew + (vEnd - vStart) + (fEnd - fStart) + c - cStart;
2455
2456 supportRef[0] = fStartNew + (fEnd - fStart)*2 + (cMax - cStart)*3 + (c - cMax)*4 + 0;
2457 supportRef[1] = fStartNew + (fEnd - fStart)*2 + (cMax - cStart)*3 + (c - cMax)*4 + 1;
2458 supportRef[2] = fStartNew + (fEnd - fStart)*2 + (cMax - cStart)*3 + (c - cMax)*4 + 2;
2459 supportRef[3] = fStartNew + (fEnd - fStart)*2 + (cMax - cStart)*3 + (c - cMax)*4 + 3;
2460 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2460,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2461 }
2462 ierr = PetscFree(supportRef)((*PetscTrFree)((void*)(supportRef),2462,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((supportRef) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2462,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2463 break;
2464 case REFINER_HEX_2D:
2465 /*
2466 3---------2---------2
2467 | | |
2468 | D 2 C |
2469 | | |
2470 3----3----0----1----1
2471 | | |
2472 | A 0 B |
2473 | | |
2474 0---------0---------1
2475 */
2476 /* All cells have 4 faces */
2477 for (c = cStart; c < cEnd; ++c) {
2478 const PetscInt newp = (c - cStart)*4;
2479 const PetscInt *cone, *ornt;
2480 PetscInt coneNew[4], orntNew[4];
2481
2482 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2482,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2483 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2483,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2484 /* A quad */
2485 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 1 : 0);
2486 orntNew[0] = ornt[0];
2487 coneNew[1] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*4 + 0;
2488 orntNew[1] = 0;
2489 coneNew[2] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*4 + 3;
2490 orntNew[2] = -2;
2491 coneNew[3] = fStartNew + (cone[3] - fStart)*2 + (ornt[3] < 0 ? 0 : 1);
2492 orntNew[3] = ornt[3];
2493 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2493,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2494 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2494,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2495#if defined(PETSC_USE_DEBUG1)
2496 if ((newp+0 < cStartNew) || (newp+0 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+0, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2496,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+0,cStartNew,cEndNew);
2497 for (p = 0; p < 4; ++p) {
2498 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2498,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
2499 }
2500#endif
2501 /* B quad */
2502 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 0 : 1);
2503 orntNew[0] = ornt[0];
2504 coneNew[1] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 1 : 0);
2505 orntNew[1] = ornt[1];
2506 coneNew[2] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*4 + 1;
2507 orntNew[2] = -2;
2508 coneNew[3] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*4 + 0;
2509 orntNew[3] = -2;
2510 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2510,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2511 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2511,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2512#if defined(PETSC_USE_DEBUG1)
2513 if ((newp+1 < cStartNew) || (newp+1 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+1, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2513,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+1,cStartNew,cEndNew);
2514 for (p = 0; p < 4; ++p) {
2515 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2515,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
2516 }
2517#endif
2518 /* C quad */
2519 coneNew[0] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*4 + 1;
2520 orntNew[0] = 0;
2521 coneNew[1] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 0 : 1);
2522 orntNew[1] = ornt[1];
2523 coneNew[2] = fStartNew + (cone[2] - fStart)*2 + (ornt[2] < 0 ? 1 : 0);
2524 orntNew[2] = ornt[2];
2525 coneNew[3] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*4 + 2;
2526 orntNew[3] = -2;
2527 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2527,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2528 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2528,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2529#if defined(PETSC_USE_DEBUG1)
2530 if ((newp+2 < cStartNew) || (newp+2 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+2, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2530,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+2,cStartNew,cEndNew);
2531 for (p = 0; p < 4; ++p) {
2532 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2532,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
2533 }
2534#endif
2535 /* D quad */
2536 coneNew[0] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*4 + 3;
2537 orntNew[0] = 0;
2538 coneNew[1] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*4 + 2;
2539 orntNew[1] = 0;
2540 coneNew[2] = fStartNew + (cone[2] - fStart)*2 + (ornt[2] < 0 ? 0 : 1);
2541 orntNew[2] = ornt[2];
2542 coneNew[3] = fStartNew + (cone[3] - fStart)*2 + (ornt[3] < 0 ? 1 : 0);
2543 orntNew[3] = ornt[3];
2544 ierr = DMPlexSetCone(rdm, newp+3, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2544,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2545 ierr = DMPlexSetConeOrientation(rdm, newp+3, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2545,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2546#if defined(PETSC_USE_DEBUG1)
2547 if ((newp+3 < cStartNew) || (newp+3 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+3, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2547,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+3,cStartNew,cEndNew);
2548 for (p = 0; p < 4; ++p) {
2549 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2549,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
2550 }
2551#endif
2552 }
2553 /* Split faces have 2 vertices and the same cells as the parent */
2554 ierr = DMPlexGetMaxSizes(dm, NULL((void*)0), &maxSupportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2554,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2555 ierr = PetscMalloc1(2 + maxSupportSize*2, &supportRef)PetscMallocA(1,PETSC_FALSE,2555,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(2 + maxSupportSize*2)*sizeof(**(&supportRef)),(
&supportRef));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2555,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2556 for (f = fStart; f < fEnd; ++f) {
2557 const PetscInt newv = vStartNew + (vEnd - vStart) + (f - fStart);
2558
2559 for (r = 0; r < 2; ++r) {
2560 const PetscInt newp = fStartNew + (f - fStart)*2 + r;
2561 const PetscInt *cone, *ornt, *support;
2562 PetscInt coneNew[2], coneSize, c, supportSize, s;
2563
2564 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2564,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2565 coneNew[0] = vStartNew + (cone[0] - vStart);
2566 coneNew[1] = vStartNew + (cone[1] - vStart);
2567 coneNew[(r+1)%2] = newv;
2568 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2568,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2569#if defined(PETSC_USE_DEBUG1)
2570 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2570,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2571 for (p = 0; p < 2; ++p) {
2572 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2572,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
2573 }
2574#endif
2575 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2575,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2576 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2576,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2577 for (s = 0; s < supportSize; ++s) {
2578 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2578,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2579 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2579,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2580 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2580,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2581 for (c = 0; c < coneSize; ++c) {
2582 if (cone[c] == f) break;
2583 }
2584 supportRef[s] = cStartNew + (support[s] - cStart)*4 + (ornt[c] < 0 ? (c+1-r)%4 : (c+r)%4);
2585 }
2586 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2586,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2587#if defined(PETSC_USE_DEBUG1)
2588 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2588,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2589 for (p = 0; p < supportSize; ++p) {
2590 if ((supportRef[p] < cStartNew) || (supportRef[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportRef[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2590,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportRef
[p],cStartNew,cEndNew);
2591 }
2592#endif
2593 }
2594 }
2595 /* Interior faces have 2 vertices and 2 cells */
2596 for (c = cStart; c < cEnd; ++c) {
2597 const PetscInt *cone;
2598 PetscInt coneNew[2], supportNew[2];
2599
2600 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2600,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2601 for (r = 0; r < 4; ++r) {
2602 const PetscInt newp = fStartNew + (fEnd - fStart)*2 + (c - cStart)*4 + r;
2603
2604 if (r==1 || r==2) {
2605 coneNew[0] = vStartNew + (vEnd - vStart) + (fEnd - fStart) + (c - cStart);
2606 coneNew[1] = vStartNew + (vEnd - vStart) + (cone[r] - fStart);
2607 } else {
2608 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[r] - fStart);
2609 coneNew[1] = vStartNew + (vEnd - vStart) + (fEnd - fStart) + (c - cStart);
2610 }
2611 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2611,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2612#if defined(PETSC_USE_DEBUG1)
2613 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2613,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2614 for (p = 0; p < 2; ++p) {
2615 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2615,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
2616 }
2617#endif
2618 supportNew[0] = (c - cStart)*4 + r;
2619 supportNew[1] = (c - cStart)*4 + (r+1)%4;
2620 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2620,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2621#if defined(PETSC_USE_DEBUG1)
2622 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2622,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2623 for (p = 0; p < 2; ++p) {
2624 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2624,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
2625 }
2626#endif
2627 }
2628 }
2629 /* Old vertices have identical supports */
2630 for (v = vStart; v < vEnd; ++v) {
2631 const PetscInt newp = vStartNew + (v - vStart);
2632 const PetscInt *support, *cone;
2633 PetscInt size, s;
2634
2635 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2635,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2636 ierr = DMPlexGetSupport(dm, v, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2636,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2637 for (s = 0; s < size; ++s) {
2638 PetscInt r = 0;
2639
2640 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2640,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2641 if (cone[1] == v) r = 1;
2642 supportRef[s] = fStartNew + (support[s] - fStart)*2 + r;
2643 }
2644 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2644,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2645#if defined(PETSC_USE_DEBUG1)
2646 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2646,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
2647 for (p = 0; p < size; ++p) {
2648 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2648,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
2649 }
2650#endif
2651 }
2652 /* Face vertices have 2 + cells supports */
2653 for (f = fStart; f < fEnd; ++f) {
2654 const PetscInt newp = vStartNew + (vEnd - vStart) + (f - fStart);
2655 const PetscInt *cone, *support;
2656 PetscInt size, s;
2657
2658 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2658,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2659 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2659,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2660 supportRef[0] = fStartNew + (f - fStart)*2 + 0;
2661 supportRef[1] = fStartNew + (f - fStart)*2 + 1;
2662 for (s = 0; s < size; ++s) {
2663 PetscInt r = 0;
2664
2665 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2665,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2666 if (cone[1] == f) r = 1;
2667 else if (cone[2] == f) r = 2;
2668 else if (cone[3] == f) r = 3;
2669 supportRef[2+s] = fStartNew + (fEnd - fStart)*2 + (support[s] - cStart)*4 + r;
2670 }
2671 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2671,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2672#if defined(PETSC_USE_DEBUG1)
2673 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2673,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
2674 for (p = 0; p < 2+size; ++p) {
2675 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2675,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
2676 }
2677#endif
2678 }
2679 /* Cell vertices have 4 supports */
2680 for (c = cStart; c < cEnd; ++c) {
2681 const PetscInt newp = vStartNew + (vEnd - vStart) + (fEnd - fStart) + (c - cStart);
2682 PetscInt supportNew[4];
2683
2684 for (r = 0; r < 4; ++r) {
2685 supportNew[r] = fStartNew + (fEnd - fStart)*2 + (c - cStart)*4 + r;
2686 }
2687 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2687,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2688 }
2689 ierr = PetscFree(supportRef)((*PetscTrFree)((void*)(supportRef),2689,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((supportRef) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2689,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2690 break;
2691 case REFINER_HYBRID_SIMPLEX_2D:
2692 if (cMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No cell maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),2692,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No cell maximum specified in hybrid mesh"
);
2693 cMax = PetscMin(cEnd, cMax)(((cEnd)<(cMax)) ? (cEnd) : (cMax));
2694 if (fMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No face maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),2694,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No face maximum specified in hybrid mesh"
);
2695 fMax = PetscMin(fEnd, fMax)(((fEnd)<(fMax)) ? (fEnd) : (fMax));
2696 ierr = DMPlexGetHybridBounds(rdm, &cMaxNew, &fMaxNew, NULL((void*)0), NULL((void*)0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2696,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2697 /* Interior cells have 3 faces */
2698 for (c = cStart; c < cMax; ++c) {
2699 const PetscInt newp = cStartNew + (c - cStart)*4;
2700 const PetscInt *cone, *ornt;
2701 PetscInt coneNew[3], orntNew[3];
2702
2703 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2703,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2704 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2704,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2705 /* A triangle */
2706 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 1 : 0);
2707 orntNew[0] = ornt[0];
2708 coneNew[1] = fStartNew + (fMax - fStart)*2 + (c - cStart)*3 + 2;
2709 orntNew[1] = -2;
2710 coneNew[2] = fStartNew + (cone[2] - fStart)*2 + (ornt[2] < 0 ? 0 : 1);
2711 orntNew[2] = ornt[2];
2712 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2712,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2713 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2713,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2714#if defined(PETSC_USE_DEBUG1)
2715 if ((newp+0 < cStartNew) || (newp+0 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior cell [%D, %D)", newp+0, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),2715,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior cell [%D, %D)"
,newp+0,cStartNew,cMaxNew);
2716 for (p = 0; p < 3; ++p) {
2717 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),2717,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior face [%D, %D)"
,coneNew[p],fStartNew,fMaxNew);
2718 }
2719#endif
2720 /* B triangle */
2721 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 0 : 1);
2722 orntNew[0] = ornt[0];
2723 coneNew[1] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 1 : 0);
2724 orntNew[1] = ornt[1];
2725 coneNew[2] = fStartNew + (fMax - fStart)*2 + (c - cStart)*3 + 0;
2726 orntNew[2] = -2;
2727 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2727,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2728 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2728,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2729#if defined(PETSC_USE_DEBUG1)
2730 if ((newp+1 < cStartNew) || (newp+1 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior cell [%D, %D)", newp+1, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),2730,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior cell [%D, %D)"
,newp+1,cStartNew,cMaxNew);
2731 for (p = 0; p < 3; ++p) {
2732 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),2732,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior face [%D, %D)"
,coneNew[p],fStartNew,fMaxNew);
2733 }
2734#endif
2735 /* C triangle */
2736 coneNew[0] = fStartNew + (fMax - fStart)*2 + (c - cStart)*3 + 1;
2737 orntNew[0] = -2;
2738 coneNew[1] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 0 : 1);
2739 orntNew[1] = ornt[1];
2740 coneNew[2] = fStartNew + (cone[2] - fStart)*2 + (ornt[2] < 0 ? 1 : 0);
2741 orntNew[2] = ornt[2];
2742 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2742,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2743 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2743,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2744#if defined(PETSC_USE_DEBUG1)
2745 if ((newp+2 < cStartNew) || (newp+2 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior cell [%D, %D)", newp+2, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),2745,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior cell [%D, %D)"
,newp+2,cStartNew,cMaxNew);
2746 for (p = 0; p < 3; ++p) {
2747 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),2747,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior face [%D, %D)"
,coneNew[p],fStartNew,fMaxNew);
2748 }
2749#endif
2750 /* D triangle */
2751 coneNew[0] = fStartNew + (fMax - fStart)*2 + (c - cStart)*3 + 0;
2752 orntNew[0] = 0;
2753 coneNew[1] = fStartNew + (fMax - fStart)*2 + (c - cStart)*3 + 1;
2754 orntNew[1] = 0;
2755 coneNew[2] = fStartNew + (fMax - fStart)*2 + (c - cStart)*3 + 2;
2756 orntNew[2] = 0;
2757 ierr = DMPlexSetCone(rdm, newp+3, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2757,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2758 ierr = DMPlexSetConeOrientation(rdm, newp+3, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2758,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2759#if defined(PETSC_USE_DEBUG1)
2760 if ((newp+3 < cStartNew) || (newp+3 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior cell [%D, %D)", newp+3, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),2760,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior cell [%D, %D)"
,newp+3,cStartNew,cMaxNew);
2761 for (p = 0; p < 3; ++p) {
2762 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),2762,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior face [%D, %D)"
,coneNew[p],fStartNew,fMaxNew);
2763 }
2764#endif
2765 }
2766 /*
2767 2----3----3
2768 | |
2769 | B |
2770 | |
2771 0----4--- 1
2772 | |
2773 | A |
2774 | |
2775 0----2----1
2776 */
2777 /* Hybrid cells have 4 faces */
2778 for (c = cMax; c < cEnd; ++c) {
2779 const PetscInt newp = cStartNew + (cMax - cStart)*4 + (c - cMax)*2;
2780 const PetscInt *cone, *ornt;
2781 PetscInt coneNew[4], orntNew[4], r;
2782
2783 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2783,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2784 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2784,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2785 r = (ornt[0] < 0 ? 1 : 0);
2786 /* A quad */
2787 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + r;
2788 orntNew[0] = ornt[0];
2789 coneNew[1] = fStartNew + (cone[1] - fStart)*2 + r;
2790 orntNew[1] = ornt[1];
2791 coneNew[2+r] = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*3 + (cone[2+r] - fMax);
2792 orntNew[2+r] = 0;
2793 coneNew[3-r] = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*3 + (fEnd - fMax) + (c - cMax);
2794 orntNew[3-r] = 0;
2795 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2795,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2796 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2796,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2797#if defined(PETSC_USE_DEBUG1)
2798 if ((newp+0 < cStartNew) || (newp+0 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+0, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2798,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+0,cStartNew,cEndNew);
2799 for (p = 0; p < 4; ++p) {
2800 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2800,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
2801 }
2802#endif
2803 /* B quad */
2804 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + 1-r;
2805 orntNew[0] = ornt[0];
2806 coneNew[1] = fStartNew + (cone[1] - fStart)*2 + 1-r;
2807 orntNew[1] = ornt[1];
2808 coneNew[2+r] = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*3 + (fEnd - fMax) + (c - cMax);
2809 orntNew[2+r] = 0;
2810 coneNew[3-r] = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*3 + (cone[3-r] - fMax);
2811 orntNew[3-r] = 0;
2812 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2812,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2813 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2813,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2814#if defined(PETSC_USE_DEBUG1)
2815 if ((newp+1 < cStartNew) || (newp+1 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+1, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2815,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+1,cStartNew,cEndNew);
2816 for (p = 0; p < 4; ++p) {
2817 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2817,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
2818 }
2819#endif
2820 }
2821 /* Interior split faces have 2 vertices and the same cells as the parent */
2822 ierr = DMPlexGetMaxSizes(dm, NULL((void*)0), &maxSupportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2822,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2823 ierr = PetscMalloc1(2 + maxSupportSize*2, &supportRef)PetscMallocA(1,PETSC_FALSE,2823,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(2 + maxSupportSize*2)*sizeof(**(&supportRef)),(
&supportRef));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2823,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2824 for (f = fStart; f < fMax; ++f) {
2825 const PetscInt newv = vStartNew + (vEnd - vStart) + (f - fStart);
2826
2827 for (r = 0; r < 2; ++r) {
2828 const PetscInt newp = fStartNew + (f - fStart)*2 + r;
2829 const PetscInt *cone, *ornt, *support;
2830 PetscInt coneNew[2], coneSize, c, supportSize, s;
2831
2832 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2832,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2833 coneNew[0] = vStartNew + (cone[0] - vStart);
2834 coneNew[1] = vStartNew + (cone[1] - vStart);
2835 coneNew[(r+1)%2] = newv;
2836 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2836,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2837#if defined(PETSC_USE_DEBUG1)
2838 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2838,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2839 for (p = 0; p < 2; ++p) {
2840 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2840,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
2841 }
2842#endif
2843 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2843,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2844 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2844,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2845 for (s = 0; s < supportSize; ++s) {
2846 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2846,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2847 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2847,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2848 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2848,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2849 for (c = 0; c < coneSize; ++c) if (cone[c] == f) break;
2850 if (support[s] >= cMax) {
2851 supportRef[s] = cStartNew + (cMax - cStart)*4 + (support[s] - cMax)*2 + (ornt[c] < 0 ? 1-r : r);
2852 } else {
2853 supportRef[s] = cStartNew + (support[s] - cStart)*4 + (ornt[c] < 0 ? (c+1-r)%3 : (c+r)%3);
2854 }
2855 }
2856 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2856,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2857#if defined(PETSC_USE_DEBUG1)
2858 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2858,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2859 for (p = 0; p < supportSize; ++p) {
2860 if ((supportRef[p] < cStartNew) || (supportRef[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportRef[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2860,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportRef
[p],cStartNew,cEndNew);
2861 }
2862#endif
2863 }
2864 }
2865 /* Interior cell faces have 2 vertices and 2 cells */
2866 for (c = cStart; c < cMax; ++c) {
2867 const PetscInt *cone;
2868
2869 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2869,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2870 for (r = 0; r < 3; ++r) {
2871 const PetscInt newp = fStartNew + (fMax - fStart)*2 + (c - cStart)*3 + r;
2872 PetscInt coneNew[2];
2873 PetscInt supportNew[2];
2874
2875 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[r] - fStart);
2876 coneNew[1] = vStartNew + (vEnd - vStart) + (cone[(r+1)%3] - fStart);
2877 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2877,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2878#if defined(PETSC_USE_DEBUG1)
2879 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2879,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2880 for (p = 0; p < 2; ++p) {
2881 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2881,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
2882 }
2883#endif
2884 supportNew[0] = (c - cStart)*4 + (r+1)%3;
2885 supportNew[1] = (c - cStart)*4 + 3;
2886 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2886,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2887#if defined(PETSC_USE_DEBUG1)
2888 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2888,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2889 for (p = 0; p < 2; ++p) {
2890 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2890,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
2891 }
2892#endif
2893 }
2894 }
2895 /* Interior hybrid faces have 2 vertices and the same cells */
2896 for (f = fMax; f < fEnd; ++f) {
2897 const PetscInt newp = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*3 + (f - fMax);
2898 const PetscInt *cone, *ornt;
2899 const PetscInt *support;
2900 PetscInt coneNew[2];
2901 PetscInt supportNew[2];
2902 PetscInt size, s, r;
2903
2904 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2904,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2905 coneNew[0] = vStartNew + (cone[0] - vStart);
2906 coneNew[1] = vStartNew + (cone[1] - vStart);
2907 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2907,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2908#if defined(PETSC_USE_DEBUG1)
2909 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2909,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2910 for (p = 0; p < 2; ++p) {
2911 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2911,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
2912 }
2913#endif
2914 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2914,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2915 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2915,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2916 for (s = 0; s < size; ++s) {
2917 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2917,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2918 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2918,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2919 for (r = 0; r < 2; ++r) {
2920 if (cone[r+2] == f) break;
2921 }
2922 supportNew[s] = (cMax - cStart)*4 + (support[s] - cMax)*2 + (ornt[0] < 0 ? 1-r : r);
2923 }
2924 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2924,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2925#if defined(PETSC_USE_DEBUG1)
2926 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2926,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2927 for (p = 0; p < size; ++p) {
2928 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2928,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
2929 }
2930#endif
2931 }
2932 /* Cell hybrid faces have 2 vertices and 2 cells */
2933 for (c = cMax; c < cEnd; ++c) {
2934 const PetscInt newp = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*3 + (fEnd - fMax) + (c - cMax);
2935 const PetscInt *cone;
2936 PetscInt coneNew[2];
2937 PetscInt supportNew[2];
2938
2939 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2939,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2940 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[0] - fStart);
2941 coneNew[1] = vStartNew + (vEnd - vStart) + (cone[1] - fStart);
2942 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2942,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2943#if defined(PETSC_USE_DEBUG1)
2944 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2944,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2945 for (p = 0; p < 2; ++p) {
2946 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2946,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
2947 }
2948#endif
2949 supportNew[0] = (cMax - cStart)*4 + (c - cMax)*2 + 0;
2950 supportNew[1] = (cMax - cStart)*4 + (c - cMax)*2 + 1;
2951 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2951,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2952#if defined(PETSC_USE_DEBUG1)
2953 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2953,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
2954 for (p = 0; p < 2; ++p) {
2955 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),2955,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
2956 }
2957#endif
2958 }
2959 /* Old vertices have identical supports */
2960 for (v = vStart; v < vEnd; ++v) {
2961 const PetscInt newp = vStartNew + (v - vStart);
2962 const PetscInt *support, *cone;
2963 PetscInt size, s;
2964
2965 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2965,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2966 ierr = DMPlexGetSupport(dm, v, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2966,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2967 for (s = 0; s < size; ++s) {
2968 if (support[s] >= fMax) {
2969 supportRef[s] = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*3 + (support[s] - fMax);
2970 } else {
2971 PetscInt r = 0;
2972
2973 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2973,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2974 if (cone[1] == v) r = 1;
2975 supportRef[s] = fStartNew + (support[s] - fStart)*2 + r;
2976 }
2977 }
2978 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2978,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2979#if defined(PETSC_USE_DEBUG1)
2980 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),2980,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
2981 for (p = 0; p < size; ++p) {
2982 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),2982,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
2983 }
2984#endif
2985 }
2986 /* Face vertices have 2 + (2 interior, 1 hybrid) supports */
2987 for (f = fStart; f < fMax; ++f) {
2988 const PetscInt newp = vStartNew + (vEnd - vStart) + (f - fStart);
2989 const PetscInt *cone, *support;
2990 PetscInt size, newSize = 2, s;
2991
2992 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2992,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2993 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2993,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
2994 supportRef[0] = fStartNew + (f - fStart)*2 + 0;
2995 supportRef[1] = fStartNew + (f - fStart)*2 + 1;
2996 for (s = 0; s < size; ++s) {
2997 PetscInt r = 0;
2998
2999 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2999,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3000 if (support[s] >= cMax) {
3001 supportRef[newSize+0] = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*3 + (fEnd - fMax) + (support[s] - cMax);
3002
3003 newSize += 1;
3004 } else {
3005 if (cone[1] == f) r = 1;
3006 else if (cone[2] == f) r = 2;
3007 supportRef[newSize+0] = fStartNew + (fMax - fStart)*2 + (support[s] - cStart)*3 + (r+2)%3;
3008 supportRef[newSize+1] = fStartNew + (fMax - fStart)*2 + (support[s] - cStart)*3 + r;
3009
3010 newSize += 2;
3011 }
3012 }
3013 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3013,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3014#if defined(PETSC_USE_DEBUG1)
3015 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),3015,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
3016 for (p = 0; p < newSize; ++p) {
3017 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3017,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
3018 }
3019#endif
3020 }
3021 ierr = PetscFree(supportRef)((*PetscTrFree)((void*)(supportRef),3021,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((supportRef) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3021,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3022 break;
3023 case REFINER_HYBRID_HEX_2D:
3024 /* Hybrid Hex 2D */
3025 if (cMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No cell maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),3025,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No cell maximum specified in hybrid mesh"
);
3026 cMax = PetscMin(cEnd, cMax)(((cEnd)<(cMax)) ? (cEnd) : (cMax));
3027 if (fMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No face maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),3027,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No face maximum specified in hybrid mesh"
);
3028 fMax = PetscMin(fEnd, fMax)(((fEnd)<(fMax)) ? (fEnd) : (fMax));
3029 ierr = DMPlexGetHybridBounds(rdm, &cMaxNew, &fMaxNew, NULL((void*)0), NULL((void*)0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3029,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3030 /* Interior cells have 4 faces */
3031 for (c = cStart; c < cMax; ++c) {
3032 const PetscInt newp = cStartNew + (c - cStart)*4;
3033 const PetscInt *cone, *ornt;
3034 PetscInt coneNew[4], orntNew[4];
3035
3036 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3036,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3037 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3037,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3038 /* A quad */
3039 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 1 : 0);
3040 orntNew[0] = ornt[0];
3041 coneNew[1] = fStartNew + (fMax - fStart)*2 + (c - cStart)*4 + 0;
3042 orntNew[1] = 0;
3043 coneNew[2] = fStartNew + (fMax - fStart)*2 + (c - cStart)*4 + 3;
3044 orntNew[2] = -2;
3045 coneNew[3] = fStartNew + (cone[3] - fStart)*2 + (ornt[3] < 0 ? 0 : 1);
3046 orntNew[3] = ornt[3];
3047 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3047,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3048 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3048,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3049#if defined(PETSC_USE_DEBUG1)
3050 if ((newp+0 < cStartNew) || (newp+0 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior cell [%D, %D)", newp+0, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),3050,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior cell [%D, %D)"
,newp+0,cStartNew,cMaxNew);
3051 for (p = 0; p < 4; ++p) {
3052 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),3052,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior face [%D, %D)"
,coneNew[p],fStartNew,fMaxNew);
3053 }
3054#endif
3055 /* B quad */
3056 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 0 : 1);
3057 orntNew[0] = ornt[0];
3058 coneNew[1] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 1 : 0);
3059 orntNew[1] = ornt[1];
3060 coneNew[2] = fStartNew + (fMax - fStart)*2 + (c - cStart)*4 + 1;
3061 orntNew[2] = 0;
3062 coneNew[3] = fStartNew + (fMax - fStart)*2 + (c - cStart)*4 + 0;
3063 orntNew[3] = -2;
3064 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3064,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3065 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3065,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3066#if defined(PETSC_USE_DEBUG1)
3067 if ((newp+1 < cStartNew) || (newp+1 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior cell [%D, %D)", newp+1, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),3067,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior cell [%D, %D)"
,newp+1,cStartNew,cMaxNew);
3068 for (p = 0; p < 4; ++p) {
3069 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),3069,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior face [%D, %D)"
,coneNew[p],fStartNew,fMaxNew);
3070 }
3071#endif
3072 /* C quad */
3073 coneNew[0] = fStartNew + (fMax - fStart)*2 + (c - cStart)*4 + 1;
3074 orntNew[0] = -2;
3075 coneNew[1] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 0 : 1);
3076 orntNew[1] = ornt[1];
3077 coneNew[2] = fStartNew + (cone[2] - fStart)*2 + (ornt[2] < 0 ? 1 : 0);
3078 orntNew[2] = ornt[2];
3079 coneNew[3] = fStartNew + (fMax - fStart)*2 + (c - cStart)*4 + 2;
3080 orntNew[3] = 0;
3081 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3081,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3082 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3082,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3083#if defined(PETSC_USE_DEBUG1)
3084 if ((newp+2 < cStartNew) || (newp+2 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior cell [%D, %D)", newp+2, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),3084,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior cell [%D, %D)"
,newp+2,cStartNew,cMaxNew);
3085 for (p = 0; p < 4; ++p) {
3086 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),3086,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior face [%D, %D)"
,coneNew[p],fStartNew,fMaxNew);
3087 }
3088#endif
3089 /* D quad */
3090 coneNew[0] = fStartNew + (fMax - fStart)*2 + (c - cStart)*4 + 3;
3091 orntNew[0] = 0;
3092 coneNew[1] = fStartNew + (fMax - fStart)*2 + (c - cStart)*4 + 2;
3093 orntNew[1] = -2;
3094 coneNew[2] = fStartNew + (cone[2] - fStart)*2 + (ornt[2] < 0 ? 0 : 1);
3095 orntNew[2] = ornt[2];
3096 coneNew[3] = fStartNew + (cone[3] - fStart)*2 + (ornt[3] < 0 ? 1 : 0);
3097 orntNew[3] = ornt[3];
3098 ierr = DMPlexSetCone(rdm, newp+3, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3098,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3099 ierr = DMPlexSetConeOrientation(rdm, newp+3, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3099,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3100#if defined(PETSC_USE_DEBUG1)
3101 if ((newp+3 < cStartNew) || (newp+3 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior cell [%D, %D)", newp+3, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),3101,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior cell [%D, %D)"
,newp+3,cStartNew,cMaxNew);
3102 for (p = 0; p < 4; ++p) {
3103 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),3103,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior face [%D, %D)"
,coneNew[p],fStartNew,fMaxNew);
3104 }
3105#endif
3106 }
3107 /*
3108 2----3----3
3109 | |
3110 | B |
3111 | |
3112 0----4--- 1
3113 | |
3114 | A |
3115 | |
3116 0----2----1
3117 */
3118 /* Hybrid cells have 4 faces */
3119 for (c = cMax; c < cEnd; ++c) {
3120 const PetscInt newp = cStartNew + (cMax - cStart)*4 + (c - cMax)*2;
3121 const PetscInt *cone, *ornt;
3122 PetscInt coneNew[4], orntNew[4];
3123
3124 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3124,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3125 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3125,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3126 /* A quad */
3127 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 1 : 0);
3128 orntNew[0] = ornt[0];
3129 coneNew[1] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 1 : 0);
3130 orntNew[1] = ornt[1];
3131 coneNew[2] = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*4 + (cone[2] - fMax);
3132 orntNew[2] = 0;
3133 coneNew[3] = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*4 + (fEnd - fMax) + (c - cMax);
3134 orntNew[3] = 0;
3135 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3135,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3136 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3136,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3137#if defined(PETSC_USE_DEBUG1)
3138 if ((newp+0 < cStartNew) || (newp+0 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+0, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3138,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+0,cStartNew,cEndNew);
3139 for (p = 0; p < 4; ++p) {
3140 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3140,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
3141 }
3142#endif
3143 /* B quad */
3144 coneNew[0] = fStartNew + (cone[0] - fStart)*2 + (ornt[0] < 0 ? 0 : 1);
3145 orntNew[0] = ornt[0];
3146 coneNew[1] = fStartNew + (cone[1] - fStart)*2 + (ornt[1] < 0 ? 0 : 1);
3147 orntNew[1] = ornt[1];
3148 coneNew[2] = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*4 + (fEnd - fMax) + (c - cMax);
3149 orntNew[2] = 0;
3150 coneNew[3] = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*4 + (cone[3] - fMax);
3151 orntNew[3] = 0;
3152 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3152,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3153 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3153,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3154#if defined(PETSC_USE_DEBUG1)
3155 if ((newp+1 < cStartNew) || (newp+1 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+1, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3155,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+1,cStartNew,cEndNew);
3156 for (p = 0; p < 4; ++p) {
3157 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3157,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
3158 }
3159#endif
3160 }
3161 /* Interior split faces have 2 vertices and the same cells as the parent */
3162 ierr = DMPlexGetMaxSizes(dm, NULL((void*)0), &maxSupportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3162,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3163 ierr = PetscMalloc1(2 + maxSupportSize*2, &supportRef)PetscMallocA(1,PETSC_FALSE,3163,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(2 + maxSupportSize*2)*sizeof(**(&supportRef)),(
&supportRef));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3163,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3164 for (f = fStart; f < fMax; ++f) {
3165 const PetscInt newv = vStartNew + (vEnd - vStart) + (f - fStart);
3166
3167 for (r = 0; r < 2; ++r) {
3168 const PetscInt newp = fStartNew + (f - fStart)*2 + r;
3169 const PetscInt *cone, *ornt, *support;
3170 PetscInt coneNew[2], coneSize, c, supportSize, s;
3171
3172 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3172,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3173 coneNew[0] = vStartNew + (cone[0] - vStart);
3174 coneNew[1] = vStartNew + (cone[1] - vStart);
3175 coneNew[(r+1)%2] = newv;
3176 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3176,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3177#if defined(PETSC_USE_DEBUG1)
3178 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3178,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3179 for (p = 0; p < 2; ++p) {
3180 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),3180,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
3181 }
3182#endif
3183 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3183,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3184 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3184,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3185 for (s = 0; s < supportSize; ++s) {
3186 if (support[s] >= cMax) {
3187 supportRef[s] = cStartNew + (cMax - cStart)*4 + (support[s] - cMax)*2 + r;
3188 } else {
3189 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3189,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3190 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3190,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3191 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3191,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3192 for (c = 0; c < coneSize; ++c) {
3193 if (cone[c] == f) break;
3194 }
3195 supportRef[s] = cStartNew + (support[s] - cStart)*4 + (ornt[c] < 0 ? (c+1-r)%4 : (c+r)%4);
3196 }
3197 }
3198 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3198,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3199#if defined(PETSC_USE_DEBUG1)
3200 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3200,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3201 for (p = 0; p < supportSize; ++p) {
3202 if ((supportRef[p] < cStartNew) || (supportRef[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportRef[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3202,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportRef
[p],cStartNew,cEndNew);
3203 }
3204#endif
3205 }
3206 }
3207 /* Interior cell faces have 2 vertices and 2 cells */
3208 for (c = cStart; c < cMax; ++c) {
3209 const PetscInt *cone;
3210
3211 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3211,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3212 for (r = 0; r < 4; ++r) {
3213 const PetscInt newp = fStartNew + (fMax - fStart)*2 + (c - cStart)*4 + r;
3214 PetscInt coneNew[2], supportNew[2];
3215
3216 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[r] - fStart);
3217 coneNew[1] = vStartNew + (vEnd - vStart) + (fMax - fStart) + (c - cStart);
3218 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3218,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3219#if defined(PETSC_USE_DEBUG1)
3220 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3220,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3221 for (p = 0; p < 2; ++p) {
3222 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),3222,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
3223 }
3224#endif
3225 supportNew[0] = (c - cStart)*4 + r;
3226 supportNew[1] = (c - cStart)*4 + (r+1)%4;
3227 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3227,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3228#if defined(PETSC_USE_DEBUG1)
3229 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3229,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3230 for (p = 0; p < 2; ++p) {
3231 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3231,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
3232 }
3233#endif
3234 }
3235 }
3236 /* Hybrid faces have 2 vertices and the same cells */
3237 for (f = fMax; f < fEnd; ++f) {
3238 const PetscInt newp = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*4 + (f - fMax);
3239 const PetscInt *cone, *support;
3240 PetscInt coneNew[2], supportNew[2];
3241 PetscInt size, s, r;
3242
3243 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3243,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3244 coneNew[0] = vStartNew + (cone[0] - vStart);
3245 coneNew[1] = vStartNew + (cone[1] - vStart);
3246 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3246,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3247#if defined(PETSC_USE_DEBUG1)
3248 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3248,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3249 for (p = 0; p < 2; ++p) {
3250 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),3250,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
3251 }
3252#endif
3253 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3253,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3254 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3254,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3255 for (s = 0; s < size; ++s) {
3256 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3256,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3257 for (r = 0; r < 2; ++r) {
3258 if (cone[r+2] == f) break;
3259 }
3260 supportNew[s] = (cMax - cStart)*4 + (support[s] - cMax)*2 + r;
3261 }
3262 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3262,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3263#if defined(PETSC_USE_DEBUG1)
3264 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3264,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3265 for (p = 0; p < size; ++p) {
3266 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3266,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
3267 }
3268#endif
3269 }
3270 /* Cell hybrid faces have 2 vertices and 2 cells */
3271 for (c = cMax; c < cEnd; ++c) {
3272 const PetscInt newp = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*4 + (fEnd - fMax) + (c - cMax);
3273 const PetscInt *cone;
3274 PetscInt coneNew[2], supportNew[2];
3275
3276 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3276,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3277 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[0] - fStart);
3278 coneNew[1] = vStartNew + (vEnd - vStart) + (cone[1] - fStart);
3279 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3279,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3280#if defined(PETSC_USE_DEBUG1)
3281 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3281,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3282 for (p = 0; p < 2; ++p) {
3283 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),3283,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
3284 }
3285#endif
3286 supportNew[0] = (cMax - cStart)*4 + (c - cMax)*2 + 0;
3287 supportNew[1] = (cMax - cStart)*4 + (c - cMax)*2 + 1;
3288 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3288,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3289#if defined(PETSC_USE_DEBUG1)
3290 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3290,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3291 for (p = 0; p < 2; ++p) {
3292 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3292,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
3293 }
3294#endif
3295 }
3296 /* Old vertices have identical supports */
3297 for (v = vStart; v < vEnd; ++v) {
3298 const PetscInt newp = vStartNew + (v - vStart);
3299 const PetscInt *support, *cone;
3300 PetscInt size, s;
3301
3302 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3302,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3303 ierr = DMPlexGetSupport(dm, v, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3303,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3304 for (s = 0; s < size; ++s) {
3305 if (support[s] >= fMax) {
3306 supportRef[s] = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*4 + (support[s] - fMax);
3307 } else {
3308 PetscInt r = 0;
3309
3310 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3310,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3311 if (cone[1] == v) r = 1;
3312 supportRef[s] = fStartNew + (support[s] - fStart)*2 + r;
3313 }
3314 }
3315 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3315,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3316#if defined(PETSC_USE_DEBUG1)
3317 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),3317,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
3318 for (p = 0; p < size; ++p) {
3319 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3319,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
3320 }
3321#endif
3322 }
3323 /* Face vertices have 2 + cells supports */
3324 for (f = fStart; f < fMax; ++f) {
3325 const PetscInt newp = vStartNew + (vEnd - vStart) + (f - fStart);
3326 const PetscInt *cone, *support;
3327 PetscInt size, s;
3328
3329 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3329,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3330 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3330,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3331 supportRef[0] = fStartNew + (f - fStart)*2 + 0;
3332 supportRef[1] = fStartNew + (f - fStart)*2 + 1;
3333 for (s = 0; s < size; ++s) {
3334 PetscInt r = 0;
3335
3336 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3336,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3337 if (support[s] >= cMax) {
3338 supportRef[2+s] = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*4 + (fEnd - fMax) + (support[s] - cMax);
3339 } else {
3340 if (cone[1] == f) r = 1;
3341 else if (cone[2] == f) r = 2;
3342 else if (cone[3] == f) r = 3;
3343 supportRef[2+s] = fStartNew + (fMax - fStart)*2 + (support[s] - cStart)*4 + r;
3344 }
3345 }
3346 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3346,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3347#if defined(PETSC_USE_DEBUG1)
3348 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),3348,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
3349 for (p = 0; p < 2+size; ++p) {
3350 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3350,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
3351 }
3352#endif
3353 }
3354 /* Cell vertices have 4 supports */
3355 for (c = cStart; c < cMax; ++c) {
3356 const PetscInt newp = vStartNew + (vEnd - vStart) + (fMax - fStart) + (c - cStart);
3357 PetscInt supportNew[4];
3358
3359 for (r = 0; r < 4; ++r) {
3360 supportNew[r] = fStartNew + (fMax - fStart)*2 + (c - cStart)*4 + r;
3361 }
3362 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3362,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3363 }
3364 ierr = PetscFree(supportRef)((*PetscTrFree)((void*)(supportRef),3364,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((supportRef) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3364,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3365 break;
3366 case REFINER_SIMPLEX_3D:
3367 /* All cells have 4 faces: Tet face order is prescribed in DMPlexGetFaces_Internal() */
3368 ierr = DMPlexGetRawFaces_Internal(dm, 3, 4, cellInd, NULL((void*)0), NULL((void*)0), &faces);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3368,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3369 for (c = cStart; c < cEnd; ++c) {
3370 const PetscInt newp = cStartNew + (c - cStart)*8;
3371 const PetscInt *cone, *ornt;
3372 PetscInt coneNew[4], orntNew[4];
3373
3374 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3374,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3375 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3375,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3376 /* A tetrahedron: {0, a, c, d} */
3377 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + GetTriSubface_Static(ornt[0], 0); /* A */
3378 orntNew[0] = ornt[0];
3379 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + GetTriSubface_Static(ornt[1], 0); /* A */
3380 orntNew[1] = ornt[1];
3381 coneNew[2] = fStartNew + (cone[2] - fStart)*4 + GetTriSubface_Static(ornt[2], 0); /* A */
3382 orntNew[2] = ornt[2];
3383 coneNew[3] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 0;
3384 orntNew[3] = 0;
3385 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3385,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3386 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3386,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3387#if defined(PETSC_USE_DEBUG1)
3388 if ((newp+0 < cStartNew) || (newp+0 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+0, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3388,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+0,cStartNew,cEndNew);
3389 for (p = 0; p < 4; ++p) {
3390 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3390,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
3391 }
3392#endif
3393 /* B tetrahedron: {a, 1, b, e} */
3394 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + GetTriSubface_Static(ornt[0], 1); /* B */
3395 orntNew[0] = ornt[0];
3396 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + GetTriSubface_Static(ornt[1], 2); /* C */
3397 orntNew[1] = ornt[1];
3398 coneNew[2] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 1;
3399 orntNew[2] = 0;
3400 coneNew[3] = fStartNew + (cone[3] - fStart)*4 + GetTriSubface_Static(ornt[3], 1); /* B */
3401 orntNew[3] = ornt[3];
3402 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3402,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3403 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3403,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3404#if defined(PETSC_USE_DEBUG1)
3405 if ((newp+1 < cStartNew) || (newp+1 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+1, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3405,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+1,cStartNew,cEndNew);
3406 for (p = 0; p < 4; ++p) {
3407 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3407,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
3408 }
3409#endif
3410 /* C tetrahedron: {c, b, 2, f} */
3411 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + GetTriSubface_Static(ornt[0], 2); /* C */
3412 orntNew[0] = ornt[0];
3413 coneNew[1] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 2;
3414 orntNew[1] = 0;
3415 coneNew[2] = fStartNew + (cone[2] - fStart)*4 + GetTriSubface_Static(ornt[2], 1); /* B */
3416 orntNew[2] = ornt[2];
3417 coneNew[3] = fStartNew + (cone[3] - fStart)*4 + GetTriSubface_Static(ornt[3], 0); /* A */
3418 orntNew[3] = ornt[3];
3419 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3419,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3420 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3420,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3421#if defined(PETSC_USE_DEBUG1)
3422 if ((newp+2 < cStartNew) || (newp+2 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+2, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3422,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+2,cStartNew,cEndNew);
3423 for (p = 0; p < 4; ++p) {
3424 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3424,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
3425 }
3426#endif
3427 /* D tetrahedron: {d, e, f, 3} */
3428 coneNew[0] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 3;
3429 orntNew[0] = 0;
3430 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + GetTriSubface_Static(ornt[1], 1); /* B */
3431 orntNew[1] = ornt[1];
3432 coneNew[2] = fStartNew + (cone[2] - fStart)*4 + GetTriSubface_Static(ornt[2], 2); /* C */
3433 orntNew[2] = ornt[2];
3434 coneNew[3] = fStartNew + (cone[3] - fStart)*4 + GetTriSubface_Static(ornt[3], 2); /* C */
3435 orntNew[3] = ornt[3];
3436 ierr = DMPlexSetCone(rdm, newp+3, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3436,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3437 ierr = DMPlexSetConeOrientation(rdm, newp+3, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3437,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3438#if defined(PETSC_USE_DEBUG1)
3439 if ((newp+3 < cStartNew) || (newp+3 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+3, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3439,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+3,cStartNew,cEndNew);
3440 for (p = 0; p < 4; ++p) {
3441 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3441,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
3442 }
3443#endif
3444 /* A' tetrahedron: {c, d, a, f} */
3445 coneNew[0] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 0;
3446 orntNew[0] = -3;
3447 coneNew[1] = fStartNew + (cone[2] - fStart)*4 + 3;
3448 orntNew[1] = ornt[2] < 0 ? -(GetTriMidEdge_Static(ornt[2], 0)+1) : GetTriMidEdge_Static(ornt[2], 0);
3449 coneNew[2] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 5;
3450 orntNew[2] = 0;
3451 coneNew[3] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 4;
3452 orntNew[3] = 2;
3453 ierr = DMPlexSetCone(rdm, newp+4, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3453,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3454 ierr = DMPlexSetConeOrientation(rdm, newp+4, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3454,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3455#if defined(PETSC_USE_DEBUG1)
3456 if ((newp+4 < cStartNew) || (newp+4 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+4, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3456,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+4,cStartNew,cEndNew);
3457 for (p = 0; p < 4; ++p) {
3458 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3458,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
3459 }
3460#endif
3461 /* B' tetrahedron: {e, b, a, f} */
3462 coneNew[0] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 1;
3463 orntNew[0] = -2;
3464 coneNew[1] = fStartNew + (cone[3] - fStart)*4 + 3;
3465 orntNew[1] = ornt[3] < 0 ? -(GetTriMidEdge_Static(ornt[3], 1)+1) : GetTriMidEdge_Static(ornt[3], 1);
3466 coneNew[2] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 6;
3467 orntNew[2] = 0;
3468 coneNew[3] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 7;
3469 orntNew[3] = 0;
3470 ierr = DMPlexSetCone(rdm, newp+5, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3470,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3471 ierr = DMPlexSetConeOrientation(rdm, newp+5, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3471,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3472#if defined(PETSC_USE_DEBUG1)
3473 if ((newp+5 < cStartNew) || (newp+5 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+5, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3473,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+5,cStartNew,cEndNew);
3474 for (p = 0; p < 4; ++p) {
3475 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3475,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
3476 }
3477#endif
3478 /* C' tetrahedron: {f, a, c, b} */
3479 coneNew[0] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 5;
3480 orntNew[0] = -2;
3481 coneNew[1] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 7;
3482 orntNew[1] = -2;
3483 coneNew[2] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 2;
3484 orntNew[2] = -1;
3485 coneNew[3] = fStartNew + (cone[0] - fStart)*4 + 3;
3486 orntNew[3] = ornt[0] < 0 ? -(GetTriMidEdge_Static(ornt[0], 2)+1) : GetTriMidEdge_Static(ornt[0], 2);
3487 ierr = DMPlexSetCone(rdm, newp+6, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3487,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3488 ierr = DMPlexSetConeOrientation(rdm, newp+6, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3488,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3489#if defined(PETSC_USE_DEBUG1)
3490 if ((newp+6 < cStartNew) || (newp+6 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+6, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3490,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+6,cStartNew,cEndNew);
3491 for (p = 0; p < 4; ++p) {
3492 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3492,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
3493 }
3494#endif
3495 /* D' tetrahedron: {f, a, e, d} */
3496 coneNew[0] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 6;
3497 orntNew[0] = -2;
3498 coneNew[1] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 4;
3499 orntNew[1] = -1;
3500 coneNew[2] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 3;
3501 orntNew[2] = -2;
3502 coneNew[3] = fStartNew + (cone[1] - fStart)*4 + 3;
3503 orntNew[3] = ornt[1] < 0 ? -(GetTriMidEdge_Static(ornt[1], 1)+1) : GetTriMidEdge_Static(ornt[1], 1);
3504 ierr = DMPlexSetCone(rdm, newp+7, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3504,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3505 ierr = DMPlexSetConeOrientation(rdm, newp+7, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3505,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3506#if defined(PETSC_USE_DEBUG1)
3507 if ((newp+7 < cStartNew) || (newp+7 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+7, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3507,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+7,cStartNew,cEndNew);
3508 for (p = 0; p < 4; ++p) {
3509 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3509,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
3510 }
3511#endif
3512 }
3513 /* Split faces have 3 edges and the same cells as the parent */
3514 ierr = DMPlexGetMaxSizes(dm, NULL((void*)0), &maxSupportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3514,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3515 ierr = PetscMalloc1(2 + maxSupportSize*3, &supportRef)PetscMallocA(1,PETSC_FALSE,3515,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(2 + maxSupportSize*3)*sizeof(**(&supportRef)),(
&supportRef));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3515,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3516 for (f = fStart; f < fEnd; ++f) {
3517 const PetscInt newp = fStartNew + (f - fStart)*4;
3518 const PetscInt *cone, *ornt, *support;
3519 PetscInt coneNew[3], orntNew[3], coneSize, supportSize, s;
3520
3521 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3521,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3522 ierr = DMPlexGetConeOrientation(dm, f, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3522,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3523 /* A triangle */
3524 coneNew[0] = eStartNew + (cone[0] - eStart)*2 + (ornt[0] < 0 ? 1 : 0);
3525 orntNew[0] = ornt[0];
3526 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + 2;
3527 orntNew[1] = -2;
3528 coneNew[2] = eStartNew + (cone[2] - eStart)*2 + (ornt[2] < 0 ? 0 : 1);
3529 orntNew[2] = ornt[2];
3530 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3530,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3531 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3531,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3532#if defined(PETSC_USE_DEBUG1)
3533 if ((newp+0 < fStartNew) || (newp+0 >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+0, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3533,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+0,fStartNew,fEndNew);
3534 for (p = 0; p < 3; ++p) {
3535 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3535,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
3536 }
3537#endif
3538 /* B triangle */
3539 coneNew[0] = eStartNew + (cone[0] - eStart)*2 + (ornt[0] < 0 ? 0 : 1);
3540 orntNew[0] = ornt[0];
3541 coneNew[1] = eStartNew + (cone[1] - eStart)*2 + (ornt[1] < 0 ? 1 : 0);
3542 orntNew[1] = ornt[1];
3543 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + 0;
3544 orntNew[2] = -2;
3545 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3545,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3546 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3546,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3547#if defined(PETSC_USE_DEBUG1)
3548 if ((newp+1 < fStartNew) || (newp+1 >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+1, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3548,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+1,fStartNew,fEndNew);
3549 for (p = 0; p < 3; ++p) {
3550 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3550,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
3551 }
3552#endif
3553 /* C triangle */
3554 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + 1;
3555 orntNew[0] = -2;
3556 coneNew[1] = eStartNew + (cone[1] - eStart)*2 + (ornt[1] < 0 ? 0 : 1);
3557 orntNew[1] = ornt[1];
3558 coneNew[2] = eStartNew + (cone[2] - eStart)*2 + (ornt[2] < 0 ? 1 : 0);
3559 orntNew[2] = ornt[2];
3560 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3560,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3561 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3561,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3562#if defined(PETSC_USE_DEBUG1)
3563 if ((newp+2 < fStartNew) || (newp+2 >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+2, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3563,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+2,fStartNew,fEndNew);
3564 for (p = 0; p < 3; ++p) {
3565 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3565,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
3566 }
3567#endif
3568 /* D triangle */
3569 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + 0;
3570 orntNew[0] = 0;
3571 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + 1;
3572 orntNew[1] = 0;
3573 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + 2;
3574 orntNew[2] = 0;
3575 ierr = DMPlexSetCone(rdm, newp+3, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3575,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3576 ierr = DMPlexSetConeOrientation(rdm, newp+3, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3576,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3577#if defined(PETSC_USE_DEBUG1)
3578 if ((newp+3 < fStartNew) || (newp+3 >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+3, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3578,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+3,fStartNew,fEndNew);
3579 for (p = 0; p < 3; ++p) {
3580 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3580,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
3581 }
3582#endif
3583 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3583,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3584 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3584,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3585 for (r = 0; r < 4; ++r) {
3586 for (s = 0; s < supportSize; ++s) {
3587 PetscInt subf;
3588 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3588,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3589 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3589,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3590 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3590,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3591 for (c = 0; c < coneSize; ++c) {
3592 if (cone[c] == f) break;
3593 }
3594 subf = GetTriSubfaceInverse_Static(ornt[c], r);
3595 supportRef[s] = cStartNew + (support[s] - cStart)*8 + (r==3 ? (c+2)%4 + 4 : faces[c*3+subf]);
3596 }
3597 ierr = DMPlexSetSupport(rdm, newp+r, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3597,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3598#if defined(PETSC_USE_DEBUG1)
3599 if ((newp+r < fStartNew) || (newp+r >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+r, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3599,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+r,fStartNew,fEndNew);
3600 for (p = 0; p < supportSize; ++p) {
3601 if ((supportRef[p] < cStartNew) || (supportRef[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportRef[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3601,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportRef
[p],cStartNew,cEndNew);
3602 }
3603#endif
3604 }
3605 }
3606 /* Interior faces have 3 edges and 2 cells */
3607 for (c = cStart; c < cEnd; ++c) {
3608 PetscInt newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8;
3609 const PetscInt *cone, *ornt;
3610 PetscInt coneNew[3], orntNew[3];
3611 PetscInt supportNew[2];
3612
3613 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3613,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3614 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3614,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3615 /* Face A: {c, a, d} */
3616 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[0] - fStart)*3 + GetTriMidEdge_Static(ornt[0], 2);
3617 orntNew[0] = ornt[0] < 0 ? -2 : 0;
3618 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (cone[1] - fStart)*3 + GetTriMidEdge_Static(ornt[1], 2);
3619 orntNew[1] = ornt[1] < 0 ? -2 : 0;
3620 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (cone[2] - fStart)*3 + GetTriMidEdge_Static(ornt[2], 2);
3621 orntNew[2] = ornt[2] < 0 ? -2 : 0;
3622 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3622,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3623 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3623,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3624#if defined(PETSC_USE_DEBUG1)
3625 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3625,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3626 for (p = 0; p < 3; ++p) {
3627 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3627,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
3628 }
3629#endif
3630 supportNew[0] = (c - cStart)*8 + 0;
3631 supportNew[1] = (c - cStart)*8 + 0+4;
3632 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3632,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3633#if defined(PETSC_USE_DEBUG1)
3634 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3634,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3635 for (p = 0; p < 2; ++p) {
3636 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3636,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
3637 }
3638#endif
3639 ++newp;
3640 /* Face B: {a, b, e} */
3641 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[0] - fStart)*3 + GetTriMidEdge_Static(ornt[0], 0);
3642 orntNew[0] = ornt[0] < 0 ? -2 : 0;
3643 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (cone[3] - fStart)*3 + GetTriMidEdge_Static(ornt[3], 0);
3644 orntNew[1] = ornt[3] < 0 ? -2 : 0;
3645 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (cone[1] - fStart)*3 + GetTriMidEdge_Static(ornt[1], 1);
3646 orntNew[2] = ornt[1] < 0 ? -2 : 0;
3647 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3647,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3648 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3648,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3649#if defined(PETSC_USE_DEBUG1)
3650 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3650,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3651 for (p = 0; p < 3; ++p) {
3652 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3652,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
3653 }
3654#endif
3655 supportNew[0] = (c - cStart)*8 + 1;
3656 supportNew[1] = (c - cStart)*8 + 1+4;
3657 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3657,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3658#if defined(PETSC_USE_DEBUG1)
3659 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3659,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3660 for (p = 0; p < 2; ++p) {
3661 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3661,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
3662 }
3663#endif
3664 ++newp;
3665 /* Face C: {c, f, b} */
3666 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[2] - fStart)*3 + GetTriMidEdge_Static(ornt[2], 0);
3667 orntNew[0] = ornt[2] < 0 ? -2 : 0;
3668 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (cone[3] - fStart)*3 + GetTriMidEdge_Static(ornt[3], 2);
3669 orntNew[1] = ornt[3] < 0 ? -2 : 0;
3670 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (cone[0] - fStart)*3 + GetTriMidEdge_Static(ornt[0], 1);
3671 orntNew[2] = ornt[0] < 0 ? -2 : 0;
3672 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3672,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3673 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3673,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3674#if defined(PETSC_USE_DEBUG1)
3675 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3675,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3676 for (p = 0; p < 3; ++p) {
3677 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3677,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
3678 }
3679#endif
3680 supportNew[0] = (c - cStart)*8 + 2;
3681 supportNew[1] = (c - cStart)*8 + 2+4;
3682 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3682,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3683#if defined(PETSC_USE_DEBUG1)
3684 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3684,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3685 for (p = 0; p < 2; ++p) {
3686 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3686,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
3687 }
3688#endif
3689 ++newp;
3690 /* Face D: {d, e, f} */
3691 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[1] - fStart)*3 + GetTriMidEdge_Static(ornt[1], 0);
3692 orntNew[0] = ornt[1] < 0 ? -2 : 0;
3693 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (cone[3] - fStart)*3 + GetTriMidEdge_Static(ornt[3], 1);
3694 orntNew[1] = ornt[3] < 0 ? -2 : 0;
3695 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (cone[2] - fStart)*3 + GetTriMidEdge_Static(ornt[2], 1);
3696 orntNew[2] = ornt[2] < 0 ? -2 : 0;
3697 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3697,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3698 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3698,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3699#if defined(PETSC_USE_DEBUG1)
3700 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3700,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3701 for (p = 0; p < 3; ++p) {
3702 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3702,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
3703 }
3704#endif
3705 supportNew[0] = (c - cStart)*8 + 3;
3706 supportNew[1] = (c - cStart)*8 + 3+4;
3707 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3707,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3708#if defined(PETSC_USE_DEBUG1)
3709 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3709,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3710 for (p = 0; p < 2; ++p) {
3711 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3711,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
3712 }
3713#endif
3714 ++newp;
3715 /* Face E: {d, f, a} */
3716 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[2] - fStart)*3 + GetTriMidEdge_Static(ornt[2], 1);
3717 orntNew[0] = ornt[2] < 0 ? 0 : -2;
3718 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart);
3719 orntNew[1] = -2;
3720 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (cone[1] - fStart)*3 + GetTriMidEdge_Static(ornt[1], 2);
3721 orntNew[2] = ornt[1] < 0 ? -2 : 0;
3722 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3722,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3723 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3723,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3724#if defined(PETSC_USE_DEBUG1)
3725 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3725,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3726 for (p = 0; p < 3; ++p) {
3727 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3727,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
3728 }
3729#endif
3730 supportNew[0] = (c - cStart)*8 + 0+4;
3731 supportNew[1] = (c - cStart)*8 + 3+4;
3732 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3732,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3733#if defined(PETSC_USE_DEBUG1)
3734 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3734,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3735 for (p = 0; p < 2; ++p) {
3736 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3736,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
3737 }
3738#endif
3739 ++newp;
3740 /* Face F: {c, a, f} */
3741 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[0] - fStart)*3 + GetTriMidEdge_Static(ornt[0], 2);
3742 orntNew[0] = ornt[0] < 0 ? -2 : 0;
3743 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart);
3744 orntNew[1] = 0;
3745 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (cone[2] - fStart)*3 + GetTriMidEdge_Static(ornt[2], 0);
3746 orntNew[2] = ornt[2] < 0 ? 0 : -2;
3747 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3747,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3748 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3748,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3749#if defined(PETSC_USE_DEBUG1)
3750 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3750,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3751 for (p = 0; p < 3; ++p) {
3752 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3752,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
3753 }
3754#endif
3755 supportNew[0] = (c - cStart)*8 + 0+4;
3756 supportNew[1] = (c - cStart)*8 + 2+4;
3757 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3757,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3758#if defined(PETSC_USE_DEBUG1)
3759 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3759,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3760 for (p = 0; p < 2; ++p) {
3761 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3761,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
3762 }
3763#endif
3764 ++newp;
3765 /* Face G: {e, a, f} */
3766 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[1] - fStart)*3 + GetTriMidEdge_Static(ornt[1], 1);
3767 orntNew[0] = ornt[1] < 0 ? -2 : 0;
3768 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart);
3769 orntNew[1] = 0;
3770 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (cone[3] - fStart)*3 + GetTriMidEdge_Static(ornt[3], 1);
3771 orntNew[2] = ornt[3] < 0 ? 0 : -2;
3772 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3772,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3773 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3773,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3774#if defined(PETSC_USE_DEBUG1)
3775 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3775,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3776 for (p = 0; p < 3; ++p) {
3777 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3777,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
3778 }
3779#endif
3780 supportNew[0] = (c - cStart)*8 + 1+4;
3781 supportNew[1] = (c - cStart)*8 + 3+4;
3782 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3782,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3783#if defined(PETSC_USE_DEBUG1)
3784 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3784,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3785 for (p = 0; p < 2; ++p) {
3786 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3786,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
3787 }
3788#endif
3789 ++newp;
3790 /* Face H: {a, b, f} */
3791 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[0] - fStart)*3 + GetTriMidEdge_Static(ornt[0], 0);
3792 orntNew[0] = ornt[0] < 0 ? -2 : 0;
3793 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (cone[3] - fStart)*3 + GetTriMidEdge_Static(ornt[3], 2);
3794 orntNew[1] = ornt[3] < 0 ? 0 : -2;
3795 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart);
3796 orntNew[2] = -2;
3797 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3797,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3798 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3798,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3799#if defined(PETSC_USE_DEBUG1)
3800 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3800,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3801 for (p = 0; p < 3; ++p) {
3802 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3802,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
3803 }
3804#endif
3805 supportNew[0] = (c - cStart)*8 + 1+4;
3806 supportNew[1] = (c - cStart)*8 + 2+4;
3807 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3807,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3808#if defined(PETSC_USE_DEBUG1)
3809 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3809,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
3810 for (p = 0; p < 2; ++p) {
3811 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),3811,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
3812 }
3813#endif
3814 ++newp;
3815 }
3816 /* Split Edges have 2 vertices and the same faces as the parent */
3817 for (e = eStart; e < eEnd; ++e) {
3818 const PetscInt newv = vStartNew + (vEnd - vStart) + (e - eStart);
3819
3820 for (r = 0; r < 2; ++r) {
3821 const PetscInt newp = eStartNew + (e - eStart)*2 + r;
3822 const PetscInt *cone, *ornt, *support;
3823 PetscInt coneNew[2], coneSize, c, supportSize, s;
3824
3825 ierr = DMPlexGetCone(dm, e, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3825,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3826 coneNew[0] = vStartNew + (cone[0] - vStart);
3827 coneNew[1] = vStartNew + (cone[1] - vStart);
3828 coneNew[(r+1)%2] = newv;
3829 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3829,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3830#if defined(PETSC_USE_DEBUG1)
3831 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3831,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
3832 for (p = 0; p < 2; ++p) {
3833 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),3833,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
3834 }
3835#endif
3836 ierr = DMPlexGetSupportSize(dm, e, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3836,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3837 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3837,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3838 for (s = 0; s < supportSize; ++s) {
3839 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3839,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3840 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3840,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3841 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3841,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3842 for (c = 0; c < coneSize; ++c) {
3843 if (cone[c] == e) break;
3844 }
3845 supportRef[s] = fStartNew + (support[s] - fStart)*4 + (c + (ornt[c] < 0 ? 1-r : r))%3;
3846 }
3847 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3847,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3848#if defined(PETSC_USE_DEBUG1)
3849 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3849,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
3850 for (p = 0; p < supportSize; ++p) {
3851 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3851,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
3852 }
3853#endif
3854 }
3855 }
3856 /* Face edges have 2 vertices and 2+cells*(1/2) faces */
3857 for (f = fStart; f < fEnd; ++f) {
3858 const PetscInt *cone, *ornt, *support;
3859 PetscInt coneSize, supportSize, s;
3860
3861 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3861,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3862 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3862,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3863 for (r = 0; r < 3; ++r) {
3864 const PetscInt newp = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + r;
3865 PetscInt coneNew[2], intFaces = 0, er, eint[4] = {1, 0, 2, 0};
3866 PetscInt fint[24] = { 1, 7, -1, -1, 0, 5,
3867 -1, -1, 1, 6, 0, 4,
3868 2, 5, 3, 4, -1, -1,
3869 -1, -1, 3, 6, 2, 7};
3870
3871 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3871,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3872 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[(r+0)%3] - eStart);
3873 coneNew[1] = vStartNew + (vEnd - vStart) + (cone[(r+1)%3] - eStart);
3874 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3874,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3875#if defined(PETSC_USE_DEBUG1)
3876 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3876,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
3877 for (p = 0; p < 2; ++p) {
3878 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),3878,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
3879 }
3880#endif
3881 supportRef[0] = fStartNew + (f - fStart)*4 + (r+1)%3;
3882 supportRef[1] = fStartNew + (f - fStart)*4 + 3;
3883 for (s = 0; s < supportSize; ++s) {
3884 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3884,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3885 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3885,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3886 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3886,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3887 for (c = 0; c < coneSize; ++c) {if (cone[c] == f) break;}
3888 /* Here we want to determine whether edge newp contains a vertex which is part of the cross-tet edge */
3889 er = GetTriMidEdgeInverse_Static(ornt[c], r);
3890 if (er == eint[c]) {
3891 supportRef[2+intFaces++] = fStartNew + (fEnd - fStart)*4 + (support[s] - cStart)*8 + (c + 2)%4;
3892 } else {
3893 supportRef[2+intFaces++] = fStartNew + (fEnd - fStart)*4 + (support[s] - cStart)*8 + fint[(c*3 + er)*2 + 0];
3894 supportRef[2+intFaces++] = fStartNew + (fEnd - fStart)*4 + (support[s] - cStart)*8 + fint[(c*3 + er)*2 + 1];
3895 }
3896 }
3897 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3897,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3898#if defined(PETSC_USE_DEBUG1)
3899 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3899,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
3900 for (p = 0; p < intFaces; ++p) {
3901 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3901,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
3902 }
3903#endif
3904 }
3905 }
3906 /* Interior edges have 2 vertices and 4 faces */
3907 for (c = cStart; c < cEnd; ++c) {
3908 const PetscInt newp = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart);
3909 const PetscInt *cone, *ornt, *fcone;
3910 PetscInt coneNew[2], supportNew[4], find;
3911
3912 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3912,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3913 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3913,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3914 ierr = DMPlexGetCone(dm, cone[0], &fcone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3914,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3915 find = GetTriEdge_Static(ornt[0], 0);
3916 coneNew[0] = vStartNew + (vEnd - vStart) + (fcone[find] - eStart);
3917 ierr = DMPlexGetCone(dm, cone[2], &fcone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3917,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3918 find = GetTriEdge_Static(ornt[2], 1);
3919 coneNew[1] = vStartNew + (vEnd - vStart) + (fcone[find] - eStart);
3920 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3920,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3921#if defined(PETSC_USE_DEBUG1)
3922 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3922,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
3923 for (p = 0; p < 2; ++p) {
3924 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),3924,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
3925 }
3926#endif
3927 supportNew[0] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 4;
3928 supportNew[1] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 5;
3929 supportNew[2] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 6;
3930 supportNew[3] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*8 + 7;
3931 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3931,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3932#if defined(PETSC_USE_DEBUG1)
3933 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3933,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
3934 for (p = 0; p < 4; ++p) {
3935 if ((supportNew[p] < fStartNew) || (supportNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),3935,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportNew
[p],fStartNew,fEndNew);
3936 }
3937#endif
3938 }
3939 /* Old vertices have identical supports */
3940 for (v = vStart; v < vEnd; ++v) {
3941 const PetscInt newp = vStartNew + (v - vStart);
3942 const PetscInt *support, *cone;
3943 PetscInt size, s;
3944
3945 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3945,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3946 ierr = DMPlexGetSupport(dm, v, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3946,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3947 for (s = 0; s < size; ++s) {
3948 PetscInt r = 0;
3949
3950 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3950,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3951 if (cone[1] == v) r = 1;
3952 supportRef[s] = eStartNew + (support[s] - eStart)*2 + r;
3953 }
3954 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3954,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3955#if defined(PETSC_USE_DEBUG1)
3956 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),3956,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
3957 for (p = 0; p < size; ++p) {
3958 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),3958,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
3959 }
3960#endif
3961 }
3962 /* Edge vertices have 2 + face*2 + 0/1 supports */
3963 for (e = eStart; e < eEnd; ++e) {
3964 const PetscInt newp = vStartNew + (vEnd - vStart) + (e - eStart);
3965 const PetscInt *cone, *support;
3966 PetscInt *star = NULL((void*)0), starSize, cellSize = 0, coneSize, size, s;
3967
3968 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3968,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3969 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3969,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3970 supportRef[0] = eStartNew + (e - eStart)*2 + 0;
3971 supportRef[1] = eStartNew + (e - eStart)*2 + 1;
3972 for (s = 0; s < size; ++s) {
3973 PetscInt r = 0;
3974
3975 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3975,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3976 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3976,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3977 for (r = 0; r < coneSize; ++r) {if (cone[r] == e) break;}
3978 supportRef[2+s*2+0] = eStartNew + (eEnd - eStart)*2 + (support[s] - fStart)*3 + (r+0)%3;
3979 supportRef[2+s*2+1] = eStartNew + (eEnd - eStart)*2 + (support[s] - fStart)*3 + (r+2)%3;
3980 }
3981 ierr = DMPlexGetTransitiveClosure(dm, e, PETSC_FALSE, &starSize, &star);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3981,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3982 for (s = 0; s < starSize*2; s += 2) {
3983 const PetscInt *cone, *ornt;
3984 PetscInt e01, e23;
3985
3986 if ((star[s] >= cStart) && (star[s] < cEnd)) {
3987 /* Check edge 0-1 */
3988 ierr = DMPlexGetCone(dm, star[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3988,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3989 ierr = DMPlexGetConeOrientation(dm, star[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3989,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3990 ierr = DMPlexGetCone(dm, cone[0], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3990,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3991 e01 = cone[GetTriEdge_Static(ornt[0], 0)];
3992 /* Check edge 2-3 */
3993 ierr = DMPlexGetCone(dm, star[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3993,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3994 ierr = DMPlexGetConeOrientation(dm, star[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3994,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3995 ierr = DMPlexGetCone(dm, cone[2], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),3995,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
3996 e23 = cone[GetTriEdge_Static(ornt[2], 1)];
3997 if ((e01 == e) || (e23 == e)) {supportRef[2+size*2+cellSize++] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (star[s] - cStart);}
3998 }
3999 }
4000 ierr = DMPlexRestoreTransitiveClosure(dm, e, PETSC_FALSE, &starSize, &star);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4000,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4001 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4001,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4002#if defined(PETSC_USE_DEBUG1)
4003 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),4003,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
4004 for (p = 0; p < 2+size*2+cellSize; ++p) {
4005 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),4005,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
4006 }
4007#endif
4008 }
4009 ierr = PetscFree(supportRef)((*PetscTrFree)((void*)(supportRef),4009,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((supportRef) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4009,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4010 ierr = DMPlexRestoreFaces_Internal(dm, 3, cStart, NULL((void*)0), NULL((void*)0), &faces);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4010,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4011 break;
4012 case REFINER_HYBRID_SIMPLEX_3D:
4013 ierr = DMPlexGetHybridBounds(rdm, &cMaxNew, &fMaxNew, &eMaxNew, NULL((void*)0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4013,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4014 /* Interior cells have 4 faces: Tet face order is prescribed in DMPlexGetFaces_Internal() */
4015 ierr = DMPlexGetRawFaces_Internal(dm, 3, 4, cellInd, NULL((void*)0), NULL((void*)0), &faces);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4015,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4016 for (c = cStart; c < cMax; ++c) {
4017 const PetscInt newp = cStartNew + (c - cStart)*8;
4018 const PetscInt *cone, *ornt;
4019 PetscInt coneNew[4], orntNew[4];
4020
4021 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4021,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4022 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4022,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4023 /* A tetrahedron: {0, a, c, d} */
4024 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + GetTriSubface_Static(ornt[0], 0); /* A */
4025 orntNew[0] = ornt[0];
4026 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + GetTriSubface_Static(ornt[1], 0); /* A */
4027 orntNew[1] = ornt[1];
4028 coneNew[2] = fStartNew + (cone[2] - fStart)*4 + GetTriSubface_Static(ornt[2], 0); /* A */
4029 orntNew[2] = ornt[2];
4030 coneNew[3] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 0;
4031 orntNew[3] = 0;
4032 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4032,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4033 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4033,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4034#if defined(PETSC_USE_DEBUG1)
4035 if ((newp+0 < cStartNew) || (newp+0 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+0, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4035,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+0,cStartNew,cMaxNew);
4036 for (p = 0; p < 4; ++p) {
4037 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4037,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
4038 }
4039#endif
4040 /* B tetrahedron: {a, 1, b, e} */
4041 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + GetTriSubface_Static(ornt[0], 1); /* B */
4042 orntNew[0] = ornt[0];
4043 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + GetTriSubface_Static(ornt[1], 2); /* C */
4044 orntNew[1] = ornt[1];
4045 coneNew[2] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 1;
4046 orntNew[2] = 0;
4047 coneNew[3] = fStartNew + (cone[3] - fStart)*4 + GetTriSubface_Static(ornt[3], 1); /* B */
4048 orntNew[3] = ornt[3];
4049 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4049,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4050 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4050,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4051#if defined(PETSC_USE_DEBUG1)
4052 if ((newp+1 < cStartNew) || (newp+1 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+1, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4052,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+1,cStartNew,cMaxNew);
4053 for (p = 0; p < 4; ++p) {
4054 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4054,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
4055 }
4056#endif
4057 /* C tetrahedron: {c, b, 2, f} */
4058 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + GetTriSubface_Static(ornt[0], 2); /* C */
4059 orntNew[0] = ornt[0];
4060 coneNew[1] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 2;
4061 orntNew[1] = 0;
4062 coneNew[2] = fStartNew + (cone[2] - fStart)*4 + GetTriSubface_Static(ornt[2], 1); /* B */
4063 orntNew[2] = ornt[2];
4064 coneNew[3] = fStartNew + (cone[3] - fStart)*4 + GetTriSubface_Static(ornt[3], 0); /* A */
4065 orntNew[3] = ornt[3];
4066 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4066,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4067 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4067,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4068#if defined(PETSC_USE_DEBUG1)
4069 if ((newp+2 < cStartNew) || (newp+2 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+2, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4069,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+2,cStartNew,cMaxNew);
4070 for (p = 0; p < 4; ++p) {
4071 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4071,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
4072 }
4073#endif
4074 /* D tetrahedron: {d, e, f, 3} */
4075 coneNew[0] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 3;
4076 orntNew[0] = 0;
4077 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + GetTriSubface_Static(ornt[1], 1); /* B */
4078 orntNew[1] = ornt[1];
4079 coneNew[2] = fStartNew + (cone[2] - fStart)*4 + GetTriSubface_Static(ornt[2], 2); /* C */
4080 orntNew[2] = ornt[2];
4081 coneNew[3] = fStartNew + (cone[3] - fStart)*4 + GetTriSubface_Static(ornt[3], 2); /* C */
4082 orntNew[3] = ornt[3];
4083 ierr = DMPlexSetCone(rdm, newp+3, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4083,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4084 ierr = DMPlexSetConeOrientation(rdm, newp+3, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4084,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4085#if defined(PETSC_USE_DEBUG1)
4086 if ((newp+3 < cStartNew) || (newp+3 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+3, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4086,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+3,cStartNew,cMaxNew);
4087 for (p = 0; p < 4; ++p) {
4088 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4088,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
4089 }
4090#endif
4091 /* A' tetrahedron: {d, a, c, f} */
4092 coneNew[0] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 0;
4093 orntNew[0] = -3;
4094 coneNew[1] = fStartNew + (cone[2] - fStart)*4 + 3;
4095 orntNew[1] = ornt[2] < 0 ? -(GetTriMidEdge_Static(ornt[2], 0)+1) : GetTriMidEdge_Static(ornt[2], 0);
4096 coneNew[2] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 5;
4097 orntNew[2] = 0;
4098 coneNew[3] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 4;
4099 orntNew[3] = 2;
4100 ierr = DMPlexSetCone(rdm, newp+4, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4100,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4101 ierr = DMPlexSetConeOrientation(rdm, newp+4, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4101,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4102#if defined(PETSC_USE_DEBUG1)
4103 if ((newp+4 < cStartNew) || (newp+4 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+4, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4103,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+4,cStartNew,cMaxNew);
4104 for (p = 0; p < 4; ++p) {
4105 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4105,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
4106 }
4107#endif
4108 /* B' tetrahedron: {e, b, a, f} */
4109 coneNew[0] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 1;
4110 orntNew[0] = -3;
4111 coneNew[1] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 6;
4112 orntNew[1] = 1;
4113 coneNew[2] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 7;
4114 orntNew[2] = 0;
4115 coneNew[3] = fStartNew + (cone[3] - fStart)*4 + 3;
4116 orntNew[3] = ornt[3] < 0 ? -(GetTriMidEdge_Static(ornt[3], 0)+1) : GetTriMidEdge_Static(ornt[3], 0);
4117 ierr = DMPlexSetCone(rdm, newp+5, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4117,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4118 ierr = DMPlexSetConeOrientation(rdm, newp+5, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4118,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4119#if defined(PETSC_USE_DEBUG1)
4120 if ((newp+5 < cStartNew) || (newp+5 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+5, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4120,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+5,cStartNew,cMaxNew);
4121 for (p = 0; p < 4; ++p) {
4122 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4122,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
4123 }
4124#endif
4125 /* C' tetrahedron: {b, f, c, a} */
4126 coneNew[0] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 2;
4127 orntNew[0] = -3;
4128 coneNew[1] = fStartNew + (cone[0] - fStart)*4 + 3;
4129 orntNew[1] = ornt[0] < 0 ? -(GetTriMidEdge_Static(ornt[0], 2)+1) : GetTriMidEdge_Static(ornt[0], 2);
4130 coneNew[2] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 5;
4131 orntNew[2] = -3;
4132 coneNew[3] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 7;
4133 orntNew[3] = -2;
4134 ierr = DMPlexSetCone(rdm, newp+6, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4134,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4135 ierr = DMPlexSetConeOrientation(rdm, newp+6, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4135,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4136#if defined(PETSC_USE_DEBUG1)
4137 if ((newp+6 < cStartNew) || (newp+6 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+6, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4137,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+6,cStartNew,cMaxNew);
4138 for (p = 0; p < 4; ++p) {
4139 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4139,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
4140 }
4141#endif
4142 /* D' tetrahedron: {f, e, d, a} */
4143 coneNew[0] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 3;
4144 orntNew[0] = -3;
4145 coneNew[1] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 4;
4146 orntNew[1] = -3;
4147 coneNew[2] = fStartNew + (cone[1] - fStart)*4 + 3;
4148 orntNew[2] = ornt[1] < 0 ? -(GetTriMidEdge_Static(ornt[1], 0)+1) : GetTriMidEdge_Static(ornt[1], 0);
4149 coneNew[3] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 6;
4150 orntNew[3] = -3;
4151 ierr = DMPlexSetCone(rdm, newp+7, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4151,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4152 ierr = DMPlexSetConeOrientation(rdm, newp+7, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4152,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4153#if defined(PETSC_USE_DEBUG1)
4154 if ((newp+7 < cStartNew) || (newp+7 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+7, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4154,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+7,cStartNew,cMaxNew);
4155 for (p = 0; p < 4; ++p) {
4156 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4156,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
4157 }
4158#endif
4159 }
4160 /* Hybrid cells have 5 faces */
4161 for (c = cMax; c < cEnd; ++c) {
4162 const PetscInt newp = cStartNew + (cMax - cStart)*8 + (c - cMax)*4;
4163 const PetscInt *cone, *ornt, *fornt;
4164 PetscInt coneNew[5], orntNew[5], o, of, i;
4165
4166 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4166,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4167 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4167,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4168 ierr = DMPlexGetConeOrientation(dm, cone[0], &fornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4168,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4169 o = ornt[0] < 0 ? -1 : 1;
4170 for (r = 0; r < 3; ++r) {
4171 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + GetTriSubface_Static(ornt[0], r);
4172 orntNew[0] = ornt[0];
4173 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + GetTriSubface_Static(ornt[1], r);
4174 orntNew[1] = ornt[1];
4175 of = fornt[GetTriEdge_Static(ornt[0], r)] < 0 ? -1 : 1;
4176 i = GetTriEdgeInverse_Static(ornt[0], r) + 2;
4177 coneNew[i] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (cone[2+GetTriEdge_Static(ornt[0], r)] - fMax)*2 + (o*of < 0 ? 1 : 0);
4178 orntNew[i] = 0;
4179 i = GetTriEdgeInverse_Static(ornt[0], (r+1)%3) + 2;
4180 coneNew[i] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (fEnd - fMax)*2 + (c - cMax)*3 + GetTriSubface_Static(ornt[0], r);
4181 orntNew[i] = 0;
4182 of = fornt[GetTriEdge_Static(ornt[0], (r+2)%3)] < 0 ? -1 : 1;
4183 i = GetTriEdgeInverse_Static(ornt[0], (r+2)%3) + 2;
4184 coneNew[i] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (cone[2+GetTriEdge_Static(ornt[0], (r+2)%3)] - fMax)*2 + (o*of < 0 ? 0 : 1);
4185 orntNew[i] = 0;
4186 ierr = DMPlexSetCone(rdm, newp+r, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4186,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4187 ierr = DMPlexSetConeOrientation(rdm, newp+r, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4187,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4188#if defined(PETSC_USE_DEBUG1)
4189 if ((newp+r < cMaxNew) || (newp+r >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid cell [%D, %D)", newp+r, cMaxNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),4189,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid cell [%D, %D)"
,newp+r,cMaxNew,cEndNew);
4190 for (p = 0; p < 2; ++p) {
4191 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4191,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
4192 }
4193 for (p = 2; p < 5; ++p) {
4194 if ((coneNew[p] < fMaxNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", coneNew[p], fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),4194,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,coneNew[p],fMaxNew,fEndNew);
4195 }
4196#endif
4197 }
4198 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + 3;
4199 orntNew[0] = 0;
4200 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + 3;
4201 orntNew[1] = 0;
4202 coneNew[2] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (fEnd - fMax)*2 + (c - cMax)*3 + 1;
4203 orntNew[2] = 0;
4204 coneNew[3] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (fEnd - fMax)*2 + (c - cMax)*3 + 2;
4205 orntNew[3] = 0;
4206 coneNew[4] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (fEnd - fMax)*2 + (c - cMax)*3 + 0;
4207 orntNew[4] = 0;
4208 ierr = DMPlexSetCone(rdm, newp+3, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4208,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4209 ierr = DMPlexSetConeOrientation(rdm, newp+3, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4209,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4210#if defined(PETSC_USE_DEBUG1)
4211 if ((newp+3 < cMaxNew) || (newp+3 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid cell [%D, %D)", newp+3, cMaxNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),4211,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid cell [%D, %D)"
,newp+3,cMaxNew,cEndNew);
4212 for (p = 0; p < 2; ++p) {
4213 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4213,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
4214 }
4215 for (p = 2; p < 5; ++p) {
4216 if ((coneNew[p] < fMaxNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", coneNew[p], fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),4216,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,coneNew[p],fMaxNew,fEndNew);
4217 }
4218#endif
4219 }
4220 /* Split faces have 3 edges and the same cells as the parent */
4221 ierr = DMPlexGetMaxSizes(dm, NULL((void*)0), &maxSupportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4221,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4222 ierr = PetscMalloc1(2 + maxSupportSize*2, &supportRef)PetscMallocA(1,PETSC_FALSE,4222,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(2 + maxSupportSize*2)*sizeof(**(&supportRef)),(
&supportRef));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4222,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4223 for (f = fStart; f < fMax; ++f) {
4224 const PetscInt newp = fStartNew + (f - fStart)*4;
4225 const PetscInt *cone, *ornt, *support;
4226 PetscInt coneNew[3], orntNew[3], coneSize, supportSize, s;
4227
4228 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4228,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4229 ierr = DMPlexGetConeOrientation(dm, f, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4229,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4230 /* A triangle */
4231 coneNew[0] = eStartNew + (cone[0] - eStart)*2 + (ornt[0] < 0 ? 1 : 0);
4232 orntNew[0] = ornt[0];
4233 coneNew[1] = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + 2;
4234 orntNew[1] = -2;
4235 coneNew[2] = eStartNew + (cone[2] - eStart)*2 + (ornt[2] < 0 ? 0 : 1);
4236 orntNew[2] = ornt[2];
4237 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4237,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4238 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4238,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4239#if defined(PETSC_USE_DEBUG1)
4240 if ((newp+0 < fStartNew) || (newp+0 >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+0, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4240,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+0,fStartNew,fMaxNew);
4241 for (p = 0; p < 3; ++p) {
4242 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4242,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
4243 }
4244#endif
4245 /* B triangle */
4246 coneNew[0] = eStartNew + (cone[0] - eStart)*2 + (ornt[0] < 0 ? 0 : 1);
4247 orntNew[0] = ornt[0];
4248 coneNew[1] = eStartNew + (cone[1] - eStart)*2 + (ornt[1] < 0 ? 1 : 0);
4249 orntNew[1] = ornt[1];
4250 coneNew[2] = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + 0;
4251 orntNew[2] = -2;
4252 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4252,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4253 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4253,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4254#if defined(PETSC_USE_DEBUG1)
4255 if ((newp+1 < fStartNew) || (newp+1 >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+1, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4255,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+1,fStartNew,fMaxNew);
4256 for (p = 0; p < 3; ++p) {
4257 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4257,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
4258 }
4259#endif
4260 /* C triangle */
4261 coneNew[0] = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + 1;
4262 orntNew[0] = -2;
4263 coneNew[1] = eStartNew + (cone[1] - eStart)*2 + (ornt[1] < 0 ? 0 : 1);
4264 orntNew[1] = ornt[1];
4265 coneNew[2] = eStartNew + (cone[2] - eStart)*2 + (ornt[2] < 0 ? 1 : 0);
4266 orntNew[2] = ornt[2];
4267 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4267,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4268 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4268,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4269#if defined(PETSC_USE_DEBUG1)
4270 if ((newp+2 < fStartNew) || (newp+2 >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+2, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4270,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+2,fStartNew,fMaxNew);
4271 for (p = 0; p < 3; ++p) {
4272 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4272,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
4273 }
4274#endif
4275 /* D triangle */
4276 coneNew[0] = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + 0;
4277 orntNew[0] = 0;
4278 coneNew[1] = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + 1;
4279 orntNew[1] = 0;
4280 coneNew[2] = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + 2;
4281 orntNew[2] = 0;
4282 ierr = DMPlexSetCone(rdm, newp+3, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4282,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4283 ierr = DMPlexSetConeOrientation(rdm, newp+3, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4283,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4284#if defined(PETSC_USE_DEBUG1)
4285 if ((newp+3 < fStartNew) || (newp+3 >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+3, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4285,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+3,fStartNew,fMaxNew);
4286 for (p = 0; p < 3; ++p) {
4287 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4287,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
4288 }
4289#endif
4290 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4290,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4291 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4291,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4292 for (r = 0; r < 4; ++r) {
4293 for (s = 0; s < supportSize; ++s) {
4294 PetscInt subf;
4295 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4295,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4296 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4296,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4297 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4297,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4298 for (c = 0; c < coneSize; ++c) {
4299 if (cone[c] == f) break;
4300 }
4301 subf = GetTriSubfaceInverse_Static(ornt[c], r);
4302 if (support[s] < cMax) {
4303 supportRef[s] = cStartNew + (support[s] - cStart)*8 + (r==3 ? (c+2)%4 + 4 : faces[c*3+subf]);
4304 } else {
4305 supportRef[s] = cStartNew + (cMax - cStart)*8 + (support[s] - cMax)*4 + (r==3 ? r : subf);
4306 }
4307 }
4308 ierr = DMPlexSetSupport(rdm, newp+r, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4308,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4309#if defined(PETSC_USE_DEBUG1)
4310 if ((newp+r < fStartNew) || (newp+r >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+r, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4310,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+r,fStartNew,fMaxNew);
4311 for (p = 0; p < supportSize; ++p) {
4312 if ((supportRef[p] < cStartNew) || (supportRef[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior or hybrid cell [%D, %D)", supportRef[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),4312,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior or hybrid cell [%D, %D)"
,supportRef[p],cStartNew,cEndNew);
4313 }
4314#endif
4315 }
4316 }
4317 /* Interior cell faces have 3 edges and 2 cells */
4318 for (c = cStart; c < cMax; ++c) {
4319 PetscInt newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*8;
4320 const PetscInt *cone, *ornt;
4321 PetscInt coneNew[3], orntNew[3];
4322 PetscInt supportNew[2];
4323
4324 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4324,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4325 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4325,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4326 /* Face A: {c, a, d} */
4327 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*3 + GetTriMidEdge_Static(ornt[0], 2);
4328 orntNew[0] = ornt[0] < 0 ? -2 : 0;
4329 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*3 + GetTriMidEdge_Static(ornt[1], 2);
4330 orntNew[1] = ornt[1] < 0 ? -2 : 0;
4331 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[2] - fStart)*3 + GetTriMidEdge_Static(ornt[2], 2);
4332 orntNew[2] = ornt[2] < 0 ? -2 : 0;
4333 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4333,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4334 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4334,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4335#if defined(PETSC_USE_DEBUG1)
4336 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4336,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
4337 for (p = 0; p < 3; ++p) {
4338 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4338,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
4339 }
4340#endif
4341 supportNew[0] = (c - cStart)*8 + 0;
4342 supportNew[1] = (c - cStart)*8 + 0+4;
4343 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4343,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4344#if defined(PETSC_USE_DEBUG1)
4345 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4345,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
4346 for (p = 0; p < 2; ++p) {
4347 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4347,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cMaxNew);
4348 }
4349#endif
4350 ++newp;
4351 /* Face B: {a, b, e} */
4352 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*3 + GetTriMidEdge_Static(ornt[0], 0);
4353 orntNew[0] = ornt[0] < 0 ? -2 : 0;
4354 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[3] - fStart)*3 + GetTriMidEdge_Static(ornt[3], 0);
4355 orntNew[1] = ornt[3] < 0 ? -2 : 0;
4356 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*3 + GetTriMidEdge_Static(ornt[1], 1);
4357 orntNew[2] = ornt[1] < 0 ? -2 : 0;
4358 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4358,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4359 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4359,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4360#if defined(PETSC_USE_DEBUG1)
4361 if ((newp+1 < fStartNew) || (newp+1 >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+1, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4361,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+1,fStartNew,fMaxNew);
4362 for (p = 0; p < 3; ++p) {
4363 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4363,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
4364 }
4365#endif
4366 supportNew[0] = (c - cStart)*8 + 1;
4367 supportNew[1] = (c - cStart)*8 + 1+4;
4368 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4368,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4369#if defined(PETSC_USE_DEBUG1)
4370 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4370,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
4371 for (p = 0; p < 2; ++p) {
4372 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4372,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cMaxNew);
4373 }
4374#endif
4375 ++newp;
4376 /* Face C: {c, f, b} */
4377 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[2] - fStart)*3 + GetTriMidEdge_Static(ornt[2], 0);
4378 orntNew[0] = ornt[2] < 0 ? -2 : 0;
4379 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[3] - fStart)*3 + GetTriMidEdge_Static(ornt[3], 2);
4380 orntNew[1] = ornt[3] < 0 ? -2 : 0;
4381 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*3 + GetTriMidEdge_Static(ornt[0], 1);
4382 orntNew[2] = ornt[0] < 0 ? -2 : 0;
4383 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4383,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4384 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4384,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4385#if defined(PETSC_USE_DEBUG1)
4386 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4386,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
4387 for (p = 0; p < 3; ++p) {
4388 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4388,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
4389 }
4390#endif
4391 supportNew[0] = (c - cStart)*8 + 2;
4392 supportNew[1] = (c - cStart)*8 + 2+4;
4393 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4393,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4394#if defined(PETSC_USE_DEBUG1)
4395 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4395,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
4396 for (p = 0; p < 2; ++p) {
4397 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4397,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cMaxNew);
4398 }
4399#endif
4400 ++newp;
4401 /* Face D: {d, e, f} */
4402 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*3 + GetTriMidEdge_Static(ornt[1], 0);
4403 orntNew[0] = ornt[1] < 0 ? -2 : 0;
4404 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[3] - fStart)*3 + GetTriMidEdge_Static(ornt[3], 1);
4405 orntNew[1] = ornt[3] < 0 ? -2 : 0;
4406 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[2] - fStart)*3 + GetTriMidEdge_Static(ornt[2], 1);
4407 orntNew[2] = ornt[2] < 0 ? -2 : 0;
4408 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4408,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4409 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4409,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4410#if defined(PETSC_USE_DEBUG1)
4411 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4411,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
4412 for (p = 0; p < 3; ++p) {
4413 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4413,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
4414 }
4415#endif
4416 supportNew[0] = (c - cStart)*8 + 3;
4417 supportNew[1] = (c - cStart)*8 + 3+4;
4418 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4418,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4419#if defined(PETSC_USE_DEBUG1)
4420 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4420,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
4421 for (p = 0; p < 2; ++p) {
4422 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4422,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cMaxNew);
4423 }
4424#endif
4425 ++newp;
4426 /* Face E: {d, f, a} */
4427 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[2] - fStart)*3 + GetTriMidEdge_Static(ornt[2], 1);
4428 orntNew[0] = ornt[2] < 0 ? 0 : -2;
4429 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart);
4430 orntNew[1] = -2;
4431 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*3 + GetTriMidEdge_Static(ornt[1], 2);
4432 orntNew[2] = ornt[1] < 0 ? -2 : 0;
4433 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4433,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4434 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4434,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4435#if defined(PETSC_USE_DEBUG1)
4436 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4436,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
4437 for (p = 0; p < 3; ++p) {
4438 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4438,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
4439 }
4440#endif
4441 supportNew[0] = (c - cStart)*8 + 0+4;
4442 supportNew[1] = (c - cStart)*8 + 3+4;
4443 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4443,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4444#if defined(PETSC_USE_DEBUG1)
4445 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4445,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
4446 for (p = 0; p < 2; ++p) {
4447 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4447,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cMaxNew);
4448 }
4449#endif
4450 ++newp;
4451 /* Face F: {c, a, f} */
4452 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*3 + GetTriMidEdge_Static(ornt[0], 2);
4453 orntNew[0] = ornt[0] < 0 ? -2 : 0;
4454 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart);
4455 orntNew[1] = 0;
4456 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[2] - fStart)*3 + GetTriMidEdge_Static(ornt[2], 0);
4457 orntNew[2] = ornt[2] < 0 ? 0 : -2;
4458 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4458,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4459 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4459,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4460#if defined(PETSC_USE_DEBUG1)
4461 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4461,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
4462 for (p = 0; p < 3; ++p) {
4463 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4463,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
4464 }
4465#endif
4466 supportNew[0] = (c - cStart)*8 + 0+4;
4467 supportNew[1] = (c - cStart)*8 + 2+4;
4468 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4468,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4469#if defined(PETSC_USE_DEBUG1)
4470 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4470,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
4471 for (p = 0; p < 2; ++p) {
4472 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4472,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cMaxNew);
4473 }
4474#endif
4475 ++newp;
4476 /* Face G: {e, a, f} */
4477 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*3 + GetTriMidEdge_Static(ornt[1], 1);
4478 orntNew[0] = ornt[1] < 0 ? -2 : 0;
4479 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart);
4480 orntNew[1] = 0;
4481 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[3] - fStart)*3 + GetTriMidEdge_Static(ornt[3], 1);
4482 orntNew[2] = ornt[3] < 0 ? 0 : -2;
4483 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4483,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4484 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4484,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4485#if defined(PETSC_USE_DEBUG1)
4486 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4486,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
4487 for (p = 0; p < 3; ++p) {
4488 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4488,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
4489 }
4490#endif
4491 supportNew[0] = (c - cStart)*8 + 1+4;
4492 supportNew[1] = (c - cStart)*8 + 3+4;
4493 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4493,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4494#if defined(PETSC_USE_DEBUG1)
4495 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4495,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
4496 for (p = 0; p < 2; ++p) {
4497 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4497,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cMaxNew);
4498 }
4499#endif
4500 ++newp;
4501 /* Face H: {a, b, f} */
4502 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*3 + GetTriMidEdge_Static(ornt[0], 0);
4503 orntNew[0] = ornt[0] < 0 ? -2 : 0;
4504 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[3] - fStart)*3 + GetTriMidEdge_Static(ornt[3], 2);
4505 orntNew[1] = ornt[3] < 0 ? 0 : -2;
4506 coneNew[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart);
4507 orntNew[2] = -2;
4508 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4508,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4509 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4509,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4510#if defined(PETSC_USE_DEBUG1)
4511 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4511,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
4512 for (p = 0; p < 3; ++p) {
4513 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4513,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
4514 }
4515#endif
4516 supportNew[0] = (c - cStart)*8 + 1+4;
4517 supportNew[1] = (c - cStart)*8 + 2+4;
4518 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4518,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4519#if defined(PETSC_USE_DEBUG1)
4520 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4520,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
4521 for (p = 0; p < 2; ++p) {
4522 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),4522,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cMaxNew);
4523 }
4524#endif
4525 ++newp;
4526 }
4527 /* Hybrid split faces have 4 edges and same cells */
4528 for (f = fMax; f < fEnd; ++f) {
4529 const PetscInt *cone, *ornt, *support;
4530 PetscInt coneNew[4], orntNew[4];
4531 PetscInt supportNew[2], size, s, c;
4532
4533 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4533,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4534 ierr = DMPlexGetConeOrientation(dm, f, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4534,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4535 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4535,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4536 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4536,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4537 for (r = 0; r < 2; ++r) {
4538 const PetscInt newp = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (f - fMax)*2 + r;
4539
4540 coneNew[0] = eStartNew + (cone[0] - eStart)*2 + (ornt[0] < 0 ? 1-r : r);
4541 orntNew[0] = ornt[0];
4542 coneNew[1] = eStartNew + (cone[1] - eStart)*2 + (ornt[1] < 0 ? 1-r : r);
4543 orntNew[1] = ornt[1];
4544 coneNew[2+r] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart) + (cone[2+r] - eMax);
4545 orntNew[2+r] = 0;
4546 coneNew[3-r] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart) + (eEnd - eMax) + (f - fMax);
4547 orntNew[3-r] = 0;
4548 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4548,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4549 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4549,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4550#if defined(PETSC_USE_DEBUG1)
4551 if ((newp < fMaxNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", newp, fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),4551,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,newp,fMaxNew,fEndNew);
4552 for (p = 0; p < 2; ++p) {
4553 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4553,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
4554 }
4555 for (p = 2; p < 4; ++p) {
4556 if ((coneNew[p] < eMaxNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid edge [%D, %D)", coneNew[p], eMaxNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),4556,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid edge [%D, %D)"
,coneNew[p],eMaxNew,eEndNew);
4557 }
4558#endif
4559 for (s = 0; s < size; ++s) {
4560 const PetscInt *coneCell, *orntCell, *fornt;
4561 PetscInt o, of;
4562
4563 ierr = DMPlexGetCone(dm, support[s], &coneCell);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4563,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4564 ierr = DMPlexGetConeOrientation(dm, support[s], &orntCell);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4564,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4565 o = orntCell[0] < 0 ? -1 : 1;
4566 for (c = 2; c < 5; ++c) if (coneCell[c] == f) break;
4567 if (c >= 5) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Could not find face %D in cone of cell %D", f, support[s])return PetscError(((MPI_Comm)0x44000001),4567,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Could not find face %D in cone of cell %D"
,f,support[s]);
4568 ierr = DMPlexGetConeOrientation(dm, coneCell[0], &fornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4568,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4569 of = fornt[c-2] < 0 ? -1 : 1;
4570 supportNew[s] = cStartNew + (cMax - cStart)*8 + (support[s] - cMax)*4 + (GetTriEdgeInverse_Static(orntCell[0], c-2) + (o*of < 0 ? 1-r : r))%3;
4571 }
4572 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4572,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4573#if defined(PETSC_USE_DEBUG1)
4574 if ((newp < fMaxNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", newp, fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),4574,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,newp,fMaxNew,fEndNew);
4575 for (p = 0; p < size; ++p) {
4576 if ((supportNew[p] < cMaxNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid cell [%D, %D)", supportNew[p], cMaxNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),4576,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid cell [%D, %D)"
,supportNew[p],cMaxNew,cEndNew);
4577 }
4578#endif
4579 }
4580 }
4581 /* Hybrid cell faces have 4 edges and 2 cells */
4582 for (c = cMax; c < cEnd; ++c) {
4583 PetscInt newp = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (fEnd - fMax)*2 + (c - cMax)*3;
4584 const PetscInt *cone, *ornt;
4585 PetscInt coneNew[4], orntNew[4];
4586 PetscInt supportNew[2];
4587
4588 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4588,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4589 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4589,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4590 for (r = 0; r < 3; ++r) {
4591 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*3 + (r+2)%3;
4592 orntNew[0] = 0;
4593 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*3 + (r+2)%3;
4594 orntNew[1] = 0;
4595 coneNew[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart) + (eEnd - eMax) + (cone[2+(r+2)%3] - fMax);
4596 orntNew[2] = 0;
4597 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart) + (eEnd - eMax) + (cone[2+r] - fMax);
4598 orntNew[3] = 0;
4599 ierr = DMPlexSetCone(rdm, newp+r, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4599,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4600 ierr = DMPlexSetConeOrientation(rdm, newp+r, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4600,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4601#if defined(PETSC_USE_DEBUG1)
4602 if ((newp+r < fMaxNew) || (newp+r >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", newp+r, fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),4602,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,newp+r,fMaxNew,fEndNew);
4603 for (p = 0; p < 2; ++p) {
4604 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4604,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
4605 }
4606 for (p = 2; p < 4; ++p) {
4607 if ((coneNew[p] < eMaxNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid edge [%D, %D)", coneNew[p], eMaxNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),4607,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid edge [%D, %D)"
,coneNew[p],eMaxNew,eEndNew);
4608 }
4609#endif
4610 supportNew[0] = cStartNew + (cMax - cStart)*8 + (c - cMax)*4 + GetTriSubface_Static(ornt[0], r);
4611 supportNew[1] = cStartNew + (cMax - cStart)*8 + (c - cMax)*4 + 3;
4612 ierr = DMPlexSetSupport(rdm, newp+r, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4612,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4613#if defined(PETSC_USE_DEBUG1)
4614 if ((newp+r < fMaxNew) || (newp+r >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", newp+r, fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),4614,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,newp+r,fMaxNew,fEndNew);
4615 for (p = 0; p < 2; ++p) {
4616 if ((supportNew[p] < cMaxNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid cell [%D, %D)", supportNew[p], cMaxNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),4616,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid cell [%D, %D)"
,supportNew[p],cMaxNew,cEndNew);
4617 }
4618#endif
4619 }
4620 }
4621 /* Interior split edges have 2 vertices and the same faces as the parent */
4622 for (e = eStart; e < eMax; ++e) {
4623 const PetscInt newv = vStartNew + (vEnd - vStart) + (e - eStart);
4624
4625 for (r = 0; r < 2; ++r) {
4626 const PetscInt newp = eStartNew + (e - eStart)*2 + r;
4627 const PetscInt *cone, *ornt, *support;
4628 PetscInt coneNew[2], coneSize, c, supportSize, s;
4629
4630 ierr = DMPlexGetCone(dm, e, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4630,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4631 coneNew[0] = vStartNew + (cone[0] - vStart);
4632 coneNew[1] = vStartNew + (cone[1] - vStart);
4633 coneNew[(r+1)%2] = newv;
4634 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4634,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4635#if defined(PETSC_USE_DEBUG1)
4636 if ((newp < eStartNew) || (newp >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4636,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eMaxNew);
4637 for (p = 0; p < 2; ++p) {
4638 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),4638,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
4639 }
4640#endif
4641 ierr = DMPlexGetSupportSize(dm, e, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4641,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4642 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4642,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4643 for (s = 0; s < supportSize; ++s) {
4644 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4644,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4645 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4645,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4646 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4646,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4647 for (c = 0; c < coneSize; ++c) if (cone[c] == e) break;
4648 if (support[s] < fMax) {
4649 supportRef[s] = fStartNew + (support[s] - fStart)*4 + (c + (ornt[c] < 0 ? 1-r : r))%3;
4650 } else {
4651 supportRef[s] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (support[s] - fMax)*2 + (ornt[c] < 0 ? 1-r : r);
4652 }
4653 }
4654 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4654,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4655#if defined(PETSC_USE_DEBUG1)
4656 if ((newp < eStartNew) || (newp >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4656,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eMaxNew);
4657 for (p = 0; p < supportSize; ++p) {
4658 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior or hybrid face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),4658,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior or hybrid face [%D, %D)"
,supportRef[p],fStartNew,fEndNew);
4659 }
4660#endif
4661 }
4662 }
4663 /* Interior face edges have 2 vertices and 2+cells*(1/2) faces */
4664 for (f = fStart; f < fMax; ++f) {
4665 const PetscInt *cone, *ornt, *support;
4666 PetscInt coneSize, supportSize, s;
4667
4668 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4668,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4669 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4669,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4670 for (r = 0; r < 3; ++r) {
4671 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + r;
4672 PetscInt coneNew[2], intFaces = 0, er, eint[4] = {1, 0, 2, 0};
4673 PetscInt fint[24] = { 1, 7, -1, -1, 0, 5,
4674 -1, -1, 1, 6, 0, 4,
4675 2, 5, 3, 4, -1, -1,
4676 -1, -1, 3, 6, 2, 7};
4677
4678 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4678,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4679 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[(r+0)%3] - eStart);
4680 coneNew[1] = vStartNew + (vEnd - vStart) + (cone[(r+1)%3] - eStart);
4681 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4681,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4682#if defined(PETSC_USE_DEBUG1)
4683 if ((newp < eStartNew) || (newp >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4683,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eMaxNew);
4684 for (p = 0; p < 2; ++p) {
4685 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),4685,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
4686 }
4687#endif
4688 supportRef[0] = fStartNew + (f - fStart)*4 + (r+1)%3;
4689 supportRef[1] = fStartNew + (f - fStart)*4 + 3;
4690 for (s = 0; s < supportSize; ++s) {
4691 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4691,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4692 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4692,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4693 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4693,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4694 for (c = 0; c < coneSize; ++c) {if (cone[c] == f) break;}
4695 if (support[s] < cMax) {
4696 /* Here we want to determine whether edge newp contains a vertex which is part of the cross-tet edge */
4697 er = GetTriMidEdgeInverse_Static(ornt[c], r);
4698 if (er == eint[c]) {
4699 supportRef[2+intFaces++] = fStartNew + (fMax - fStart)*4 + (support[s] - cStart)*8 + (c + 2)%4;
4700 } else {
4701 supportRef[2+intFaces++] = fStartNew + (fMax - fStart)*4 + (support[s] - cStart)*8 + fint[(c*3 + er)*2 + 0];
4702 supportRef[2+intFaces++] = fStartNew + (fMax - fStart)*4 + (support[s] - cStart)*8 + fint[(c*3 + er)*2 + 1];
4703 }
4704 } else {
4705 supportRef[2+intFaces++] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (fEnd - fMax)*2 + (support[s] - cMax)*3 + (r + 1)%3;
4706 }
4707 }
4708 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4708,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4709#if defined(PETSC_USE_DEBUG1)
4710 if ((newp < eStartNew) || (newp >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4710,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eMaxNew);
4711 for (p = 0; p < intFaces; ++p) {
4712 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior or hybrid face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),4712,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior or hybrid face [%D, %D)"
,supportRef[p],fStartNew,fEndNew);
4713 }
4714#endif
4715 }
4716 }
4717 /* Interior cell edges have 2 vertices and 4 faces */
4718 for (c = cStart; c < cMax; ++c) {
4719 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart);
4720 const PetscInt *cone, *ornt, *fcone;
4721 PetscInt coneNew[2], supportNew[4], find;
4722
4723 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4723,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4724 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4724,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4725 ierr = DMPlexGetCone(dm, cone[0], &fcone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4725,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4726 find = GetTriEdge_Static(ornt[0], 0);
4727 coneNew[0] = vStartNew + (vEnd - vStart) + (fcone[find] - eStart);
4728 ierr = DMPlexGetCone(dm, cone[2], &fcone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4728,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4729 find = GetTriEdge_Static(ornt[2], 1);
4730 coneNew[1] = vStartNew + (vEnd - vStart) + (fcone[find] - eStart);
4731 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4731,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4732#if defined(PETSC_USE_DEBUG1)
4733 if ((newp < eStartNew) || (newp >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4733,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eMaxNew);
4734 for (p = 0; p < 2; ++p) {
4735 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),4735,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
4736 }
4737#endif
4738 supportNew[0] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 4;
4739 supportNew[1] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 5;
4740 supportNew[2] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 6;
4741 supportNew[3] = fStartNew + (fMax - fStart)*4 + (c - cStart)*8 + 7;
4742 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4742,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4743#if defined(PETSC_USE_DEBUG1)
4744 if ((newp < eStartNew) || (newp >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),4744,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eMaxNew);
4745 for (p = 0; p < 4; ++p) {
4746 if ((supportNew[p] < fStartNew) || (supportNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),4746,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportNew
[p],fStartNew,fMaxNew);
4747 }
4748#endif
4749 }
4750 /* Hybrid edges have two vertices and the same faces */
4751 for (e = eMax; e < eEnd; ++e) {
4752 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart) + (e - eMax);
4753 const PetscInt *cone, *support, *fcone;
4754 PetscInt coneNew[2], size, fsize, s;
4755
4756 ierr = DMPlexGetCone(dm, e, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4756,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4757 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4757,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4758 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4758,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4759 coneNew[0] = vStartNew + (cone[0] - vStart);
4760 coneNew[1] = vStartNew + (cone[1] - vStart);
4761 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4761,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4762#if defined(PETSC_USE_DEBUG1)
4763 if ((newp < eMaxNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid edge [%D, %D)", newp, eMaxNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),4763,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid edge [%D, %D)"
,newp,eMaxNew,eEndNew);
4764 for (p = 0; p < 2; ++p) {
4765 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),4765,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
4766 }
4767#endif
4768 for (s = 0; s < size; ++s) {
4769 ierr = DMPlexGetConeSize(dm, support[s], &fsize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4769,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4770 ierr = DMPlexGetCone(dm, support[s], &fcone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4770,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4771 for (c = 0; c < fsize; ++c) if (fcone[c] == e) break;
4772 if ((c < 2) || (c > 3)) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Edge %D not found in cone of face %D", e, support[s])return PetscError(((MPI_Comm)0x44000001),4772,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Edge %D not found in cone of face %D"
,e,support[s]);
4773 supportRef[s] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (support[s] - fMax)*2 + c-2;
4774 }
4775 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4775,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4776#if defined(PETSC_USE_DEBUG1)
4777 if ((newp < eMaxNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid edge [%D, %D)", newp, eMaxNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),4777,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid edge [%D, %D)"
,newp,eMaxNew,eEndNew);
4778 for (p = 0; p < size; ++p) {
4779 if ((supportRef[p] < fMaxNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", supportRef[p], fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),4779,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,supportRef[p],fMaxNew,fEndNew);
4780 }
4781#endif
4782 }
4783 /* Hybrid face edges have 2 vertices and 2+2*cells faces */
4784 for (f = fMax; f < fEnd; ++f) {
4785 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart) + (eEnd - eMax) + (f - fMax);
4786 const PetscInt *cone, *support, *ccone, *cornt;
4787 PetscInt coneNew[2], size, csize, s;
4788
4789 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4789,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4790 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4790,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4791 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4791,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4792 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[0] - eStart);
4793 coneNew[1] = vStartNew + (vEnd - vStart) + (cone[1] - eStart);
4794 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4794,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4795#if defined(PETSC_USE_DEBUG1)
4796 if ((newp < eMaxNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid edge [%D, %D)", newp, eMaxNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),4796,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid edge [%D, %D)"
,newp,eMaxNew,eEndNew);
4797 for (p = 0; p < 2; ++p) {
4798 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),4798,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
4799 }
4800#endif
4801 supportRef[0] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (f - fMax)*2 + 0;
4802 supportRef[1] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (f - fMax)*2 + 1;
4803 for (s = 0; s < size; ++s) {
4804 ierr = DMPlexGetConeSize(dm, support[s], &csize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4804,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4805 ierr = DMPlexGetCone(dm, support[s], &ccone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4805,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4806 ierr = DMPlexGetConeOrientation(dm, support[s], &cornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4806,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4807 for (c = 0; c < csize; ++c) if (ccone[c] == f) break;
4808 if ((c < 2) || (c >= csize)) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Hybrid face %D is not in cone of hybrid cell %D", f, support[s])return PetscError(((MPI_Comm)0x44000001),4808,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Hybrid face %D is not in cone of hybrid cell %D"
,f,support[s]);
4809 supportRef[2+s*2+0] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (fEnd - fMax)*2 + (support[s] - cMax)*3 + c-2;
4810 supportRef[2+s*2+1] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (fEnd - fMax)*2 + (support[s] - cMax)*3 + (c-1)%3;
4811 }
4812 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4812,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4813#if defined(PETSC_USE_DEBUG1)
4814 if ((newp < eMaxNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid edge [%D, %D)", newp, eMaxNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),4814,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid edge [%D, %D)"
,newp,eMaxNew,eEndNew);
4815 for (p = 0; p < 2+size*2; ++p) {
4816 if ((supportRef[p] < fMaxNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", supportRef[p], fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),4816,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,supportRef[p],fMaxNew,fEndNew);
4817 }
4818#endif
4819 }
4820 /* Interior vertices have identical supports */
4821 for (v = vStart; v < vEnd; ++v) {
4822 const PetscInt newp = vStartNew + (v - vStart);
4823 const PetscInt *support, *cone;
4824 PetscInt size, s;
4825
4826 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4826,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4827 ierr = DMPlexGetSupport(dm, v, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4827,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4828 for (s = 0; s < size; ++s) {
4829 PetscInt r = 0;
4830
4831 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4831,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4832 if (cone[1] == v) r = 1;
4833 if (support[s] < eMax) supportRef[s] = eStartNew + (support[s] - eStart)*2 + r;
4834 else supportRef[s] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart) + (support[s] - eMax);
4835 }
4836 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4836,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4837#if defined(PETSC_USE_DEBUG1)
4838 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),4838,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
4839 for (p = 0; p < size; ++p) {
4840 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior or hybrid edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),4840,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior or hybrid edge [%D, %D)"
,supportRef[p],eStartNew,eEndNew);
4841 }
4842#endif
4843 }
4844 /* Interior edge vertices have 2 + interior face*2 + hybrid face + cells*0/1 supports */
4845 for (e = eStart; e < eMax; ++e) {
4846 const PetscInt newp = vStartNew + (vEnd - vStart) + (e - eStart);
4847 const PetscInt *cone, *support;
4848 PetscInt *star = NULL((void*)0), starSize, faceSize = 0, cellSize = 0, coneSize, size, s;
4849
4850 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4850,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4851 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4851,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4852 supportRef[0] = eStartNew + (e - eStart)*2 + 0;
4853 supportRef[1] = eStartNew + (e - eStart)*2 + 1;
4854 for (s = 0; s < size; ++s) {
4855 PetscInt r = 0;
4856
4857 if (support[s] < fMax) {
4858 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4858,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4859 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4859,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4860 for (r = 0; r < coneSize; ++r) {if (cone[r] == e) break;}
4861 supportRef[2+faceSize+0] = eStartNew + (eMax - eStart)*2 + (support[s] - fStart)*3 + (r+0)%3;
4862 supportRef[2+faceSize+1] = eStartNew + (eMax - eStart)*2 + (support[s] - fStart)*3 + (r+2)%3;
4863 faceSize += 2;
4864 } else {
4865 supportRef[2+faceSize+0] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart) + (eEnd - eMax) + (support[s] - fMax);
4866 ++faceSize;
4867 }
4868 }
4869 ierr = DMPlexGetTransitiveClosure(dm, e, PETSC_FALSE, &starSize, &star);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4869,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4870 for (s = 0; s < starSize*2; s += 2) {
4871 const PetscInt *cone, *ornt;
4872 PetscInt e01, e23;
4873
4874 if ((star[s] >= cStart) && (star[s] < cMax)) {
4875 /* Check edge 0-1 */
4876 ierr = DMPlexGetCone(dm, star[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4876,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4877 ierr = DMPlexGetConeOrientation(dm, star[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4877,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4878 ierr = DMPlexGetCone(dm, cone[0], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4878,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4879 e01 = cone[GetTriEdge_Static(ornt[0], 0)];
4880 /* Check edge 2-3 */
4881 ierr = DMPlexGetCone(dm, star[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4881,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4882 ierr = DMPlexGetConeOrientation(dm, star[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4882,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4883 ierr = DMPlexGetCone(dm, cone[2], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4883,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4884 e23 = cone[GetTriEdge_Static(ornt[2], 1)];
4885 if ((e01 == e) || (e23 == e)) {supportRef[2+faceSize+cellSize++] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (star[s] - cStart);}
4886 }
4887 }
4888 ierr = DMPlexRestoreTransitiveClosure(dm, e, PETSC_FALSE, &starSize, &star);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4888,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4889 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4889,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4890#if defined(PETSC_USE_DEBUG1)
4891 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),4891,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
4892 for (p = 0; p < 2+faceSize+cellSize; ++p) {
4893 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an interior or hybrid edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),4893,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an interior or hybrid edge [%D, %D)"
,supportRef[p],eStartNew,eEndNew);
4894 }
4895#endif
4896 }
4897 ierr = PetscFree(supportRef)((*PetscTrFree)((void*)(supportRef),4897,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((supportRef) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4897,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4898 ierr = DMPlexRestoreFaces_Internal(dm, 3, cStart, NULL((void*)0), NULL((void*)0), &faces);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4898,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4899 break;
4900 case REFINER_SIMPLEX_TO_HEX_3D:
4901 ierr = DMPlexGetRawFaces_Internal(dm, 3, 4, cellInd, NULL((void*)0), NULL((void*)0), &faces);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4901,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4902 /* All cells have 6 faces */
4903 for (c = cStart; c < cEnd; ++c) {
4904 const PetscInt newp = cStartNew + (c - cStart)*4;
4905 const PetscInt *cone, *ornt;
4906 PetscInt coneNew[6];
4907 PetscInt orntNew[6];
4908
4909 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4909,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4910 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4910,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4911 /* A hex */
4912 coneNew[0] = fStartNew + (cone[0] - fStart)*3 + GetTriSubface_Static(ornt[0], 0); /* B */
4913 orntNew[0] = ornt[0] < 0 ? -1 : 1;
4914 coneNew[1] = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + 3; /* T */
4915 orntNew[1] = -4;
4916 coneNew[2] = fStartNew + (cone[2] - fStart)*3 + GetTriSubface_Static(ornt[2], 0); /* F */
4917 orntNew[2] = ornt[2] < 0 ? -1 : 1;
4918 coneNew[3] = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + 0; /* K */
4919 orntNew[3] = -1;
4920 coneNew[4] = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + 2; /* R */
4921 orntNew[4] = 0;
4922 coneNew[5] = fStartNew + (cone[1] - fStart)*3 + GetTriSubface_Static(ornt[1], 0); /* L */
4923 orntNew[5] = ornt[1] < 0 ? -1 : 1;
4924 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4924,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4925 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4925,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4926#if defined(PETSC_USE_DEBUG1)
4927 if ((newp+0 < cStartNew) || (newp+0 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+0, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),4927,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+0,cStartNew,cEndNew);
4928 for (p = 0; p < 6; ++p) {
4929 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),4929,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
4930 }
4931#endif
4932 /* B hex */
4933 coneNew[0] = fStartNew + (cone[0] - fStart)*3 + GetTriSubface_Static(ornt[0], 1); /* B */
4934 orntNew[0] = ornt[0] < 0 ? -2 : 0;
4935 coneNew[1] = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + 4; /* T */
4936 orntNew[1] = 0;
4937 coneNew[2] = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + 0; /* F */
4938 orntNew[2] = 0;
4939 coneNew[3] = fStartNew + (cone[3] - fStart)*3 + GetTriSubface_Static(ornt[3], 1); /* K */
4940 orntNew[3] = ornt[3] < 0 ? -2 : 0;
4941 coneNew[4] = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + 1; /* R */
4942 orntNew[4] = 0;
4943 coneNew[5] = fStartNew + (cone[1] - fStart)*3 + GetTriSubface_Static(ornt[1], 2); /* L */
4944 orntNew[5] = ornt[1] < 0 ? -4 : 2;
4945 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4945,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4946 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4946,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4947#if defined(PETSC_USE_DEBUG1)
4948 if ((newp+1 < cStartNew) || (newp+1 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+1, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),4948,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+1,cStartNew,cEndNew);
4949 for (p = 0; p < 6; ++p) {
4950 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),4950,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
4951 }
4952#endif
4953 /* C hex */
4954 coneNew[0] = fStartNew + (cone[0] - fStart)*3 + GetTriSubface_Static(ornt[0], 2); /* B */
4955 orntNew[0] = ornt[0] < 0 ? -4 : 2;
4956 coneNew[1] = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + 5; /* T */
4957 orntNew[1] = -4;
4958 coneNew[2] = fStartNew + (cone[2] - fStart)*3 + GetTriSubface_Static(ornt[2], 1); /* F */
4959 orntNew[2] = ornt[2] < 0 ? -2 : 0;
4960 coneNew[3] = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + 1; /* K */
4961 orntNew[3] = -1;
4962 coneNew[4] = fStartNew + (cone[3] - fStart)*3 + GetTriSubface_Static(ornt[3], 0); /* R */
4963 orntNew[4] = ornt[3] < 0 ? -1 : 1;
4964 coneNew[5] = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + 2; /* L */
4965 orntNew[5] = -4;
4966 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4966,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4967 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4967,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4968#if defined(PETSC_USE_DEBUG1)
4969 if ((newp+2 < cStartNew) || (newp+2 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+2, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),4969,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+2,cStartNew,cEndNew);
4970 for (p = 0; p < 6; ++p) {
4971 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),4971,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
4972 }
4973#endif
4974 /* D hex */
4975 coneNew[0] = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + 3; /* B */
4976 orntNew[0] = 0;
4977 coneNew[1] = fStartNew + (cone[3] - fStart)*3 + GetTriSubface_Static(ornt[3], 2); /* T */
4978 orntNew[1] = ornt[3] < 0 ? -1 : 1;
4979 coneNew[2] = fStartNew + (cone[2] - fStart)*3 + GetTriSubface_Static(ornt[2], 2); /* F */
4980 orntNew[2] = ornt[2] < 0 ? -4 : 2;
4981 coneNew[3] = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + 4; /* K */
4982 orntNew[3] = -1;
4983 coneNew[4] = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + 5; /* R */
4984 orntNew[4] = 0;
4985 coneNew[5] = fStartNew + (cone[1] - fStart)*3 + GetTriSubface_Static(ornt[1], 1); /* L */
4986 orntNew[5] = ornt[1] < 0 ? -2 : 0;
4987 ierr = DMPlexSetCone(rdm, newp+3, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4987,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4988 ierr = DMPlexSetConeOrientation(rdm, newp+3, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4988,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4989#if defined(PETSC_USE_DEBUG1)
4990 if ((newp+3 < cStartNew) || (newp+3 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+3, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),4990,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+3,cStartNew,cEndNew);
4991 for (p = 0; p < 6; ++p) {
4992 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),4992,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
4993 }
4994#endif
4995 }
4996 /* Split faces have 4 edges and the same cells as the parent */
4997 ierr = DMPlexGetMaxSizes(dm, NULL((void*)0), &maxSupportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4997,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4998 ierr = PetscMalloc1(2 + maxSupportSize*2, &supportRef)PetscMallocA(1,PETSC_FALSE,4998,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(2 + maxSupportSize*2)*sizeof(**(&supportRef)),(
&supportRef));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),4998,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
4999 for (f = fStart; f < fEnd; ++f) {
5000 const PetscInt newp = fStartNew + (f - fStart)*3;
5001 const PetscInt *cone, *ornt, *support;
5002 PetscInt coneNew[4], orntNew[4], coneSize, supportSize, s;
5003
5004 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5004,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5005 ierr = DMPlexGetConeOrientation(dm, f, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5005,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5006 /* A quad */
5007 coneNew[0] = eStartNew + (cone[2] - eStart)*2 + (ornt[2] < 0 ? 0 : 1);
5008 orntNew[0] = ornt[2];
5009 coneNew[1] = eStartNew + (cone[0] - eStart)*2 + (ornt[0] < 0 ? 1 : 0);
5010 orntNew[1] = ornt[0];
5011 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + 0;
5012 orntNew[2] = 0;
5013 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + 2;
5014 orntNew[3] = -2;
5015 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5015,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5016 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5016,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5017#if defined(PETSC_USE_DEBUG1)
5018 if ((newp+0 < fStartNew) || (newp+0 >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+0, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5018,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+0,fStartNew,fEndNew);
5019 for (p = 0; p < 4; ++p) {
5020 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5020,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5021 }
5022#endif
5023 /* B quad */
5024 coneNew[0] = eStartNew + (cone[0] - eStart)*2 + (ornt[0] < 0 ? 0 : 1);
5025 orntNew[0] = ornt[0];
5026 coneNew[1] = eStartNew + (cone[1] - eStart)*2 + (ornt[1] < 0 ? 1 : 0);
5027 orntNew[1] = ornt[1];
5028 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + 1;
5029 orntNew[2] = 0;
5030 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + 0;
5031 orntNew[3] = -2;
5032 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5032,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5033 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5033,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5034#if defined(PETSC_USE_DEBUG1)
5035 if ((newp+1 < fStartNew) || (newp+1 >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+1, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5035,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+1,fStartNew,fEndNew);
5036 for (p = 0; p < 4; ++p) {
5037 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5037,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5038 }
5039#endif
5040 /* C quad */
5041 coneNew[0] = eStartNew + (cone[1] - eStart)*2 + (ornt[1] < 0 ? 0 : 1);
5042 orntNew[0] = ornt[1];
5043 coneNew[1] = eStartNew + (cone[2] - eStart)*2 + (ornt[2] < 0 ? 1 : 0);
5044 orntNew[1] = ornt[2];
5045 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + 2;
5046 orntNew[2] = 0;
5047 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + 1;
5048 orntNew[3] = -2;
5049 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5049,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5050 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5050,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5051#if defined(PETSC_USE_DEBUG1)
5052 if ((newp+2 < fStartNew) || (newp+2 >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+2, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5052,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+2,fStartNew,fEndNew);
5053 for (p = 0; p < 4; ++p) {
5054 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5054,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5055 }
5056#endif
5057 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5057,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5058 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5058,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5059 for (r = 0; r < 3; ++r) {
5060 for (s = 0; s < supportSize; ++s) {
5061 PetscInt subf;
5062 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5062,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5063 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5063,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5064 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5064,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5065 for (c = 0; c < coneSize; ++c) {
5066 if (cone[c] == f) break;
5067 }
5068 subf = GetTriSubfaceInverse_Static(ornt[c], r);
5069 supportRef[s] = cStartNew + (support[s] - cStart)*4 + faces[c*3+subf];
5070 }
5071 ierr = DMPlexSetSupport(rdm, newp+r, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5071,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5072#if defined(PETSC_USE_DEBUG1)
5073 if ((newp+r < fStartNew) || (newp+r >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+r, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5073,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+r,fStartNew,fEndNew);
5074 for (p = 0; p < supportSize; ++p) {
5075 if ((supportRef[p] < cStartNew) || (supportRef[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportRef[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5075,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportRef
[p],cStartNew,cEndNew);
5076 }
5077#endif
5078 }
5079 }
5080 /* Interior faces have 4 edges and 2 cells */
5081 for (c = cStart; c < cEnd; ++c) {
5082 PetscInt newp = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6;
5083 const PetscInt *cone, *ornt;
5084 PetscInt coneNew[4], orntNew[4];
5085 PetscInt supportNew[2];
5086
5087 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5087,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5088 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5088,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5089 /* Face {a, g, m, h} */
5090 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[0] - fStart)*3 + GetTriInteriorEdge_Static(ornt[0],0);
5091 orntNew[0] = 0;
5092 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 0;
5093 orntNew[1] = 0;
5094 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 1;
5095 orntNew[2] = -2;
5096 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (cone[1] - fStart)*3 + GetTriInteriorEdge_Static(ornt[1],2);
5097 orntNew[3] = -2;
5098 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5098,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5099 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5099,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5100#if defined(PETSC_USE_DEBUG1)
5101 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5101,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5102 for (p = 0; p < 4; ++p) {
5103 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5103,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5104 }
5105#endif
5106 supportNew[0] = (c - cStart)*4 + 0;
5107 supportNew[1] = (c - cStart)*4 + 1;
5108 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5108,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5109#if defined(PETSC_USE_DEBUG1)
5110 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5110,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5111 for (p = 0; p < 2; ++p) {
5112 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5112,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
5113 }
5114#endif
5115 ++newp;
5116 /* Face {g, b, l , m} */
5117 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[0] - fStart)*3 + GetTriInteriorEdge_Static(ornt[0],1);
5118 orntNew[0] = -2;
5119 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (cone[3] - fStart)*3 + GetTriInteriorEdge_Static(ornt[3],0);
5120 orntNew[1] = 0;
5121 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 3;
5122 orntNew[2] = 0;
5123 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 0;
5124 orntNew[3] = -2;
5125 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5125,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5126 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5126,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5127#if defined(PETSC_USE_DEBUG1)
5128 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5128,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5129 for (p = 0; p < 4; ++p) {
5130 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5130,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5131 }
5132#endif
5133 supportNew[0] = (c - cStart)*4 + 1;
5134 supportNew[1] = (c - cStart)*4 + 2;
5135 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5135,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5136#if defined(PETSC_USE_DEBUG1)
5137 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5137,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5138 for (p = 0; p < 2; ++p) {
5139 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5139,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
5140 }
5141#endif
5142 ++newp;
5143 /* Face {c, g, m, i} */
5144 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[0] - fStart)*3 + GetTriInteriorEdge_Static(ornt[0],2);
5145 orntNew[0] = 0;
5146 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 0;
5147 orntNew[1] = 0;
5148 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 2;
5149 orntNew[2] = -2;
5150 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (cone[2] - fStart)*3 + GetTriInteriorEdge_Static(ornt[2],0);
5151 orntNew[3] = -2;
5152 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5152,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5153 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5153,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5154#if defined(PETSC_USE_DEBUG1)
5155 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5155,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5156 for (p = 0; p < 4; ++p) {
5157 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5157,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5158 }
5159#endif
5160 supportNew[0] = (c - cStart)*4 + 0;
5161 supportNew[1] = (c - cStart)*4 + 2;
5162 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5162,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5163#if defined(PETSC_USE_DEBUG1)
5164 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5164,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5165 for (p = 0; p < 2; ++p) {
5166 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5166,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
5167 }
5168#endif
5169 ++newp;
5170 /* Face {d, h, m, i} */
5171 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[1] - fStart)*3 + GetTriInteriorEdge_Static(ornt[1],0);
5172 orntNew[0] = 0;
5173 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 1;
5174 orntNew[1] = 0;
5175 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 2;
5176 orntNew[2] = -2;
5177 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (cone[2] - fStart)*3 + GetTriInteriorEdge_Static(ornt[2],2);
5178 orntNew[3] = -2;
5179 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5179,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5180 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5180,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5181#if defined(PETSC_USE_DEBUG1)
5182 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5182,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5183 for (p = 0; p < 4; ++p) {
5184 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5184,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5185 }
5186#endif
5187 supportNew[0] = (c - cStart)*4 + 0;
5188 supportNew[1] = (c - cStart)*4 + 3;
5189 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5189,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5190#if defined(PETSC_USE_DEBUG1)
5191 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5191,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5192 for (p = 0; p < 2; ++p) {
5193 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5193,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
5194 }
5195#endif
5196 ++newp;
5197 /* Face {h, m, l, e} */
5198 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 1;
5199 orntNew[0] = 0;
5200 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 3;
5201 orntNew[1] = -2;
5202 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (cone[3] - fStart)*3 + GetTriInteriorEdge_Static(ornt[3],1);
5203 orntNew[2] = -2;
5204 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (cone[1] - fStart)*3 + GetTriInteriorEdge_Static(ornt[1],1);
5205 orntNew[3] = 0;
5206 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5206,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5207 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5207,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5208#if defined(PETSC_USE_DEBUG1)
5209 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5209,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5210 for (p = 0; p < 4; ++p) {
5211 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5211,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5212 }
5213#endif
5214 supportNew[0] = (c - cStart)*4 + 1;
5215 supportNew[1] = (c - cStart)*4 + 3;
5216 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5216,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5217#if defined(PETSC_USE_DEBUG1)
5218 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5218,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5219 for (p = 0; p < 2; ++p) {
5220 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5220,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
5221 }
5222#endif
5223 ++newp;
5224 /* Face {i, m, l, f} */
5225 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 2;
5226 orntNew[0] = 0;
5227 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 3;
5228 orntNew[1] = -2;
5229 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (cone[3] - fStart)*3 + GetTriInteriorEdge_Static(ornt[3],2);
5230 orntNew[2] = -2;
5231 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (cone[2] - fStart)*3 + GetTriInteriorEdge_Static(ornt[2],1);
5232 orntNew[3] = 0;
5233 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5233,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5234 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5234,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5235#if defined(PETSC_USE_DEBUG1)
5236 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5236,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5237 for (p = 0; p < 4; ++p) {
5238 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5238,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5239 }
5240#endif
5241 supportNew[0] = (c - cStart)*4 + 2;
5242 supportNew[1] = (c - cStart)*4 + 3;
5243 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5243,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5244#if defined(PETSC_USE_DEBUG1)
5245 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5245,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5246 for (p = 0; p < 2; ++p) {
5247 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5247,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
5248 }
5249#endif
5250 ++newp;
5251 }
5252 /* Split Edges have 2 vertices and the same faces as the parent */
5253 for (e = eStart; e < eEnd; ++e) {
5254 const PetscInt newv = vStartNew + (vEnd - vStart) + (e - eStart);
5255
5256 for (r = 0; r < 2; ++r) {
5257 const PetscInt newp = eStartNew + (e - eStart)*2 + r;
5258 const PetscInt *cone, *ornt, *support;
5259 PetscInt coneNew[2], coneSize, c, supportSize, s;
5260
5261 ierr = DMPlexGetCone(dm, e, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5261,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5262 coneNew[0] = vStartNew + (cone[0] - vStart);
5263 coneNew[1] = vStartNew + (cone[1] - vStart);
5264 coneNew[(r+1)%2] = newv;
5265 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5265,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5266#if defined(PETSC_USE_DEBUG1)
5267 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5267,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
5268 for (p = 0; p < 2; ++p) {
5269 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),5269,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
5270 }
5271#endif
5272 ierr = DMPlexGetSupportSize(dm, e, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5272,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5273 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5273,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5274 for (s = 0; s < supportSize; ++s) {
5275 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5275,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5276 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5276,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5277 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5277,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5278 for (c = 0; c < coneSize; ++c) {
5279 if (cone[c] == e) break;
5280 }
5281 supportRef[s] = fStartNew + (support[s] - fStart)*3 + (c + (ornt[c] < 0 ? 1-r : r))%3;
5282 }
5283 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5283,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5284#if defined(PETSC_USE_DEBUG1)
5285 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5285,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
5286 for (p = 0; p < supportSize; ++p) {
5287 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5287,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
5288 }
5289#endif
5290 }
5291 }
5292 /* Face edges have 2 vertices and 2 + cell faces supports */
5293 for (f = fStart; f < fEnd; ++f) {
5294 const PetscInt *cone, *ornt, *support;
5295 PetscInt coneSize, supportSize, s;
5296
5297 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5297,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5298 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5298,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5299 for (r = 0; r < 3; ++r) {
5300 const PetscInt newp = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + r;
5301 PetscInt coneNew[2];
5302 PetscInt fint[4][3] = { {0, 1, 2},
5303 {3, 4, 0},
5304 {2, 5, 3},
5305 {1, 4, 5} };
5306
5307 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5307,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5308 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[r] - eStart);
5309 coneNew[1] = vStartNew + (vEnd - vStart) + (eEnd - eStart) + f - fStart;
5310 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5310,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5311#if defined(PETSC_USE_DEBUG1)
5312 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5312,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
5313 for (p = 0; p < 2; ++p) {
5314 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),5314,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
5315 }
5316#endif
5317 supportRef[0] = fStartNew + (f - fStart)*3 + (r+0)%3;
5318 supportRef[1] = fStartNew + (f - fStart)*3 + (r+1)%3;
5319 for (s = 0; s < supportSize; ++s) {
5320 PetscInt er;
5321 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5321,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5322 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5322,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5323 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5323,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5324 for (c = 0; c < coneSize; ++c) {if (cone[c] == f) break;}
5325 er = GetTriInteriorEdgeInverse_Static(ornt[c], r);
5326 supportRef[2+s] = fStartNew + (fEnd - fStart)*3 + (support[s] - cStart)*6 + fint[c][er];
5327 }
5328 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5328,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5329#if defined(PETSC_USE_DEBUG1)
5330 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5330,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
5331 for (p = 0; p < supportSize + 2; ++p) {
5332 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5332,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
5333 }
5334#endif
5335 }
5336 }
5337 /* Interior cell edges have 2 vertices and 3 faces */
5338 for (c = cStart; c < cEnd; ++c) {
5339 const PetscInt *cone;
5340 PetscInt fint[4][3] = { {0,1,2},
5341 {0,3,4},
5342 {2,3,5},
5343 {1,4,5} } ;
5344
5345 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5345,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5346 for (r = 0; r < 4; r++) {
5347 PetscInt coneNew[2], supportNew[3];
5348 const PetscInt newp = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + r;
5349
5350 coneNew[0] = vStartNew + (vEnd - vStart) + (eEnd - eStart) + (cone[r] - fStart);
5351 coneNew[1] = vStartNew + (vEnd - vStart) + (eEnd - eStart) + (fEnd -fStart) + c - cStart;
5352 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5352,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5353#if defined(PETSC_USE_DEBUG1)
5354 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5354,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
5355 for (p = 0; p < 2; ++p) {
5356 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),5356,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
5357 }
5358#endif
5359 supportNew[0] = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + fint[r][0];
5360 supportNew[1] = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + fint[r][1];
5361 supportNew[2] = fStartNew + (fEnd - fStart)*3 + (c - cStart)*6 + fint[r][2];
5362 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5362,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5363#if defined(PETSC_USE_DEBUG1)
5364 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5364,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
5365 for (p = 0; p < 3; ++p) {
5366 if ((supportNew[p] < fStartNew) || (supportNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5366,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportNew
[p],fStartNew,fEndNew);
5367 }
5368#endif
5369 }
5370 }
5371 /* Old vertices have identical supports */
5372 for (v = vStart; v < vEnd; ++v) {
5373 const PetscInt newp = vStartNew + (v - vStart);
5374 const PetscInt *support, *cone;
5375 PetscInt size, s;
5376
5377 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5377,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5378 ierr = DMPlexGetSupport(dm, v, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5378,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5379 for (s = 0; s < size; ++s) {
5380 PetscInt r = 0;
5381
5382 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5382,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5383 if (cone[1] == v) r = 1;
5384 supportRef[s] = eStartNew + (support[s] - eStart)*2 + r;
5385 }
5386 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5386,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5387#if defined(PETSC_USE_DEBUG1)
5388 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),5388,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
5389 for (p = 0; p < size; ++p) {
5390 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5390,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
5391 }
5392#endif
5393 }
5394 /* Edge vertices have 2 + faces supports */
5395 for (e = eStart; e < eEnd; ++e) {
5396 const PetscInt newp = vStartNew + (vEnd - vStart) + (e - eStart);
5397 const PetscInt *cone, *support;
5398 PetscInt size, s;
5399
5400 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5400,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5401 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5401,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5402 supportRef[0] = eStartNew + (e - eStart)*2 + 0;
5403 supportRef[1] = eStartNew + (e - eStart)*2 + 1;
5404 for (s = 0; s < size; ++s) {
5405 PetscInt r = 0, coneSize;
5406
5407 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5407,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5408 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5408,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5409 for (r = 0; r < coneSize; ++r) {if (cone[r] == e) break;}
5410 supportRef[2+s] = eStartNew + (eEnd - eStart)*2 + (support[s] - fStart)*3 + r;
5411 }
5412 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5412,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5413#if defined(PETSC_USE_DEBUG1)
5414 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),5414,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
5415 for (p = 0; p < 2+size; ++p) {
5416 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5416,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
5417 }
5418#endif
5419 }
5420 /* Face vertices have 3 + cells supports */
5421 for (f = fStart; f < fEnd; ++f) {
5422 const PetscInt newp = vStartNew + (vEnd - vStart) + (eEnd - eStart) + (f - fStart);
5423 const PetscInt *cone, *support;
5424 PetscInt size, s;
5425
5426 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5426,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5427 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5427,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5428 supportRef[0] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + 0;
5429 supportRef[1] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + 1;
5430 supportRef[2] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*3 + 2;
5431 for (s = 0; s < size; ++s) {
5432 PetscInt r = 0, coneSize;
5433
5434 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5434,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5435 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5435,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5436 for (r = 0; r < coneSize; ++r) {if (cone[r] == f) break;}
5437 supportRef[3+s] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (support[s] - cStart)*4 + r;
5438 }
5439 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5439,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5440#if defined(PETSC_USE_DEBUG1)
5441 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),5441,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
5442 for (p = 0; p < 3+size; ++p) {
5443 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5443,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
5444 }
5445#endif
5446 }
5447 /* Interior cell vertices have 4 supports */
5448 for (c = cStart; c < cEnd; ++c) {
5449 const PetscInt newp = vStartNew + (vEnd - vStart) + (eEnd - eStart) + (fEnd - fStart) + c - cStart;
5450 supportRef[0] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 0;
5451 supportRef[1] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 1;
5452 supportRef[2] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 2;
5453 supportRef[3] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (c - cStart)*4 + 3;
5454 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5454,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5455#if defined(PETSC_USE_DEBUG1)
5456 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),5456,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
5457 for (p = 0; p < 4; ++p) {
5458 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5458,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
5459 }
5460#endif
5461 }
5462 ierr = PetscFree(supportRef)((*PetscTrFree)((void*)(supportRef),5462,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((supportRef) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5462,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5463 ierr = DMPlexRestoreFaces_Internal(dm, 3, cStart, NULL((void*)0), NULL((void*)0), &faces);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5463,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5464 break;
5465 case REFINER_HYBRID_SIMPLEX_TO_HEX_3D:
5466 if (cMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No cell maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),5466,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No cell maximum specified in hybrid mesh"
);
5467 cMax = PetscMin(cEnd, cMax)(((cEnd)<(cMax)) ? (cEnd) : (cMax));
5468 if (fMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No face maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),5468,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No face maximum specified in hybrid mesh"
);
5469 fMax = PetscMin(fEnd, fMax)(((fEnd)<(fMax)) ? (fEnd) : (fMax));
5470 if (eMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No face maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),5470,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No face maximum specified in hybrid mesh"
);
5471 eMax = PetscMin(eEnd, eMax)(((eEnd)<(eMax)) ? (eEnd) : (eMax));
5472 ierr = DMPlexGetRawFaces_Internal(dm, 3, 4, cellInd, NULL((void*)0), NULL((void*)0), &faces);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5472,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5473 /* All cells have 6 faces */
5474 for (c = cStart; c < cMax; ++c) {
5475 const PetscInt newp = cStartNew + (c - cStart)*4;
5476 const PetscInt *cone, *ornt;
5477 PetscInt coneNew[6];
5478 PetscInt orntNew[6];
5479
5480 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5480,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5481#if defined(PETSC_USE_DEBUG1)
5482 for (p = 0; p < 4; ++p) {
5483 if (cone[p] >= fMax) SETERRQ4(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected hybrid face %D (fMax %D) in cone position %D for cell %D", cone[p], p, fMax, c)return PetscError(((MPI_Comm)0x44000001),5483,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected hybrid face %D (fMax %D) in cone position %D for cell %D"
,cone[p],p,fMax,c);
5484 }
5485#endif
5486 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5486,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5487 /* A hex */
5488 coneNew[0] = fStartNew + (cone[0] - fStart)*3 + GetTriSubface_Static(ornt[0], 0); /* B */
5489 orntNew[0] = ornt[0] < 0 ? -1 : 1;
5490 coneNew[1] = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + 3; /* T */
5491 orntNew[1] = -4;
5492 coneNew[2] = fStartNew + (cone[2] - fStart)*3 + GetTriSubface_Static(ornt[2], 0); /* F */
5493 orntNew[2] = ornt[2] < 0 ? -1 : 1;
5494 coneNew[3] = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + 0; /* K */
5495 orntNew[3] = -1;
5496 coneNew[4] = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + 2; /* R */
5497 orntNew[4] = 0;
5498 coneNew[5] = fStartNew + (cone[1] - fStart)*3 + GetTriSubface_Static(ornt[1], 0); /* L */
5499 orntNew[5] = ornt[1] < 0 ? -1 : 1;
5500 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5500,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5501 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5501,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5502#if defined(PETSC_USE_DEBUG1)
5503 if ((newp+0 < cStartNew) || (newp+0 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+0, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5503,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+0,cStartNew,cEndNew);
5504 for (p = 0; p < 6; ++p) {
5505 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5505,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
5506 }
5507#endif
5508 /* B hex */
5509 coneNew[0] = fStartNew + (cone[0] - fStart)*3 + GetTriSubface_Static(ornt[0], 1); /* B */
5510 orntNew[0] = ornt[0] < 0 ? -2 : 0;
5511 coneNew[1] = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + 4; /* T */
5512 orntNew[1] = 0;
5513 coneNew[2] = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + 0; /* F */
5514 orntNew[2] = 0;
5515 coneNew[3] = fStartNew + (cone[3] - fStart)*3 + GetTriSubface_Static(ornt[3], 1); /* K */
5516 orntNew[3] = ornt[3] < 0 ? -2 : 0;
5517 coneNew[4] = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + 1; /* R */
5518 orntNew[4] = 0;
5519 coneNew[5] = fStartNew + (cone[1] - fStart)*3 + GetTriSubface_Static(ornt[1], 2); /* L */
5520 orntNew[5] = ornt[1] < 0 ? -4 : 2;
5521 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5521,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5522 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5522,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5523#if defined(PETSC_USE_DEBUG1)
5524 if ((newp+1 < cStartNew) || (newp+1 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+1, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5524,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+1,cStartNew,cEndNew);
5525 for (p = 0; p < 6; ++p) {
5526 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5526,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
5527 }
5528#endif
5529 /* C hex */
5530 coneNew[0] = fStartNew + (cone[0] - fStart)*3 + GetTriSubface_Static(ornt[0], 2); /* B */
5531 orntNew[0] = ornt[0] < 0 ? -4 : 2;
5532 coneNew[1] = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + 5; /* T */
5533 orntNew[1] = -4;
5534 coneNew[2] = fStartNew + (cone[2] - fStart)*3 + GetTriSubface_Static(ornt[2], 1); /* F */
5535 orntNew[2] = ornt[2] < 0 ? -2 : 0;
5536 coneNew[3] = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + 1; /* K */
5537 orntNew[3] = -1;
5538 coneNew[4] = fStartNew + (cone[3] - fStart)*3 + GetTriSubface_Static(ornt[3], 0); /* R */
5539 orntNew[4] = ornt[3] < 0 ? -1 : 1;
5540 coneNew[5] = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + 2; /* L */
5541 orntNew[5] = -4;
5542 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5542,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5543 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5543,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5544#if defined(PETSC_USE_DEBUG1)
5545 if ((newp+2 < cStartNew) || (newp+2 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+2, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5545,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+2,cStartNew,cEndNew);
5546 for (p = 0; p < 6; ++p) {
5547 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5547,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
5548 }
5549#endif
5550 /* D hex */
5551 coneNew[0] = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + 3; /* B */
5552 orntNew[0] = 0;
5553 coneNew[1] = fStartNew + (cone[3] - fStart)*3 + GetTriSubface_Static(ornt[3], 2); /* T */
5554 orntNew[1] = ornt[3] < 0 ? -1 : 1;
5555 coneNew[2] = fStartNew + (cone[2] - fStart)*3 + GetTriSubface_Static(ornt[2], 2); /* F */
5556 orntNew[2] = ornt[2] < 0 ? -4 : 2;
5557 coneNew[3] = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + 4; /* K */
5558 orntNew[3] = -1;
5559 coneNew[4] = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + 5; /* R */
5560 orntNew[4] = 0;
5561 coneNew[5] = fStartNew + (cone[1] - fStart)*3 + GetTriSubface_Static(ornt[1], 1); /* L */
5562 orntNew[5] = ornt[1] < 0 ? -2 : 0;
5563 ierr = DMPlexSetCone(rdm, newp+3, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5563,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5564 ierr = DMPlexSetConeOrientation(rdm, newp+3, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5564,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5565#if defined(PETSC_USE_DEBUG1)
5566 if ((newp+3 < cStartNew) || (newp+3 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+3, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5566,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+3,cStartNew,cEndNew);
5567 for (p = 0; p < 6; ++p) {
5568 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5568,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
5569 }
5570#endif
5571 }
5572 for (c = cMax; c < cEnd; ++c) {
5573 const PetscInt newp = cStartNew + (cMax - cStart)*4 + (c - cMax)*3;
5574 const PetscInt *cone, *ornt, *fornt;
5575 PetscInt coneNew[6], orntNew[6];
5576 PetscInt o, of, cf;
5577
5578 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5578,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5579#if defined(PETSC_USE_DEBUG1)
5580 if (cone[0] >= fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected hybrid face %D (fMax %D) in cone position 0 for cell %D", cone[0], fMax, c)return PetscError(((MPI_Comm)0x44000001),5580,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected hybrid face %D (fMax %D) in cone position 0 for cell %D"
,cone[0],fMax,c);
5581 if (cone[1] >= fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected hybrid face %D (fMax %D) in cone position 1 for cell %D", cone[1], fMax, c)return PetscError(((MPI_Comm)0x44000001),5581,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected hybrid face %D (fMax %D) in cone position 1 for cell %D"
,cone[1],fMax,c);
5582 if (cone[2] < fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected face %D (fMax %D) in cone position 2 for cell %D", cone[2], fMax, c)return PetscError(((MPI_Comm)0x44000001),5582,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected face %D (fMax %D) in cone position 2 for cell %D"
,cone[2],fMax,c);
5583 if (cone[3] < fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected face %D (fMax %D) in cone position 3 for cell %D", cone[3], fMax, c)return PetscError(((MPI_Comm)0x44000001),5583,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected face %D (fMax %D) in cone position 3 for cell %D"
,cone[3],fMax,c);
5584 if (cone[4] < fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected face %D (fMax %D) in cone position 4 for cell %D", cone[4], fMax, c)return PetscError(((MPI_Comm)0x44000001),5584,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected face %D (fMax %D) in cone position 4 for cell %D"
,cone[4],fMax,c);
5585#endif
5586 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5586,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5587 ierr = DMPlexGetConeOrientation(dm, cone[0], &fornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5587,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5588 o = ornt[0] < 0 ? -1 : 1;
5589 /* A hex */
5590 coneNew[0] = fStartNew + (cone[0] - fStart)*3 + GetTriSubface_Static(ornt[0], 0); /* B */
5591 orntNew[0] = ornt[0] < 0 ? -1 : 1;
5592 coneNew[1] = fStartNew + (cone[1] - fStart)*3 + GetTriSubface_Static(ornt[1], 0); /* T */
5593 orntNew[1] = ornt[1] < 0 ? 1 : -1;
5594 cf = GetTriEdge_Static(ornt[0], 2);
5595 of = fornt[cf] < 0 ? -1 : 1;
5596 coneNew[2] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (cone[2+cf] - fMax)*2 + (o*of < 0 ? 0 : 1); /* F */
5597 orntNew[2] = o*of < 0 ? 0 : -1;
5598 coneNew[3] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (fEnd - fMax)*2 + (c - cMax)*3 + 0; /* K */
5599 orntNew[3] = -1;
5600 coneNew[4] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (fEnd - fMax)*2 + (c - cMax)*3 + 2; /* R */
5601 orntNew[4] = 0;
5602 cf = GetTriEdge_Static(ornt[0], 0);
5603 of = fornt[cf] < 0 ? -1 : 1;
5604 coneNew[5] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (cone[2+cf] - fMax)*2 + (o*of < 0 ? 1 : 0); /* L */
5605 orntNew[5] = o*of < 0 ? 1 : -4;
5606 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5606,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5607 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5607,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5608#if defined(PETSC_USE_DEBUG1)
5609 if ((newp+0 < cStartNew) || (newp+0 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+0, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5609,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+0,cStartNew,cEndNew);
5610 for (p = 0; p < 6; ++p) {
5611 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5611,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
5612 }
5613#endif
5614 /* B hex */
5615 coneNew[0] = fStartNew + (cone[0] - fStart)*3 + GetTriSubface_Static(ornt[0], 1); /* B */
5616 orntNew[0] = ornt[0] < 0 ? -2 : 0;
5617 coneNew[1] = fStartNew + (cone[1] - fStart)*3 + GetTriSubface_Static(ornt[1], 1); /* T */
5618 orntNew[1] = ornt[1] < 0 ? 2 : -4;
5619 coneNew[2] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (fEnd - fMax)*2 + (c - cMax)*3 + 0; /* F */
5620 orntNew[2] = 0;
5621 cf = GetTriEdge_Static(ornt[0], 1);
5622 of = fornt[cf] < 0 ? -1 : 1;
5623 coneNew[3] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (cone[2+cf] - fMax)*2 + (o*of < 0 ? 1 : 0); /* K */
5624 orntNew[3] = o*of < 0 ? 0 : -1;
5625 coneNew[4] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (fEnd - fMax)*2 + (c - cMax)*3 + 1; /* R */
5626 orntNew[4] = -1;
5627 cf = GetTriEdge_Static(ornt[0], 0);
5628 of = fornt[cf] < 0 ? -1 : 1;
5629 coneNew[5] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (cone[2+cf] - fMax)*2 + (o*of < 0 ? 0 : 1); /* L */
5630 orntNew[5] = o*of < 0 ? 1 : -4;
5631 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5631,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5632 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5632,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5633#if defined(PETSC_USE_DEBUG1)
5634 if ((newp+1 < cStartNew) || (newp+1 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+1, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5634,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+1,cStartNew,cEndNew);
5635 for (p = 0; p < 6; ++p) {
5636 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5636,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
5637 }
5638#endif
5639 /* C hex */
5640 coneNew[0] = fStartNew + (cone[0] - fStart)*3 + GetTriSubface_Static(ornt[0], 2); /* B */
5641 orntNew[0] = ornt[0] < 0 ? -4 : 2;
5642 coneNew[1] = fStartNew + (cone[1] - fStart)*3 + GetTriSubface_Static(ornt[1], 2); /* T */
5643 orntNew[1] = ornt[1] < 0 ? 0 : -2;
5644 cf = GetTriEdge_Static(ornt[0], 2);
5645 of = fornt[cf] < 0 ? -1 : 1;
5646 coneNew[2] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (cone[2+cf] - fMax)*2 + (o*of < 0 ? 1 : 0); /* F */
5647 orntNew[2] = o*of < 0 ? 0 : -1;
5648 coneNew[3] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (fEnd - fMax)*2 + (c - cMax)*3 + 1; /* K */
5649 orntNew[3] = 0;
5650 cf = GetTriEdge_Static(ornt[0], 1);
5651 of = fornt[cf] < 0 ? -1 : 1;
5652 coneNew[4] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (cone[2+cf] - fMax)*2 + (o*of < 0 ? 0 : 1); /* R */
5653 orntNew[4] = o*of < 0 ? 0 : -1;
5654 coneNew[5] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (fEnd - fMax)*2 + (c - cMax)*3 + 2; /* L */
5655 orntNew[5] = -4;
5656 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5656,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5657 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5657,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5658#if defined(PETSC_USE_DEBUG1)
5659 if ((newp+2 < cStartNew) || (newp+2 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+2, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5659,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+2,cStartNew,cEndNew);
5660 for (p = 0; p < 6; ++p) {
5661 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5661,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
5662 }
5663#endif
5664 }
5665
5666 /* Split faces have 4 edges and the same cells as the parent */
5667 ierr = DMPlexGetMaxSizes(dm, NULL((void*)0), &maxSupportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5667,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5668 ierr = PetscMalloc1(2 + maxSupportSize*2, &supportRef)PetscMallocA(1,PETSC_FALSE,5668,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(2 + maxSupportSize*2)*sizeof(**(&supportRef)),(
&supportRef));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5668,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5669 for (f = fStart; f < fMax; ++f) {
5670 const PetscInt newp = fStartNew + (f - fStart)*3;
5671 const PetscInt *cone, *ornt, *support;
5672 PetscInt coneNew[4], orntNew[4], coneSize, supportSize, s;
5673
5674 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5674,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5675#if defined(PETSC_USE_DEBUG1)
5676 for (p = 0; p < 3; ++p) {
5677 if (cone[p] >= eMax) SETERRQ4(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected hybrid edge %D (eMax %D) in cone position %D for face %D", cone[p], p, eMax, f)return PetscError(((MPI_Comm)0x44000001),5677,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected hybrid edge %D (eMax %D) in cone position %D for face %D"
,cone[p],p,eMax,f);
5678 }
5679#endif
5680 ierr = DMPlexGetConeOrientation(dm, f, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5680,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5681 /* A quad */
5682 coneNew[0] = eStartNew + (cone[2] - eStart)*2 + (ornt[2] < 0 ? 0 : 1);
5683 orntNew[0] = ornt[2];
5684 coneNew[1] = eStartNew + (cone[0] - eStart)*2 + (ornt[0] < 0 ? 1 : 0);
5685 orntNew[1] = ornt[0];
5686 coneNew[2] = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + 0;
5687 orntNew[2] = 0;
5688 coneNew[3] = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + 2;
5689 orntNew[3] = -2;
5690 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5690,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5691 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5691,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5692#if defined(PETSC_USE_DEBUG1)
5693 if ((newp+0 < fStartNew) || (newp+0 >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+0, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5693,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+0,fStartNew,fEndNew);
5694 for (p = 0; p < 4; ++p) {
5695 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5695,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5696 }
5697#endif
5698 /* B quad */
5699 coneNew[0] = eStartNew + (cone[0] - eStart)*2 + (ornt[0] < 0 ? 0 : 1);
5700 orntNew[0] = ornt[0];
5701 coneNew[1] = eStartNew + (cone[1] - eStart)*2 + (ornt[1] < 0 ? 1 : 0);
5702 orntNew[1] = ornt[1];
5703 coneNew[2] = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + 1;
5704 orntNew[2] = 0;
5705 coneNew[3] = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + 0;
5706 orntNew[3] = -2;
5707 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5707,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5708 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5708,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5709#if defined(PETSC_USE_DEBUG1)
5710 if ((newp+1 < fStartNew) || (newp+1 >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+1, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5710,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+1,fStartNew,fEndNew);
5711 for (p = 0; p < 4; ++p) {
5712 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5712,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5713 }
5714#endif
5715 /* C quad */
5716 coneNew[0] = eStartNew + (cone[1] - eStart)*2 + (ornt[1] < 0 ? 0 : 1);
5717 orntNew[0] = ornt[1];
5718 coneNew[1] = eStartNew + (cone[2] - eStart)*2 + (ornt[2] < 0 ? 1 : 0);
5719 orntNew[1] = ornt[2];
5720 coneNew[2] = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + 2;
5721 orntNew[2] = 0;
5722 coneNew[3] = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + 1;
5723 orntNew[3] = -2;
5724 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5724,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5725 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5725,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5726#if defined(PETSC_USE_DEBUG1)
5727 if ((newp+2 < fStartNew) || (newp+2 >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+2, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5727,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+2,fStartNew,fEndNew);
5728 for (p = 0; p < 4; ++p) {
5729 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5729,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5730 }
5731#endif
5732 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5732,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5733 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5733,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5734 for (r = 0; r < 3; ++r) {
5735 for (s = 0; s < supportSize; ++s) {
5736 PetscInt subf;
5737
5738 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5738,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5739 if (coneSize != 5 && support[s] >= cMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected conesize %D for cell %D (cMax %D)", coneSize, support[s], cMax)return PetscError(((MPI_Comm)0x44000001),5739,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected conesize %D for cell %D (cMax %D)"
,coneSize,support[s],cMax);
5740 if (coneSize != 4 && support[s] < cMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected conesize %D for cell %D (cMax %D)", coneSize, support[s], cMax)return PetscError(((MPI_Comm)0x44000001),5740,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected conesize %D for cell %D (cMax %D)"
,coneSize,support[s],cMax);
5741 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5741,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5742 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5742,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5743 for (c = 0; c < coneSize; ++c) {
5744 if (cone[c] == f) break;
5745 }
5746 subf = GetTriSubfaceInverse_Static(ornt[c], r);
5747 if (coneSize == 4) {
5748 supportRef[s] = cStartNew + (support[s] - cStart)*4 + faces[c*3+subf];
5749 } else if (coneSize == 5) {
5750 if (c != 0 && c != 1) SETERRQ4(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected position %D in cone %D of cell %D (cMax %D) for face %D", c, support[s], cMax, f)return PetscError(((MPI_Comm)0x44000001),5750,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected position %D in cone %D of cell %D (cMax %D) for face %D"
,c,support[s],cMax,f);
5751 supportRef[s] = cStartNew + (cMax - cStart)*4 + (support[s] - cMax)*3 + subf;
5752 } else SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected conesize %D for cell %D (cMax %D)", coneSize, support[s], cMax)return PetscError(((MPI_Comm)0x44000001),5752,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected conesize %D for cell %D (cMax %D)"
,coneSize,support[s],cMax);
5753 }
5754 ierr = DMPlexSetSupport(rdm, newp+r, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5754,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5755#if defined(PETSC_USE_DEBUG1)
5756 if ((newp+r < fStartNew) || (newp+r >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+r, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5756,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+r,fStartNew,fEndNew);
5757 for (p = 0; p < supportSize; ++p) {
5758 if ((supportRef[p] < cStartNew) || (supportRef[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportRef[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5758,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportRef
[p],cStartNew,cEndNew);
5759 }
5760#endif
5761 }
5762 }
5763 /* Interior faces have 4 edges and 2 cells */
5764 for (c = cStart; c < cMax; ++c) {
5765 PetscInt newp = fStartNew + (fMax - fStart)*3 + (c - cStart)*6;
5766 const PetscInt *cone, *ornt;
5767 PetscInt coneNew[4], orntNew[4];
5768 PetscInt supportNew[2];
5769
5770 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5770,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5771#if defined(PETSC_USE_DEBUG1)
5772 for (p = 0; p < 4; ++p) {
5773 if (cone[p] >= fMax) SETERRQ4(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected hybrid face %D (fMax %D) in cone position %D for face %D", cone[p], p, fMax, f)return PetscError(((MPI_Comm)0x44000001),5773,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected hybrid face %D (fMax %D) in cone position %D for face %D"
,cone[p],p,fMax,f);
5774 }
5775#endif
5776 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5776,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5777 /* Face {a, g, m, h} */
5778 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*3 + GetTriInteriorEdge_Static(ornt[0],0);
5779 orntNew[0] = 0;
5780 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 0;
5781 orntNew[1] = 0;
5782 coneNew[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 1;
5783 orntNew[2] = -2;
5784 coneNew[3] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*3 + GetTriInteriorEdge_Static(ornt[1],2);
5785 orntNew[3] = -2;
5786 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5786,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5787 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5787,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5788#if defined(PETSC_USE_DEBUG1)
5789 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5789,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5790 for (p = 0; p < 4; ++p) {
5791 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5791,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5792 }
5793#endif
5794 supportNew[0] = cStartNew + (c - cStart)*4 + 0;
5795 supportNew[1] = cStartNew + (c - cStart)*4 + 1;
5796 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5796,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5797#if defined(PETSC_USE_DEBUG1)
5798 for (p = 0; p < 2; ++p) {
5799 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5799,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
5800 }
5801#endif
5802 ++newp;
5803 /* Face {g, b, l , m} */
5804 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*3 + GetTriInteriorEdge_Static(ornt[0],1);
5805 orntNew[0] = -2;
5806 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[3] - fStart)*3 + GetTriInteriorEdge_Static(ornt[3],0);
5807 orntNew[1] = 0;
5808 coneNew[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 3;
5809 orntNew[2] = 0;
5810 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 0;
5811 orntNew[3] = -2;
5812 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5812,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5813 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5813,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5814#if defined(PETSC_USE_DEBUG1)
5815 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5815,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5816 for (p = 0; p < 4; ++p) {
5817 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5817,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5818 }
5819#endif
5820 supportNew[0] = cStartNew + (c - cStart)*4 + 1;
5821 supportNew[1] = cStartNew + (c - cStart)*4 + 2;
5822 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5822,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5823#if defined(PETSC_USE_DEBUG1)
5824 for (p = 0; p < 2; ++p) {
5825 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5825,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
5826 }
5827#endif
5828 ++newp;
5829 /* Face {c, g, m, i} */
5830 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*3 + GetTriInteriorEdge_Static(ornt[0],2);
5831 orntNew[0] = 0;
5832 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 0;
5833 orntNew[1] = 0;
5834 coneNew[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 2;
5835 orntNew[2] = -2;
5836 coneNew[3] = eStartNew + (eMax - eStart)*2 + (cone[2] - fStart)*3 + GetTriInteriorEdge_Static(ornt[2],0);
5837 orntNew[3] = -2;
5838 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5838,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5839 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5839,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5840#if defined(PETSC_USE_DEBUG1)
5841 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5841,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5842 for (p = 0; p < 4; ++p) {
5843 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5843,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5844 }
5845#endif
5846 supportNew[0] = cStartNew + (c - cStart)*4 + 0;
5847 supportNew[1] = cStartNew + (c - cStart)*4 + 2;
5848 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5848,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5849#if defined(PETSC_USE_DEBUG1)
5850 for (p = 0; p < 2; ++p) {
5851 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5851,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
5852 }
5853#endif
5854 ++newp;
5855 /* Face {d, h, m, i} */
5856 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*3 + GetTriInteriorEdge_Static(ornt[1],0);
5857 orntNew[0] = 0;
5858 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 1;
5859 orntNew[1] = 0;
5860 coneNew[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 2;
5861 orntNew[2] = -2;
5862 coneNew[3] = eStartNew + (eMax - eStart)*2 + (cone[2] - fStart)*3 + GetTriInteriorEdge_Static(ornt[2],2);
5863 orntNew[3] = -2;
5864 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5864,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5865 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5865,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5866#if defined(PETSC_USE_DEBUG1)
5867 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5867,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5868 for (p = 0; p < 4; ++p) {
5869 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5869,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5870 }
5871#endif
5872 supportNew[0] = cStartNew + (c - cStart)*4 + 0;
5873 supportNew[1] = cStartNew + (c - cStart)*4 + 3;
5874 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5874,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5875#if defined(PETSC_USE_DEBUG1)
5876 for (p = 0; p < 2; ++p) {
5877 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5877,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
5878 }
5879#endif
5880 ++newp;
5881 /* Face {h, m, l, e} */
5882 coneNew[0] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 1;
5883 orntNew[0] = 0;
5884 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 3;
5885 orntNew[1] = -2;
5886 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[3] - fStart)*3 + GetTriInteriorEdge_Static(ornt[3],1);
5887 orntNew[2] = -2;
5888 coneNew[3] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*3 + GetTriInteriorEdge_Static(ornt[1],1);
5889 orntNew[3] = 0;
5890 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5890,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5891 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5891,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5892#if defined(PETSC_USE_DEBUG1)
5893 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5893,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5894 for (p = 0; p < 4; ++p) {
5895 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5895,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5896 }
5897#endif
5898 supportNew[0] = cStartNew + (c - cStart)*4 + 1;
5899 supportNew[1] = cStartNew + (c - cStart)*4 + 3;
5900 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5900,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5901#if defined(PETSC_USE_DEBUG1)
5902 for (p = 0; p < 2; ++p) {
5903 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5903,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
5904 }
5905#endif
5906 ++newp;
5907 /* Face {i, m, l, f} */
5908 coneNew[0] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 2;
5909 orntNew[0] = 0;
5910 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 3;
5911 orntNew[1] = -2;
5912 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[3] - fStart)*3 + GetTriInteriorEdge_Static(ornt[3],2);
5913 orntNew[2] = -2;
5914 coneNew[3] = eStartNew + (eMax - eStart)*2 + (cone[2] - fStart)*3 + GetTriInteriorEdge_Static(ornt[2],1);
5915 orntNew[3] = 0;
5916 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5916,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5917 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5917,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5918#if defined(PETSC_USE_DEBUG1)
5919 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5919,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5920 for (p = 0; p < 4; ++p) {
5921 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5921,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5922 }
5923#endif
5924 supportNew[0] = cStartNew + (c - cStart)*4 + 2;
5925 supportNew[1] = cStartNew + (c - cStart)*4 + 3;
5926 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5926,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5927#if defined(PETSC_USE_DEBUG1)
5928 for (p = 0; p < 2; ++p) {
5929 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),5929,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
5930 }
5931#endif
5932 ++newp;
5933 }
5934 /* Hybrid split faces have 4 edges and same cells */
5935 for (f = fMax; f < fEnd; ++f) {
5936 const PetscInt *cone, *ornt, *support;
5937 PetscInt coneNew[4], orntNew[4];
5938 PetscInt size, s;
5939 const PetscInt newp = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (f - fMax)*2;
5940
5941 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5941,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5942#if defined(PETSC_USE_DEBUG1)
5943 if (cone[0] >= eMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected hybrid edge %D (eMax %D) in cone position 0 for face %D", cone[0], eMax, f)return PetscError(((MPI_Comm)0x44000001),5943,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected hybrid edge %D (eMax %D) in cone position 0 for face %D"
,cone[0],eMax,f);
5944 if (cone[1] >= eMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected hybrid edge %D (eMax %D) in cone position 1 for face %D", cone[1], eMax, f)return PetscError(((MPI_Comm)0x44000001),5944,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected hybrid edge %D (eMax %D) in cone position 1 for face %D"
,cone[1],eMax,f);
5945 if (cone[2] < eMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected edge %D (eMax %D) in cone position 2 for face %D", cone[2], eMax, f)return PetscError(((MPI_Comm)0x44000001),5945,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected edge %D (eMax %D) in cone position 2 for face %D"
,cone[2],eMax,f);
5946 if (cone[3] < eMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected edge %D (eMax %D) in cone position 3 for face %D", cone[3], eMax, f)return PetscError(((MPI_Comm)0x44000001),5946,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected edge %D (eMax %D) in cone position 3 for face %D"
,cone[3],eMax,f);
5947#endif
5948 ierr = DMPlexGetConeOrientation(dm, f, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5948,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5949 /* A face */
5950 coneNew[0] = eStartNew + (cone[0] - eStart)*2 + (ornt[0] < 0 ? 1 : 0);
5951 orntNew[0] = ornt[0];
5952 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (f - fMax);
5953 orntNew[1] = 0;
5954 coneNew[2] = eStartNew + (cone[1] - eStart)*2 + (ornt[1] < 0 ? 1 : 0);
5955 orntNew[2] = ornt[1] < 0 ? 0 : -2;
5956 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (cone[2] - eMax);
5957 orntNew[3] = ornt[2] < 0 ? 0 : -2;
5958 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5958,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5959 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5959,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5960#if defined(PETSC_USE_DEBUG1)
5961 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5961,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
5962 for (p = 0; p < 4; ++p) {
5963 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5963,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5964 }
5965#endif
5966
5967 /* B face */
5968 coneNew[0] = eStartNew + (cone[0] - eStart)*2 + (ornt[0] < 0 ? 0 : 1);
5969 orntNew[0] = ornt[0];
5970 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (cone[3] - eMax);
5971 orntNew[1] = ornt[3];
5972 coneNew[2] = eStartNew + (cone[1] - eStart)*2 + (ornt[1] < 0 ? 0 : 1);
5973 orntNew[2] = ornt[1] < 0 ? 0 : -2;
5974 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (f - fMax);
5975 orntNew[3] = -2;
5976 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5976,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5977 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5977,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5978#if defined(PETSC_USE_DEBUG1)
5979 if ((newp+1 < fStartNew) || (newp+1 >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp+1, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),5979,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
+1,fStartNew,fEndNew);
5980 for (p = 0; p < 4; ++p) {
5981 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),5981,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
5982 }
5983#endif
5984
5985 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5985,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5986 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5986,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5987 for (r = 0; r < 2; ++r) {
5988 for (s = 0; s < size; ++s) {
5989 const PetscInt *coneCell, *orntCell, *fornt;
5990 PetscInt coneSize, o, of, c;
5991
5992 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5992,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5993 if (coneSize != 5 || support[s] < cMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected conesize %D for cell %D (cMax %D)", coneSize, support[s], cMax)return PetscError(((MPI_Comm)0x44000001),5993,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected conesize %D for cell %D (cMax %D)"
,coneSize,support[s],cMax);
5994 ierr = DMPlexGetCone(dm, support[s], &coneCell);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5994,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5995 ierr = DMPlexGetConeOrientation(dm, support[s], &orntCell);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),5995,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
5996 o = orntCell[0] < 0 ? -1 : 1;
5997 for (c = 0; c < coneSize; ++c) if (coneCell[c] == f) break;
5998 if (c == 0 || c == 1) SETERRQ4(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected position in cone %D of cell %D (cMax %D) for face %D", c, support[s], cMax, f)return PetscError(((MPI_Comm)0x44000001),5998,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected position in cone %D of cell %D (cMax %D) for face %D"
,c,support[s],cMax,f);
5999 if (c == coneSize) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Could not find face %D in cone of cell %D", f, support[s])return PetscError(((MPI_Comm)0x44000001),5999,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Could not find face %D in cone of cell %D"
,f,support[s]);
6000 ierr = DMPlexGetConeOrientation(dm, coneCell[0], &fornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6000,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6001 of = fornt[c-2] < 0 ? -1 : 1;
6002 supportRef[s] = cStartNew + (cMax - cStart)*4 + (support[s] - cMax)*3 + (GetTriEdgeInverse_Static(orntCell[0], c-2) + (o*of < 0 ? 1-r : r))%3;
6003 }
6004 ierr = DMPlexSetSupport(rdm, newp + r, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6004,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6005#if defined(PETSC_USE_DEBUG1)
6006 for (p = 0; p < size; ++p) {
6007 if ((supportRef[p] < cStartNew) || (supportRef[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportRef[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),6007,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportRef
[p],cStartNew,cEndNew);
6008 }
6009#endif
6010 }
6011 }
6012 /* Interior hybrid faces have 4 edges and 2 cells */
6013 for (c = cMax; c < cEnd; ++c) {
6014 PetscInt newp = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (fEnd - fMax)*2 + (c - cMax)*3;
6015 const PetscInt *cone, *ornt;
6016 PetscInt coneNew[4], orntNew[4];
6017 PetscInt supportNew[2];
6018
6019 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6019,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6020#if defined(PETSC_USE_DEBUG1)
6021 if (cone[0] >= fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected hybrid face %D (fMax %D) in cone position 0 for cell %D", cone[0], fMax, c)return PetscError(((MPI_Comm)0x44000001),6021,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected hybrid face %D (fMax %D) in cone position 0 for cell %D"
,cone[0],fMax,c);
6022 if (cone[1] >= fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected hybrid face %D (fMax %D) in cone position 1 for cell %D", cone[1], fMax, c)return PetscError(((MPI_Comm)0x44000001),6022,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected hybrid face %D (fMax %D) in cone position 1 for cell %D"
,cone[1],fMax,c);
6023 if (cone[2] < fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected face %D (fMax %D) in cone position 2 for cell %D", cone[2], fMax, c)return PetscError(((MPI_Comm)0x44000001),6023,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected face %D (fMax %D) in cone position 2 for cell %D"
,cone[2],fMax,c);
6024 if (cone[3] < fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected face %D (fMax %D) in cone position 3 for cell %D", cone[3], fMax, c)return PetscError(((MPI_Comm)0x44000001),6024,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected face %D (fMax %D) in cone position 3 for cell %D"
,cone[3],fMax,c);
6025 if (cone[4] < fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected face %D (fMax %D) in cone position 3 for cell %D", cone[3], fMax, c)return PetscError(((MPI_Comm)0x44000001),6025,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected face %D (fMax %D) in cone position 3 for cell %D"
,cone[3],fMax,c);
6026#endif
6027 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6027,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6028 /* Face {a, g, h, d} */
6029 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*3 + GetTriInteriorEdge_Static(ornt[0],0);
6030 orntNew[0] = 0;
6031 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (fEnd - fMax) + c - cMax;
6032 orntNew[1] = 0;
6033 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*3 + GetTriInteriorEdge_Static(ornt[1],0);
6034 orntNew[2] = -2;
6035 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (cone[2] - fMax);
6036 orntNew[3] = -2;
6037 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6037,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6038 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6038,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6039#if defined(PETSC_USE_DEBUG1)
6040 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6040,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6041 for (p = 0; p < 4; ++p) {
6042 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6042,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6043 }
6044#endif
6045 supportNew[0] = cStartNew + (cMax - cStart)*4 + (c - cMax)*3 + 0;
6046 supportNew[1] = cStartNew + (cMax - cStart)*4 + (c - cMax)*3 + 1;
6047 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6047,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6048#if defined(PETSC_USE_DEBUG1)
6049 for (p = 0; p < 2; ++p) {
6050 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),6050,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
6051 }
6052#endif
6053 ++newp;
6054 /* Face {b, g, h, l} */
6055 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*3 + GetTriInteriorEdge_Static(ornt[0],1);
6056 orntNew[0] = 0;
6057 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (fEnd - fMax) + c - cMax;
6058 orntNew[1] = 0;
6059 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*3 + GetTriInteriorEdge_Static(ornt[1],1);
6060 orntNew[2] = -2;
6061 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (cone[3] - fMax);
6062 orntNew[3] = -2;
6063 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6063,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6064 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6064,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6065#if defined(PETSC_USE_DEBUG1)
6066 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6066,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6067 for (p = 0; p < 4; ++p) {
6068 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6068,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6069 }
6070#endif
6071 supportNew[0] = cStartNew + (cMax - cStart)*4 + (c - cMax)*3 + 1;
6072 supportNew[1] = cStartNew + (cMax - cStart)*4 + (c - cMax)*3 + 2;
6073 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6073,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6074#if defined(PETSC_USE_DEBUG1)
6075 for (p = 0; p < 2; ++p) {
6076 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),6076,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
6077 }
6078#endif
6079 ++newp;
6080 /* Face {c, g, h, f} */
6081 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*3 + GetTriInteriorEdge_Static(ornt[0],2);
6082 orntNew[0] = 0;
6083 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (fEnd - fMax) + c - cMax;
6084 orntNew[1] = 0;
6085 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*3 + GetTriInteriorEdge_Static(ornt[1],2);
6086 orntNew[2] = -2;
6087 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (cone[4] - fMax);
6088 orntNew[3] = -2;
6089 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6089,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6090 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6090,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6091#if defined(PETSC_USE_DEBUG1)
6092 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6092,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6093 for (p = 0; p < 4; ++p) {
6094 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6094,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6095 }
6096#endif
6097 supportNew[0] = cStartNew + (cMax - cStart)*4 + (c - cMax)*3 + 2;
6098 supportNew[1] = cStartNew + (cMax - cStart)*4 + (c - cMax)*3 + 0;
6099 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6099,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6100#if defined(PETSC_USE_DEBUG1)
6101 for (p = 0; p < 2; ++p) {
6102 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),6102,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
6103 }
6104#endif
6105 }
6106 /* Face edges have 2 vertices and 2 + cell faces supports */
6107 for (f = fStart; f < fMax; ++f) {
6108 const PetscInt *cone, *ornt, *support;
6109 PetscInt coneSize, supportSize, s;
6110
6111 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6111,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6112 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6112,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6113 for (r = 0; r < 3; ++r) {
6114 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + r;
6115 PetscInt coneNew[2];
6116 PetscInt fint[4][3] = { {0, 1, 2},
6117 {3, 4, 0},
6118 {2, 5, 3},
6119 {1, 4, 5} };
6120
6121 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6121,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6122 if (cone[r] >= eMax) SETERRQ4(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected cone point %D in position %D for face %D (eMax %D)", cone[r], r, f, eMax)return PetscError(((MPI_Comm)0x44000001),6122,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected cone point %D in position %D for face %D (eMax %D)"
,cone[r],r,f,eMax);
6123 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[r] - eStart);
6124 coneNew[1] = vStartNew + (vEnd - vStart) + (eMax - eStart) + f - fStart;
6125 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6125,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6126#if defined(PETSC_USE_DEBUG1)
6127 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6127,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
6128 for (p = 0; p < 2; ++p) {
6129 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),6129,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
6130 }
6131#endif
6132 supportRef[0] = fStartNew + (f - fStart)*3 + (r+0)%3;
6133 supportRef[1] = fStartNew + (f - fStart)*3 + (r+1)%3;
6134 for (s = 0; s < supportSize; ++s) {
6135 PetscInt er;
6136
6137 supportRef[2+s] = -1;
6138 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6138,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6139 if (coneSize != 5 && support[s] >= cMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected conesize %D for cell %D (cMax %D)", coneSize, support[s], cMax)return PetscError(((MPI_Comm)0x44000001),6139,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected conesize %D for cell %D (cMax %D)"
,coneSize,support[s],cMax);
6140 if (coneSize != 4 && support[s] < cMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected conesize %D for cell %D (cMax %D)", coneSize, support[s], cMax)return PetscError(((MPI_Comm)0x44000001),6140,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected conesize %D for cell %D (cMax %D)"
,coneSize,support[s],cMax);
6141 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6141,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6142 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6142,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6143 for (c = 0; c < coneSize; ++c) {if (cone[c] == f) break;}
6144 er = GetTriInteriorEdgeInverse_Static(ornt[c], r);
6145 if (coneSize == 4) {
6146 supportRef[2+s] = fStartNew + (fMax - fStart)*3 + (support[s] - cStart)*6 + fint[c][er];
6147 } else if (coneSize == 5) {
6148 if (c != 0 && c != 1) SETERRQ4(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected position %D in cone %D of cell %D (cMax %D) for face %D", c, support[s], cMax, f)return PetscError(((MPI_Comm)0x44000001),6148,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected position %D in cone %D of cell %D (cMax %D) for face %D"
,c,support[s],cMax,f);
6149 supportRef[2+s] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (fEnd - fMax)*2 + (support[s] - cMax)*3 + er;
6150 }
6151 }
6152 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6152,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6153#if defined(PETSC_USE_DEBUG1)
6154 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6154,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
6155 for (p = 0; p < supportSize + 2; ++p) {
6156 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6156,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
6157 }
6158#endif
6159 }
6160 }
6161 /* Interior cell edges have 2 vertices and 3 faces */
6162 for (c = cStart; c < cMax; ++c) {
6163 const PetscInt *cone;
6164 PetscInt fint[4][3] = { {0,1,2},
6165 {0,3,4},
6166 {2,3,5},
6167 {1,4,5} } ;
6168
6169 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6169,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6170 for (r = 0; r < 4; r++) {
6171 PetscInt coneNew[2], supportNew[3];
6172 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + r;
6173
6174 if (cone[r] >= fMax) SETERRQ4(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected hybrid face %D (fMax %D) in cone position %D for cell %D", cone[r], r, fMax, c)return PetscError(((MPI_Comm)0x44000001),6174,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected hybrid face %D (fMax %D) in cone position %D for cell %D"
,cone[r],r,fMax,c);
6175 coneNew[0] = vStartNew + (vEnd - vStart) + (eMax - eStart) + (cone[r] - fStart);
6176 coneNew[1] = vStartNew + (vEnd - vStart) + (eMax - eStart) + (fMax -fStart) + c - cStart;
6177 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6177,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6178#if defined(PETSC_USE_DEBUG1)
6179 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6179,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
6180 for (p = 0; p < 2; ++p) {
6181 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),6181,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
6182 }
6183#endif
6184 supportNew[0] = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + fint[r][0];
6185 supportNew[1] = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + fint[r][1];
6186 supportNew[2] = fStartNew + (fMax - fStart)*3 + (c - cStart)*6 + fint[r][2];
6187 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6187,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6188#if defined(PETSC_USE_DEBUG1)
6189 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6189,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
6190 for (p = 0; p < 3; ++p) {
6191 if ((supportNew[p] < fStartNew) || (supportNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6191,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportNew
[p],fStartNew,fEndNew);
6192 }
6193#endif
6194 }
6195 }
6196 /* Hybrid edges have two vertices and the same faces */
6197 for (e = eMax; e < eEnd; ++e) {
6198 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (e - eMax);
6199 const PetscInt *cone, *support, *fcone;
6200 PetscInt coneNew[2], size, fsize, s;
6201
6202 ierr = DMPlexGetCone(dm, e, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6202,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6203 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6203,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6204 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6204,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6205 coneNew[0] = vStartNew + (cone[0] - vStart);
6206 coneNew[1] = vStartNew + (cone[1] - vStart);
6207 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6207,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6208#if defined(PETSC_USE_DEBUG1)
6209 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is a edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6209,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is a edge [%D, %D)",newp,eStartNew
,eEndNew);
6210 for (p = 0; p < 2; ++p) {
6211 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),6211,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
6212 }
6213#endif
6214 for (s = 0; s < size; ++s) {
6215 ierr = DMPlexGetConeSize(dm, support[s], &fsize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6215,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6216 ierr = DMPlexGetCone(dm, support[s], &fcone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6216,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6217 for (c = 0; c < fsize; ++c) if (fcone[c] == e) break;
6218 if ((c < 2) || (c > 3)) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Edge %D not found in cone of face %D", e, support[s])return PetscError(((MPI_Comm)0x44000001),6218,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Edge %D not found in cone of face %D"
,e,support[s]);
6219 supportRef[s] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (support[s] - fMax)*2 + c-2;
6220 }
6221 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6221,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6222#if defined(PETSC_USE_DEBUG1)
6223 for (p = 0; p < size; ++p) {
6224 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6224,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
6225 }
6226#endif
6227 }
6228 /* Hybrid face edges have 2 vertices and 2 + cell faces supports */
6229 for (f = fMax; f < fEnd; ++f) {
6230 const PetscInt *cone, *ornt, *support;
6231 PetscInt coneSize, supportSize;
6232 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + f - fMax;
6233 PetscInt coneNew[2], s;
6234
6235 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6235,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6236#if defined(PETSC_USE_DEBUG1)
6237 if (cone[0] >= eMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected cone point %D in position 0 for face %D (eMax %D)", cone[0], f, eMax)return PetscError(((MPI_Comm)0x44000001),6237,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected cone point %D in position 0 for face %D (eMax %D)"
,cone[0],f,eMax);
6238 if (cone[1] >= eMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected cone point %D in position 1 for face %D (eMax %D)", cone[1], f, eMax)return PetscError(((MPI_Comm)0x44000001),6238,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected cone point %D in position 1 for face %D (eMax %D)"
,cone[1],f,eMax);
6239#endif
6240 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[0] - eStart);
6241 coneNew[1] = vStartNew + (vEnd - vStart) + (cone[1] - eStart);
6242 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6242,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6243#if defined(PETSC_USE_DEBUG1)
6244 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6244,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
6245 for (p = 0; p < 2; ++p) {
6246 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),6246,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
6247 }
6248#endif
6249 supportRef[0] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (f- fMax)*2 + 0;
6250 supportRef[1] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (f- fMax)*2 + 1;
6251 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6251,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6252 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6252,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6253 for (s = 0; s < supportSize; ++s) {
6254 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6254,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6255 if (coneSize != 5 || support[s] < cMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected conesize %D for cell %D (cMax %D)", coneSize, support[s], cMax)return PetscError(((MPI_Comm)0x44000001),6255,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected conesize %D for cell %D (cMax %D)"
,coneSize,support[s],cMax);
6256 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6256,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6257 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6257,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6258 for (c = 0; c < coneSize; ++c) {if (cone[c] == f) break;}
6259 if (c == 0 || c == 1) SETERRQ4(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected position in cone %D of cell %D (cMax %D) for face %D", c, support[s], cMax, f)return PetscError(((MPI_Comm)0x44000001),6259,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected position in cone %D of cell %D (cMax %D) for face %D"
,c,support[s],cMax,f);
6260 supportRef[2+s] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (fEnd - fMax)*2 + (support[s] - cMax)*3 + c - 2;
6261 }
6262 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6262,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6263#if defined(PETSC_USE_DEBUG1)
6264 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6264,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
6265 for (p = 0; p < supportSize + 2; ++p) {
6266 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6266,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
6267 }
6268#endif
6269 }
6270 /* Hybrid cell edges have 2 vertices and 3 faces */
6271 for (c = cMax; c < cEnd; ++c) {
6272 PetscInt coneNew[2], supportNew[3];
6273 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (fEnd - fMax) + c - cMax;
6274 const PetscInt *cone;
6275
6276 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6276,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6277#if defined(PETSC_USE_DEBUG1)
6278 if (cone[0] >= fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected hybrid face %D (fMax %D) in cone position 0 for cell %D", cone[0], fMax, c)return PetscError(((MPI_Comm)0x44000001),6278,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected hybrid face %D (fMax %D) in cone position 0 for cell %D"
,cone[0],fMax,c);
6279 if (cone[1] >= fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected hybrid face %D (fMax %D) in cone position 1 for cell %D", cone[1], fMax, c)return PetscError(((MPI_Comm)0x44000001),6279,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected hybrid face %D (fMax %D) in cone position 1 for cell %D"
,cone[1],fMax,c);
6280#endif
6281 coneNew[0] = vStartNew + (vEnd - vStart) + (eMax - eStart) + (cone[0] - fStart);
6282 coneNew[1] = vStartNew + (vEnd - vStart) + (eMax - eStart) + (cone[1] - fStart);
6283 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6283,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6284#if defined(PETSC_USE_DEBUG1)
6285 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6285,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
6286 for (p = 0; p < 2; ++p) {
6287 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),6287,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
6288 }
6289#endif
6290 supportNew[0] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (fEnd - fMax)*2 + (c - cMax)*3 + 0;
6291 supportNew[1] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (fEnd - fMax)*2 + (c - cMax)*3 + 1;
6292 supportNew[2] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (fEnd - fMax)*2 + (c - cMax)*3 + 2;
6293 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6293,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6294#if defined(PETSC_USE_DEBUG1)
6295 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6295,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
6296 for (p = 0; p < 3; ++p) {
6297 if ((supportNew[p] < fStartNew) || (supportNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6297,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportNew
[p],fStartNew,fEndNew);
6298 }
6299#endif
6300 }
6301 /* Old vertices have identical supports */
6302 for (v = vStart; v < vEnd; ++v) {
6303 const PetscInt newp = vStartNew + (v - vStart);
6304 const PetscInt *support, *cone;
6305 PetscInt size, s;
6306
6307 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6307,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6308 ierr = DMPlexGetSupport(dm, v, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6308,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6309 for (s = 0; s < size; ++s) {
6310 const PetscInt e = support[s];
6311
6312 supportRef[s] = -1;
6313 if (eStart <= e) {
6314 if (e < eMax) {
6315 ierr = DMPlexGetCone(dm, e, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6315,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6316 supportRef[s] = eStartNew + (e - eStart)*2 + (cone[1] == v ? 1 : 0);
6317 } else if (e < eEnd) {
6318 supportRef[s] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + e - eMax;
6319 } else SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", e, eStart, eEnd)return PetscError(((MPI_Comm)0x44000001),6319,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",e,
eStart,eEnd);
6320 } else SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", e, eStart, eEnd)return PetscError(((MPI_Comm)0x44000001),6320,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",e,
eStart,eEnd);
6321 }
6322 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6322,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6323#if defined(PETSC_USE_DEBUG1)
6324 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),6324,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
6325 for (p = 0; p < size; ++p) {
6326 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6326,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
6327 }
6328#endif
6329 }
6330 /* Interior edge vertices have 2 + faces supports */
6331 for (e = eStart; e < eMax; ++e) {
6332 const PetscInt newp = vStartNew + (vEnd - vStart) + (e - eStart);
6333 const PetscInt *cone, *support;
6334 PetscInt size, s;
6335
6336 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6336,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6337 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6337,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6338 supportRef[0] = eStartNew + (e - eStart)*2 + 0;
6339 supportRef[1] = eStartNew + (e - eStart)*2 + 1;
6340 for (s = 0; s < size; ++s) {
6341 PetscInt r, coneSize;
6342
6343 supportRef[2+s] = -1;
6344 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6344,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6345 if (coneSize != 4 && support[s] >= fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected conesize %D for face %D (fMax %D)", coneSize, support[s], fMax)return PetscError(((MPI_Comm)0x44000001),6345,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected conesize %D for face %D (fMax %D)"
,coneSize,support[s],fMax);
6346 if (coneSize != 3 && support[s] < fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected conesize %D for face %D (fMax %D)", coneSize, support[s], fMax)return PetscError(((MPI_Comm)0x44000001),6346,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected conesize %D for face %D (fMax %D)"
,coneSize,support[s],fMax);
6347 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6347,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6348 for (r = 0; r < coneSize; ++r) {if (cone[r] == e) break;}
6349 if (coneSize == 3) supportRef[2+s] = eStartNew + (eMax - eStart)*2 + (support[s] - fStart)*3 + r;
6350 else if (coneSize == 4) {
6351 if (r != 0 && r != 1) SETERRQ4(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected position in cone %D of face %D (fMax %D) for edge %D", r, support[s], fMax, e)return PetscError(((MPI_Comm)0x44000001),6351,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected position in cone %D of face %D (fMax %D) for edge %D"
,r,support[s],fMax,e);
6352 supportRef[2+s] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + support[s] - fMax;
6353 } else SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected conesize %D for face %D (fMax %D)", coneSize, support[s], fMax)return PetscError(((MPI_Comm)0x44000001),6353,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected conesize %D for face %D (fMax %D)"
,coneSize,support[s],fMax);
6354 }
6355 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6355,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6356#if defined(PETSC_USE_DEBUG1)
6357 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),6357,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
6358 for (p = 0; p < 2+size; ++p) {
6359 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6359,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
6360 }
6361#endif
6362 }
6363 /* Split Edges have 2 vertices and the same faces as the parent */
6364 for (e = eStart; e < eMax; ++e) {
6365 const PetscInt newv = vStartNew + (vEnd - vStart) + (e - eStart);
6366
6367 for (r = 0; r < 2; ++r) {
6368 const PetscInt newp = eStartNew + (e - eStart)*2 + r;
6369 const PetscInt *cone, *ornt, *support;
6370 PetscInt coneNew[2], coneSize, c, supportSize, s;
6371
6372 ierr = DMPlexGetCone(dm, e, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6372,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6373 coneNew[0] = vStartNew + (cone[0] - vStart);
6374 coneNew[1] = vStartNew + (cone[1] - vStart);
6375 coneNew[(r+1)%2] = newv;
6376 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6376,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6377#if defined(PETSC_USE_DEBUG1)
6378 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6378,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
6379 for (p = 0; p < 2; ++p) {
6380 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),6380,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
6381 }
6382#endif
6383 ierr = DMPlexGetSupportSize(dm, e, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6383,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6384 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6384,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6385 for (s = 0; s < supportSize; ++s) {
6386 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6386,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6387 if (coneSize != 4 && support[s] >= fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected conesize %D for face %D (fMax %D)", coneSize, support[s], fMax)return PetscError(((MPI_Comm)0x44000001),6387,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected conesize %D for face %D (fMax %D)"
,coneSize,support[s],fMax);
6388 if (coneSize != 3 && support[s] < fMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected conesize %D for face %D (fMax %D)", coneSize, support[s], fMax)return PetscError(((MPI_Comm)0x44000001),6388,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected conesize %D for face %D (fMax %D)"
,coneSize,support[s],fMax);
6389 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6389,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6390 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6390,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6391 for (c = 0; c < coneSize; ++c) {
6392 if (cone[c] == e) break;
6393 }
6394 if (coneSize == 3) supportRef[s] = fStartNew + (support[s] - fStart)*3 + (c + (ornt[c] < 0 ? 1-r : r))%3;
6395 else if (coneSize == 4) {
6396 if (c != 0 && c != 1) SETERRQ4(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected position in cone %D of face %D (fMax %D) for edge %D", c, support[s], fMax, e)return PetscError(((MPI_Comm)0x44000001),6396,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected position in cone %D of face %D (fMax %D) for edge %D"
,c,support[s],fMax,e);
6397 supportRef[s] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (support[s] - fMax)*2 + (ornt[c] < 0 ? 1-r : r);
6398 } else SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected conesize %D for face %D (fMax %D)", coneSize, support[s], fMax)return PetscError(((MPI_Comm)0x44000001),6398,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected conesize %D for face %D (fMax %D)"
,coneSize,support[s],fMax);
6399 }
6400 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6400,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6401#if defined(PETSC_USE_DEBUG1)
6402 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6402,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
6403 for (p = 0; p < supportSize; ++p) {
6404 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6404,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
6405 }
6406#endif
6407 }
6408 }
6409 /* Face vertices have 3 + cells supports */
6410 for (f = fStart; f < fMax; ++f) {
6411 const PetscInt newp = vStartNew + (vEnd - vStart) + (eMax - eStart) + (f - fStart);
6412 const PetscInt *cone, *support;
6413 PetscInt size, s;
6414
6415 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6415,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6416 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6416,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6417 supportRef[0] = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + 0;
6418 supportRef[1] = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + 1;
6419 supportRef[2] = eStartNew + (eMax - eStart)*2 + (f - fStart)*3 + 2;
6420 for (s = 0; s < size; ++s) {
6421 PetscInt r, coneSize;
6422
6423 supportRef[3+s] = -1;
6424 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6424,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6425 if (coneSize != 5 && support[s] >= cMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected conesize %D for cell %D (cMax %D)", coneSize, support[s], cMax)return PetscError(((MPI_Comm)0x44000001),6425,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected conesize %D for cell %D (cMax %D)"
,coneSize,support[s],cMax);
6426 if (coneSize != 4 && support[s] < cMax) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected conesize %D for cell %D (cMax %D)", coneSize, support[s], cMax)return PetscError(((MPI_Comm)0x44000001),6426,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected conesize %D for cell %D (cMax %D)"
,coneSize,support[s],cMax);
6427 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6427,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6428 for (r = 0; r < coneSize; ++r) {if (cone[r] == f) break;}
6429 if (coneSize == 4) supportRef[3+s] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (support[s] - cStart)*4 + r;
6430 else if (coneSize == 5) {
6431 if (r != 0 && r != 1) SETERRQ4(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unexpected position in cone %D of cell %D (cMax %D) for face %D", r, support[s], cMax, f)return PetscError(((MPI_Comm)0x44000001),6431,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unexpected position in cone %D of cell %D (cMax %D) for face %D"
,r,support[s],cMax,f);
6432 supportRef[3+s] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (fEnd - fMax) + support[s] - cMax;
6433 }
6434 }
6435 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6435,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6436#if defined(PETSC_USE_DEBUG1)
6437 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),6437,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
6438 for (p = 0; p < 3+size; ++p) {
6439 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6439,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
6440 }
6441#endif
6442 }
6443 /* Interior cell vertices have 4 supports */
6444 for (c = cStart; c < cMax; ++c) {
6445 const PetscInt newp = vStartNew + (vEnd - vStart) + (eMax - eStart) + (fMax - fStart) + c - cStart;
6446
6447 supportRef[0] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 0;
6448 supportRef[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 1;
6449 supportRef[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 2;
6450 supportRef[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (c - cStart)*4 + 3;
6451 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6451,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6452#if defined(PETSC_USE_DEBUG1)
6453 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),6453,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
6454 for (p = 0; p < 4; ++p) {
6455 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6455,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
6456 }
6457#endif
6458 }
6459 ierr = PetscFree(supportRef)((*PetscTrFree)((void*)(supportRef),6459,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((supportRef) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6459,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6460 ierr = DMPlexRestoreFaces_Internal(dm, 3, cStart, NULL((void*)0), NULL((void*)0), &faces);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6460,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6461 break;
6462 case REFINER_HEX_3D:
6463 /*
6464 Bottom (viewed from top) Top
6465 1---------2---------2 7---------2---------6
6466 | | | | | |
6467 | B 2 C | | H 2 G |
6468 | | | | | |
6469 3----3----0----1----1 3----3----0----1----1
6470 | | | | | |
6471 | A 0 D | | E 0 F |
6472 | | | | | |
6473 0---------0---------3 4---------0---------5
6474 */
6475 /* All cells have 6 faces: Bottom, Top, Front, Back, Right, Left */
6476 for (c = cStart; c < cEnd; ++c) {
6477 const PetscInt newp = (c - cStart)*8;
6478 const PetscInt *cone, *ornt;
6479 PetscInt coneNew[6], orntNew[6];
6480
6481 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6481,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6482 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6482,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6483 /* A hex */
6484 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + GetQuadSubface_Static(ornt[0], 0);
6485 orntNew[0] = ornt[0];
6486 coneNew[1] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 8; /* AE */
6487 orntNew[1] = 0;
6488 coneNew[2] = fStartNew + (cone[2] - fStart)*4 + GetQuadSubface_Static(ornt[2], 0);
6489 orntNew[2] = ornt[2];
6490 coneNew[3] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 3; /* AB */
6491 orntNew[3] = 0;
6492 coneNew[4] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 0; /* AD */
6493 orntNew[4] = 0;
6494 coneNew[5] = fStartNew + (cone[5] - fStart)*4 + GetQuadSubface_Static(ornt[5], 0);
6495 orntNew[5] = ornt[5];
6496 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6496,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6497 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6497,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6498#if defined(PETSC_USE_DEBUG1)
6499 if ((newp+0 < cStartNew) || (newp+0 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+0, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),6499,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+0,cStartNew,cEndNew);
6500 for (p = 0; p < 6; ++p) {
6501 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6501,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
6502 }
6503#endif
6504 /* B hex */
6505 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + GetQuadSubface_Static(ornt[0], 1);
6506 orntNew[0] = ornt[0];
6507 coneNew[1] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 11; /* BH */
6508 orntNew[1] = 0;
6509 coneNew[2] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 3; /* AB */
6510 orntNew[2] = -1;
6511 coneNew[3] = fStartNew + (cone[3] - fStart)*4 + GetQuadSubface_Static(ornt[3], 1);
6512 orntNew[3] = ornt[3];
6513 coneNew[4] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 2; /* BC */
6514 orntNew[4] = 0;
6515 coneNew[5] = fStartNew + (cone[5] - fStart)*4 + GetQuadSubface_Static(ornt[5], 3);
6516 orntNew[5] = ornt[5];
6517 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6517,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6518 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6518,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6519#if defined(PETSC_USE_DEBUG1)
6520 if ((newp+1 < cStartNew) || (newp+1 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+1, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),6520,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+1,cStartNew,cEndNew);
6521 for (p = 0; p < 6; ++p) {
6522 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6522,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
6523 }
6524#endif
6525 /* C hex */
6526 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + GetQuadSubface_Static(ornt[0], 2);
6527 orntNew[0] = ornt[0];
6528 coneNew[1] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 10; /* CG */
6529 orntNew[1] = 0;
6530 coneNew[2] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 1; /* CD */
6531 orntNew[2] = -1;
6532 coneNew[3] = fStartNew + (cone[3] - fStart)*4 + GetQuadSubface_Static(ornt[3], 0);
6533 orntNew[3] = ornt[3];
6534 coneNew[4] = fStartNew + (cone[4] - fStart)*4 + GetQuadSubface_Static(ornt[4], 1);
6535 orntNew[4] = ornt[4];
6536 coneNew[5] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 2; /* BC */
6537 orntNew[5] = -4;
6538 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6538,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6539 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6539,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6540#if defined(PETSC_USE_DEBUG1)
6541 if ((newp+2 < cStartNew) || (newp+2 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+2, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),6541,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+2,cStartNew,cEndNew);
6542 for (p = 0; p < 6; ++p) {
6543 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6543,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
6544 }
6545#endif
6546 /* D hex */
6547 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + GetQuadSubface_Static(ornt[0], 3);
6548 orntNew[0] = ornt[0];
6549 coneNew[1] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 9; /* DF */
6550 orntNew[1] = 0;
6551 coneNew[2] = fStartNew + (cone[2] - fStart)*4 + GetQuadSubface_Static(ornt[2], 1);
6552 orntNew[2] = ornt[2];
6553 coneNew[3] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 1; /* CD */
6554 orntNew[3] = 0;
6555 coneNew[4] = fStartNew + (cone[4] - fStart)*4 + GetQuadSubface_Static(ornt[4], 0);
6556 orntNew[4] = ornt[4];
6557 coneNew[5] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 0; /* AD */
6558 orntNew[5] = -4;
6559 ierr = DMPlexSetCone(rdm, newp+3, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6559,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6560 ierr = DMPlexSetConeOrientation(rdm, newp+3, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6560,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6561#if defined(PETSC_USE_DEBUG1)
6562 if ((newp+3 < cStartNew) || (newp+3 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+3, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),6562,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+3,cStartNew,cEndNew);
6563 for (p = 0; p < 6; ++p) {
6564 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6564,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
6565 }
6566#endif
6567 /* E hex */
6568 coneNew[0] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 8; /* AE */
6569 orntNew[0] = -4;
6570 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + GetQuadSubface_Static(ornt[1], 0);
6571 orntNew[1] = ornt[1];
6572 coneNew[2] = fStartNew + (cone[2] - fStart)*4 + GetQuadSubface_Static(ornt[2], 3);
6573 orntNew[2] = ornt[2];
6574 coneNew[3] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 7; /* EH */
6575 orntNew[3] = 0;
6576 coneNew[4] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 4; /* EF */
6577 orntNew[4] = -1;
6578 coneNew[5] = fStartNew + (cone[5] - fStart)*4 + GetQuadSubface_Static(ornt[5], 1);
6579 orntNew[5] = ornt[5];
6580 ierr = DMPlexSetCone(rdm, newp+4, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6580,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6581 ierr = DMPlexSetConeOrientation(rdm, newp+4, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6581,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6582#if defined(PETSC_USE_DEBUG1)
6583 if ((newp+4 < cStartNew) || (newp+4 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+4, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),6583,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+4,cStartNew,cEndNew);
6584 for (p = 0; p < 6; ++p) {
6585 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6585,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
6586 }
6587#endif
6588 /* F hex */
6589 coneNew[0] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 9; /* DF */
6590 orntNew[0] = -4;
6591 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + GetQuadSubface_Static(ornt[1], 1);
6592 orntNew[1] = ornt[1];
6593 coneNew[2] = fStartNew + (cone[2] - fStart)*4 + GetQuadSubface_Static(ornt[2], 2);
6594 orntNew[2] = ornt[2];
6595 coneNew[3] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 5; /* FG */
6596 orntNew[3] = -1;
6597 coneNew[4] = fStartNew + (cone[4] - fStart)*4 + GetQuadSubface_Static(ornt[4], 3);
6598 orntNew[4] = ornt[4];
6599 coneNew[5] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 4; /* EF */
6600 orntNew[5] = 1;
6601 ierr = DMPlexSetCone(rdm, newp+5, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6601,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6602 ierr = DMPlexSetConeOrientation(rdm, newp+5, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6602,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6603#if defined(PETSC_USE_DEBUG1)
6604 if ((newp+5 < cStartNew) || (newp+5 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+5, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),6604,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+5,cStartNew,cEndNew);
6605 for (p = 0; p < 6; ++p) {
6606 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6606,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
6607 }
6608#endif
6609 /* G hex */
6610 coneNew[0] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 10; /* CG */
6611 orntNew[0] = -4;
6612 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + GetQuadSubface_Static(ornt[1], 2);
6613 orntNew[1] = ornt[1];
6614 coneNew[2] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 5; /* FG */
6615 orntNew[2] = 0;
6616 coneNew[3] = fStartNew + (cone[3] - fStart)*4 + GetQuadSubface_Static(ornt[3], 3);
6617 orntNew[3] = ornt[3];
6618 coneNew[4] = fStartNew + (cone[4] - fStart)*4 + GetQuadSubface_Static(ornt[4], 2);
6619 orntNew[4] = ornt[4];
6620 coneNew[5] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 6; /* GH */
6621 orntNew[5] = -3;
6622 ierr = DMPlexSetCone(rdm, newp+6, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6622,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6623 ierr = DMPlexSetConeOrientation(rdm, newp+6, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6623,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6624#if defined(PETSC_USE_DEBUG1)
6625 if ((newp+6 < cStartNew) || (newp+6 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+6, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),6625,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+6,cStartNew,cEndNew);
6626 for (p = 0; p < 6; ++p) {
6627 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6627,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
6628 }
6629#endif
6630 /* H hex */
6631 coneNew[0] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 11; /* BH */
6632 orntNew[0] = -4;
6633 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + GetQuadSubface_Static(ornt[1], 3);
6634 orntNew[1] = ornt[1];
6635 coneNew[2] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 7; /* EH */
6636 orntNew[2] = -1;
6637 coneNew[3] = fStartNew + (cone[3] - fStart)*4 + GetQuadSubface_Static(ornt[3], 2);
6638 orntNew[3] = ornt[3];
6639 coneNew[4] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 6; /* GH */
6640 orntNew[4] = 3;
6641 coneNew[5] = fStartNew + (cone[5] - fStart)*4 + GetQuadSubface_Static(ornt[5], 2);
6642 orntNew[5] = ornt[5];
6643 ierr = DMPlexSetCone(rdm, newp+7, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6643,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6644 ierr = DMPlexSetConeOrientation(rdm, newp+7, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6644,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6645#if defined(PETSC_USE_DEBUG1)
6646 if ((newp+7 < cStartNew) || (newp+7 >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+7, cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),6646,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+7,cStartNew,cEndNew);
6647 for (p = 0; p < 6; ++p) {
6648 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6648,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fEndNew);
6649 }
6650#endif
6651 }
6652 /* Split faces have 4 edges and the same cells as the parent */
6653 ierr = DMPlexGetMaxSizes(dm, NULL((void*)0), &maxSupportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6653,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6654 ierr = PetscMalloc1(4 + maxSupportSize*2, &supportRef)PetscMallocA(1,PETSC_FALSE,6654,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(4 + maxSupportSize*2)*sizeof(**(&supportRef)),(
&supportRef));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6654,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6655 for (f = fStart; f < fEnd; ++f) {
6656 for (r = 0; r < 4; ++r) {
6657 /* TODO: This can come from GetFaces_Internal() */
6658 const PetscInt newCells[24] = {0, 1, 2, 3, 4, 5, 6, 7, 0, 3, 5, 4, 2, 1, 7, 6, 3, 2, 6, 5, 0, 4, 7, 1};
6659 const PetscInt newp = fStartNew + (f - fStart)*4 + r;
6660 const PetscInt *cone, *ornt, *support;
6661 PetscInt coneNew[4], orntNew[4], coneSize, c, supportSize, s;
6662
6663 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6663,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6664 ierr = DMPlexGetConeOrientation(dm, f, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6664,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6665 coneNew[(r+3)%4] = eStartNew + (cone[(r+3)%4] - eStart)*2 + (ornt[(r+3)%4] < 0 ? 0 : 1);
6666 orntNew[(r+3)%4] = ornt[(r+3)%4];
6667 coneNew[(r+0)%4] = eStartNew + (cone[r] - eStart)*2 + (ornt[r] < 0 ? 1 : 0);
6668 orntNew[(r+0)%4] = ornt[r];
6669 coneNew[(r+1)%4] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*4 + r;
6670 orntNew[(r+1)%4] = 0;
6671 coneNew[(r+2)%4] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*4 + (r+3)%4;
6672 orntNew[(r+2)%4] = -2;
6673 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6673,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6674 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6674,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6675#if defined(PETSC_USE_DEBUG1)
6676 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6676,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6677 for (p = 0; p < 4; ++p) {
6678 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6678,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6679 }
6680#endif
6681 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6681,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6682 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6682,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6683 for (s = 0; s < supportSize; ++s) {
6684 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6684,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6685 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6685,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6686 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6686,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6687 for (c = 0; c < coneSize; ++c) {
6688 if (cone[c] == f) break;
6689 }
6690 supportRef[s] = cStartNew + (support[s] - cStart)*8 + newCells[c*4+GetQuadSubfaceInverse_Static(ornt[c], r)];
6691 }
6692 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6692,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6693#if defined(PETSC_USE_DEBUG1)
6694 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6694,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6695 for (p = 0; p < supportSize; ++p) {
6696 if ((supportRef[p] < cStartNew) || (supportRef[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportRef[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),6696,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportRef
[p],cStartNew,cEndNew);
6697 }
6698#endif
6699 }
6700 }
6701 /* Interior faces have 4 edges and 2 cells */
6702 for (c = cStart; c < cEnd; ++c) {
6703 const PetscInt newCells[24] = {0, 3, 2, 3, 1, 2, 0, 1, 4, 5, 5, 6, 6, 7, 4, 7, 0, 4, 3, 5, 2, 6, 1, 7};
6704 const PetscInt *cone, *ornt;
6705 PetscInt newp, coneNew[4], orntNew[4], supportNew[2];
6706
6707 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6707,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6708 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6708,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6709 /* A-D face */
6710 newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 0;
6711 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[0] - fStart)*4 + GetQuadEdge_Static(ornt[0], 3);
6712 orntNew[0] = 0;
6713 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 0;
6714 orntNew[1] = 0;
6715 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 2;
6716 orntNew[2] = -2;
6717 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (cone[2] - fStart)*4 + GetQuadEdge_Static(ornt[2], 0);
6718 orntNew[3] = -2;
6719 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6719,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6720 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6720,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6721#if defined(PETSC_USE_DEBUG1)
6722 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6722,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6723 for (p = 0; p < 4; ++p) {
6724 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6724,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6725 }
6726#endif
6727 /* C-D face */
6728 newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 1;
6729 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[0] - fStart)*4 + GetQuadEdge_Static(ornt[0], 2);
6730 orntNew[0] = 0;
6731 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 0;
6732 orntNew[1] = 0;
6733 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 4;
6734 orntNew[2] = -2;
6735 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (cone[4] - fStart)*4 + GetQuadEdge_Static(ornt[4], 0);
6736 orntNew[3] = -2;
6737 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6737,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6738 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6738,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6739#if defined(PETSC_USE_DEBUG1)
6740 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6740,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6741 for (p = 0; p < 4; ++p) {
6742 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6742,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6743 }
6744#endif
6745 /* B-C face */
6746 newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 2;
6747 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[0] - fStart)*4 + GetQuadEdge_Static(ornt[0], 1);
6748 orntNew[0] = -2;
6749 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (cone[3] - fStart)*4 + GetQuadEdge_Static(ornt[3], 0);
6750 orntNew[1] = 0;
6751 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 3;
6752 orntNew[2] = 0;
6753 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 0;
6754 orntNew[3] = -2;
6755 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6755,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6756 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6756,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6757#if defined(PETSC_USE_DEBUG1)
6758 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6758,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6759 for (p = 0; p < 4; ++p) {
6760 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6760,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6761 }
6762#endif
6763 /* A-B face */
6764 newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 3;
6765 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[0] - fStart)*4 + GetQuadEdge_Static(ornt[0], 0);
6766 orntNew[0] = -2;
6767 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (cone[5] - fStart)*4 + GetQuadEdge_Static(ornt[5], 3);
6768 orntNew[1] = 0;
6769 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 5;
6770 orntNew[2] = 0;
6771 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 0;
6772 orntNew[3] = -2;
6773 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6773,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6774 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6774,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6775#if defined(PETSC_USE_DEBUG1)
6776 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6776,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6777 for (p = 0; p < 4; ++p) {
6778 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6778,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6779 }
6780#endif
6781 /* E-F face */
6782 newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 4;
6783 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 2;
6784 orntNew[0] = -2;
6785 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (cone[2] - fStart)*4 + GetQuadEdge_Static(ornt[2], 2);
6786 orntNew[1] = -2;
6787 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (cone[1] - fStart)*4 + GetQuadEdge_Static(ornt[1], 0);
6788 orntNew[2] = 0;
6789 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 1;
6790 orntNew[3] = 0;
6791 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6791,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6792 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6792,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6793#if defined(PETSC_USE_DEBUG1)
6794 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6794,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6795 for (p = 0; p < 4; ++p) {
6796 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6796,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6797 }
6798#endif
6799 /* F-G face */
6800 newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 5;
6801 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 4;
6802 orntNew[0] = -2;
6803 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (cone[4] - fStart)*4 + GetQuadEdge_Static(ornt[4], 2);
6804 orntNew[1] = -2;
6805 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (cone[1] - fStart)*4 + GetQuadEdge_Static(ornt[1], 1);
6806 orntNew[2] = 0;
6807 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 1;
6808 orntNew[3] = 0;
6809 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6809,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6810 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6810,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6811#if defined(PETSC_USE_DEBUG1)
6812 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6812,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6813 for (p = 0; p < 4; ++p) {
6814 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6814,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6815 }
6816#endif
6817 /* G-H face */
6818 newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 6;
6819 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[3] - fStart)*4 + GetQuadEdge_Static(ornt[3], 2);
6820 orntNew[0] = -2;
6821 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (cone[1] - fStart)*4 + GetQuadEdge_Static(ornt[1], 2);
6822 orntNew[1] = 0;
6823 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 1;
6824 orntNew[2] = 0;
6825 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 3;
6826 orntNew[3] = -2;
6827 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6827,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6828 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6828,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6829#if defined(PETSC_USE_DEBUG1)
6830 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6830,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6831 for (p = 0; p < 4; ++p) {
6832 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6832,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6833 }
6834#endif
6835 /* E-H face */
6836 newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 7;
6837 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 5;
6838 orntNew[0] = -2;
6839 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (cone[5] - fStart)*4 + GetQuadEdge_Static(ornt[5], 1);
6840 orntNew[1] = -2;
6841 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (cone[1] - fStart)*4 + GetQuadEdge_Static(ornt[1], 3);
6842 orntNew[2] = 0;
6843 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 1;
6844 orntNew[3] = 0;
6845 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6845,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6846 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6846,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6847#if defined(PETSC_USE_DEBUG1)
6848 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6848,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6849 for (p = 0; p < 4; ++p) {
6850 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6850,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6851 }
6852#endif
6853 /* A-E face */
6854 newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 8;
6855 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[2] - fStart)*4 + GetQuadEdge_Static(ornt[2], 3);
6856 orntNew[0] = 0;
6857 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 2;
6858 orntNew[1] = 0;
6859 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 5;
6860 orntNew[2] = -2;
6861 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (cone[5] - fStart)*4 + GetQuadEdge_Static(ornt[5], 0);
6862 orntNew[3] = -2;
6863 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6863,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6864 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6864,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6865#if defined(PETSC_USE_DEBUG1)
6866 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6866,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6867 for (p = 0; p < 4; ++p) {
6868 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6868,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6869 }
6870#endif
6871 /* D-F face */
6872 newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 9;
6873 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (cone[2] - fStart)*4 + GetQuadEdge_Static(ornt[2], 1);
6874 orntNew[0] = -2;
6875 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (cone[4] - fStart)*4 + GetQuadEdge_Static(ornt[4], 3);
6876 orntNew[1] = 0;
6877 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 4;
6878 orntNew[2] = 0;
6879 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 2;
6880 orntNew[3] = -2;
6881 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6881,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6882 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6882,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6883#if defined(PETSC_USE_DEBUG1)
6884 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6884,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6885 for (p = 0; p < 4; ++p) {
6886 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6886,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6887 }
6888#endif
6889 /* C-G face */
6890 newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 10;
6891 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 4;
6892 orntNew[0] = -2;
6893 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (cone[4] - fStart)*4 + GetQuadEdge_Static(ornt[4], 1);
6894 orntNew[1] = -2;
6895 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (cone[3] - fStart)*4 + GetQuadEdge_Static(ornt[3], 3);
6896 orntNew[2] = 0;
6897 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 3;
6898 orntNew[3] = 0;
6899 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6899,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6900 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6900,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6901#if defined(PETSC_USE_DEBUG1)
6902 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6902,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6903 for (p = 0; p < 4; ++p) {
6904 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6904,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6905 }
6906#endif
6907 /* B-H face */
6908 newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + 11;
6909 coneNew[0] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 5;
6910 orntNew[0] = 0;
6911 coneNew[1] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + 3;
6912 orntNew[1] = -2;
6913 coneNew[2] = eStartNew + (eEnd - eStart)*2 + (cone[3] - fStart)*4 + GetQuadEdge_Static(ornt[3], 1);
6914 orntNew[2] = -2;
6915 coneNew[3] = eStartNew + (eEnd - eStart)*2 + (cone[5] - fStart)*4 + GetQuadEdge_Static(ornt[5], 2);
6916 orntNew[3] = 0;
6917 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6917,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6918 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6918,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6919#if defined(PETSC_USE_DEBUG1)
6920 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6920,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6921 for (p = 0; p < 4; ++p) {
6922 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6922,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eEndNew);
6923 }
6924#endif
6925 for (r = 0; r < 12; ++r) {
6926 newp = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + r;
6927 supportNew[0] = cStartNew + (c - cStart)*8 + newCells[r*2+0];
6928 supportNew[1] = cStartNew + (c - cStart)*8 + newCells[r*2+1];
6929 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6929,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6930#if defined(PETSC_USE_DEBUG1)
6931 if ((newp < fStartNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6931,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fEndNew);
6932 for (p = 0; p < 2; ++p) {
6933 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),6933,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cEndNew);
6934 }
6935#endif
6936 }
6937 }
6938 /* Split edges have 2 vertices and the same faces as the parent */
6939 ierr = DMPlexGetMaxSizes(dm, NULL((void*)0), &maxSupportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6939,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6940 for (e = eStart; e < eEnd; ++e) {
6941 const PetscInt newv = vStartNew + (vEnd - vStart) + (e - eStart);
6942
6943 for (r = 0; r < 2; ++r) {
6944 const PetscInt newp = eStartNew + (e - eStart)*2 + r;
6945 const PetscInt *cone, *ornt, *support;
6946 PetscInt coneNew[2], coneSize, c, supportSize, s;
6947
6948 ierr = DMPlexGetCone(dm, e, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6948,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6949 coneNew[0] = vStartNew + (cone[0] - vStart);
6950 coneNew[1] = vStartNew + (cone[1] - vStart);
6951 coneNew[(r+1)%2] = newv;
6952 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6952,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6953#if defined(PETSC_USE_DEBUG1)
6954 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6954,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
6955 for (p = 0; p < 2; ++p) {
6956 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),6956,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
6957 }
6958#endif
6959 ierr = DMPlexGetSupportSize(dm, e, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6959,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6960 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6960,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6961 for (s = 0; s < supportSize; ++s) {
6962 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6962,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6963 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6963,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6964 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6964,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6965 for (c = 0; c < coneSize; ++c) {
6966 if (cone[c] == e) break;
6967 }
6968 supportRef[s] = fStartNew + (support[s] - fStart)*4 + (ornt[c] < 0 ? (c+1-r)%4 : (c+r)%4);
6969 }
6970 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6970,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6971#if defined(PETSC_USE_DEBUG1)
6972 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6972,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
6973 for (p = 0; p < supportSize; ++p) {
6974 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),6974,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
6975 }
6976#endif
6977 }
6978 }
6979 /* Face edges have 2 vertices and 2+cells faces */
6980 for (f = fStart; f < fEnd; ++f) {
6981 const PetscInt newFaces[24] = {3, 2, 1, 0, 4, 5, 6, 7, 0, 9, 4, 8, 2, 11, 6, 10, 1, 10, 5, 9, 8, 7, 11, 3};
6982 const PetscInt newv = vStartNew + (vEnd - vStart) + (eEnd - eStart) + (f - fStart);
6983 const PetscInt *cone, *coneCell, *orntCell, *support;
6984 PetscInt coneNew[2], coneSize, c, supportSize, s;
6985
6986 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6986,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6987 for (r = 0; r < 4; ++r) {
6988 const PetscInt newp = eStartNew + (eEnd - eStart)*2 + (f - fStart)*4 + r;
6989
6990 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[r] - eStart);
6991 coneNew[1] = newv;
6992 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6992,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
6993#if defined(PETSC_USE_DEBUG1)
6994 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),6994,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
6995 for (p = 0; p < 2; ++p) {
6996 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),6996,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
6997 }
6998#endif
6999 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),6999,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7000 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7000,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7001 supportRef[0] = fStartNew + (f - fStart)*4 + r;
7002 supportRef[1] = fStartNew + (f - fStart)*4 + (r+1)%4;
7003 for (s = 0; s < supportSize; ++s) {
7004 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7004,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7005 ierr = DMPlexGetCone(dm, support[s], &coneCell);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7005,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7006 ierr = DMPlexGetConeOrientation(dm, support[s], &orntCell);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7006,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7007 for (c = 0; c < coneSize; ++c) if (coneCell[c] == f) break;
7008 supportRef[2+s] = fStartNew + (fEnd - fStart)*4 + (support[s] - cStart)*12 + newFaces[c*4 + GetQuadEdgeInverse_Static(orntCell[c], r)];
7009 }
7010 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7010,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7011#if defined(PETSC_USE_DEBUG1)
7012 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),7012,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
7013 for (p = 0; p < 2+supportSize; ++p) {
7014 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),7014,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
7015 }
7016#endif
7017 }
7018 }
7019 /* Cell edges have 2 vertices and 4 faces */
7020 for (c = cStart; c < cEnd; ++c) {
7021 const PetscInt newFaces[24] = {0, 1, 2, 3, 4, 5, 6, 7, 0, 9, 4, 8, 2, 11, 6, 10, 1, 10, 5, 9, 3, 8, 7, 11};
7022 const PetscInt newv = vStartNew + (vEnd - vStart) + (eEnd - eStart) + (fEnd - fStart) + (c - cStart);
7023 const PetscInt *cone;
7024 PetscInt coneNew[2], supportNew[4];
7025
7026 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7026,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7027 for (r = 0; r < 6; ++r) {
7028 const PetscInt newp = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + r;
7029
7030 coneNew[0] = vStartNew + (vEnd - vStart) + (eEnd - eStart) + (cone[r] - fStart);
7031 coneNew[1] = newv;
7032 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7032,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7033#if defined(PETSC_USE_DEBUG1)
7034 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),7034,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
7035 for (p = 0; p < 2; ++p) {
7036 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),7036,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
7037 }
7038#endif
7039 for (f = 0; f < 4; ++f) supportNew[f] = fStartNew + (fEnd - fStart)*4 + (c - cStart)*12 + newFaces[r*4+f];
7040 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7040,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7041#if defined(PETSC_USE_DEBUG1)
7042 if ((newp < eStartNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),7042,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eEndNew);
7043 for (p = 0; p < 4; ++p) {
7044 if ((supportNew[p] < fStartNew) || (supportNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportNew[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),7044,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportNew
[p],fStartNew,fEndNew);
7045 }
7046#endif
7047 }
7048 }
7049 /* Old vertices have identical supports */
7050 for (v = vStart; v < vEnd; ++v) {
7051 const PetscInt newp = vStartNew + (v - vStart);
7052 const PetscInt *support, *cone;
7053 PetscInt size, s;
7054
7055 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7055,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7056 ierr = DMPlexGetSupport(dm, v, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7056,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7057 for (s = 0; s < size; ++s) {
7058 PetscInt r = 0;
7059
7060 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7060,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7061 if (cone[1] == v) r = 1;
7062 supportRef[s] = eStartNew + (support[s] - eStart)*2 + r;
7063 }
7064 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7064,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7065#if defined(PETSC_USE_DEBUG1)
7066 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),7066,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
7067 for (p = 0; p < size; ++p) {
7068 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),7068,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
7069 }
7070#endif
7071 }
7072 /* Edge vertices have 2 + faces supports */
7073 for (e = eStart; e < eEnd; ++e) {
7074 const PetscInt newp = vStartNew + (vEnd - vStart) + (e - eStart);
7075 const PetscInt *cone, *support;
7076 PetscInt size, s;
7077
7078 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7078,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7079 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7079,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7080 supportRef[0] = eStartNew + (e - eStart)*2 + 0;
7081 supportRef[1] = eStartNew + (e - eStart)*2 + 1;
7082 for (s = 0; s < size; ++s) {
7083 PetscInt r;
7084
7085 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7085,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7086 for (r = 0; r < 4; ++r) if (cone[r] == e) break;
7087 supportRef[2+s] = eStartNew + (eEnd - eStart)*2 + (support[s] - fStart)*4 + r;
7088 }
7089 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7089,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7090#if defined(PETSC_USE_DEBUG1)
7091 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),7091,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
7092 for (p = 0; p < 2+size; ++p) {
7093 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),7093,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
7094 }
7095#endif
7096 }
7097 /* Face vertices have 4 + cells supports */
7098 for (f = fStart; f < fEnd; ++f) {
7099 const PetscInt newp = vStartNew + (vEnd - vStart) + (eEnd - eStart) + (f - fStart);
7100 const PetscInt *cone, *support;
7101 PetscInt size, s;
7102
7103 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7103,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7104 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7104,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7105 for (r = 0; r < 4; ++r) supportRef[r] = eStartNew + (eEnd - eStart)*2 + (f - fStart)*4 + r;
7106 for (s = 0; s < size; ++s) {
7107 PetscInt r;
7108
7109 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7109,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7110 for (r = 0; r < 6; ++r) if (cone[r] == f) break;
7111 supportRef[4+s] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (support[s] - cStart)*6 + r;
7112 }
7113 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7113,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7114#if defined(PETSC_USE_DEBUG1)
7115 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),7115,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
7116 for (p = 0; p < 4+size; ++p) {
7117 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),7117,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
7118 }
7119#endif
7120 }
7121 /* Cell vertices have 6 supports */
7122 for (c = cStart; c < cEnd; ++c) {
7123 const PetscInt newp = vStartNew + (vEnd - vStart) + (eEnd - eStart) + (fEnd - fStart) + (c - cStart);
7124 PetscInt supportNew[6];
7125
7126 for (r = 0; r < 6; ++r) {
7127 supportNew[r] = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (c - cStart)*6 + r;
7128 }
7129 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7129,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7130 }
7131 ierr = PetscFree(supportRef)((*PetscTrFree)((void*)(supportRef),7131,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((supportRef) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7131,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7132 break;
7133 case REFINER_HYBRID_HEX_3D:
7134 ierr = DMPlexGetHybridBounds(rdm, &cMaxNew, &fMaxNew, &eMaxNew, NULL((void*)0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7134,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7135 /*
7136 Bottom (viewed from top) Top
7137 1---------2---------2 7---------2---------6
7138 | | | | | |
7139 | B 2 C | | H 2 G |
7140 | | | | | |
7141 3----3----0----1----1 3----3----0----1----1
7142 | | | | | |
7143 | A 0 D | | E 0 F |
7144 | | | | | |
7145 0---------0---------3 4---------0---------5
7146 */
7147 /* Interior cells have 6 faces: Bottom, Top, Front, Back, Right, Left */
7148 for (c = cStart; c < cMax; ++c) {
7149 const PetscInt newp = (c - cStart)*8;
7150 const PetscInt *cone, *ornt;
7151 PetscInt coneNew[6], orntNew[6];
7152
7153 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7153,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7154 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7154,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7155 /* A hex */
7156 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + GetQuadSubface_Static(ornt[0], 0);
7157 orntNew[0] = ornt[0];
7158 coneNew[1] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 8; /* AE */
7159 orntNew[1] = 0;
7160 coneNew[2] = fStartNew + (cone[2] - fStart)*4 + GetQuadSubface_Static(ornt[2], 0);
7161 orntNew[2] = ornt[2];
7162 coneNew[3] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 3; /* AB */
7163 orntNew[3] = 0;
7164 coneNew[4] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 0; /* AD */
7165 orntNew[4] = 0;
7166 coneNew[5] = fStartNew + (cone[5] - fStart)*4 + GetQuadSubface_Static(ornt[5], 0);
7167 orntNew[5] = ornt[5];
7168 ierr = DMPlexSetCone(rdm, newp+0, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7168,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7169 ierr = DMPlexSetConeOrientation(rdm, newp+0, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7169,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7170#if defined(PETSC_USE_DEBUG1)
7171 if ((newp+0 < cStartNew) || (newp+0 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+0, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),7171,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+0,cStartNew,cMaxNew);
7172 for (p = 0; p < 6; ++p) {
7173 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7173,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
7174 }
7175#endif
7176 /* B hex */
7177 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + GetQuadSubface_Static(ornt[0], 1);
7178 orntNew[0] = ornt[0];
7179 coneNew[1] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 11; /* BH */
7180 orntNew[1] = 0;
7181 coneNew[2] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 3; /* AB */
7182 orntNew[2] = -1;
7183 coneNew[3] = fStartNew + (cone[3] - fStart)*4 + GetQuadSubface_Static(ornt[3], 1);
7184 orntNew[3] = ornt[3];
7185 coneNew[4] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 2; /* BC */
7186 orntNew[4] = 0;
7187 coneNew[5] = fStartNew + (cone[5] - fStart)*4 + GetQuadSubface_Static(ornt[5], 3);
7188 orntNew[5] = ornt[5];
7189 ierr = DMPlexSetCone(rdm, newp+1, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7189,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7190 ierr = DMPlexSetConeOrientation(rdm, newp+1, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7190,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7191#if defined(PETSC_USE_DEBUG1)
7192 if ((newp+1 < cStartNew) || (newp+1 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+1, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),7192,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+1,cStartNew,cMaxNew);
7193 for (p = 0; p < 6; ++p) {
7194 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7194,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
7195 }
7196#endif
7197 /* C hex */
7198 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + GetQuadSubface_Static(ornt[0], 2);
7199 orntNew[0] = ornt[0];
7200 coneNew[1] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 10; /* CG */
7201 orntNew[1] = 0;
7202 coneNew[2] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 1; /* CD */
7203 orntNew[2] = -1;
7204 coneNew[3] = fStartNew + (cone[3] - fStart)*4 + GetQuadSubface_Static(ornt[3], 0);
7205 orntNew[3] = ornt[3];
7206 coneNew[4] = fStartNew + (cone[4] - fStart)*4 + GetQuadSubface_Static(ornt[4], 1);
7207 orntNew[4] = ornt[4];
7208 coneNew[5] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 2; /* BC */
7209 orntNew[5] = -4;
7210 ierr = DMPlexSetCone(rdm, newp+2, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7210,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7211 ierr = DMPlexSetConeOrientation(rdm, newp+2, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7211,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7212#if defined(PETSC_USE_DEBUG1)
7213 if ((newp+2 < cStartNew) || (newp+2 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+2, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),7213,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+2,cStartNew,cMaxNew);
7214 for (p = 0; p < 6; ++p) {
7215 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7215,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
7216 }
7217#endif
7218 /* D hex */
7219 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + GetQuadSubface_Static(ornt[0], 3);
7220 orntNew[0] = ornt[0];
7221 coneNew[1] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 9; /* DF */
7222 orntNew[1] = 0;
7223 coneNew[2] = fStartNew + (cone[2] - fStart)*4 + GetQuadSubface_Static(ornt[2], 1);
7224 orntNew[2] = ornt[2];
7225 coneNew[3] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 1; /* CD */
7226 orntNew[3] = 0;
7227 coneNew[4] = fStartNew + (cone[4] - fStart)*4 + GetQuadSubface_Static(ornt[4], 0);
7228 orntNew[4] = ornt[4];
7229 coneNew[5] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 0; /* AD */
7230 orntNew[5] = -4;
7231 ierr = DMPlexSetCone(rdm, newp+3, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7231,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7232 ierr = DMPlexSetConeOrientation(rdm, newp+3, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7232,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7233#if defined(PETSC_USE_DEBUG1)
7234 if ((newp+3 < cStartNew) || (newp+3 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+3, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),7234,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+3,cStartNew,cMaxNew);
7235 for (p = 0; p < 6; ++p) {
7236 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7236,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
7237 }
7238#endif
7239 /* E hex */
7240 coneNew[0] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 8; /* AE */
7241 orntNew[0] = -4;
7242 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + GetQuadSubface_Static(ornt[1], 0);
7243 orntNew[1] = ornt[1];
7244 coneNew[2] = fStartNew + (cone[2] - fStart)*4 + GetQuadSubface_Static(ornt[2], 3);
7245 orntNew[2] = ornt[2];
7246 coneNew[3] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 7; /* EH */
7247 orntNew[3] = 0;
7248 coneNew[4] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 4; /* EF */
7249 orntNew[4] = -1;
7250 coneNew[5] = fStartNew + (cone[5] - fStart)*4 + GetQuadSubface_Static(ornt[5], 1);
7251 orntNew[5] = ornt[5];
7252 ierr = DMPlexSetCone(rdm, newp+4, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7252,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7253 ierr = DMPlexSetConeOrientation(rdm, newp+4, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7253,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7254#if defined(PETSC_USE_DEBUG1)
7255 if ((newp+4 < cStartNew) || (newp+4 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+4, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),7255,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+4,cStartNew,cMaxNew);
7256 for (p = 0; p < 6; ++p) {
7257 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7257,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
7258 }
7259#endif
7260 /* F hex */
7261 coneNew[0] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 9; /* DF */
7262 orntNew[0] = -4;
7263 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + GetQuadSubface_Static(ornt[1], 1);
7264 orntNew[1] = ornt[1];
7265 coneNew[2] = fStartNew + (cone[2] - fStart)*4 + GetQuadSubface_Static(ornt[2], 2);
7266 orntNew[2] = ornt[2];
7267 coneNew[3] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 5; /* FG */
7268 orntNew[3] = -1;
7269 coneNew[4] = fStartNew + (cone[4] - fStart)*4 + GetQuadSubface_Static(ornt[4], 3);
7270 orntNew[4] = ornt[4];
7271 coneNew[5] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 4; /* EF */
7272 orntNew[5] = 1;
7273 ierr = DMPlexSetCone(rdm, newp+5, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7273,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7274 ierr = DMPlexSetConeOrientation(rdm, newp+5, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7274,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7275#if defined(PETSC_USE_DEBUG1)
7276 if ((newp+5 < cStartNew) || (newp+5 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+5, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),7276,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+5,cStartNew,cMaxNew);
7277 for (p = 0; p < 6; ++p) {
7278 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7278,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
7279 }
7280#endif
7281 /* G hex */
7282 coneNew[0] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 10; /* CG */
7283 orntNew[0] = -4;
7284 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + GetQuadSubface_Static(ornt[1], 2);
7285 orntNew[1] = ornt[1];
7286 coneNew[2] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 5; /* FG */
7287 orntNew[2] = 0;
7288 coneNew[3] = fStartNew + (cone[3] - fStart)*4 + GetQuadSubface_Static(ornt[3], 3);
7289 orntNew[3] = ornt[3];
7290 coneNew[4] = fStartNew + (cone[4] - fStart)*4 + GetQuadSubface_Static(ornt[4], 2);
7291 orntNew[4] = ornt[4];
7292 coneNew[5] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 6; /* GH */
7293 orntNew[5] = -3;
7294 ierr = DMPlexSetCone(rdm, newp+6, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7294,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7295 ierr = DMPlexSetConeOrientation(rdm, newp+6, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7295,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7296#if defined(PETSC_USE_DEBUG1)
7297 if ((newp+6 < cStartNew) || (newp+6 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+6, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),7297,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+6,cStartNew,cMaxNew);
7298 for (p = 0; p < 6; ++p) {
7299 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7299,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
7300 }
7301#endif
7302 /* H hex */
7303 coneNew[0] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 11; /* BH */
7304 orntNew[0] = -4;
7305 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + GetQuadSubface_Static(ornt[1], 3);
7306 orntNew[1] = ornt[1];
7307 coneNew[2] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 7; /* EH */
7308 orntNew[2] = -1;
7309 coneNew[3] = fStartNew + (cone[3] - fStart)*4 + GetQuadSubface_Static(ornt[3], 2);
7310 orntNew[3] = ornt[3];
7311 coneNew[4] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 6; /* GH */
7312 orntNew[4] = 3;
7313 coneNew[5] = fStartNew + (cone[5] - fStart)*4 + GetQuadSubface_Static(ornt[5], 2);
7314 orntNew[5] = ornt[5];
7315 ierr = DMPlexSetCone(rdm, newp+7, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7315,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7316 ierr = DMPlexSetConeOrientation(rdm, newp+7, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7316,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7317#if defined(PETSC_USE_DEBUG1)
7318 if ((newp+7 < cStartNew) || (newp+7 >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", newp+7, cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),7318,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",newp
+7,cStartNew,cMaxNew);
7319 for (p = 0; p < 6; ++p) {
7320 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7320,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
7321 }
7322#endif
7323 }
7324 /* Hybrid cells have 6 faces: Front, Back, Sides */
7325 /*
7326 3---------2---------2
7327 | | |
7328 | D 2 C |
7329 | | |
7330 3----3----0----1----1
7331 | | |
7332 | A 0 B |
7333 | | |
7334 0---------0---------1
7335 */
7336 for (c = cMax; c < cEnd; ++c) {
7337 const PetscInt newp = (cMax - cStart)*8 + (c - cMax)*4;
7338 const PetscInt *cone, *ornt, *fornt;
7339 PetscInt coneNew[6], orntNew[6], o, of, i;
7340
7341 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7341,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7342 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7342,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7343 ierr = DMPlexGetConeOrientation(dm, cone[0], &fornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7343,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7344 o = ornt[0] < 0 ? -1 : 1;
7345 for (r = 0; r < 4; ++r) {
7346 PetscInt subfA = GetQuadSubface_Static(ornt[0], r);
7347 PetscInt edgeA = GetQuadEdge_Static(ornt[0], r);
7348 PetscInt edgeB = GetQuadEdge_Static(ornt[0], (r+3)%4);
7349 if (ornt[0] != ornt[1]) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Inconsistent ordering for matching ends of hybrid cell %D: %D != %D", c, ornt[0], ornt[1])return PetscError(((MPI_Comm)0x44000001),7349,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Inconsistent ordering for matching ends of hybrid cell %D: %D != %D"
,c,ornt[0],ornt[1]);
7350 coneNew[0] = fStartNew + (cone[0] - fStart)*4 + subfA;
7351 orntNew[0] = ornt[0];
7352 coneNew[1] = fStartNew + (cone[1] - fStart)*4 + subfA;
7353 orntNew[1] = ornt[0];
7354 of = fornt[edgeA] < 0 ? -1 : 1;
7355 i = GetQuadEdgeInverse_Static(ornt[0], r) + 2;
7356 coneNew[i] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (cone[2+edgeA] - fMax)*2 + (o*of < 0 ? 1 : 0);
7357 orntNew[i] = ornt[edgeA];
7358 i = GetQuadEdgeInverse_Static(ornt[0], (r+1)%4) + 2;
7359 coneNew[i] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (fEnd - fMax)*2 + (c - cMax)*4 + edgeA;
7360 orntNew[i] = 0;
7361 i = GetQuadEdgeInverse_Static(ornt[0], (r+2)%4) + 2;
7362 coneNew[i] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (fEnd - fMax)*2 + (c - cMax)*4 + edgeB;
7363 orntNew[i] = -2;
7364 of = fornt[edgeB] < 0 ? -1 : 1;
7365 i = GetQuadEdgeInverse_Static(ornt[0], (r+3)%4) + 2;
7366 coneNew[i] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (cone[2+edgeB] - fMax)*2 + (o*of < 0 ? 0 : 1);
7367 orntNew[i] = ornt[edgeB];
7368 ierr = DMPlexSetCone(rdm, newp+r, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7368,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7369 ierr = DMPlexSetConeOrientation(rdm, newp+r, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7369,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7370#if defined(PETSC_USE_DEBUG1)
7371 if ((newp+r < cMaxNew) || (newp+r >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid cell [%D, %D)", newp+r, cMaxNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),7371,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid cell [%D, %D)"
,newp+r,cMaxNew,cEndNew);
7372 for (p = 0; p < 2; ++p) {
7373 if ((coneNew[p] < fStartNew) || (coneNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", coneNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7373,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",coneNew
[p],fStartNew,fMaxNew);
7374 }
7375 for (p = 2; p < 6; ++p) {
7376 if ((coneNew[p] < fMaxNew) || (coneNew[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", coneNew[p], fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),7376,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,coneNew[p],fMaxNew,fEndNew);
7377 }
7378#endif
7379 }
7380 }
7381 /* Interior split faces have 4 edges and the same cells as the parent */
7382 ierr = DMPlexGetMaxSizes(dm, NULL((void*)0), &maxSupportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7382,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7383 ierr = PetscMalloc1(4 + maxSupportSize*2, &supportRef)PetscMallocA(1,PETSC_FALSE,7383,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(4 + maxSupportSize*2)*sizeof(**(&supportRef)),(
&supportRef));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7383,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7384 for (f = fStart; f < fMax; ++f) {
7385 for (r = 0; r < 4; ++r) {
7386 /* TODO: This can come from GetFaces_Internal() */
7387 const PetscInt newCells[24] = {0, 1, 2, 3, 4, 5, 6, 7, 0, 3, 5, 4, 2, 1, 7, 6, 3, 2, 6, 5, 0, 4, 7, 1};
7388 const PetscInt newp = fStartNew + (f - fStart)*4 + r;
7389 const PetscInt *cone, *ornt, *support;
7390 PetscInt coneNew[4], orntNew[4], coneSize, c, supportSize, s;
7391
7392 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7392,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7393 ierr = DMPlexGetConeOrientation(dm, f, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7393,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7394 coneNew[(r+3)%4] = eStartNew + (cone[(r+3)%4] - eStart)*2 + (ornt[(r+3)%4] < 0 ? 0 : 1);
7395 orntNew[(r+3)%4] = ornt[(r+3)%4];
7396 coneNew[(r+0)%4] = eStartNew + (cone[r] - eStart)*2 + (ornt[r] < 0 ? 1 : 0);
7397 orntNew[(r+0)%4] = ornt[r];
7398 coneNew[(r+1)%4] = eStartNew + (eMax - eStart)*2 + (f - fStart)*4 + r;
7399 orntNew[(r+1)%4] = 0;
7400 coneNew[(r+2)%4] = eStartNew + (eMax - eStart)*2 + (f - fStart)*4 + (r+3)%4;
7401 orntNew[(r+2)%4] = -2;
7402 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7402,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7403 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7403,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7404#if defined(PETSC_USE_DEBUG1)
7405 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7405,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
7406 for (p = 0; p < 4; ++p) {
7407 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7407,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
7408 }
7409#endif
7410 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7410,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7411 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7411,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7412 for (s = 0; s < supportSize; ++s) {
7413 PetscInt subf;
7414 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7414,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7415 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7415,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7416 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7416,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7417 for (c = 0; c < coneSize; ++c) {
7418 if (cone[c] == f) break;
7419 }
7420 subf = GetQuadSubfaceInverse_Static(ornt[c], r);
7421 if (support[s] < cMax) {
7422 supportRef[s] = cStartNew + (support[s] - cStart)*8 + newCells[c*4+subf];
7423 } else {
7424 supportRef[s] = cStartNew + (cMax - cStart)*8 + (support[s] - cMax)*4 + subf;
7425 }
7426 }
7427 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7427,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7428#if defined(PETSC_USE_DEBUG1)
7429 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7429,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
7430 for (p = 0; p < supportSize; ++p) {
7431 if ((supportRef[p] < cStartNew) || (supportRef[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportRef[p], cStartNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),7431,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportRef
[p],cStartNew,cEndNew);
7432 }
7433#endif
7434 }
7435 }
7436 /* Interior cell faces have 4 edges and 2 cells */
7437 for (c = cStart; c < cMax; ++c) {
7438 const PetscInt newCells[24] = {0, 3, 2, 3, 1, 2, 0, 1, 4, 5, 5, 6, 6, 7, 4, 7, 0, 4, 3, 5, 2, 6, 1, 7};
7439 const PetscInt *cone, *ornt;
7440 PetscInt newp, coneNew[4], orntNew[4], supportNew[2];
7441
7442 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7442,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7443 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7443,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7444 /* A-D face */
7445 newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 0;
7446 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*4 + GetQuadEdge_Static(ornt[0], 3);
7447 orntNew[0] = 0;
7448 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 0;
7449 orntNew[1] = 0;
7450 coneNew[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 2;
7451 orntNew[2] = -2;
7452 coneNew[3] = eStartNew + (eMax - eStart)*2 + (cone[2] - fStart)*4 + GetQuadEdge_Static(ornt[2], 0);
7453 orntNew[3] = -2;
7454 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7454,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7455 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7455,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7456#if defined(PETSC_USE_DEBUG1)
7457 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7457,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
7458 for (p = 0; p < 4; ++p) {
7459 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7459,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
7460 }
7461#endif
7462 /* C-D face */
7463 newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 1;
7464 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*4 + GetQuadEdge_Static(ornt[0], 2);
7465 orntNew[0] = 0;
7466 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 0;
7467 orntNew[1] = 0;
7468 coneNew[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 4;
7469 orntNew[2] = -2;
7470 coneNew[3] = eStartNew + (eMax - eStart)*2 + (cone[4] - fStart)*4 + GetQuadEdge_Static(ornt[4], 0);
7471 orntNew[3] = -2;
7472 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7472,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7473 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7473,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7474#if defined(PETSC_USE_DEBUG1)
7475 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7475,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
7476 for (p = 0; p < 4; ++p) {
7477 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7477,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
7478 }
7479#endif
7480 /* B-C face */
7481 newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 2;
7482 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*4 + GetQuadEdge_Static(ornt[0], 1);
7483 orntNew[0] = -2;
7484 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[3] - fStart)*4 + GetQuadEdge_Static(ornt[3], 0);
7485 orntNew[1] = 0;
7486 coneNew[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 3;
7487 orntNew[2] = 0;
7488 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 0;
7489 orntNew[3] = -2;
7490 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7490,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7491 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7491,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7492#if defined(PETSC_USE_DEBUG1)
7493 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7493,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
7494 for (p = 0; p < 4; ++p) {
7495 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7495,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
7496 }
7497#endif
7498 /* A-B face */
7499 newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 3;
7500 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*4 + GetQuadEdge_Static(ornt[0], 0);
7501 orntNew[0] = -2;
7502 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[5] - fStart)*4 + GetQuadEdge_Static(ornt[5], 3);
7503 orntNew[1] = 0;
7504 coneNew[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 5;
7505 orntNew[2] = 0;
7506 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 0;
7507 orntNew[3] = -2;
7508 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7508,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7509 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7509,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7510#if defined(PETSC_USE_DEBUG1)
7511 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7511,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
7512 for (p = 0; p < 4; ++p) {
7513 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7513,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
7514 }
7515#endif
7516 /* E-F face */
7517 newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 4;
7518 coneNew[0] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 2;
7519 orntNew[0] = -2;
7520 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[2] - fStart)*4 + GetQuadEdge_Static(ornt[2], 2);
7521 orntNew[1] = -2;
7522 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*4 + GetQuadEdge_Static(ornt[1], 0);
7523 orntNew[2] = 0;
7524 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 1;
7525 orntNew[3] = 0;
7526 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7526,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7527 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7527,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7528#if defined(PETSC_USE_DEBUG1)
7529 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7529,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
7530 for (p = 0; p < 4; ++p) {
7531 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7531,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
7532 }
7533#endif
7534 /* F-G face */
7535 newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 5;
7536 coneNew[0] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 4;
7537 orntNew[0] = -2;
7538 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[4] - fStart)*4 + GetQuadEdge_Static(ornt[4], 2);
7539 orntNew[1] = -2;
7540 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*4 + GetQuadEdge_Static(ornt[1], 1);
7541 orntNew[2] = 0;
7542 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 1;
7543 orntNew[3] = 0;
7544 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7544,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7545 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7545,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7546#if defined(PETSC_USE_DEBUG1)
7547 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7547,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
7548 for (p = 0; p < 4; ++p) {
7549 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7549,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
7550 }
7551#endif
7552 /* G-H face */
7553 newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 6;
7554 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[3] - fStart)*4 + GetQuadEdge_Static(ornt[3], 2);
7555 orntNew[0] = -2;
7556 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*4 + GetQuadEdge_Static(ornt[1], 2);
7557 orntNew[1] = 0;
7558 coneNew[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 1;
7559 orntNew[2] = 0;
7560 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 3;
7561 orntNew[3] = -2;
7562 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7562,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7563 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7563,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7564#if defined(PETSC_USE_DEBUG1)
7565 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7565,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
7566 for (p = 0; p < 4; ++p) {
7567 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7567,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
7568 }
7569#endif
7570 /* E-H face */
7571 newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 7;
7572 coneNew[0] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 5;
7573 orntNew[0] = -2;
7574 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[5] - fStart)*4 + GetQuadEdge_Static(ornt[5], 1);
7575 orntNew[1] = -2;
7576 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*4 + GetQuadEdge_Static(ornt[1], 3);
7577 orntNew[2] = 0;
7578 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 1;
7579 orntNew[3] = 0;
7580 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7580,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7581 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7581,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7582#if defined(PETSC_USE_DEBUG1)
7583 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7583,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
7584 for (p = 0; p < 4; ++p) {
7585 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7585,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
7586 }
7587#endif
7588 /* A-E face */
7589 newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 8;
7590 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[2] - fStart)*4 + GetQuadEdge_Static(ornt[2], 3);
7591 orntNew[0] = 0;
7592 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 2;
7593 orntNew[1] = 0;
7594 coneNew[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 5;
7595 orntNew[2] = -2;
7596 coneNew[3] = eStartNew + (eMax - eStart)*2 + (cone[5] - fStart)*4 + GetQuadEdge_Static(ornt[5], 0);
7597 orntNew[3] = -2;
7598 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7598,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7599 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7599,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7600#if defined(PETSC_USE_DEBUG1)
7601 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7601,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
7602 for (p = 0; p < 4; ++p) {
7603 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7603,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
7604 }
7605#endif
7606 /* D-F face */
7607 newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 9;
7608 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[2] - fStart)*4 + GetQuadEdge_Static(ornt[2], 1);
7609 orntNew[0] = -2;
7610 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[4] - fStart)*4 + GetQuadEdge_Static(ornt[4], 3);
7611 orntNew[1] = 0;
7612 coneNew[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 4;
7613 orntNew[2] = 0;
7614 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 2;
7615 orntNew[3] = -2;
7616 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7616,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7617 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7617,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7618#if defined(PETSC_USE_DEBUG1)
7619 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7619,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
7620 for (p = 0; p < 4; ++p) {
7621 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7621,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
7622 }
7623#endif
7624 /* C-G face */
7625 newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 10;
7626 coneNew[0] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 4;
7627 orntNew[0] = -2;
7628 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[4] - fStart)*4 + GetQuadEdge_Static(ornt[4], 1);
7629 orntNew[1] = -2;
7630 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[3] - fStart)*4 + GetQuadEdge_Static(ornt[3], 3);
7631 orntNew[2] = 0;
7632 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 3;
7633 orntNew[3] = 0;
7634 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7634,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7635 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7635,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7636#if defined(PETSC_USE_DEBUG1)
7637 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7637,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
7638 for (p = 0; p < 4; ++p) {
7639 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7639,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
7640 }
7641#endif
7642 /* B-H face */
7643 newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + 11;
7644 coneNew[0] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 5;
7645 orntNew[0] = 0;
7646 coneNew[1] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + 3;
7647 orntNew[1] = -2;
7648 coneNew[2] = eStartNew + (eMax - eStart)*2 + (cone[3] - fStart)*4 + GetQuadEdge_Static(ornt[3], 1);
7649 orntNew[2] = -2;
7650 coneNew[3] = eStartNew + (eMax - eStart)*2 + (cone[5] - fStart)*4 + GetQuadEdge_Static(ornt[5], 2);
7651 orntNew[3] = 0;
7652 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7652,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7653 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7653,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7654#if defined(PETSC_USE_DEBUG1)
7655 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7655,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
7656 for (p = 0; p < 4; ++p) {
7657 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7657,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
7658 }
7659#endif
7660 for (r = 0; r < 12; ++r) {
7661 newp = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + r;
7662 supportNew[0] = cStartNew + (c - cStart)*8 + newCells[r*2+0];
7663 supportNew[1] = cStartNew + (c - cStart)*8 + newCells[r*2+1];
7664 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7664,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7665#if defined(PETSC_USE_DEBUG1)
7666 if ((newp < fStartNew) || (newp >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", newp, fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7666,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",newp
,fStartNew,fMaxNew);
7667 for (p = 0; p < 2; ++p) {
7668 if ((supportNew[p] < cStartNew) || (supportNew[p] >= cMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a cell [%D, %D)", supportNew[p], cStartNew, cMaxNew)return PetscError(((MPI_Comm)0x44000001),7668,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a cell [%D, %D)",supportNew
[p],cStartNew,cMaxNew);
7669 }
7670#endif
7671 }
7672 }
7673 /* Hybrid split faces have 4 edges and same cells */
7674 for (f = fMax; f < fEnd; ++f) {
7675 const PetscInt *cone, *ornt, *support;
7676 PetscInt coneNew[4], orntNew[4];
7677 PetscInt supportNew[2], size, s, c;
7678
7679 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7679,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7680 ierr = DMPlexGetConeOrientation(dm, f, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7680,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7681 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7681,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7682 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7682,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7683 for (r = 0; r < 2; ++r) {
7684 const PetscInt newp = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (f - fMax)*2 + r;
7685
7686 coneNew[0] = eStartNew + (cone[0] - eStart)*2 + (ornt[0] < 0 ? 1-r : r);
7687 orntNew[0] = ornt[0];
7688 coneNew[1] = eStartNew + (cone[1] - eStart)*2 + (ornt[1] < 0 ? 1-r : r);
7689 orntNew[1] = ornt[1];
7690 coneNew[2+r] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (cone[2+r] - eMax);
7691 orntNew[2+r] = 0;
7692 coneNew[3-r] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (eEnd - eMax) + (f - fMax);
7693 orntNew[3-r] = 0;
7694 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7694,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7695 ierr = DMPlexSetConeOrientation(rdm, newp, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7695,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7696#if defined(PETSC_USE_DEBUG1)
7697 if ((newp < fMaxNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", newp, fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),7697,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,newp,fMaxNew,fEndNew);
7698 for (p = 0; p < 2; ++p) {
7699 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7699,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
7700 }
7701 for (p = 2; p < 4; ++p) {
7702 if ((coneNew[p] < eMaxNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid edge [%D, %D)", coneNew[p], eMaxNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),7702,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid edge [%D, %D)"
,coneNew[p],eMaxNew,eEndNew);
7703 }
7704#endif
7705 for (s = 0; s < size; ++s) {
7706 const PetscInt *coneCell, *orntCell, *fornt;
7707 PetscInt o, of;
7708
7709 ierr = DMPlexGetCone(dm, support[s], &coneCell);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7709,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7710 ierr = DMPlexGetConeOrientation(dm, support[s], &orntCell);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7710,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7711 o = orntCell[0] < 0 ? -1 : 1;
7712 for (c = 2; c < 6; ++c) if (coneCell[c] == f) break;
7713 if (c >= 6) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Could not find face %D in cone of cell %D", f, support[s])return PetscError(((MPI_Comm)0x44000001),7713,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Could not find face %D in cone of cell %D"
,f,support[s]);
7714 ierr = DMPlexGetConeOrientation(dm, coneCell[0], &fornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7714,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7715 of = fornt[c-2] < 0 ? -1 : 1;
7716 supportNew[s] = cStartNew + (cMax - cStart)*8 + (support[s] - cMax)*4 + (GetQuadEdgeInverse_Static(orntCell[0], c-2) + (o*of < 0 ? 1-r : r))%4;
7717 }
7718 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7718,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7719#if defined(PETSC_USE_DEBUG1)
7720 if ((newp < fMaxNew) || (newp >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", newp, fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),7720,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,newp,fMaxNew,fEndNew);
7721 for (p = 0; p < size; ++p) {
7722 if ((supportNew[p] < cMaxNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid cell [%D, %D)", supportNew[p], cMaxNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),7722,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid cell [%D, %D)"
,supportNew[p],cMaxNew,cEndNew);
7723 }
7724#endif
7725 }
7726 }
7727 /* Hybrid cell faces have 4 edges and 2 cells */
7728 for (c = cMax; c < cEnd; ++c) {
7729 PetscInt newp = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (fEnd - fMax)*2 + (c - cMax)*4;
7730 const PetscInt *cone, *ornt;
7731 PetscInt coneNew[4], orntNew[4];
7732 PetscInt supportNew[2];
7733
7734 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7734,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7735 ierr = DMPlexGetConeOrientation(dm, c, &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7735,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7736 for (r = 0; r < 4; ++r) {
7737#if 0
7738 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*4 + GetQuadSubface_Static(ornt[0], r);
7739 orntNew[0] = 0;
7740 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*4 + GetQuadSubface_Static(ornt[1], r);
7741 orntNew[1] = 0;
7742 coneNew[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (eEnd - eMax) + (cone[2+GetQuadEdge_Static(ornt[0], r)] - fMax);
7743 orntNew[2] = 0;
7744 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (eEnd - eMax) + (fEnd - fMax) + (c - cMax);
7745 orntNew[3] = 0;
7746#else
7747 coneNew[0] = eStartNew + (eMax - eStart)*2 + (cone[0] - fStart)*4 + r;
7748 orntNew[0] = 0;
7749 coneNew[1] = eStartNew + (eMax - eStart)*2 + (cone[1] - fStart)*4 + r;
7750 orntNew[1] = 0;
7751 coneNew[2] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (eEnd - eMax) + (cone[2+r] - fMax);
7752 orntNew[2] = 0;
7753 coneNew[3] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (eEnd - eMax) + (fEnd - fMax) + (c - cMax);
7754 orntNew[3] = 0;
7755#endif
7756 ierr = DMPlexSetCone(rdm, newp+r, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7756,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7757 ierr = DMPlexSetConeOrientation(rdm, newp+r, orntNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7757,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7758#if defined(PETSC_USE_DEBUG1)
7759 if ((newp+r < fMaxNew) || (newp+r >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", newp+r, fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),7759,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,newp+r,fMaxNew,fEndNew);
7760 for (p = 0; p < 2; ++p) {
7761 if ((coneNew[p] < eStartNew) || (coneNew[p] >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", coneNew[p], eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7761,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",coneNew
[p],eStartNew,eMaxNew);
7762 }
7763 for (p = 2; p < 4; ++p) {
7764 if ((coneNew[p] < eMaxNew) || (coneNew[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid edge [%D, %D)", coneNew[p], eMaxNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),7764,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid edge [%D, %D)"
,coneNew[p],eMaxNew,eEndNew);
7765 }
7766#endif
7767 supportNew[0] = cStartNew + (cMax - cStart)*8 + (c - cMax)*4 + GetQuadSubface_Static(ornt[0], r);
7768 supportNew[1] = cStartNew + (cMax - cStart)*8 + (c - cMax)*4 + GetQuadSubface_Static(ornt[0], (r+1)%4);
7769 ierr = DMPlexSetSupport(rdm, newp+r, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7769,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7770#if defined(PETSC_USE_DEBUG1)
7771 if ((newp+r < fMaxNew) || (newp+r >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", newp+r, fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),7771,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,newp+r,fMaxNew,fEndNew);
7772 for (p = 0; p < 2; ++p) {
7773 if ((supportNew[p] < cMaxNew) || (supportNew[p] >= cEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid cell [%D, %D)", supportNew[p], cMaxNew, cEndNew)return PetscError(((MPI_Comm)0x44000001),7773,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid cell [%D, %D)"
,supportNew[p],cMaxNew,cEndNew);
7774 }
7775#endif
7776 }
7777 }
7778 /* Interior split edges have 2 vertices and the same faces as the parent */
7779 ierr = DMPlexGetMaxSizes(dm, NULL((void*)0), &maxSupportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7779,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7780 for (e = eStart; e < eMax; ++e) {
7781 const PetscInt newv = vStartNew + (vEnd - vStart) + (e - eStart);
7782
7783 for (r = 0; r < 2; ++r) {
7784 const PetscInt newp = eStartNew + (e - eStart)*2 + r;
7785 const PetscInt *cone, *ornt, *support;
7786 PetscInt coneNew[2], coneSize, c, supportSize, s;
7787
7788 ierr = DMPlexGetCone(dm, e, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7788,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7789 coneNew[0] = vStartNew + (cone[0] - vStart);
7790 coneNew[1] = vStartNew + (cone[1] - vStart);
7791 coneNew[(r+1)%2] = newv;
7792 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7792,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7793#if defined(PETSC_USE_DEBUG1)
7794 if ((newp < eStartNew) || (newp >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7794,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eMaxNew);
7795 for (p = 0; p < 2; ++p) {
7796 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),7796,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
7797 }
7798#endif
7799 ierr = DMPlexGetSupportSize(dm, e, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7799,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7800 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7800,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7801 for (s = 0; s < supportSize; ++s) {
7802 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7802,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7803 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7803,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7804 ierr = DMPlexGetConeOrientation(dm, support[s], &ornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7804,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7805 for (c = 0; c < coneSize; ++c) {
7806 if (cone[c] == e) break;
7807 }
7808 if (support[s] < fMax) {
7809 supportRef[s] = fStartNew + (support[s] - fStart)*4 + (c + (ornt[c] < 0 ? 1-r : r))%4;
7810 } else {
7811 supportRef[s] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (support[s] - fMax)*2 + (ornt[c] < 0 ? 1-r : r);
7812 }
7813 }
7814 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7814,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7815#if defined(PETSC_USE_DEBUG1)
7816 if ((newp < eStartNew) || (newp >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7816,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eMaxNew);
7817 for (p = 0; p < supportSize; ++p) {
7818 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),7818,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
7819 }
7820#endif
7821 }
7822 }
7823 /* Interior face edges have 2 vertices and 2+cells faces */
7824 for (f = fStart; f < fMax; ++f) {
7825 const PetscInt newFaces[24] = {3, 2, 1, 0, 4, 5, 6, 7, 0, 9, 4, 8, 2, 11, 6, 10, 1, 10, 5, 9, 8, 7, 11, 3};
7826 const PetscInt newv = vStartNew + (vEnd - vStart) + (eMax - eStart) + (f - fStart);
7827 const PetscInt *cone, *coneCell, *orntCell, *support;
7828 PetscInt coneNew[2], coneSize, c, supportSize, s;
7829
7830 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7830,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7831 for (r = 0; r < 4; ++r) {
7832 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (f - fStart)*4 + r;
7833
7834 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[r] - eStart);
7835 coneNew[1] = newv;
7836 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7836,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7837#if defined(PETSC_USE_DEBUG1)
7838 if ((newp < eStartNew) || (newp >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7838,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eMaxNew);
7839 for (p = 0; p < 2; ++p) {
7840 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),7840,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
7841 }
7842#endif
7843 ierr = DMPlexGetSupportSize(dm, f, &supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7843,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7844 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7844,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7845 supportRef[0] = fStartNew + (f - fStart)*4 + r;
7846 supportRef[1] = fStartNew + (f - fStart)*4 + (r+1)%4;
7847 for (s = 0; s < supportSize; ++s) {
7848 ierr = DMPlexGetConeSize(dm, support[s], &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7848,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7849 ierr = DMPlexGetCone(dm, support[s], &coneCell);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7849,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7850 ierr = DMPlexGetConeOrientation(dm, support[s], &orntCell);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7850,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7851 for (c = 0; c < coneSize; ++c) if (coneCell[c] == f) break;
7852 if (support[s] < cMax) {
7853 supportRef[2+s] = fStartNew + (fMax - fStart)*4 + (support[s] - cStart)*12 + newFaces[c*4 + GetQuadEdgeInverse_Static(orntCell[c], r)];
7854 } else {
7855 supportRef[2+s] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (fEnd - fMax)*2 + (support[s] - cMax)*4 + r;
7856 }
7857 }
7858 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7858,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7859#if defined(PETSC_USE_DEBUG1)
7860 if ((newp < eStartNew) || (newp >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7860,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eMaxNew);
7861 for (p = 0; p < 2+supportSize; ++p) {
7862 if ((supportRef[p] < fStartNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportRef[p], fStartNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),7862,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportRef
[p],fStartNew,fEndNew);
7863 }
7864#endif
7865 }
7866 }
7867 /* Interior cell edges have 2 vertices and 4 faces */
7868 for (c = cStart; c < cMax; ++c) {
7869 const PetscInt newFaces[24] = {0, 1, 2, 3, 4, 5, 6, 7, 0, 9, 4, 8, 2, 11, 6, 10, 1, 10, 5, 9, 3, 8, 7, 11};
7870 const PetscInt newv = vStartNew + (vEnd - vStart) + (eMax - eStart) + (fMax - fStart) + (c - cStart);
7871 const PetscInt *cone;
7872 PetscInt coneNew[2], supportNew[4];
7873
7874 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7874,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7875 for (r = 0; r < 6; ++r) {
7876 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + r;
7877
7878 coneNew[0] = vStartNew + (vEnd - vStart) + (eMax - eStart) + (cone[r] - fStart);
7879 coneNew[1] = newv;
7880 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7880,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7881#if defined(PETSC_USE_DEBUG1)
7882 if ((newp < eStartNew) || (newp >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7882,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eMaxNew);
7883 for (p = 0; p < 2; ++p) {
7884 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),7884,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
7885 }
7886#endif
7887 for (f = 0; f < 4; ++f) supportNew[f] = fStartNew + (fMax - fStart)*4 + (c - cStart)*12 + newFaces[r*4+f];
7888 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7888,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7889#if defined(PETSC_USE_DEBUG1)
7890 if ((newp < eStartNew) || (newp >= eMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", newp, eStartNew, eMaxNew)return PetscError(((MPI_Comm)0x44000001),7890,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",newp
,eStartNew,eMaxNew);
7891 for (p = 0; p < 4; ++p) {
7892 if ((supportNew[p] < fStartNew) || (supportNew[p] >= fMaxNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a face [%D, %D)", supportNew[p], fStartNew, fMaxNew)return PetscError(((MPI_Comm)0x44000001),7892,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a face [%D, %D)",supportNew
[p],fStartNew,fMaxNew);
7893 }
7894#endif
7895 }
7896 }
7897 /* Hybrid edges have two vertices and the same faces */
7898 for (e = eMax; e < eEnd; ++e) {
7899 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (e - eMax);
7900 const PetscInt *cone, *support, *fcone;
7901 PetscInt coneNew[2], size, fsize, s;
7902
7903 ierr = DMPlexGetCone(dm, e, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7903,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7904 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7904,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7905 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7905,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7906 coneNew[0] = vStartNew + (cone[0] - vStart);
7907 coneNew[1] = vStartNew + (cone[1] - vStart);
7908 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7908,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7909#if defined(PETSC_USE_DEBUG1)
7910 if ((newp < eMaxNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid edge [%D, %D)", newp, eMaxNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),7910,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid edge [%D, %D)"
,newp,eMaxNew,eEndNew);
7911 for (p = 0; p < 2; ++p) {
7912 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),7912,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
7913 }
7914#endif
7915 for (s = 0; s < size; ++s) {
7916 ierr = DMPlexGetConeSize(dm, support[s], &fsize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7916,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7917 ierr = DMPlexGetCone(dm, support[s], &fcone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7917,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7918 for (c = 0; c < fsize; ++c) if (fcone[c] == e) break;
7919 if ((c < 2) || (c > 3)) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Edge %D not found in cone of face %D", e, support[s])return PetscError(((MPI_Comm)0x44000001),7919,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Edge %D not found in cone of face %D"
,e,support[s]);
7920 supportRef[s] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (support[s] - fMax)*2 + c-2;
7921 }
7922 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7922,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7923#if defined(PETSC_USE_DEBUG1)
7924 if ((newp < eMaxNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid edge [%D, %D)", newp, eMaxNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),7924,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid edge [%D, %D)"
,newp,eMaxNew,eEndNew);
7925 for (p = 0; p < size; ++p) {
7926 if ((supportRef[p] < fMaxNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", supportRef[p], fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),7926,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,supportRef[p],fMaxNew,fEndNew);
7927 }
7928#endif
7929 }
7930 /* Hybrid face edges have 2 vertices and 2+cells faces */
7931 for (f = fMax; f < fEnd; ++f) {
7932 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (eEnd - eMax) + (f - fMax);
7933 const PetscInt *cone, *support, *ccone, *cornt;
7934 PetscInt coneNew[2], size, csize, s;
7935
7936 ierr = DMPlexGetCone(dm, f, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7936,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7937 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7937,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7938 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7938,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7939 coneNew[0] = vStartNew + (vEnd - vStart) + (cone[0] - eStart);
7940 coneNew[1] = vStartNew + (vEnd - vStart) + (cone[1] - eStart);
7941 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7941,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7942#if defined(PETSC_USE_DEBUG1)
7943 if ((newp < eMaxNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid edge [%D, %D)", newp, eMaxNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),7943,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid edge [%D, %D)"
,newp,eMaxNew,eEndNew);
7944 for (p = 0; p < 2; ++p) {
7945 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),7945,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
7946 }
7947#endif
7948 supportRef[0] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (f - fMax)*2 + 0;
7949 supportRef[1] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (f - fMax)*2 + 1;
7950 for (s = 0; s < size; ++s) {
7951 ierr = DMPlexGetConeSize(dm, support[s], &csize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7951,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7952 ierr = DMPlexGetCone(dm, support[s], &ccone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7952,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7953 ierr = DMPlexGetConeOrientation(dm, support[s], &cornt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7953,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7954 for (c = 0; c < csize; ++c) if (ccone[c] == f) break;
7955 if ((c < 2) || (c >= csize)) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Hybrid face %D is not in cone of hybrid cell %D", f, support[s])return PetscError(((MPI_Comm)0x44000001),7955,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Hybrid face %D is not in cone of hybrid cell %D"
,f,support[s]);
7956 supportRef[2+s] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (fEnd - fMax)*2 + (support[s] - cMax)*4 + c-2;
7957 }
7958 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7958,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7959#if defined(PETSC_USE_DEBUG1)
7960 if ((newp < eMaxNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid edge [%D, %D)", newp, eMaxNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),7960,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid edge [%D, %D)"
,newp,eMaxNew,eEndNew);
7961 for (p = 0; p < 2+size; ++p) {
7962 if ((supportRef[p] < fMaxNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", supportRef[p], fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),7962,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,supportRef[p],fMaxNew,fEndNew);
7963 }
7964#endif
7965 }
7966 /* Hybrid cell edges have 2 vertices and 4 faces */
7967 for (c = cMax; c < cEnd; ++c) {
7968 const PetscInt newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (eEnd - eMax) + (fEnd - fMax) + (c - cMax);
7969 const PetscInt *cone, *support;
7970 PetscInt coneNew[2], size;
7971
7972 ierr = DMPlexGetCone(dm, c, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7972,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7973 ierr = DMPlexGetSupportSize(dm, c, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7973,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7974 ierr = DMPlexGetSupport(dm, c, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7974,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7975 coneNew[0] = vStartNew + (vEnd - vStart) + (eMax - eStart) + (cone[0] - fStart);
7976 coneNew[1] = vStartNew + (vEnd - vStart) + (eMax - eStart) + (cone[1] - fStart);
7977 ierr = DMPlexSetCone(rdm, newp, coneNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7977,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7978#if defined(PETSC_USE_DEBUG1)
7979 if ((newp < eMaxNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid edge [%D, %D)", newp, eMaxNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),7979,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid edge [%D, %D)"
,newp,eMaxNew,eEndNew);
7980 for (p = 0; p < 2; ++p) {
7981 if ((coneNew[p] < vStartNew) || (coneNew[p] >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", coneNew[p], vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),7981,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",coneNew
[p],vStartNew,vEndNew);
7982 }
7983#endif
7984 supportRef[0] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (fEnd - fMax)*2 + (c - cMax)*4 + 0;
7985 supportRef[1] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (fEnd - fMax)*2 + (c - cMax)*4 + 1;
7986 supportRef[2] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (fEnd - fMax)*2 + (c - cMax)*4 + 2;
7987 supportRef[3] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (fEnd - fMax)*2 + (c - cMax)*4 + 3;
7988 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),7988,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
7989#if defined(PETSC_USE_DEBUG1)
7990 if ((newp < eMaxNew) || (newp >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid edge [%D, %D)", newp, eMaxNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),7990,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid edge [%D, %D)"
,newp,eMaxNew,eEndNew);
7991 for (p = 0; p < 4; ++p) {
7992 if ((supportRef[p] < fMaxNew) || (supportRef[p] >= fEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a hybrid face [%D, %D)", supportRef[p], fMaxNew, fEndNew)return PetscError(((MPI_Comm)0x44000001),7992,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a hybrid face [%D, %D)"
,supportRef[p],fMaxNew,fEndNew);
7993 }
7994#endif
7995 }
7996 /* Interior vertices have identical supports */
7997 for (v = vStart; v < vEnd; ++v) {
7998 const PetscInt newp = vStartNew + (v - vStart);
7999 const PetscInt *support, *cone;
8000 PetscInt size, s;
8001
8002 ierr = DMPlexGetSupportSize(dm, v, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8002,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8003 ierr = DMPlexGetSupport(dm, v, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8003,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8004 for (s = 0; s < size; ++s) {
8005 PetscInt r = 0;
8006
8007 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8007,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8008 if (cone[1] == v) r = 1;
8009 if (support[s] < eMax) supportRef[s] = eStartNew + (support[s] - eStart)*2 + r;
8010 else supportRef[s] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (support[s] - eMax);
8011 }
8012 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8012,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8013#if defined(PETSC_USE_DEBUG1)
8014 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),8014,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
8015 for (p = 0; p < size; ++p) {
8016 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),8016,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
8017 }
8018#endif
8019 }
8020 /* Interior edge vertices have 2 + faces supports */
8021 for (e = eStart; e < eMax; ++e) {
8022 const PetscInt newp = vStartNew + (vEnd - vStart) + (e - eStart);
8023 const PetscInt *cone, *support;
8024 PetscInt size, s;
8025
8026 ierr = DMPlexGetSupportSize(dm, e, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8026,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8027 ierr = DMPlexGetSupport(dm, e, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8027,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8028 supportRef[0] = eStartNew + (e - eStart)*2 + 0;
8029 supportRef[1] = eStartNew + (e - eStart)*2 + 1;
8030 for (s = 0; s < size; ++s) {
8031 PetscInt r;
8032
8033 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8033,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8034 for (r = 0; r < 4; ++r) if (cone[r] == e) break;
8035 if (support[s] < fMax) {
8036 supportRef[2+s] = eStartNew + (eMax - eStart)*2 + (support[s] - fStart)*4 + r;
8037 } else {
8038 supportRef[2+s] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (eEnd - eMax) + (support[s] - fMax);
8039 }
8040 }
8041 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8041,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8042#if defined(PETSC_USE_DEBUG1)
8043 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),8043,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
8044 for (p = 0; p < 2+size; ++p) {
8045 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),8045,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
8046 }
8047#endif
8048 }
8049 /* Interior face vertices have 4 + cells supports */
8050 for (f = fStart; f < fMax; ++f) {
8051 const PetscInt newp = vStartNew + (vEnd - vStart) + (eMax - eStart) + (f - fStart);
8052 const PetscInt *cone, *support;
8053 PetscInt size, s;
8054
8055 ierr = DMPlexGetSupportSize(dm, f, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8055,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8056 ierr = DMPlexGetSupport(dm, f, &support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8056,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8057 for (r = 0; r < 4; ++r) supportRef[r] = eStartNew + (eMax - eStart)*2 + (f - fStart)*4 + r;
8058 for (s = 0; s < size; ++s) {
8059 PetscInt r;
8060
8061 ierr = DMPlexGetCone(dm, support[s], &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8061,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8062 for (r = 0; r < 6; ++r) if (cone[r] == f) break;
8063 if (support[s] < cMax) {
8064 supportRef[4+s] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (support[s] - cStart)*6 + r;
8065 } else {
8066 supportRef[4+s] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (eEnd - eMax) + (fEnd - fMax) + (support[s] - cMax);
8067 }
8068 }
8069 ierr = DMPlexSetSupport(rdm, newp, supportRef);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8069,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8070#if defined(PETSC_USE_DEBUG1)
8071 if ((newp < vStartNew) || (newp >= vEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not a vertex [%D, %D)", newp, vStartNew, vEndNew)return PetscError(((MPI_Comm)0x44000001),8071,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not a vertex [%D, %D)",newp
,vStartNew,vEndNew);
8072 for (p = 0; p < 4+size; ++p) {
8073 if ((supportRef[p] < eStartNew) || (supportRef[p] >= eEndNew)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Point %D is not an edge [%D, %D)", supportRef[p], eStartNew, eEndNew)return PetscError(((MPI_Comm)0x44000001),8073,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Point %D is not an edge [%D, %D)",supportRef
[p],eStartNew,eEndNew);
8074 }
8075#endif
8076 }
8077 /* Cell vertices have 6 supports */
8078 for (c = cStart; c < cMax; ++c) {
8079 const PetscInt newp = vStartNew + (vEnd - vStart) + (eMax - eStart) + (fMax - fStart) + (c - cStart);
8080 PetscInt supportNew[6];
8081
8082 for (r = 0; r < 6; ++r) {
8083 supportNew[r] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (c - cStart)*6 + r;
8084 }
8085 ierr = DMPlexSetSupport(rdm, newp, supportNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8085,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8086 }
8087 ierr = PetscFree(supportRef)((*PetscTrFree)((void*)(supportRef),8087,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((supportRef) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8087,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8088 break;
8089 default:
8090 SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown cell refiner %D", refiner)return PetscError(((MPI_Comm)0x44000001),8090,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown cell refiner %D",refiner);
8091 }
8092 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
8093}
8094
8095static PetscErrorCode CellRefinerSetCoordinates(CellRefiner refiner, DM dm, PetscInt depthSize[], DM rdm)
8096{
8097 PetscSection coordSection, coordSectionNew;
8098 Vec coordinates, coordinatesNew;
8099 PetscScalar *coords, *coordsNew;
8100 const PetscInt numVertices = depthSize ? depthSize[0] : 0;
1
Assuming 'depthSize' is null
→
2
←
'?' condition is false
→
8101 PetscInt dim, spaceDim, depth, bs, coordSizeNew, cStart, cEnd, cMax;
8102 PetscInt c, vStart, vStartNew, vEnd, v, eStart, eEnd, eMax, e, fStart, fEnd, fMax, f;
8103 PetscInt cStartNew, cEndNew, vEndNew, *parentId = NULL((void*)0);
8104 VecType vtype;
8105 PetscBool isperiodic, localize = PETSC_FALSE, needcoords = PETSC_FALSE;
8106 const PetscReal *maxCell, *L;
8107 const DMBoundaryType *bd;
8108 PetscErrorCode ierr;
8109
8110 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 8110; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
8111 ierr = DMGetDimension(dm, &dim);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8111,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8112 ierr = DMPlexGetDepth(dm, &depth);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8112,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8113 ierr = DMPlexGetDepthStratum(dm, 0, &vStart, &vEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8113,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8114 ierr = DMPlexGetDepthStratum(dm, 1, &eStart, &eEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8114,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8115 ierr = DMPlexGetHeightStratum(dm, 0, &cStart, &cEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8115,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8116 ierr = DMPlexGetHeightStratum(dm, 1, &fStart, &fEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8116,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8117 ierr = DMPlexGetHybridBounds(dm, &cMax, &fMax, &eMax, NULL((void*)0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8117,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8118 if (cMax < 0) cMax = cEnd;
3
←
Assuming 'cMax' is >= 0
→
4
←
Taking false branch
→
8119 if (fMax < 0) fMax = fEnd;
5
←
Assuming 'fMax' is >= 0
→
6
←
Taking false branch
→
8120 if (eMax < 0) eMax = eEnd;
7
←
Assuming 'eMax' is >= 0
→
8
←
Taking false branch
→
8121 ierr = GetDepthStart_Private(depth, depthSize, &cStartNew, NULL((void*)0), NULL((void*)0), &vStartNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8121,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8122 ierr = GetDepthEnd_Private(depth, depthSize, &cEndNew, NULL((void*)0), NULL((void*)0), &vEndNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8122,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9
←
Passing null pointer value via 2nd parameter 'depthSize'
→
10
←
Calling 'GetDepthEnd_Private'
→
8123 ierr = DMGetPeriodicity(dm, &isperiodic, &maxCell, &L, &bd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8123,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8124 /* Determine if we need to localize coordinates when generating them */
8125 if (isperiodic && !maxCell) {
8126 ierr = DMGetCoordinatesLocalized(dm, &localize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8126,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8127 if (!localize) SETERRQ(PetscObjectComm((PetscObject)dm),PETSC_ERR_USER,"Cannot refine if coordinates have not been localized")return PetscError(PetscObjectComm((PetscObject)dm),8127,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,83,PETSC_ERROR_INITIAL,"Cannot refine if coordinates have not been localized"
);
8128 }
8129 if (isperiodic) {
8130 ierr = PetscOptionsBegin(PetscObjectComm((PetscObject)dm),((PetscObject)dm)->prefix,"DMPlex coords refinement options","DM")0; do { PetscOptionItems PetscOptionsObjectBase; PetscOptionItems
*PetscOptionsObject = &PetscOptionsObjectBase; PetscMemzero
(PetscOptionsObject,sizeof(PetscOptionItems)); for (PetscOptionsObject
->count=(PetscOptionsPublish?-1:1); PetscOptionsObject->
count<2; PetscOptionsObject->count++) { PetscErrorCode _5_ierr
= PetscOptionsBegin_Private(PetscOptionsObject,PetscObjectComm
((PetscObject)dm),((PetscObject)dm)->prefix,"DMPlex coords refinement options"
,"DM");do {if (__builtin_expect(!!(_5_ierr),0)) return PetscError
(((MPI_Comm)0x44000001),8130,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,_5_ierr,PETSC_ERROR_REPEAT," ");} while (0);;CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8130,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8131 ierr = PetscOptionsBool("-dm_plex_refine_localize","Automatically localize from parent cells",NULL,localize,&localize,NULL)PetscOptionsBool_Private(PetscOptionsObject,"-dm_plex_refine_localize"
,"Automatically localize from parent cells",((void*)0),localize
,&localize,((void*)0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8131,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8132 ierr = PetscOptionsEnd()_5_ierr = PetscOptionsEnd_Private(PetscOptionsObject);do {if (
__builtin_expect(!!(_5_ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8132,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,_5_ierr,PETSC_ERROR_REPEAT," ");} while (0);}} while (0);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8132,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8133 if (localize) {
8134 ierr = DMLocalizeCoordinates(dm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8134,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8135 }
8136 }
8137 ierr = DMSetPeriodicity(rdm, isperiodic, maxCell, L, bd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8137,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8138
8139 ierr = DMGetCoordinateSection(dm, &coordSection);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8139,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8140 ierr = PetscSectionGetFieldComponents(coordSection, 0, &spaceDim);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8140,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8141 ierr = PetscSectionCreate(PetscObjectComm((PetscObject)dm), &coordSectionNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8141,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8142 ierr = PetscSectionSetNumFields(coordSectionNew, 1);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8142,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8143 ierr = PetscSectionSetFieldComponents(coordSectionNew, 0, spaceDim);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8143,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8144
8145 if (localize) {
8146 PetscInt p, r, newp, *pi;
8147
8148 /* New coordinates will be already localized on the cell */
8149 ierr = PetscSectionSetChart(coordSectionNew, 0, vStartNew+numVertices);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8149,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8150
8151 /* We need the parentId to properly localize coordinates */
8152 ierr = PetscMalloc1(cEndNew-cStartNew,&pi)PetscMallocA(1,PETSC_FALSE,8152,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(cEndNew-cStartNew)*sizeof(**(&pi)),(&pi));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8152,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8153 switch (refiner) {
8154 case REFINER_NOOP:
8155 break;
8156 case REFINER_SIMPLEX_1D:
8157 for (p = cStart; p < cEnd; ++p) {
8158 for (r = 0; r < 2; ++r) {
8159 newp = (p - cStart)*2 + r;
8160 pi[newp] = p;
8161 }
8162 }
8163 break;
8164 case REFINER_SIMPLEX_2D:
8165 for (p = cStart; p < cEnd; ++p) {
8166 for (r = 0; r < 4; ++r) {
8167 newp = (p - cStart)*4 + r;
8168 pi[newp] = p;
8169 }
8170 }
8171 break;
8172 case REFINER_HEX_2D:
8173 for (p = cStart; p < cEnd; ++p) {
8174 for (r = 0; r < 4; ++r) {
8175 newp = (p - cStart)*4 + r;
8176 pi[newp] = p;
8177 }
8178 }
8179 break;
8180 case REFINER_SIMPLEX_TO_HEX_2D:
8181 for (p = cStart; p < cEnd; ++p) {
8182 for (r = 0; r < 3; ++r) {
8183 newp = (p - cStart)*3 + r;
8184 pi[newp] = p;
8185 }
8186 }
8187 break;
8188 case REFINER_HYBRID_SIMPLEX_TO_HEX_2D:
8189 for (p = cStart; p < cMax; ++p) {
8190 for (r = 0; r < 3; ++r) {
8191 newp = (p - cStart)*3 + r;
8192 pi[newp] = p;
8193 }
8194 }
8195 for (p = cMax; p < cEnd; ++p) {
8196 for (r = 0; r < 4; ++r) {
8197 newp = (cMax - cStart)*3 + (p - cMax)*4 + r;
8198 pi[newp] = p;
8199 }
8200 }
8201 /* The refiner needs midpoint vertices on hybrid edges and hybrid cells */
8202 cMax = cEnd;
8203 eMax = eEnd;
8204 break;
8205 case REFINER_HYBRID_SIMPLEX_2D:
8206 for (p = cStart; p < cMax; ++p) {
8207 for (r = 0; r < 4; ++r) {
8208 newp = (p - cStart)*4 + r;
8209 pi[newp] = p;
8210 }
8211 }
8212 for (p = cMax; p < cEnd; ++p) {
8213 for (r = 0; r < 2; ++r) {
8214 newp = (cMax - cStart)*4 + (p - cMax)*2 + r;
8215 pi[newp] = p;
8216 }
8217 }
8218 break;
8219 case REFINER_HYBRID_HEX_2D:
8220 for (p = cStart; p < cMax; ++p) {
8221 for (r = 0; r < 4; ++r) {
8222 newp = (p - cStart)*4 + r;
8223 pi[newp] = p;
8224 }
8225 }
8226 for (p = cMax; p < cEnd; ++p) {
8227 for (r = 0; r < 2; ++r) {
8228 newp = (cMax - cStart)*4 + (p - cMax)*2 + r;
8229 pi[newp] = p;
8230 }
8231 }
8232 break;
8233 case REFINER_SIMPLEX_3D:
8234 for (p = cStart; p < cEnd; ++p) {
8235 for (r = 0; r < 8; ++r) {
8236 newp = (p - cStart)*8 + r;
8237 pi[newp] = p;
8238 }
8239 }
8240 break;
8241 case REFINER_HYBRID_SIMPLEX_3D:
8242 for (p = cStart; p < cMax; ++p) {
8243 for (r = 0; r < 8; ++r) {
8244 newp = (p - cStart)*8 + r;
8245 pi[newp] = p;
8246 }
8247 }
8248 for (p = cMax; p < cEnd; ++p) {
8249 for (r = 0; r < 4; ++r) {
8250 newp = (cMax - cStart)*8 + (p - cMax)*4 + r;
8251 pi[newp] = p;
8252 }
8253 }
8254 break;
8255 case REFINER_SIMPLEX_TO_HEX_3D:
8256 for (p = cStart; p < cEnd; ++p) {
8257 for (r = 0; r < 4; ++r) {
8258 newp = (p - cStart)*4 + r;
8259 pi[newp] = p;
8260 }
8261 }
8262 break;
8263 case REFINER_HYBRID_SIMPLEX_TO_HEX_3D:
8264 for (p = cStart; p < cMax; ++p) {
8265 for (r = 0; r < 4; ++r) {
8266 newp = (p - cStart)*4 + r;
8267 pi[newp] = p;
8268 }
8269 }
8270 for (p = cMax; p < cEnd; ++p) {
8271 for (r = 0; r < 3; ++r) {
8272 newp = (cMax - cStart)*4 + (p - cMax)*3 + r;
8273 pi[newp] = p;
8274 }
8275 }
8276 break;
8277 case REFINER_HEX_3D:
8278 for (p = cStart; p < cEnd; ++p) {
8279 for (r = 0; r < 8; ++r) {
8280 newp = (p - cStart)*8 + r;
8281 pi[newp] = p;
8282 }
8283 }
8284 break;
8285 case REFINER_HYBRID_HEX_3D:
8286 for (p = cStart; p < cMax; ++p) {
8287 for (r = 0; r < 8; ++r) {
8288 newp = (p - cStart)*8 + r;
8289 pi[newp] = p;
8290 }
8291 }
8292 for (p = cMax; p < cEnd; ++p) {
8293 for (r = 0; r < 4; ++r) {
8294 newp = (cMax - cStart)*8 + (p - cMax)*4 + r;
8295 pi[newp] = p;
8296 }
8297 }
8298 break;
8299 default:
8300 SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown cell refiner %D", refiner)return PetscError(((MPI_Comm)0x44000001),8300,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown cell refiner %D",refiner);
8301 }
8302 parentId = pi;
8303 } else {
8304 /* The refiner needs midpoint vertices on hybrid edges and hybrid cells */
8305 if (REFINER_HYBRID_SIMPLEX_TO_HEX_2D == refiner) { cMax = cEnd; eMax = eEnd; }
8306 ierr = PetscSectionSetChart(coordSectionNew, vStartNew, vStartNew+numVertices);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8306,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8307 }
8308
8309 /* All vertices have the spaceDim coordinates */
8310 if (localize) {
8311 PetscInt c;
8312
8313 for (c = cStartNew; c < cEndNew; ++c) {
8314 PetscInt *cone = NULL((void*)0);
8315 PetscInt closureSize, coneSize = 0, p, pdof;
8316
8317 ierr = PetscSectionGetDof(coordSection, parentId[c], &pdof); CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8317,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8318 if (pdof) { /* localize on all cells that are refinement of a localized parent cell */
8319 ierr = DMPlexGetTransitiveClosure(rdm, c, PETSC_TRUE, &closureSize, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8319,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8320 for (p = 0; p < closureSize*2; p += 2) {
8321 const PetscInt point = cone[p];
8322 if ((point >= vStartNew) && (point < vEndNew)) coneSize++;
8323 }
8324 ierr = DMPlexRestoreTransitiveClosure(rdm, c, PETSC_TRUE, &closureSize, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8324,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8325 ierr = PetscSectionSetDof(coordSectionNew, c, coneSize*spaceDim);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8325,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8326 ierr = PetscSectionSetFieldDof(coordSectionNew, c, 0, coneSize*spaceDim);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8326,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8327 }
8328 }
8329 }
8330 for (v = vStartNew; v < vStartNew+numVertices; ++v) {
8331 ierr = PetscSectionSetDof(coordSectionNew, v, spaceDim);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8331,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8332 ierr = PetscSectionSetFieldDof(coordSectionNew, v, 0, spaceDim);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8332,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8333 }
8334 ierr = PetscSectionSetUp(coordSectionNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8334,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8335 ierr = DMSetCoordinateSection(rdm, PETSC_DETERMINE-1, coordSectionNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8335,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8336 ierr = DMGetCoordinatesLocal(dm, &coordinates);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8336,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8337 ierr = PetscSectionGetStorageSize(coordSectionNew, &coordSizeNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8337,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8338 ierr = VecCreate(PETSC_COMM_SELF((MPI_Comm)0x44000001), &coordinatesNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8338,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8339 ierr = PetscObjectSetName((PetscObject) coordinatesNew, "coordinates");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8339,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8340 ierr = VecSetSizes(coordinatesNew, coordSizeNew, PETSC_DETERMINE-1);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8340,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8341 ierr = VecGetBlockSize(coordinates, &bs);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8341,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8342 ierr = VecSetBlockSize(coordinatesNew, bs);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8342,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8343 ierr = VecGetType(coordinates, &vtype);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8343,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8344 ierr = VecSetType(coordinatesNew, vtype);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8344,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8345 ierr = VecGetArray(coordinates, &coords);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8345,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8346 ierr = VecGetArray(coordinatesNew, &coordsNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8346,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8347
8348 switch (refiner) {
8349 case REFINER_NOOP: break;
8350 case REFINER_HYBRID_SIMPLEX_TO_HEX_3D:
8351 case REFINER_SIMPLEX_TO_HEX_3D:
8352 case REFINER_HEX_3D:
8353 case REFINER_HYBRID_HEX_3D:
8354 /* Face vertices have the average of corner coordinates */
8355 for (f = fStart; f < fMax; ++f) {
8356 const PetscInt newv = vStartNew + (vEnd - vStart) + (eMax - eStart) + (f - fStart);
8357 PetscInt *cone = NULL((void*)0);
8358 PetscInt closureSize, coneSize = 0, off[8], offnew, p, d;
8359
8360 ierr = DMPlexGetTransitiveClosure(dm, f, PETSC_TRUE, &closureSize, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8360,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8361 for (p = 0; p < closureSize*2; p += 2) {
8362 const PetscInt point = cone[p];
8363 if ((point >= vStart) && (point < vEnd)) cone[coneSize++] = point;
8364 }
8365 if (localize) {
8366 const PetscInt *support = NULL((void*)0);
8367 PetscInt *rStar = NULL((void*)0);
8368 PetscInt supportSize, rStarSize, coff, s, ccoff[8];
8369 PetscBool cellfound = PETSC_FALSE;
8370
8371 ierr = DMPlexGetTransitiveClosure(rdm, newv, PETSC_FALSE, &rStarSize, &rStar);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8371,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8372 ierr = DMPlexGetSupportSize(dm,f,&supportSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8372,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8373 ierr = DMPlexGetSupport(dm,f,&support);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8373,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8374 /* Compute average of coordinates for each cell sharing the face */
8375 for (s = 0; s < supportSize; ++s) {
8376 PetscScalar coordsNewAux[3] = { 0.0, 0.0, 0.0 };
8377 PetscInt *cellCone = NULL((void*)0);
8378 PetscInt cellClosureSize, cellConeSize = 0, cdof;
8379 const PetscInt cell = support[s];
8380 PetscBool copyoff = PETSC_FALSE;
8381
8382 ierr = DMPlexGetTransitiveClosure(dm, cell, PETSC_TRUE, &cellClosureSize, &cellCone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8382,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8383 for (p = 0; p < cellClosureSize*2; p += 2) {
8384 const PetscInt point = cellCone[p];
8385 if ((point >= vStart) && (point < vEnd)) cellCone[cellConeSize++] = point;
8386 }
8387 ierr = PetscSectionGetDof(coordSection, cell, &cdof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8387,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8388 if (!cdof) { /* the parent cell does not have localized coordinates */
8389 cellfound = PETSC_TRUE;
8390 for (v = 0; v < coneSize; ++v) {
8391 ierr = PetscSectionGetOffset(coordSection, cone[v], &off[v]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8391,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8392 for (d = 0; d < spaceDim; ++d) coordsNewAux[d] += coords[off[v]+d];
8393 }
8394 for (d = 0; d < spaceDim; ++d) coordsNewAux[d] /= coneSize;
8395 } else {
8396 ierr = PetscSectionGetOffset(coordSection, cell, &coff);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8396,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8397 for (p = 0; p < coneSize; ++p) {
8398 const PetscInt tv = cone[p];
8399 PetscInt cv, voff;
8400 PetscBool locv = PETSC_TRUE;
8401
8402 for (cv = 0; cv < cellConeSize; ++cv) {
8403 if (cellCone[cv] == tv) {
8404 ccoff[p] = spaceDim*cv + coff;
8405 break;
8406 }
8407 }
8408 if (cv == cellConeSize) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Unable to map vertex %D",tv)return PetscError(((MPI_Comm)0x44000001),8408,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unable to map vertex %D",tv);
8409
8410 ierr = PetscSectionGetOffset(coordSection, cone[p], &voff);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8410,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8411 for (d = 0; d < spaceDim; ++d) {
8412 coordsNewAux[d] += coords[ccoff[p]+d];
8413 if (!cellfound && coords[voff+d] != coords[ccoff[p]+d]) locv = PETSC_FALSE;
8414 }
8415 if (locv && !cellfound) {
8416 cellfound = PETSC_TRUE;
8417 copyoff = PETSC_TRUE;
8418 }
8419 }
8420 for (d = 0; d < spaceDim; ++d) coordsNewAux[d] /= coneSize;
8421
8422 /* Found a valid face for the "vertex" part of the Section (physical space)
8423 i.e., a face that has at least one corner in the physical space */
8424 if (copyoff) for (p = 0; p < coneSize; ++p) off[p] = ccoff[p];
8425 }
8426
8427 /* Localize new coordinates on each refined cell */
8428 for (v = 0; v < rStarSize*2; v += 2) {
8429 if ((rStar[v] >= cStartNew) && (rStar[v] < cEndNew) && parentId[rStar[v]-cStartNew] == cell) {
8430 PetscInt *rcone = NULL((void*)0), rclosureSize, lid, rcdof, rcoff;
8431 const PetscInt rcell = rStar[v];
8432
8433 ierr = PetscSectionGetDof(coordSectionNew, rcell, &rcdof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8433,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8434 if (!rcdof) continue;
8435 ierr = PetscSectionGetOffset(coordSectionNew, rcell, &rcoff);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8435,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8436 ierr = DMPlexGetTransitiveClosure(rdm, rcell, PETSC_TRUE, &rclosureSize, &rcone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8436,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8437 for (p = 0, lid = 0; p < rclosureSize*2; p += 2) {
8438 if (rcone[p] == newv) {
8439 for (d = 0; d < spaceDim; d++) coordsNew[rcoff + lid*spaceDim + d] = coordsNewAux[d];
8440 break;
8441 }
8442 if (rcone[p] >= vStartNew && rcone[p] < vEndNew) lid++;
8443 }
8444 ierr = DMPlexRestoreTransitiveClosure(rdm, rcell, PETSC_TRUE, &rclosureSize, &rcone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8444,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8445 if (p == closureSize*2) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Unable to map new vertex %D",newv)return PetscError(((MPI_Comm)0x44000001),8445,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unable to map new vertex %D",newv);
8446 }
8447 }
8448 ierr = DMPlexRestoreTransitiveClosure(dm, cell, PETSC_TRUE, &cellClosureSize, &cellCone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8448,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8449 }
8450 ierr = DMPlexRestoreTransitiveClosure(rdm, newv, PETSC_FALSE, &rStarSize, &rStar);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8450,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8451 if (!cellfound) {
8452 /* Could not find a valid face for the vertex part, we will get this vertex later (final reduction) */
8453 needcoords = PETSC_TRUE;
8454 coneSize = 0;
8455 }
8456 } else {
8457 for (v = 0; v < coneSize; ++v) {
8458 ierr = PetscSectionGetOffset(coordSection, cone[v], &off[v]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8458,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8459 }
8460 }
8461 ierr = PetscSectionGetOffset(coordSectionNew, newv, &offnew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8461,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8462 if (coneSize) {
8463 for (d = 0; d < spaceDim; ++d) coordsNew[offnew+d] = 0.0;
8464 for (v = 0; v < coneSize; ++v) {ierr = DMLocalizeAddCoordinate_Internal(dm, spaceDim, &coords[off[0]], &coords[off[v]], &coordsNew[offnew]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8464,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}
8465 for (d = 0; d < spaceDim; ++d) coordsNew[offnew+d] /= coneSize;
8466 } else {
8467 for (d = 0; d < spaceDim; ++d) coordsNew[offnew+d] = PETSC_MIN_REAL(-1.7976931348623157e+308);
8468 }
8469 ierr = DMPlexRestoreTransitiveClosure(dm, f, PETSC_TRUE, &closureSize, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8469,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8470 }
8471 case REFINER_HYBRID_SIMPLEX_TO_HEX_2D:
8472 case REFINER_SIMPLEX_TO_HEX_2D:
8473 case REFINER_HEX_2D:
8474 case REFINER_HYBRID_HEX_2D:
8475 case REFINER_SIMPLEX_1D:
8476 /* Cell vertices have the average of corner coordinates */
8477 for (c = cStart; c < cMax; ++c) {
8478 const PetscInt newv = vStartNew + (vEnd - vStart) + (dim > 1 ? (eMax - eStart) : 0) + (c - cStart) + (dim > 2 ? (fMax - fStart) : 0);
8479 PetscInt *cone = NULL((void*)0);
8480 PetscInt closureSize, coneSize = 0, off[8], offnew, p, d, cdof = 0;
8481
8482 ierr = DMPlexGetTransitiveClosure(dm, c, PETSC_TRUE, &closureSize, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8482,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8483 for (p = 0; p < closureSize*2; p += 2) {
8484 const PetscInt point = cone[p];
8485 if ((point >= vStart) && (point < vEnd)) cone[coneSize++] = point;
8486 }
8487 if (localize) {
8488 ierr = PetscSectionGetDof(coordSection, c, &cdof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8488,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8489 }
8490 if (cdof) {
8491 PetscInt coff;
8492
8493 ierr = PetscSectionGetOffset(coordSection, c, &coff);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8493,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8494 for (v = 0; v < coneSize; ++v) off[v] = spaceDim*v + coff;
8495 } else {
8496 for (v = 0; v < coneSize; ++v) {
8497 ierr = PetscSectionGetOffset(coordSection, cone[v], &off[v]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8497,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8498 }
8499 }
8500 ierr = PetscSectionGetOffset(coordSectionNew, newv, &offnew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8500,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8501 for (d = 0; d < spaceDim; ++d) coordsNew[offnew+d] = 0.0;
8502 for (v = 0; v < coneSize; ++v) {ierr = DMLocalizeAddCoordinate_Internal(dm, spaceDim, &coords[off[0]], &coords[off[v]], &coordsNew[offnew]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8502,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}
8503 for (d = 0; d < spaceDim; ++d) coordsNew[offnew+d] /= coneSize;
8504 ierr = DMPlexRestoreTransitiveClosure(dm, c, PETSC_TRUE, &closureSize, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8504,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8505
8506 /* Localize new coordinates on each refined cell */
8507 if (cdof) {
8508 PetscInt *rStar = NULL((void*)0), rStarSize;
8509
8510 ierr = DMPlexGetTransitiveClosure(rdm, newv, PETSC_FALSE, &rStarSize, &rStar);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8510,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8511 for (v = 0; v < rStarSize*2; v += 2) {
8512 if ((rStar[v] >= cStartNew) && (rStar[v] < cEndNew)) {
8513 PetscInt *cone = NULL((void*)0), closureSize, lid, coff, rc, rcdof;
8514
8515 rc = rStar[v];
8516 ierr = PetscSectionGetDof(coordSectionNew, rc, &rcdof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8516,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8517 if (!rcdof) continue;
8518 ierr = PetscSectionGetOffset(coordSectionNew, rc, &coff);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8518,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8519 ierr = DMPlexGetTransitiveClosure(rdm, rc, PETSC_TRUE, &closureSize, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8519,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8520 for (p = 0, lid = 0; p < closureSize*2; p += 2) {
8521 if (cone[p] == newv) {
8522 for (d = 0; d < spaceDim; d++) coordsNew[coff + lid*spaceDim + d] = coordsNew[offnew + d];
8523 break;
8524 }
8525 if (cone[p] >= vStartNew && cone[p] < vEndNew) lid++;
8526 }
8527 if (p == closureSize*2) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Unable to map new vertex %D",newv)return PetscError(((MPI_Comm)0x44000001),8527,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unable to map new vertex %D",newv);
8528 ierr = DMPlexRestoreTransitiveClosure(rdm, rc, PETSC_TRUE, &closureSize, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8528,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8529 }
8530 }
8531 ierr = DMPlexRestoreTransitiveClosure(rdm, newv, PETSC_FALSE, &rStarSize, &rStar);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8531,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8532 }
8533 }
8534 case REFINER_SIMPLEX_2D:
8535 case REFINER_HYBRID_SIMPLEX_2D:
8536 case REFINER_SIMPLEX_3D:
8537 case REFINER_HYBRID_SIMPLEX_3D:
8538 /* Edge vertices have the average of endpoint coordinates */
8539 for (e = eStart; e < eMax; ++e) {
8540 const PetscInt newv = vStartNew + (vEnd - vStart) + (e - eStart);
8541 const PetscInt *cone;
8542 PetscInt coneSize, offA, offB, offnew, d;
8543
8544 ierr = DMPlexGetConeSize(dm, e, &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8544,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8545 if (coneSize != 2) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Edge %D cone should have two vertices, not %D", e, coneSize)return PetscError(((MPI_Comm)0x44000001),8545,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Edge %D cone should have two vertices, not %D"
,e,coneSize);
8546 ierr = DMPlexGetCone(dm, e, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8546,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8547 if (localize) {
8548 PetscInt coff, toffA = -1, toffB = -1, voffA, voffB;
8549 PetscInt *eStar = NULL((void*)0), eStarSize;
8550 PetscInt *rStar = NULL((void*)0), rStarSize;
8551 PetscBool cellfound = PETSC_FALSE;
8552
8553 offA = offB = -1;
8554 ierr = PetscSectionGetOffset(coordSection, cone[0], &voffA);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8554,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8555 ierr = PetscSectionGetOffset(coordSection, cone[1], &voffB);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8555,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8556 ierr = DMPlexGetTransitiveClosure(dm, e, PETSC_FALSE, &eStarSize, &eStar);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8556,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8557 ierr = DMPlexGetTransitiveClosure(rdm, newv, PETSC_FALSE, &rStarSize, &rStar);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8557,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8558 for (v = 0; v < eStarSize*2; v += 2) {
8559 if ((eStar[v] >= cStart) && (eStar[v] < cEnd)) {
8560 PetscScalar coordsNewAux[3];
8561 PetscInt *cellCone = NULL((void*)0);
8562 PetscInt cellClosureSize, s, cv, cdof;
8563 PetscBool locvA = PETSC_TRUE, locvB = PETSC_TRUE;
8564 const PetscInt cell = eStar[v];
8565
8566 ierr = PetscSectionGetDof(coordSection, cell, &cdof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8566,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8567 if (!cdof) {
8568 /* Found a valid edge for the "vertex" part of the Section */
8569 offA = voffA;
8570 offB = voffB;
8571 cellfound = PETSC_TRUE;
8572 } else {
8573 ierr = PetscSectionGetOffset(coordSection, cell, &coff);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8573,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8574 ierr = DMPlexGetTransitiveClosure(dm, cell, PETSC_TRUE, &cellClosureSize, &cellCone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8574,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8575 for (s = 0, cv = 0; s < cellClosureSize*2; s += 2) {
8576 const PetscInt point = cellCone[s];
8577 if ((point >= vStart) && (point < vEnd)) {
8578 if (point == cone[0]) toffA = spaceDim*cv + coff;
8579 else if (point == cone[1]) toffB = spaceDim*cv + coff;
8580 cv++;
8581 }
8582 }
8583 ierr = DMPlexRestoreTransitiveClosure(dm, cell, PETSC_TRUE, &cellClosureSize, &cellCone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8583,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8584 for (d = 0; d < spaceDim; ++d) {
8585 coordsNewAux[d] = 0.5*(coords[toffA+d] + coords[toffB+d]);
8586 if (coords[toffA+d] != coords[voffA+d]) locvA = PETSC_FALSE;
8587 if (coords[toffB+d] != coords[voffB+d]) locvB = PETSC_FALSE;
8588 }
8589 /* Found a valid edge for the "vertex" part of the Section */
8590 if (!cellfound && (locvA || locvB)) {
8591 cellfound = PETSC_TRUE;
8592 offA = toffA;
8593 offB = toffB;
8594 }
8595 }
8596
8597 /* Localize new coordinates on each refined cell */
8598 for (s = 0; s < rStarSize*2; s += 2) {
8599 if ((rStar[s] >= cStartNew) && (rStar[s] < cEndNew) && parentId[rStar[s]-cStartNew] == cell) {
8600 PetscInt *rcone = NULL((void*)0), rclosureSize, lid, p, rcdof;
8601 const PetscInt rcell = rStar[s];
8602
8603 ierr = PetscSectionGetDof(coordSectionNew, rcell, &rcdof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8603,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8604 if (!rcdof) continue;
8605 ierr = PetscSectionGetOffset(coordSectionNew, rcell, &coff);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8605,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8606 ierr = DMPlexGetTransitiveClosure(rdm, rcell, PETSC_TRUE, &rclosureSize, &rcone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8606,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8607 for (p = 0, lid = 0; p < rclosureSize*2; p += 2) {
8608 if (rcone[p] == newv) {
8609 for (d = 0; d < spaceDim; d++) coordsNew[coff + lid*spaceDim + d] = coordsNewAux[d];
8610 break;
8611 }
8612 if (rcone[p] >= vStartNew && rcone[p] < vEndNew) lid++;
8613 }
8614 ierr = DMPlexRestoreTransitiveClosure(rdm, rcell, PETSC_TRUE, &rclosureSize, &rcone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8614,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8615 if (p == rclosureSize*2) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Unable to map new vertex %D",newv)return PetscError(((MPI_Comm)0x44000001),8615,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unable to map new vertex %D",newv);
8616 }
8617 }
8618 }
8619 }
8620 ierr = DMPlexRestoreTransitiveClosure(dm, e, PETSC_FALSE, &eStarSize, &eStar);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8620,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8621 ierr = DMPlexRestoreTransitiveClosure(rdm, newv, PETSC_FALSE, &rStarSize, &rStar);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8621,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8622 if (!cellfound) {
8623 /* Could not find a valid edge for the vertex part, we will get this vertex later (final reduction) */
8624 needcoords = PETSC_TRUE;
8625 }
8626 } else {
8627 ierr = PetscSectionGetOffset(coordSection, cone[0], &offA);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8627,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8628 ierr = PetscSectionGetOffset(coordSection, cone[1], &offB);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8628,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8629 }
8630 ierr = PetscSectionGetOffset(coordSectionNew, newv, &offnew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8630,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8631 if (offA != -1 && offB != -1) {
8632 ierr = DMLocalizeCoordinate_Internal(dm, spaceDim, &coords[offA], &coords[offB], &coordsNew[offnew]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8632,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8633 for (d = 0; d < spaceDim; ++d) {
8634 coordsNew[offnew+d] = 0.5*(coords[offA+d] + coordsNew[offnew+d]);
8635 }
8636 } else {
8637 for (d = 0; d < spaceDim; ++d) coordsNew[offnew+d] = PETSC_MIN_REAL(-1.7976931348623157e+308);
8638 }
8639 }
8640 /* Old vertices have the same coordinates */
8641 for (v = vStart; v < vEnd; ++v) {
8642 const PetscInt newv = vStartNew + (v - vStart);
8643 PetscInt off, offnew, d;
8644
8645 ierr = PetscSectionGetOffset(coordSection, v, &off);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8645,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8646 ierr = PetscSectionGetOffset(coordSectionNew, newv, &offnew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8646,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8647 for (d = 0; d < spaceDim; ++d) {
8648 coordsNew[offnew+d] = coords[off+d];
8649 }
8650
8651 /* Localize new coordinates on each refined cell */
8652 if (localize) {
8653 PetscInt p;
8654 PetscInt *rStar = NULL((void*)0), rStarSize;
8655
8656 ierr = DMPlexGetTransitiveClosure(rdm, newv, PETSC_FALSE, &rStarSize, &rStar);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8656,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8657 for (p = 0; p < rStarSize*2; p += 2) {
8658 if ((rStar[p] >= cStartNew) && (rStar[p] < cEndNew)) {
8659 PetscScalar ocoords[3];
8660 PetscInt *cone = NULL((void*)0), closureSize, lid, coff, s, oc, cdof;
8661
8662 c = rStar[p];
8663 oc = parentId[c-cStartNew];
8664 ierr = PetscSectionGetDof(coordSectionNew, c, &cdof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8664,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8665 if (!cdof) continue;
8666 ierr = PetscSectionGetDof(coordSection, oc, &cdof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8666,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8667 if (!cdof) continue;
8668 ierr = PetscSectionGetOffset(coordSection, oc, &coff);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8668,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8669 ierr = DMPlexGetTransitiveClosure(dm, oc, PETSC_TRUE, &closureSize, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8669,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8670 for (s = 0, lid = 0; s < closureSize*2; s += 2) {
8671 if (cone[s] == v) {
8672 for (d = 0; d < spaceDim; d++) ocoords[d] = coords[coff + lid*spaceDim + d];
8673 break;
8674 }
8675 if (cone[s] >= vStart && cone[s] < vEnd) lid++;
8676 }
8677 if (s == closureSize*2) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Unable to map old vertex %D",v)return PetscError(((MPI_Comm)0x44000001),8677,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unable to map old vertex %D",v);
8678 ierr = DMPlexRestoreTransitiveClosure(dm, oc, PETSC_TRUE, &closureSize, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8678,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8679
8680 ierr = PetscSectionGetOffset(coordSectionNew, c, &coff);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8680,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8681 ierr = DMPlexGetTransitiveClosure(rdm, c, PETSC_TRUE, &closureSize, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8681,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8682 for (s = 0, lid = 0; s < closureSize*2; s += 2) {
8683 if (cone[s] == newv) {
8684 for (d = 0; d < spaceDim; d++) coordsNew[coff + lid*spaceDim + d] = ocoords[d];
8685 break;
8686 }
8687 if (cone[s] >= vStartNew && cone[s] < vEndNew) lid++;
8688 }
8689 if (s == closureSize*2) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Unable to map new vertex %D",newv)return PetscError(((MPI_Comm)0x44000001),8689,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Unable to map new vertex %D",newv);
8690 ierr = DMPlexRestoreTransitiveClosure(rdm, c, PETSC_TRUE, &closureSize, &cone);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8690,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8691 }
8692 }
8693 ierr = DMPlexRestoreTransitiveClosure(rdm, newv, PETSC_FALSE, &rStarSize, &rStar);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8693,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8694 }
8695 }
8696 break;
8697 default:
8698 SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown cell refiner %D", refiner)return PetscError(((MPI_Comm)0x44000001),8698,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown cell refiner %D",refiner);
8699 }
8700 ierr = VecRestoreArray(coordinates, &coords);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8700,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8701 ierr = VecRestoreArray(coordinatesNew, &coordsNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8701,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8702 ierr = DMSetCoordinatesLocal(rdm, coordinatesNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8702,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8703
8704 /* Final reduction (if needed) if we are localizing */
8705 if (localize) {
8706 PetscBool gred;
8707
8708 ierr = MPIU_Allreduce(&needcoords, &gred, 1, MPIU_BOOL, MPI_LOR, PetscObjectComm((PetscObject)rdm))(PetscAllreduceBarrierCheck(PetscObjectComm((PetscObject)rdm)
,1,8708,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((petsc_allreduce_ct += PetscMPIParallelComm((PetscObjectComm
((PetscObject)rdm))),0) || MPI_Allreduce((&needcoords),(&
gred),(1),(MPIU_BOOL),((MPI_Op)(0x58000007)),(PetscObjectComm
((PetscObject)rdm)))));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8708,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8709 if (gred) {
8710 DM cdm;
8711 Vec aux;
8712 PetscSF sf;
8713 const PetscScalar *lArray;
8714 PetscScalar *gArray;
8715#if defined(PETSC_USE_COMPLEX)
8716 PetscInt i, ln, gn;
8717 PetscReal *lrArray;
8718 PetscReal *grArray;
8719#endif
8720
8721 ierr = DMGetCoordinateDM(rdm, &cdm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8721,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8722 ierr = DMCreateGlobalVector(cdm, &aux);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8722,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8723 ierr = DMGetDefaultSF(cdm, &sf);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8723,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8724 ierr = VecGetArrayRead(coordinatesNew, &lArray);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8724,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8725 ierr = VecSet(aux, PETSC_MIN_REAL(-1.7976931348623157e+308));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8725,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8726 ierr = VecGetArray(aux, &gArray);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8726,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8727#if defined(PETSC_USE_COMPLEX)
8728 ierr = VecGetLocalSize(aux, &gn);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8728,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8729 ierr = VecGetLocalSize(coordinatesNew, &ln);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8729,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8730 ierr = PetscMalloc2(ln,&lrArray,gn,&grArray)PetscMallocA(2,PETSC_FALSE,8730,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(ln)*sizeof(**(&lrArray)),(&lrArray),(size_t
)(gn)*sizeof(**(&grArray)),(&grArray));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8730,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8731 for (i=0;i<ln;i++) lrArray[i] = PetscRealPart(lArray[i])(lArray[i]);
8732 for (i=0;i<gn;i++) grArray[i] = PetscRealPart(gArray[i])(gArray[i]);
8733 ierr = PetscSFReduceBegin(sf, MPIU_REAL((MPI_Datatype)0x4c00080b), lrArray, grArray, MPIU_MAX(MPI_Op)(0x58000001));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8733,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8734 ierr = PetscSFReduceEnd(sf, MPIU_REAL((MPI_Datatype)0x4c00080b), lrArray, grArray, MPIU_MAX(MPI_Op)(0x58000001));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8734,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8735 for (i=0;i<gn;i++) gArray[i] = grArray[i];
8736 ierr = PetscFree2(lrArray,grArray)PetscFreeA(2,8736,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,&(lrArray),&(grArray));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8736,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8737#else
8738 ierr = PetscSFReduceBegin(sf, MPIU_SCALAR((MPI_Datatype)0x4c00080b), lArray, gArray, MPIU_MAX(MPI_Op)(0x58000001));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8738,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8739 ierr = PetscSFReduceEnd(sf, MPIU_SCALAR((MPI_Datatype)0x4c00080b), lArray, gArray, MPIU_MAX(MPI_Op)(0x58000001));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8739,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8740#endif
8741 ierr = VecRestoreArrayRead(coordinatesNew, &lArray);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8741,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8742 ierr = VecRestoreArray(aux, &gArray);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8742,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8743 ierr = DMGlobalToLocalBegin(cdm, aux, INSERT_VALUES, coordinatesNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8743,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8744 ierr = DMGlobalToLocalEnd(cdm, aux, INSERT_VALUES, coordinatesNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8744,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8745 ierr = VecDestroy(&aux);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8745,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8746 }
8747 }
8748 ierr = VecDestroy(&coordinatesNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8748,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8749 ierr = PetscSectionDestroy(&coordSectionNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8749,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8750 ierr = PetscFree(parentId)((*PetscTrFree)((void*)(parentId),8750,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((parentId) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8750,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8751 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
8752}
8753
8754/*@
8755 DMPlexCreateProcessSF - Create an SF which just has process connectivity
8756
8757 Collective on DM
8758
8759 Input Parameters:
8760+ dm - The DM
8761- sfPoint - The PetscSF which encodes point connectivity
8762
8763 Output Parameters:
8764+ processRanks - A list of process neighbors, or NULL
8765- sfProcess - An SF encoding the process connectivity, or NULL
8766
8767 Level: developer
8768
8769.seealso: PetscSFCreate(), DMPlexCreateTwoSidedProcessSF()
8770@*/
8771PetscErrorCode DMPlexCreateProcessSF(DM dm, PetscSF sfPoint, IS *processRanks, PetscSF *sfProcess)
8772{
8773 PetscInt numRoots, numLeaves, l;
8774 const PetscInt *localPoints;
8775 const PetscSFNode *remotePoints;
8776 PetscInt *localPointsNew;
8777 PetscSFNode *remotePointsNew;
8778 PetscInt *ranks, *ranksNew;
8779 PetscMPIInt size;
8780 PetscErrorCode ierr;
8781
8782 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 8782; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
8783 PetscValidHeaderSpecific(dm, DM_CLASSID, 1)do { if (!dm) return PetscError(((MPI_Comm)0x44000001),8783,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(dm,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),8783,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(dm))->classid != DM_CLASSID) { if (
((PetscObject)(dm))->classid == -1) return PetscError(((MPI_Comm
)0x44000001),8783,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),8783,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);
8784 PetscValidHeaderSpecific(sfPoint, PETSCSF_CLASSID, 2)do { if (!sfPoint) return PetscError(((MPI_Comm)0x44000001),8784
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",2); if (
!PetscCheckPointer(sfPoint,PETSC_OBJECT)) return PetscError((
(MPI_Comm)0x44000001),8784,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,2); if (((PetscObject)(sfPoint))->classid != PETSCSF_CLASSID
) { if (((PetscObject)(sfPoint))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),8784,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,2); else return PetscError(((MPI_Comm)0x44000001),8784,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,2); } } while (0);
8785 if (processRanks) {PetscValidPointer(processRanks, 3)do { if (!processRanks) return PetscError(((MPI_Comm)0x44000001
),8785,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",3); if
(!PetscCheckPointer(processRanks,PETSC_CHAR)) return PetscError
(((MPI_Comm)0x44000001),8785,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",3);
} while (0);}
8786 if (sfProcess) {PetscValidPointer(sfProcess, 4)do { if (!sfProcess) return PetscError(((MPI_Comm)0x44000001)
,8786,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",4); if
(!PetscCheckPointer(sfProcess,PETSC_CHAR)) return PetscError
(((MPI_Comm)0x44000001),8786,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",4);
} while (0);}
8787 ierr = MPI_Comm_size(PetscObjectComm((PetscObject) dm), &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8787,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8788 ierr = PetscSFGetGraph(sfPoint, &numRoots, &numLeaves, &localPoints, &remotePoints);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8788,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8789 ierr = PetscMalloc1(numLeaves, &ranks)PetscMallocA(1,PETSC_FALSE,8789,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(numLeaves)*sizeof(**(&ranks)),(&ranks));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8789,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8790 for (l = 0; l < numLeaves; ++l) {
8791 ranks[l] = remotePoints[l].rank;
8792 }
8793 ierr = PetscSortRemoveDupsInt(&numLeaves, ranks);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8793,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8794 ierr = PetscMalloc1(numLeaves, &ranksNew)PetscMallocA(1,PETSC_FALSE,8794,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(numLeaves)*sizeof(**(&ranksNew)),(&ranksNew
));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8794,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8795 ierr = PetscMalloc1(numLeaves, &localPointsNew)PetscMallocA(1,PETSC_FALSE,8795,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(numLeaves)*sizeof(**(&localPointsNew)),(&localPointsNew
));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8795,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8796 ierr = PetscMalloc1(numLeaves, &remotePointsNew)PetscMallocA(1,PETSC_FALSE,8796,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(numLeaves)*sizeof(**(&remotePointsNew)),(&remotePointsNew
));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8796,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8797 for (l = 0; l < numLeaves; ++l) {
8798 ranksNew[l] = ranks[l];
8799 localPointsNew[l] = l;
8800 remotePointsNew[l].index = 0;
8801 remotePointsNew[l].rank = ranksNew[l];
8802 }
8803 ierr = PetscFree(ranks)((*PetscTrFree)((void*)(ranks),8803,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((ranks) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8803,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8804 if (processRanks) {ierr = ISCreateGeneral(PetscObjectComm((PetscObject)dm), numLeaves, ranksNew, PETSC_OWN_POINTER, processRanks);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8804,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}
8805 else {ierr = PetscFree(ranksNew)((*PetscTrFree)((void*)(ranksNew),8805,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((ranksNew) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8805,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}
8806 if (sfProcess) {
8807 ierr = PetscSFCreate(PetscObjectComm((PetscObject)dm), sfProcess);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8807,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8808 ierr = PetscObjectSetName((PetscObject) *sfProcess, "Process SF");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8808,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8809 ierr = PetscSFSetFromOptions(*sfProcess);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8809,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8810 ierr = PetscSFSetGraph(*sfProcess, size, numLeaves, localPointsNew, PETSC_OWN_POINTER, remotePointsNew, PETSC_OWN_POINTER);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8810,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8811 }
8812 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
8813}
8814
8815static PetscErrorCode CellRefinerCreateSF(CellRefiner refiner, DM dm, PetscInt depthSize[], DM rdm)
8816{
8817 PetscSF sf, sfNew, sfProcess;
8818 IS processRanks;
8819 MPI_Datatype depthType;
8820 PetscInt numRoots, numLeaves, numLeavesNew = 0, l, m;
8821 const PetscInt *localPoints, *neighbors;
8822 const PetscSFNode *remotePoints;
8823 PetscInt *localPointsNew;
8824 PetscSFNode *remotePointsNew;
8825 PetscInt *depthSizeOld, *rdepthSize, *rdepthSizeOld, *rdepthMaxOld, *rvStart, *rvStartNew, *reStart, *reStartNew, *rfStart, *rfStartNew, *rcStart, *rcStartNew;
8826 PetscInt ldepth, depth, numNeighbors, pStartNew, pEndNew, cStart, cEnd, cMax, vStart, vEnd, vMax, fStart, fEnd, fMax, eStart, eEnd, eMax, r, n;
8827 PetscInt cStartNew = 0, vStartNew = 0, fStartNew = 0, eStartNew = 0;
8828 PetscErrorCode ierr;
8829
8830 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 8830; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
8831 ierr = DMPlexGetChart(rdm, &pStartNew, &pEndNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8831,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8832 ierr = DMPlexGetDepth(dm, &ldepth);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8832,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8833 ierr = MPIU_Allreduce(&ldepth, &depth, 1, MPIU_INT, MPI_MAX, PetscObjectComm((PetscObject) dm))(PetscAllreduceBarrierCheck(PetscObjectComm((PetscObject) dm)
,1,8833,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((petsc_allreduce_ct += PetscMPIParallelComm((PetscObjectComm
((PetscObject) dm))),0) || MPI_Allreduce((&ldepth),(&
depth),(1),(((MPI_Datatype)0x4c000405)),((MPI_Op)(0x58000001)
),(PetscObjectComm((PetscObject) dm)))));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8833,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8834 if ((ldepth >= 0) && (depth != ldepth)) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Inconsistent Plex depth %D != %D", ldepth, depth)return PetscError(((MPI_Comm)0x44000001),8834,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Inconsistent Plex depth %D != %D",ldepth
,depth);
8835 ierr = DMPlexGetDepthStratum(dm, 0, &vStart, &vEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8835,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8836 ierr = DMPlexGetDepthStratum(dm, 1, &eStart, &eEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8836,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8837 ierr = DMPlexGetHeightStratum(dm, 0, &cStart, &cEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8837,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8838 ierr = DMPlexGetHeightStratum(dm, 1, &fStart, &fEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8838,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8839 ierr = DMPlexGetHybridBounds(dm, &cMax, &fMax, &eMax, &vMax);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8839,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8840 cMax = cMax < 0 ? cEnd : cMax;
8841 fMax = fMax < 0 ? fEnd : fMax;
8842 eMax = eMax < 0 ? eEnd : eMax;
8843 if (refiner) {ierr = GetDepthStart_Private(depth, depthSize, &cStartNew, &fStartNew, &eStartNew, &vStartNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8843,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}
8844 ierr = DMGetPointSF(dm, &sf);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8844,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8845 ierr = DMGetPointSF(rdm, &sfNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8845,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8846 /* Calculate size of new SF */
8847 ierr = PetscSFGetGraph(sf, &numRoots, &numLeaves, &localPoints, &remotePoints);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8847,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8848 if (numRoots < 0) PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
8849 for (l = 0; l < numLeaves; ++l) {
8850 const PetscInt p = localPoints[l];
8851
8852 switch (refiner) {
8853 case REFINER_SIMPLEX_1D:
8854 if ((p >= vStart) && (p < vEnd)) {
8855 /* Interior vertices stay the same */
8856 ++numLeavesNew;
8857 } else if ((p >= cStart && p < cMax)) {
8858 /* Interior cells add new cells and interior vertices */
8859 numLeavesNew += 2 + 1;
8860 }
8861 break;
8862 case REFINER_SIMPLEX_2D:
8863 case REFINER_HYBRID_SIMPLEX_2D:
8864 if ((p >= vStart) && (p < vEnd)) {
8865 /* Interior vertices stay the same */
8866 ++numLeavesNew;
8867 } else if ((p >= fStart) && (p < fMax)) {
8868 /* Interior faces add new faces and vertex */
8869 numLeavesNew += 2 + 1;
8870 } else if ((p >= fMax) && (p < fEnd)) {
8871 /* Hybrid faces stay the same */
8872 ++numLeavesNew;
8873 } else if ((p >= cStart) && (p < cMax)) {
8874 /* Interior cells add new cells and interior faces */
8875 numLeavesNew += 4 + 3;
8876 } else if ((p >= cMax) && (p < cEnd)) {
8877 /* Hybrid cells add new cells and hybrid face */
8878 numLeavesNew += 2 + 1;
8879 }
8880 break;
8881 case REFINER_HYBRID_SIMPLEX_TO_HEX_2D:
8882 case REFINER_SIMPLEX_TO_HEX_2D:
8883 if ((p >= vStart) && (p < vEnd)) {
8884 /* Interior vertices stay the same */
8885 ++numLeavesNew;
8886 } else if ((p >= fStart) && (p < fEnd)) {
8887 /* Interior faces add new faces and vertex */
8888 numLeavesNew += 2 + 1;
8889 } else if ((p >= cStart) && (p < cMax)) {
8890 /* Interior cells add new cells, interior faces, and vertex */
8891 numLeavesNew += 3 + 3 + 1;
8892 } else if ((p >= cMax) && (p < cEnd)) {
8893 /* Hybrid cells add new cells, interior faces, and vertex */
8894 numLeavesNew += 4 + 4 + 1;
8895 }
8896 break;
8897 case REFINER_HEX_2D:
8898 case REFINER_HYBRID_HEX_2D:
8899 if ((p >= vStart) && (p < vEnd)) {
8900 /* Interior vertices stay the same */
8901 ++numLeavesNew;
8902 } else if ((p >= fStart) && (p < fMax)) {
8903 /* Interior faces add new faces and vertex */
8904 numLeavesNew += 2 + 1;
8905 } else if ((p >= fMax) && (p < fEnd)) {
8906 /* Hybrid faces stay the same */
8907 ++numLeavesNew;
8908 } else if ((p >= cStart) && (p < cMax)) {
8909 /* Interior cells add new cells, interior faces, and vertex */
8910 numLeavesNew += 4 + 4 + 1;
8911 } else if ((p >= cMax) && (p < cEnd)) {
8912 /* Hybrid cells add new cells and hybrid face */
8913 numLeavesNew += 2 + 1;
8914 }
8915 break;
8916 case REFINER_SIMPLEX_3D:
8917 case REFINER_HYBRID_SIMPLEX_3D:
8918 if ((p >= vStart) && (p < vEnd)) {
8919 /* Interior vertices stay the same */
8920 ++numLeavesNew;
8921 } else if ((p >= eStart) && (p < eMax)) {
8922 /* Interior edges add new edges and vertex */
8923 numLeavesNew += 2 + 1;
8924 } else if ((p >= eMax) && (p < eEnd)) {
8925 /* Hybrid edges stay the same */
8926 ++numLeavesNew;
8927 } else if ((p >= fStart) && (p < fMax)) {
8928 /* Interior faces add new faces and edges */
8929 numLeavesNew += 4 + 3;
8930 } else if ((p >= fMax) && (p < fEnd)) {
8931 /* Hybrid faces add new faces and edges */
8932 numLeavesNew += 2 + 1;
8933 } else if ((p >= cStart) && (p < cMax)) {
8934 /* Interior cells add new cells, faces, and edges */
8935 numLeavesNew += 8 + 8 + 1;
8936 } else if ((p >= cMax) && (p < cEnd)) {
8937 /* Hybrid cells add new cells and faces */
8938 numLeavesNew += 4 + 3;
8939 }
8940 break;
8941 case REFINER_HYBRID_SIMPLEX_TO_HEX_3D:
8942 case REFINER_SIMPLEX_TO_HEX_3D:
8943 if ((p >= vStart) && (p < vEnd)) {
8944 /* Interior vertices stay the same */
8945 ++numLeavesNew;
8946 } else if ((p >= eStart) && (p < eMax)) {
8947 /* Interior edges add new edges and vertex */
8948 numLeavesNew += 2 + 1;
8949 } else if ((p >= eMax) && (p < eEnd)) {
8950 /* Hybrid edges stay the same */
8951 ++numLeavesNew;
8952 } else if ((p >= fStart) && (p < fMax)) {
8953 /* Interior faces add new faces, edges and a vertex */
8954 numLeavesNew += 3 + 3 + 1;
8955 } else if ((p >= fMax) && (p < fEnd)) {
8956 /* Hybrid faces add new faces and an edge */
8957 numLeavesNew += 2 + 1;
8958 } else if ((p >= cStart) && (p < cMax)) {
8959 /* Interior cells add new cells, faces, edges and a vertex */
8960 numLeavesNew += 4 + 6 + 4 + 1;
8961 } else if ((p >= cMax) && (p < cEnd)) {
8962 /* Hybrid cells add new cells, faces and an edge */
8963 numLeavesNew += 3 + 3 + 1;
8964 }
8965 break;
8966 case REFINER_HEX_3D:
8967 case REFINER_HYBRID_HEX_3D:
8968 if ((p >= vStart) && (p < vEnd)) {
8969 /* Old vertices stay the same */
8970 ++numLeavesNew;
8971 } else if ((p >= eStart) && (p < eMax)) {
8972 /* Interior edges add new edges, and vertex */
8973 numLeavesNew += 2 + 1;
8974 } else if ((p >= eMax) && (p < eEnd)) {
8975 /* Hybrid edges stay the same */
8976 ++numLeavesNew;
8977 } else if ((p >= fStart) && (p < fMax)) {
8978 /* Interior faces add new faces, edges, and vertex */
8979 numLeavesNew += 4 + 4 + 1;
8980 } else if ((p >= fMax) && (p < fEnd)) {
8981 /* Hybrid faces add new faces and edges */
8982 numLeavesNew += 2 + 1;
8983 } else if ((p >= cStart) && (p < cMax)) {
8984 /* Interior cells add new cells, faces, edges, and vertex */
8985 numLeavesNew += 8 + 12 + 6 + 1;
8986 } else if ((p >= cStart) && (p < cEnd)) {
8987 /* Hybrid cells add new cells, faces, and edges */
8988 numLeavesNew += 4 + 4 + 1;
8989 }
8990 break;
8991 default:
8992 SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown cell refiner %D", refiner)return PetscError(((MPI_Comm)0x44000001),8992,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown cell refiner %D",refiner);
8993 }
8994 }
8995 /* Communicate depthSizes for each remote rank */
8996 ierr = DMPlexCreateProcessSF(dm, sf, &processRanks, &sfProcess);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8996,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8997 ierr = ISGetLocalSize(processRanks, &numNeighbors);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8997,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8998 ierr = PetscMalloc5((depth+1)*numNeighbors,&rdepthSize,numNeighbors,&rvStartNew,numNeighbors,&reStartNew,numNeighbors,&rfStartNew,numNeighbors,&rcStartNew)PetscMallocA(5,PETSC_FALSE,8998,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)((depth+1)*numNeighbors)*sizeof(**(&rdepthSize))
,(&rdepthSize),(size_t)(numNeighbors)*sizeof(**(&rvStartNew
)),(&rvStartNew),(size_t)(numNeighbors)*sizeof(**(&reStartNew
)),(&reStartNew),(size_t)(numNeighbors)*sizeof(**(&rfStartNew
)),(&rfStartNew),(size_t)(numNeighbors)*sizeof(**(&rcStartNew
)),(&rcStartNew));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8998,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
8999 ierr = PetscMalloc7(depth+1,&depthSizeOld,(depth+1)*numNeighbors,&rdepthSizeOld,(depth+1)*numNeighbors,&rdepthMaxOld,numNeighbors,&rvStart,numNeighbors,&reStart,numNeighbors,&rfStart,numNeighbors,&rcStart)PetscMallocA(7,PETSC_FALSE,8999,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(depth+1)*sizeof(**(&depthSizeOld)),(&depthSizeOld
),(size_t)((depth+1)*numNeighbors)*sizeof(**(&rdepthSizeOld
)),(&rdepthSizeOld),(size_t)((depth+1)*numNeighbors)*sizeof
(**(&rdepthMaxOld)),(&rdepthMaxOld),(size_t)(numNeighbors
)*sizeof(**(&rvStart)),(&rvStart),(size_t)(numNeighbors
)*sizeof(**(&reStart)),(&reStart),(size_t)(numNeighbors
)*sizeof(**(&rfStart)),(&rfStart),(size_t)(numNeighbors
)*sizeof(**(&rcStart)),(&rcStart));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),8999,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9000 ierr = MPI_Type_contiguous(depth+1, MPIU_INT((MPI_Datatype)0x4c000405), &depthType);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9000,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9001 ierr = MPI_Type_commit(&depthType);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9001,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9002 ierr = PetscSFBcastBegin(sfProcess, depthType, depthSize, rdepthSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9002,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9003 ierr = PetscSFBcastEnd(sfProcess, depthType, depthSize, rdepthSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9003,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9004 for (n = 0; n < numNeighbors; ++n) {
9005 ierr = GetDepthStart_Private(depth, &rdepthSize[n*(depth+1)], &rcStartNew[n], &rfStartNew[n], &reStartNew[n], &rvStartNew[n]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9005,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9006 }
9007 depthSizeOld[depth] = cMax;
9008 depthSizeOld[0] = vMax;
9009 depthSizeOld[depth-1] = fMax;
9010 depthSizeOld[1] = eMax;
9011
9012 ierr = PetscSFBcastBegin(sfProcess, depthType, depthSizeOld, rdepthMaxOld);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9012,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9013 ierr = PetscSFBcastEnd(sfProcess, depthType, depthSizeOld, rdepthMaxOld);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9013,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9014
9015 depthSizeOld[depth] = cEnd - cStart;
9016 depthSizeOld[0] = vEnd - vStart;
9017 depthSizeOld[depth-1] = fEnd - fStart;
9018 depthSizeOld[1] = eEnd - eStart;
9019
9020 ierr = PetscSFBcastBegin(sfProcess, depthType, depthSizeOld, rdepthSizeOld);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9020,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9021 ierr = PetscSFBcastEnd(sfProcess, depthType, depthSizeOld, rdepthSizeOld);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9021,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9022 for (n = 0; n < numNeighbors; ++n) {
9023 ierr = GetDepthStart_Private(depth, &rdepthSizeOld[n*(depth+1)], &rcStart[n], &rfStart[n], &reStart[n], &rvStart[n]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9023,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9024 rdepthMaxOld[n*(depth+1)+depth] = rdepthMaxOld[n*(depth+1)+depth] < 0 ? rdepthSizeOld[n*(depth+1)+depth] +rcStart[n]: rdepthMaxOld[n*(depth+1)+depth];
9025 rdepthMaxOld[n*(depth+1)+depth-1] = rdepthMaxOld[n*(depth+1)+depth-1] < 0 ? rdepthSizeOld[n*(depth+1)+depth-1]+rfStart[n]: rdepthMaxOld[n*(depth+1)+depth-1];
9026 rdepthMaxOld[n*(depth+1)+1] = rdepthMaxOld[n*(depth+1)+1] < 0 ? rdepthSizeOld[n*(depth+1)+1] +reStart[n]: rdepthMaxOld[n*(depth+1)+1];
9027 }
9028 ierr = MPI_Type_free(&depthType);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9028,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9029 ierr = PetscSFDestroy(&sfProcess);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9029,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9030 /* Calculate new point SF */
9031 ierr = PetscMalloc1(numLeavesNew, &localPointsNew)PetscMallocA(1,PETSC_FALSE,9031,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(numLeavesNew)*sizeof(**(&localPointsNew)),(&
localPointsNew));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9031,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9032 ierr = PetscMalloc1(numLeavesNew, &remotePointsNew)PetscMallocA(1,PETSC_FALSE,9032,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(numLeavesNew)*sizeof(**(&remotePointsNew)),(&
remotePointsNew));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9032,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9033 ierr = ISGetIndices(processRanks, &neighbors);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9033,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9034 for (l = 0, m = 0; l < numLeaves; ++l) {
9035 PetscInt p = localPoints[l];
9036 PetscInt rp = remotePoints[l].index, n;
9037 PetscMPIInt rrank = remotePoints[l].rank;
9038
9039 ierr = PetscFindInt(rrank, numNeighbors, neighbors, &n);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9039,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9040 if (n < 0) SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Could not locate remote rank %D", rrank)return PetscError(((MPI_Comm)0x44000001),9040,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,63,PETSC_ERROR_INITIAL,"Could not locate remote rank %D",rrank
);
9041 switch (refiner) {
9042 case REFINER_SIMPLEX_1D:
9043 if ((p >= vStart) && (p < vEnd)) {
9044 /* Old vertices stay the same */
9045 localPointsNew[m] = vStartNew + (p - vStart);
9046 remotePointsNew[m].index = rvStartNew[n] + (rp - rvStart[n]);
9047 remotePointsNew[m].rank = rrank;
9048 ++m;
9049 } else if ((p >= cStart) && (p < cMax)) {
9050 /* Old interior cells add new cells and vertex */
9051 for (r = 0; r < 2; ++r, ++m) {
9052 localPointsNew[m] = cStartNew + (p - cStart)*2 + r;
9053 remotePointsNew[m].index = rcStartNew[n] + (rp - rcStart[n])*2 + r;
9054 remotePointsNew[m].rank = rrank;
9055 }
9056 localPointsNew[m] = vStartNew + (vEnd - vStart) + (p - cStart);
9057 remotePointsNew[m].index = rvStartNew[n] + rdepthSizeOld[n*(depth+1)+0] + (rp - rcStart[n]);
9058 remotePointsNew[m].rank = rrank;
9059 ++m;
9060 }
9061 break;
9062 case REFINER_SIMPLEX_2D:
9063 case REFINER_HYBRID_SIMPLEX_2D:
9064 if ((p >= vStart) && (p < vEnd)) {
9065 /* Old vertices stay the same */
9066 localPointsNew[m] = vStartNew + (p - vStart);
9067 remotePointsNew[m].index = rvStartNew[n] + (rp - rvStart[n]);
9068 remotePointsNew[m].rank = rrank;
9069 ++m;
9070 } else if ((p >= fStart) && (p < fMax)) {
9071 /* Old interior faces add new faces and vertex */
9072 for (r = 0; r < 2; ++r, ++m) {
9073 localPointsNew[m] = fStartNew + (p - fStart)*2 + r;
9074 remotePointsNew[m].index = rfStartNew[n] + (rp - rfStart[n])*2 + r;
9075 remotePointsNew[m].rank = rrank;
9076 }
9077 localPointsNew[m] = vStartNew + (vEnd - vStart) + (p - fStart);
9078 remotePointsNew[m].index = rvStartNew[n] + rdepthSizeOld[n*(depth+1)+0] + (rp - rfStart[n]);
9079 remotePointsNew[m].rank = rrank;
9080 ++m;
9081 } else if ((p >= fMax) && (p < fEnd)) {
9082 /* Old hybrid faces stay the same */
9083 localPointsNew[m] = fStartNew + (fMax - fStart)*2 + (p - fMax);
9084 remotePointsNew[m].index = rfStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*2 + (rp - rdepthMaxOld[n*(depth+1)+depth-1]);
9085 remotePointsNew[m].rank = rrank;
9086 ++m;
9087 } else if ((p >= cStart) && (p < cMax)) {
9088 /* Old interior cells add new cells and interior faces */
9089 for (r = 0; r < 4; ++r, ++m) {
9090 localPointsNew[m] = cStartNew + (p - cStart)*4 + r;
9091 remotePointsNew[m].index = rcStartNew[n] + (rp - rcStart[n])*4 + r;
9092 remotePointsNew[m].rank = rrank;
9093 }
9094 for (r = 0; r < 3; ++r, ++m) {
9095 localPointsNew[m] = fStartNew + (fMax - fStart)*2 + (p - cStart)*3 + r;
9096 remotePointsNew[m].index = rfStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*2 + (rp - rcStart[n])*3 + r;
9097 remotePointsNew[m].rank = rrank;
9098 }
9099 } else if ((p >= cMax) && (p < cEnd)) {
9100 /* Old hybrid cells add new cells and hybrid face */
9101 for (r = 0; r < 2; ++r, ++m) {
9102 localPointsNew[m] = cStartNew + (p - cStart)*4 + r;
9103 remotePointsNew[m].index = rcStartNew[n] + (rp - rcStart[n])*4 + r;
9104 remotePointsNew[m].rank = rrank;
9105 }
9106 localPointsNew[m] = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*3 + (p - cMax);
9107 remotePointsNew[m].index = rfStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*2 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*3 + (rp - rdepthMaxOld[n*(depth+1)+depth]);
9108 remotePointsNew[m].rank = rrank;
9109 ++m;
9110 }
9111 break;
9112 case REFINER_HYBRID_SIMPLEX_TO_HEX_2D:
9113 case REFINER_SIMPLEX_TO_HEX_2D:
9114 if ((p >= vStart) && (p < vEnd)) {
9115 /* Old vertices stay the same */
9116 localPointsNew[m] = vStartNew + (p - vStart);
9117 remotePointsNew[m].index = rvStartNew[n] + (rp - rvStart[n]);
9118 remotePointsNew[m].rank = rrank;
9119 ++m;
9120 } else if ((p >= fStart) && (p < fEnd)) {
9121 /* Old interior faces add new faces and vertex */
9122 for (r = 0; r < 2; ++r, ++m) {
9123 localPointsNew[m] = fStartNew + (p - fStart)*2 + r;
9124 remotePointsNew[m].index = rfStartNew[n] + (rp - rfStart[n])*2 + r;
9125 remotePointsNew[m].rank = rrank;
9126 }
9127 localPointsNew[m] = vStartNew + (vEnd - vStart) + (p - fStart);
9128 remotePointsNew[m].index = rvStartNew[n] + rdepthSizeOld[n*(depth+1)+0] + (rp - rfStart[n]);
9129 remotePointsNew[m].rank = rrank;
9130 ++m;
9131 } else if ((p >= cStart) && (p < cMax)) {
9132 /* Old interior cells add new cells, interior faces, and a vertex */
9133 for (r = 0; r < 3; ++r, ++m) {
9134 localPointsNew[m] = cStartNew + (p - cStart)*3 + r;
9135 remotePointsNew[m].index = rcStartNew[n] + (rp - rcStart[n])*3 + r;
9136 remotePointsNew[m].rank = rrank;
9137 }
9138 for (r = 0; r < 3; ++r, ++m) {
9139 localPointsNew[m] = fStartNew + (fEnd - fStart)*2 + (p - cStart)*3 + r;
9140 remotePointsNew[m].index = rfStartNew[n] + rdepthSizeOld[n*(depth+1)+depth-1]*2 + (rp - rcStart[n])*3 + r;
9141 remotePointsNew[m].rank = rrank;
9142 }
9143 localPointsNew[m] = vStartNew + (vEnd - vStart) + (fEnd - fStart) + (p - cStart);
9144 remotePointsNew[m].index = rvStartNew[n] + rdepthSizeOld[n*(depth+1)+0] + rdepthSizeOld[n*(depth+1)+depth-1] + (rp - rcStart[n]);
9145 remotePointsNew[m].rank = rrank;
9146 ++m;
9147 } else if ((p >= cMax) && (p < cEnd)) {
9148 /* Old interior hybrid cells add new cells, interior faces, and a vertex */
9149 for (r = 0; r < 4; ++r, ++m) {
9150 localPointsNew[m] = cStartNew + (cMax - cStart)*3 + (p - cMax)*4 + r;
9151 remotePointsNew[m].index = rcStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*3 + (rp - rdepthMaxOld[n*(depth+1)+depth])*4 + r;
9152 remotePointsNew[m].rank = rrank;
9153 }
9154 for (r = 0; r < 4; ++r, ++m) {
9155 localPointsNew[m] = fStartNew + (fEnd - fStart)*2 + (cMax - cStart)*3 + (p - cMax)*4 + r;
9156 remotePointsNew[m].index = rfStartNew[n] + rdepthSizeOld[n*(depth+1)+depth-1]*2 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*3 + (rp - rdepthMaxOld[n*(depth+1)+depth])*4 + r;
9157 remotePointsNew[m].rank = rrank;
9158 }
9159 localPointsNew[m] = vStartNew + (vEnd - vStart) + (fEnd - fStart) + (p - cStart);
9160 remotePointsNew[m].index = rvStartNew[n] + rdepthSizeOld[n*(depth+1)+0] + rdepthSizeOld[n*(depth+1)+depth-1] + (rp - rcStart[n]);
9161 remotePointsNew[m].rank = rrank;
9162 ++m;
9163 }
9164 break;
9165 case REFINER_HEX_2D:
9166 case REFINER_HYBRID_HEX_2D:
9167 if ((p >= vStart) && (p < vEnd)) {
9168 /* Old vertices stay the same */
9169 localPointsNew[m] = vStartNew + (p - vStart);
9170 remotePointsNew[m].index = rvStartNew[n] + (rp - rvStart[n]);
9171 remotePointsNew[m].rank = rrank;
9172 ++m;
9173 } else if ((p >= fStart) && (p < fMax)) {
9174 /* Old interior faces add new faces and vertex */
9175 for (r = 0; r < 2; ++r, ++m) {
9176 localPointsNew[m] = fStartNew + (p - fStart)*2 + r;
9177 remotePointsNew[m].index = rfStartNew[n] + (rp - rfStart[n])*2 + r;
9178 remotePointsNew[m].rank = rrank;
9179 }
9180 localPointsNew[m] = vStartNew + (vEnd - vStart) + (p - fStart);
9181 remotePointsNew[m].index = rvStartNew[n] + rdepthSizeOld[n*(depth+1)+0] + (rp - rfStart[n]);
9182 remotePointsNew[m].rank = rrank;
9183 ++m;
9184 } else if ((p >= fMax) && (p < fEnd)) {
9185 /* Old hybrid faces stay the same */
9186 localPointsNew[m] = fStartNew + (fMax - fStart)*2 + (p - fMax);
9187 remotePointsNew[m].index = rfStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*2 + (rp - rdepthMaxOld[n*(depth+1)+depth-1]);
9188 remotePointsNew[m].rank = rrank;
9189 ++m;
9190 } else if ((p >= cStart) && (p < cMax)) {
9191 /* Old interior cells add new cells, interior faces, and vertex */
9192 for (r = 0; r < 4; ++r, ++m) {
9193 localPointsNew[m] = cStartNew + (p - cStart)*4 + r;
9194 remotePointsNew[m].index = rcStartNew[n] + (rp - rcStart[n])*4 + r;
9195 remotePointsNew[m].rank = rrank;
9196 }
9197 for (r = 0; r < 4; ++r, ++m) {
9198 localPointsNew[m] = fStartNew + (fMax - fStart)*2 + (p - cStart)*4 + r;
9199 remotePointsNew[m].index = rfStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*2 + (rp - rcStart[n])*4 + r;
9200 remotePointsNew[m].rank = rrank;
9201 }
9202 localPointsNew[m] = vStartNew + (vEnd - vStart) + (fMax - fStart) + (p - cStart);
9203 remotePointsNew[m].index = rvStartNew[n] + rdepthSizeOld[n*(depth+1)+0] + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n]) + (rp - rcStart[n]);
9204 remotePointsNew[m].rank = rrank;
9205 ++m;
9206 } else if ((p >= cStart) && (p < cMax)) {
9207 /* Old hybrid cells add new cells and hybrid face */
9208 for (r = 0; r < 2; ++r, ++m) {
9209 localPointsNew[m] = cStartNew + (p - cStart)*4 + r; /* TODO: is this a bug? */
9210 remotePointsNew[m].index = rcStartNew[n] + (rp - rcStart[n])*4 + r; /* TODO: is this a bug? */
9211 remotePointsNew[m].rank = rrank;
9212 }
9213 localPointsNew[m] = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*4 + (p - cMax);
9214 remotePointsNew[m].index = rfStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*2 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*4 + (rp - rdepthMaxOld[n*(depth+1)+depth]);
9215 remotePointsNew[m].rank = rrank;
9216 ++m;
9217 }
9218 break;
9219 case REFINER_SIMPLEX_3D:
9220 case REFINER_HYBRID_SIMPLEX_3D:
9221 if ((p >= vStart) && (p < vEnd)) {
9222 /* Interior vertices stay the same */
9223 localPointsNew[m] = vStartNew + (p - vStart);
9224 remotePointsNew[m].index = rvStartNew[n] + (rp - rvStart[n]);
9225 remotePointsNew[m].rank = rrank;
9226 ++m;
9227 } else if ((p >= eStart) && (p < eMax)) {
9228 /* Interior edges add new edges and vertex */
9229 for (r = 0; r < 2; ++r, ++m) {
9230 localPointsNew[m] = eStartNew + (p - eStart)*2 + r;
9231 remotePointsNew[m].index = reStartNew[n] + (rp - reStart[n])*2 + r;
9232 remotePointsNew[m].rank = rrank;
9233 }
9234 localPointsNew[m] = vStartNew + (vEnd - vStart) + (p - eStart);
9235 remotePointsNew[m].index = rvStartNew[n] + rdepthSizeOld[n*(depth+1)+0] + (rp - reStart[n]);
9236 remotePointsNew[m].rank = rrank;
9237 ++m;
9238 } else if ((p >= eMax) && (p < eEnd)) {
9239 /* Hybrid edges stay the same */
9240 localPointsNew[m] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart) + (p - eMax);
9241 remotePointsNew[m].index = reStartNew[n] + (rdepthMaxOld[n*(depth+1)+1] - reStart[n])*2 + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*3 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n]) + (rp - rdepthMaxOld[n*(depth+1)+1]);
9242 remotePointsNew[m].rank = rrank;
9243 ++m;
9244 } else if ((p >= fStart) && (p < fMax)) {
9245 /* Interior faces add new faces and edges */
9246 for (r = 0; r < 4; ++r, ++m) {
9247 localPointsNew[m] = fStartNew + (p - fStart)*4 + r;
9248 remotePointsNew[m].index = rfStartNew[n] + (rp - rfStart[n])*4 + r;
9249 remotePointsNew[m].rank = rrank;
9250 }
9251 for (r = 0; r < 3; ++r, ++m) {
9252 localPointsNew[m] = eStartNew + (eMax - eStart)*2 + (p - fStart)*3 + r;
9253 remotePointsNew[m].index = reStartNew[n] + (rdepthMaxOld[n*(depth+1)+1] - reStart[n])*2 + (rp - rfStart[n])*3 + r;
9254 remotePointsNew[m].rank = rrank;
9255 }
9256 } else if ((p >= fMax) && (p < fEnd)) {
9257 /* Hybrid faces add new faces and edges */
9258 for (r = 0; r < 2; ++r, ++m) {
9259 localPointsNew[m] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (p - fMax)*2 + r;
9260 remotePointsNew[m].index = rfStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*4 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*8 + (rp - rdepthMaxOld[n*(depth+1)+depth-1])*2 + r;
9261 remotePointsNew[m].rank = rrank;
9262 }
9263 localPointsNew[m] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart) + (eEnd - eMax) + (p - fMax);
9264 remotePointsNew[m].index = reStartNew[n] + (rdepthMaxOld[n*(depth+1)+1] - reStart[n])*2 + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*3 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n]) + (rdepthSizeOld[n*(depth+1)+1]+reStart[n] - rdepthMaxOld[n*(depth+1)+1]) + (rp - rdepthMaxOld[n*(depth+1)+depth-1]);
9265 remotePointsNew[m].rank = rrank;
9266 ++m;
9267 } else if ((p >= cStart) && (p < cMax)) {
9268 /* Interior cells add new cells, faces, and edges */
9269 for (r = 0; r < 8; ++r, ++m) {
9270 localPointsNew[m] = cStartNew + (p - cStart)*8 + r;
9271 remotePointsNew[m].index = rcStartNew[n] + (rp - rcStart[n])*8 + r;
9272 remotePointsNew[m].rank = rrank;
9273 }
9274 for (r = 0; r < 8; ++r, ++m) {
9275 localPointsNew[m] = fStartNew + (fMax - fStart)*4 + (p - cStart)*8 + r;
9276 remotePointsNew[m].index = rfStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*4 + (rp - rcStart[n])*8 + r;
9277 remotePointsNew[m].rank = rrank;
9278 }
9279 localPointsNew[m] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (p - cStart)*1 + 0;
9280 remotePointsNew[m].index = reStartNew[n] + (rdepthMaxOld[n*(depth+1)+1] - reStart[n])*2 + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*3 + (rp - rcStart[n])*1 + 0;
9281 remotePointsNew[m].rank = rrank;
9282 ++m;
9283 } else if ((p >= cMax) && (p < cEnd)) {
9284 /* Hybrid cells add new cells and faces */
9285 for (r = 0; r < 4; ++r, ++m) {
9286 localPointsNew[m] = cStartNew + (cMax - cStart)*8 + (p - cMax)*4 + r;
9287 remotePointsNew[m].index = rcStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*8 + (rp - rdepthMaxOld[n*(depth+1)+depth])*4 + r;
9288 remotePointsNew[m].rank = rrank;
9289 }
9290 for (r = 0; r < 3; ++r, ++m) {
9291 localPointsNew[m] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (fEnd - fMax)*2 + (p - cMax)*3 + r;
9292 remotePointsNew[m].index = rfStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*4 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*8 + (rdepthSizeOld[n*(depth+1)+depth-1]+rfStart[n] - rdepthMaxOld[n*(depth+1)+depth-1])*2 + (rp - rdepthMaxOld[n*(depth+1)+depth])*3 + r;
9293 remotePointsNew[m].rank = rrank;
9294 }
9295 }
9296 break;
9297 case REFINER_HYBRID_SIMPLEX_TO_HEX_3D:
9298 case REFINER_SIMPLEX_TO_HEX_3D:
9299 if ((p >= vStart) && (p < vEnd)) {
9300 /* Interior vertices stay the same */
9301 localPointsNew[m] = vStartNew + (p - vStart);
9302 remotePointsNew[m].index = rvStartNew[n] + (rp - rvStart[n]);
9303 remotePointsNew[m].rank = rrank;
9304 ++m;
9305 } else if ((p >= eStart) && (p < eMax)) {
9306 /* Interior edges add new edges and vertex */
9307 for (r = 0; r < 2; ++r, ++m) {
9308 localPointsNew[m] = eStartNew + (p - eStart)*2 + r;
9309 remotePointsNew[m].index = reStartNew[n] + (rp - reStart[n])*2 + r;
9310 remotePointsNew[m].rank = rrank;
9311 }
9312 localPointsNew[m] = vStartNew + (vEnd - vStart) + (p - eStart);
9313 remotePointsNew[m].index = rvStartNew[n] + rdepthSizeOld[n*(depth+1)+0] + (rp - reStart[n]);
9314 remotePointsNew[m].rank = rrank;
9315 ++m;
9316 } else if ((p >= eMax) && (p < eEnd)) {
9317 /* Hybrid edges stay the same */
9318 localPointsNew[m] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (p - eMax);
9319 remotePointsNew[m].index = reStartNew[n] + (rdepthMaxOld[n*(depth+1)+1] - reStart[n])*2 + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*3 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*4 + (rp - rdepthMaxOld[n*(depth+1)+1]);
9320 remotePointsNew[m].rank = rrank;
9321 ++m;
9322 } else if ((p >= fStart) && (p < fMax)) {
9323 /* Interior faces add new faces, edges and a vertex */
9324 for (r = 0; r < 3; ++r, ++m) {
9325 localPointsNew[m] = fStartNew + (p - fStart)*3 + r;
9326 remotePointsNew[m].index = rfStartNew[n] + (rp - rfStart[n])*3 + r;
9327 remotePointsNew[m].rank = rrank;
9328 }
9329 for (r = 0; r < 3; ++r, ++m) {
9330 localPointsNew[m] = eStartNew + (eMax - eStart)*2 + (p - fStart)*3 + r;
9331 remotePointsNew[m].index = reStartNew[n] + (rdepthMaxOld[n*(depth+1)+1] - reStart[n])*2 + (rp - rfStart[n])*3 + r;
9332 remotePointsNew[m].rank = rrank;
9333 }
9334 localPointsNew[m] = vStartNew + (vEnd - vStart) + (eMax - eStart) + (p - fStart);
9335 remotePointsNew[m].index = rvStartNew[n] + rdepthSizeOld[n*(depth+1)+0] + (rdepthMaxOld[n*(depth+1)+1] - reStart[n]) + (rp - rfStart[n]);
9336 remotePointsNew[m].rank = rrank;
9337 ++m;
9338 } else if ((p >= fMax) && (p < fEnd)) {
9339 /* Interior hybrid faces add new faces and an edge */
9340 for (r = 0; r < 2; ++r, ++m) {
9341 localPointsNew[m] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (p - fMax)*2 + r;
9342 remotePointsNew[m].index = rfStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth-1]- rfStart[n])*3 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*6 + (rp - rdepthMaxOld[n*(depth+1)+depth-1])*2 + r;
9343 remotePointsNew[m].rank = rrank;
9344 }
9345 localPointsNew[m] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (p - fMax);
9346 remotePointsNew[m].index = reStartNew[n] + (rdepthMaxOld[n*(depth+1)+1] - reStart[n])*2 + (rdepthMaxOld[n*(depth+1)+depth-1]- rfStart[n])*3 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*4 + (rdepthSizeOld[n*(depth+1)+1]+reStart[n] - rdepthMaxOld[n*(depth+1)+1]) + (rp - rdepthMaxOld[n*(depth+1)+depth-1]);
9347 remotePointsNew[m].rank = rrank;
9348 ++m;
9349 } else if ((p >= cStart) && (p < cMax)) {
9350 /* Interior cells add new cells, faces, edges, and a vertex */
9351 for (r = 0; r < 4; ++r, ++m) {
9352 localPointsNew[m] = cStartNew + (p - cStart)*4 + r;
9353 remotePointsNew[m].index = rcStartNew[n] + (rp - rcStart[n])*4 + r;
9354 remotePointsNew[m].rank = rrank;
9355 }
9356 for (r = 0; r < 6; ++r, ++m) {
9357 localPointsNew[m] = fStartNew + (fMax - fStart)*3 + (p - cStart)*6 + r;
9358 remotePointsNew[m].index = rfStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth-1]- rfStart[n])*3 + (rp - rcStart[n])*6 + r;
9359 remotePointsNew[m].rank = rrank;
9360 }
9361 for (r = 0; r < 4; ++r, ++m) {
9362 localPointsNew[m] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (p - cStart)*4 + r;
9363 remotePointsNew[m].index = reStartNew[n] + (rdepthMaxOld[n*(depth+1)+1]- reStart[n])*2 + (rdepthMaxOld[n*(depth+1)+depth-1]- rfStart[n])*3 + (rp - rcStart[n])*4 + r;
9364 remotePointsNew[m].rank = rrank;
9365 }
9366 localPointsNew[m] = vStartNew + (vEnd - vStart) + (eMax - eStart) + (fMax - fStart) + (p - cStart);
9367 remotePointsNew[m].index = rvStartNew[n] + rdepthSizeOld[n*(depth+1)+0] + (rdepthMaxOld[n*(depth+1)+1]- reStart[n]) + (rdepthMaxOld[n*(depth+1)+depth-1]- rfStart[n]) + (rp - rcStart[n]);
9368 remotePointsNew[m].rank = rrank;
9369 ++m;
9370 } else if ((p >= cMax) && (p < cEnd)) {
9371 /* Interior hybrid cells add new cells, faces and an edge */
9372 for (r = 0; r < 3; ++r, ++m) {
9373 localPointsNew[m] = cStartNew + (cMax - cStart)*4 + (p - cMax)*3 + r;
9374 remotePointsNew[m].index = rcStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*4 + (rp - rdepthMaxOld[n*(depth+1)+depth])*3 + r;
9375 remotePointsNew[m].rank = rrank;
9376 }
9377 for (r = 0; r < 3; ++r, ++m) {
9378 localPointsNew[m] = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (fEnd - fMax)*2 + (p - cMax)*3 + r;
9379 remotePointsNew[m].index = rfStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth-1]- rfStart[n])*3 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*6 + (rdepthSizeOld[n*(depth+1)+depth-1]+rfStart[n] - rdepthMaxOld[n*(depth+1)+depth-1])*2 + (rp - rdepthMaxOld[n*(depth+1)+depth])*3 + r;
9380 remotePointsNew[m].rank = rrank;
9381 }
9382 localPointsNew[m] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (fEnd - fMax) + (p - cMax);
9383 remotePointsNew[m].index = reStartNew[n] + (rdepthMaxOld[n*(depth+1)+1]- reStart[n])*2 + (rdepthMaxOld[n*(depth+1)+depth-1]- rfStart[n])*3 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*4 + (rdepthSizeOld[n*(depth+1)+1]+reStart[n] - rdepthMaxOld[n*(depth+1)+1]) + (rdepthSizeOld[n*(depth+1)+depth-1]+rfStart[n] - rdepthMaxOld[n*(depth+1)+depth-1]) + (rp - rdepthMaxOld[n*(depth+1)+depth]);
9384 remotePointsNew[m].rank = rrank;
9385 ++m;
9386 }
9387 break;
9388 case REFINER_HEX_3D:
9389 case REFINER_HYBRID_HEX_3D:
9390 if ((p >= vStart) && (p < vEnd)) {
9391 /* Interior vertices stay the same */
9392 localPointsNew[m] = vStartNew + (p - vStart);
9393 remotePointsNew[m].index = rvStartNew[n] + (rp - rvStart[n]);
9394 remotePointsNew[m].rank = rrank;
9395 ++m;
9396 } else if ((p >= eStart) && (p < eMax)) {
9397 /* Interior edges add new edges and vertex */
9398 for (r = 0; r < 2; ++r, ++m) {
9399 localPointsNew[m] = eStartNew + (p - eStart)*2 + r;
9400 remotePointsNew[m].index = reStartNew[n] + (rp - reStart[n])*2 + r;
9401 remotePointsNew[m].rank = rrank;
9402 }
9403 localPointsNew[m] = vStartNew + (vEnd - vStart) + (p - eStart);
9404 remotePointsNew[m].index = rvStartNew[n] + rdepthSizeOld[n*(depth+1)+0] + (rp - reStart[n]);
9405 remotePointsNew[m].rank = rrank;
9406 ++m;
9407 } else if ((p >= eMax) && (p < eEnd)) {
9408 /* Hybrid edges stay the same */
9409 localPointsNew[m] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (p - eMax);
9410 remotePointsNew[m].index = reStartNew[n] + (rdepthMaxOld[n*(depth+1)+1] - reStart[n])*2 + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*4 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*6 + (rp - rdepthMaxOld[n*(depth+1)+1]);
9411 remotePointsNew[m].rank = rrank;
9412 ++m;
9413 } else if ((p >= fStart) && (p < fMax)) {
9414 /* Interior faces add new faces, edges, and vertex */
9415 for (r = 0; r < 4; ++r, ++m) {
9416 localPointsNew[m] = fStartNew + (p - fStart)*4 + r;
9417 remotePointsNew[m].index = rfStartNew[n] + (rp - rfStart[n])*4 + r;
9418 remotePointsNew[m].rank = rrank;
9419 }
9420 for (r = 0; r < 4; ++r, ++m) {
9421 localPointsNew[m] = eStartNew + (eMax - eStart)*2 + (p - fStart)*4 + r;
9422 remotePointsNew[m].index = reStartNew[n] + (rdepthMaxOld[n*(depth+1)+1] - reStart[n])*2 + (rp - rfStart[n])*4 + r;
9423 remotePointsNew[m].rank = rrank;
9424 }
9425 localPointsNew[m] = vStartNew + (vEnd - vStart) + (eMax - eStart) + (p - fStart);
9426 remotePointsNew[m].index = rvStartNew[n] + rdepthSizeOld[n*(depth+1)+0] + (rdepthMaxOld[n*(depth+1)+1] - reStart[n]) + (rp - rfStart[n]);
9427 remotePointsNew[m].rank = rrank;
9428 ++m;
9429 } else if ((p >= fMax) && (p < fEnd)) {
9430 /* Hybrid faces add new faces and edges */
9431 for (r = 0; r < 2; ++r, ++m) {
9432 localPointsNew[m] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (p - fMax)*2 + r;
9433 remotePointsNew[m].index = rfStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*4 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*12 + (rp - rdepthMaxOld[n*(depth+1)+depth-1])*2 + r;
9434 remotePointsNew[m].rank = rrank;
9435 }
9436 localPointsNew[m] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (eEnd - eMax) + (p - fMax);
9437 remotePointsNew[m].index = reStartNew[n] + (rdepthMaxOld[n*(depth+1)+1] - reStart[n])*2 + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*4 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*6 + (rdepthSizeOld[n*(depth+1)+1]+reStart[n] - rdepthMaxOld[n*(depth+1)+1]) + (rp - rdepthMaxOld[n*(depth+1)+depth-1]);
9438 remotePointsNew[m].rank = rrank;
9439 ++m;
9440 } else if ((p >= cStart) && (p < cMax)) {
9441 /* Interior cells add new cells, faces, edges, and vertex */
9442 for (r = 0; r < 8; ++r, ++m) {
9443 localPointsNew[m] = cStartNew + (p - cStart)*8 + r;
9444 remotePointsNew[m].index = rcStartNew[n] + (rp - rcStart[n])*8 + r;
9445 remotePointsNew[m].rank = rrank;
9446 }
9447 for (r = 0; r < 12; ++r, ++m) {
9448 localPointsNew[m] = fStartNew + (fMax - fStart)*4 + (p - cStart)*12 + r;
9449 remotePointsNew[m].index = rfStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*4 + (rp - rcStart[n])*12 + r;
9450 remotePointsNew[m].rank = rrank;
9451 }
9452 for (r = 0; r < 6; ++r, ++m) {
9453 localPointsNew[m] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (p - cStart)*6 + r;
9454 remotePointsNew[m].index = reStartNew[n] + (rdepthMaxOld[n*(depth+1)+1] - reStart[n])*2 + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*4 + (rp - rcStart[n])*6 + r;
9455 remotePointsNew[m].rank = rrank;
9456 }
9457 for (r = 0; r < 1; ++r, ++m) {
9458 localPointsNew[m] = vStartNew + (eMax - eStart) + (fMax - fStart) + (p - cStart) + r;
9459 remotePointsNew[m].index = rvStartNew[n] + (rdepthMaxOld[n*(depth+1)+1] - reStart[n]) + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n]) + (rp - rcStart[n]) + r;
9460 remotePointsNew[m].rank = rrank;
9461 }
9462 } else if ((p >= cMax) && (p < cEnd)) {
9463 /* Hybrid cells add new cells, faces, and edges */
9464 for (r = 0; r < 4; ++r, ++m) {
9465 localPointsNew[m] = cStartNew + (cMax - cStart)*8 + (p - cMax)*4 + r;
9466 remotePointsNew[m].index = rcStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*8 + (rp - rdepthMaxOld[n*(depth+1)+depth])*4 + r;
9467 remotePointsNew[m].rank = rrank;
9468 }
9469 for (r = 0; r < 4; ++r, ++m) {
9470 localPointsNew[m] = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (fEnd - fMax)*2 + (p - cMax)*4 + r;
9471 remotePointsNew[m].index = rfStartNew[n] + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*4 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*12 + (rdepthSizeOld[n*(depth+1)+depth-1]+rfStart[n] - rdepthMaxOld[n*(depth+1)+depth-1])*2 + (rp - rdepthMaxOld[n*(depth+1)+depth])*4 + r;
9472 remotePointsNew[m].rank = rrank;
9473 }
9474 localPointsNew[m] = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (eEnd - eMax) + (fEnd - fMax) + (p - cMax);
9475 remotePointsNew[m].index = reStartNew[n] + (rdepthMaxOld[n*(depth+1)+1] - reStart[n])*2 + (rdepthMaxOld[n*(depth+1)+depth-1] - rfStart[n])*4 + (rdepthMaxOld[n*(depth+1)+depth] - rcStart[n])*6 + (rdepthSizeOld[n*(depth+1)+1]+reStart[n] - rdepthMaxOld[n*(depth+1)+1]) + (rdepthSizeOld[n*(depth+1)+depth-1]+rfStart[n] - rdepthMaxOld[n*(depth+1)+depth-1]) + (rp - rdepthMaxOld[n*(depth+1)+depth]);
9476 remotePointsNew[m].rank = rrank;
9477 ++m;
9478 }
9479 break;
9480 default:
9481 SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown cell refiner %D", refiner)return PetscError(((MPI_Comm)0x44000001),9481,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown cell refiner %D",refiner);
9482 }
9483 }
9484 if (m != numLeavesNew) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Number of leaf point %D should be %D", m, numLeavesNew)return PetscError(((MPI_Comm)0x44000001),9484,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,77,PETSC_ERROR_INITIAL,"Number of leaf point %D should be %D"
,m,numLeavesNew);
9485 ierr = ISRestoreIndices(processRanks, &neighbors);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9485,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9486 ierr = ISDestroy(&processRanks);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9486,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9487 {
9488 PetscSFNode *rp, *rtmp;
9489 PetscInt *lp, *idx, *ltmp, i;
9490
9491 /* SF needs sorted leaves to correct calculate Gather */
9492 ierr = PetscMalloc1(numLeavesNew,&idx)PetscMallocA(1,PETSC_FALSE,9492,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(numLeavesNew)*sizeof(**(&idx)),(&idx));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9492,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9493 ierr = PetscMalloc1(numLeavesNew, &lp)PetscMallocA(1,PETSC_FALSE,9493,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(numLeavesNew)*sizeof(**(&lp)),(&lp));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9493,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9494 ierr = PetscMalloc1(numLeavesNew, &rp)PetscMallocA(1,PETSC_FALSE,9494,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(numLeavesNew)*sizeof(**(&rp)),(&rp));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9494,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9495 for (i = 0; i < numLeavesNew; ++i) {
9496 if ((localPointsNew[i] < pStartNew) || (localPointsNew[i] >= pEndNew)) SETERRQ4(PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Local SF point %D (%D) not in [%D, %D)", localPointsNew[i], i, pStartNew, pEndNew)return PetscError(((MPI_Comm)0x44000001),9496,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,63,PETSC_ERROR_INITIAL,"Local SF point %D (%D) not in [%D, %D)"
,localPointsNew[i],i,pStartNew,pEndNew);
9497 idx[i] = i;
9498 }
9499 ierr = PetscSortIntWithPermutation(numLeavesNew, localPointsNew, idx);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9499,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9500 for (i = 0; i < numLeavesNew; ++i) {
9501 lp[i] = localPointsNew[idx[i]];
9502 rp[i] = remotePointsNew[idx[i]];
9503 }
9504 ltmp = localPointsNew;
9505 localPointsNew = lp;
9506 rtmp = remotePointsNew;
9507 remotePointsNew = rp;
9508 ierr = PetscFree(idx)((*PetscTrFree)((void*)(idx),9508,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((idx) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9508,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9509 ierr = PetscFree(ltmp)((*PetscTrFree)((void*)(ltmp),9509,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((ltmp) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9509,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9510 ierr = PetscFree(rtmp)((*PetscTrFree)((void*)(rtmp),9510,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((rtmp) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9510,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9511 }
9512 ierr = PetscSFSetGraph(sfNew, pEndNew-pStartNew, numLeavesNew, localPointsNew, PETSC_OWN_POINTER, remotePointsNew, PETSC_OWN_POINTER);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9512,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9513 ierr = PetscFree5(rdepthSize,rvStartNew,reStartNew,rfStartNew,rcStartNew)PetscFreeA(5,9513,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,&(rdepthSize),&(rvStartNew),&(reStartNew),&(
rfStartNew),&(rcStartNew));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9513,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9514 ierr = PetscFree7(depthSizeOld,rdepthSizeOld,rdepthMaxOld,rvStart,reStart,rfStart,rcStart)PetscFreeA(7,9514,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,&(depthSizeOld),&(rdepthSizeOld),&(rdepthMaxOld)
,&(rvStart),&(reStart),&(rfStart),&(rcStart));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9514,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9515 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
9516}
9517
9518static PetscErrorCode CellRefinerCreateLabels(CellRefiner refiner, DM dm, PetscInt depthSize[], DM rdm)
9519{
9520 PetscInt numLabels, l;
9521 PetscInt depth, newp, cStart, cEnd, cMax, vStart, vEnd, vMax, fStart, fEnd, fMax, eStart, eEnd, eMax, r;
9522 PetscInt cStartNew = 0, vStartNew = 0, fStartNew = 0, eStartNew = 0;
9523 PetscErrorCode ierr;
9524
9525 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 9525; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
9526 ierr = DMPlexGetDepthStratum(dm, 0, &vStart, &vEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9526,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9527 ierr = DMPlexGetDepthStratum(dm, 1, &eStart, &eEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9527,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9528 ierr = DMPlexGetHeightStratum(dm, 0, &cStart, &cEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9528,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9529 ierr = DMPlexGetHeightStratum(dm, 1, &fStart, &fEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9529,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9530 ierr = DMPlexGetDepth(dm, &depth);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9530,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9531 if (refiner) {ierr = GetDepthStart_Private(depth, depthSize, &cStartNew, &fStartNew, &eStartNew, &vStartNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9531,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}
9532 ierr = DMGetNumLabels(dm, &numLabels);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9532,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9533 ierr = DMPlexGetHybridBounds(dm, &cMax, &fMax, &eMax, &vMax);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9533,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9534 switch (refiner) {
9535 case REFINER_NOOP:
9536 case REFINER_SIMPLEX_1D:
9537 case REFINER_SIMPLEX_2D:
9538 case REFINER_SIMPLEX_TO_HEX_2D:
9539 case REFINER_HEX_2D:
9540 case REFINER_SIMPLEX_3D:
9541 case REFINER_HEX_3D:
9542 case REFINER_SIMPLEX_TO_HEX_3D:
9543 break;
9544 case REFINER_HYBRID_SIMPLEX_TO_HEX_3D:
9545 case REFINER_HYBRID_SIMPLEX_3D:
9546 case REFINER_HYBRID_HEX_3D:
9547 if (eMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No edge maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),9547,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No edge maximum specified in hybrid mesh"
);
9548 case REFINER_HYBRID_SIMPLEX_2D:
9549 case REFINER_HYBRID_HEX_2D:
9550 if (fMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No face maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),9550,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No face maximum specified in hybrid mesh"
);
9551 case REFINER_HYBRID_SIMPLEX_TO_HEX_2D:
9552 if (cMax < 0) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "No cell maximum specified in hybrid mesh")return PetscError(((MPI_Comm)0x44000001),9552,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"No cell maximum specified in hybrid mesh"
);
9553 break;
9554 default:
9555 SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown cell refiner %D", refiner)return PetscError(((MPI_Comm)0x44000001),9555,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown cell refiner %D",refiner);
9556 }
9557 cMax = cMax < 0 ? cEnd : cMax;
9558 fMax = fMax < 0 ? fEnd : fMax;
9559 eMax = eMax < 0 ? eEnd : eMax;
9560 for (l = 0; l < numLabels; ++l) {
9561 DMLabel label, labelNew;
9562 const char *lname;
9563 PetscBool isDepth;
9564 IS valueIS;
9565 const PetscInt *values;
9566 PetscInt defVal;
9567 PetscInt numValues, val;
9568
9569 ierr = DMGetLabelName(dm, l, &lname);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9569,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9570 ierr = PetscStrcmp(lname, "depth", &isDepth);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9570,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9571 if (isDepth) continue;
9572 ierr = DMCreateLabel(rdm, lname);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9572,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9573 ierr = DMGetLabel(dm, lname, &label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9573,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9574 ierr = DMGetLabel(rdm, lname, &labelNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9574,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9575 ierr = DMLabelGetDefaultValue(label,&defVal);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9575,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9576 ierr = DMLabelSetDefaultValue(labelNew,defVal);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9576,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9577 ierr = DMLabelGetValueIS(label, &valueIS);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9577,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9578 ierr = ISGetLocalSize(valueIS, &numValues);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9578,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9579 ierr = ISGetIndices(valueIS, &values);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9579,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9580 for (val = 0; val < numValues; ++val) {
9581 IS pointIS;
9582 const PetscInt *points;
9583 PetscInt numPoints, n;
9584
9585 ierr = DMLabelGetStratumIS(label, values[val], &pointIS);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9585,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9586 ierr = ISGetLocalSize(pointIS, &numPoints);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9586,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9587 ierr = ISGetIndices(pointIS, &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9587,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9588 /* Ensure refined label is created with same number of strata as
9589 * original (even if no entries here). */
9590 ierr = DMLabelAddStratum(labelNew, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9590,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9591 for (n = 0; n < numPoints; ++n) {
9592 const PetscInt p = points[n];
9593 switch (refiner) {
9594 case REFINER_SIMPLEX_1D:
9595 if ((p >= vStart) && (p < vEnd)) {
9596 /* Old vertices stay the same */
9597 newp = vStartNew + (p - vStart);
9598 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9598,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9599 } else if ((p >= cStart) && (p < cEnd)) {
9600 /* Old cells add new cells and vertex */
9601 newp = vStartNew + (vEnd - vStart) + (p - cStart);
9602 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9602,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9603 for (r = 0; r < 2; ++r) {
9604 newp = cStartNew + (p - cStart)*2 + r;
9605 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9605,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9606 }
9607 }
9608 break;
9609 case REFINER_SIMPLEX_2D:
9610 if ((p >= vStart) && (p < vEnd)) {
9611 /* Old vertices stay the same */
9612 newp = vStartNew + (p - vStart);
9613 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9613,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9614 } else if ((p >= fStart) && (p < fEnd)) {
9615 /* Old faces add new faces and vertex */
9616 newp = vStartNew + (vEnd - vStart) + (p - fStart);
9617 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9617,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9618 for (r = 0; r < 2; ++r) {
9619 newp = fStartNew + (p - fStart)*2 + r;
9620 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9620,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9621 }
9622 } else if ((p >= cStart) && (p < cEnd)) {
9623 /* Old cells add new cells and interior faces */
9624 for (r = 0; r < 4; ++r) {
9625 newp = cStartNew + (p - cStart)*4 + r;
9626 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9626,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9627 }
9628 for (r = 0; r < 3; ++r) {
9629 newp = fStartNew + (fEnd - fStart)*2 + (p - cStart)*3 + r;
9630 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9630,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9631 }
9632 }
9633 break;
9634 case REFINER_HYBRID_SIMPLEX_TO_HEX_2D:
9635 case REFINER_SIMPLEX_TO_HEX_2D:
9636 if ((p >= vStart) && (p < vEnd)) {
9637 /* Old vertices stay the same */
9638 newp = vStartNew + (p - vStart);
9639 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9639,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9640 } else if ((p >= fStart) && (p < fEnd)) {
9641 /* Old faces add new faces and vertex */
9642 newp = vStartNew + (vEnd - vStart) + (p - fStart);
9643 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9643,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9644 for (r = 0; r < 2; ++r) {
9645 newp = fStartNew + (p - fStart)*2 + r;
9646 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9646,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9647 }
9648 } else if ((p >= cStart) && (p < cMax)) {
9649 /* Old cells add new cells, interior faces, and a vertex */
9650 for (r = 0; r < 3; ++r) {
9651 newp = cStartNew + (p - cStart)*3 + r;
9652 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9652,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9653 }
9654 for (r = 0; r < 3; ++r) {
9655 newp = fStartNew + (fEnd - fStart)*2 + (p - cStart)*3 + r;
9656 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9656,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9657 }
9658 newp = vStartNew + (vEnd - vStart) + (fEnd - fStart) + p;
9659 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9659,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9660 } else if ((p >= cMax) && (p < cEnd)) {
9661 /* Old hybrid cells add new cells, interior faces, and a vertex */
9662 for (r = 0; r < 4; ++r) {
9663 newp = cStartNew + (cMax - cStart)*3 + (p - cMax)*4 + r;
9664 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9664,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9665 }
9666 for (r = 0; r < 4; ++r) {
9667 newp = fStartNew + (fEnd - fStart)*2 + (cMax - cStart)*3 + (p - cMax)*4 + r;
9668 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9668,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9669 }
9670 newp = vStartNew + (vEnd - vStart) + (fEnd - fStart) + p;
9671 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9671,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9672 }
9673 break;
9674 case REFINER_HEX_2D:
9675 if ((p >= vStart) && (p < vEnd)) {
9676 /* Old vertices stay the same */
9677 newp = vStartNew + (p - vStart);
9678 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9678,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9679 } else if ((p >= fStart) && (p < fEnd)) {
9680 /* Old faces add new faces and vertex */
9681 newp = vStartNew + (vEnd - vStart) + (p - fStart);
9682 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9682,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9683 for (r = 0; r < 2; ++r) {
9684 newp = fStartNew + (p - fStart)*2 + r;
9685 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9685,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9686 }
9687 } else if ((p >= cStart) && (p < cEnd)) {
9688 /* Old cells add new cells and interior faces and vertex */
9689 for (r = 0; r < 4; ++r) {
9690 newp = cStartNew + (p - cStart)*4 + r;
9691 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9691,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9692 }
9693 for (r = 0; r < 4; ++r) {
9694 newp = fStartNew + (fEnd - fStart)*2 + (p - cStart)*4 + r;
9695 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9695,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9696 }
9697 newp = vStartNew + (vEnd - vStart) + (fEnd - fStart) + (p - cStart);
9698 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9698,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9699 }
9700 break;
9701 case REFINER_HYBRID_SIMPLEX_2D:
9702 if ((p >= vStart) && (p < vEnd)) {
9703 /* Old vertices stay the same */
9704 newp = vStartNew + (p - vStart);
9705 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9705,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9706 } else if ((p >= fStart) && (p < fMax)) {
9707 /* Old interior faces add new faces and vertex */
9708 newp = vStartNew + (vEnd - vStart) + (p - fStart);
9709 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9709,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9710 for (r = 0; r < 2; ++r) {
9711 newp = fStartNew + (p - fStart)*2 + r;
9712 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9712,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9713 }
9714 } else if ((p >= fMax) && (p < fEnd)) {
9715 /* Old hybrid faces stay the same */
9716 newp = fStartNew + (fMax - fStart)*2 + (p - fMax);
9717 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9717,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9718 } else if ((p >= cStart) && (p < cMax)) {
9719 /* Old interior cells add new cells and interior faces */
9720 for (r = 0; r < 4; ++r) {
9721 newp = cStartNew + (p - cStart)*4 + r;
9722 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9722,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9723 }
9724 for (r = 0; r < 3; ++r) {
9725 newp = fStartNew + (fEnd - fStart)*2 + (p - cStart)*3 + r;
9726 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9726,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9727 }
9728 } else if ((p >= cMax) && (p < cEnd)) {
9729 /* Old hybrid cells add new cells and hybrid face */
9730 for (r = 0; r < 2; ++r) {
9731 newp = cStartNew + (cMax - cStart)*4 + (p - cMax)*2 + r;
9732 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9732,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9733 }
9734 newp = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*3 + (p - cMax);
9735 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9735,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9736 }
9737 break;
9738 case REFINER_HYBRID_HEX_2D:
9739 if ((p >= vStart) && (p < vEnd)) {
9740 /* Old vertices stay the same */
9741 newp = vStartNew + (p - vStart);
9742 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9742,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9743 } else if ((p >= fStart) && (p < fMax)) {
9744 /* Old interior faces add new faces and vertex */
9745 newp = vStartNew + (vEnd - vStart) + (p - fStart);
9746 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9746,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9747 for (r = 0; r < 2; ++r) {
9748 newp = fStartNew + (p - fStart)*2 + r;
9749 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9749,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9750 }
9751 } else if ((p >= fMax) && (p < fEnd)) {
9752 /* Old hybrid faces stay the same */
9753 newp = fStartNew + (fMax - fStart)*2 + (p - fMax);
9754 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9754,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9755 } else if ((p >= cStart) && (p < cMax)) {
9756 /* Old interior cells add new cells, interior faces, and vertex */
9757 for (r = 0; r < 4; ++r) {
9758 newp = cStartNew + (p - cStart)*4 + r;
9759 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9759,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9760 }
9761 for (r = 0; r < 4; ++r) {
9762 newp = fStartNew + (fEnd - fStart)*2 + (p - cStart)*4 + r;
9763 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9763,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9764 }
9765 newp = vStartNew + (vEnd - vStart) + (fEnd - fStart) + (p - cStart);
9766 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9766,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9767 } else if ((p >= cMax) && (p < cEnd)) {
9768 /* Old hybrid cells add new cells and hybrid face */
9769 for (r = 0; r < 2; ++r) {
9770 newp = cStartNew + (cMax - cStart)*4 + (p - cMax)*2 + r;
9771 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9771,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9772 }
9773 newp = fStartNew + (fMax - fStart)*2 + (cMax - cStart)*4 + (p - cMax);
9774 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9774,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9775 }
9776 break;
9777 case REFINER_SIMPLEX_3D:
9778 if ((p >= vStart) && (p < vEnd)) {
9779 /* Old vertices stay the same */
9780 newp = vStartNew + (p - vStart);
9781 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9781,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9782 } else if ((p >= eStart) && (p < eEnd)) {
9783 /* Old edges add new edges and vertex */
9784 for (r = 0; r < 2; ++r) {
9785 newp = eStartNew + (p - eStart)*2 + r;
9786 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9786,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9787 }
9788 newp = vStartNew + (vEnd - vStart) + (p - eStart);
9789 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9789,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9790 } else if ((p >= fStart) && (p < fEnd)) {
9791 /* Old faces add new faces and edges */
9792 for (r = 0; r < 4; ++r) {
9793 newp = fStartNew + (p - fStart)*4 + r;
9794 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9794,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9795 }
9796 for (r = 0; r < 3; ++r) {
9797 newp = eStartNew + (eEnd - eStart)*2 + (p - fStart)*3 + r;
9798 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9798,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9799 }
9800 } else if ((p >= cStart) && (p < cEnd)) {
9801 /* Old cells add new cells and interior faces and edges */
9802 for (r = 0; r < 8; ++r) {
9803 newp = cStartNew + (p - cStart)*8 + r;
9804 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9804,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9805 }
9806 for (r = 0; r < 8; ++r) {
9807 newp = fStartNew + (fEnd - fStart)*4 + (p - cStart)*8 + r;
9808 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9808,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9809 }
9810 for (r = 0; r < 1; ++r) {
9811 newp = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*3 + (p - cStart)*1 + r;
9812 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9812,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9813 }
9814 }
9815 break;
9816 case REFINER_HYBRID_SIMPLEX_TO_HEX_3D:
9817 case REFINER_SIMPLEX_TO_HEX_3D:
9818 if ((p >= vStart) && (p < vEnd)) {
9819 /* Old vertices stay the same */
9820 newp = vStartNew + (p - vStart);
9821 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9821,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9822 } else if ((p >= eStart) && (p < eMax)) {
9823 /* Interior edges add new edges and vertex */
9824 for (r = 0; r < 2; ++r) {
9825 newp = eStartNew + (p - eStart)*2 + r;
9826 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9826,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9827 }
9828 newp = vStartNew + (vEnd - vStart) + (p - eStart);
9829 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9829,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9830 } else if ((p >= eMax) && (p < eEnd)) {
9831 /* Hybrid edges stay the same */
9832 newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + p - eMax;
9833 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9833,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9834 } else if ((p >= fStart) && (p < fMax)) {
9835 /* Old faces add new faces, edges and a vertex */
9836 for (r = 0; r < 3; ++r) {
9837 newp = fStartNew + (p - fStart)*3 + r;
9838 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9838,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9839 }
9840 for (r = 0; r < 3; ++r) {
9841 newp = eStartNew + (eMax - eStart)*2 + (p - fStart)*3 + r;
9842 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9842,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9843 }
9844 } else if ((p >= fMax) && (p < fEnd)) {
9845 /* Old hybrid faces add new faces and an edge */
9846 for (r = 0; r < 2; ++r) {
9847 newp = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (p - fMax)*2 + r;
9848 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9848,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9849 }
9850 newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (p - fMax);
9851 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9851,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9852 } else if ((p >= cStart) && (p < cMax)) {
9853 /* Old cells add new cells and interior faces and edges and a vertex */
9854 for (r = 0; r < 4; ++r) {
9855 newp = cStartNew + (p - cStart)*4 + r;
9856 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9856,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9857 }
9858 for (r = 0; r < 6; ++r) {
9859 newp = fStartNew + (fMax - fStart)*3 + (p - cStart)*6 + r;
9860 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9860,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9861 }
9862 for (r = 0; r < 4; ++r) {
9863 newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (p - cStart)*4 + r;
9864 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9864,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9865 }
9866 newp = vStartNew + (vEnd - vStart) + (eMax - eStart) + (fMax - fStart) + p - cStart;
9867 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9867,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9868 } else if ((p >= cMax) && (p < cEnd)) {
9869 /* Old hybrid cells add new cells and interior faces and an edge */
9870 for (r = 0; r < 3; ++r) {
9871 newp = cStartNew + (cMax - cStart)*4 + (p - cMax)*3 + r;
9872 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9872,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9873 }
9874 for (r = 0; r < 3; ++r) {
9875 newp = fStartNew + (fMax - fStart)*3 + (cMax - cStart)*6 + (fEnd - fMax)*2 + (p - cMax)*3 + r;
9876 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9876,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9877 }
9878 newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart)*4 + (eEnd - eMax) + (fEnd - fMax) + p - cMax;
9879 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9879,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9880 }
9881 break;
9882 case REFINER_HYBRID_SIMPLEX_3D:
9883 if ((p >= vStart) && (p < vEnd)) {
9884 /* Interior vertices stay the same */
9885 newp = vStartNew + (p - vStart);
9886 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9886,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9887 } else if ((p >= eStart) && (p < eMax)) {
9888 /* Interior edges add new edges and vertex */
9889 for (r = 0; r < 2; ++r) {
9890 newp = eStartNew + (p - eStart)*2 + r;
9891 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9891,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9892 }
9893 newp = vStartNew + (vEnd - vStart) + (p - eStart);
9894 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9894,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9895 } else if ((p >= eMax) && (p < eEnd)) {
9896 /* Hybrid edges stay the same */
9897 newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart) + (p - eMax);
9898 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9898,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9899 } else if ((p >= fStart) && (p < fMax)) {
9900 /* Interior faces add new faces and edges */
9901 for (r = 0; r < 4; ++r) {
9902 newp = fStartNew + (p - fStart)*4 + r;
9903 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9903,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9904 }
9905 for (r = 0; r < 3; ++r) {
9906 newp = eStartNew + (eMax - eStart)*2 + (p - fStart)*3 + r;
9907 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9907,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9908 }
9909 } else if ((p >= fMax) && (p < fEnd)) {
9910 /* Hybrid faces add new faces and edges */
9911 for (r = 0; r < 2; ++r) {
9912 newp = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (p - fMax)*2 + r;
9913 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9913,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9914 }
9915 newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (cMax - cStart) + (p - fMax);
9916 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9916,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9917 } else if ((p >= cStart) && (p < cMax)) {
9918 /* Interior cells add new cells, faces, and edges */
9919 for (r = 0; r < 8; ++r) {
9920 newp = cStartNew + (p - cStart)*8 + r;
9921 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9921,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9922 }
9923 for (r = 0; r < 8; ++r) {
9924 newp = fStartNew + (fMax - fStart)*4 + (p - cStart)*8 + r;
9925 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9925,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9926 }
9927 newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*3 + (p - cStart);
9928 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9928,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9929 } else if ((p >= cMax) && (p < cEnd)) {
9930 /* Hybrid cells add new cells and faces */
9931 for (r = 0; r < 4; ++r) {
9932 newp = cStartNew + (cMax - cStart)*8 + (p - cMax)*4 + r;
9933 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9933,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9934 }
9935 for (r = 0; r < 3; ++r) {
9936 newp = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*8 + (fEnd - fMax)*2 + (p - cMax)*3 + r;
9937 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9937,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9938 }
9939 }
9940 break;
9941 case REFINER_HEX_3D:
9942 if ((p >= vStart) && (p < vEnd)) {
9943 /* Old vertices stay the same */
9944 newp = vStartNew + (p - vStart);
9945 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9945,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9946 } else if ((p >= eStart) && (p < eEnd)) {
9947 /* Old edges add new edges and vertex */
9948 for (r = 0; r < 2; ++r) {
9949 newp = eStartNew + (p - eStart)*2 + r;
9950 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9950,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9951 }
9952 newp = vStartNew + (vEnd - vStart) + (p - eStart);
9953 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9953,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9954 } else if ((p >= fStart) && (p < fEnd)) {
9955 /* Old faces add new faces, edges, and vertex */
9956 for (r = 0; r < 4; ++r) {
9957 newp = fStartNew + (p - fStart)*4 + r;
9958 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9958,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9959 }
9960 for (r = 0; r < 4; ++r) {
9961 newp = eStartNew + (eEnd - eStart)*2 + (p - fStart)*4 + r;
9962 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9962,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9963 }
9964 newp = vStartNew + (vEnd - vStart) + (eEnd - eStart) + (p - fStart);
9965 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9965,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9966 } else if ((p >= cStart) && (p < cEnd)) {
9967 /* Old cells add new cells, faces, edges, and vertex */
9968 for (r = 0; r < 8; ++r) {
9969 newp = cStartNew + (p - cStart)*8 + r;
9970 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9970,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9971 }
9972 for (r = 0; r < 12; ++r) {
9973 newp = fStartNew + (fEnd - fStart)*4 + (p - cStart)*12 + r;
9974 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9974,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9975 }
9976 for (r = 0; r < 6; ++r) {
9977 newp = eStartNew + (eEnd - eStart)*2 + (fEnd - fStart)*4 + (p - cStart)*6 + r;
9978 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9978,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9979 }
9980 newp = vStartNew + (vEnd - vStart) + (eEnd - eStart) + (fEnd - fStart) + (p - cStart);
9981 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9981,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9982 }
9983 break;
9984 case REFINER_HYBRID_HEX_3D:
9985 if ((p >= vStart) && (p < vEnd)) {
9986 /* Interior vertices stay the same */
9987 newp = vStartNew + (p - vStart);
9988 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9988,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9989 } else if ((p >= eStart) && (p < eMax)) {
9990 /* Interior edges add new edges and vertex */
9991 for (r = 0; r < 2; ++r) {
9992 newp = eStartNew + (p - eStart)*2 + r;
9993 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9993,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9994 }
9995 newp = vStartNew + (vEnd - vStart) + (p - eStart);
9996 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),9996,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
9997 } else if ((p >= eMax) && (p < eEnd)) {
9998 /* Hybrid edges stay the same */
9999 newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (p - eMax);
10000 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10000,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10001 } else if ((p >= fStart) && (p < fMax)) {
10002 /* Interior faces add new faces, edges, and vertex */
10003 for (r = 0; r < 4; ++r) {
10004 newp = fStartNew + (p - fStart)*4 + r;
10005 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10005,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10006 }
10007 for (r = 0; r < 4; ++r) {
10008 newp = eStartNew + (eMax - eStart)*2 + (p - fStart)*4 + r;
10009 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10009,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10010 }
10011 newp = vStartNew + (vEnd - vStart) + (eMax - eStart) + (p - fStart);
10012 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10012,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10013 } else if ((p >= fMax) && (p < fEnd)) {
10014 /* Hybrid faces add new faces and edges */
10015 for (r = 0; r < 2; ++r) {
10016 newp = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (p - fMax)*2 + r;
10017 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10017,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10018 }
10019 newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (p - fMax);
10020 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10020,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10021 } else if ((p >= cStart) && (p < cMax)) {
10022 /* Interior cells add new cells, faces, edges, and vertex */
10023 for (r = 0; r < 8; ++r) {
10024 newp = cStartNew + (p - cStart)*8 + r;
10025 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10025,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10026 }
10027 for (r = 0; r < 12; ++r) {
10028 newp = fStartNew + (fMax - fStart)*4 + (p - cStart)*12 + r;
10029 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10029,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10030 }
10031 for (r = 0; r < 6; ++r) {
10032 newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (p - cStart)*6 + r;
10033 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10033,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10034 }
10035 newp = vStartNew + (vEnd - vStart) + (eMax - eStart) + (fMax - fStart) + (p - cStart);
10036 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10036,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10037 } else if ((p >= cMax) && (p < cEnd)) {
10038 /* Hybrid cells add new cells, faces, and edges */
10039 for (r = 0; r < 4; ++r) {
10040 newp = cStartNew + (cMax - cStart)*8 + (p - cMax)*4 + r;
10041 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10041,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10042 }
10043 for (r = 0; r < 4; ++r) {
10044 newp = fStartNew + (fMax - fStart)*4 + (cMax - cStart)*12 + (fEnd - fMax)*2 + (p - cMax)*4 + r;
10045 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10045,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10046 }
10047 newp = eStartNew + (eMax - eStart)*2 + (fMax - fStart)*4 + (cMax - cStart)*6 + (fEnd - fMax) + (p - cMax);
10048 ierr = DMLabelSetValue(labelNew, newp, values[val]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10048,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10049 }
10050 break;
10051 default:
10052 SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown cell refiner %D", refiner)return PetscError(((MPI_Comm)0x44000001),10052,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown cell refiner %D",refiner);
10053 }
10054 }
10055 ierr = ISRestoreIndices(pointIS, &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10055,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10056 ierr = ISDestroy(&pointIS);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10056,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10057 }
10058 ierr = ISRestoreIndices(valueIS, &values);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10058,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10059 ierr = ISDestroy(&valueIS);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10059,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10060 if (0) {
10061 ierr = DMLabelView(labelNew, PETSC_VIEWER_STDOUT_WORLDPETSC_VIEWER_STDOUT_(PETSC_COMM_WORLD));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10061,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10062 }
10063 }
10064 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
10065}
10066
10067/* This will only work for interpolated meshes */
10068PetscErrorCode DMPlexRefineUniform_Internal(DM dm, CellRefiner cellRefiner, DM *dmRefined)
10069{
10070 DM rdm;
10071 PetscInt *depthSize;
10072 PetscInt dim, embedDim, depth = 0, d, pStart = 0, pEnd = 0;
10073 PetscErrorCode ierr;
10074
10075 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 10075; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
10076 ierr = DMCreate(PetscObjectComm((PetscObject)dm), &rdm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10076,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10077 ierr = DMSetType(rdm, DMPLEX"plex");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10077,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10078 ierr = DMGetDimension(dm, &dim);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10078,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10079 ierr = DMSetDimension(rdm, dim);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10079,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10080 ierr = DMGetCoordinateDim(dm, &embedDim);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10080,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10081 ierr = DMSetCoordinateDim(rdm, embedDim);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10081,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10082 /* Calculate number of new points of each depth */
10083 ierr = DMPlexGetDepth(dm, &depth);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10083,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10084 if (depth >= 0 && dim != depth) SETERRQ(PetscObjectComm((PetscObject) dm), PETSC_ERR_ARG_WRONG, "Mesh must be interpolated for regular refinement")return PetscError(PetscObjectComm((PetscObject) dm),10084,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Mesh must be interpolated for regular refinement"
);
10085 ierr = PetscMalloc1(depth+1, &depthSize)PetscMallocA(1,PETSC_FALSE,10085,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(depth+1)*sizeof(**(&depthSize)),(&depthSize
));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10085,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10086 ierr = PetscMemzero(depthSize, (depth+1) * sizeof(PetscInt));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10086,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10087 ierr = CellRefinerGetSizes(cellRefiner, dm, depthSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10087,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10088 /* Step 1: Set chart */
10089 for (d = 0; d <= depth; ++d) pEnd += depthSize[d];
10090 ierr = DMPlexSetChart(rdm, pStart, pEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10090,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10091 /* Step 2: Set cone/support sizes (automatically stratifies) */
10092 ierr = CellRefinerSetConeSizes(cellRefiner, dm, depthSize, rdm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10092,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10093 /* Step 3: Setup refined DM */
10094 ierr = DMSetUp(rdm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10094,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10095 /* Step 4: Set cones and supports (automatically symmetrizes) */
10096 ierr = CellRefinerSetCones(cellRefiner, dm, depthSize, rdm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10096,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10097 /* Step 5: Create pointSF */
10098 ierr = CellRefinerCreateSF(cellRefiner, dm, depthSize, rdm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10098,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10099 /* Step 6: Create labels */
10100 ierr = CellRefinerCreateLabels(cellRefiner, dm, depthSize, rdm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10100,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10101 /* Step 7: Set coordinates */
10102 ierr = CellRefinerSetCoordinates(cellRefiner, dm, depthSize, rdm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10102,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10103 ierr = PetscFree(depthSize)((*PetscTrFree)((void*)(depthSize),10103,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((depthSize) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10103,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10104
10105 *dmRefined = rdm;
10106 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
10107}
10108
10109/*@
10110 DMPlexCreateCoarsePointIS - Creates an IS covering the coarse DM chart with the fine points as data
10111
10112 Input Parameter:
10113. dm - The coarse DM
10114
10115 Output Parameter:
10116. fpointIS - The IS of all the fine points which exist in the original coarse mesh
10117
10118 Level: developer
10119
10120.seealso: DMRefine(), DMPlexSetRefinementUniform(), DMPlexCreateSubpointIS()
10121@*/
10122PetscErrorCode DMPlexCreateCoarsePointIS(DM dm, IS *fpointIS)
10123{
10124 CellRefiner cellRefiner;
10125 PetscInt *depthSize, *fpoints;
10126 PetscInt cStartNew = 0, vStartNew = 0, fStartNew = 0, eStartNew = 0;
10127 PetscInt depth, pStart, pEnd, p, vStart, vEnd, v;
10128 PetscErrorCode ierr;
10129
10130 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 10130; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
10131 ierr = DMPlexGetDepth(dm, &depth);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10131,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10132 ierr = DMPlexGetChart(dm, &pStart, &pEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10132,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10133 ierr = DMPlexGetDepthStratum(dm, 0, &vStart, &vEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10133,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10134 ierr = DMPlexGetCellRefiner_Internal(dm, &cellRefiner);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10134,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10135 ierr = PetscMalloc1(depth+1, &depthSize)PetscMallocA(1,PETSC_FALSE,10135,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(depth+1)*sizeof(**(&depthSize)),(&depthSize
));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10135,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10136 ierr = CellRefinerGetSizes(cellRefiner, dm, depthSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10136,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10137 if (cellRefiner) {ierr = GetDepthStart_Private(depth, depthSize, &cStartNew, &fStartNew, &eStartNew, &vStartNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10137,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}
10138 ierr = PetscMalloc1(pEnd-pStart,&fpoints)PetscMallocA(1,PETSC_FALSE,10138,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,(size_t)(pEnd-pStart)*sizeof(**(&fpoints)),(&fpoints
));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10138,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10139 for (p = 0; p < pEnd-pStart; ++p) fpoints[p] = -1;
10140 switch (cellRefiner) {
10141 case REFINER_SIMPLEX_1D:
10142 case REFINER_SIMPLEX_2D:
10143 case REFINER_HYBRID_SIMPLEX_2D:
10144 case REFINER_HEX_2D:
10145 case REFINER_HYBRID_HEX_2D:
10146 case REFINER_SIMPLEX_3D:
10147 case REFINER_HYBRID_SIMPLEX_3D:
10148 case REFINER_HEX_3D:
10149 case REFINER_HYBRID_HEX_3D:
10150 for (v = vStart; v < vEnd; ++v) fpoints[v-pStart] = vStartNew + (v - vStart);
10151 break;
10152 default:
10153 SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown cell refiner %D", cellRefiner)return PetscError(((MPI_Comm)0x44000001),10153,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown cell refiner %D",cellRefiner
);
10154 }
10155 ierr = ISCreateGeneral(PETSC_COMM_SELF((MPI_Comm)0x44000001), pEnd-pStart, fpoints, PETSC_OWN_POINTER, fpointIS);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10155,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10156 ierr = PetscFree(depthSize)((*PetscTrFree)((void*)(depthSize),10156,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
) || ((depthSize) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10156,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10157 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
10158}
10159
10160/*@
10161 DMPlexSetRefinementUniform - Set the flag for uniform refinement
10162
10163 Input Parameters:
10164+ dm - The DM
10165- refinementUniform - The flag for uniform refinement
10166
10167 Level: developer
10168
10169.seealso: DMRefine(), DMPlexGetRefinementUniform(), DMPlexGetRefinementLimit(), DMPlexSetRefinementLimit()
10170@*/
10171PetscErrorCode DMPlexSetRefinementUniform(DM dm, PetscBool refinementUniform)
10172{
10173 DM_Plex *mesh = (DM_Plex*) dm->data;
10174
10175 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 10175; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
10176 PetscValidHeaderSpecific(dm, DM_CLASSID, 1)do { if (!dm) return PetscError(((MPI_Comm)0x44000001),10176,
__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(dm,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),10176,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(dm))->classid != DM_CLASSID) { if (
((PetscObject)(dm))->classid == -1) return PetscError(((MPI_Comm
)0x44000001),10176,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),10176,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);
10177 mesh->refinementUniform = refinementUniform;
10178 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
10179}
10180
10181/*@
10182 DMPlexGetRefinementUniform - Retrieve the flag for uniform refinement
10183
10184 Input Parameter:
10185. dm - The DM
10186
10187 Output Parameter:
10188. refinementUniform - The flag for uniform refinement
10189
10190 Level: developer
10191
10192.seealso: DMRefine(), DMPlexSetRefinementUniform(), DMPlexGetRefinementLimit(), DMPlexSetRefinementLimit()
10193@*/
10194PetscErrorCode DMPlexGetRefinementUniform(DM dm, PetscBool *refinementUniform)
10195{
10196 DM_Plex *mesh = (DM_Plex*) dm->data;
10197
10198 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 10198; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
10199 PetscValidHeaderSpecific(dm, DM_CLASSID, 1)do { if (!dm) return PetscError(((MPI_Comm)0x44000001),10199,
__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(dm,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),10199,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(dm))->classid != DM_CLASSID) { if (
((PetscObject)(dm))->classid == -1) return PetscError(((MPI_Comm
)0x44000001),10199,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),10199,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);
10200 PetscValidPointer(refinementUniform, 2)do { if (!refinementUniform) return PetscError(((MPI_Comm)0x44000001
),10200,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",2); if
(!PetscCheckPointer(refinementUniform,PETSC_CHAR)) return PetscError
(((MPI_Comm)0x44000001),10200,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",2);
} while (0);
10201 *refinementUniform = mesh->refinementUniform;
10202 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
10203}
10204
10205/*@
10206 DMPlexSetRefinementLimit - Set the maximum cell volume for refinement
10207
10208 Input Parameters:
10209+ dm - The DM
10210- refinementLimit - The maximum cell volume in the refined mesh
10211
10212 Level: developer
10213
10214.seealso: DMRefine(), DMPlexGetRefinementLimit(), DMPlexGetRefinementUniform(), DMPlexSetRefinementUniform()
10215@*/
10216PetscErrorCode DMPlexSetRefinementLimit(DM dm, PetscReal refinementLimit)
10217{
10218 DM_Plex *mesh = (DM_Plex*) dm->data;
10219
10220 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 10220; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
10221 PetscValidHeaderSpecific(dm, DM_CLASSID, 1)do { if (!dm) return PetscError(((MPI_Comm)0x44000001),10221,
__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(dm,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),10221,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(dm))->classid != DM_CLASSID) { if (
((PetscObject)(dm))->classid == -1) return PetscError(((MPI_Comm
)0x44000001),10221,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),10221,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);
10222 mesh->refinementLimit = refinementLimit;
10223 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
10224}
10225
10226/*@
10227 DMPlexGetRefinementLimit - Retrieve the maximum cell volume for refinement
10228
10229 Input Parameter:
10230. dm - The DM
10231
10232 Output Parameter:
10233. refinementLimit - The maximum cell volume in the refined mesh
10234
10235 Level: developer
10236
10237.seealso: DMRefine(), DMPlexSetRefinementLimit(), DMPlexGetRefinementUniform(), DMPlexSetRefinementUniform()
10238@*/
10239PetscErrorCode DMPlexGetRefinementLimit(DM dm, PetscReal *refinementLimit)
10240{
10241 DM_Plex *mesh = (DM_Plex*) dm->data;
10242
10243 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 10243; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
10244 PetscValidHeaderSpecific(dm, DM_CLASSID, 1)do { if (!dm) return PetscError(((MPI_Comm)0x44000001),10244,
__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(dm,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),10244,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(dm))->classid != DM_CLASSID) { if (
((PetscObject)(dm))->classid == -1) return PetscError(((MPI_Comm
)0x44000001),10244,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),10244,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);
10245 PetscValidPointer(refinementLimit, 2)do { if (!refinementLimit) return PetscError(((MPI_Comm)0x44000001
),10245,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",2); if
(!PetscCheckPointer(refinementLimit,PETSC_CHAR)) return PetscError
(((MPI_Comm)0x44000001),10245,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",2);
} while (0);
10246 /* if (mesh->refinementLimit < 0) = getMaxVolume()/2.0; */
10247 *refinementLimit = mesh->refinementLimit;
10248 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
10249}
10250
10251/*@
10252 DMPlexSetRefinementFunction - Set the function giving the maximum cell volume for refinement
10253
10254 Input Parameters:
10255+ dm - The DM
10256- refinementFunc - Function giving the maximum cell volume in the refined mesh
10257
10258 Note: The calling sequence is refinementFunc(coords, limit)
10259$ coords - Coordinates of the current point, usually a cell centroid
10260$ limit - The maximum cell volume for a cell containing this point
10261
10262 Level: developer
10263
10264.seealso: DMRefine(), DMPlexGetRefinementFunction(), DMPlexGetRefinementUniform(), DMPlexSetRefinementUniform(), DMPlexGetRefinementLimit(), DMPlexSetRefinementLimit()
10265@*/
10266PetscErrorCode DMPlexSetRefinementFunction(DM dm, PetscErrorCode (*refinementFunc)(const PetscReal [], PetscReal *))
10267{
10268 DM_Plex *mesh = (DM_Plex*) dm->data;
10269
10270 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 10270; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
10271 PetscValidHeaderSpecific(dm, DM_CLASSID, 1)do { if (!dm) return PetscError(((MPI_Comm)0x44000001),10271,
__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(dm,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),10271,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(dm))->classid != DM_CLASSID) { if (
((PetscObject)(dm))->classid == -1) return PetscError(((MPI_Comm
)0x44000001),10271,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),10271,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);
10272 mesh->refinementFunc = refinementFunc;
10273 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
10274}
10275
10276/*@
10277 DMPlexGetRefinementFunction - Get the function giving the maximum cell volume for refinement
10278
10279 Input Parameter:
10280. dm - The DM
10281
10282 Output Parameter:
10283. refinementFunc - Function giving the maximum cell volume in the refined mesh
10284
10285 Note: The calling sequence is refinementFunc(coords, limit)
10286$ coords - Coordinates of the current point, usually a cell centroid
10287$ limit - The maximum cell volume for a cell containing this point
10288
10289 Level: developer
10290
10291.seealso: DMRefine(), DMPlexSetRefinementFunction(), DMPlexGetRefinementUniform(), DMPlexSetRefinementUniform(), DMPlexGetRefinementLimit(), DMPlexSetRefinementLimit()
10292@*/
10293PetscErrorCode DMPlexGetRefinementFunction(DM dm, PetscErrorCode (**refinementFunc)(const PetscReal [], PetscReal *))
10294{
10295 DM_Plex *mesh = (DM_Plex*) dm->data;
10296
10297 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 10297; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
10298 PetscValidHeaderSpecific(dm, DM_CLASSID, 1)do { if (!dm) return PetscError(((MPI_Comm)0x44000001),10298,
__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(dm,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),10298,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(dm))->classid != DM_CLASSID) { if (
((PetscObject)(dm))->classid == -1) return PetscError(((MPI_Comm
)0x44000001),10298,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),10298,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);
10299 PetscValidPointer(refinementFunc, 2)do { if (!refinementFunc) return PetscError(((MPI_Comm)0x44000001
),10299,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",2); if
(!PetscCheckPointer(refinementFunc,PETSC_CHAR)) return PetscError
(((MPI_Comm)0x44000001),10299,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",2);
} while (0);
10300 *refinementFunc = mesh->refinementFunc;
10301 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
10302}
10303
10304PetscErrorCode DMPlexGetCellRefiner_Internal(DM dm, CellRefiner *cellRefiner)
10305{
10306 PetscInt dim, cStart, cEnd, coneSize, cMax, fMax;
10307 PetscErrorCode ierr;
10308
10309 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 10309; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
10310 ierr = DMGetDimension(dm, &dim);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10310,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10311 ierr = DMPlexGetHeightStratum(dm, 0, &cStart, &cEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10311,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10312 if (cEnd <= cStart) {*cellRefiner = REFINER_NOOP; PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);}
10313 ierr = DMPlexGetConeSize(dm, cStart, &coneSize);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10313,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10314 ierr = DMPlexGetHybridBounds(dm, &cMax, &fMax, NULL((void*)0), NULL((void*)0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10314,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10315 switch (dim) {
10316 case 1:
10317 switch (coneSize) {
10318 case 2:
10319 *cellRefiner = REFINER_SIMPLEX_1D;
10320 break;
10321 default:
10322 SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown coneSize %D in dimension %D for cell refiner", coneSize, dim)return PetscError(((MPI_Comm)0x44000001),10322,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown coneSize %D in dimension %D for cell refiner"
,coneSize,dim);
10323 }
10324 break;
10325 case 2:
10326 switch (coneSize) {
10327 case 3:
10328 if (cMax >= 0) *cellRefiner = REFINER_HYBRID_SIMPLEX_2D;
10329 else *cellRefiner = REFINER_SIMPLEX_2D;
10330 break;
10331 case 4:
10332 if (cMax >= 0 && fMax >= 0) *cellRefiner = REFINER_HYBRID_HEX_2D;
10333 else *cellRefiner = REFINER_HEX_2D;
10334 break;
10335 default:
10336 SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown coneSize %D in dimension %D for cell refiner", coneSize, dim)return PetscError(((MPI_Comm)0x44000001),10336,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown coneSize %D in dimension %D for cell refiner"
,coneSize,dim);
10337 }
10338 break;
10339 case 3:
10340 switch (coneSize) {
10341 case 4:
10342 if (cMax >= 0) *cellRefiner = REFINER_HYBRID_SIMPLEX_3D;
10343 else *cellRefiner = REFINER_SIMPLEX_3D;
10344 break;
10345 case 5:
10346 if (cMax == 0) *cellRefiner = REFINER_HYBRID_SIMPLEX_3D;
10347 else SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown coneSize %D in dimension %D for cell refiner", coneSize, dim)return PetscError(((MPI_Comm)0x44000001),10347,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown coneSize %D in dimension %D for cell refiner"
,coneSize,dim);
10348 break;
10349 case 6:
10350 if (cMax >= 0) *cellRefiner = REFINER_HYBRID_HEX_3D;
10351 else *cellRefiner = REFINER_HEX_3D;
10352 break;
10353 default:
10354 SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown coneSize %D in dimension %D for cell refiner", coneSize, dim)return PetscError(((MPI_Comm)0x44000001),10354,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown coneSize %D in dimension %D for cell refiner"
,coneSize,dim);
10355 }
10356 break;
10357 default:
10358 SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unknown dimension %D for cell refiner", dim)return PetscError(((MPI_Comm)0x44000001),10358,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,62,PETSC_ERROR_INITIAL,"Unknown dimension %D for cell refiner"
,dim);
10359 }
10360 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
10361}
10362
10363PetscErrorCode DMRefine_Plex(DM dm, MPI_Comm comm, DM *dmRefined)
10364{
10365 PetscBool isUniform;
10366 PetscErrorCode ierr;
10367
10368 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 10368; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
10369 ierr = DMPlexGetRefinementUniform(dm, &isUniform);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10369,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10370 if (isUniform) {
10371 CellRefiner cellRefiner;
10372 PetscBool localized;
10373
10374 ierr = DMGetCoordinatesLocalized(dm, &localized);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10374,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10375 ierr = DMPlexGetCellRefiner_Internal(dm, &cellRefiner);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10375,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10376 ierr = DMPlexRefineUniform_Internal(dm, cellRefiner, dmRefined);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10376,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10377 ierr = DMPlexSetRegularRefinement(*dmRefined, PETSC_TRUE);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10377,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10378 ierr = DMCopyBoundary(dm, *dmRefined);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10378,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10379 if (localized) {ierr = DMLocalizeCoordinates(*dmRefined);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10379,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}
10380 } else {
10381 ierr = DMPlexRefine_Internal(dm, NULL((void*)0), dmRefined);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10381,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10382 }
10383 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
10384}
10385
10386PetscErrorCode DMRefineHierarchy_Plex(DM dm, PetscInt nlevels, DM dmRefined[])
10387{
10388 DM cdm = dm;
10389 PetscInt r;
10390 PetscBool isUniform, localized;
10391 PetscErrorCode ierr;
10392
10393 PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
; petscstack->line[petscstack->currentsize] = 10393; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);
10394 ierr = DMPlexGetRefinementUniform(dm, &isUniform);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10394,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10395 ierr = DMGetCoordinatesLocalized(dm, &localized);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10395,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10396 if (isUniform) {
10397 for (r = 0; r < nlevels; ++r) {
10398 CellRefiner cellRefiner;
10399
10400 ierr = DMPlexGetCellRefiner_Internal(cdm, &cellRefiner);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10400,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10401 ierr = DMPlexRefineUniform_Internal(cdm, cellRefiner, &dmRefined[r]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10401,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10402 ierr = DMSetCoarsenLevel(dmRefined[r], cdm->leveldown);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10402,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10403 ierr = DMSetRefineLevel(dmRefined[r], cdm->levelup+1);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10403,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10404 ierr = DMCopyBoundary(cdm, dmRefined[r]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10404,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10405 if (localized) {ierr = DMLocalizeCoordinates(dmRefined[r]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10405,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}
10406 ierr = DMSetCoarseDM(dmRefined[r], cdm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10406,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10407 ierr = DMPlexSetRegularRefinement(dmRefined[r], PETSC_TRUE);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10407,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10408 cdm = dmRefined[r];
10409 }
10410 } else {
10411 for (r = 0; r < nlevels; ++r) {
10412 ierr = DMRefine(cdm, PetscObjectComm((PetscObject) dm), &dmRefined[r]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10412,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10413 ierr = DMCopyBoundary(cdm, dmRefined[r]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10413,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10414 if (localized) {ierr = DMLocalizeCoordinates(dmRefined[r]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10414,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}
10415 ierr = DMSetCoarseDM(dmRefined[r], cdm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),10415,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/impls/plex/plexrefine.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);
10416 cdm = dmRefined[r];
10417 }
10418 }
10419 PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);
10420}