arsefd - Expansion fan properties given ρ2/ρ1 and either M1 or M2

SUBROUTINE AR14AC(G,D,M,IS_M2,RESULT,IERR)
  DOUBLE PRECISION G, D, M, RESULT(5)
  LOGICAL IS_M2
  INTEGER IERR

Compute the expansion fan properties given $ρ2/ρ1$ and either $M1$ or $M2$ .

Performance
Fixed

Arguments

G - REAL: ENTRY: Specific heat constant $γ$ .
D - REAL: ENTRY: Density ratio $ρ /ρ 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