TALK=F;RUN( 1, 1)
 ************************************************************
   Q1 created by VDI menu, Version 3.5, Date 10/02/03
 CPVNAM=VDI;SPPNAM=Core
  Echo DISPLAY / USE settings
 TEXT(Device for turning flow
 TITLE
  DISPLAY
   This case simulates a device for the flow turning.
   The turn device is described by a box objects with domain
   properties wich turned revolved under 55 degrees angle
   concerning the horizon.

   The turn is executed by means of the sources for U1 and V1
   variables  
     for U1 as coeff*(-V1),
     for V1 as coeff*U1.

   The In-Form is used for the setting of the source
   per unit volume as

  (SOURCE of U1 at TURNING is :COEF:*(-V1) with VOLU)
  (SOURCE of V1 at TURNING is :COEF:*U1 with VOLU)

  The Q1 contains PHOTON USE commands
  ENDDIS
  PHOTON USE
  p;;; 
 
  ve z 1 sh
  use patgeo
  enduse
 ************************************************************
 IRUNN   =       1 ;LIBREF =     150
 ************************************************************
  Group 1. Run Title
 TEXT(Device for turning flow
  Groups 3, 4, 5  Grid Information
 RSET(M,40,40,1)
  Group 7. Variables: STOREd,SOLVEd,NAMEd
    * Non-default variable names
 NAME(150) =PRPS
    * Solved variables list
 SOLVE(P1  ,U1  ,V1  )
    * Stored variables list
 STORE(PRPS)
    * Additional solver options
 SOLUTN(P1  ,Y,Y,Y,N,N,Y)
  Group 9. Properties
 SETPRPS(1,  0)
  Group 13. Boundary & Special Sources
  Echo InForm settings for Group 13
  INFORM13BEGIN
 REAL(COEF); COEF=10.
 (SOURCE of U1 at TURNING is :COEF:*(-V1) with VOLU)
 (SOURCE of V1 at TURNING is :COEF:*U1 with VOLU)
  INFORM13END
  Group 15. Terminate Sweeps
 LSWEEP  =     200
  Group 17. Relaxation
 RELAX(U1  ,FALSDT, 1.000000E+01)
 RELAX(V1  ,FALSDT, 1.000000E+01)
  Group 20. Preliminary Printout
 DISTIL  =    T 
 EX    (P1  ) =  1.023000E+00 ;EX    (U1  ) =  3.851000E-01
 EX    (V1  ) =  4.004000E-01 ;EX    (PRPS) =  5.025000E+01
  Group 22. Monitor Print-Out
 IXMON   =      26 ;IYMON  =      14 ;IZMON  =       1
 TSTSWP  =      -1
 
 GVIEW(P,0.000000E+00,0.000000E+00,1.000000E+00)
 GVIEW(UP,0.000000E+00,1.000000E+00,0.000000E+00)
 
> DOM,    SIZE,        1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    MONIT,       6.374999E-01, 3.373770E-01, 5.000000E-01
> DOM,    SCALE,       1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    SNAPSIZE,    1.000000E-02
 
> OBJ,    NAME,        TURNING
> OBJ,    POSITION,    2.000000E-01, 7.071100E-02, 0.000000E+00
> OBJ,    SIZE,        1.000000E-01, 5.500000E-01, 1.000000E+00
> OBJ,    ARBORIEN,   -3.500000E+01, 0.000000E+00, 0.000000E+00
> OBJ,    CLIPART,     cubet
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,       -1
> OBJ,    SCAL_FIXF,     0.000000E+00
 
> OBJ,    NAME,        BLOCK
> OBJ,    POSITION,    0.000000E+00, 5.000000E-01, 0.000000E+00
> OBJ,    SIZE,        5.000000E-01, 5.000000E-01, 1.000000E+00
> OBJ,    CLIPART,     cube14
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,      198
 
> OBJ,    NAME,        INLET
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        0.000000E+00, 5.000000E-01, 1.000000E+00
> OBJ,    CLIPART,     cube3t
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        INLET
> OBJ,    PRESSURE,      0.000000E+00
> OBJ,    VELOCITY,      1.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    TEMPERATURE,   0.000000E+00
 
> OBJ,    NAME,        OUTLET
> OBJ,    POSITION,    5.000000E-01, 1.000000E+00, 0.000000E+00
> OBJ,    SIZE,        5.000000E-01, 0.000000E+00, 1.000000E+00
> OBJ,    CLIPART,     cube12t
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        OUTLET
> OBJ,    PRESSURE,      0.000000E+00
> OBJ,    TEMPERATURE,  -1.026000E+04
> OBJ,    COEFFICIENT,   1.000000E+00
 
> OBJ,    NAME,        E_WALL
> OBJ,    POSITION,    1.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        0.000000E+00, 1.000000E+00, 1.000000E+00
> OBJ,    CLIPART,     cube11
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        S_WALL
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        1.000000E+00, 0.000000E+00, 1.000000E+00
> OBJ,    CLIPART,     cube11
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
STOP