arfrads - Rayleigh relations given (s-s*)/cp

SUBROUTINE AR07AH(G,DS,IS_SUB,RESULT,IERR)
  DOUBLE PRECISION G, DS, RESULT(8)
  LOGICAL IS_SUB
  INTEGER IERR

Compute the rayleigh relations given the fanno line, $(s-s*)/cp$ .

Performance
Iterative

Arguments

G - REAL: ENTRY: Specific heat constant $γ$ .
DS - REAL: ENTRY: Change in entropy $-∞ < (s -s*)/c < ∞ p$ .
IS_SUB - BOOLEAN: Whether $M$ corresponding to the given $(s-s *)/c p$ 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