TALK=F;RUN( 1, 1)
 
 ************************************************************
   Q1 created by VDI menu, Version 2007, Date 26/06/07
 CPVNAM=VDI;SPPNAM=Core
 ************************************************************
 IRUNN   =         1 ;LIBREF =         0
 ************************************************************
  Group 1. Run Title
 TEXT(3D Steady Heat Conduction In Cube       )
 ************************************************************
  Group 2. Transience
 STEADY  =    T
 ************************************************************
  Groups 3, 4, 5  Grid Information
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
 RSET(M,20,20,20)
 ************************************************************
  Group 6. Body-Fitted coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
 ONEPHS  =    T
 NAME(150) =TEM1
    * Solved variables list
 SOLVE(TEM1)
    * Additional solver options
 SOLUTN(TEM1,Y,Y,Y,N,N,Y)
 
 ************************************************************
  Group 8. Terms & Devices
 USP     =    T  ;USPDBG =    F
 UAUTO  = F
 UTCPLT =    F  ;USPIMB =    F
 MXLEV   =         1 ;MYLEV  =         1 ;MZLEV  =         1
 DOMAT   =        -1
 CELLST  =        10 ;FACEST =        10
 MINPRP  =        -1 ;MAXPRP =       100
 USPREL  = 7.000000E-01

mesg(Do you want to view results in the centres of cells? (y/n)
readvdu(ans,char,n)
if(:ans:.eq.y)then
SPEDAT(SET,USPIO,VERTCENT,L,F)
endif


 ************************************************************
  Group 9. Properties
 RHO1    = 1.000000E+00
 ENUL    = 1.000000E+00
 CP1     = 1.000000E+00
 ENUT    = 0.000000E+00
 PRNDTL(TEM1) =  1.000000E-02
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initialise Var/Porosity Fields
   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 (COLD    ,CELL  ,1,2,1,2,1,2,1,1)
 COVAL (COLD    ,TEM1, 1.000000E+02, 0.000000E+00)
 
 PATCH (HOT     ,CELL  ,NX-1,NX,NY-1,NY,NZ-1,NZ,1,1)
 COVAL (HOT     ,TEM1, 1.000000E+02, 1.000000E+00)
 
 EGWF    =    T
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP  =       200
 RESFAC  = 1.000000E-06
 ************************************************************
  Group 16. Terminate Iterations
 ************************************************************
  Group 17. Relaxation
 ************************************************************
  Group 18. Limits
 ************************************************************
  Group 19. EARTH Calls To GROUND Station
 PARSOL = F
 ISG62 = 0
 ISG60 = 1
 ************************************************************
  Group 20. Preliminary Printout
 ECHO    =    T
 ************************************************************
  Group 21. Print-out of Variables
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON   =         9 ;IYMON  =         9 ;IZMON  =         9
 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,9.999833E-03,9.999500E-01)
 GVIEW(UP,0.000000E+00,9.999500E-01,-9.999833E-03)
 
> DOM,    SIZE,        1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    MONIT,       4.250000E-01, 4.250000E-01, 4.454545E-01
> DOM,    SCALE,       1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    SNAPSIZE,    1.000000E-02
 
> OBJ,    NAME,        B1
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        2.000000E-01, 2.000000E-01, 2.000000E-01
> OBJ,    GEOMETRY,    fine
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        FINE_GRID_VOL
> OBJ,    LEVELS,       0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    AXES,        OXYZ
 
> OBJ,    NAME,        B2
> OBJ,    POSITION,    8.000000E-01, 8.000000E-01, 8.000000E-01
> OBJ,    SIZE,        2.000000E-01, 2.000000E-01, 2.000000E-01
> OBJ,    GEOMETRY,    fine
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        FINE_GRID_VOL
> OBJ,    LEVELS,       0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    AXES,        OXYZ
STOP