Lines Matching refs:g1yi
1 subroutine e3visc (g1yi, g2yi, g3yi, argument
42 dimension g1yi(npro,nflow), g2yi(npro,nflow),
278 rmi(:,2) = rlm2mu * g1yi(:,2)
282 rmi(:,3) = rmu * g1yi(:,3)
285 rmi(:,4) = rmu * g1yi(:,4)
288 rmi(:,5) = rlm2mu * u1 * g1yi(:,2) + rmu * u2 * g1yi(:,3)
289 & + rmu * u3 * g1yi(:,4)
292 & + con * g1yi(:,5)
303 rmi(:, 7) = rmu * g1yi(:,3)
306 rmi(:, 8) = rlm * g1yi(:,2)
313 rmi(:,10) = rlm * u2 * g1yi(:,2) + rmu * u1 * g1yi(:,3)
327 rmi(:,12) = rmu * g1yi(:,4)
333 rmi(:,14) = rlm * g1yi(:,2)
337 rmi(:,15) = rlm * u3 * g1yi(:,2) + rmu * u1 * g1yi(:,4)