arscoms - Conical flow given M and θ

SUBROUTINE AR17AB(G,M,S,RESULT,IERR)
  DOUBLE PRECISION G, M, S, RESULT(3)
  INTEGER IERR

Solve the conical flow given a mach number $M$ and deflection surface angle $θ$ .

Performance
Iterative

Arguments

G - REAL: ENTRY: Specific heat constant $γ$ .
M - REAL: ENTRY: Mach number $M ≥1$ .
S - REAL: ENTRY: Deflection surface angle $0< θ< 90$ .
RESULT - ARRAY OF REAL: EXIT: Array with result properties as described in 15.
IERR - INTEGER: EXIT: (optional) Return status code.

Status codes