Lines Matching refs:b_inc
74 PetscInt b_inc = Nc;
83 B[p * p_inc + 0 * b_inc + 0 * c_inc] = 2. * y * z;
84 B[p * p_inc + 0 * b_inc + 1 * c_inc] = 0.;
85 B[p * p_inc + 0 * b_inc + 2 * c_inc] = 0.;
87 B[p * p_inc + 1 * b_inc + 0 * c_inc] = 0.;
88 B[p * p_inc + 1 * b_inc + 1 * c_inc] = 2. * x * z;
89 B[p * p_inc + 1 * b_inc + 2 * c_inc] = 0.;
91 B[p * p_inc + 2 * b_inc + 0 * c_inc] = 0.;
92 B[p * p_inc + 2 * b_inc + 1 * c_inc] = 2. * y * z;
93 B[p * p_inc + 2 * b_inc + 2 * c_inc] = -z * z;
95 B[p * p_inc + 3 * b_inc + 0 * c_inc] = 2. * x * z;
96 B[p * p_inc + 3 * b_inc + 1 * c_inc] = 0.;
97 B[p * p_inc + 3 * b_inc + 2 * c_inc] = -z * z;
99 B[p * p_inc + 4 * b_inc + 0 * c_inc] = x * x;
100 B[p * p_inc + 4 * b_inc + 1 * c_inc] = x * y;
101 B[p * p_inc + 4 * b_inc + 2 * c_inc] = -3. * x * z;
103 B[p * p_inc + 5 * b_inc + 0 * c_inc] = x * y;
104 B[p * p_inc + 5 * b_inc + 1 * c_inc] = y * y;
105 B[p * p_inc + 5 * b_inc + 2 * c_inc] = -3. * y * z;
110 PetscInt b_inc = Nc * dim;
119 D[p * p_inc + 0 * b_inc + 0 * c_inc + 0] = 0.;
120 D[p * p_inc + 0 * b_inc + 0 * c_inc + 1] = 2. * z;
121 D[p * p_inc + 0 * b_inc + 0 * c_inc + 2] = 2. * y;
122 D[p * p_inc + 0 * b_inc + 1 * c_inc + 0] = 0.;
123 D[p * p_inc + 0 * b_inc + 1 * c_inc + 1] = 0.;
124 D[p * p_inc + 0 * b_inc + 1 * c_inc + 2] = 0.;
125 D[p * p_inc + 0 * b_inc + 2 * c_inc + 0] = 0.;
126 D[p * p_inc + 0 * b_inc + 2 * c_inc + 1] = 0.;
127 D[p * p_inc + 0 * b_inc + 2 * c_inc + 2] = 0.;
129 D[p * p_inc + 1 * b_inc + 0 * c_inc + 0] = 0.;
130 D[p * p_inc + 1 * b_inc + 0 * c_inc + 1] = 0.;
131 D[p * p_inc + 1 * b_inc + 0 * c_inc + 2] = 0.;
132 D[p * p_inc + 1 * b_inc + 1 * c_inc + 0] = 2. * z;
133 D[p * p_inc + 1 * b_inc + 1 * c_inc + 1] = 0.;
134 D[p * p_inc + 1 * b_inc + 1 * c_inc + 2] = 2. * x;
135 D[p * p_inc + 1 * b_inc + 2 * c_inc + 0] = 0.;
136 D[p * p_inc + 1 * b_inc + 2 * c_inc + 1] = 0.;
137 D[p * p_inc + 1 * b_inc + 2 * c_inc + 2] = 0.;
139 D[p * p_inc + 2 * b_inc + 0 * c_inc + 0] = 0.;
140 D[p * p_inc + 2 * b_inc + 0 * c_inc + 1] = 0.;
141 D[p * p_inc + 2 * b_inc + 0 * c_inc + 2] = 0.;
142 D[p * p_inc + 2 * b_inc + 1 * c_inc + 0] = 0.;
143 D[p * p_inc + 2 * b_inc + 1 * c_inc + 1] = 2. * z;
144 D[p * p_inc + 2 * b_inc + 1 * c_inc + 2] = 2. * y;
145 D[p * p_inc + 2 * b_inc + 2 * c_inc + 0] = 0.;
146 D[p * p_inc + 2 * b_inc + 2 * c_inc + 1] = 0.;
147 D[p * p_inc + 2 * b_inc + 2 * c_inc + 2] = -2. * z;
149 D[p * p_inc + 3 * b_inc + 0 * c_inc + 0] = 2. * z;
150 D[p * p_inc + 3 * b_inc + 0 * c_inc + 1] = 0.;
151 D[p * p_inc + 3 * b_inc + 0 * c_inc + 2] = 2. * x;
152 D[p * p_inc + 3 * b_inc + 1 * c_inc + 0] = 0.;
153 D[p * p_inc + 3 * b_inc + 1 * c_inc + 1] = 0.;
154 D[p * p_inc + 3 * b_inc + 1 * c_inc + 2] = 0.;
155 D[p * p_inc + 3 * b_inc + 2 * c_inc + 0] = 0.;
156 D[p * p_inc + 3 * b_inc + 2 * c_inc + 1] = 0.;
157 D[p * p_inc + 3 * b_inc + 2 * c_inc + 2] = -2. * z;
159 D[p * p_inc + 4 * b_inc + 0 * c_inc + 0] = 2. * x;
160 D[p * p_inc + 4 * b_inc + 0 * c_inc + 1] = 0.;
161 D[p * p_inc + 4 * b_inc + 0 * c_inc + 2] = 0.;
162 D[p * p_inc + 4 * b_inc + 1 * c_inc + 0] = y;
163 D[p * p_inc + 4 * b_inc + 1 * c_inc + 1] = x;
164 D[p * p_inc + 4 * b_inc + 1 * c_inc + 2] = 0.;
165 D[p * p_inc + 4 * b_inc + 2 * c_inc + 0] = -3. * z;
166 D[p * p_inc + 4 * b_inc + 2 * c_inc + 1] = 0.;
167 D[p * p_inc + 4 * b_inc + 2 * c_inc + 2] = -3. * x;
169 D[p * p_inc + 5 * b_inc + 0 * c_inc + 0] = y;
170 D[p * p_inc + 5 * b_inc + 0 * c_inc + 1] = x;
171 D[p * p_inc + 5 * b_inc + 0 * c_inc + 2] = 0.;
172 D[p * p_inc + 5 * b_inc + 1 * c_inc + 0] = 0.;
173 D[p * p_inc + 5 * b_inc + 1 * c_inc + 1] = 2. * y;
174 D[p * p_inc + 5 * b_inc + 1 * c_inc + 2] = 0.;
175 D[p * p_inc + 5 * b_inc + 2 * c_inc + 0] = 0.;
176 D[p * p_inc + 5 * b_inc + 2 * c_inc + 1] = -3. * z;
177 D[p * p_inc + 5 * b_inc + 2 * c_inc + 2] = -3. * y;
182 PetscInt b_inc = Nc * dim * dim;
187 D[p * p_inc + 0 * b_inc + 0 * c_inc + 0] = 0.;
188 D[p * p_inc + 0 * b_inc + 0 * c_inc + 1] = 0.;
189 D[p * p_inc + 0 * b_inc + 0 * c_inc + 2] = 0.;
190 D[p * p_inc + 0 * b_inc + 0 * c_inc + 3] = 0.;
191 D[p * p_inc + 0 * b_inc + 0 * c_inc + 4] = 0.;
192 D[p * p_inc + 0 * b_inc + 0 * c_inc + 5] = 2.;
193 D[p * p_inc + 0 * b_inc + 0 * c_inc + 6] = 0.;
194 D[p * p_inc + 0 * b_inc + 0 * c_inc + 7] = 2.;
195 D[p * p_inc + 0 * b_inc + 0 * c_inc + 8] = 0.;
196 D[p * p_inc + 0 * b_inc + 1 * c_inc + 0] = 0.;
197 D[p * p_inc + 0 * b_inc + 1 * c_inc + 1] = 0.;
198 D[p * p_inc + 0 * b_inc + 1 * c_inc + 2] = 0.;
199 D[p * p_inc + 0 * b_inc + 1 * c_inc + 3] = 0.;
200 D[p * p_inc + 0 * b_inc + 1 * c_inc + 4] = 0.;
201 D[p * p_inc + 0 * b_inc + 1 * c_inc + 5] = 0.;
202 D[p * p_inc + 0 * b_inc + 1 * c_inc + 6] = 0.;
203 D[p * p_inc + 0 * b_inc + 1 * c_inc + 7] = 0.;
204 D[p * p_inc + 0 * b_inc + 1 * c_inc + 8] = 0.;
205 D[p * p_inc + 0 * b_inc + 2 * c_inc + 0] = 0.;
206 D[p * p_inc + 0 * b_inc + 2 * c_inc + 1] = 0.;
207 D[p * p_inc + 0 * b_inc + 2 * c_inc + 2] = 0.;
208 D[p * p_inc + 0 * b_inc + 2 * c_inc + 3] = 0.;
209 D[p * p_inc + 0 * b_inc + 2 * c_inc + 4] = 0.;
210 D[p * p_inc + 0 * b_inc + 2 * c_inc + 5] = 0.;
211 D[p * p_inc + 0 * b_inc + 2 * c_inc + 6] = 0.;
212 D[p * p_inc + 0 * b_inc + 2 * c_inc + 7] = 0.;
213 D[p * p_inc + 0 * b_inc + 2 * c_inc + 8] = 0.;
215 D[p * p_inc + 1 * b_inc + 0 * c_inc + 0] = 0.;
216 D[p * p_inc + 1 * b_inc + 0 * c_inc + 1] = 0.;
217 D[p * p_inc + 1 * b_inc + 0 * c_inc + 2] = 0.;
218 D[p * p_inc + 1 * b_inc + 0 * c_inc + 3] = 0.;
219 D[p * p_inc + 1 * b_inc + 0 * c_inc + 4] = 0.;
220 D[p * p_inc + 1 * b_inc + 0 * c_inc + 5] = 0.;
221 D[p * p_inc + 1 * b_inc + 0 * c_inc + 6] = 0.;
222 D[p * p_inc + 1 * b_inc + 0 * c_inc + 7] = 0.;
223 D[p * p_inc + 1 * b_inc + 0 * c_inc + 8] = 0.;
224 D[p * p_inc + 1 * b_inc + 1 * c_inc + 0] = 0.;
225 D[p * p_inc + 1 * b_inc + 1 * c_inc + 1] = 0.;
226 D[p * p_inc + 1 * b_inc + 1 * c_inc + 2] = 2.;
227 D[p * p_inc + 1 * b_inc + 1 * c_inc + 3] = 0.;
228 D[p * p_inc + 1 * b_inc + 1 * c_inc + 4] = 0.;
229 D[p * p_inc + 1 * b_inc + 1 * c_inc + 5] = 0.;
230 D[p * p_inc + 1 * b_inc + 1 * c_inc + 6] = 2.;
231 D[p * p_inc + 1 * b_inc + 1 * c_inc + 7] = 0.;
232 D[p * p_inc + 1 * b_inc + 1 * c_inc + 8] = 0.;
233 D[p * p_inc + 1 * b_inc + 2 * c_inc + 0] = 0.;
234 D[p * p_inc + 1 * b_inc + 2 * c_inc + 1] = 0.;
235 D[p * p_inc + 1 * b_inc + 2 * c_inc + 2] = 0.;
236 D[p * p_inc + 1 * b_inc + 2 * c_inc + 3] = 0.;
237 D[p * p_inc + 1 * b_inc + 2 * c_inc + 4] = 0.;
238 D[p * p_inc + 1 * b_inc + 2 * c_inc + 5] = 0.;
239 D[p * p_inc + 1 * b_inc + 2 * c_inc + 6] = 0.;
240 D[p * p_inc + 1 * b_inc + 2 * c_inc + 7] = 0.;
241 D[p * p_inc + 1 * b_inc + 2 * c_inc + 8] = 0.;
243 D[p * p_inc + 2 * b_inc + 0 * c_inc + 0] = 0.;
244 D[p * p_inc + 2 * b_inc + 0 * c_inc + 1] = 0.;
245 D[p * p_inc + 2 * b_inc + 0 * c_inc + 2] = 0.;
246 D[p * p_inc + 2 * b_inc + 0 * c_inc + 3] = 0.;
247 D[p * p_inc + 2 * b_inc + 0 * c_inc + 4] = 0.;
248 D[p * p_inc + 2 * b_inc + 0 * c_inc + 5] = 0.;
249 D[p * p_inc + 2 * b_inc + 0 * c_inc + 6] = 0.;
250 D[p * p_inc + 2 * b_inc + 0 * c_inc + 7] = 0.;
251 D[p * p_inc + 2 * b_inc + 0 * c_inc + 8] = 0.;
252 D[p * p_inc + 2 * b_inc + 1 * c_inc + 0] = 0.;
253 D[p * p_inc + 2 * b_inc + 1 * c_inc + 1] = 0.;
254 D[p * p_inc + 2 * b_inc + 1 * c_inc + 2] = 0.;
255 D[p * p_inc + 2 * b_inc + 1 * c_inc + 3] = 0.;
256 D[p * p_inc + 2 * b_inc + 1 * c_inc + 4] = 0.;
257 D[p * p_inc + 2 * b_inc + 1 * c_inc + 5] = 2.;
258 D[p * p_inc + 2 * b_inc + 1 * c_inc + 6] = 0.;
259 D[p * p_inc + 2 * b_inc + 1 * c_inc + 7] = 2.;
260 D[p * p_inc + 2 * b_inc + 1 * c_inc + 8] = 0.;
261 D[p * p_inc + 2 * b_inc + 2 * c_inc + 0] = 0.;
262 D[p * p_inc + 2 * b_inc + 2 * c_inc + 1] = 0.;
263 D[p * p_inc + 2 * b_inc + 2 * c_inc + 2] = 0.;
264 D[p * p_inc + 2 * b_inc + 2 * c_inc + 3] = 0.;
265 D[p * p_inc + 2 * b_inc + 2 * c_inc + 4] = 0.;
266 D[p * p_inc + 2 * b_inc + 2 * c_inc + 5] = 0.;
267 D[p * p_inc + 2 * b_inc + 2 * c_inc + 6] = 0.;
268 D[p * p_inc + 2 * b_inc + 2 * c_inc + 7] = 0.;
269 D[p * p_inc + 2 * b_inc + 2 * c_inc + 8] = -2.;
271 D[p * p_inc + 3 * b_inc + 0 * c_inc + 0] = 0.;
272 D[p * p_inc + 3 * b_inc + 0 * c_inc + 1] = 0.;
273 D[p * p_inc + 3 * b_inc + 0 * c_inc + 2] = 2.;
274 D[p * p_inc + 3 * b_inc + 0 * c_inc + 3] = 0.;
275 D[p * p_inc + 3 * b_inc + 0 * c_inc + 4] = 0.;
276 D[p * p_inc + 3 * b_inc + 0 * c_inc + 5] = 0.;
277 D[p * p_inc + 3 * b_inc + 0 * c_inc + 6] = 2.;
278 D[p * p_inc + 3 * b_inc + 0 * c_inc + 7] = 0.;
279 D[p * p_inc + 3 * b_inc + 0 * c_inc + 8] = 0.;
280 D[p * p_inc + 3 * b_inc + 1 * c_inc + 0] = 0.;
281 D[p * p_inc + 3 * b_inc + 1 * c_inc + 1] = 0.;
282 D[p * p_inc + 3 * b_inc + 1 * c_inc + 2] = 0.;
283 D[p * p_inc + 3 * b_inc + 1 * c_inc + 3] = 0.;
284 D[p * p_inc + 3 * b_inc + 1 * c_inc + 4] = 0.;
285 D[p * p_inc + 3 * b_inc + 1 * c_inc + 5] = 0.;
286 D[p * p_inc + 3 * b_inc + 1 * c_inc + 6] = 0.;
287 D[p * p_inc + 3 * b_inc + 1 * c_inc + 7] = 0.;
288 D[p * p_inc + 3 * b_inc + 1 * c_inc + 8] = 0.;
289 D[p * p_inc + 3 * b_inc + 2 * c_inc + 0] = 0.;
290 D[p * p_inc + 3 * b_inc + 2 * c_inc + 1] = 0.;
291 D[p * p_inc + 3 * b_inc + 2 * c_inc + 2] = 0.;
292 D[p * p_inc + 3 * b_inc + 2 * c_inc + 3] = 0.;
293 D[p * p_inc + 3 * b_inc + 2 * c_inc + 4] = 0.;
294 D[p * p_inc + 3 * b_inc + 2 * c_inc + 5] = 0.;
295 D[p * p_inc + 3 * b_inc + 2 * c_inc + 6] = 0.;
296 D[p * p_inc + 3 * b_inc + 2 * c_inc + 7] = 0.;
297 D[p * p_inc + 3 * b_inc + 2 * c_inc + 8] = -2.;
299 D[p * p_inc + 4 * b_inc + 0 * c_inc + 0] = 2.;
300 D[p * p_inc + 4 * b_inc + 0 * c_inc + 1] = 0.;
301 D[p * p_inc + 4 * b_inc + 0 * c_inc + 2] = 0.;
302 D[p * p_inc + 4 * b_inc + 0 * c_inc + 3] = 0.;
303 D[p * p_inc + 4 * b_inc + 0 * c_inc + 4] = 0.;
304 D[p * p_inc + 4 * b_inc + 0 * c_inc + 5] = 0.;
305 D[p * p_inc + 4 * b_inc + 0 * c_inc + 6] = 0.;
306 D[p * p_inc + 4 * b_inc + 0 * c_inc + 7] = 0.;
307 D[p * p_inc + 4 * b_inc + 0 * c_inc + 8] = 0.;
308 D[p * p_inc + 4 * b_inc + 1 * c_inc + 0] = 0.;
309 D[p * p_inc + 4 * b_inc + 1 * c_inc + 1] = 1.;
310 D[p * p_inc + 4 * b_inc + 1 * c_inc + 2] = 0.;
311 D[p * p_inc + 4 * b_inc + 1 * c_inc + 3] = 1.;
312 D[p * p_inc + 4 * b_inc + 1 * c_inc + 4] = 0.;
313 D[p * p_inc + 4 * b_inc + 1 * c_inc + 5] = 0.;
314 D[p * p_inc + 4 * b_inc + 1 * c_inc + 6] = 0.;
315 D[p * p_inc + 4 * b_inc + 1 * c_inc + 7] = 0.;
316 D[p * p_inc + 4 * b_inc + 1 * c_inc + 8] = 0.;
317 D[p * p_inc + 4 * b_inc + 2 * c_inc + 0] = 0.;
318 D[p * p_inc + 4 * b_inc + 2 * c_inc + 1] = 0.;
319 D[p * p_inc + 4 * b_inc + 2 * c_inc + 2] = -3.;
320 D[p * p_inc + 4 * b_inc + 2 * c_inc + 3] = 0.;
321 D[p * p_inc + 4 * b_inc + 2 * c_inc + 4] = 0.;
322 D[p * p_inc + 4 * b_inc + 2 * c_inc + 5] = 0.;
323 D[p * p_inc + 4 * b_inc + 2 * c_inc + 6] = -3.;
324 D[p * p_inc + 4 * b_inc + 2 * c_inc + 7] = 0.;
325 D[p * p_inc + 4 * b_inc + 2 * c_inc + 8] = 0.;
327 D[p * p_inc + 4 * b_inc + 0 * c_inc + 0] = 2.;
328 D[p * p_inc + 4 * b_inc + 0 * c_inc + 1] = 0.;
329 D[p * p_inc + 4 * b_inc + 0 * c_inc + 2] = 0.;
330 D[p * p_inc + 4 * b_inc + 0 * c_inc + 3] = 0.;
331 D[p * p_inc + 4 * b_inc + 0 * c_inc + 4] = 0.;
332 D[p * p_inc + 4 * b_inc + 0 * c_inc + 5] = 0.;
333 D[p * p_inc + 4 * b_inc + 0 * c_inc + 6] = 0.;
334 D[p * p_inc + 4 * b_inc + 0 * c_inc + 7] = 0.;
335 D[p * p_inc + 4 * b_inc + 0 * c_inc + 8] = 0.;
336 D[p * p_inc + 4 * b_inc + 1 * c_inc + 0] = 0.;
337 D[p * p_inc + 4 * b_inc + 1 * c_inc + 1] = 1.;
338 D[p * p_inc + 4 * b_inc + 1 * c_inc + 2] = 0.;
339 D[p * p_inc + 4 * b_inc + 1 * c_inc + 3] = 1.;
340 D[p * p_inc + 4 * b_inc + 1 * c_inc + 4] = 0.;
341 D[p * p_inc + 4 * b_inc + 1 * c_inc + 5] = 0.;
342 D[p * p_inc + 4 * b_inc + 1 * c_inc + 6] = 0.;
343 D[p * p_inc + 4 * b_inc + 1 * c_inc + 7] = 0.;
344 D[p * p_inc + 4 * b_inc + 1 * c_inc + 8] = 0.;
345 D[p * p_inc + 4 * b_inc + 2 * c_inc + 0] = 0.;
346 D[p * p_inc + 4 * b_inc + 2 * c_inc + 1] = 0.;
347 D[p * p_inc + 4 * b_inc + 2 * c_inc + 2] = -3.;
348 D[p * p_inc + 4 * b_inc + 2 * c_inc + 3] = 0.;
349 D[p * p_inc + 4 * b_inc + 2 * c_inc + 4] = 0.;
350 D[p * p_inc + 4 * b_inc + 2 * c_inc + 5] = 0.;
351 D[p * p_inc + 4 * b_inc + 2 * c_inc + 6] = -3.;
352 D[p * p_inc + 4 * b_inc + 2 * c_inc + 7] = 0.;
353 D[p * p_inc + 4 * b_inc + 2 * c_inc + 8] = 0.;