Lines Matching refs:c
339 & betaT(npro), gamb(npro), c(npro),
351 c = sqrt( (gamma * Rgas) * T )
371 & gamb, c, u1,
381 call e3eig2 (u, c, a1,
411 c(:) = pt33 * (
425 Pe(:) = one / (c(:)*rlam(:,i))
459 c = (alphap+betaT)/(alphap-betaT)
461 c = one
464 B= -Pe*c + Ak
466 E=-0.066666667 * (Pe**3) * c +D
801 & betaT(npro), gamb(npro), c(npro),
813 c = sqrt( (gamma * Rgas) * T )
833 & gamb, c, u1,
843 call e3eig2 (u, c, a1,
877 c(:) = pt33 * (
891 Pe(:) = one / (c(:)*rlam(:,i))