arffap0 - Fanno relations given p01/p02

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

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

Performance
Iterative

Arguments

G - REAL: ENTRY: Specific heat constant $γ$ .
P0 - REAL: ENTRY: Stagnation pressure ratio $1 ≤p /p 02 01$ .
IS_SUB - BOOLEAN: ENTRY: 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 4.
IERR - INTEGER: EXIT: (optional) Return status code.

Status codes