Lines Matching refs:shgl
2 & shp, shgl, iBC, argument
14 & shgl(MAXTOP,nsd,maxsh,MAXQPT),
43 & shgl(lcsyst,:,1:nshl,:),
73 & shgl(lcsyst,:,1:nshl,:),
87 subroutine velocity_gradient ( y, x, shp, shgl, argument
93 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
133 call getshp( shp, shgl, sgn, shape, shdrv )
162 subroutine velocity_hessian ( gradu, x, shp, shgl, argument
168 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
208 call getshp( shp, shgl, sgn, shape, shdrv )
288 subroutine local_gradient ( vector, vsize, shgl, xl, argument
299 & shgl(npro,nsd,nshl), xl(npro,nenl,nsd),
313 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(:,1,n)
314 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(:,2,n)
315 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(:,3,n)
316 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(:,1,n)
317 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(:,2,n)
318 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(:,3,n)
319 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(:,1,n)
320 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(:,2,n)
321 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(:,3,n)
365 shg(:,n,1) = shgl(:,1,n) * dxidx(:,1,1) +
366 & shgl(:,2,n) * dxidx(:,2,1) +
367 & shgl(:,3,n) * dxidx(:,3,1)
368 shg(:,n,2) = shgl(:,1,n) * dxidx(:,1,2) +
369 & shgl(:,2,n) * dxidx(:,2,2) +
370 & shgl(:,3,n) * dxidx(:,3,2)
371 shg(:,n,3) = shgl(:,1,n) * dxidx(:,1,3) +
372 & shgl(:,2,n) * dxidx(:,2,3) +
373 & shgl(:,3,n) * dxidx(:,3,3)