Lines Matching refs:shgl
30 subroutine getshp(shp, shgl, sgn, shape, shdrv) argument
37 dimension shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
45 shdrv(:,j,i) = shgl(j,i,intp)
52 shdrv(:,j,i) = shgl(j,i,intp)*sgn(:,i)
60 subroutine getshpb(shp, shgl, sgn, shape, shdrv) argument
67 dimension shp(nshl,ngaussb), shgl(nsd,nshl,ngaussb),
75 shdrv(:,j,i) = shgl(j,i,intp)
82 shdrv(:,j,i) = shgl(j,i,intp)*sgn(:,i)
244 & shp(nshl,npts), shgl(nsd,nshl,npts), local
258 call shpTet(ipord,intpnt(:,i),shp(:,i),shgl(:,:,i))
283 & shp, shgl, sgn,
318 & shp, shgl, sgn, argument
328 & shgl(nsd,nshl,npts), xl(npro,nenl,nsd), local
337 call getshp(shp, shgl, sgn,