arsmnst - Moving shock relations given T2/T1

SUBROUTINE AR18AD(G,T,RESULT,IERR)
  DOUBLE PRECISION G, T, RESULT(4)
  INTEGER IERR

Compute the moving normal shock wave relations given the temperature ratio $T2/T1$ .

Performance
Fixed

Arguments

G - REAL: ENTRY: Specific heat constant $γ$ .
T - REAL: ENTRY: Temperature ratio $T /T > (γ2+1)/(γ+ 1)2 2 1$ .
RESULT - ARRAY OF REAL: EXIT: Array with result properties as described in 16.
IERR - INTEGER: EXIT: (optional) Return status code.

Status codes