Lines Matching refs:xl
2 & shgl, xl, argument
57 & shgl(npro,nsd,nshl), xl(npro,nenl,nsd),
102 xx(:,1) = xx(:,1) + shpfun(:,n) * xl(:,n,1)
103 xx(:,2) = xx(:,2) + shpfun(:,n) * xl(:,n,2)
104 xx(:,3) = xx(:,3) + shpfun(:,n) * xl(:,n,3)
143 call e3metric( xl, shgl, dxidx,
292 dkei = dkei + shpfun(:,n) * (1.0-xl(:,n,2)**2) !u_ex^~ (in FEM space)
315 & shgl, xl, xmudmi, argument
330 & shgl(npro,nsd,nshl), xl(npro,nenl,nsd),
378 call e3metric( xl, shgl, dxidx,
418 xx(:,1) = xx(:,1) + shpfun(:,n) * xl(:,n,1)
419 xx(:,2) = xx(:,2) + shpfun(:,n) * xl(:,n,2)
420 xx(:,3) = xx(:,3) + shpfun(:,n) * xl(:,n,3)
465 call getdiff(dwl, yl, shpfun, xmudmi, xl, rmu, rho)
495 & xl, srcR, srcL, uMod,