Lines Matching refs:flxnrm
42 & flxLHS(nshg,1), flxnrm(nshg,nsd), local
93 flxnrm = zero
193 & flxLHS, flxnrm,
207 call commu (flxnrm, ilwork, nsd , 'in ')
245 call commu (flxnrm, ilwork, nsd , 'in ')
276 call commu (flxnrm, ilwork, nsd , 'out')
296 temp = sqrt(flxnrm(:,1)**2 + flxnrm(:,2)**2 + flxnrm(:,3)**2)
298 flxnrm(:,1) = flxnrm(:,1) / temp
299 flxnrm(:,2) = flxnrm(:,2) / temp
300 flxnrm(:,3) = flxnrm(:,3) / temp
309 call commu (flxnrm, ilwork, nsd , 'out')
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)