TALK=T;RUN( 1, 1)
 
 ************************************************************
   Q1 created by VDI menu, Version 2007, Date 16/01/07
 CPVNAM=VDI;SPPNAM=Core
 ************************************************************
  Echo DISPLAY / USE settings
  PHOTON USE
  p;;;;
 
  vec z 1;pause
  msg Pressure field
  con p1 z 1 fi;0.01
  msg   -
  msg Press  to continue
  pause
  msg Temperature field
  con tem1 z 1 fi;0.01
  msg  -
  msg Press  to END
  enduse
 ************************************************************
 IRUNN   =         1 ;LIBREF =         712
 ************************************************************
  Group 1. Run Title
 TEXT(Couette Flow In Inclined Channel)
 ************************************************************
  Group 2. Transience
 STEADY  =    T
 ************************************************************
  Groups 3, 4, 5  Grid Information
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
 RSET(M,32,40,1)
 ************************************************************
  Group 6. Body-Fitted coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
 ONEPHS  =    T
    * Non-default variable names
 NAME(149) =TEM1 ; NAME(150) =PRPS
    * Solved variables list
 SOLVE(P1  ,U1  ,V1  ,TEM1)
    * Stored variables list
 STORE(PRPS)
    * Additional solver options
 SOLUTN(P1  ,Y,Y,Y,N,N,Y)
 SOLUTN(U1  ,Y,Y,Y,N,N,Y)
 SOLUTN(V1  ,Y,Y,Y,N,N,Y)
 
 ************************************************************
  Group 8. Terms & Devices
 ************************************************************
  Group 9. Properties
 RHO1    = 1.000000E+00
 ENUL    = 1.000000E+00
 CP1     = 1.005000E+03
 ENUT    = 0.000000E+00
 PRNDTL(TEM1) =  1.000000E+02
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initialise Var/Porosity Fields
 FIINIT(U1  ) =  8.944270E-01 ;FIINIT(V1  ) =  4.472130E-01
 FIINIT(PRPS) = -1.000000E+00
   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
 
 PATCH (HOT     ,CELL  ,1,32,33,40,1,1,1,1)
 COVAL (HOT     ,TEM1, 1.000000E+06, 1.000000E+00)
 
 PATCH (COLD    ,CELL  ,1,32,1,8,1,1,1,1)
 COVAL (COLD    ,TEM1, 1.000000E+06,-1.000000E+00)
 
 PATCH(OU1     ,WEST  ,   1,   1,   9,  16,   1,   1,     1,     1)
 COVAL(OU1     ,P1  , 1.000000E+00, 0.000000E+00)
 COVAL(OU1     ,U1  , 0.000000E+00, 0.000000E+00)
 COVAL(OU1     ,V1  , 0.000000E+00, 0.000000E+00)
 COVAL(OU1     ,TEM1, SAME        , 0.000000E+00)
 
 PATCH(OU2     ,EAST  ,  32,  32,  25,  32,   1,   1,     1,     1)
 COVAL(OU2     ,P1  , 1.000000E+00, 0.000000E+00)
 COVAL(OU2     ,U1  , 0.000000E+00, 0.000000E+00)
 COVAL(OU2     ,V1  , 0.000000E+00, 0.000000E+00)
 COVAL(OU2     ,TEM1, SAME        , 0.000000E+00)

 EGWF    =    T
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP  =       500
 RESFAC  = 1.000000E-03
 ************************************************************
  Group 16. Terminate Iterations
 RESREF(TEM1)=0.
 LITER (TEM1)=200
 ************************************************************
  Group 17. Relaxation
 RELAX(P1  ,LINRLX, 1.000000E+00)
 ************************************************************
  Group 18. Limits
 VARMAX(U1  ) = 1.000000E+06 ;VARMIN(U1  ) =-1.000000E+06
 VARMAX(V1  ) = 1.000000E+06 ;VARMIN(V1  ) =-1.000000E+06
 ************************************************************
  Group 19. EARTH Calls To GROUND Station
 USEGRD  =    T  ;USEGRX =    T
 ASAP    =    T
 PARSOL  =    T
 ************************************************************
  Group 20. Preliminary Printout
 ECHO    =    T
 ************************************************************
  Group 21. Print-out of Variables
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON   =        17 ;IYMON  =        20 ;IZMON  =         1
 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.000000E+00,0.000000E+00,1.000000E+00)
 GVIEW(UP,0.000000E+00,1.000000E+00,0.000000E+00)
 
> DOM,    SIZE,        8.000000E+00, 1.000000E+01, 1.000000E+00
> DOM,    MONIT,       4.125000E+00, 4.875000E+00, 5.000000E-01
> DOM,    SCALE,       1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    SNAPSIZE,    1.000000E-02
  > GRID,   RSET_X_1,     32, 1.000000E+00
  > GRID,   RSET_Y_1,      8, 1.000000E+00
  > GRID,   RSET_Y_2,      8, 1.000000E+00
  > GRID,   RSET_Y_3,      8, 1.000000E+00
  > GRID,   RSET_Y_4,      8, 1.000000E+00
  > GRID,   RSET_Y_5,      8, 1.000000E+00
  > GRID,   RSET_Z_1,      1, 1.000000E+00
 
> OBJ,    NAME,        B5
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        8.000000E+00, 6.000000E+00, 1.000000E+00
> OBJ,    ROT-MODE,    OLD
> OBJ,    GEOMETRY,    wednew
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,    111,STEEL at 27 deg c (C = 1%)
> OBJ,    VELOCITY,    -1.000000E+00,-6.666670E-01, 0.000000E+00
 
> OBJ,    NAME,        B6
> OBJ,    POSITION,    0.000000E+00, 4.000000E+00, 0.000000E+00
> OBJ,    SIZE,        8.000000E+00, 6.000000E+00, 1.000000E+00
> OBJ,    ROT-MODE,    OLD
> OBJ,    GEOMETRY,    wednew
> OBJ,    ROTATION24,        3
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,    111,STEEL at 27 deg c (C = 1%)
> OBJ,    VELOCITY,     1.000000E+00, 6.666667E-01, 0.000000E+00
STOP
isg60=1