arfqisa - DeLaval isentropic flow relations given A/A*

SUBROUTINE AR09AE(G,A,IS_SUB,RESULT,IERR)
  DOUBLE PRECISION G, A, RESULT(5)
  LOGICAL IS_SUB
  INTEGER IERR

Compute the DeLaval nozzle isentropic relations given the critical area ratio $A/A *$ .

Performance
Iterative

Arguments

G - REAL: ENTRY: Specific heat constant $γ$ .
A - REAL: ENTRY: Critical area ratio $A/A* >1$ .
IS_SUB - BOOLEAN: ENTRY: Whether the mach number correspdonding to $A/A *$ is assumed to be sub- or super- sonic.
RESULT - ARRAY OF REAL: EXIT: Array with result properties as described in 7.
IERR - INTEGER: EXIT: (optional) Return status code.

Status codes