Lines Matching refs:n
267 integer e,n local
288 do n = 1, nshl
293 gradV(:,1,1) = gradV(:,1,1) + shg(:,n,1) * yl(:,n,2)
294 gradV(:,2,1) = gradV(:,2,1) + shg(:,n,1) * yl(:,n,3)
295 gradV(:,3,1) = gradV(:,3,1) + shg(:,n,1) * yl(:,n,4)
297 gradV(:,1,2) = gradV(:,1,2) + shg(:,n,2) * yl(:,n,2)
298 gradV(:,2,2) = gradV(:,2,2) + shg(:,n,2) * yl(:,n,3)
299 gradV(:,3,2) = gradV(:,3,2) + shg(:,n,2) * yl(:,n,4)
301 gradV(:,1,3) = gradV(:,1,3) + shg(:,n,3) * yl(:,n,2)
302 gradV(:,2,3) = gradV(:,2,3) + shg(:,n,3) * yl(:,n,3)
303 gradV(:,3,3) = gradV(:,3,3) + shg(:,n,3) * yl(:,n,4)
315 do n = 1, nenl
316 dwall = dwall + shape_funct(:,n) * dwl(:,n)
454 do n = 1, nshl
459 gradV(:,1,1) = gradV(:,1,1) + shg(:,n,1) * yl(:,n,2)
460 gradV(:,2,1) = gradV(:,2,1) + shg(:,n,1) * yl(:,n,3)
461 gradV(:,3,1) = gradV(:,3,1) + shg(:,n,1) * yl(:,n,4)
463 gradV(:,1,2) = gradV(:,1,2) + shg(:,n,2) * yl(:,n,2)
464 gradV(:,2,2) = gradV(:,2,2) + shg(:,n,2) * yl(:,n,3)
465 gradV(:,3,2) = gradV(:,3,2) + shg(:,n,2) * yl(:,n,4)
467 gradV(:,1,3) = gradV(:,1,3) + shg(:,n,3) * yl(:,n,2)
468 gradV(:,2,3) = gradV(:,2,3) + shg(:,n,3) * yl(:,n,3)
469 gradV(:,3,3) = gradV(:,3,3) + shg(:,n,3) * yl(:,n,4)
476 do n = 1, nenl
477 dwall = dwall + shape_funct(:,n) * dwl(:,n)