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
NODEF=T
  Declarations
CHAR(ASK,ANS,CLS,PAUSE,UNIGRID,MUSES,PRLIMIT,PRFOCUS)
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)
CHAR(NORTHWALL,SOUTHWALL,EASTWALL,WESTWALL,HIGHWALL,LOWWALL)
CHAR(MAXMIN,MAXABS,ENDPAUSE,FIGURES,CONPROM,MINSWEEP)
CHAR(WINDINIT,WINDSET)
INTEGER(PHASE1,PHASE2);REAL(TCOND)
  dbs 05.01.08 new declarations
char(nam,side)
real(xpos,ypos,zpos,xsiz,ysiz,zsiz,poros,xvel,yvel,zvel,matnum)
real(xprf,yprf,zprf,xprl,yprl,zprl)
real(masflo,volflo)  
  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; 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 (ie 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

NODEF=F ! This should remain as last line to prevent possible error messages