232 {
233 PetscFunctionBegin;
234
235 double x,y,z;
236 for(unsigned int gg = 0;gg<data.getN().size1();gg++) {
237
238 double area;
240 area = norm_2(getNormalsAtGaussPt(gg))*0.5;
241 } else {
242 area = getArea();
243 }
244 double val = getGaussPts()(2,gg)*area;
245
246 x = getHoCoordsAtGaussPts()(gg,0);
247 y = getHoCoordsAtGaussPts()(gg,1);
248 z = getHoCoordsAtGaussPts()(gg,2);
249
251 case 3:
252 X_mat.resize(3,6,
false);
258 break;
259 case 1:
260 X_mat.resize(3,3,
false);
263 break;
264 default:
265 SETERRQ(PETSC_COMM_SELF,1,"not implemented");
266 }
267
268 int shape_size = data.getN().size2();
271
272
273 {
274 int kk=0;
275 for(int ii=0; ii<shape_size; ii++){
276
277 double val = data.getN()(gg,ii);
278 for(
int jj=0; jj<
rank; jj++) {
280 kk++;
281 }
282 }
283 if(gg==0) {
285 } else{
287 }
288 }
289
290 }
291
292 PetscFunctionReturn(0);
293 }