Lines Matching refs:yl
1 subroutine e3bvar (yl, ycl, BCB, shpb, shglb, argument
53 dimension yl(npro,nshl,nflow), BCB(npro,nshlb,ndBCB),
98 pres = pres + shpb(:,nodlcl) * yl(:,nodlcl,1)
99 u1 = u1 + shpb(:,nodlcl) * yl(:,nodlcl,2)
100 u2 = u2 + shpb(:,nodlcl) * yl(:,nodlcl,3)
101 u3 = u3 + shpb(:,nodlcl) * yl(:,nodlcl,4)
102 T = T + shpb(:,nodlcl) * yl(:,nodlcl,5)
235 gl1yi(:,1) = gl1yi(:,1) + shglb(:,1,n) * yl(:,n,1)
236 gl1yi(:,2) = gl1yi(:,2) + shglb(:,1,n) * yl(:,n,2)
237 gl1yi(:,3) = gl1yi(:,3) + shglb(:,1,n) * yl(:,n,3)
238 gl1yi(:,4) = gl1yi(:,4) + shglb(:,1,n) * yl(:,n,4)
239 gl1yi(:,5) = gl1yi(:,5) + shglb(:,1,n) * yl(:,n,5)
241 gl2yi(:,1) = gl2yi(:,1) + shglb(:,2,n) * yl(:,n,1)
242 gl2yi(:,2) = gl2yi(:,2) + shglb(:,2,n) * yl(:,n,2)
243 gl2yi(:,3) = gl2yi(:,3) + shglb(:,2,n) * yl(:,n,3)
244 gl2yi(:,4) = gl2yi(:,4) + shglb(:,2,n) * yl(:,n,4)
245 gl2yi(:,5) = gl2yi(:,5) + shglb(:,2,n) * yl(:,n,5)
247 gl3yi(:,1) = gl3yi(:,1) + shglb(:,3,n) * yl(:,n,1)
248 gl3yi(:,2) = gl3yi(:,2) + shglb(:,3,n) * yl(:,n,2)
249 gl3yi(:,3) = gl3yi(:,3) + shglb(:,3,n) * yl(:,n,3)
250 gl3yi(:,4) = gl3yi(:,4) + shglb(:,3,n) * yl(:,n,4)
251 gl3yi(:,5) = gl3yi(:,5) + shglb(:,3,n) * yl(:,n,5)