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
  DISPLAY
  This input file illustrates the use of MOFOR by In-Form to 
  simulate the effect on the motion of the air about of moving
  box. Simultaneously the box is moved in X direction
  and rotates about Z axis.

  The MOFOR option is set active by next
  SPEDAT(SET,MOFOR,MOFFILE,C,NOTSET)

  '(MOVOB' statements describing motion of moving objects use POS()
  function of which parameters set X, Y and Z coordinate and 
  rotation angles about X, Y and Z axis of moving object as function
  of TIM variable. TIM is the current time.
  (MOVOB of BLOCK is POS(0.5*tim&0&0&0&0&-30*tim))

  OBID is used by PHOTON for marks of borders of moving objects.
  The Q1 contains PHOTON USE commands
  ENDDIS
  PHOTON USE
  p
  m1;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m2;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m3;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m4;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m5;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m6;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m7;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m8;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m9;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m10;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m11;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m12;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m13;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m14;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m15;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m16;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m17;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m18;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m19;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  p
  m20;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 0.999
  upause 2
  con u1 z 1 fi;.0001
  surf obid z 0.999
  upause 2
  con v1 z 1 fi;.0001
  surf obid z 0.999
  ENDUSE
 ************************************************************
 IRUNN   =       1 ;LIBREF =     382
 ************************************************************
  Group 1. Run Title
 TEXT(MOFOR by In-Form: BOX object rotation)
 ************************************************************
  Group 2. Transience
 STEADY=F
    * Set overall time and no. of steps
 RSET(U,0.000000E+00,2.000000E+00,20)
    * Modify regions
 ************************************************************
  Groups 3, 4, 5  Grid Information
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
 RSET(M,100,80,1,1.000000E+02)
 ************************************************************
  Group 6. Body-Fitted coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
 ONEPHS  =    T
    * Non-default variable names
 NAME(149) =OBID ; NAME(150) =PRPS
    * Solved variables list
 SOLVE(P1  ,U1  ,V1  )
    * Stored variables list
 STORE(PRPS,OBID)
    * Additional solver options
 SOLUTN(P1  ,Y,Y,Y,N,N,Y)
 
 ************************************************************
  Echo InForm settings for Group  7
  INFORM7BEGIN
   ** Definition of the VR moving objects by In-Form
 (MOVOB of CHAM is OFFSET(0&0&0))
 (MOVOB of BLOCK is OFFSET(0.55&0.9&0) with PARENT=CHAM)
 (MOVOB of BLOCK is POS(0.5*tim&0&0&0&0&-30*tim))
  INFORM7END
 ************************************************************
  Group 8. Terms & Devices
 ************************************************************
  Group 9. Properties
 SETPRPS(1,  0)
 ENUT    = 0.000000E+00
 DRH1DP  = 1.000000E-05
 DVO1DT  = 3.410000E-03
 EMISS   = 0.000000E+00 ;SCATT  = 0.000000E+00
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initialise Var/Porosity Fields
 FIINIT(PRPS) =  0.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
   No PATCHes used for this Group
 
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP  =      50
 RESFAC  = 1.000000E-03
 ************************************************************
  Group 16. Terminate Iterations
 ************************************************************
  Group 17. Relaxation
 RELAX(P1,LINRLX,0.5) 
 ************************************************************
  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
 CSG1    ='M'
 SPEDAT(SET,MOFOR,MOFFILE,C,NOTSET)
 SPEDAT(SET,GXMONI,TRANSIENT,L,F)
 ************************************************************
  Group 20. Preliminary Printout
 ECHO    =    T
 DISTIL  =    T  ;NULLPR =    F
 NDST    =       0
 DSTTOL  = 1.000000E-02
 EX    (P1  ) =  3.499000E-02 ;EX    (U1  ) =  8.158000E-02
 EX    (V1  ) =  4.152000E-02 ;EX    (OBID) =  6.300000E-02
 EX    (PRPS) =  0.000000E+00
  ************************************************************
  Group 21. Print-out of Variables
 OUTPUT(V1  ,Y,Y,Y,N,Y,Y)
 ************************************************************
  Group 22. Monitor Print-Out
 NPRMON  =  100000
 NPRMNT  =       1
 TSTSWP  =      -1
 ************************************************************
  Group 23.Field Print-Out & Plot Control
 NPRINT  =  100000
 NTPRIN  =  100000 ;ISTPRF =       1 ;ISTPRL =   10000
 ISWPRF  =       1 ;ISWPRL =  100000
   No PATCHes used for this Group
 ************************************************************
  Group 24. Dumps For Restarts
 NOWIPE  =    T
 IDISPA  =       1 ;IDISPB =       0 ;IDISPC =       0
 CSG1    ='M'
 ************************************************************
  Echo InForm settings for Group 25
  INFORM25BEGIN
  DEBUG=f
  MOFOR=f
  formula=f
  INFORM25END
 
 GVIEW(P,0.000000E+00,-9.995500E-01,2.999551E-02)
 GVIEW(UP,0.000000E+00,2.999551E-02,9.995500E-01)
 
> DOM,    SIZE,        2.000000E+00, 1.600000E+00, 1.000000E-01
> DOM,    MONIT,       1.000000E+00, 8.000000E-01, 5.000000E-02
> DOM,    SCALE,       1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    SNAPSIZE,    1.000000E-02
 
> OBJ,    NAME,        RELIEF
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        2.000000E-01, 2.000000E-01, 1.000000E-01
> OBJ,    CLIPART,     cubet
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PRESSURE_RELIEF
> OBJ,    PRES_RELIEF,   1.000000E+03, 0.000000E+00

> OBJ,    NAME,        GROUND
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        2.000000E+00, 0.000000E+00, 5.000000E-02
> OBJ,    CLIPART,     cube11
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
> OBJ,    TIME_LIMITS,   ALWAYS_ACTIVE
 
> OBJ,    NAME,        BLOCK
> OBJ,    POSITION,    4.500000E-01, 8.000000E-01, 0.000000E+00
> OBJ,    SIZE,        2.000000E-01, 2.000000E-01, 1.000000E-01
> OBJ,    CLIPART,     cubet
> OBJ,    ROTATION24,        1
> OBJ,    GRID,              2
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,       -1
> OBJ,    TIME_LIMITS,   ALWAYS_ACTIVE
> OBJ,    INI_PRESS,     0.000000E+00
> OBJ,    SCAL_FIXF,     0.000000E+00
STOP