Lines Matching refs:shg
40 & shg(npro,nshl,nsd),
56 call e3metric( xl, shdrv,dxidx,shg,WdetJ)
94 & shg(npro,nshl,nsd), Qwtf(ngaussf),
120 call e3metricf( xl, shdrv,dxidx,shg,WdetJ,Qwtf)
136 shg = zero
155 call e3metric( xl, shdrv,dxidx,shg,WdetJ)
217 & shg(npro,nshl,nsd), Qwtf(ngaussf),
237 call e3metricf( xl, shdrv,dxidx,shg,WdetJ,Qwtf)
253 shg = zero
272 call e3metric( xl, shdrv,dxidx,shg,WdetJ)
317 & shg, WdetJ, Qwtf) argument
322 & dxidx(npro,nsd,nsd), shg(npro,nshl,nsd), local
378 shg(:,n,1) = shgl(:,1,n) * dxidx(:,1,1) +
381 shg(:,n,2) = shgl(:,1,n) * dxidx(:,1,2) +
384 shg(:,n,3) = shgl(:,1,n) * dxidx(:,1,3) +