arseft - Expansion fan properties given T2/T1 and either M1 or M2

SUBROUTINE AR14AD(G,T,M,IS_M2,RESULT,IERR)
  DOUBLE PRECISION G, T, M, RESULT(5)
  LOGICAL IS_M2
  INTEGER IERR

Compute the expansion fan properties given $T2/T1$ and either $M1$ or $M2$ .

Performance
Fixed

Arguments

G - REAL: ENTRY: Specific heat constant $γ$ .
T - REAL: ENTRY: Temperature ratio $T /T 2 1$ .
M - REAL: ENTRY: Either $M ≥1 1$ or $M >0 2$ depending on whether is_m2 is false or true, respectivly.
IS_M2 - BOOLEAN: ENTRY: Whether the given m refers to $M 1$ or $M 2$ .
RESULT - ARRAY OF REAL: EXIT: Array with result properties as described in 12.
IERR - INTEGER: EXIT: (optional) Return status code.

Status codes