Lines Matching refs:shgl
1 subroutine e3qvar (yl, shgl, argument
38 & shgl(npro,nsd,nshl), xl(npro,nenl,nsd),
53 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(:,1,n)
54 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(:,2,n)
55 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(:,3,n)
56 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(:,1,n)
57 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(:,2,n)
58 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(:,3,n)
59 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(:,1,n)
60 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(:,2,n)
61 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(:,3,n)
107 shg(:,n,1) = shgl(:,1,n) * dxidx(:,1,1) +
108 & shgl(:,2,n) * dxidx(:,2,1) +
109 & shgl(:,3,n) * dxidx(:,3,1)
110 shg(:,n,2) = shgl(:,1,n) * dxidx(:,1,2) +
111 & shgl(:,2,n) * dxidx(:,2,2) +
112 & shgl(:,3,n) * dxidx(:,3,2)
113 shg(:,n,3) = shgl(:,1,n) * dxidx(:,1,3) +
114 & shgl(:,2,n) * dxidx(:,2,3) +
115 & shgl(:,3,n) * dxidx(:,3,3)
148 subroutine e3qvarSclr (yl, shgl, xl, argument
156 & shgl(npro,nsd,nshl), xl(npro,nenl,nsd), local
165 call e3metric( xl, shgl, dxidx,