TEXT(macro used by cases 901-906
   **to set constants and store total enthalpy
BOOLEAN(SOLX,SOLY,SOLZ,SOLH,NEGA)
SOLX=T; SOLY=F; SOLZ=F; SOLH=T; NEGA=F
REAL(TIN,HIN,CP)
TIN=T0*TINDT0
CP=GASCON*POWER
HIN=CP*T0
RHO1B=1/GASCON; RHO1A=0.0
RHOIN=PIN/(TIN*GASCON)
STORE(TMP1)
RHO1=IDEALGAS;DRH1DP=GRND5
TMP1=CONSTAGH; TMP1A=HIN; CP1=CP