TEXT(macro used by cases 908, 909
    ** to set constants and store variables
    ** for stored enthalpy
STORE(TMP1,MACH,PTOT,VABS)
REAL(RHOIN,PIN,TIN,HIN,UIN,VIN,CP,GASCON)
UIN=2; VIN=UIN/4; PIN=1; TIN=1; CP=1
GASCON=CP*(1.4-1.0)/1.4
HIN=TIN+0.5*(UIN*UIN + VIN*VIN)
RHOIN=PIN/(GASCON*TIN)
TMP1=CONSTAGH; TMP1A=HIN; CP1=CP
RHO1=IDEALGAS; RHO1B=1/GASCON; PRESS0=PIN; RHO1A=0.0
FIINIT(RHO1)=RHOIN