Lines Matching refs:tmp3
55 real*8 tmp1(npro), tmp2(npro), tmp3(npro), local
105 tmp3 = rmu * ( g1yi(:,4) + g3yi(:,2) )
127 rGNa(:,1,3) = tmp3
131 rGNa(:,3,1) = tmp3
141 rGNa(:,1,3) = tmp3 - u1(:)*u3(:)*rho(:)
145 rGNa(:,3,1) = tmp3 - u1(:)*u3(:)*rho(:)
163 tmp3 = tauM * rLui(:,3)
171 rGNa(:,3,1) = rGNa(:,3,1) + tmp3 * u1
172 rGNa(:,3,2) = rGNa(:,3,2) + tmp3 * u2
173 rGNa(:,3,3) = rGNa(:,3,3) + tmp3 * u3
182 rGNa(:,1,3) = rGNa(:,1,3) + tmp3 * u1
185 rGNa(:,2,3) = rGNa(:,2,3) + tmp3 * u2
188 rGNa(:,3,3) = rGNa(:,3,3) + tmp3 * u3
200 tmp3 = tauBar
211 rGNa(:,3,1) = rGNa(:,3,1) + tmp3 * rLui(:,1)
212 rGNa(:,3,2) = rGNa(:,3,2) + tmp3 * rLui(:,2)
213 rGNa(:,3,3) = rGNa(:,3,3) + tmp3 * rLui(:,3)