TEXT(Always valid declarations and settings
  Note: The above line must be left exactly as it is, because it is
        used as the start of what is NOT to be written to Q1
  dbs 14.02.08 introduction of xprf etc
  dbs 16.03.13 condtn, ABP and ABT introduced for 089.htm
  dbs 03.05.14 RESIDS added as 065
NODEF=T
  Declarations
CHAR(ASK,ANS,CLS,PAUSE,UNIGRID,MUSES,PRLIMIT,PRFOCUS,PO)
PO=*\d_object\pilobj\
CHAR(FLUID_NAME,PAUSE,PAUS)
CHAR(SPELL,EXPRT,EQUALVEL,SOLIDMAT,FLUIDMAT,USE_PROPS,IMMERSOL,MFM)
CHAR(GENTRA,SOLVEL,SOLTEM,GRAVITY,SOLSTR,ASLP0,FLUID,CPVNAM,SPPNAM)
CHAR(SOLVETEM,COEFFS,RESIDS)
CHAR(NORTHWALL,SOUTHWALL,EASTWALL,WESTWALL,HIGHWALL,LOWWALL) ! walls
CHAR(NORTAP,SOUTAP,EASTAP,WESTAP,HIGHAP,LOWAP)            !apertures
CHAR(MAXMIN,MAXABS,ENDPAUSE,FIGURES,CONPROM,MINSWEEP)
CHAR(WINDINIT,WINDSET)
   SCM 29.05.13 remove unused CHAR(SIDE) as conflicts with 
                REAL(SIDE) which is used in BFC and TwoPhs libraries
   ! CHAR(NAM,SIDE) 
CHAR(NAM)
INTEGER(PHASE1,PHASE2);REAL(TCOND)
REAL(XPOS,YPOS,ZPOS,XSIZ,YSIZ,ZSIZ,POROS,XVEL,YVEL,ZVEL,MATNUM)
REAL(XPRF,YPRF,ZPRF,XPRL,YPRL,ZPRL)
REAL(MASFLO,VOLFLO) ! dbs 25.03.13 real(density) removed
  Other declarations below
  Settings
PHASE1=1;PHASE2=2  
ASK=Y; ANS=N; SOLVETEM=N;  PAUSE=$013 ;PAUS=$016
SPELL=$020;   CLS=$021;    EXPRT=$030
UNIGRID=$050; SOLTEM=$051; MAXMIN=$052; MAXABS=$053; ENDPAUSE=$054
FIGURES=$055; CONPROM =$056; MINSWEEP = $057; NORTHWALL = $058
SOUTHWALL = $059; EASTWALL = $060; WESTWALL = $061; HIGHWALL = $062
LOWWALL = $063; COEFFS = $064; RESIDS=$065
NORTAP=$065; SOUTAP=$066; EASTAP=$067; WESTAP=$068; HIGHAP=$069
LOWAP=$075
SOLIDMAT=$070; FLUIDMAT=$071; 
USE_PROPS=$072
SOLVEL=$073; GRAVITY=$074
IMMERSOL=$R001;MFM = $L004; GENTRA=$G001; SOLSTR=$S001
EQUALVEL=$W100; ASLP0=$P030
FLUID=FIINIT(PRPS)
MUSES = $082 ; PRLIMIT=$034; PRFOCUS=$035 
WINDINIT=$083;WINDSET=$084
INTEGER(NPHASE,NSPACE)
  ! dbs 16.12.08 cases 070 and 071 brought in
  The following settings correspond to the IMAT (i.e. PRPS) values.
  Note that only the first 6 characters of the names of the
  integers are significant
INTEGER(ALUMIN,COPPER,EPOXY,FIBREGL,STEEL,GLASS)
ALUMIN= 100;    COPPER=103; EPOXY=104; FIBREGL=105; STEEL=111
GLASS=  106
INTEGER(AIR20 , AIRISENT,   AIRIDEAL,   WATER20,    MERCURY, FREON)
INTEGER(3GASIDEAL, STM100, STMISENT, STMIDEAL)
AIR20 = 0;      AIRISENT=1; AIRIDEAL=2; 3GASIDEAL=30; STM100=23
STMISENT=24;  STMIDEAL=25
WATER20=67 ;MERCURY=66; FREON=64
CHAR(CONdtn) ! this and next 3 needed in 089 , dbs 13.03.13
CONdtn=T        ! condition for where property is set
CHAR(ABT,ABP)   ! absolute temperature and pressure for 089

ABT=(TEM1+TEMP0); ABP=(P1+PRESS0)          ! default setting
NODEF=F ! This should remain as last line to prevent possible error messages