L(908)
L($900)
TEXT(Supersonic Flow In Duct - Hsta  YX 
TITLE
   This is Library case 242, with solved static enthalpy
   using the Ideal gas Law, in the YX plane, with
   corrections to momentum and enthalpy
HIN=CP*TIN
TMP1=LINH; TMP1A=0.0; CP=CP
FIINIT(H1)=HIN
COVAL(IN,H1,ONLYMS,HIN)
RELAX(H1,FALSDT,XULAST/NX/UIN/1)