Lines Matching refs:shpfun
1 subroutine e3ivar (yl, acl, shpfun, argument
56 & acl(npro,nshl,ndof), shpfun(npro,nshl),
87 pres = pres + shpfun(:,n) * yl(:,n,1)
88 u1 = u1 + shpfun(:,n) * yl(:,n,2)
89 u2 = u2 + shpfun(:,n) * yl(:,n,3)
90 u3 = u3 + shpfun(:,n) * yl(:,n,4)
95 Temp = Temp + shpfun(:,n) * yl(:,n,5)
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)
111 dist2w = dist2w + shpfun(:,n) * dwl(:,n)
120 rlsli(:,1) = rlsli(:,1) + shpfun(:,n) * rlsl(:,n,1)
121 rlsli(:,2) = rlsli(:,2) + shpfun(:,n) * rlsl(:,n,2)
122 rlsli(:,3) = rlsli(:,3) + shpfun(:,n) * rlsl(:,n,3)
123 rlsli(:,4) = rlsli(:,4) + shpfun(:,n) * rlsl(:,n,4)
124 rlsli(:,5) = rlsli(:,5) + shpfun(:,n) * rlsl(:,n,5)
125 rlsli(:,6) = rlsli(:,6) + shpfun(:,n) * rlsl(:,n,6)
136 aci(:,1) = aci(:,1) + shpfun(:,n) * acl(:,n,2)
137 aci(:,2) = aci(:,2) + shpfun(:,n) * acl(:,n,3)
138 aci(:,3) = aci(:,3) + shpfun(:,n) * acl(:,n,4)
208 Sclr(i) = Sclr(i) + shpfun(i,n) * yl(i,n,6) !scalar
262 tmp=shpfun(:,ia)*WdetJ(:)
263 tmp1=shpfun(:,ia)*Qwt(lcsyst,intp)
292 dkei = dkei + shpfun(:,n) * (1.0-xl(:,n,2)**2) !u_ex^~ (in FEM space)
314 subroutine e3ivarSclr (yl, acl, shpfun, argument
329 & gradS(npro,nsd), shpfun(npro,nshl),
361 u1 = u1 + shpfun(:,n) * yl(:,n,2)
362 u2 = u2 + shpfun(:,n) * yl(:,n,3)
363 u3 = u3 + shpfun(:,n) * yl(:,n,4)
364 Sclr = Sclr + shpfun(:,n) * yl(:,n,id)
372 Sdot = Sdot + shpfun(:,n) * acl(:,n,id)
411 Temp = Temp + shpfun(:,n) * yl(:,n,5)
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)
425 aci(:,1) = aci(:,1) + shpfun(:,n) * acl(:,n,2)
426 aci(:,2) = aci(:,2) + shpfun(:,n) * acl(:,n,3)
427 aci(:,3) = aci(:,3) + shpfun(:,n) * acl(:,n,4)
465 call getdiff(dwl, yl, shpfun, xmudmi, xl, rmu, rho)
493 & shpfun, shg, yl, dxidx,