Lines Matching refs:flxres
41 real*8 flxres(nshg,nflow), local
91 flxres = zero
145 & flxres, qres,
192 & invflx, flxres,
205 call commu (flxres, ilwork, nflow, 'in ')
216 flxres(i,:) = flxres(i,:) + flxres(j,:)
224 flxres(j,:) = flxres(i,:)
235 flxTot = flxTot + flxres(nodflx(n),:)
243 call commu (flxres, ilwork, nflow, 'in ')
274 call commu (flxres, ilwork, nflow, 'out')
291 & flxres(:,i) = flxres(:,i) / flxLHS(:,1)
307 call commu (flxres, ilwork, nflow, 'out')
318 rtmp(i,2:4) = flxres(i,1:3) !viscous flux
320 tn= flxres(i,1) * flxnrm(i,1)
321 & + flxres(i,2) * flxnrm(i,2)
322 & + flxres(i,3) * flxnrm(i,3)
324 wallssVec(i,1) = flxres(i,1) - tn * flxnrm(i,1)
325 wallssVec(i,2) = flxres(i,2) - tn * flxnrm(i,2)
326 wallssVec(i,3) = flxres(i,3) - tn * flxnrm(i,3)