Lines Matching refs:tmp1
55 real*8 tmp1(npro), tmp2(npro), tmp3(npro), local
103 tmp1 = rmu * ( g2yi(:,2) + g1yi(:,3) )
126 rGNa(:,1,2) = tmp1
128 rGNa(:,2,1) = tmp1
140 rGNa(:,1,2) = tmp1 - u1(:)*u2(:)*rho(:)
142 rGNa(:,2,1) = tmp1 - u1(:)*u2(:)*rho(:)
161 tmp1 = tauM * rLui(:,1)
165 rGNa(:,1,1) = rGNa(:,1,1) + tmp1 * u1
166 rGNa(:,1,2) = rGNa(:,1,2) + tmp1 * u2
167 rGNa(:,1,3) = rGNa(:,1,3) + tmp1 * u3
180 rGNa(:,1,1) = rGNa(:,1,1) + tmp1 * u1
183 rGNa(:,2,1) = rGNa(:,2,1) + tmp1 * u2
186 rGNa(:,3,1) = rGNa(:,3,1) + tmp1 * u3
192 tmp1 = tauBar
205 rGNa(:,1,1) = rGNa(:,1,1) + tmp1 * rLui(:,1)
206 rGNa(:,1,2) = rGNa(:,1,2) + tmp1 * rLui(:,2)
207 rGNa(:,1,3) = rGNa(:,1,3) + tmp1 * rLui(:,3)