arfrap0 - Rayleigh relations given p02/p01

SUBROUTINE AR07AF(G,P0,IS_SUB,RESULT,IERR)
  DOUBLE PRECISION G, P0, RESULT(8)
  LOGICAL IS_SUB
  INTEGER IERR

Compute the rayleigh relations given the stagnation pressure ratio, $p02/p01$ .

Performance
Iterative

Arguments

G - REAL: ENTRY: Specific heat constant $γ$ .
P0 - REAL: ENTRY: Stagnation pressure ratio $p /p > γ2-1- 02 01 γ2$ .
IS_SUB - BOOLEAN: Whether $M$ corresponding to the given $p /p 02 01$ is assumed to be sub- or super-sonic.
RESULT - ARRAY OF REAL: EXIT: Array with result properties as described in 5.
IERR - INTEGER: EXIT: (optional) Return status code.

Status codes