arfqisp - DeLaval isentropic flow relations given p/p1

SUBROUTINE AR09AB(G,P,RESULT,IERR)
  DOUBLE PRECISION G, P, RESULT(5)
  INTEGER IERR

Compute the DeLaval nozzle isentropic relations given the pressure ratio $p/p1$ .

Performance
Fixed

Arguments

G - REAL: ENTRY: Specific heat constant $γ$ .
P - REAL: ENTRY: Pressure ratio $0< p/p < 1 1$ .
RESULT - ARRAY OF REAL: EXIT: Array with result properties as described in 7.
IERR - INTEGER: EXIT: (optional) Return status code.

Status codes