use of 3D store for emissivity, 
  over-writing what may be supplied by SPEDAT
STORE(EMIS,SCAT)
FIINIT(EMIS)=EMISS;FIINIT(SCAT)=SCATT
IF(IDIR.EQ.1) THEN
 PATCH( HOTINI,INIVAL, 1, 1,1,NY,1,NZ,1,LSTEP)
 PATCH(COLDINI,INIVAL,NX,NX,1,NY,1,NZ,1,LSTEP)
  line-printer output
 PATCH(PROFILES,PROFIL,1,NX,1,1,1,1,1,1)
 COVAL(PROFILES,QRX,0.0,0.0) 
ENDIF 
IF(IDIR.EQ.2) THEN
 PATCH( HOTINI,INIVAL, 1, NX,1,1,1,NZ,1,LSTEP)
 PATCH(COLDINI,INIVAL,1,NX,NY,NY,1,NZ,1,LSTEP)
  line-printer output
 PATCH(PROFILES,PROFIL,1,1,1,NY,1,1,1,1)
 COVAL(PROFILES,QRY,0.0,0.0) 
ENDIF 
IF(IDIR.EQ.3) THEN
 PATCH( HOTINI,INIVAL, 1, NX,1,NY,1,1,1,LSTEP)
 PATCH(COLDINI,INIVAL,1,NX,1,NY,NZ,NZ,1,LSTEP)
  line-printer output
 PATCH(PROFILES,PROFIL,1,1,1,1,1,NZ,1,1)
 COVAL(PROFILES,QRZ,0.0,0.0) 
ENDIF

  setting absorptivity/emissivity of solids 
COVAL(HOTINI,EMIS,FIXVAL,EMISH)
COVAL(COLDINI,EMIS,FIXVAL,EMISC)

COVAL(PROFILES,T3,0.0,0.0)
IF(LIBREF.NE.201.AND.LIBREF.NE.204) THEN
  COVAL(PROFILES,TEM1,0.0,0.0) 
ENDIF