arsnsd - Normal shock relations given ρ2/ρ1

SUBROUTINE AR10AD(G,D,RESULT,IERR)
  DOUBLE PRECISION G, D, RESULT(5)
  INTEGER IERR

Compute the normal shock relations given the density ratio $ρ2/ρ1$ .

Performance
Fixed

Arguments

G - REAL: ENTRY: Specific heat constant $γ$ .
D - REAL: ENTRY: Density ratio $1≤ ρ /ρ ≤(γ+ 1)/(γ-1) 2 1$ .
RESULT - ARRAY OF REAL: EXIT: Array with result properties as described in 8.
IERR - INTEGER: EXIT: (optional) Return status code.

Status codes