arffaf - Fanno relations given (4fL)/D

SUBROUTINE AR06AG(G,L,IS_SUB,RESULT,IERR)
  DOUBLE PRECISION G, L, RESULT(8)
  LOGICAL IS_SUB
  INTEGER IERR

Compute the fanno relations given the fanno line, $(4fL)/D$ .

Performance
Iterative

Arguments

G - REAL: ENTRY: Specific heat constant $γ$ .
L - REAL: ENTRY: Fanno line $0≤ (4f L)/D ≤((γ +1)log((γ+1)/(γ-1))-2)/(2γ)$ .
IS_SUB - BOOLEAN: ENTRY: Whether $M$ corresponding to the given $(4fL)/D$ 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