Lines Matching refs:uMod
489 subroutine e3StabSclr (uMod, dxidx, tauT, diffus, srcR, giju, argument
495 real*8 rho(npro), uMod(npro,nsd), local
539 3 + uMod(:,1) * ( gijd(:,1) * uMod(:,1)
540 4 + gijd(:,4) * uMod(:,2)
541 5 + gijd(:,6) * uMod(:,3) )
542 6 + uMod(:,2) * ( gijd(:,4) * uMod(:,1)
543 7 + gijd(:,2) * uMod(:,2)
544 8 + gijd(:,5) * uMod(:,3) )
545 9 + uMod(:,3) * ( gijd(:,6) * uMod(:,1)
546 a + gijd(:,5) * uMod(:,2)
547 1 + gijd(:,3) * uMod(:,3) )