TALK=T;RUN(1,1)
  DISPLAY
  This input file illustrates the use of MOFOR by In-Form to
  simulate the effect on the motion and rotation of the wheel.
  The wheel geometry is represented as a simple cylindr in XY plane.

  The MOFOR option is set active without mofdat file using by next
   SPEDAT(SET,MOFOR,MOFFILE,C,NOTSET)
    
  Next '(MOVOB' statement set the position of world coordinate syst$
em
   (MOVOB of CHAM is OFFSET(0&0&0))

  Next '(MOVOB' statement describing the position of CYLINDR frame
  for which CHAM frame is parent
   (MOVOB of CYLINDR is OFFSET(0.3&0.7&0) with PARENT=CHAM)

  '(MOVOB' statement describing the movement and rotation of CYLINDR
  frame by setting of first and sixth parameters of POS() function
  as functions of TIM variable. Where TIM is current time.
   (MOVOB of CYLINDR is POS(.6*tim&0&0&0&0&-tim*180))

  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 1
  upause 2
  p
  m2;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m3;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m4;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m5;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m6;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m7;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m8;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m9;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m10;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m11;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m12;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m13;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m14;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m15;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m16;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m17;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m18;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m19;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m20;

  gr ou z 1
  ve z 1 sh
  surf obid z 1
  enduse
 ************************************************************
  Group 1. Run Title and Number
 ************************************************************
 ************************************************************
 
 TEXT(MOFOR by In-Form,CYLINDR object rotation)
 
 ************************************************************
 ************************************************************
 
 IRUNN = 1 ;LIBREF = 0
 ************************************************************
  Group 2. Time dependence
 STEADY = F
    * Set overall time and no. of steps
 TFIRST =0. ;TLAST =2.
 FSTEP = 1 ;LSTEP = 20
 TFRAC(1)=0.05 ;TFRAC(2)=0.1
 TFRAC(3)=0.15 ;TFRAC(4)=0.2
 TFRAC(5)=0.25 ;TFRAC(6)=0.3
 TFRAC(7)=0.35 ;TFRAC(8)=0.4
 TFRAC(9)=0.45 ;TFRAC(10)=0.5
 TFRAC(11)=0.55 ;TFRAC(12)=0.6
 TFRAC(13)=0.65 ;TFRAC(14)=0.7
 TFRAC(15)=0.75 ;TFRAC(16)=0.8
 TFRAC(17)=0.85 ;TFRAC(18)=0.9
 TFRAC(19)=0.95 ;TFRAC(20)=1.
 ************************************************************
  Group 3. X-Direction Grid Spacing
 CARTES = T
 NX = 100
 XULAST =2.
 XFRAC(1)=0.01 ;XFRAC(2)=0.02
 XFRAC(3)=0.03 ;XFRAC(4)=0.04
 XFRAC(5)=0.05 ;XFRAC(6)=0.06
 XFRAC(7)=0.07 ;XFRAC(8)=0.08
 XFRAC(9)=0.09 ;XFRAC(10)=0.1
 XFRAC(11)=0.11 ;XFRAC(12)=0.12
 XFRAC(13)=0.13 ;XFRAC(14)=0.14
 XFRAC(15)=0.15 ;XFRAC(16)=0.16
 XFRAC(17)=0.17 ;XFRAC(18)=0.18
 XFRAC(19)=0.19 ;XFRAC(20)=0.2
 XFRAC(21)=0.21 ;XFRAC(22)=0.22
 XFRAC(23)=0.23 ;XFRAC(24)=0.24
 XFRAC(25)=0.25 ;XFRAC(26)=0.26
 XFRAC(27)=0.27 ;XFRAC(28)=0.28
 XFRAC(29)=0.29 ;XFRAC(30)=0.3
 XFRAC(31)=0.31 ;XFRAC(32)=0.32
 XFRAC(33)=0.33 ;XFRAC(34)=0.34
 XFRAC(35)=0.35 ;XFRAC(36)=0.36
 XFRAC(37)=0.37 ;XFRAC(38)=0.38
 XFRAC(39)=0.39 ;XFRAC(40)=0.4
 XFRAC(41)=0.41 ;XFRAC(42)=0.42
 XFRAC(43)=0.43 ;XFRAC(44)=0.44
 XFRAC(45)=0.45 ;XFRAC(46)=0.46
 XFRAC(47)=0.47 ;XFRAC(48)=0.48
 XFRAC(49)=0.49 ;XFRAC(50)=0.5
 XFRAC(51)=0.51 ;XFRAC(52)=0.52
 XFRAC(53)=0.53 ;XFRAC(54)=0.54
 XFRAC(55)=0.55 ;XFRAC(56)=0.56
 XFRAC(57)=0.57 ;XFRAC(58)=0.58
 XFRAC(59)=0.59 ;XFRAC(60)=0.6
 XFRAC(61)=0.61 ;XFRAC(62)=0.62
 XFRAC(63)=0.63 ;XFRAC(64)=0.64
 XFRAC(65)=0.65 ;XFRAC(66)=0.66
 XFRAC(67)=0.67 ;XFRAC(68)=0.68
 XFRAC(69)=0.69 ;XFRAC(70)=0.7
 XFRAC(71)=0.71 ;XFRAC(72)=0.72
 XFRAC(73)=0.73 ;XFRAC(74)=0.74
 XFRAC(75)=0.75 ;XFRAC(76)=0.76
 XFRAC(77)=0.77 ;XFRAC(78)=0.78
 XFRAC(79)=0.79 ;XFRAC(80)=0.8
 XFRAC(81)=0.81 ;XFRAC(82)=0.82
 XFRAC(83)=0.83 ;XFRAC(84)=0.84
 XFRAC(85)=0.85 ;XFRAC(86)=0.86
 XFRAC(87)=0.87 ;XFRAC(88)=0.88
 XFRAC(89)=0.89 ;XFRAC(90)=0.9
 XFRAC(91)=0.91 ;XFRAC(92)=0.92
 XFRAC(93)=0.93 ;XFRAC(94)=0.94
 XFRAC(95)=0.95 ;XFRAC(96)=0.96
 XFRAC(97)=0.97 ;XFRAC(98)=0.98
 XFRAC(99)=0.99 ;XFRAC(100)=1.
 ************************************************************
  Group 4. Y-Direction Grid Spacing
 NY = 80
 YVLAST =1.6
 YFRAC(1)=0.0125 ;YFRAC(2)=0.025
 YFRAC(3)=0.0375 ;YFRAC(4)=0.05
 YFRAC(5)=0.0625 ;YFRAC(6)=0.075
 YFRAC(7)=0.0875 ;YFRAC(8)=0.1
 YFRAC(9)=0.1125 ;YFRAC(10)=0.125
 YFRAC(11)=0.1375 ;YFRAC(12)=0.15
 YFRAC(13)=0.1625 ;YFRAC(14)=0.175
 YFRAC(15)=0.1875 ;YFRAC(16)=0.2
 YFRAC(17)=0.2125 ;YFRAC(18)=0.225
 YFRAC(19)=0.2375 ;YFRAC(20)=0.25
 YFRAC(21)=0.2625 ;YFRAC(22)=0.275
 YFRAC(23)=0.2875 ;YFRAC(24)=0.3
 YFRAC(25)=0.3125 ;YFRAC(26)=0.325
 YFRAC(27)=0.3375 ;YFRAC(28)=0.35
 YFRAC(29)=0.3625 ;YFRAC(30)=0.375
 YFRAC(31)=0.3875 ;YFRAC(32)=0.4
 YFRAC(33)=0.4125 ;YFRAC(34)=0.425
 YFRAC(35)=0.4375 ;YFRAC(36)=0.45
 YFRAC(37)=0.4625 ;YFRAC(38)=0.475
 YFRAC(39)=0.4875 ;YFRAC(40)=0.5
 YFRAC(41)=0.5125 ;YFRAC(42)=0.525
 YFRAC(43)=0.5375 ;YFRAC(44)=0.55
 YFRAC(45)=0.5625 ;YFRAC(46)=0.575
 YFRAC(47)=0.5875 ;YFRAC(48)=0.6
 YFRAC(49)=0.6125 ;YFRAC(50)=0.625
 YFRAC(51)=0.6375 ;YFRAC(52)=0.65
 YFRAC(53)=0.6625 ;YFRAC(54)=0.675
 YFRAC(55)=0.6875 ;YFRAC(56)=0.7
 YFRAC(57)=0.7125 ;YFRAC(58)=0.725
 YFRAC(59)=0.7375 ;YFRAC(60)=0.75
 YFRAC(61)=0.7625 ;YFRAC(62)=0.775
 YFRAC(63)=0.7875 ;YFRAC(64)=0.8
 YFRAC(65)=0.8125 ;YFRAC(66)=0.825
 YFRAC(67)=0.8375 ;YFRAC(68)=0.85
 YFRAC(69)=0.8625 ;YFRAC(70)=0.875
 YFRAC(71)=0.8875 ;YFRAC(72)=0.9
 YFRAC(73)=0.9125 ;YFRAC(74)=0.925
 YFRAC(75)=0.9375 ;YFRAC(76)=0.95
 YFRAC(77)=0.9625 ;YFRAC(78)=0.975
 YFRAC(79)=0.9875 ;YFRAC(80)=1.
 ************************************************************
  Group 5. Z-Direction Grid Spacing
 PARAB = F
 NZ = 1
 ZWLAST =0.1
 ZFRAC(1)=1.
 ************************************************************
  Group 6. Body-Fitted Coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
 ONEPHS = T
 NAME(1)=P1 ;NAME(3)=U1
 NAME(5)=V1 ;NAME(147)=#FXV
 NAME(148)=#FXU ;NAME(149)=PRPS
 NAME(150)=OBID
    * Y in SOLUTN argument list denotes:
    * 1-stored 2-solved 3-whole-field
    * 4-point-by-point 5-explicit 6-harmonic averaging 
 SOLUTN(P1,Y,Y,Y,N,N,Y)
 SOLUTN(U1,Y,Y,N,N,N,Y)
 SOLUTN(V1,Y,Y,N,N,N,Y)
 SOLUTN(#FXV,Y,N,N,N,N,Y)
 SOLUTN(#FXU,Y,N,N,N,N,Y)
 SOLUTN(PRPS,Y,N,N,N,N,Y)
 SOLUTN(OBID,Y,N,N,N,N,Y)
 PRPS = 149
 ************************************************************
  Group 8. Terms & Devices
    * Y in TERMS argument list denotes:
    * 1-built-in source 2-convection 3-diffusion 4-transient
    * 5-first phase variable 6-interphase transport         
 TERMS(P1,Y,Y,Y,N,Y,Y)
 TERMS(U1,Y,Y,Y,Y,Y,Y)
 TERMS(V1,Y,Y,Y,Y,Y,Y)
 DIFCUT =0.5 ;ZDIFAC =1.
 GALA = F ;ADDDIF = F
 ISOLX = -1 ;ISOLY = -1 ;ISOLZ = -1
 ************************************************************
  Group 9. Properties used if PRPS is not
  stored, and where PRPS = -1.0 if it is!
 RHO1 =1.189 ;TMP1 =0.
 EL1 =0.
 TSURR =0. ;TEMP0 =273.
 PRESS0 =1.0E+05
 DVO1DT =3.41E-03 ;DRH1DP =0.
 EMISS =0. ;SCATT =0.
 RADIA =0. ;RADIB =0.
 ENUL =1.544E-05 ;ENUT =0.
 PRNDTL(U1)=1. ;PRNDTL(V1)=1.
 PRT(U1)=1. ;PRT(V1)=1.
 CP1 =1005. ;CP2 =1.
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initial field variables (PHIs)
 FIINIT(P1)=1.0E-10 ;FIINIT(U1)=1.0E-10
 FIINIT(V1)=1.0E-10 ;FIINIT(#FXV)=1.0E-10
 FIINIT(#FXU)=1.0E-10 ;FIINIT(PRPS)=-1.
 FIINIT(OBID)=1.0E-10
 
 PATCH(^OB1 ,INIVAL, 1, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB1 ,PRPS,0. ,-1. )
 INIADD = F
 FSWEEP = 1
 NAMFI =CHAM
 ************************************************************
  Group 12. Patchwise adjustment of terms
  Patches for this group are printed with those
  for Group 13.
  Their names begin either with GP12 or &
 ************************************************************
  Group 13. Boundary & Special Sources
 
 PATCH(^P-REL1 ,CELL , 2, 1, 0, 0, 0, 0, 1, 20)
 COVAL(^P-REL1 ,P1 ,1. ,0. )
 XCYCLE = F
 EGWF = T
 WALLCO = GRND2
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP = 40 ;ISWC1 = 1
 LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
 SELREF = T
 RESFAC =1.0E-03
 ************************************************************
  Group 16. Terminate Iterations
 LITER(P1)=20 ;LITER(U1)=10
 LITER(V1)=10
 ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03
 ENDIT(V1)=1.0E-03
 ************************************************************
  Group 17. Relaxation
 RELAX(P1,LINRLX,0.5)
 RELAX(U1,FALSDT,1.)
 RELAX(V1,FALSDT,1.)
 RELAX(#FXV,LINRLX,1.)
 RELAX(#FXU,LINRLX,1.)
 RELAX(PRPS,LINRLX,1.)
 RELAX(OBID,LINRLX,1.)
 OVRRLX =0.
 EXPERT = F ;NNORSL = F
 ************************************************************
  Group 18. Limits
 VARMAX(P1)=1.0E+10 ;VARMIN(P1)=-1.0E+10
 VARMAX(U1)=1.0E+06 ;VARMIN(U1)=-1.0E+06
 VARMAX(V1)=1.0E+06 ;VARMIN(V1)=-1.0E+06
 VARMAX(#FXV)=1.0E+10 ;VARMIN(#FXV)=-1.0E+10
 VARMAX(#FXU)=1.0E+10 ;VARMIN(#FXU)=-1.0E+10
 VARMAX(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10
 VARMAX(OBID)=1.0E+10 ;VARMIN(OBID)=-1.0E+10
 ************************************************************
  Group 19. Data transmitted to GROUND
 ISG62 = 0
 SPEDAT(SET,DOMAIN,PHASE_1_MAT,I,0)
 SPEDAT(SET,MOFOR,LMOFOR,C,T)
 SPEDAT(SET,MOFOR,MOFFILE,C,NOTSET)
 SPEDAT(SET,GXMONI,TRANSIENT,L,F)
 SPEDAT(SET,MOVOB,CHAM,C,=OFFSET(0&0&0))
 SPEDAT(SET,MOVOB,CYLINDR,C,=OFFSET(0.3&0.7&0)!PARENT=CHAM)
 SPEDAT(SET,MOVOB,CYLINDR,C,=POS(.6*TIM&0&0&0&0&-TIM*180&0&0&0&0))
 SPEDAT(SET,OBJNAM,^OB1,C,CYLINDR)
 SPEDAT(SET,OBJTYP,^OB1,C,BLOCKAGE)
 SPEDAT(SET,CYLINDR,MATERIAL,R,-1.)
 SPEDAT(SET,OBJNAM,^OB2,C,PRESS)
 SPEDAT(SET,OBJTYP,^OB2,C,PRESSURE_RELIEF)
 SPEDAT(SET,OBJNAM,^P-REL1,C,PRESS)
 SPEDAT(SET,OBJTYP,^P-REL1,C,USER_DEFINED)
 SPEDAT(SET,FACETDAT,NUMOBJ,I,2)
 ************************************************************
  Group 20. Preliminary Printout
 DISTIL = T ;NULLPR = F
 NDST = 0
 DSTTOL =1.0E-02
 EX(P1)=0.0421 ;EX(U1)=0.08596
 EX(V1)=0.048 ;EX(#FXV)=1.767E-03
 EX(#FXU)=7.35E-03 ;EX(PRPS)=1.
 EX(OBID)=0.044
 ************************************************************
  Group 21. Print-out of Variables
 INIFLD = F ;SUBWGR = F
    * Y in OUTPUT argument list denotes:
    * 1-field 2-correction-eq. monitor 3-selective dumping      
    * 4-whole-field residual 5-spot-value table 6-residual table
 OUTPUT(P1,Y,N,Y,Y,Y,Y)
 OUTPUT(U1,Y,N,Y,Y,Y,Y)
 OUTPUT(V1,Y,N,Y,Y,Y,Y)
 OUTPUT(#FXV,Y,N,Y,N,N,N)
 OUTPUT(#FXU,Y,N,Y,N,N,N)
 OUTPUT(PRPS,Y,N,Y,N,N,N)
 OUTPUT(OBID,Y,N,Y,N,N,N)
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON = 50 ;IYMON = 35 ;IZMON = 1
 NPRMON = 100000 ;NPRMNT = 1 ;TSTSWP = -1
 UWATCH = T ;USTEER = T
 HIGHLO = F
 ************************************************************
  Group 23.Field Print-Out & Plot Control
 NPRINT = 100000 ;NUMCLS = 5
 NTPRIN = 100000 ;ISTPRF = 1 ;ISTPRL = 10000
 NXPRIN = -1 ;IXPRF = 1 ;IXPRL = 10000
 NYPRIN = -1 ;IYPRF = 1 ;IYPRL = 10000
 IPLTF = 1 ;IPLTL = -1 ;NPLT = -1
 ISWPRF = 1 ;ISWPRL = 100000
 ITABL = 3 ;IPROF = 1
 ABSIZ =0.5 ;ORSIZ =0.4
 NTZPRF = 1 ;NCOLPF = 50
 ICHR = 2 ;NCOLCO = 45 ;NROWCO = 20
   No PATCHes yet used for this Group
 ************************************************************
  Group 24. Dumps For Restarts
 SAVE = T ;NOWIPE = F
 NSAVE =CHAM
 IDISPA = 1 ;IDISPB = 0 ;IDISPC = 0
 CSG1    ='M'
STOP