TALK=T;RUN(1,1)
 ************************************************************
  Group 1. Run Title and Number
 ************************************************************
 ************************************************************
 
 TEXT(Lecture theatre: I204                   )
 
 ************************************************************
 ************************************************************
 
 IRUNN = 1 ;LIBREF = 0
 ************************************************************
  Group 2. Time dependence
 STEADY = T
 ************************************************************
  Group 3. X-Direction Grid Spacing
 CARTES = T
 NX = 70
 XULAST =18.
 XFRAC(1)=0.015833 ;XFRAC(2)=0.031667
 XFRAC(3)=0.0475 ;XFRAC(4)=0.063333
 XFRAC(5)=0.079167 ;XFRAC(6)=0.095
 XFRAC(7)=0.110833 ;XFRAC(8)=0.126667
 XFRAC(9)=0.139631 ;XFRAC(10)=0.152596
 XFRAC(11)=0.165561 ;XFRAC(12)=0.178526
 XFRAC(13)=0.19149 ;XFRAC(14)=0.205872
 XFRAC(15)=0.220253 ;XFRAC(16)=0.234634
 XFRAC(17)=0.249015 ;XFRAC(18)=0.263397
 XFRAC(19)=0.277778 ;XFRAC(20)=0.292222
 XFRAC(21)=0.306667 ;XFRAC(22)=0.321111
 XFRAC(23)=0.335556 ;XFRAC(24)=0.35
 XFRAC(25)=0.363333 ;XFRAC(26)=0.376667
 XFRAC(27)=0.39 ;XFRAC(28)=0.403333
 XFRAC(29)=0.416667 ;XFRAC(30)=0.43125
 XFRAC(31)=0.445833 ;XFRAC(32)=0.460417
 XFRAC(33)=0.475 ;XFRAC(34)=0.489583
 XFRAC(35)=0.504167 ;XFRAC(36)=0.51875
 XFRAC(37)=0.533333 ;XFRAC(38)=0.546667
 XFRAC(39)=0.56 ;XFRAC(40)=0.573333
 XFRAC(41)=0.586667 ;XFRAC(42)=0.6
 XFRAC(43)=0.614444 ;XFRAC(44)=0.628889
 XFRAC(45)=0.643333 ;XFRAC(46)=0.657778
 XFRAC(47)=0.670667 ;XFRAC(48)=0.683556
 XFRAC(49)=0.696444 ;XFRAC(50)=0.709333
 XFRAC(51)=0.722222 ;XFRAC(52)=0.736111
 XFRAC(53)=0.75 ;XFRAC(54)=0.763889
 XFRAC(55)=0.777778 ;XFRAC(56)=0.791667
 XFRAC(57)=0.805556 ;XFRAC(58)=0.821111
 XFRAC(59)=0.836667 ;XFRAC(60)=0.852222
 XFRAC(61)=0.867778 ;XFRAC(62)=0.883333
 XFRAC(63)=0.898889 ;XFRAC(64)=0.914444
 XFRAC(65)=0.93 ;XFRAC(66)=0.944
 XFRAC(67)=0.958 ;XFRAC(68)=0.972
 XFRAC(69)=0.986 ;XFRAC(70)=1.
 ************************************************************
  Group 4. Y-Direction Grid Spacing
 NY = 70
 YVLAST =16.
 YFRAC(1)=0.014732 ;YFRAC(2)=0.029464
 YFRAC(3)=0.044196 ;YFRAC(4)=0.058929
 YFRAC(5)=0.073661 ;YFRAC(6)=0.088393
 YFRAC(7)=0.103125 ;YFRAC(8)=0.117857
 YFRAC(9)=0.132589 ;YFRAC(10)=0.147321
 YFRAC(11)=0.162054 ;YFRAC(12)=0.176786
 YFRAC(13)=0.191518 ;YFRAC(14)=0.20625
 YFRAC(15)=0.21875 ;YFRAC(16)=0.23125
 YFRAC(17)=0.24375 ;YFRAC(18)=0.25625
 YFRAC(19)=0.26875 ;YFRAC(20)=0.282639
 YFRAC(21)=0.296528 ;YFRAC(22)=0.310417
 YFRAC(23)=0.324306 ;YFRAC(24)=0.338194
 YFRAC(25)=0.352083 ;YFRAC(26)=0.365972
 YFRAC(27)=0.379861 ;YFRAC(28)=0.39375
 YFRAC(29)=0.407639 ;YFRAC(30)=0.421528
 YFRAC(31)=0.435417 ;YFRAC(32)=0.449306
 YFRAC(33)=0.463194 ;YFRAC(34)=0.477083
 YFRAC(35)=0.490972 ;YFRAC(36)=0.504861
 YFRAC(37)=0.51875 ;YFRAC(38)=0.532639
 YFRAC(39)=0.546528 ;YFRAC(40)=0.560417
 YFRAC(41)=0.574306 ;YFRAC(42)=0.588194
 YFRAC(43)=0.602083 ;YFRAC(44)=0.615972
 YFRAC(45)=0.629861 ;YFRAC(46)=0.64375
 YFRAC(47)=0.657639 ;YFRAC(48)=0.671528
 YFRAC(49)=0.685417 ;YFRAC(50)=0.699306
 YFRAC(51)=0.713194 ;YFRAC(52)=0.727083
 YFRAC(53)=0.740972 ;YFRAC(54)=0.754861
 YFRAC(55)=0.76875 ;YFRAC(56)=0.784028
 YFRAC(57)=0.799306 ;YFRAC(58)=0.814583
 YFRAC(59)=0.829861 ;YFRAC(60)=0.845139
 YFRAC(61)=0.860417 ;YFRAC(62)=0.875694
 YFRAC(63)=0.890972 ;YFRAC(64)=0.90625
 YFRAC(65)=0.921875 ;YFRAC(66)=0.9375
 YFRAC(67)=0.953125 ;YFRAC(68)=0.96875
 YFRAC(69)=0.984375 ;YFRAC(70)=1.
 ************************************************************
  Group 5. Z-Direction Grid Spacing
 PARAB = F
 NZ = 33
 ZWLAST =5.99999
 ZFRAC(1)=0.038 ;ZFRAC(2)=0.076
 ZFRAC(3)=0.114 ;ZFRAC(4)=0.152
 ZFRAC(5)=0.19 ;ZFRAC(6)=0.226667
 ZFRAC(7)=0.263334 ;ZFRAC(8)=0.3
 ZFRAC(9)=0.336667 ;ZFRAC(10)=0.373334
 ZFRAC(11)=0.408667 ;ZFRAC(12)=0.444001
 ZFRAC(13)=0.479334 ;ZFRAC(14)=0.514668
 ZFRAC(15)=0.550001 ;ZFRAC(16)=0.602948
 ZFRAC(17)=0.6506 ;ZFRAC(18)=0.693487
 ZFRAC(19)=0.732086 ;ZFRAC(20)=0.766824
 ZFRAC(21)=0.798089 ;ZFRAC(22)=0.826227
 ZFRAC(23)=0.851551 ;ZFRAC(24)=0.874343
 ZFRAC(25)=0.894856 ;ZFRAC(26)=0.913317
 ZFRAC(27)=0.929933 ;ZFRAC(28)=0.944887
 ZFRAC(29)=0.958345 ;ZFRAC(30)=0.970457
 ZFRAC(31)=0.981359 ;ZFRAC(32)=0.99117
 ZFRAC(33)=1.
 ************************************************************
  Group 6. Body-Fitted Coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
 ONEPHS = T
 NAME(1)=P1 ;NAME(3)=U1
 NAME(5)=V1 ;NAME(7)=W1
 NAME(147)=NPOR ;NAME(148)=PRPS
 NAME(149)=DEN1 ;NAME(150)=TEM1
    * 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(W1,Y,Y,N,N,N,Y)
 SOLUTN(NPOR,Y,N,N,N,N,N)
 SOLUTN(PRPS,Y,N,N,N,N,N)
 SOLUTN(DEN1,Y,N,N,N,N,Y)
 SOLUTN(TEM1,Y,Y,Y,N,N,Y)
 DEN1 = 149
 EPOR = 0 ;HPOR = 0 ;NPOR = 147 ;VPOR = 0
 PRPS = 148
 ************************************************************
  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,Y,Y,Y)
 TERMS(U1,Y,Y,Y,Y,Y,Y)
 TERMS(V1,Y,Y,Y,Y,Y,Y)
 TERMS(W1,Y,Y,Y,Y,Y,Y)
 TERMS(TEM1,N,Y,Y,Y,Y,Y)
 DIFCUT =0.5 ;ZDIFAC =1.
 GALA = F ;ADDDIF = F
 NEWRH1 = T
 ISOLX = -1 ;ISOLY = -1 ;ISOLZ = -1
 ************************************************************
  Group 9. Properties used if PRPS is not
  stored, and where PRPS = -1.0 if it is!
 RHO1 = GRND5 ;TMP1 =0.
 EL1 =0.
 TSURR =0. ;TEMP0 =273.
 PRESS0 =1.0E+05
 DVO1DT =3.33E-03 ;DRH1DP = GRND5
 RHO1A =0. ;RHO1B =3.484E-03
 RHO1C =0.7143
 EMISS =0. ;SCATT =0.
 RADIA =0. ;RADIB =0.
 ENUL =1.0E-05 ;ENUT =1.0E-02
 PRNDTL(U1)=1. ;PRNDTL(V1)=1.
 PRNDTL(W1)=1. ;PRNDTL(TEM1)=-0.0263
 PRT(U1)=1. ;PRT(V1)=1.
 PRT(W1)=1. ;PRT(TEM1)=1.
 CP1 =1004. ;CP2 =1.
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initial field variables (PHIs)
 FIINIT(P1)=1. ;FIINIT(U1)=1.0E-02
 FIINIT(V1)=1.0E-02 ;FIINIT(W1)=1.0E-02
 FIINIT(NPOR)=1. ;FIINIT(PRPS)=-1.
 FIINIT(DEN1)=1.0E-10 ;FIINIT(TEM1)=19.
 
 PATCH(OB1 ,INIVAL, 1, 19, 20, 70, 1, 1, 1, 1)
 INIT(OB1 ,PRPS,0. ,198. )
 
 PATCH(OB2 ,INIVAL, 20, 51, 24, 64, 1, 2, 1, 1)
 INIT(OB2 ,PRPS,0. ,198. )
 
 PATCH(OB3 ,INIVAL, 1, 19, 29, 70, 2, 3, 1, 1)
 INIT(OB3 ,PRPS,0. ,198. )
 
 PATCH(OB4 ,INIVAL, 1, 19, 33, 70, 3, 4, 1, 1)
 INIT(OB4 ,PRPS,0. ,198. )
 
 PATCH(OB5 ,INIVAL, 1, 19, 38, 70, 4, 5, 1, 1)
 INIT(OB5 ,PRPS,0. ,198. )
 
 PATCH(OB6 ,INIVAL, 52, 70, 42, 70, 5, 5, 1, 1)
 INIT(OB6 ,PRPS,0. ,198. )
 
 PATCH(OB7 ,INIVAL, 52, 70, 47, 70, 6, 6, 1, 1)
 INIT(OB7 ,PRPS,0. ,198. )
 
 PATCH(OB8 ,INIVAL, 1, 19, 51, 70, 6, 7, 1, 1)
 INIT(OB8 ,PRPS,0. ,198. )
 
 PATCH(OB9 ,INIVAL, 1, 19, 56, 70, 7, 8, 1, 1)
 INIT(OB9 ,PRPS,0. ,198. )
 
 PATCH(OBA ,INIVAL, 20, 51, 19, 19, 1, 5, 1, 1)
 INIT(OBA ,NPOR,0. ,0. )
 
 PATCH(OBB ,INIVAL, 20, 51, 24, 24, 1, 6, 1, 1)
 INIT(OBB ,NPOR,0. ,0. )
 
 PATCH(OBC ,INIVAL, 20, 51, 33, 33, 3, 8, 1, 1)
 INIT(OBC ,NPOR,0. ,0. )
 
 PATCH(OBD ,INIVAL, 20, 51, 37, 37, 4, 9, 1, 1)
 INIT(OBD ,NPOR,0. ,0. )
 
 PATCH(OBE ,INIVAL, 20, 51, 42, 42, 5, 10, 1, 1)
 INIT(OBE ,NPOR,0. ,0. )
 
 PATCH(OBF ,INIVAL, 20, 51, 46, 46, 6, 10, 1, 1)
 INIT(OBF ,NPOR,0. ,0. )
 
 PATCH(OB10 ,INIVAL, 20, 51, 51, 51, 6, 11, 1, 1)
 INIT(OB10 ,NPOR,0. ,0. )
 
 PATCH(OB11 ,INIVAL, 20, 51, 55, 55, 7, 12, 1, 1)
 INIT(OB11 ,NPOR,0. ,0. )
 
 PATCH(OB12 ,INIVAL, 20, 51, 28, 28, 2, 7, 1, 1)
 INIT(OB12 ,NPOR,0. ,0. )
 
 PATCH(^OB13 ,INIVAL, 19, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB13 ,PRPS,0. ,198. )
 
 PATCH(^OB14 ,INIVAL, 20, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB14 ,PRPS,0. ,198. )
 
 PATCH(^OB15 ,INIVAL, 21, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB15 ,PRPS,0. ,198. )
 
 PATCH(^OB16 ,INIVAL, 22, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB16 ,PRPS,0. ,198. )
 
 PATCH(^OB17 ,INIVAL, 23, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB17 ,NPOR,0. ,0. )
 
 PATCH(^OB18 ,INIVAL, 24, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB18 ,PRPS,0. ,198. )
 
 PATCH(^OB19 ,INIVAL, 25, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB19 ,PRPS,0. ,198. )
 
 PATCH(^OB1A ,INIVAL, 26, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB1A ,PRPS,0. ,198. )
 
 PATCH(^OB1B ,INIVAL, 27, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB1B ,PRPS,0. ,198. )
 
 PATCH(^OB1C ,INIVAL, 28, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB1C ,PRPS,0. ,198. )
 
 PATCH(^OB1D ,INIVAL, 29, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB1D ,PRPS,0. ,198. )
 
 PATCH(^OB1E ,INIVAL, 30, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB1E ,PRPS,0. ,198. )
 
 PATCH(^OB1F ,INIVAL, 31, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB1F ,PRPS,0. ,198. )
 
 PATCH(^OB20 ,INIVAL, 32, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB20 ,PRPS,0. ,198. )
 
 PATCH(^OB21 ,INIVAL, 33, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB21 ,PRPS,0. ,198. )
 
 PATCH(^OB22 ,INIVAL, 34, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB22 ,PRPS,0. ,198. )
 
 PATCH(^OB23 ,INIVAL, 35, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB23 ,PRPS,0. ,198. )
 
 PATCH(^OB24 ,INIVAL, 36, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB24 ,PRPS,0. ,198. )
 
 PATCH(OB25 ,INIVAL, 52, 70, 56, 70, 7, 8, 1, 1)
 INIT(OB25 ,PRPS,0. ,198. )
 
 PATCH(OB26 ,INIVAL, 52, 70, 51, 70, 6, 7, 1, 1)
 INIT(OB26 ,PRPS,0. ,198. )
 
 PATCH(OB27 ,INIVAL, 20, 51, 47, 64, 6, 6, 1, 1)
 INIT(OB27 ,PRPS,0. ,198. )
 
 PATCH(OB28 ,INIVAL, 20, 51, 42, 64, 5, 5, 1, 1)
 INIT(OB28 ,PRPS,0. ,198. )
 
 PATCH(OB29 ,INIVAL, 52, 70, 38, 70, 4, 5, 1, 1)
 INIT(OB29 ,PRPS,0. ,198. )
 
 PATCH(OB2A ,INIVAL, 20, 51, 33, 64, 3, 4, 1, 1)
 INIT(OB2A ,PRPS,0. ,198. )
 
 PATCH(OB2B ,INIVAL, 20, 51, 29, 64, 2, 3, 1, 1)
 INIT(OB2B ,PRPS,0. ,198. )
 
 PATCH(OB2C ,INIVAL, 1, 19, 24, 70, 1, 2, 1, 1)
 INIT(OB2C ,PRPS,0. ,198. )
 
 PATCH(OB2D ,INIVAL, 20, 51, 20, 64, 1, 1, 1, 1)
 INIT(OB2D ,PRPS,0. ,198. )
 
 PATCH(OB2E ,INIVAL, 20, 51, 56, 64, 7, 8, 1, 1)
 INIT(OB2E ,PRPS,0. ,198. )
 
 PATCH(OB2F ,INIVAL, 20, 51, 51, 64, 6, 7, 1, 1)
 INIT(OB2F ,PRPS,0. ,198. )
 
 PATCH(OB30 ,INIVAL, 1, 19, 47, 70, 6, 6, 1, 1)
 INIT(OB30 ,PRPS,0. ,198. )
 
 PATCH(OB31 ,INIVAL, 1, 19, 42, 70, 5, 5, 1, 1)
 INIT(OB31 ,PRPS,0. ,198. )
 
 PATCH(OB32 ,INIVAL, 20, 51, 38, 64, 4, 5, 1, 1)
 INIT(OB32 ,PRPS,0. ,198. )
 
 PATCH(OB33 ,INIVAL, 52, 70, 33, 70, 3, 4, 1, 1)
 INIT(OB33 ,PRPS,0. ,198. )
 
 PATCH(OB34 ,INIVAL, 52, 70, 29, 70, 2, 3, 1, 1)
 INIT(OB34 ,PRPS,0. ,198. )
 
 PATCH(OB35 ,INIVAL, 52, 70, 24, 70, 1, 2, 1, 1)
 INIT(OB35 ,PRPS,0. ,198. )
 
 PATCH(OB36 ,INIVAL, 52, 70, 20, 70, 1, 1, 1, 1)
 INIT(OB36 ,PRPS,0. ,198. )
 
 PATCH(OB38 ,INIVAL, 25, 51, 65, 70, 1, 1, 1, 1)
 INIT(OB38 ,PRPS,0. ,198. )
 
 PATCH(OB39 ,INIVAL, 26, 51, 65, 70, 1, 2, 1, 1)
 INIT(OB39 ,PRPS,0. ,198. )
 
 PATCH(OB3A ,INIVAL, 27, 51, 65, 70, 2, 2, 1, 1)
 INIT(OB3A ,PRPS,0. ,198. )
 
 PATCH(OB3B ,INIVAL, 28, 51, 65, 70, 2, 3, 1, 1)
 INIT(OB3B ,PRPS,0. ,198. )
 
 PATCH(OB3C ,INIVAL, 30, 51, 65, 70, 3, 3, 1, 1)
 INIT(OB3C ,PRPS,0. ,198. )
 
 PATCH(OB3D ,INIVAL, 31, 51, 65, 70, 3, 4, 1, 1)
 INIT(OB3D ,PRPS,0. ,198. )
 
 PATCH(OB3E ,INIVAL, 32, 51, 65, 70, 4, 4, 1, 1)
 INIT(OB3E ,PRPS,0. ,198. )
 
 PATCH(OB3F ,INIVAL, 33, 51, 65, 70, 4, 5, 1, 1)
 INIT(OB3F ,PRPS,0. ,198. )
 
 PATCH(OB40 ,INIVAL, 38, 51, 65, 70, 5, 6, 1, 1)
 INIT(OB40 ,PRPS,0. ,198. )
 
 PATCH(OB41 ,INIVAL, 39, 51, 65, 70, 6, 6, 1, 1)
 INIT(OB41 ,PRPS,0. ,198. )
 
 PATCH(OB42 ,INIVAL, 40, 51, 65, 70, 6, 7, 1, 1)
 INIT(OB42 ,PRPS,0. ,198. )
 
 PATCH(OB43 ,INIVAL, 41, 51, 65, 70, 7, 7, 1, 1)
 INIT(OB43 ,PRPS,0. ,198. )
 
 PATCH(OB44 ,INIVAL, 43, 51, 65, 70, 7, 8, 1, 1)
 INIT(OB44 ,PRPS,0. ,198. )
 
 PATCH(^OB54 ,INIVAL, 84, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB54 ,PRPS,0. ,198. )
 
 PATCH(^OB55 ,INIVAL, 85, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB55 ,PRPS,0. ,198. )
 
 PATCH(^OB56 ,INIVAL, 86, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB56 ,PRPS,0. ,198. )
 
 PATCH(^OB57 ,INIVAL, 87, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB57 ,PRPS,0. ,198. )
 
 PATCH(^OB58 ,INIVAL, 88, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB58 ,PRPS,0. ,198. )
 
 PATCH(^OB59 ,INIVAL, 89, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB59 ,PRPS,0. ,198. )
 
 PATCH(^OB5A ,INIVAL, 90, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB5A ,PRPS,0. ,198. )
 
 PATCH(^OB5B ,INIVAL, 91, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB5B ,PRPS,0. ,198. )
 
 PATCH(^OB5C ,INIVAL, 92, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB5C ,PRPS,0. ,198. )
 
 PATCH(^OB5D ,INIVAL, 93, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB5D ,PRPS,0. ,109. )
 
 PATCH(^OB5E ,INIVAL, 94, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB5E ,PRPS,0. ,109. )
 
 PATCH(^OB5F ,INIVAL, 95, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB5F ,PRPS,0. ,109. )
 
 PATCH(^OB60 ,INIVAL, 96, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB60 ,PRPS,0. ,109. )
 
 PATCH(^OB61 ,INIVAL, 97, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB61 ,PRPS,0. ,109. )
 
 PATCH(^OB62 ,INIVAL, 98, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB62 ,PRPS,0. ,109. )
 
 PATCH(^OB63 ,INIVAL, 99, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB63 ,PRPS,0. ,109. )
 
 PATCH(^OB64 ,INIVAL, 100, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB64 ,PRPS,0. ,109. )
 
 PATCH(^OB65 ,INIVAL, 101, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB65 ,PRPS,0. ,109. )
 
 PATCH(^OB66 ,INIVAL, 102, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB66 ,PRPS,0. ,109. )
 
 PATCH(^OB67 ,INIVAL, 103, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB67 ,PRPS,0. ,109. )
 
 PATCH(^OB68 ,INIVAL, 104, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB68 ,PRPS,0. ,109. )
 
 PATCH(^OB69 ,INIVAL, 105, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB69 ,PRPS,0. ,109. )
 
 PATCH(^OB6A ,INIVAL, 106, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB6A ,PRPS,0. ,109. )
 
 PATCH(^OB6B ,INIVAL, 107, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB6B ,PRPS,0. ,109. )
 
 PATCH(^OB6C ,INIVAL, 108, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB6C ,PRPS,0. ,109. )
 
 PATCH(^OB6D ,INIVAL, 109, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB6D ,PRPS,0. ,109. )
 
 PATCH(^OB6E ,INIVAL, 110, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB6E ,PRPS,0. ,109. )
 
 PATCH(^OB6F ,INIVAL, 111, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB6F ,PRPS,0. ,109. )
 
 PATCH(^OB70 ,INIVAL, 112, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB70 ,PRPS,0. ,109. )
 
 PATCH(^OB71 ,INIVAL, 113, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB71 ,PRPS,0. ,109. )
 
 PATCH(^OB72 ,INIVAL, 114, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB72 ,PRPS,0. ,109. )
 
 PATCH(^OB73 ,INIVAL, 115, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB73 ,PRPS,0. ,109. )
 
 PATCH(^OB74 ,INIVAL, 116, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB74 ,PRPS,0. ,109. )
 
 PATCH(^OB75 ,INIVAL, 117, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB75 ,PRPS,0. ,109. )
 
 PATCH(^OB76 ,INIVAL, 118, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB76 ,PRPS,0. ,109. )
 
 PATCH(^OB77 ,INIVAL, 119, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB77 ,PRPS,0. ,109. )
 
 PATCH(^OB78 ,INIVAL, 120, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB78 ,PRPS,0. ,109. )
 
 PATCH(^OB79 ,INIVAL, 121, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB79 ,PRPS,0. ,109. )
 
 PATCH(^OB7A ,INIVAL, 122, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB7A ,PRPS,0. ,109. )
 
 PATCH(^OB7B ,INIVAL, 123, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB7B ,PRPS,0. ,109. )
 
 PATCH(^OB7C ,INIVAL, 124, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB7C ,PRPS,0. ,109. )
 
 PATCH(^OB7D ,INIVAL, 125, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB7D ,PRPS,0. ,109. )
 
 PATCH(^OB7E ,INIVAL, 126, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB7E ,PRPS,0. ,109. )
 
 PATCH(^OB7F ,INIVAL, 127, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB7F ,PRPS,0. ,109. )
 
 PATCH(^OB80 ,INIVAL, 128, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB80 ,PRPS,0. ,109. )
 
 PATCH(^OB81 ,INIVAL, 129, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB81 ,PRPS,0. ,109. )
 
 PATCH(^OB82 ,INIVAL, 130, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB82 ,PRPS,0. ,109. )
 
 PATCH(^OB83 ,INIVAL, 131, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB83 ,PRPS,0. ,109. )
 
 PATCH(^OB84 ,INIVAL, 132, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB84 ,PRPS,0. ,109. )
 
 PATCH(^OB85 ,INIVAL, 133, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB85 ,PRPS,0. ,109. )
 
 PATCH(^OB86 ,INIVAL, 134, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB86 ,PRPS,0. ,109. )
 
 PATCH(^OB87 ,INIVAL, 135, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB87 ,PRPS,0. ,109. )
 
 PATCH(^OB88 ,INIVAL, 136, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB88 ,PRPS,0. ,109. )
 
 PATCH(^OB89 ,INIVAL, 137, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB89 ,PRPS,0. ,109. )
 
 PATCH(^OB8A ,INIVAL, 138, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB8A ,PRPS,0. ,109. )
 
 PATCH(^OB8B ,INIVAL, 139, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB8B ,PRPS,0. ,109. )
 
 PATCH(^OB8C ,INIVAL, 140, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB8C ,PRPS,0. ,109. )
 
 PATCH(^OB8D ,INIVAL, 141, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB8D ,PRPS,0. ,109. )
 
 PATCH(^OB8E ,INIVAL, 142, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB8E ,PRPS,0. ,109. )
 
 PATCH(^OB8F ,INIVAL, 143, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB8F ,PRPS,0. ,109. )
 
 PATCH(^OB90 ,INIVAL, 144, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB90 ,PRPS,0. ,109. )
 
 PATCH(^OB91 ,INIVAL, 145, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB91 ,PRPS,0. ,109. )
 
 PATCH(^OB92 ,INIVAL, 146, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB92 ,PRPS,0. ,109. )
 
 PATCH(^OB93 ,INIVAL, 147, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB93 ,PRPS,0. ,109. )
 
 PATCH(^OB94 ,INIVAL, 148, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB94 ,PRPS,0. ,109. )
 
 PATCH(^OB95 ,INIVAL, 149, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB95 ,PRPS,0. ,109. )
 
 PATCH(^OB96 ,INIVAL, 150, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB96 ,PRPS,0. ,109. )
 
 PATCH(^OB97 ,INIVAL, 151, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB97 ,PRPS,0. ,109. )
 
 PATCH(^OB98 ,INIVAL, 152, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB98 ,PRPS,0. ,109. )
 
 PATCH(^OB99 ,INIVAL, 153, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB99 ,PRPS,0. ,109. )
 
 PATCH(^OB9A ,INIVAL, 154, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB9A ,PRPS,0. ,109. )
 
 PATCH(^OB9B ,INIVAL, 155, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB9B ,PRPS,0. ,109. )
 
 PATCH(^OB9C ,INIVAL, 156, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB9C ,PRPS,0. ,198. )
 
 PATCH(OB9D ,INIVAL, 20, 51, 22, 24, 1, 2, 1, 1)
 INIT(OB9D ,PRPS,0. ,198. )
 
 PATCH(OB9E ,INIVAL, 20, 51, 27, 28, 2, 3, 1, 1)
 INIT(OB9E ,PRPS,0. ,198. )
 
 PATCH(OB9F ,INIVAL, 20, 51, 31, 33, 3, 4, 1, 1)
 INIT(OB9F ,PRPS,0. ,198. )
 
 PATCH(OBA0 ,INIVAL, 20, 51, 36, 37, 4, 5, 1, 1)
 INIT(OBA0 ,PRPS,0. ,198. )
 
 PATCH(OBA1 ,INIVAL, 20, 51, 40, 42, 5, 6, 1, 1)
 INIT(OBA1 ,PRPS,0. ,198. )
 
 PATCH(OBA2 ,INIVAL, 20, 51, 45, 46, 6, 7, 1, 1)
 INIT(OBA2 ,PRPS,0. ,198. )
 
 PATCH(OBA3 ,INIVAL, 20, 51, 49, 51, 6, 8, 1, 1)
 INIT(OBA3 ,PRPS,0. ,198. )
 
 PATCH(OBA4 ,INIVAL, 20, 51, 54, 55, 7, 9, 1, 1)
 INIT(OBA4 ,PRPS,0. ,198. )
 
 PATCH(^OBA5 ,INIVAL, 165, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBA5 ,PRPS,0. ,109. )
 
 PATCH(^OBA6 ,INIVAL, 166, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBA6 ,PRPS,0. ,109. )
 
 PATCH(^OBA7 ,INIVAL, 167, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBA7 ,PRPS,0. ,109. )
 
 PATCH(OBA8 ,INIVAL, 20, 51, 18, 19, 1, 2, 1, 1)
 INIT(OBA8 ,PRPS,0. ,198. )
 
 PATCH(^OBA9 ,INIVAL, 169, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBA9 ,PRPS,0. ,198. )
 
 PATCH(^OBAA ,INIVAL, 170, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBAA ,PRPS,0. ,198. )
 
 PATCH(^OBAB ,INIVAL, 171, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBAB ,PRPS,0. ,198. )
 
 PATCH(^OBAC ,INIVAL, 172, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBAC ,PRPS,0. ,109. )
 
 PATCH(^OBAD ,INIVAL, 173, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBAD ,PRPS,0. ,109. )
 
 PATCH(^OBAE ,INIVAL, 174, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBAE ,PRPS,0. ,109. )
 
 PATCH(^OBAF ,INIVAL, 175, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBAF ,PRPS,0. ,198. )
 
 PATCH(^OBB0 ,INIVAL, 176, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBB0 ,PRPS,0. ,198. )
 
 PATCH(^OBB1 ,INIVAL, 177, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBB1 ,PRPS,0. ,109. )
 
 PATCH(^OBB2 ,INIVAL, 178, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBB2 ,PRPS,0. ,109. )
 
 PATCH(^OBB3 ,INIVAL, 179, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBB3 ,PRPS,0. ,109. )
 
 PATCH(^OBB4 ,INIVAL, 180, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBB4 ,PRPS,0. ,198. )
 
 PATCH(^OBB5 ,INIVAL, 181, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBB5 ,PRPS,0. ,198. )
 
 PATCH(^OBB6 ,INIVAL, 182, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBB6 ,PRPS,0. ,109. )
 
 PATCH(^OBB7 ,INIVAL, 183, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBB7 ,PRPS,0. ,109. )
 
 PATCH(^OBB8 ,INIVAL, 184, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBB8 ,PRPS,0. ,109. )
 
 PATCH(^OBB9 ,INIVAL, 185, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBB9 ,PRPS,0. ,198. )
 
 PATCH(^OBBA ,INIVAL, 186, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBBA ,PRPS,0. ,198. )
 
 PATCH(^OBBB ,INIVAL, 187, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBBB ,PRPS,0. ,109. )
 
 PATCH(^OBBC ,INIVAL, 188, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBBC ,PRPS,0. ,109. )
 
 PATCH(^OBBD ,INIVAL, 189, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBBD ,PRPS,0. ,109. )
 
 PATCH(^OBBE ,INIVAL, 190, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBBE ,PRPS,0. ,198. )
 
 PATCH(^OBBF ,INIVAL, 191, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBBF ,PRPS,0. ,198. )
 
 PATCH(^OBC0 ,INIVAL, 192, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBC0 ,PRPS,0. ,109. )
 
 PATCH(^OBC1 ,INIVAL, 193, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBC1 ,PRPS,0. ,109. )
 
 PATCH(^OBC2 ,INIVAL, 194, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBC2 ,PRPS,0. ,198. )
 
 PATCH(^OBC3 ,INIVAL, 195, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBC3 ,PRPS,0. ,198. )
 
 PATCH(^OBC4 ,INIVAL, 196, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBC4 ,PRPS,0. ,109. )
 
 PATCH(^OBC5 ,INIVAL, 197, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBC5 ,PRPS,0. ,109. )
 
 PATCH(^OBC6 ,INIVAL, 198, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBC6 ,PRPS,0. ,109. )
 
 PATCH(^OBC7 ,INIVAL, 199, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBC7 ,PRPS,0. ,198. )
 
 PATCH(^OBC8 ,INIVAL, 200, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBC8 ,PRPS,0. ,198. )
 
 PATCH(^OBC9 ,INIVAL, 201, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBC9 ,PRPS,0. ,109. )
 
 PATCH(^OBCA ,INIVAL, 202, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBCA ,PRPS,0. ,109. )
 
 PATCH(^OBCB ,INIVAL, 203, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBCB ,PRPS,0. ,198. )
 
 PATCH(^OBCC ,INIVAL, 204, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBCC ,PRPS,0. ,198. )
 
 PATCH(^OBCD ,INIVAL, 205, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBCD ,PRPS,0. ,109. )
 
 PATCH(^OBCE ,INIVAL, 206, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBCE ,PRPS,0. ,109. )
 
 PATCH(^OBCF ,INIVAL, 207, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBCF ,PRPS,0. ,109. )
 
 PATCH(^OBD0 ,INIVAL, 208, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBD0 ,PRPS,0. ,198. )
 
 PATCH(^OBD1 ,INIVAL, 209, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBD1 ,PRPS,0. ,198. )
 
 PATCH(^OBD2 ,INIVAL, 210, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBD2 ,PRPS,0. ,198. )
 
 PATCH(^OBD3 ,INIVAL, 211, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBD3 ,PRPS,0. ,198. )
 
 PATCH(^OBD4 ,INIVAL, 212, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBD4 ,PRPS,0. ,198. )
 
 PATCH(^OBD5 ,INIVAL, 213, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBD5 ,PRPS,0. ,198. )
 
 PATCH(^OBD6 ,INIVAL, 214, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBD6 ,PRPS,0. ,198. )
 
 PATCH(^OBD7 ,INIVAL, 215, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBD7 ,PRPS,0. ,198. )
 
 PATCH(^OBD8 ,INIVAL, 216, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBD8 ,PRPS,0. ,198. )
 
 PATCH(^OBD9 ,INIVAL, 217, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBD9 ,PRPS,0. ,198. )
 
 PATCH(^OBDA ,INIVAL, 218, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBDA ,PRPS,0. ,198. )
 
 PATCH(^OBDB ,INIVAL, 219, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBDB ,PRPS,0. ,198. )
 
 PATCH(^OBDC ,INIVAL, 220, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBDC ,PRPS,0. ,198. )
 
 PATCH(^OBDD ,INIVAL, 221, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBDD ,PRPS,0. ,198. )
 
 PATCH(^OBDE ,INIVAL, 222, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBDE ,PRPS,0. ,198. )
 
 PATCH(^OBDF ,INIVAL, 223, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBDF ,PRPS,0. ,198. )
 
 PATCH(^OBE0 ,INIVAL, 224, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBE0 ,PRPS,0. ,198. )
 
 PATCH(^OBE1 ,INIVAL, 225, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBE1 ,PRPS,0. ,109. )
 
 PATCH(^OBE2 ,INIVAL, 226, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBE2 ,PRPS,0. ,109. )
 
 PATCH(^OBE3 ,INIVAL, 227, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBE3 ,PRPS,0. ,109. )
 
 PATCH(^OBE4 ,INIVAL, 228, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBE4 ,PRPS,0. ,109. )
 
 PATCH(^OBE5 ,INIVAL, 229, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBE5 ,PRPS,0. ,109. )
 
 PATCH(^OBE6 ,INIVAL, 230, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBE6 ,PRPS,0. ,109. )
 
 PATCH(^OBE7 ,INIVAL, 231, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBE7 ,PRPS,0. ,109. )
 
 PATCH(^OBE8 ,INIVAL, 232, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBE8 ,PRPS,0. ,109. )
 
 PATCH(^OBE9 ,INIVAL, 233, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBE9 ,PRPS,0. ,109. )
 
 PATCH(^OBEA ,INIVAL, 234, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBEA ,PRPS,0. ,109. )
 
 PATCH(^OBEB ,INIVAL, 235, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBEB ,PRPS,0. ,109. )
 
 PATCH(^OBEC ,INIVAL, 236, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBEC ,PRPS,0. ,109. )
 
 PATCH(^OBED ,INIVAL, 237, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBED ,PRPS,0. ,109. )
 
 PATCH(^OBEE ,INIVAL, 238, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBEE ,PRPS,0. ,109. )
 
 PATCH(^OBEF ,INIVAL, 239, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBEF ,PRPS,0. ,109. )
 
 PATCH(^OBF0 ,INIVAL, 240, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBF0 ,PRPS,0. ,109. )
 
 PATCH(^OBF1 ,INIVAL, 241, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBF1 ,PRPS,0. ,109. )
 
 PATCH(^OBF2 ,INIVAL, 242, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBF2 ,PRPS,0. ,109. )
 
 PATCH(^OBF3 ,INIVAL, 243, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBF3 ,PRPS,0. ,109. )
 
 PATCH(^OBF4 ,INIVAL, 244, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBF4 ,PRPS,0. ,109. )
 
 PATCH(^OBF5 ,INIVAL, 245, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBF5 ,PRPS,0. ,109. )
 
 PATCH(^OBF6 ,INIVAL, 246, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBF6 ,PRPS,0. ,109. )
 
 PATCH(^OBF7 ,INIVAL, 247, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBF7 ,PRPS,0. ,109. )
 
 PATCH(^OBF8 ,INIVAL, 248, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBF8 ,PRPS,0. ,109. )
 
 PATCH(^OBF9 ,INIVAL, 249, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBF9 ,PRPS,0. ,109. )
 
 PATCH(^OBFA ,INIVAL, 250, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBFA ,PRPS,0. ,109. )
 
 PATCH(^OBFB ,INIVAL, 251, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBFB ,PRPS,0. ,109. )
 
 PATCH(OBFC ,INIVAL, 19, 19, 65, 70, 8, 33, 1, 1)
 INIT(OBFC ,PRPS,0. ,198. )
 
 PATCH(OBFD ,INIVAL, 19, 51, 64, 64, 8, 33, 1, 1)
 INIT(OBFD ,PRPS,0. ,198. )
 
 PATCH(OBFE ,INIVAL, 29, 29, 56, 64, 8, 33, 1, 1)
 INIT(OBFE ,PRPS,0. ,198. )
 
 PATCH(OBFF ,INIVAL, 29, 42, 56, 57, 8, 33, 1, 1)
 INIT(OBFF ,PRPS,0. ,198. )
 
 PATCH(OB100 ,INIVAL, 41, 42, 56, 60, 8, 33, 1, 1)
 INIT(OB100 ,PRPS,0. ,198. )
 
 PATCH(^OB101 ,INIVAL, 257, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB101 ,PRPS,0. ,109. )
 
 PATCH(^OB102 ,INIVAL, 258, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB102 ,PRPS,0. ,109. )
 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(BUOYANCY,PHASEM, 1, 70, 1, 70, 1, 33, 1, 1)
 COVAL(BUOYANCY,U1 , FIXFLU , GRND2 )
 COVAL(BUOYANCY,V1 , FIXFLU , GRND2 )
 COVAL(BUOYANCY,W1 , FIXFLU , GRND2 )
 
 PATCH(OBA-L ,NWALL , 20, 51, 19, 19, 1, 5, 1, 1)
 COVAL(OBA-L ,U1 , GRND2 ,0. )
 COVAL(OBA-L ,V1 , FIXVAL ,0. )
 COVAL(OBA-L ,W1 , GRND2 ,0. )
 
 PATCH(OBA-H ,SWALL , 20, 51, 20, 20, 1, 5, 1, 1)
 COVAL(OBA-H ,U1 , GRND2 ,0. )
 COVAL(OBA-H ,W1 , GRND2 ,0. )
 
 PATCH(OBB-L ,NWALL , 20, 51, 24, 24, 1, 6, 1, 1)
 COVAL(OBB-L ,U1 , GRND2 ,0. )
 COVAL(OBB-L ,V1 , FIXVAL ,0. )
 COVAL(OBB-L ,W1 , GRND2 ,0. )
 
 PATCH(OBB-H ,SWALL , 20, 51, 25, 25, 1, 6, 1, 1)
 COVAL(OBB-H ,U1 , GRND2 ,0. )
 COVAL(OBB-H ,W1 , GRND2 ,0. )
 
 PATCH(OBC-L ,NWALL , 20, 51, 33, 33, 3, 8, 1, 1)
 COVAL(OBC-L ,U1 , GRND2 ,0. )
 COVAL(OBC-L ,V1 , FIXVAL ,0. )
 COVAL(OBC-L ,W1 , GRND2 ,0. )
 
 PATCH(OBC-H ,SWALL , 20, 51, 34, 34, 3, 8, 1, 1)
 COVAL(OBC-H ,U1 , GRND2 ,0. )
 COVAL(OBC-H ,W1 , GRND2 ,0. )
 
 PATCH(OBD-L ,NWALL , 20, 51, 37, 37, 4, 9, 1, 1)
 COVAL(OBD-L ,U1 , GRND2 ,0. )
 COVAL(OBD-L ,V1 , FIXVAL ,0. )
 COVAL(OBD-L ,W1 , GRND2 ,0. )
 
 PATCH(OBD-H ,SWALL , 20, 51, 38, 38, 4, 9, 1, 1)
 COVAL(OBD-H ,U1 , GRND2 ,0. )
 COVAL(OBD-H ,W1 , GRND2 ,0. )
 
 PATCH(OBE-L ,NWALL , 20, 51, 42, 42, 5, 10, 1, 1)
 COVAL(OBE-L ,U1 , GRND2 ,0. )
 COVAL(OBE-L ,V1 , FIXVAL ,0. )
 COVAL(OBE-L ,W1 , GRND2 ,0. )
 
 PATCH(OBE-H ,SWALL , 20, 51, 43, 43, 5, 10, 1, 1)
 COVAL(OBE-H ,U1 , GRND2 ,0. )
 COVAL(OBE-H ,W1 , GRND2 ,0. )
 
 PATCH(OBF-L ,NWALL , 20, 51, 46, 46, 6, 10, 1, 1)
 COVAL(OBF-L ,U1 , GRND2 ,0. )
 COVAL(OBF-L ,V1 , FIXVAL ,0. )
 COVAL(OBF-L ,W1 , GRND2 ,0. )
 
 PATCH(OBF-H ,SWALL , 20, 51, 47, 47, 6, 10, 1, 1)
 COVAL(OBF-H ,U1 , GRND2 ,0. )
 COVAL(OBF-H ,W1 , GRND2 ,0. )
 
 PATCH(OB10-L ,NWALL , 20, 51, 51, 51, 6, 11, 1, 1)
 COVAL(OB10-L ,U1 , GRND2 ,0. )
 COVAL(OB10-L ,V1 , FIXVAL ,0. )
 COVAL(OB10-L ,W1 , GRND2 ,0. )
 
 PATCH(OB10-H ,SWALL , 20, 51, 52, 52, 6, 11, 1, 1)
 COVAL(OB10-H ,U1 , GRND2 ,0. )
 COVAL(OB10-H ,W1 , GRND2 ,0. )
 
 PATCH(OB11-L ,NWALL , 20, 51, 55, 55, 7, 12, 1, 1)
 COVAL(OB11-L ,U1 , GRND2 ,0. )
 COVAL(OB11-L ,V1 , FIXVAL ,0. )
 COVAL(OB11-L ,W1 , GRND2 ,0. )
 
 PATCH(OB11-H ,SWALL , 20, 51, 56, 56, 7, 12, 1, 1)
 COVAL(OB11-H ,U1 , GRND2 ,0. )
 COVAL(OB11-H ,W1 , GRND2 ,0. )
 
 PATCH(OB12-L ,NWALL , 20, 51, 28, 28, 2, 7, 1, 1)
 COVAL(OB12-L ,U1 , GRND2 ,0. )
 COVAL(OB12-L ,V1 , FIXVAL ,0. )
 COVAL(OB12-L ,W1 , GRND2 ,0. )
 
 PATCH(OB12-H ,SWALL , 20, 51, 29, 29, 2, 7, 1, 1)
 COVAL(OB12-H ,U1 , GRND2 ,0. )
 COVAL(OB12-H ,W1 , GRND2 ,0. )
 
 PATCH(^OB17-L ,CELL , 23, 7, 0, 0, 0, 0, 1, 1)
 COVAL(^OB17-L ,U1 , GRND2 ,0. )
 COVAL(^OB17-L ,V1 , FIXVAL ,0. )
 COVAL(^OB17-L ,W1 , GRND2 ,0. )
 
 PATCH(^OB17-H ,CELL , 23, 8, 0, 0, 0, 0, 1, 1)
 COVAL(^OB17-H ,U1 , GRND2 ,0. )
 COVAL(^OB17-H ,W1 , GRND2 ,0. )
 
 PATCH(OB45 ,WEST , 1, 1, 1, 70, 33, 33, 1, 1)
 COVAL(OB45 ,P1 ,1000. ,0. )
 COVAL(OB45 ,U1 ,0. ,0. )
 COVAL(OB45 ,V1 ,0. ,0. )
 COVAL(OB45 ,W1 ,0. ,0. )
 COVAL(OB45 ,TEM1,0. , SAME )
 
 PATCH(OB46 ,EAST , 70, 70, 1, 70, 33, 33, 1, 1)
 COVAL(OB46 ,P1 ,1000. ,0. )
 COVAL(OB46 ,U1 ,0. ,0. )
 COVAL(OB46 ,V1 ,0. ,0. )
 COVAL(OB46 ,W1 ,0. ,0. )
 COVAL(OB46 ,TEM1,0. , SAME )
 
 PATCH(OB47 ,WWALL , 1, 1, 1, 70, 1, 33, 1, 1)
 COVAL(OB47 ,V1 , GRND2 ,0. )
 COVAL(OB47 ,W1 , GRND2 ,0. )
 
 PATCH(OB48 ,EWALL , 70, 70, 1, 70, 1, 33, 1, 1)
 COVAL(OB48 ,V1 , GRND2 ,0. )
 COVAL(OB48 ,W1 , GRND2 ,0. )
 
 PATCH(OB49 ,SWALL , 1, 70, 1, 1, 1, 33, 1, 1)
 COVAL(OB49 ,U1 , GRND2 ,0. )
 COVAL(OB49 ,W1 , GRND2 ,0. )
 
 PATCH(OB4A ,SOUTH , 1, 70, 1, 1, 33, 33, 1, 1)
 COVAL(OB4A ,P1 ,1000. ,0. )
 COVAL(OB4A ,U1 ,0. ,0. )
 COVAL(OB4A ,V1 ,0. ,0. )
 COVAL(OB4A ,W1 ,0. ,0. )
 COVAL(OB4A ,TEM1,0. , SAME )
 
 PATCH(OB4B ,NWALL , 1, 70, 70, 70, 1, 33, 1, 1)
 COVAL(OB4B ,U1 , GRND2 ,0. )
 COVAL(OB4B ,W1 , GRND2 ,0. )
 
 PATCH(OB4C ,NORTH , 1, 70, 70, 70, 33, 33, 1, 1)
 COVAL(OB4C ,P1 ,1000. ,0. )
 COVAL(OB4C ,U1 ,0. ,0. )
 COVAL(OB4C ,V1 ,0. ,0. )
 COVAL(OB4C ,W1 ,0. ,0. )
 COVAL(OB4C ,TEM1,0. , SAME )
 
 PATCH(OB4D ,LWALL , 1, 70, 15, 19, 1, 1, 1, 1)
 COVAL(OB4D ,U1 , GRND2 ,0. )
 COVAL(OB4D ,V1 , GRND2 ,0. )
 
 PATCH(OB4E ,SOUTH , 30, 40, 1, 1, 9, 15, 1, 1)
 COVAL(OB4E ,P1 , FIXFLU ,0.190904 )
 COVAL(OB4E ,U1 ,0. ,0. )
 COVAL(OB4E ,V1 ,0. ,0.16 )
 COVAL(OB4E ,W1 ,0. ,0. )
 COVAL(OB4E ,TEM1,0. ,19. )
 
 PATCH(OB4F ,WEST , 1, 1, 1, 12, 9, 15, 1, 1)
 COVAL(OB4F ,P1 , FIXFLU ,0.190904 )
 COVAL(OB4F ,U1 ,0. ,0.16 )
 COVAL(OB4F ,V1 ,0. ,0. )
 COVAL(OB4F ,W1 ,0. ,0. )
 COVAL(OB4F ,TEM1,0. ,19. )
 
 PATCH(OB50 ,EAST , 70, 70, 1, 12, 9, 15, 1, 1)
 COVAL(OB50 ,P1 , FIXFLU ,0.190904 )
 COVAL(OB50 ,U1 ,0. ,-0.16 )
 COVAL(OB50 ,V1 ,0. ,0. )
 COVAL(OB50 ,W1 ,0. ,0. )
 COVAL(OB50 ,TEM1,0. ,19. )
 
 PATCH(OB51 ,NORTH , 1, 10, 70, 70, 9, 15, 1, 1)
 COVAL(OB51 ,P1 , FIXFLU ,0.190904 )
 COVAL(OB51 ,U1 ,0. ,0. )
 COVAL(OB51 ,V1 ,0. ,-0.16 )
 COVAL(OB51 ,W1 ,0. ,0. )
 COVAL(OB51 ,TEM1,0. ,19. )
 
 PATCH(OB52 ,NORTH , 61, 70, 70, 70, 9, 15, 1, 1)
 COVAL(OB52 ,P1 , FIXFLU ,0.190904 )
 COVAL(OB52 ,U1 ,0. ,0. )
 COVAL(OB52 ,V1 ,0. ,-0.16 )
 COVAL(OB52 ,W1 ,0. ,0. )
 COVAL(OB52 ,TEM1,0. ,19. )
 
 PATCH(OB53 ,LWALL , 1, 70, 1, 15, 1, 1, 1, 1)
 COVAL(OB53 ,U1 , GRND2 ,0. )
 COVAL(OB53 ,V1 , GRND2 ,0. )
 
 PATCH(^OC5D ,CELL , 93, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC5D ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC5E ,CELL , 94, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC5E ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC5F ,CELL , 95, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC5F ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC60 ,CELL , 96, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC60 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC61 ,CELL , 97, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC61 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC62 ,CELL , 98, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC62 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC63 ,CELL , 99, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC63 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC64 ,CELL , 100, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC64 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC65 ,CELL , 101, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC65 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC66 ,CELL , 102, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC66 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC67 ,CELL , 103, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC67 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC68 ,CELL , 104, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC68 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC69 ,CELL , 105, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC69 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC6A ,CELL , 106, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC6A ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC6B ,CELL , 107, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC6B ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC6C ,CELL , 108, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC6C ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC6D ,CELL , 109, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC6D ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC6E ,CELL , 110, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC6E ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC6F ,CELL , 111, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC6F ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC70 ,CELL , 112, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC70 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC71 ,CELL , 113, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC71 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC72 ,CELL , 114, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC72 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC73 ,CELL , 115, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC73 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC74 ,CELL , 116, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC74 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC75 ,CELL , 117, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC75 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC76 ,CELL , 118, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC76 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC77 ,CELL , 119, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC77 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC78 ,CELL , 120, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC78 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC79 ,CELL , 121, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC79 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC7A ,CELL , 122, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC7A ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC7B ,CELL , 123, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC7B ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC7C ,CELL , 124, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC7C ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC7D ,CELL , 125, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC7D ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC7E ,CELL , 126, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC7E ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC7F ,CELL , 127, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC7F ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC80 ,CELL , 128, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC80 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC81 ,CELL , 129, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC81 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC82 ,CELL , 130, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC82 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC83 ,CELL , 131, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC83 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC84 ,CELL , 132, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC84 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC85 ,CELL , 133, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC85 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC86 ,CELL , 134, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC86 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC87 ,CELL , 135, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC87 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC88 ,CELL , 136, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC88 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC89 ,CELL , 137, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC89 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC8A ,CELL , 138, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC8A ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC8B ,CELL , 139, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC8B ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC8C ,CELL , 140, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC8C ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC8D ,CELL , 141, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC8D ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC8E ,CELL , 142, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC8E ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC8F ,CELL , 143, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC8F ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC90 ,CELL , 144, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC90 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC91 ,CELL , 145, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC91 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC92 ,CELL , 146, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC92 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC93 ,CELL , 147, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC93 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC94 ,CELL , 148, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC94 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC95 ,CELL , 149, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC95 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC96 ,CELL , 150, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC96 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC97 ,CELL , 151, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC97 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC98 ,CELL , 152, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC98 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC99 ,CELL , 153, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC99 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC9A ,CELL , 154, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC9A ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC9B ,CELL , 155, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC9B ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCA5 ,CELL , 165, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCA5 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCA6 ,CELL , 166, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCA6 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCA7 ,CELL , 167, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCA7 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCAC ,CELL , 172, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCAC ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCAD ,CELL , 173, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCAD ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCAE ,CELL , 174, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCAE ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCB1 ,CELL , 177, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCB1 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCB2 ,CELL , 178, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCB2 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCB3 ,CELL , 179, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCB3 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCB6 ,CELL , 182, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCB6 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCB7 ,CELL , 183, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCB7 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCB8 ,CELL , 184, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCB8 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCBB ,CELL , 187, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCBB ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCBC ,CELL , 188, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCBC ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCBD ,CELL , 189, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCBD ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCC0 ,CELL , 192, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCC0 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCC1 ,CELL , 193, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCC1 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCC4 ,CELL , 196, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCC4 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCC5 ,CELL , 197, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCC5 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCC6 ,CELL , 198, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCC6 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCC9 ,CELL , 201, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCC9 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCCA ,CELL , 202, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCCA ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCCD ,CELL , 205, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCCD ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCCE ,CELL , 206, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCCE ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCCF ,CELL , 207, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCCF ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCE1 ,CELL , 225, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCE1 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCE2 ,CELL , 226, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCE2 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCE3 ,CELL , 227, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCE3 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCE4 ,CELL , 228, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCE4 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCE5 ,CELL , 229, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCE5 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCE6 ,CELL , 230, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCE6 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCE7 ,CELL , 231, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCE7 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCE8 ,CELL , 232, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCE8 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCE9 ,CELL , 233, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCE9 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCEA ,CELL , 234, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCEA ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCEB ,CELL , 235, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCEB ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCEC ,CELL , 236, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCEC ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCED ,CELL , 237, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCED ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCEE ,CELL , 238, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCEE ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCEF ,CELL , 239, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCEF ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCF0 ,CELL , 240, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCF0 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCF1 ,CELL , 241, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCF1 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCF2 ,CELL , 242, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCF2 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCF3 ,CELL , 243, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCF3 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCF4 ,CELL , 244, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCF4 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCF5 ,CELL , 245, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCF5 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCF6 ,CELL , 246, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCF6 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCF7 ,CELL , 247, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCF7 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCF8 ,CELL , 248, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCF8 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCF9 ,CELL , 249, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCF9 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCFA ,CELL , 250, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCFA ,TEM1, FIXFLU ,160. )
 
 PATCH(^OCFB ,CELL , 251, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OCFB ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC101 ,CELL , 257, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC101 ,TEM1, FIXFLU ,160. )
 
 PATCH(^OC102 ,CELL , 258, 19, 0, 0, 0, 0, 1, 1)
 COVAL(^OC102 ,TEM1, FIXFLU ,160. )
 XCYCLE = F
 EGWF = T
 WALLCO = GRND2
 BUOYA =0. ; BUOYB =0.
 BUOYC =-9.81
 BUOYD =1.276
 BUOYE =20.
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP = 1000 ;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 ;LITER(W1)=10
 LITER(TEM1)=20
 ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03
 ENDIT(V1)=1.0E-03 ;ENDIT(W1)=1.0E-03
 ENDIT(TEM1)=1.0E-03
 ************************************************************
  Group 17. Relaxation
 RELAX(P1,LINRLX,1.)
 RELAX(U1,FALSDT,0.1)
 RELAX(V1,FALSDT,0.1)
 RELAX(W1,FALSDT,0.1)
 RELAX(PRPS,LINRLX,1.)
 RELAX(DEN1,LINRLX,1.)
 RELAX(TEM1,FALSDT,100.)
 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(W1)=1.0E+06 ;VARMIN(W1)=-1.0E+06
 VARMAX(NPOR)=1.0E+10 ;VARMIN(NPOR)=-1.0E+10
 VARMAX(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10
 VARMAX(DEN1)=1.0E+10 ;VARMIN(DEN1)=-1.0E+10
 VARMAX(TEM1)=100. ;VARMIN(TEM1)=19.
 ************************************************************
  Group 19. Data transmitted to GROUND
 NAMGRD =FLAR
 PARSOL = F
 CONWIZ = T
 ISG62 = 1
 SPEDAT(SET,DOMAIN,PHASE_1_MAT,I,2)
 SPEDAT(SET,FACETDAT,NUMOBJ,I,258)
 SPEDAT(SET,MAXINC,KE,R,100.)
 SPEDAT(SET,OBJNAM,!OB1,C,B1)
 SPEDAT(SET,OBJTYP,!OB1,C,BLOCKAGE)
 SPEDAT(SET,B1,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB2,C,B2)
 SPEDAT(SET,OBJTYP,!OB2,C,BLOCKAGE)
 SPEDAT(SET,B2,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB3,C,B3)
 SPEDAT(SET,OBJTYP,!OB3,C,BLOCKAGE)
 SPEDAT(SET,B3,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB4,C,B4)
 SPEDAT(SET,OBJTYP,!OB4,C,BLOCKAGE)
 SPEDAT(SET,B4,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB5,C,B5)
 SPEDAT(SET,OBJTYP,!OB5,C,BLOCKAGE)
 SPEDAT(SET,B5,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB6,C,B6)
 SPEDAT(SET,OBJTYP,!OB6,C,BLOCKAGE)
 SPEDAT(SET,B6,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB7,C,B7)
 SPEDAT(SET,OBJTYP,!OB7,C,BLOCKAGE)
 SPEDAT(SET,B7,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB8,C,B8)
 SPEDAT(SET,OBJTYP,!OB8,C,BLOCKAGE)
 SPEDAT(SET,B8,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB9,C,B9)
 SPEDAT(SET,OBJTYP,!OB9,C,BLOCKAGE)
 SPEDAT(SET,B9,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OBA,C,B10)
 SPEDAT(SET,OBJTYP,!OBA,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBA-L,C,B10)
 SPEDAT(SET,OBJTYP,!OBA-L,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBA-H,C,B10)
 SPEDAT(SET,OBJTYP,!OBA-H,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBB,C,B11)
 SPEDAT(SET,OBJTYP,!OBB,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBB-L,C,B11)
 SPEDAT(SET,OBJTYP,!OBB-L,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBB-H,C,B11)
 SPEDAT(SET,OBJTYP,!OBB-H,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBC,C,B12)
 SPEDAT(SET,OBJTYP,!OBC,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBC-L,C,B12)
 SPEDAT(SET,OBJTYP,!OBC-L,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBC-H,C,B12)
 SPEDAT(SET,OBJTYP,!OBC-H,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBD,C,B13)
 SPEDAT(SET,OBJTYP,!OBD,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBD-L,C,B13)
 SPEDAT(SET,OBJTYP,!OBD-L,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBD-H,C,B13)
 SPEDAT(SET,OBJTYP,!OBD-H,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBE,C,B14)
 SPEDAT(SET,OBJTYP,!OBE,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBE-L,C,B14)
 SPEDAT(SET,OBJTYP,!OBE-L,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBE-H,C,B14)
 SPEDAT(SET,OBJTYP,!OBE-H,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBF,C,B15)
 SPEDAT(SET,OBJTYP,!OBF,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBF-L,C,B15)
 SPEDAT(SET,OBJTYP,!OBF-L,C,PLATE)
 SPEDAT(SET,OBJNAM,!OBF-H,C,B15)
 SPEDAT(SET,OBJTYP,!OBF-H,C,PLATE)
 SPEDAT(SET,OBJNAM,!OB10,C,B16)
 SPEDAT(SET,OBJTYP,!OB10,C,PLATE)
 SPEDAT(SET,OBJNAM,!OB10-L,C,B16)
 SPEDAT(SET,OBJTYP,!OB10-L,C,PLATE)
 SPEDAT(SET,OBJNAM,!OB10-H,C,B16)
 SPEDAT(SET,OBJTYP,!OB10-H,C,PLATE)
 SPEDAT(SET,OBJNAM,!OB11,C,B17)
 SPEDAT(SET,OBJTYP,!OB11,C,PLATE)
 SPEDAT(SET,OBJNAM,!OB11-L,C,B17)
 SPEDAT(SET,OBJTYP,!OB11-L,C,PLATE)
 SPEDAT(SET,OBJNAM,!OB11-H,C,B17)
 SPEDAT(SET,OBJTYP,!OB11-H,C,PLATE)
 SPEDAT(SET,OBJNAM,!OB12,C,B20)
 SPEDAT(SET,OBJTYP,!OB12,C,PLATE)
 SPEDAT(SET,OBJNAM,!OB12-L,C,B20)
 SPEDAT(SET,OBJTYP,!OB12-L,C,PLATE)
 SPEDAT(SET,OBJNAM,!OB12-H,C,B20)
 SPEDAT(SET,OBJTYP,!OB12-H,C,PLATE)
 SPEDAT(SET,OBJNAM,^OB13,C,B21)
 SPEDAT(SET,OBJTYP,^OB13,C,BLOCKAGE)
 SPEDAT(SET,B21,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB14,C,B22)
 SPEDAT(SET,OBJTYP,^OB14,C,BLOCKAGE)
 SPEDAT(SET,B22,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB15,C,B23)
 SPEDAT(SET,OBJTYP,^OB15,C,BLOCKAGE)
 SPEDAT(SET,B23,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB16,C,B24)
 SPEDAT(SET,OBJTYP,^OB16,C,BLOCKAGE)
 SPEDAT(SET,B24,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB17,C,B25)
 SPEDAT(SET,OBJTYP,^OB17,C,PLATE)
 SPEDAT(SET,OBJNAM,^OB17-L,C,B25)
 SPEDAT(SET,OBJTYP,^OB17-L,C,PLATE)
 SPEDAT(SET,OBJNAM,^OB17-H,C,B25)
 SPEDAT(SET,OBJTYP,^OB17-H,C,PLATE)
 SPEDAT(SET,OBJNAM,^OB18,C,B26)
 SPEDAT(SET,OBJTYP,^OB18,C,BLOCKAGE)
 SPEDAT(SET,B26,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB19,C,B27)
 SPEDAT(SET,OBJTYP,^OB19,C,BLOCKAGE)
 SPEDAT(SET,B27,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB1A,C,B28)
 SPEDAT(SET,OBJTYP,^OB1A,C,BLOCKAGE)
 SPEDAT(SET,B28,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB1B,C,B29)
 SPEDAT(SET,OBJTYP,^OB1B,C,BLOCKAGE)
 SPEDAT(SET,B29,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB1C,C,B33)
 SPEDAT(SET,OBJTYP,^OB1C,C,BLOCKAGE)
 SPEDAT(SET,B33,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB1D,C,B34)
 SPEDAT(SET,OBJTYP,^OB1D,C,BLOCKAGE)
 SPEDAT(SET,B34,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB1E,C,B35)
 SPEDAT(SET,OBJTYP,^OB1E,C,BLOCKAGE)
 SPEDAT(SET,B35,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB1F,C,B36)
 SPEDAT(SET,OBJTYP,^OB1F,C,BLOCKAGE)
 SPEDAT(SET,B36,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB20,C,B37)
 SPEDAT(SET,OBJTYP,^OB20,C,BLOCKAGE)
 SPEDAT(SET,B37,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB21,C,B38)
 SPEDAT(SET,OBJTYP,^OB21,C,BLOCKAGE)
 SPEDAT(SET,B38,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB22,C,B39)
 SPEDAT(SET,OBJTYP,^OB22,C,BLOCKAGE)
 SPEDAT(SET,B39,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB23,C,B40)
 SPEDAT(SET,OBJTYP,^OB23,C,BLOCKAGE)
 SPEDAT(SET,B40,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB24,C,B43)
 SPEDAT(SET,OBJTYP,^OB24,C,BLOCKAGE)
 SPEDAT(SET,B43,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB25,C,B44)
 SPEDAT(SET,OBJTYP,!OB25,C,BLOCKAGE)
 SPEDAT(SET,B44,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB26,C,B45)
 SPEDAT(SET,OBJTYP,!OB26,C,BLOCKAGE)
 SPEDAT(SET,B45,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB27,C,B46)
 SPEDAT(SET,OBJTYP,!OB27,C,BLOCKAGE)
 SPEDAT(SET,B46,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB28,C,B47)
 SPEDAT(SET,OBJTYP,!OB28,C,BLOCKAGE)
 SPEDAT(SET,B47,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB29,C,B48)
 SPEDAT(SET,OBJTYP,!OB29,C,BLOCKAGE)
 SPEDAT(SET,B48,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB2A,C,B49)
 SPEDAT(SET,OBJTYP,!OB2A,C,BLOCKAGE)
 SPEDAT(SET,B49,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB2B,C,B50)
 SPEDAT(SET,OBJTYP,!OB2B,C,BLOCKAGE)
 SPEDAT(SET,B50,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB2C,C,B51)
 SPEDAT(SET,OBJTYP,!OB2C,C,BLOCKAGE)
 SPEDAT(SET,B51,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB2D,C,B52)
 SPEDAT(SET,OBJTYP,!OB2D,C,BLOCKAGE)
 SPEDAT(SET,B52,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB2E,C,B53)
 SPEDAT(SET,OBJTYP,!OB2E,C,BLOCKAGE)
 SPEDAT(SET,B53,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB2F,C,B54)
 SPEDAT(SET,OBJTYP,!OB2F,C,BLOCKAGE)
 SPEDAT(SET,B54,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB30,C,B55)
 SPEDAT(SET,OBJTYP,!OB30,C,BLOCKAGE)
 SPEDAT(SET,B55,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB31,C,B56)
 SPEDAT(SET,OBJTYP,!OB31,C,BLOCKAGE)
 SPEDAT(SET,B56,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB32,C,B57)
 SPEDAT(SET,OBJTYP,!OB32,C,BLOCKAGE)
 SPEDAT(SET,B57,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB33,C,B58)
 SPEDAT(SET,OBJTYP,!OB33,C,BLOCKAGE)
 SPEDAT(SET,B58,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB34,C,B59)
 SPEDAT(SET,OBJTYP,!OB34,C,BLOCKAGE)
 SPEDAT(SET,B59,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB35,C,B60)
 SPEDAT(SET,OBJTYP,!OB35,C,BLOCKAGE)
 SPEDAT(SET,B60,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB36,C,B61)
 SPEDAT(SET,OBJTYP,!OB36,C,BLOCKAGE)
 SPEDAT(SET,B61,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB37,C,B62)
 SPEDAT(SET,OBJTYP,!OB37,C,PLATE)
 SPEDAT(SET,OBJNAM,!OB38,C,B80)
 SPEDAT(SET,OBJTYP,!OB38,C,BLOCKAGE)
 SPEDAT(SET,B80,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB39,C,B63)
 SPEDAT(SET,OBJTYP,!OB39,C,BLOCKAGE)
 SPEDAT(SET,B63,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB3A,C,B64)
 SPEDAT(SET,OBJTYP,!OB3A,C,BLOCKAGE)
 SPEDAT(SET,B64,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB3B,C,B65)
 SPEDAT(SET,OBJTYP,!OB3B,C,BLOCKAGE)
 SPEDAT(SET,B65,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB3C,C,B66)
 SPEDAT(SET,OBJTYP,!OB3C,C,BLOCKAGE)
 SPEDAT(SET,B66,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB3D,C,B67)
 SPEDAT(SET,OBJTYP,!OB3D,C,BLOCKAGE)
 SPEDAT(SET,B67,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB3E,C,B68)
 SPEDAT(SET,OBJTYP,!OB3E,C,BLOCKAGE)
 SPEDAT(SET,B68,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB3F,C,B69)
 SPEDAT(SET,OBJTYP,!OB3F,C,BLOCKAGE)
 SPEDAT(SET,B69,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB40,C,B70)
 SPEDAT(SET,OBJTYP,!OB40,C,BLOCKAGE)
 SPEDAT(SET,B70,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB41,C,B71)
 SPEDAT(SET,OBJTYP,!OB41,C,BLOCKAGE)
 SPEDAT(SET,B71,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB42,C,B72)
 SPEDAT(SET,OBJTYP,!OB42,C,BLOCKAGE)
 SPEDAT(SET,B72,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB43,C,B73)
 SPEDAT(SET,OBJTYP,!OB43,C,BLOCKAGE)
 SPEDAT(SET,B73,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB44,C,B74)
 SPEDAT(SET,OBJTYP,!OB44,C,BLOCKAGE)
 SPEDAT(SET,B74,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB45,C,OUT1)
 SPEDAT(SET,OBJTYP,!OB45,C,OPENING)
 SPEDAT(SET,ARATIO,!OB45,R,1.)
 SPEDAT(SET,OBJNAM,!OB46,C,OUT2)
 SPEDAT(SET,OBJTYP,!OB46,C,OPENING)
 SPEDAT(SET,ARATIO,!OB46,R,1.)
 SPEDAT(SET,OBJNAM,!OB47,C,WALL1)
 SPEDAT(SET,OBJTYP,!OB47,C,PLATE)
 SPEDAT(SET,OBJNAM,!OB48,C,WALL2)
 SPEDAT(SET,OBJTYP,!OB48,C,PLATE)
 SPEDAT(SET,OBJNAM,!OB49,C,WALL3)
 SPEDAT(SET,OBJTYP,!OB49,C,PLATE)
 SPEDAT(SET,OBJNAM,!OB4A,C,OUT3)
 SPEDAT(SET,OBJTYP,!OB4A,C,OPENING)
 SPEDAT(SET,ARATIO,!OB4A,R,1.)
 SPEDAT(SET,OBJNAM,!OB4B,C,WALL4)
 SPEDAT(SET,OBJTYP,!OB4B,C,PLATE)
 SPEDAT(SET,OBJNAM,!OB4C,C,OUT4)
 SPEDAT(SET,OBJTYP,!OB4C,C,OPENING)
 SPEDAT(SET,ARATIO,!OB4C,R,1.)
 SPEDAT(SET,OBJNAM,!OB4D,C,B83)
 SPEDAT(SET,OBJTYP,!OB4D,C,PLATE)
 SPEDAT(SET,OBJNAM,!OB4E,C,INLET1)
 SPEDAT(SET,OBJTYP,!OB4E,C,INLET)
 SPEDAT(SET,OBJNAM,!OB4F,C,INLET2)
 SPEDAT(SET,OBJTYP,!OB4F,C,INLET)
 SPEDAT(SET,OBJNAM,!OB50,C,INLET3)
 SPEDAT(SET,OBJTYP,!OB50,C,INLET)
 SPEDAT(SET,OBJNAM,!OB51,C,INLET4)
 SPEDAT(SET,OBJTYP,!OB51,C,INLET)
 SPEDAT(SET,OBJNAM,!OB52,C,INLET5)
 SPEDAT(SET,OBJTYP,!OB52,C,INLET)
 SPEDAT(SET,OBJNAM,!OB53,C,B89)
 SPEDAT(SET,OBJTYP,!OB53,C,PLATE)
 SPEDAT(SET,OBJNAM,^OB54,C,B90)
 SPEDAT(SET,OBJTYP,^OB54,C,BLOCKAGE)
 SPEDAT(SET,B90,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB55,C,B91)
 SPEDAT(SET,OBJTYP,^OB55,C,BLOCKAGE)
 SPEDAT(SET,B91,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB56,C,B92)
 SPEDAT(SET,OBJTYP,^OB56,C,BLOCKAGE)
 SPEDAT(SET,B92,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB57,C,B93)
 SPEDAT(SET,OBJTYP,^OB57,C,BLOCKAGE)
 SPEDAT(SET,B93,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB58,C,B94)
 SPEDAT(SET,OBJTYP,^OB58,C,BLOCKAGE)
 SPEDAT(SET,B94,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB59,C,B95)
 SPEDAT(SET,OBJTYP,^OB59,C,BLOCKAGE)
 SPEDAT(SET,B95,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB5A,C,B96)
 SPEDAT(SET,OBJTYP,^OB5A,C,BLOCKAGE)
 SPEDAT(SET,B96,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB5B,C,B97)
 SPEDAT(SET,OBJTYP,^OB5B,C,BLOCKAGE)
 SPEDAT(SET,B97,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB5C,C,B98)
 SPEDAT(SET,OBJTYP,^OB5C,C,BLOCKAGE)
 SPEDAT(SET,B98,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB5D,C,B100)
 SPEDAT(SET,OBJTYP,^OB5D,C,BLOCKAGE)
 SPEDAT(SET,B100,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC5D,C,B100)
 SPEDAT(SET,OBJTYP,^OC5D,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB5E,C,B103)
 SPEDAT(SET,OBJTYP,^OB5E,C,BLOCKAGE)
 SPEDAT(SET,B103,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC5E,C,B103)
 SPEDAT(SET,OBJTYP,^OC5E,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB5F,C,B105)
 SPEDAT(SET,OBJTYP,^OB5F,C,BLOCKAGE)
 SPEDAT(SET,B105,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC5F,C,B105)
 SPEDAT(SET,OBJTYP,^OC5F,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB60,C,B108)
 SPEDAT(SET,OBJTYP,^OB60,C,BLOCKAGE)
 SPEDAT(SET,B108,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC60,C,B108)
 SPEDAT(SET,OBJTYP,^OC60,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB61,C,B110)
 SPEDAT(SET,OBJTYP,^OB61,C,BLOCKAGE)
 SPEDAT(SET,B110,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC61,C,B110)
 SPEDAT(SET,OBJTYP,^OC61,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB62,C,B112)
 SPEDAT(SET,OBJTYP,^OB62,C,BLOCKAGE)
 SPEDAT(SET,B112,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC62,C,B112)
 SPEDAT(SET,OBJTYP,^OC62,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB63,C,B114)
 SPEDAT(SET,OBJTYP,^OB63,C,BLOCKAGE)
 SPEDAT(SET,B114,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC63,C,B114)
 SPEDAT(SET,OBJTYP,^OC63,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB64,C,B115)
 SPEDAT(SET,OBJTYP,^OB64,C,BLOCKAGE)
 SPEDAT(SET,B115,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC64,C,B115)
 SPEDAT(SET,OBJTYP,^OC64,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB65,C,B117)
 SPEDAT(SET,OBJTYP,^OB65,C,BLOCKAGE)
 SPEDAT(SET,B117,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC65,C,B117)
 SPEDAT(SET,OBJTYP,^OC65,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB66,C,B119)
 SPEDAT(SET,OBJTYP,^OB66,C,BLOCKAGE)
 SPEDAT(SET,B119,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC66,C,B119)
 SPEDAT(SET,OBJTYP,^OC66,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB67,C,B121)
 SPEDAT(SET,OBJTYP,^OB67,C,BLOCKAGE)
 SPEDAT(SET,B121,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC67,C,B121)
 SPEDAT(SET,OBJTYP,^OC67,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB68,C,B122)
 SPEDAT(SET,OBJTYP,^OB68,C,BLOCKAGE)
 SPEDAT(SET,B122,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC68,C,B122)
 SPEDAT(SET,OBJTYP,^OC68,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB69,C,B127)
 SPEDAT(SET,OBJTYP,^OB69,C,BLOCKAGE)
 SPEDAT(SET,B127,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC69,C,B127)
 SPEDAT(SET,OBJTYP,^OC69,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB6A,C,B129)
 SPEDAT(SET,OBJTYP,^OB6A,C,BLOCKAGE)
 SPEDAT(SET,B129,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC6A,C,B129)
 SPEDAT(SET,OBJTYP,^OC6A,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB6B,C,B131)
 SPEDAT(SET,OBJTYP,^OB6B,C,BLOCKAGE)
 SPEDAT(SET,B131,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC6B,C,B131)
 SPEDAT(SET,OBJTYP,^OC6B,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB6C,C,B134)
 SPEDAT(SET,OBJTYP,^OB6C,C,BLOCKAGE)
 SPEDAT(SET,B134,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC6C,C,B134)
 SPEDAT(SET,OBJTYP,^OC6C,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB6D,C,B135)
 SPEDAT(SET,OBJTYP,^OB6D,C,BLOCKAGE)
 SPEDAT(SET,B135,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC6D,C,B135)
 SPEDAT(SET,OBJTYP,^OC6D,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB6E,C,B137)
 SPEDAT(SET,OBJTYP,^OB6E,C,BLOCKAGE)
 SPEDAT(SET,B137,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC6E,C,B137)
 SPEDAT(SET,OBJTYP,^OC6E,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB6F,C,B139)
 SPEDAT(SET,OBJTYP,^OB6F,C,BLOCKAGE)
 SPEDAT(SET,B139,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC6F,C,B139)
 SPEDAT(SET,OBJTYP,^OC6F,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB70,C,B141)
 SPEDAT(SET,OBJTYP,^OB70,C,BLOCKAGE)
 SPEDAT(SET,B141,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC70,C,B141)
 SPEDAT(SET,OBJTYP,^OC70,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB71,C,B145)
 SPEDAT(SET,OBJTYP,^OB71,C,BLOCKAGE)
 SPEDAT(SET,B145,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC71,C,B145)
 SPEDAT(SET,OBJTYP,^OC71,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB72,C,B147)
 SPEDAT(SET,OBJTYP,^OB72,C,BLOCKAGE)
 SPEDAT(SET,B147,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC72,C,B147)
 SPEDAT(SET,OBJTYP,^OC72,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB73,C,B149)
 SPEDAT(SET,OBJTYP,^OB73,C,BLOCKAGE)
 SPEDAT(SET,B149,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC73,C,B149)
 SPEDAT(SET,OBJTYP,^OC73,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB74,C,B152)
 SPEDAT(SET,OBJTYP,^OB74,C,BLOCKAGE)
 SPEDAT(SET,B152,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC74,C,B152)
 SPEDAT(SET,OBJTYP,^OC74,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB75,C,B153)
 SPEDAT(SET,OBJTYP,^OB75,C,BLOCKAGE)
 SPEDAT(SET,B153,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC75,C,B153)
 SPEDAT(SET,OBJTYP,^OC75,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB76,C,B155)
 SPEDAT(SET,OBJTYP,^OB76,C,BLOCKAGE)
 SPEDAT(SET,B155,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC76,C,B155)
 SPEDAT(SET,OBJTYP,^OC76,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB77,C,B157)
 SPEDAT(SET,OBJTYP,^OB77,C,BLOCKAGE)
 SPEDAT(SET,B157,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC77,C,B157)
 SPEDAT(SET,OBJTYP,^OC77,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB78,C,B159)
 SPEDAT(SET,OBJTYP,^OB78,C,BLOCKAGE)
 SPEDAT(SET,B159,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC78,C,B159)
 SPEDAT(SET,OBJTYP,^OC78,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB79,C,B163)
 SPEDAT(SET,OBJTYP,^OB79,C,BLOCKAGE)
 SPEDAT(SET,B163,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC79,C,B163)
 SPEDAT(SET,OBJTYP,^OC79,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB7A,C,B165)
 SPEDAT(SET,OBJTYP,^OB7A,C,BLOCKAGE)
 SPEDAT(SET,B165,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC7A,C,B165)
 SPEDAT(SET,OBJTYP,^OC7A,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB7B,C,B167)
 SPEDAT(SET,OBJTYP,^OB7B,C,BLOCKAGE)
 SPEDAT(SET,B167,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC7B,C,B167)
 SPEDAT(SET,OBJTYP,^OC7B,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB7C,C,B170)
 SPEDAT(SET,OBJTYP,^OB7C,C,BLOCKAGE)
 SPEDAT(SET,B170,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC7C,C,B170)
 SPEDAT(SET,OBJTYP,^OC7C,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB7D,C,B171)
 SPEDAT(SET,OBJTYP,^OB7D,C,BLOCKAGE)
 SPEDAT(SET,B171,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC7D,C,B171)
 SPEDAT(SET,OBJTYP,^OC7D,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB7E,C,B173)
 SPEDAT(SET,OBJTYP,^OB7E,C,BLOCKAGE)
 SPEDAT(SET,B173,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC7E,C,B173)
 SPEDAT(SET,OBJTYP,^OC7E,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB7F,C,B175)
 SPEDAT(SET,OBJTYP,^OB7F,C,BLOCKAGE)
 SPEDAT(SET,B175,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC7F,C,B175)
 SPEDAT(SET,OBJTYP,^OC7F,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB80,C,B177)
 SPEDAT(SET,OBJTYP,^OB80,C,BLOCKAGE)
 SPEDAT(SET,B177,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC80,C,B177)
 SPEDAT(SET,OBJTYP,^OC80,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB81,C,B181)
 SPEDAT(SET,OBJTYP,^OB81,C,BLOCKAGE)
 SPEDAT(SET,B181,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC81,C,B181)
 SPEDAT(SET,OBJTYP,^OC81,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB82,C,B183)
 SPEDAT(SET,OBJTYP,^OB82,C,BLOCKAGE)
 SPEDAT(SET,B183,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC82,C,B183)
 SPEDAT(SET,OBJTYP,^OC82,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB83,C,B185)
 SPEDAT(SET,OBJTYP,^OB83,C,BLOCKAGE)
 SPEDAT(SET,B185,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC83,C,B185)
 SPEDAT(SET,OBJTYP,^OC83,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB84,C,B188)
 SPEDAT(SET,OBJTYP,^OB84,C,BLOCKAGE)
 SPEDAT(SET,B188,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC84,C,B188)
 SPEDAT(SET,OBJTYP,^OC84,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB85,C,B189)
 SPEDAT(SET,OBJTYP,^OB85,C,BLOCKAGE)
 SPEDAT(SET,B189,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC85,C,B189)
 SPEDAT(SET,OBJTYP,^OC85,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB86,C,B191)
 SPEDAT(SET,OBJTYP,^OB86,C,BLOCKAGE)
 SPEDAT(SET,B191,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC86,C,B191)
 SPEDAT(SET,OBJTYP,^OC86,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB87,C,B193)
 SPEDAT(SET,OBJTYP,^OB87,C,BLOCKAGE)
 SPEDAT(SET,B193,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC87,C,B193)
 SPEDAT(SET,OBJTYP,^OC87,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB88,C,B195)
 SPEDAT(SET,OBJTYP,^OB88,C,BLOCKAGE)
 SPEDAT(SET,B195,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC88,C,B195)
 SPEDAT(SET,OBJTYP,^OC88,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB89,C,B199)
 SPEDAT(SET,OBJTYP,^OB89,C,BLOCKAGE)
 SPEDAT(SET,B199,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC89,C,B199)
 SPEDAT(SET,OBJTYP,^OC89,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB8A,C,B201)
 SPEDAT(SET,OBJTYP,^OB8A,C,BLOCKAGE)
 SPEDAT(SET,B201,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC8A,C,B201)
 SPEDAT(SET,OBJTYP,^OC8A,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB8B,C,B203)
 SPEDAT(SET,OBJTYP,^OB8B,C,BLOCKAGE)
 SPEDAT(SET,B203,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC8B,C,B203)
 SPEDAT(SET,OBJTYP,^OC8B,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB8C,C,B206)
 SPEDAT(SET,OBJTYP,^OB8C,C,BLOCKAGE)
 SPEDAT(SET,B206,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC8C,C,B206)
 SPEDAT(SET,OBJTYP,^OC8C,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB8D,C,B207)
 SPEDAT(SET,OBJTYP,^OB8D,C,BLOCKAGE)
 SPEDAT(SET,B207,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC8D,C,B207)
 SPEDAT(SET,OBJTYP,^OC8D,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB8E,C,B209)
 SPEDAT(SET,OBJTYP,^OB8E,C,BLOCKAGE)
 SPEDAT(SET,B209,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC8E,C,B209)
 SPEDAT(SET,OBJTYP,^OC8E,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB8F,C,B211)
 SPEDAT(SET,OBJTYP,^OB8F,C,BLOCKAGE)
 SPEDAT(SET,B211,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC8F,C,B211)
 SPEDAT(SET,OBJTYP,^OC8F,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB90,C,B213)
 SPEDAT(SET,OBJTYP,^OB90,C,BLOCKAGE)
 SPEDAT(SET,B213,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC90,C,B213)
 SPEDAT(SET,OBJTYP,^OC90,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB91,C,B217)
 SPEDAT(SET,OBJTYP,^OB91,C,BLOCKAGE)
 SPEDAT(SET,B217,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC91,C,B217)
 SPEDAT(SET,OBJTYP,^OC91,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB92,C,B219)
 SPEDAT(SET,OBJTYP,^OB92,C,BLOCKAGE)
 SPEDAT(SET,B219,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC92,C,B219)
 SPEDAT(SET,OBJTYP,^OC92,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB93,C,B221)
 SPEDAT(SET,OBJTYP,^OB93,C,BLOCKAGE)
 SPEDAT(SET,B221,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC93,C,B221)
 SPEDAT(SET,OBJTYP,^OC93,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB94,C,B224)
 SPEDAT(SET,OBJTYP,^OB94,C,BLOCKAGE)
 SPEDAT(SET,B224,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC94,C,B224)
 SPEDAT(SET,OBJTYP,^OC94,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB95,C,B225)
 SPEDAT(SET,OBJTYP,^OB95,C,BLOCKAGE)
 SPEDAT(SET,B225,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC95,C,B225)
 SPEDAT(SET,OBJTYP,^OC95,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB96,C,B227)
 SPEDAT(SET,OBJTYP,^OB96,C,BLOCKAGE)
 SPEDAT(SET,B227,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC96,C,B227)
 SPEDAT(SET,OBJTYP,^OC96,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB97,C,B229)
 SPEDAT(SET,OBJTYP,^OB97,C,BLOCKAGE)
 SPEDAT(SET,B229,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC97,C,B229)
 SPEDAT(SET,OBJTYP,^OC97,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB98,C,B231)
 SPEDAT(SET,OBJTYP,^OB98,C,BLOCKAGE)
 SPEDAT(SET,B231,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC98,C,B231)
 SPEDAT(SET,OBJTYP,^OC98,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB99,C,B235)
 SPEDAT(SET,OBJTYP,^OB99,C,BLOCKAGE)
 SPEDAT(SET,B235,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC99,C,B235)
 SPEDAT(SET,OBJTYP,^OC99,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB9A,C,B237)
 SPEDAT(SET,OBJTYP,^OB9A,C,BLOCKAGE)
 SPEDAT(SET,B237,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC9A,C,B237)
 SPEDAT(SET,OBJTYP,^OC9A,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB9B,C,B239)
 SPEDAT(SET,OBJTYP,^OB9B,C,BLOCKAGE)
 SPEDAT(SET,B239,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC9B,C,B239)
 SPEDAT(SET,OBJTYP,^OC9B,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB9C,C,BENCH)
 SPEDAT(SET,OBJTYP,^OB9C,C,BLOCKAGE)
 SPEDAT(SET,BENCH,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB9D,C,B241)
 SPEDAT(SET,OBJTYP,!OB9D,C,BLOCKAGE)
 SPEDAT(SET,B241,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB9E,C,B242)
 SPEDAT(SET,OBJTYP,!OB9E,C,BLOCKAGE)
 SPEDAT(SET,B242,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB9F,C,B243)
 SPEDAT(SET,OBJTYP,!OB9F,C,BLOCKAGE)
 SPEDAT(SET,B243,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OBA0,C,B244)
 SPEDAT(SET,OBJTYP,!OBA0,C,BLOCKAGE)
 SPEDAT(SET,B244,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OBA1,C,B245)
 SPEDAT(SET,OBJTYP,!OBA1,C,BLOCKAGE)
 SPEDAT(SET,B245,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OBA2,C,B246)
 SPEDAT(SET,OBJTYP,!OBA2,C,BLOCKAGE)
 SPEDAT(SET,B246,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OBA3,C,B247)
 SPEDAT(SET,OBJTYP,!OBA3,C,BLOCKAGE)
 SPEDAT(SET,B247,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OBA4,C,B248)
 SPEDAT(SET,OBJTYP,!OBA4,C,BLOCKAGE)
 SPEDAT(SET,B248,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBA5,C,B251)
 SPEDAT(SET,OBJTYP,^OBA5,C,BLOCKAGE)
 SPEDAT(SET,B251,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCA5,C,B251)
 SPEDAT(SET,OBJTYP,^OCA5,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBA6,C,B253)
 SPEDAT(SET,OBJTYP,^OBA6,C,BLOCKAGE)
 SPEDAT(SET,B253,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCA6,C,B253)
 SPEDAT(SET,OBJTYP,^OCA6,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBA7,C,B255)
 SPEDAT(SET,OBJTYP,^OBA7,C,BLOCKAGE)
 SPEDAT(SET,B255,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCA7,C,B255)
 SPEDAT(SET,OBJTYP,^OCA7,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,!OBA8,C,B256)
 SPEDAT(SET,OBJTYP,!OBA8,C,BLOCKAGE)
 SPEDAT(SET,B256,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBA9,C,B257)
 SPEDAT(SET,OBJTYP,^OBA9,C,BLOCKAGE)
 SPEDAT(SET,B257,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBAA,C,B258)
 SPEDAT(SET,OBJTYP,^OBAA,C,BLOCKAGE)
 SPEDAT(SET,B258,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBAB,C,B259)
 SPEDAT(SET,OBJTYP,^OBAB,C,BLOCKAGE)
 SPEDAT(SET,B259,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBAC,C,B260)
 SPEDAT(SET,OBJTYP,^OBAC,C,BLOCKAGE)
 SPEDAT(SET,B260,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCAC,C,B260)
 SPEDAT(SET,OBJTYP,^OCAC,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBAD,C,B262)
 SPEDAT(SET,OBJTYP,^OBAD,C,BLOCKAGE)
 SPEDAT(SET,B262,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCAD,C,B262)
 SPEDAT(SET,OBJTYP,^OCAD,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBAE,C,B264)
 SPEDAT(SET,OBJTYP,^OBAE,C,BLOCKAGE)
 SPEDAT(SET,B264,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCAE,C,B264)
 SPEDAT(SET,OBJTYP,^OCAE,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBAF,C,B266)
 SPEDAT(SET,OBJTYP,^OBAF,C,BLOCKAGE)
 SPEDAT(SET,B266,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBB0,C,B267)
 SPEDAT(SET,OBJTYP,^OBB0,C,BLOCKAGE)
 SPEDAT(SET,B267,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBB1,C,B269)
 SPEDAT(SET,OBJTYP,^OBB1,C,BLOCKAGE)
 SPEDAT(SET,B269,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCB1,C,B269)
 SPEDAT(SET,OBJTYP,^OCB1,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBB2,C,B271)
 SPEDAT(SET,OBJTYP,^OBB2,C,BLOCKAGE)
 SPEDAT(SET,B271,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCB2,C,B271)
 SPEDAT(SET,OBJTYP,^OCB2,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBB3,C,B273)
 SPEDAT(SET,OBJTYP,^OBB3,C,BLOCKAGE)
 SPEDAT(SET,B273,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCB3,C,B273)
 SPEDAT(SET,OBJTYP,^OCB3,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBB4,C,B274)
 SPEDAT(SET,OBJTYP,^OBB4,C,BLOCKAGE)
 SPEDAT(SET,B274,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBB5,C,B275)
 SPEDAT(SET,OBJTYP,^OBB5,C,BLOCKAGE)
 SPEDAT(SET,B275,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBB6,C,B276)
 SPEDAT(SET,OBJTYP,^OBB6,C,BLOCKAGE)
 SPEDAT(SET,B276,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCB6,C,B276)
 SPEDAT(SET,OBJTYP,^OCB6,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBB7,C,B278)
 SPEDAT(SET,OBJTYP,^OBB7,C,BLOCKAGE)
 SPEDAT(SET,B278,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCB7,C,B278)
 SPEDAT(SET,OBJTYP,^OCB7,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBB8,C,B280)
 SPEDAT(SET,OBJTYP,^OBB8,C,BLOCKAGE)
 SPEDAT(SET,B280,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCB8,C,B280)
 SPEDAT(SET,OBJTYP,^OCB8,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBB9,C,B282)
 SPEDAT(SET,OBJTYP,^OBB9,C,BLOCKAGE)
 SPEDAT(SET,B282,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBBA,C,B283)
 SPEDAT(SET,OBJTYP,^OBBA,C,BLOCKAGE)
 SPEDAT(SET,B283,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBBB,C,B285)
 SPEDAT(SET,OBJTYP,^OBBB,C,BLOCKAGE)
 SPEDAT(SET,B285,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCBB,C,B285)
 SPEDAT(SET,OBJTYP,^OCBB,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBBC,C,B287)
 SPEDAT(SET,OBJTYP,^OBBC,C,BLOCKAGE)
 SPEDAT(SET,B287,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCBC,C,B287)
 SPEDAT(SET,OBJTYP,^OCBC,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBBD,C,B289)
 SPEDAT(SET,OBJTYP,^OBBD,C,BLOCKAGE)
 SPEDAT(SET,B289,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCBD,C,B289)
 SPEDAT(SET,OBJTYP,^OCBD,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBBE,C,B290)
 SPEDAT(SET,OBJTYP,^OBBE,C,BLOCKAGE)
 SPEDAT(SET,B290,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBBF,C,B291)
 SPEDAT(SET,OBJTYP,^OBBF,C,BLOCKAGE)
 SPEDAT(SET,B291,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBC0,C,B292)
 SPEDAT(SET,OBJTYP,^OBC0,C,BLOCKAGE)
 SPEDAT(SET,B292,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCC0,C,B292)
 SPEDAT(SET,OBJTYP,^OCC0,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBC1,C,B294)
 SPEDAT(SET,OBJTYP,^OBC1,C,BLOCKAGE)
 SPEDAT(SET,B294,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCC1,C,B294)
 SPEDAT(SET,OBJTYP,^OCC1,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBC2,C,B298)
 SPEDAT(SET,OBJTYP,^OBC2,C,BLOCKAGE)
 SPEDAT(SET,B298,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBC3,C,B299)
 SPEDAT(SET,OBJTYP,^OBC3,C,BLOCKAGE)
 SPEDAT(SET,B299,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBC4,C,B301)
 SPEDAT(SET,OBJTYP,^OBC4,C,BLOCKAGE)
 SPEDAT(SET,B301,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCC4,C,B301)
 SPEDAT(SET,OBJTYP,^OCC4,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBC5,C,B303)
 SPEDAT(SET,OBJTYP,^OBC5,C,BLOCKAGE)
 SPEDAT(SET,B303,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCC5,C,B303)
 SPEDAT(SET,OBJTYP,^OCC5,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBC6,C,B305)
 SPEDAT(SET,OBJTYP,^OBC6,C,BLOCKAGE)
 SPEDAT(SET,B305,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCC6,C,B305)
 SPEDAT(SET,OBJTYP,^OCC6,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBC7,C,B306)
 SPEDAT(SET,OBJTYP,^OBC7,C,BLOCKAGE)
 SPEDAT(SET,B306,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBC8,C,B307)
 SPEDAT(SET,OBJTYP,^OBC8,C,BLOCKAGE)
 SPEDAT(SET,B307,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBC9,C,B308)
 SPEDAT(SET,OBJTYP,^OBC9,C,BLOCKAGE)
 SPEDAT(SET,B308,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCC9,C,B308)
 SPEDAT(SET,OBJTYP,^OCC9,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBCA,C,B310)
 SPEDAT(SET,OBJTYP,^OBCA,C,BLOCKAGE)
 SPEDAT(SET,B310,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCCA,C,B310)
 SPEDAT(SET,OBJTYP,^OCCA,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBCB,C,B314)
 SPEDAT(SET,OBJTYP,^OBCB,C,BLOCKAGE)
 SPEDAT(SET,B314,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBCC,C,B315)
 SPEDAT(SET,OBJTYP,^OBCC,C,BLOCKAGE)
 SPEDAT(SET,B315,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBCD,C,B317)
 SPEDAT(SET,OBJTYP,^OBCD,C,BLOCKAGE)
 SPEDAT(SET,B317,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCCD,C,B317)
 SPEDAT(SET,OBJTYP,^OCCD,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBCE,C,B319)
 SPEDAT(SET,OBJTYP,^OBCE,C,BLOCKAGE)
 SPEDAT(SET,B319,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCCE,C,B319)
 SPEDAT(SET,OBJTYP,^OCCE,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBCF,C,B321)
 SPEDAT(SET,OBJTYP,^OBCF,C,BLOCKAGE)
 SPEDAT(SET,B321,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCCF,C,B321)
 SPEDAT(SET,OBJTYP,^OCCF,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBD0,C,B331)
 SPEDAT(SET,OBJTYP,^OBD0,C,BLOCKAGE)
 SPEDAT(SET,B331,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBD1,C,B332)
 SPEDAT(SET,OBJTYP,^OBD1,C,BLOCKAGE)
 SPEDAT(SET,B332,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBD2,C,B333)
 SPEDAT(SET,OBJTYP,^OBD2,C,BLOCKAGE)
 SPEDAT(SET,B333,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBD3,C,B334)
 SPEDAT(SET,OBJTYP,^OBD3,C,BLOCKAGE)
 SPEDAT(SET,B334,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBD4,C,B335)
 SPEDAT(SET,OBJTYP,^OBD4,C,BLOCKAGE)
 SPEDAT(SET,B335,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBD5,C,B336)
 SPEDAT(SET,OBJTYP,^OBD5,C,BLOCKAGE)
 SPEDAT(SET,B336,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBD6,C,B337)
 SPEDAT(SET,OBJTYP,^OBD6,C,BLOCKAGE)
 SPEDAT(SET,B337,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBD7,C,B338)
 SPEDAT(SET,OBJTYP,^OBD7,C,BLOCKAGE)
 SPEDAT(SET,B338,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBD8,C,B339)
 SPEDAT(SET,OBJTYP,^OBD8,C,BLOCKAGE)
 SPEDAT(SET,B339,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBD9,C,B341)
 SPEDAT(SET,OBJTYP,^OBD9,C,BLOCKAGE)
 SPEDAT(SET,B341,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBDA,C,B343)
 SPEDAT(SET,OBJTYP,^OBDA,C,BLOCKAGE)
 SPEDAT(SET,B343,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBDB,C,B344)
 SPEDAT(SET,OBJTYP,^OBDB,C,BLOCKAGE)
 SPEDAT(SET,B344,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBDC,C,B345)
 SPEDAT(SET,OBJTYP,^OBDC,C,BLOCKAGE)
 SPEDAT(SET,B345,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBDD,C,B346)
 SPEDAT(SET,OBJTYP,^OBDD,C,BLOCKAGE)
 SPEDAT(SET,B346,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBDE,C,B347)
 SPEDAT(SET,OBJTYP,^OBDE,C,BLOCKAGE)
 SPEDAT(SET,B347,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBDF,C,B348)
 SPEDAT(SET,OBJTYP,^OBDF,C,BLOCKAGE)
 SPEDAT(SET,B348,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBE0,C,B349)
 SPEDAT(SET,OBJTYP,^OBE0,C,BLOCKAGE)
 SPEDAT(SET,B349,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OBE1,C,B351)
 SPEDAT(SET,OBJTYP,^OBE1,C,BLOCKAGE)
 SPEDAT(SET,B351,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCE1,C,B351)
 SPEDAT(SET,OBJTYP,^OCE1,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBE2,C,B353)
 SPEDAT(SET,OBJTYP,^OBE2,C,BLOCKAGE)
 SPEDAT(SET,B353,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCE2,C,B353)
 SPEDAT(SET,OBJTYP,^OCE2,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBE3,C,B355)
 SPEDAT(SET,OBJTYP,^OBE3,C,BLOCKAGE)
 SPEDAT(SET,B355,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCE3,C,B355)
 SPEDAT(SET,OBJTYP,^OCE3,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBE4,C,B357)
 SPEDAT(SET,OBJTYP,^OBE4,C,BLOCKAGE)
 SPEDAT(SET,B357,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCE4,C,B357)
 SPEDAT(SET,OBJTYP,^OCE4,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBE5,C,B359)
 SPEDAT(SET,OBJTYP,^OBE5,C,BLOCKAGE)
 SPEDAT(SET,B359,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCE5,C,B359)
 SPEDAT(SET,OBJTYP,^OCE5,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBE6,C,B362)
 SPEDAT(SET,OBJTYP,^OBE6,C,BLOCKAGE)
 SPEDAT(SET,B362,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCE6,C,B362)
 SPEDAT(SET,OBJTYP,^OCE6,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBE7,C,B364)
 SPEDAT(SET,OBJTYP,^OBE7,C,BLOCKAGE)
 SPEDAT(SET,B364,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCE7,C,B364)
 SPEDAT(SET,OBJTYP,^OCE7,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBE8,C,B366)
 SPEDAT(SET,OBJTYP,^OBE8,C,BLOCKAGE)
 SPEDAT(SET,B366,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCE8,C,B366)
 SPEDAT(SET,OBJTYP,^OCE8,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBE9,C,B368)
 SPEDAT(SET,OBJTYP,^OBE9,C,BLOCKAGE)
 SPEDAT(SET,B368,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCE9,C,B368)
 SPEDAT(SET,OBJTYP,^OCE9,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBEA,C,B371)
 SPEDAT(SET,OBJTYP,^OBEA,C,BLOCKAGE)
 SPEDAT(SET,B371,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCEA,C,B371)
 SPEDAT(SET,OBJTYP,^OCEA,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBEB,C,B373)
 SPEDAT(SET,OBJTYP,^OBEB,C,BLOCKAGE)
 SPEDAT(SET,B373,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCEB,C,B373)
 SPEDAT(SET,OBJTYP,^OCEB,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBEC,C,B375)
 SPEDAT(SET,OBJTYP,^OBEC,C,BLOCKAGE)
 SPEDAT(SET,B375,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCEC,C,B375)
 SPEDAT(SET,OBJTYP,^OCEC,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBED,C,B377)
 SPEDAT(SET,OBJTYP,^OBED,C,BLOCKAGE)
 SPEDAT(SET,B377,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCED,C,B377)
 SPEDAT(SET,OBJTYP,^OCED,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBEE,C,B379)
 SPEDAT(SET,OBJTYP,^OBEE,C,BLOCKAGE)
 SPEDAT(SET,B379,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCEE,C,B379)
 SPEDAT(SET,OBJTYP,^OCEE,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBEF,C,B382)
 SPEDAT(SET,OBJTYP,^OBEF,C,BLOCKAGE)
 SPEDAT(SET,B382,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCEF,C,B382)
 SPEDAT(SET,OBJTYP,^OCEF,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBF0,C,B384)
 SPEDAT(SET,OBJTYP,^OBF0,C,BLOCKAGE)
 SPEDAT(SET,B384,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCF0,C,B384)
 SPEDAT(SET,OBJTYP,^OCF0,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBF1,C,B386)
 SPEDAT(SET,OBJTYP,^OBF1,C,BLOCKAGE)
 SPEDAT(SET,B386,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCF1,C,B386)
 SPEDAT(SET,OBJTYP,^OCF1,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBF2,C,B388)
 SPEDAT(SET,OBJTYP,^OBF2,C,BLOCKAGE)
 SPEDAT(SET,B388,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCF2,C,B388)
 SPEDAT(SET,OBJTYP,^OCF2,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBF3,C,B391)
 SPEDAT(SET,OBJTYP,^OBF3,C,BLOCKAGE)
 SPEDAT(SET,B391,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCF3,C,B391)
 SPEDAT(SET,OBJTYP,^OCF3,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBF4,C,B393)
 SPEDAT(SET,OBJTYP,^OBF4,C,BLOCKAGE)
 SPEDAT(SET,B393,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCF4,C,B393)
 SPEDAT(SET,OBJTYP,^OCF4,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBF5,C,B395)
 SPEDAT(SET,OBJTYP,^OBF5,C,BLOCKAGE)
 SPEDAT(SET,B395,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCF5,C,B395)
 SPEDAT(SET,OBJTYP,^OCF5,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBF6,C,B397)
 SPEDAT(SET,OBJTYP,^OBF6,C,BLOCKAGE)
 SPEDAT(SET,B397,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCF6,C,B397)
 SPEDAT(SET,OBJTYP,^OCF6,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBF7,C,B399)
 SPEDAT(SET,OBJTYP,^OBF7,C,BLOCKAGE)
 SPEDAT(SET,B399,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCF7,C,B399)
 SPEDAT(SET,OBJTYP,^OCF7,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBF8,C,B402)
 SPEDAT(SET,OBJTYP,^OBF8,C,BLOCKAGE)
 SPEDAT(SET,B402,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCF8,C,B402)
 SPEDAT(SET,OBJTYP,^OCF8,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBF9,C,B404)
 SPEDAT(SET,OBJTYP,^OBF9,C,BLOCKAGE)
 SPEDAT(SET,B404,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCF9,C,B404)
 SPEDAT(SET,OBJTYP,^OCF9,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBFA,C,B406)
 SPEDAT(SET,OBJTYP,^OBFA,C,BLOCKAGE)
 SPEDAT(SET,B406,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCFA,C,B406)
 SPEDAT(SET,OBJTYP,^OCFA,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OBFB,C,B408)
 SPEDAT(SET,OBJTYP,^OBFB,C,BLOCKAGE)
 SPEDAT(SET,B408,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OCFB,C,B408)
 SPEDAT(SET,OBJTYP,^OCFB,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,!OBFC,C,WAL0)
 SPEDAT(SET,OBJTYP,!OBFC,C,BLOCKAGE)
 SPEDAT(SET,WAL0,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OBFD,C,WAL1)
 SPEDAT(SET,OBJTYP,!OBFD,C,BLOCKAGE)
 SPEDAT(SET,WAL1,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OBFE,C,WAL2)
 SPEDAT(SET,OBJTYP,!OBFE,C,BLOCKAGE)
 SPEDAT(SET,WAL2,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OBFF,C,WAL3)
 SPEDAT(SET,OBJTYP,!OBFF,C,BLOCKAGE)
 SPEDAT(SET,WAL3,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,!OB100,C,WAL4)
 SPEDAT(SET,OBJTYP,!OB100,C,BLOCKAGE)
 SPEDAT(SET,WAL4,MATERIAL,R,198.)
 SPEDAT(SET,OBJNAM,^OB101,C,B261)
 SPEDAT(SET,OBJTYP,^OB101,C,BLOCKAGE)
 SPEDAT(SET,B261,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC101,C,B261)
 SPEDAT(SET,OBJTYP,^OC101,C,BLOCKAGE)
 SPEDAT(SET,OBJNAM,^OB102,C,B263)
 SPEDAT(SET,OBJTYP,^OB102,C,BLOCKAGE)
 SPEDAT(SET,B263,MATERIAL,R,109.)
 SPEDAT(SET,OBJNAM,^OC102,C,B263)
 SPEDAT(SET,OBJTYP,^OC102,C,BLOCKAGE)
 SPEDAT(SET,MATERIAL,198,L,T)
 SPEDAT(SET,MATERIAL,109,L,T)
 ************************************************************
  Group 20. Preliminary Printout
 ************************************************************
  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,Y,Y,N,Y,Y)
 OUTPUT(U1,Y,Y,Y,N,Y,Y)
 OUTPUT(V1,Y,Y,Y,N,Y,Y)
 OUTPUT(W1,Y,Y,Y,N,Y,Y)
 OUTPUT(NPOR,Y,N,Y,N,N,N)
 OUTPUT(PRPS,Y,N,Y,N,N,N)
 OUTPUT(DEN1,Y,N,Y,N,N,N)
 OUTPUT(TEM1,Y,N,Y,Y,Y,Y)
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON = 39 ;IYMON = 36 ;IZMON = 14
 NPRMON = 100000 ;NPRMNT = 1 ;TSTSWP = -1
 UWATCH = T ;USTEER = T
 HIGHLO = F
 ************************************************************
  Group 23.Field Print-Out & Plot Control
 NPRINT = 100000 ;NUMCLS = 5
 NXPRIN = -1 ;IXPRF = 1 ;IXPRL = 10000
 NYPRIN = -1 ;IYPRF = 1 ;IYPRL = 10000
 NZPRIN = -1 ;IZPRF = 1 ;IZPRL = 10000
 XZPR = F ;YZPR = F
 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
STOP