Lines Matching refs:iloc
117 do iloc = 1, nfbrps
118 c_faces(iloc) = lstfbr(iloc) - 1
127 do iloc = 1, nfbrps
128 bflux(iloc) = 0.d0
244 do iloc = 1, nfbrps
245 ifac = lstfbr(iloc)
264 do iloc = 1, nfbrps
265 ifac = lstfbr(iloc)
302 do iloc = 1, nfbrps
304 ifac = lstfbr(iloc)
329 bnussl(iloc) = numer / denom
331 bnussl(iloc) = 0.d0
344 do iloc = 1, nfbrps
345 bnussl(iloc) = -1.d0
419 ifac = lstfbr(iloc)
421 stress(1,iloc) = forbr(1,ifac)/srfbn
422 stress(2,iloc) = forbr(2,ifac)/srfbn
423 stress(3,iloc) = forbr(3,ifac)/srfbn
496 ifac = lstfbr(iloc)
501 effnrm(iloc) = ( forbr(1,ifac)*srfnor(1) &
576 ifac = lstfbr(iloc)
584 stress(1,iloc) = (forbr(1,ifac) - fornor*srfnor(1)) / srfbn
585 stress(2,iloc) = (forbr(2,ifac) - fornor*srfnor(2)) / srfbn
586 stress(3,iloc) = (forbr(3,ifac) - fornor*srfnor(3)) / srfbn