Lines Matching refs:yl
1 subroutine e3juel (yl, acl, sls, A0, argument
25 dimension yl(npro,nshl,nflow), acl(npro,nshl,ndof),
55 rk = pt5 * (yl(:,inod,2)**2 + yl(:,inod,3)**2 + yl(:,inod,4)**2)
58 call getthm (yl(:,inod,1), yl(:,inod,5), sls,
64 yl(:,inod,1) = rho
65 yl(:,inod,2) = rho * yl(:,inod,2)
66 yl(:,inod,3) = rho * yl(:,inod,3)
67 yl(:,inod,4) = rho * yl(:,inod,4)
68 yl(:,inod,5) = rho * (ei + rk)
70 ub(:,:)=yl(:,1,:)+yl(:,2,:)
71 & +yl(:,3,:)+yl(:,4,:)
85 rml(:,i,1) = rml(:,i,1) + fddt * (yl(:,i,1)+ub(:,1))
86 rml(:,i,2) = rml(:,i,2) + fddt * (yl(:,i,2)+ub(:,2))
87 rml(:,i,3) = rml(:,i,3) + fddt * (yl(:,i,3)+ub(:,3))
88 rml(:,i,4) = rml(:,i,4) + fddt * (yl(:,i,4)+ub(:,4))
89 rml(:,i,5) = rml(:,i,5) + fddt * (yl(:,i,5)+ub(:,5))
104 yl(:,i,1) = fact*(acl(:,i,1)+ub(:,1))
105 yl(:,i,2) = fact*(acl(:,i,2)+ub(:,2))
106 yl(:,i,3) = fact*(acl(:,i,3)+ub(:,3))
107 yl(:,i,4) = fact*(acl(:,i,4)+ub(:,4))
108 yl(:,i,5) = fact*(acl(:,i,5)+ub(:,5))
117 & + A0(:,1,1)*yl(:,i,1)
121 & + A0(:,1,5)*yl(:,i,5)
124 & + A0(:,2,1)*yl(:,i,1)
125 & + A0(:,2,2)*yl(:,i,2)
128 & + A0(:,2,5)*yl(:,i,5)
131 & + A0(:,3,1)*yl(:,i,1)
133 & + A0(:,3,3)*yl(:,i,3)
135 & + A0(:,3,5)*yl(:,i,5)
138 & + A0(:,4,1)*yl(:,i,1)
141 & + A0(:,4,4)*yl(:,i,4)
142 & + A0(:,4,5)*yl(:,i,5)
145 & + A0(:,5,1)*yl(:,i,1)
146 & + A0(:,5,2)*yl(:,i,2)
147 & + A0(:,5,3)*yl(:,i,3)
148 & + A0(:,5,4)*yl(:,i,4)
149 & + A0(:,5,5)*yl(:,i,5)