Lines Matching refs:flxLHS
42 & flxLHS(nshg,1), flxnrm(nshg,nsd), local
92 flxLHS = zero
193 & flxLHS, flxnrm,
206 call commu (flxLHS, ilwork, 1 , 'in ')
215 flxLHS(i,1) = flxLHS(i,1) + flxLHS(j,1)
223 flxLHS(j,1) = flxLHS(i,1)
244 call commu (flxLHS, ilwork, 1 , 'in ')
275 call commu (flxLHS, ilwork, 1 , 'out')
290 where ( (invflx .ne. 0) .and. (flxLHS(:,1) .ne. zero) )
291 & flxres(:,i) = flxres(:,i) / flxLHS(:,1)
308 call commu (flxLHS, ilwork, 1 , 'out')