Lines Matching refs:tmp2
55 real*8 tmp1(npro), tmp2(npro), tmp3(npro), local
104 tmp2 = rmu * ( g3yi(:,3) + g2yi(:,4) )
130 rGNa(:,2,3) = tmp2
132 rGNa(:,3,2) = tmp2
144 rGNa(:,2,3) = tmp2 - u3(:)*u2(:)*rho(:)
146 rGNa(:,3,2) = tmp2 - u3(:)*u2(:)*rho(:)
162 tmp2 = tauM * rLui(:,2)
168 rGNa(:,2,1) = rGNa(:,2,1) + tmp2 * u1
169 rGNa(:,2,2) = rGNa(:,2,2) + tmp2 * u2
170 rGNa(:,2,3) = rGNa(:,2,3) + tmp2 * u3
181 rGNa(:,1,2) = rGNa(:,1,2) + tmp2 * u1
184 rGNa(:,2,2) = rGNa(:,2,2) + tmp2 * u2
187 rGNa(:,3,2) = rGNa(:,3,2) + tmp2 * u3
196 tmp2 = tauBar
208 rGNa(:,2,1) = rGNa(:,2,1) + tmp2 * rLui(:,1)
209 rGNa(:,2,2) = rGNa(:,2,2) + tmp2 * rLui(:,2)
210 rGNa(:,2,3) = rGNa(:,2,3) + tmp2 * rLui(:,3)