Lines Matching refs:rLyi
3 & con, dxidx, rLyi,
43 & tau(npro,5), rLyi(npro,nflow),
183 if(iDC .ne. 0) rLyitemp=rLyi
186 rLyi(:,1) = tau(:,1) * rLyi(:,1)
187 rLyi(:,2) = tau(:,2) * rLyi(:,2)
188 rLyi(:,3) = tau(:,2) * rLyi(:,3)
189 rLyi(:,4) = tau(:,2) * rLyi(:,4)
190 rLyi(:,5) = tau(:,3) * rLyi(:,5)
198 rTLS = rLYItemp(:,1) * (rLyi(:,1)*dVdY(:,1)
199 & + dVdY(:,2)*rLyi(:,2) + dVdY(:,4)*rLyi(:,3)
200 & + rLyi(:,4)*dVdY(:,7) + dVdY(:,11)*rLyi(:,5))
201 & + rLyitemp(:,2) * (rLyi(:,2)*dVdY(:,3)
202 & + rLyi(:,3)*dVdY(:,5) + dVdY(:,8)*rLyi(:,4)
203 & + rLyi(:,5)*dVdY(:,12))
204 & + rLyitemp(:,3) * (rLyi(:,3)*dVdY(:,6)
205 & + dVdY(:,9)*rLyi(:,4) + dVdY(:,13)*rLyi(:,5))
206 & + rLyitemp(:,4) * (rLyi(:,4)*dVdY(:,10)
207 & + dVdY(:,14)*rLyi(:,5))
208 & + rLyitemp(:,5) * (dVdY(:,15)*rLyi(:,5))
287 & con, dxidx, rLyi,
328 & rLyi(npro,nflow),
638 if(iDC .ne. 0) rLyitemp=rLyi
641 eigmax = rLyi !reuse
642 rLyi = zero
645 rLyi(:,i) = rLyi(:,i) + Tau(:,i,j) * eigmax(:,j)
656 rTLS = rLYItemp(:,1) * (rLyi(:,1)*dVdY(:,1)
657 & + dVdY(:,2)*rLyi(:,2) + dVdY(:,4)*rLyi(:,3)
658 & + rLyi(:,4)*dVdY(:,7) + dVdY(:,11)*rLyi(:,5))
659 & + rLyitemp(:,2) * (rLyi(:,2)*dVdY(:,3)
660 & + rLyi(:,3)*dVdY(:,5) + dVdY(:,8)*rLyi(:,4)
661 & + rLyi(:,5)*dVdY(:,12))
662 & + rLyitemp(:,3) * (rLyi(:,3)*dVdY(:,6)
663 & + dVdY(:,9)*rLyi(:,4) + dVdY(:,13)*rLyi(:,5))
664 & + rLyitemp(:,4) * (rLyi(:,4)*dVdY(:,10)
665 & + dVdY(:,14)*rLyi(:,5))
666 & + rLyitemp(:,5) * (dVdY(:,15)*rLyi(:,5))
748 & con, dxidx, rLyi,
790 & rLyi(npro,nflow,ipord),
1101 if(iDC .ne. 0) rLyitemp(:,:)=rLyi(:,:,1)
1104 eigmax(:,:) = rLyi(:,:,1) !reuse
1105 rLyi = zero
1109 rLyi(:,i,k) = rLyi(:,i,k)+Tau(:,i,j,k)*eigmax(:,j)
1121 rTLS = rLYItemp(:,1) * (rLyi(:,1,1)*dVdY(:,1)
1122 & + dVdY(:,2)*rLyi(:,2,1) + dVdY(:,4)*rLyi(:,3,1)
1123 & + rLyi(:,4,1)*dVdY(:,7) + dVdY(:,11)*rLyi(:,5,1))
1124 & + rLyitemp(:,2) * (rLyi(:,2,1)*dVdY(:,3)
1125 & + rLyi(:,3,1)*dVdY(:,5) + dVdY(:,8)*rLyi(:,4,1)
1126 & + rLyi(:,5,1)*dVdY(:,12))
1127 & + rLyitemp(:,3) * (rLyi(:,3,1)*dVdY(:,6)
1128 & + dVdY(:,9)*rLyi(:,4,1) + dVdY(:,13)*rLyi(:,5,1))
1129 & + rLyitemp(:,4) * (rLyi(:,4,1)*dVdY(:,10)
1130 & + dVdY(:,14)*rLyi(:,5,1))
1131 & + rLyitemp(:,5) * (dVdY(:,15)*rLyi(:,5,1))