Lines Matching refs:ui
329 subroutine e3uBar (rho, ui, dxidx, argument
334 real*8 rho(npro), ui(npro,nsd), local
364 3 + ( ui(:,1) * ( gijd(:,1) * ui(:,1)
365 4 + gijd(:,4) * ui(:,2)
366 5 + gijd(:,6) * ui(:,3) )
367 6 + ui(:,2) * ( gijd(:,4) * ui(:,1)
368 7 + gijd(:,2) * ui(:,2)
369 8 + gijd(:,5) * ui(:,3) )
370 9 + ui(:,3) * ( gijd(:,6) * ui(:,1)
371 a + gijd(:,5) * ui(:,2)
372 1 + gijd(:,3) * ui(:,3) ) ) )
386 uBar(:,1) = ui(:,1) - tauM * rLui(:,1)
387 uBar(:,2) = ui(:,2) - tauM * rLui(:,2)
388 uBar(:,3) = ui(:,3) - tauM * rLui(:,3)