Lines Matching refs:n
332 do n = 1, nenl
333 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(:,1,n)
334 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(:,2,n)
335 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(:,3,n)
336 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(:,1,n)
337 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(:,2,n)
338 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(:,3,n)
339 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(:,1,n)
340 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(:,2,n)
341 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(:,3,n)
377 do n = 1, nshl
378 shg(:,n,1) = shgl(:,1,n) * dxidx(:,1,1) +
379 & shgl(:,2,n) * dxidx(:,2,1) +
380 & shgl(:,3,n) * dxidx(:,3,1)
381 shg(:,n,2) = shgl(:,1,n) * dxidx(:,1,2) +
382 & shgl(:,2,n) * dxidx(:,2,2) +
383 & shgl(:,3,n) * dxidx(:,3,2)
384 shg(:,n,3) = shgl(:,1,n) * dxidx(:,1,3) +
385 & shgl(:,2,n) * dxidx(:,2,3) +
386 & shgl(:,3,n) * dxidx(:,3,3)