Lines Matching refs:yl
1 subroutine e3bvar (yl, acl, ul, argument
51 dimension yl(npro,nshl,ndof), rmu(npro),
128 pres = pres + shpb(:,nodlcl) * yl(:,nodlcl,1)
129 u1 = u1 + shpb(:,nodlcl) * yl(:,nodlcl,2)
130 u2 = u2 + shpb(:,nodlcl) * yl(:,nodlcl,3)
131 u3 = u3 + shpb(:,nodlcl) * yl(:,nodlcl,4)
287 gl1yi(:,1) = gl1yi(:,1) + shglb(:,1,n) * yl(:,n,1)
288 gl1yi(:,2) = gl1yi(:,2) + shglb(:,1,n) * yl(:,n,2)
289 gl1yi(:,3) = gl1yi(:,3) + shglb(:,1,n) * yl(:,n,3)
290 gl1yi(:,4) = gl1yi(:,4) + shglb(:,1,n) * yl(:,n,4)
292 gl2yi(:,1) = gl2yi(:,1) + shglb(:,2,n) * yl(:,n,1)
293 gl2yi(:,2) = gl2yi(:,2) + shglb(:,2,n) * yl(:,n,2)
294 gl2yi(:,3) = gl2yi(:,3) + shglb(:,2,n) * yl(:,n,3)
295 gl2yi(:,4) = gl2yi(:,4) + shglb(:,2,n) * yl(:,n,4)
297 gl3yi(:,1) = gl3yi(:,1) + shglb(:,3,n) * yl(:,n,1)
298 gl3yi(:,2) = gl3yi(:,2) + shglb(:,3,n) * yl(:,n,2)
299 gl3yi(:,3) = gl3yi(:,3) + shglb(:,3,n) * yl(:,n,3)
300 gl3yi(:,4) = gl3yi(:,4) + shglb(:,3,n) * yl(:,n,4)
794 subroutine e3bvarSclr (yl, shdrv, xlb, argument
800 dimension yl(npro,nshl,ndof), shdrv(npro,nsd,nshl),
814 call getdiffsclr(shape,dwl,yl,diffus)
917 gradSl(:,1) = gradSl(:,1) + shdrv(:,1,n) * yl(:,n,isc)
918 gradSl(:,2) = gradSl(:,2) + shdrv(:,2,n) * yl(:,n,isc)
919 gradSl(:,3) = gradSl(:,3) + shdrv(:,3,n) * yl(:,n,isc)