TALK=T;RUN( 1, 1)
 
 ************************************************************
   Q1 created by VDI menu, Version 2010, Date 28/01/10
 CPVNAM=VDI;SPPNAM=FLAIR
 ************************************************************
  Echo DISPLAY / USE settings
  DISPLAY
   This Q1 tests the FLAIR Diffuser object in several 
   configurations. The grids are very coarse. Expected 
   values are provided for testing purposes.

  ENDDIS
 ************************************************************
 IRUNN = 1 ;LIBREF = 0
 ************************************************************
  Group 1. Run Title
 ************************************************************
  Echo save-block settings for Group  1
    save1begin
 array(casenm,char,7)
 integer(caseno); boolean(done)
 label lab1
 casenm(1)='Round_Diffuser_in_XY_plane'
 casenm(2)='Vortex_Diffuser_in_XY_plane'
 casenm(3)='Square_Diffuser_in_XY_plane'
 casenm(4)='4-way_Directional_Diffuser_in_X-Y_plane'
 casenm(5)='2_Grille_Diffusers_in_X_plane'
 casenm(6)='Displacement_Diffuser'
 casenm(7)='Jetfan_in_XY_plane'
 if(.not.done) then
+  mesg(individual features of the seven cases are as follows:
+  do ii=1,7
+    mesg(:ii: :casenm(ii):
+  enddo
+  mesgm(select required case (1)
+  readvdu(caseno,int,caseno)
+  if(caseno.eq.0) then
+    caseno=1
+  endif
+  if(caseno.gt.0.and.caseno.lt.8) then
+    mesgm(Selected case is
+    mesg(:casenm(caseno):
+    done=t
+  else
+    mesg(Invalid input.
+    goto lab1
+  endif
 endif
 text(:caseno: :casenm(caseno):
    save1end
 ************************************************************
  Group 2. Transience
 STEADY = T
 ************************************************************
  Groups 3, 4, 5  Grid Information
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
 RSET(M,18,18,9)
 ************************************************************
  Group 6. Body-Fitted coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
    * Non-default variable names
 NAME(145)=PRPS ;NAME(146)=TEM1
 NAME(147)=EPKE ;NAME(148)=DEN1
 NAME(149)=EL1 ;NAME(150)=ENUT
    * Solved variables list
 SOLVE(P1,U1,V1,W1,TEM1)
    * Stored variables list
 STORE(ENUT,EL1,DEN1,EPKE,PRPS)
    * Additional solver options
 SOLUTN(P1,Y,Y,Y,N,N,Y)
 SOLUTN(TEM1,Y,Y,Y,N,N,Y)
 TURMOD(KECHEN)
 
 ************************************************************
  Group 8. Terms & Devices
 NEWRH1 = T
 NEWENL = T
 ************************************************************
  Group 9. Properties
 PRESS0 =1.0E+05 ;TEMP0 =273.
    * Domain material index is   2 signifying:
    * Air using Ideal Gas Law, STP
 SETPRPS(1, 2)
 DRH1DP = GRND5
 DVO1DT =3.33E-03
 PRNDTL(TEM1)=-0.0263
 PRT(KE)=0.75 ;PRT(EP)=1.15
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initialise Var/Porosity Fields
 FIINIT(P1)=0. ;FIINIT(KE)=1.0E-03
 FIINIT(EP)=9.0E-03 ;FIINIT(PRPS)=-1.
 FIINIT(TEM1)=20.
   No PATCHes used for this Group
 
 
 INIADD = F
 ************************************************************
  Group 12. Convection and diffusion adjustments
   No PATCHes used for this Group
 ************************************************************
  Group 13. Boundary & Special Sources
   No PATCHes used for this Group
 
 EGWF = T
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP = 100
 RESFAC =1.0E-03
 ************************************************************
  Group 16. Terminate Iterations
 LITER(P1)=200 ;LITER(TEM1)=50
 ************************************************************
  Group 17. Relaxation
 RELAX(P1 ,LINRLX,1. )
 RELAX(KE ,LINRLX,0.5 )
 RELAX(EP ,LINRLX,0.5 )
 KELIN = 3
 ************************************************************
  Group 18. Limits
 VARMAX(P1)=1.0E+10 ;VARMIN(P1)=-7.5E+04
 VARMAX(TEM1)=3000. ;VARMIN(TEM1)=-204.75
 ************************************************************
  Group 19. EARTH Calls To GROUND Station
 NAMGRD =FLAR
 GENK = T
 CONWIZ = T
 IENUTA = 2
 SPEDAT(SET,FLAIR,CLOTH_UNIT,I,1)
 SPEDAT(SET,FLAIR,METAB_UNIT,I,1)
 SPEDAT(SET,FLAIR,CLOTHING,R,0.093)
 SPEDAT(SET,FLAIR,METABOLIC,R,69.779999)
 SPEDAT(SET,FLAIR,EXTWORK,R,0.)
 SPEDAT(SET,FLAIR,RELHUMID,R,50.)
 SPEDAT(SET,FLAIR,TRAD,R,25.)
 SPEDAT(SET,KECONST,C2E,R,1.92)
 SPEDAT(SET,KECONST,C1E,R,1.44)
 SPEDAT(SET,IMMERSOL,EMCON,R,5.)
 ************************************************************
  Group 20. Preliminary Printout
 DISTIL = T ;NULLPR = F
 NDST = 0
 DSTTOL =1.0E-02
 ************************************************************
  Echo save-block settings for Group 20
   save20begin
   Set expected values for testing
 case caseno of
+  when 1
 EX(P1  )=   1.207E+00; EX(U1  )=   5.650E-01
 EX(V1  )=   5.641E-01; EX(W1  )=   3.983E-01
 EX(KE  )=   1.670E-02; EX(EP  )=   5.804E-02
 EX(PRPS)=   1.000E+00; EX(TEM1)=   2.500E+01
 EX(EPKE)=   1.567E+00; EX(DEN1)=   1.169E+00
 EX(EL1 )=   1.233E-02; EX(ENUT)=   6.224E-04
+  when 2
 EX(P1  )=   1.469E+00; EX(U1  )=   8.759E-01
 EX(V1  )=   8.765E-01; EX(W1  )=   3.147E-01
 EX(KE  )=   2.464E-02; EX(EP  )=   7.658E-02
 EX(PRPS)=   1.000E+00; EX(TEM1)=   2.500E+01
 EX(EPKE)=   1.619E+00; EX(DEN1)=   1.169E+00
 EX(EL1 )=   1.880E-02; EX(ENUT)=   1.217E-03
+  when 3
 EX(P1  )=   2.069E+00; EX(U1  )=   1.529E+00
 EX(V1  )=   1.529E+00; EX(W1  )=   2.655E-01
 EX(KE  )=   1.629E+00; EX(EP  )=   2.832E+00
 EX(PRPS)=   1.000E+00; EX(TEM1)=   2.490E+01
 EX(EPKE)=   2.159E+00; EX(DEN1)=   1.170E+00
 EX(EL1 )=   1.789E-01; EX(ENUT)=   1.242E-01
+  when 4
 EX(P1  )=   3.527E-01; EX(U1  )=   1.076E+00
 EX(V1  )=   1.049E+00; EX(W1  )=   1.579E-01
 EX(KE  )=   1.031E-01; EX(EP  )=   1.696E+00
 EX(PRPS)=   8.561E-01; EX(TEM1)=   1.790E+01
 EX(EPKE)=   4.792E+00; EX(DEN1)=   1.015E+00
 EX(EL1 )=   6.673E-03; EX(ENUT)=   7.907E-04
+  when 5
 EX(P1  )=   8.895E-01; EX(U1  )=   4.748E-01
 EX(V1  )=   5.506E-01; EX(W1  )=   2.207E-01
 EX(KE  )=   3.584E-02; EX(EP  )=   1.208E-01
 EX(PRPS)=   8.889E-01; EX(TEM1)=   2.222E+01
 EX(EPKE)=   1.225E+00; EX(DEN1)=   1.039E+00
 EX(EL1 )=   2.179E-02; EX(ENUT)=   1.551E-03
+  when 6
 EX(P1  )=   5.197E-02; EX(U1  )=   1.380E-01
 EX(V1  )=   1.380E-01; EX(W1  )=   8.108E-02
 EX(KE  )=   1.380E-03; EX(EP  )=   5.230E-04
 EX(PRPS)=   9.671E-01; EX(TEM1)=   2.418E+01
 EX(EPKE)=   2.367E-01; EX(DEN1)=   1.131E+00
 EX(EL1 )=   2.667E-02; EX(ENUT)=   4.714E-04
+  when 7
 EX(P1  )=   7.856E-01; EX(U1  )=   7.147E-01
 EX(V1  )=   7.160E-01; EX(W1  )=   1.963E-01
 EX(KE  )=   1.720E-01; EX(EP  )=   8.045E+00
 EX(PRPS)=   1.000E+00; EX(TEM1)=   2.000E+01
 EX(EPKE)=   4.819E+02; EX(DEN1)=   1.189E+00
 EX(EL1 )=   3.372E-03; EX(ENUT)=   8.506E-04
 endcase
   save20end
 ************************************************************
  Group 21. Print-out of Variables
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON = 4 ;IYMON = 4 ;IZMON = 4
 NPRMON = 100000
 NPRMNT = 1
 TSTSWP = -1
 ************************************************************
  Group 23.Field Print-Out & Plot Control
 NPRINT = 100000
 ISWPRF = 1 ;ISWPRL = 100000
   No PATCHes used for this Group
 ************************************************************
  Group 24. Dumps For Restarts
 
 GVIEW(P,0.802487,-0.403672,0.43939)
 GVIEW(UP,-0.382477,0.217189,0.898076)
 
> DOM,    INI_AMB,    YES
> DOM,    INI_BUOY,   YES
 ************************************************************
  Echo save-block settings for Group 25
   save25begin
if(caseno.ne.6) then
> DOM,    SIZE,        1.000000E+01, 1.000000E+01, 2.000000E+00
else
> DOM,    SIZE,        1.000000E+01, 1.000000E+01, 3.000000E+00
endif
   save25end
 ************************************************************
  Echo save-block settings for Group 25
  save25begin
 case caseno of
+ when 3
> GRID,   RSET_X_1,      5,-2.000000E+00
> GRID,   RSET_X_2,      2, 1.000000E+00
> GRID,   RSET_X_3,      2, 1.000000E+00
> GRID,   RSET_X_4,      2, 1.000000E+00
> GRID,   RSET_X_5,      2, 1.000000E+00
> GRID,   RSET_X_6,      5, 2.000000E+00
> GRID,   RSET_Y_1,      5,-2.000000E+00
> GRID,   RSET_Y_2,      2, 1.000000E+00
> GRID,   RSET_Y_3,      2, 1.000000E+00
> GRID,   RSET_Y_4,      2, 1.000000E+00
> GRID,   RSET_Y_5,      2, 1.000000E+00
> GRID,   RSET_Y_6,      5, 2.000000E+00
> GRID,   RSET_Z_1,      1, 1.000000E+00
> GRID,   RSET_Z_2,      1, 1.000000E+00
+ when 4
> GRID,   RSET_X_1,      5,-2.000000E+00
> GRID,   RSET_X_2,      2, 1.000000E+00
> GRID,   RSET_X_3,      2, 1.000000E+00
> GRID,   RSET_X_4,      2, 1.000000E+00
> GRID,   RSET_X_5,      2, 1.000000E+00
> GRID,   RSET_X_6,      5, 2.000000E+00
> GRID,   RSET_Y_1,      5,-2.000000E+00
> GRID,   RSET_Y_2,      2, 1.000000E+00
> GRID,   RSET_Y_3,      2, 1.000000E+00
> GRID,   RSET_Y_4,      2, 1.000000E+00
> GRID,   RSET_Y_5,      2, 1.000000E+00
> GRID,   RSET_Y_6,      5, 2.000000E+00
> GRID,   RSET_Z_1,      5,-2.000000E+00
> GRID,   RSET_Z_2,      2, 1.000000E+00
> GRID,   RSET_Z_3,      1, 1.000000E+00
+ when 5
> GRID,   RSET_X_1,      1, 1.000000E+00
> GRID,   RSET_X_2,      8, 2.000000E+00
> GRID,   RSET_Y_1,      3, 1.000000E+00
> GRID,   RSET_Y_2,      1, 1.000000E+00
> GRID,   RSET_Y_3,      1, 1.000000E+00
> GRID,   RSET_Y_4,      1, 1.000000E+00
> GRID,   RSET_Y_5,      1, 1.000000E+00
> GRID,   RSET_Y_6,      6, 1.000000E+00
> GRID,   RSET_Y_7,      1, 1.000000E+00
> GRID,   RSET_Y_8,      1, 1.000000E+00
> GRID,   RSET_Y_9,      1, 1.000000E+00
> GRID,   RSET_Y_10,      1, 1.000000E+00
> GRID,   RSET_Y_11,      3, 1.000000E+00
> GRID,   RSET_Z_1,      2, 1.000000E+00
> GRID,   RSET_Z_2,      2, 1.000000E+00
> GRID,   RSET_Z_3,      2, 1.000000E+00
> GRID,   RSET_Z_4,      2, 1.000000E+00
> GRID,   RSET_Z_5,      2, 1.000000E+00
> GRID,   RSET_Z_6,      2, 1.000000E+00
+ when 6
NZ=9
> GRID,   RSET_X_1,      5,-2.000000E+00
> GRID,   RSET_X_2,      2, 1.000000E+00
> GRID,   RSET_X_3,      2, 1.000000E+00
> GRID,   RSET_X_4,      2, 1.000000E+00
> GRID,   RSET_X_5,      2, 1.000000E+00
> GRID,   RSET_X_6,      5, 2.000000E+00
> GRID,   RSET_Y_1,      5,-2.000000E+00
> GRID,   RSET_Y_2,      2, 1.000000E+00
> GRID,   RSET_Y_3,      2, 1.000000E+00
> GRID,   RSET_Y_4,      2, 1.000000E+00
> GRID,   RSET_Y_5,      2, 1.000000E+00
> GRID,   RSET_Y_6,      5, 2.000000E+00
> GRID,   RSET_Z_1,      4, 1.000000E+00
> GRID,   RSET_Z_2,      5, 1.500000E+00
+ when 7
> GRID,   RSET_X_1,      5,-1.300000E+00
> GRID,   RSET_X_2,      6, 1.000000E+00
> GRID,   RSET_X_3,      5, 1.300000E+00
> GRID,   RSET_Y_1,      5,-1.300000E+00
> GRID,   RSET_Y_2,      6, 1.000000E+00
> GRID,   RSET_Y_3,      5, 1.300000E+00
> GRID,   RSET_Z_1,     10,-1.300000E+00
> GRID,   RSET_Z_2,      2, 1.000000E+00
 orelse
> GRID,   RSET_X_1,      5,-2.000000E+00
> GRID,   RSET_X_2,      1, 1.000000E+00
> GRID,   RSET_X_3,      1, 1.000000E+00
> GRID,   RSET_X_4,      1, 1.000000E+00
> GRID,   RSET_X_5,      1, 1.000000E+00
> GRID,   RSET_X_6,      5, 2.000000E+00
> GRID,   RSET_Y_1,      5,-2.000000E+00
> GRID,   RSET_Y_2,      1, 1.000000E+00
> GRID,   RSET_Y_3,      1, 1.000000E+00
> GRID,   RSET_Y_4,      1, 1.000000E+00
> GRID,   RSET_Y_5,      1, 1.000000E+00
> GRID,   RSET_Y_6,      5, 2.000000E+00
> GRID,   RSET_Z_1,      1, 1.000000E+00
> GRID,   RSET_Z_2,      1, 1.000000E+00
 endcase
  save25end
 ************************************************************
  Echo save-block settings for Group 25
   save25begin
 case :caseno: of
+  when 1
> OBJ,    NAME,        B1
> OBJ,    POSITION,    4.500000E+00, 4.500000E+00, 1.809014E+00
> OBJ,    SIZE,        1.000000E+00, 1.000000E+00, 1.909859E-01
> OBJ,    ROT-CENTRE,  CENTRE
> OBJ,    GEOMETRY,    diffsr-r
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        DIFFUSER
> OBJ,    DIFF-TYPE,     Round
> OBJ,    DIAMETER,     1.000000E+00
> OBJ,    CENTRE,       5.000000E+00, 5.000000E+00, 2.000000E+00
> OBJ,    PLANE,         Z
> OBJ,    SUPP-UNIT,     l/s
> OBJ,    SUPP-VOL,     5.000000E+03
> OBJ,    SUPP-P,       0.000000E+00
> OBJ,    SUPP-T,       2.500000E+01
> OBJ,    TURB-INTENS,  5.000000E+00
> OBJ,    EFF-AREA,     6.000000E-01
+  when 2
> OBJ,    NAME,        B1
> OBJ,    POSITION,    4.500000E+00, 4.500000E+00, 1.809014E+00
> OBJ,    SIZE,        1.000000E+00, 1.000000E+00, 1.909859E-01
> OBJ,    ROT-CENTRE,  CENTRE
> OBJ,    GEOMETRY,    diffsr-r
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        DIFFUSER
> OBJ,    DIFF-TYPE,     Vortex
> OBJ,    DIAMETER,     1.000000E+00
> OBJ,    CENTRE,       5.000000E+00, 5.000000E+00, 2.000000E+00
> OBJ,    PLANE,         Z
> OBJ,    SUPP-UNIT,     l/s
> OBJ,    SUPP-VOL,     5.000000E+03
> OBJ,    SUPP-P,       0.000000E+00
> OBJ,    SUPP-T,       2.500000E+01
> OBJ,    TURB-INTENS,  5.000000E+00
> OBJ,    EFF-AREA,     6.000000E-01
> OBJ,    SWIRL-ANG,    4.500000E+01
+  when 3
> OBJ,    NAME,        B1
> OBJ,    POSITION,    4.500000E+00, 4.500000E+00, 1.900000E+00
> OBJ,    SIZE,        1.000000E+00, 1.000000E+00, 1.000000E-01
> OBJ,    ROT-ANGLE,   4.500000E+01, 0.000000E+00, 0.000000E+00
> OBJ,    ROT-CENTRE,  CENTRE
> OBJ,    GEOMETRY,    diffsr-s
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        DIFFUSER
> OBJ,    DIFF-TYPE,     Rectangular
> OBJ,    CENTRE,       5.000000E+00, 5.000000E+00, 2.000000E+00
> OBJ,    PLANE,         Z
> OBJ,    SUPP-UNIT,     l/s
> OBJ,    SUPP-VOL,     5.000000E+03
> OBJ,    SUPP-P,       0.000000E+00
> OBJ,    SUPP-T,       2.500000E+01
> OBJ,    TURB-INTENS,  5.000000E+00
> OBJ,    EFF-AREA,     4.000000E-01
+  when 4
> OBJ,    NAME,        B6
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 1.500000E+00
> OBJ,    SIZE,        1.000000E+01, 1.000000E+01, 5.000000E-01
> OBJ,    GEOMETRY,    cube14
> OBJ,    ROTATION24,        2
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,    198,Solid with smooth-wall friction
 
> OBJ,    NAME,        B1
> OBJ,    POSITION,    4.500000E+00, 4.500000E+00, 1.400000E+00
> OBJ,    SIZE,        1.000000E+00, 1.000000E+00, 1.000000E-01
> OBJ,    ROT-ANGLE,   4.500000E+01, 0.000000E+00, 0.000000E+00
> OBJ,    ROT-CENTRE,  CENTRE
> OBJ,    GEOMETRY,    diffsr-s
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        DIFFUSER
> OBJ,    DIFF-TYPE,     Rectangular-4way
> OBJ,    CENTRE,       5.000000E+00, 5.000000E+00, 1.500000E+00
> OBJ,    PLANE,         Z
> OBJ,    X-FACES,      1.000000E+00, 1.000000E+00
> OBJ,    Y-FACES,      1.000000E+00, 1.000000E+00
> OBJ,    SUPP-UNIT,     l/s
> OBJ,    SUPP-VOL,     5.000000E+03
> OBJ,    SUPP-P,       0.000000E+00
> OBJ,    SUPP-T,       2.500000E+01
> OBJ,    TURB-INTENS,  5.000000E+00
> OBJ,    EFF-AREA,     4.000000E-01
+  when 5
> OBJ,    NAME,        GRILLE1
> OBJ,    POSITION,    1.750000E+00, 1.500000E+00, 7.500000E-01
> OBJ,    SIZE,        0.000000E+00, 2.000000E+00, 5.000000E-01
> OBJ,    ROT-ANGLE,   1.000000E-03, 0.000000E+00, 0.000000E+00
> OBJ,    ROT-CENTRE,  CENTRE
> OBJ,    GEOMETRY,    diffsr-s
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        DIFFUSER
> OBJ,    DIFF-TYPE,     Grille/Nozzle
> OBJ,    CENTRE,       1.750000E+00, 2.500000E+00, 1.000000E+00
> OBJ,    PLANE,         X
> OBJ,    SIDE,          High
> OBJ,    SUPP-UNIT,     l/s
> OBJ,    SUPP-VOL,     5.000000E+03
> OBJ,    SUPP-P,       0.000000E+00
> OBJ,    SUPP-T,       2.500000E+01
> OBJ,    TURB-INTENS,  5.000000E+00
> OBJ,    EFF-AREA,     1.000000E+00
> OBJ,    ANGLE_Y-X,    4.500000E+01
> OBJ,    ANGLE_Z-X,    4.500000E+01
 
> OBJ,    NAME,        BLOCK
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        1.750000E+00, 1.000000E+01, 2.000000E+00
> OBJ,    GEOMETRY,    cube14
> OBJ,    ROTATION24,  6
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,    198,Solid with smooth-wall friction
 
> OBJ,    NAME,        GRILLE2
> OBJ,    POSITION,    1.750000E+00, 6.500000E+00, 7.500000E-01
> OBJ,    SIZE,        0.000000E+00, 2.000000E+00, 5.000000E-01
> OBJ,    ROT-CENTRE,  CENTRE
> OBJ,    GEOMETRY,    diffsr-s
> OBJ,    TYPE,        DIFFUSER
> OBJ,    DIFF-TYPE,     Grille/Nozzle
> OBJ,    CENTRE,      1.75 ,7.5 ,1.
> OBJ,    PLANE,         X
> OBJ,    SIDE,          High
> OBJ,    SUPP-UNIT,     l/s
> OBJ,    SUPP-VOL,    5000.
> OBJ,    SUPP-P,      0.
> OBJ,    SUPP-T,      25.
> OBJ,    TURB-INTENS, 5.
> OBJ,    EFF-AREA,    1.
> OBJ,    ANGLE_Y-X,   45.
> OBJ,    ANGLE_Z-X,   45.
 
+  when 6
> OBJ,    NAME,        B1
> OBJ,    POSITION,    4.500000E+00, 4.500000E+00, 0.000000E+00
> OBJ,    SIZE,        1.000000E+00, 1.000000E+00, 1.000000E+00
> OBJ,    ROT-ANGLE,   4.500000E+01, 0.000000E+00, 0.000000E+00
> OBJ,    ROT-CENTRE,  CENTRE
> OBJ,    GEOMETRY,    diffsr-s
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        DIFFUSER
> OBJ,    DIFF-TYPE,     Displacement
> OBJ,    X-FACES,      1.000000E+00, 1.000000E+00
> OBJ,    Y-FACES,      1.000000E+00, 1.000000E+00
> OBJ,    Z-FACES,      1.000000E+00, 0.000000E+00
> OBJ,    SUPP-UNIT,     l/s
> OBJ,    SUPP-VOL,     5.000000E+03
> OBJ,    SUPP-P,       0.000000E+00
> OBJ,    SUPP-T,       2.500000E+01
> OBJ,    TURB-INTENS,  5.000000E+00
> OBJ,    AREA-RATIO,   1.000000E+00
+  when 7
> OBJ,    NAME,        B1
> OBJ,    POSITION,    4.000000E+00, 4.900000E+00, 1.800000E+00
> OBJ,    SIZE,        2.000000E+00, 2.000000E-01, 2.000000E-01
> OBJ,    ROT-ANGLE,   4.500000E+01, 0.000000E+00, 0.000000E+00
> OBJ,    ROT-CENTRE,  CENTRE
> OBJ,    GEOMETRY,    jetfan-s
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        JETFAN
> OBJ,    VELOCITY,     2.200000E+01
> OBJ,    FANTYPE,     Rectangular
> OBJ,    TURB_INTENS, 22.
 endcase
 
   save25end
 
> OBJ,    NAME,        B2
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        0.000000E+00, 1.000000E+01, TO_END
> OBJ,    GEOMETRY,    cube12t
> OBJ,    TYPE,        OPENING
> OBJ,    WIREFRAME,   YES
> OBJ,    PRESSURE,     P_AMBIENT
> OBJ,    TEMPERATURE,  T_AMBIENT
> OBJ,    COEFFICIENT, 1.
> OBJ,    TURBULENCE,  1.0E-03 ,9.0E-03
 
> OBJ,    NAME,        B3
> OBJ,    POSITION,    1.000000E+01, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        0.000000E+00, 1.000000E+01, TO_END
> OBJ,    GEOMETRY,    cube12t
> OBJ,    TYPE,        OPENING
> OBJ,    WIREFRAME,   YES
> OBJ,    PRESSURE,     P_AMBIENT
> OBJ,    TEMPERATURE,  T_AMBIENT
> OBJ,    COEFFICIENT, 1.
> OBJ,    TURBULENCE,  1.0E-03 ,9.0E-03
 
> OBJ,    NAME,        B4
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        1.000000E+01, 0.000000E+00, TO_END
> OBJ,    GEOMETRY,    cube12t
> OBJ,    TYPE,        OPENING
> OBJ,    WIREFRAME,   YES
> OBJ,    PRESSURE,     P_AMBIENT
> OBJ,    TEMPERATURE,  T_AMBIENT
> OBJ,    COEFFICIENT, 1.
> OBJ,    TURBULENCE,  1.0E-03 ,9.0E-03
 
> OBJ,    NAME,        B5
> OBJ,    POSITION,    0.000000E+00, 1.000000E+01, 0.000000E+00
> OBJ,    SIZE,        1.000000E+01, 0.000000E+00, TO_END
> OBJ,    GEOMETRY,    cube12t
> OBJ,    TYPE,        OPENING
> OBJ,    WIREFRAME,   YES
> OBJ,    PRESSURE,     P_AMBIENT
> OBJ,    TEMPERATURE,  T_AMBIENT
> OBJ,    COEFFICIENT, 1.
> OBJ,    TURBULENCE,  1.0E-03 ,9.0E-03
STOP