Lines Matching refs:rNa
56 & tmp(npro), rGNa(npro,nsd,nsd), rNa(npro,nsd), local
63 rNa = zero
73 rNa(:,1) = aci(:,1) * tmps
75 rNa(:,2) = aci(:,2) * tmps
77 rNa(:,3) = aci(:,3) * tmps
93 rNa(:,1) = rNa(:,1) + (omega(2)-omega(3)) * tauM * rLui(:,1)
94 rNa(:,2) = rNa(:,2) + (omega(3)-omega(1)) * tauM * rLui(:,2)
95 rNa(:,3) = rNa(:,3) + (omega(1)-omega(2)) * tauM * rLui(:,3)
112 rNa(:,1) = rNa(:,1)
116 rNa(:,2) = rNa(:,2)
120 rNa(:,3) = rNa(:,3)
219 rNa(:,1) = rNa(:,1) * rho
220 rNa(:,2) = rNa(:,2) * rho
221 rNa(:,3) = rNa(:,3) * rho
239 & * ( shpfun(:,aa) * rNa(:,1)
244 & * ( shpfun(:,aa) * rNa(:,2)
249 & * ( shpfun(:,aa) * rNa(:,3)
287 real*8 rGNa(npro,nsd), rNa(npro), rcp(npro), tmp(npro) local
293 rNa = zero
302 rNa = rcp*(tmps*Sdot + uMod(:,1) * gradS(:,1)
335 & * ( shpfun(:,aa) * rNa(:)