declarations
array(pos,real,21,3)
array(size,real,21,3)
array(nam,char,21)
real(doorhite,doorwide,parthite,partthck,suppwide,suppsize,supphite)
real(prt1wide,prt1zpos,prt2wide,prt3zpos,suppypos,suppxpos,doorzpos)
real(roomhigh,roomwide,roomlong)
real(fireypos,firezpos,firesize)

  settings
roomhigh=2.895600E+00
roomwide=6.400800E+00
roomlong=8.534400E+00

doorhigh=2.438400E+00   
doorwide=9.144000E-01
doorzpos=7.924800E+00 

prt1wide=3.048000E+00
prt2wide=2.438400E+00
parthigh=1.828800E+00
partthck=1.524000E-01 
prt1zpos=4.267200E+00
prt3zpos=3.352800E+00
suppypos=2.743200E+00
suppxpos=1.828800E+00
suppwide=9.144000E-01 
supphigh=3.048000E-01

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

 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    !                                !
     ------------------------------------------------------------          
               
               
  filling the arrays             
nam(1)   =wall-l1                 
pos(1,1) =0.0                     
pos(1,2) =0.0                     
pos(1,3) =0.0                     
size(1,1)=roomhigh                  
size(1,2)=suppypos                
size(1,3)=0.0                     
                                  
nam(2)   =wall-l2                 
pos(2,1) =0.000000E+00            
pos(2,2) =suppypos+suppwide     
pos(2,3) =0.000000E+00            
size(2,1)=roomhigh
size(2,2)=roomwide-suppwide-suppypos
size(2,3)=0.000000E+00            
                                  
nam(3)   = WALL-L3                
pos(3,1) = 0.000000E+00           
pos(3,2) =suppypos                
pos(3,3) =0.000000E+00            
size(3,1)=suppxpos                
size(3,2)=suppwide                
size(3,3)=0.000000E+00            
                                  
nam(4)   =WALL-L4                 
pos(4,1) =suppxpos+supphigh       
pos(4,2) =suppypos                
pos(4,3) =0.000000E+00            
size(4,1)=roomhigh-suppxpos-supphigh            
size(4,2)=suppwide
size(4,3)=0.000000E+00            
                                  
nam(5)   =SUPPLY
pos(5,1) =suppxpos                                           
pos(5,2) =suppypos                                          
pos(5,3) =0.000000E+00
size(5,1)=supphigh
size(5,2)=suppwide
size(5,3)=0.000000E+00

nam(6)   =RETURN
pos(6,1) =suppxpos                                           
pos(6,2) =suppypos                                          
pos(6,3) =roomlong
size(6,1)=supphigh    
size(6,2)=suppwide    
size(6,3)=0.000000E+00
  
nam(7)   =WALL-H3                                 
pos(7,1) =suppxpos+supphigh                                           
pos(7,2) =suppypos                                         
pos(7,3) =roomlong
size(7,1)=roomhigh-suppxpos-supphigh       
size(7,2)=suppwide       
size(7,3)=0.000000E+00   

nam(8)   =WALL-H4
pos(8,1) =0.000000E+00       
pos(8,2) =suppypos                                                   
pos(8,3) =roomlong          
size(8,1)=suppxpos
size(8,2)=suppwide                
size(8,3)=0.000000E+00            
                                  
nam(9)   =WALL-H1                                 
pos(9,1) =0.0                                                 
pos(9,2) =0.0                                                 
pos(9,3) =roomlong 
size(9,1)=roomhigh   
size(9,2)=suppypos 
size(9,3)=0.0      
          
nam(10)   =WALL-H2                                 
pos(10,1) =0.000000E+00                                                      
pos(10,2) =suppypos+suppwide                                                 
pos(10,3) =roomlong
size(10,1)=roomhigh                  
size(10,2)=roomwide-suppwide-suppypos
size(10,3)=0.000000E+00            

nam(11)   =WALL-S1                                 
pos(11,1) =0.000000E+00                                            
pos(11,2) =0.000000E+00                                          
pos(11,3) =0.000000E+00
size(11,1)=roomhigh
size(11,2)=0.000000E+00
size(11,3)=roomlong

nam(12)   =WALL-N1                                 
pos(12,1) =0.000000E+00                                            
pos(12,2) =roomwide                                         
pos(12,3) =0.000000E+00
size(12,1)=roomhigh
size(12,2)=0.000000E+00
size(12,3)=doorzpos-doorwide

nam(13)   =WALL-N2                                 
pos(13,1) =0.000000E+00                                            
pos(13,2) =roomwide                                        
pos(13,3) =doorzpos
size(13,1)=roomhigh
size(13,2)=0.000000E+00
size(13,3)=roomlong-doorzpos

nam(14)   =OPEN                                
pos(14,1) =0.0                                         
pos(14,2) =roomwide                                       
pos(14,3) =doorzpos-doorwide
size(14,1)=doorhigh
size(14,2)=0.000000E+00
size(14,3)=doorwide

nam(15)   =WALL-N3                                 
pos(15,1) =doorhigh                                                
pos(15,2) =roomwide                                               
pos(15,3) =doorzpos-doorwide
size(15,1)=roomhigh-doorhigh
size(15,2)=0.000000E+00
size(15,3)=doorwide    
                        
nam(16)   =DOOR                                    
pos(16,1) =0.000000E+00                                            
pos(16,2) =roomwide-doorwide                                           
pos(16,3) =doorzpos
size(16,1)=doorhigh    
size(16,2)=doorwide    
size(16,3)=0.000000E+00

nam(17)   =PART-1                                  
pos(17,1) =0.000000E+00                                            
pos(17,2) =0.000000E+00                                           
pos(17,3) =prt1zpos
size(17,1)=parthigh  
size(17,2)=prt1wide    
size(17,3)=partthck    
                        
nam(18)   =PART-2                                  
pos(18,1) =0.000000E+00                                           
pos(18,2) =prt1wide                                      
pos(18,3) =0.000000E+00
size(18,1)=parthigh    
size(18,2)=partthck    
size(18,3)=prt2wide    
                        
nam(19)   =PART-3                                  
pos(19,1) =0.000000E+00                                          
pos(19,2) =prt1wide                                               
pos(19,3) =prt3zpos
size(19,1)=parthigh    
size(19,2)=partthck    
size(19,3)=prt2wide    
                        
nam(20)   =FIRE        
pos(20,1) =0.000000E+00                                     
pos(20,2) =fireypos
pos(20,3) =firezpos
size(20,1)=firesize
size(20,2)=firesize
size(20,3)=firesize
                        
nam(21)   =ROOF        
pos(21,1) =roomhigh                                           
pos(21,2) =0.000000E+00
pos(21,3) =0.000000E+00
size(21,1)=0.000000E+00
size(21,2)=roomwide    
size(21,3)=roomlong    
                        




  
> OBJ,    NAME,        :NAM(1):
> OBJ,    POSITION,    :pos(1,1):,:pos(1,2):,:pos(1,3):
> OBJ,    SIZE,        :size(1,1):,:size(1,2): ,:size(1,3): 
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        :nam(2):
> OBJ,    POSITION,    :pos(2,1):,:pos(2,2):,:pos(2,3):    
> OBJ,    SIZE,        :size(2,1):,:size(2,2):,:size(2,3):
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        :nam(3):
> OBJ,    POSITION,    :pos(3,1):,:pos(3,2):,:pos(3,3):    
> OBJ,    SIZE,        :size(3,1):,:size(3,2):,:size(3,3):
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        :nam(4):                         
> OBJ,    POSITION,    :pos(4,1):,:pos(4,2):,:pos(4,3):    
> OBJ,    SIZE,        :size(4,1):,:size(4,2):,:size(4,3):
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        :nam(5):                         
> OBJ,    POSITION,    :pos(5,1):,:pos(5,2):,:pos(5,3):    
> OBJ,    SIZE,        :size(5,1):,:size(5,2):,:size(5,3):
> OBJ,    GEOMETRY,    cube3
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        INLET
> OBJ,    PRESSURE,            0.000000E+00
> OBJ,    VOLUFLOW,            4.205200E-01
> OBJ,    TEMPERATURE,         1.500000E+01
> OBJ,    TURB-INTENS,         5.000000E+00
 
> OBJ,    NAME,        :nam(6):                         
> OBJ,    POSITION,    :pos(6,1):,:pos(6,2):,:pos(6,3):    
> OBJ,    SIZE,        :size(6,1):,:size(6,2):,:size(6,3):
> OBJ,    GEOMETRY,    cube3
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        INLET
> OBJ,    PRESSURE,            0.000000E+00
> OBJ,    VOLUFLOW,           -3.364200E-01
> OBJ,    TEMPERATURE,         0.000000E+00
> OBJ,    TURB-INTENS,         5.000000E+00
 
> OBJ,    NAME,        :nam(7):                         
> OBJ,    POSITION,    :pos(7,1):,:pos(7,2):,:pos(7,3):    
> OBJ,    SIZE,        :size(7,1):,:size(7,2):,:size(7,3):
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        :nam(8):                         
> OBJ,    POSITION,    :pos(8,1):,:pos(8,2):,:pos(8,3):    
> OBJ,    SIZE,        :size(8,1):,:size(8,2):,:size(8,3):
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        :nam(9):                         
> OBJ,    POSITION,    :pos(9,1):,:pos(9,2):,:pos(9,3):    
> OBJ,    SIZE,        :size(9,1):,:size(9,2):,:size(9,3):
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        :nam(10):                         
> OBJ,    POSITION,    :pos(10,1):,:pos(10,2):,:pos(10,3):    
> OBJ,    SIZE,        :size(10,1):,:size(10,2):,:size(10,3):
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        :nam(11):                         
> OBJ,    POSITION,    :pos(11,1):,:pos(11,2):,:pos(11,3):    
> OBJ,    SIZE,        :size(11,1):,:size(11,2):,:size(11,3):
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        :nam(12):                         
> OBJ,    POSITION,    :pos(12,1):,:pos(12,2):,:pos(12,3):    
> OBJ,    SIZE,        :size(12,1):,:size(12,2):,:size(12,3):
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        :nam(13):                         
> OBJ,    POSITION,    :pos(13,1):,:pos(13,2):,:pos(13,3):    
> OBJ,    SIZE,        :size(13,1):,:size(13,2):,:size(13,3):
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        :nam(14):                         
> OBJ,    POSITION,    :pos(14,1):,:pos(14,2):,:pos(14,3):    
> OBJ,    SIZE,        :size(14,1):,:size(14,2):,:size(14,3):
> OBJ,    GEOMETRY,    cube12
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        OPENING
> OBJ,    PRESSURE,    0.000000E+00
> OBJ,    TEMPERATURE, 1.500000E+01
> OBJ,    COEFFICIENT, 1.000000E+03        
> OBJ,    TURBULENCE,    SAME        , SAME
 
> OBJ,    NAME,        :nam(15):                         
> OBJ,    POSITION,    :pos(15,1):,:pos(15,2):,:pos(15,3):    
> OBJ,    SIZE,        :size(15,1):,:size(15,2):,:size(15,3):
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        :nam(16):                         
> OBJ,    POSITION,    :pos(16,1):,:pos(16,2):,:pos(16,3):    
> OBJ,    SIZE,        :size(16,1):,:size(6,2):,:size(16,3):
> OBJ,    GEOMETRY,    cube
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
> OBJ,    POROSITY,            0.000000E+00
> OBJ,    SIDE,        BOTH
 
> OBJ,    NAME,        :nam(17):                         
> OBJ,    POSITION,    :pos(17,1):,:pos(17,2):,:pos(17,3):    
> OBJ,    SIZE,        :size(17,1):,:size(17,2):,:size(17,3):
> OBJ,    GEOMETRY,    cube14
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,    198,Solid with smooth-wall friction
 
> OBJ,    NAME,        :nam(18):                         
> OBJ,    POSITION,    :pos(18,1):,:pos(18,2):,:pos(18,3):    
> OBJ,    SIZE,        :size(18,1):,:size(18,2):,:size(18,3):
> OBJ,    GEOMETRY,    cube14
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,    198,Solid with smooth-wall friction
 
> OBJ,    NAME,        :nam(19):                         
> OBJ,    POSITION,    :pos(19,1):,:pos(19,2):,:pos(19,3):    
> OBJ,    SIZE,        :size(19,1):,:size(19,2):,:size(19,3):
> OBJ,    GEOMETRY,    cube14
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,    198,Solid with smooth-wall friction
 
> OBJ,    NAME,        :nam(20):                         
> OBJ,    POSITION,    :pos(20,1):,:pos(20,2):,:pos(20,3):    
> OBJ,    SIZE,        :size(20,1):,:size(20,2):,:size(20,3):
> 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, 7.000000E+04
> OBJ,    SCAL_FIXF,           0.000000E+00
 
> OBJ,    NAME,        :nam(21):                         
> OBJ,    POSITION,    :pos(21,1):,:pos(21,2):,:pos(21,3):    
> OBJ,    SIZE,        :size(21,1):,:size(21,2):,:size(21,3):
> OBJ,    GEOMETRY,    cube11
> OBJ,    ROTATION24,        1
> OBJ,    VISIBLE,     NO
> OBJ,    TYPE,        PLATE