declarations

real(roomhigh,roomwide,roomlong)
real(doorhigh,doorwide,prt1high,prt1thck,suppwide,suppsize,supphigh)
real(prt1wide,prt1zpos,prt2wide,prt3zpos,suppypos,suppxpos,doorzpos)
real(fireypos,firezpos,firesize)
real(tempsupp,fireflux)
real(xscale,yscale,zscale)
boolean(fourwall)
  Note that 'supp'  refers to the air-supply aperture,
             prt1 ,prt2 and prt3 to partitions,
             high, wide and long signify height (x direction), width
                 (y or z directions) aand length (z direction)
             xpos, ypos and zpos to the position coordinates    
                  
  settings
xscale=1.0
yscale=1.0
zscale=1.0  
roomhigh=2.895600E+00 * xscale
roomwide=6.400800E+00 * yscale
roomlong=8.534400E+00 * zscale

doorhigh=2.438400E+00 * xscale  
doorwide=9.144000E-01 * yscale
doorzpos=7.924800E+00 * zscale

prt1wide=3.048000E+00 * yscale
prt2wide=2.438400E+00 * zscale
prt1high=1.828800E+00 * xscale
prt1thck=1.524000E-01 * zscale
prt1zpos=4.267200E+00 * zscale
prt3zpos=3.352800E+00 * zscale
suppypos=2.743200E+00 * yscale
suppxpos=1.828800E+00 * xscale
suppwide=9.144000E-01 * yscale
supphigh=3.048000E-01 * xscale

fireypos=2.288400E+00 * yscale
firezpos=7.644000E-01 * zscale
firesize=3.000000E-01 * zscale

tempsupp=15.0
fireflux=7.0E4
fourwall=t
 
 GVIEW(P,8.630785E-01,-5.050615E-01,-2.881525E-03)
 GVIEW(UP,5.031418E-01,8.592720E-01,9.219494E-02)


> DOM,    SIZE,        roomhigh    , roomwide    , roomlong
> DOM,    MONIT,       4.999400E-01, 5.721000E-01, 4.777500E-01
> DOM,    SCALE,       1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    SNAPSIZE,    1.000000E-02
     
              representations of aspects of the geometry
     --------------------------------  -------------------------------- 
     !  ^          ! supp ! roomwide-! !  ^          ! supp ! roomwide-!
     ! roomhigh    ! wide !          ! ! roomhigh    ! wide !          !
     !        supp-!      !          ! !        supp-!      !          !
     !        ypos !      !          ! !        ypos !      !          !
     !             ! L4   !          ! !             ! H3   !          !
     !             !------!          ! !             !------!          !
     !    L1       !supply!  L2      ! !    H1       !return!  H2      !
     !             !------!          ! !             !------!          !
     !             !  ^   !          ! !             !  ^   !          !
     !             ! supp !          ! !             ! supp !          !
     !             ! xpos !          ! !             ! xpos !          !
     !             !      !          ! !             !      !          !
     !             ! L3   !          ! !             ! H4   !          !
     !-------------!------!----------! !-------------!------!----------!
               zpos=0                           zpos=roomlong
               
     -------------------------------------------------------------
     !            !             !                                !
     !            !    N3       !                                !
     !            !             !                                !
     !            !-------------!                                !
     !            !      ^      !                                !
     !            !  doorhigh   !                                !
     !  N2        !             !          N1                    !
     !            !- doorwide  -!                                !
     !            !             !                                !
     !            !  OPEN       !                                !
     !            !             !                                !
     !            !             !                                !
     !            !             !                                !
     !-roomlong   !-doorzpos    !                                !
     ------------------------------------------------------------          
               
if(fourwall)  then
> OBJ,    NAME,        wall-low
> OBJ,    POSITION,    0.0, 0.0, 0.0
> OBJ,    SIZE,        roomhigh, roomwide, 0.0 
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE

> OBJ,    NAME,        wall-high
> OBJ,    POSITION,    0.0, 0.0, roomlong
> OBJ,    SIZE,        roomhigh, roomwide, 0.0 
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE

> OBJ,    NAME,        wall-north
> OBJ,    POSITION,    0.0, roomwide, 0.0
> OBJ,    SIZE,        roomhigh, 0.0, roomlong 
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE

> OBJ,    NAME,        wall-south
> OBJ,    POSITION,    0.0, 0.0, 0.0
> OBJ,    SIZE,        roomhigh, 0.0, roomlong 
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE

else
   
> OBJ,    NAME,        wall-l1
> OBJ,    POSITION,    0.0, 0.0, 0.0
> OBJ,    SIZE,        roomhigh, suppypos, 0.0 
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        wall-l2
> OBJ,    POSITION,    0.0, suppypos+suppwide, 0.0     
> OBJ,    SIZE,        roomhigh, roomwide-suppwide-suppypos,0.0
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
   
> OBJ,    NAME,        WALL-L3 
> OBJ,    POSITION,    0.0, suppypos, 0.0    
> OBJ,    SIZE,        suppxpos, suppwide, 0.0
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
  
> OBJ,    NAME,        WALL-L4                         
> OBJ,    POSITION,    suppxpos+supphigh, suppypos, 0.0    
> OBJ,    SIZE,        roomhigh-suppxpos-supphigh,suppwide, 0.0
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
endif

> OBJ,    NAME,        SUPPLY                         
> OBJ,    POSITION,    suppxpos, suppypos, 0.0    
> OBJ,    SIZE,        supphigh, suppwide, 0.0
> OBJ,    GEOMETRY,    cube3
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        INLET
> OBJ,    PRESSURE,            0.000000E+00
> OBJ,    VOLUFLOW,            4.205200E-01
> OBJ,    TEMPERATURE,         tempsupp
> OBJ,    TURB-INTENS,         5.000000E+00

> OBJ,    NAME,        RETURN                       
> OBJ,    POSITION,    suppxpos, suppypos, roomlong    
> OBJ,    SIZE,        supphigh, suppwide, 0.0
> OBJ,    GEOMETRY,    cube3
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        INLET
> OBJ,    PRESSURE,            0.000000E+00
> OBJ,    VOLUFLOW,           -3.364200E-01
> OBJ,    TEMPERATURE,         tempsupp
> OBJ,    TURB-INTENS,         5.000000E+00
 
if(fourwall) then
> OBJ,    NAME,        WALL-H3                         
> OBJ,    POSITION,    suppxpos+supphigh, suppypos, roomlong    
> OBJ,    SIZE,        roomhigh-suppxpos-supphigh, suppwide, 0.0
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE     
                          
> OBJ,    NAME,        WALL-H4                         
> OBJ,    POSITION,    0.0, suppypos, roomlong    
> OBJ,    SIZE,       suppxpos, suppwide, 0.0 
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE

> OBJ,    NAME,        WALL-H1                         
> OBJ,    POSITION,    0.0, 0.0, roomlong   
> OBJ,    SIZE,        roomhigh,suppypos, 0.0
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
       
> OBJ,    NAME,        WALL-H2                         
> OBJ,    POSITION,    0.0, suppypos+suppwide, roomlong    
> OBJ,    SIZE,        roomhigh, roomwide-suppwide-suppypos, 0.0
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,         WALL-S1                       
> OBJ,    POSITION,     0.0, 0.0, 0.0    
> OBJ,    SIZE,        roomhigh, 0.0, roomlong
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE

> OBJ,    NAME,        WALL-N1                         
> OBJ,    POSITION,    0.0, roomwide,0.0    
> OBJ,    SIZE,        roomhigh, 0.0,doorzpos-doorwide
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        WALL-N2                         
> OBJ,    POSITION,    0.0, roomwide, doorzpos    
> OBJ,    SIZE,        roomhigh, 0.0, roomlong-doorzpos
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE

endif
 
> OBJ,    NAME,        OPEN                         
> OBJ,    POSITION,    0.0,roomwide, doorzpos-doorwide    
> OBJ,    SIZE,        doorhigh, 0.0, doorwide
> OBJ,    GEOMETRY,    cube12
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        OPENING
> OBJ,    PRESSURE,    0.000000E+00
> OBJ,    TEMPERATURE, tempsupp
> OBJ,    COEFFICIENT, 1.000000E+03        
> OBJ,    TURBULENCE,    SAME        , SAME

if(.not.fourwall) then
> OBJ,    NAME,        WALL-N3                        
> OBJ,    POSITION,    doorhigh, roomwide, doorzpos-doorwide     
> OBJ,    SIZE,        roomhigh-doorhigh, 0.0, doorwide
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
endif
 
> OBJ,    NAME,        DOOR                         
> OBJ,    POSITION,    0.0, roomwide-doorwide, doorzpos    
> OBJ,    SIZE,        doorhigh, doorwide, 0.0
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
> OBJ,    POROSITY,            0.000000E+00
> OBJ,    SIDE,        BOTH
                     
> OBJ,    NAME,        PART-1                         
> OBJ,    POSITION,    0.0, 0.0, prt1zpos    
> OBJ,    SIZE,        prt1high, prt1wide, prt1thck
> OBJ,    GEOMETRY,    cube14
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,    198,Solid with smooth-wall friction
                       
> OBJ,    NAME,        PART-2                         
> OBJ,    POSITION,    0.0, prt1wide, 0.0  
> OBJ,    SIZE,        prt1high, prt1thck, prt2wide 
> OBJ,    GEOMETRY,    cube14
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,    198,Solid with smooth-wall friction

> OBJ,    NAME,        PART-3                         
> OBJ,    POSITION,    0.0, prt1wide, prt3zpos    
> OBJ,    SIZE,        prt1high, prt1thck, prt2wide
> OBJ,    GEOMETRY,    cube14
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,    198,Solid with smooth-wall friction

> OBJ,    NAME,        FIRE                       
> OBJ,    POSITION,    0.0, fireypos, firezpos     
> OBJ,    SIZE,        firesize, firesize, firesize
> OBJ,    GEOMETRY,    fire
> OBJ,    ROTATION24,        9
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,    0,  Air at 20 deg C, 1 atm
> OBJ,    HEAT_FLUX,     0.000000E+00, fireflux
> OBJ,    SCAL_FIXF,           0.000000E+00
 
> OBJ,    NAME,        ROOF                         
> OBJ,    POSITION,    roomhigh, 0.0, 0.0    
> OBJ,    SIZE,        0.0, roomwide, roomlong 
> OBJ,    GEOMETRY,    cube11
> OBJ,    ROTATION24,        1
> OBJ,    VISIBLE,     NO
> OBJ,    TYPE,        PLATE