L(901)
TEXT(De Laval Nozzel - Hst          +X  
TITLE
   This is Library case 234, with solved static enthalpy
   using the Ideal gas Law, in the +X direction, with
   no corrections.
HIN=CP*TIN
SOLVE(H1); TERMS(H1,P,P,N,P,P,P)
TMP1=LINH; TMP1A=0.0; CP1=CP
FIINIT(H1)=HIN
COVAL(INLET,H1,ONLYMS,HIN)
LSWEEP=1000
RELAX(H1,FALSDT,1.0E+04)