Lines Matching refs:rLui
2 & u3, dxidx, rLui, argument
33 & rLui(npro,nsd),
299 tauBar = rLui(:,1) * ( gijd(:,1) * rLui(:,1)
300 & + gijd(:,4) * rLui(:,2)
301 & + gijd(:,6) * rLui(:,3) )
302 & + rLui(:,2) * ( gijd(:,4) * rLui(:,1)
303 & + gijd(:,2) * rLui(:,2)
304 & + gijd(:,5) * rLui(:,3) )
305 & + rLui(:,3) * ( gijd(:,6) * rLui(:,1)
306 & + gijd(:,5) * rLui(:,2)
307 & + gijd(:,3) * rLui(:,3) )
315 uBar(:,1) = u1 - tauM * rLui(:,1)*rhoinv
316 uBar(:,2) = u2 - tauM * rLui(:,2)*rhoinv
317 uBar(:,3) = u3 - tauM * rLui(:,3)*rhoinv
330 & rLui, rmu, uBar ) argument
335 & dxidx(npro,nsd,nsd), rLui(npro,nsd), local
386 uBar(:,1) = ui(:,1) - tauM * rLui(:,1)
387 uBar(:,2) = ui(:,2) - tauM * rLui(:,2)
388 uBar(:,3) = ui(:,3) - tauM * rLui(:,3)