L(242)
L($907)
TEXT(Supersonic Flow In Duct - Htot  YX 
TITLE
   This is Library case 242, with stored total enthalpy
   using the Ideal gas Law, in the YX plane, with
   corrections to momentum
LSWEEP=500
FIINIT(U1)=UIN
VALUE(IN,P1,RHOIN*UIN)
VALUE(IN,U1,UIN); VALUE(IN,V1,VIN)
RELAX(P1,LINRLX,0.7)
RELAX(U1,FALSDT,XULAST/NX/UIN/1)
RELAX(V1,FALSDT,XULAST/NX/UIN/1)
UCONV=T; NAMGRD=CONV
TSTSWP=-1