arfrat - Rayleigh relations given T/T*

SUBROUTINE AR07AD(G,T,TMAX,RESULT,IERR)
  DOUBLE PRECISION G, T, RESULT(8)
  LOGICAL TMAX
  INTEGER IERR

Compute the rayleigh relations given the temperature ratio, $T/T*$ .

Performance
Fixed

Arguments

G - REAL: ENTRY: Specific heat constant $γ$ .
T - REAL: ENTRY: Temperature ratio $0 <T/T*$ .
TMAX - BOOLEAN: Whether the static temperature ratio supplied is for a low speed false or a high speed true.
RESULT - ARRAY OF REAL: EXIT: Array with result properties as described in 5.
IERR - INTEGER: EXIT: (optional) Return status code.

Status codes