Lines Matching refs:T
1 subroutine e3mtrx (rho, pres, T, argument
50 & T(npro), ei(npro),
89 A0(:,5,1) = drdp * (h + rk) - alfap * T ! e1p
239 s1 = one/(rho**2 * betaT * T)
240 cv = cp - (alfap**2 * T/rho/betaT)
243 A0DC(:,3) = rho/T
244 A0DC(:,4) = (-rho*alfap)**2 * s1 + (rho*cv/T**2)
249 fact1 = one/(rho*cv*T**2)
250 d = alfap*T/rho/betaT
253 e3bar = e2bar - cv * T
254 e4bar = e2bar - 2* cv * T
255 e5bar = e1bar**2 - 2*e1bar*d + 2*rk*cv*T + cp*T/rho/betaT
256 c1bar = u1**2 + cv * T
257 c2bar = u2**2 + cv * T
258 c3bar = u3**2 + cv * T
280 fact1 = 1/T
281 fact2 = fact1/T