arfrap - Rayleigh relations given p/p*

SUBROUTINE AR07AB(G,P,RESULT,IERR)
  DOUBLE PRECISION G, P, RESULT(8)
  INTEGER IERR

Compute the rayleigh relations given the pressure ratio, $p/p *$ .

Performance
Fixed

Arguments

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

Status codes