arsmnvup - Dynamic moving shock relations given Up

SUBROUTINE AR19AC(G,A0,UP,RESULT,IERR)
  DOUBLE PRECISION G, A0, UP, RESULT(3)
  INTEGER IERR

Compute the dynamic moving normal shock wave relations given the mass-motion velocity $Up$ 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 $a > 0 0$ .
UP - REAL: ENTRY: Max-motion velocity $U >-(2⎷2a √︁ γ(γ2+2γ--1))/(γ +1) p 0$ .
RESULT - ARRAY OF REAL: EXIT: Array with result properties as described in 17.
IERR - INTEGER: EXIT: (optional) Return status code.

Status codes