arsmnvp - Dynamic moving shock relations given p2/p1

SUBROUTINE AR19AA(G,A0,P,RESULT,IERR)
  DOUBLE PRECISION G, A0, P, RESULT(3)
  INTEGER IERR

Compute the dynamic moving normal shock wave relations given the the pressure ratio $p2/p1$ and the speed of sound $a0$ of the medium.

Performance
Fixed

Arguments

G - REAL: ENTRY: Specific heat constant $γ$ .
A0 - REAL: ENTRY: Speed of sound in the medium $a0> 0$ .
P - REAL: ENTRY: Pressure ratio $p2/p1 >(γ-1)/(γ +1)$ .
RESULT - ARRAY OF REAL: EXIT: Array with result properties as described in 17.
IERR - INTEGER: EXIT: (optional) Return status code.

Status codes