Lines Matching refs:shgl
20 subroutine cmass (shp, shgl, xl, em) argument
34 & shp(nshl,MAXQPT), shgl(nsd,nshl,MAXQPT),
51 call getshp(shp, shgl, sgn,
73 subroutine cmassl (shp, shgl, shpf, shglf, xl, em, Qwtf) argument
87 & shp(nshl,MAXQPT), shgl(nsd,nshl,MAXQPT),
149 call getshp(shp, shgl, sgn,
196 subroutine cmasstl (shp, shgl, shpf, shglf, xl, em, Qwtf) argument
210 & shp(nshl,MAXQPT), shgl(nsd,nshl,MAXQPT),
266 call getshp(shp, shgl, sgn,
316 subroutine e3metricf( xl, shgl, dxidx, argument
321 real*8 xl(npro,nenl,nsd), shgl(npro,nsd,nshl), local
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)
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)