TALK=T;RUN(1,1)
  DISPLAY
  This case concerns two-dimensional, incompressible flow across
  a non-symmetric, 10% thick conventional aerofoil (referred to
  as the "Model A-airfoil"). The angle of attack is 0 degrees.
  The trailing edge is modified slightly from the original
  definition such that the aerofoil closes at chord=1 to give
  a sharp trailing edge.

  Calculations are made with the high-Re form of the
  Spalart-Allmaras model, using wall functions.
  ENDDIS
 ************************************************************
  Group 1. Run Title and Number
 ************************************************************
 ************************************************************
 
 TEXT(S-A Model-A Airfoil                     )
 
 ************************************************************
 ************************************************************
 
 IRUNN = 1 ;LIBREF = 0
 ************************************************************
  Group 2. Time dependence
 STEADY = T
 ************************************************************
  Group 3. X-Direction Grid Spacing
 CARTES = T
 NX = 241
 XULAST =6.
 XFRAC(1)=0.036988 ;XFRAC(2)=0.070613
 XFRAC(3)=0.101181 ;XFRAC(4)=0.12897
 XFRAC(5)=0.154233 ;XFRAC(6)=0.1772
 XFRAC(7)=0.198078 ;XFRAC(8)=0.217059
 XFRAC(9)=0.234314 ;XFRAC(10)=0.25
 XFRAC(11)=0.264924 ;XFRAC(12)=0.278492
 XFRAC(13)=0.290826 ;XFRAC(14)=0.302039
 XFRAC(15)=0.312232 ;XFRAC(16)=0.321499
 XFRAC(17)=0.329924 ;XFRAC(18)=0.337582
 XFRAC(19)=0.344544 ;XFRAC(20)=0.350874
 XFRAC(21)=0.356628 ;XFRAC(22)=0.361858
 XFRAC(23)=0.366614 ;XFRAC(24)=0.370937
 XFRAC(25)=0.374867 ;XFRAC(26)=0.37844
 XFRAC(27)=0.381688 ;XFRAC(28)=0.38464
 XFRAC(29)=0.387325 ;XFRAC(30)=0.389765
 XFRAC(31)=0.391983 ;XFRAC(32)=0.394
 XFRAC(33)=0.395833 ;XFRAC(34)=0.397425
 XFRAC(35)=0.398942 ;XFRAC(36)=0.400386
 XFRAC(37)=0.401761 ;XFRAC(38)=0.403071
 XFRAC(39)=0.404318 ;XFRAC(40)=0.405507
 XFRAC(41)=0.406638 ;XFRAC(42)=0.407716
 XFRAC(43)=0.408742 ;XFRAC(44)=0.409719
 XFRAC(45)=0.41065 ;XFRAC(46)=0.411537
 XFRAC(47)=0.412381 ;XFRAC(48)=0.413185
 XFRAC(49)=0.413951 ;XFRAC(50)=0.41468
 XFRAC(51)=0.415375 ;XFRAC(52)=0.416037
 XFRAC(53)=0.416667 ;XFRAC(54)=0.417297
 XFRAC(55)=0.417958 ;XFRAC(56)=0.418653
 XFRAC(57)=0.419382 ;XFRAC(58)=0.420148
 XFRAC(59)=0.420952 ;XFRAC(60)=0.421797
 XFRAC(61)=0.422683 ;XFRAC(62)=0.423614
 XFRAC(63)=0.424591 ;XFRAC(64)=0.425618
 XFRAC(65)=0.426695 ;XFRAC(66)=0.427827
 XFRAC(67)=0.429015 ;XFRAC(68)=0.430262
 XFRAC(69)=0.431572 ;XFRAC(70)=0.432947
 XFRAC(71)=0.434392 ;XFRAC(72)=0.435908
 XFRAC(73)=0.4375 ;XFRAC(74)=0.438997
 XFRAC(75)=0.44051 ;XFRAC(76)=0.442037
 XFRAC(77)=0.44358 ;XFRAC(78)=0.445138
 XFRAC(79)=0.446711 ;XFRAC(80)=0.448301
 XFRAC(81)=0.449906 ;XFRAC(82)=0.451527
 XFRAC(83)=0.453165 ;XFRAC(84)=0.454819
 XFRAC(85)=0.45649 ;XFRAC(86)=0.458177
 XFRAC(87)=0.459881 ;XFRAC(88)=0.461602
 XFRAC(89)=0.46334 ;XFRAC(90)=0.465096
 XFRAC(91)=0.466869 ;XFRAC(92)=0.46866
 XFRAC(93)=0.470469 ;XFRAC(94)=0.472296
 XFRAC(95)=0.474141 ;XFRAC(96)=0.476005
 XFRAC(97)=0.477887 ;XFRAC(98)=0.479788
 XFRAC(99)=0.481709 ;XFRAC(100)=0.483648
 XFRAC(101)=0.485607 ;XFRAC(102)=0.487585
 XFRAC(103)=0.489583 ;XFRAC(104)=0.491581
 XFRAC(105)=0.49356 ;XFRAC(106)=0.495519
 XFRAC(107)=0.497458 ;XFRAC(108)=0.499378
 XFRAC(109)=0.501279 ;XFRAC(110)=0.503162
 XFRAC(111)=0.505025 ;XFRAC(112)=0.506871
 XFRAC(113)=0.508698 ;XFRAC(114)=0.510507
 XFRAC(115)=0.512298 ;XFRAC(116)=0.514071
 XFRAC(117)=0.515827 ;XFRAC(118)=0.517565
 XFRAC(119)=0.519286 ;XFRAC(120)=0.52099
 XFRAC(121)=0.522677 ;XFRAC(122)=0.524348
 XFRAC(123)=0.526002 ;XFRAC(124)=0.527639
 XFRAC(125)=0.529261 ;XFRAC(126)=0.530866
 XFRAC(127)=0.532455 ;XFRAC(128)=0.534029
 XFRAC(129)=0.535587 ;XFRAC(130)=0.53713
 XFRAC(131)=0.538657 ;XFRAC(132)=0.540169
 XFRAC(133)=0.541667 ;XFRAC(134)=0.543301
 XFRAC(135)=0.544903 ;XFRAC(136)=0.546473
 XFRAC(137)=0.548013 ;XFRAC(138)=0.549523
 XFRAC(139)=0.551003 ;XFRAC(140)=0.552454
 XFRAC(141)=0.553877 ;XFRAC(142)=0.555271
 XFRAC(143)=0.556638 ;XFRAC(144)=0.557979
 XFRAC(145)=0.559293 ;XFRAC(146)=0.560582
 XFRAC(147)=0.561845 ;XFRAC(148)=0.563083
 XFRAC(149)=0.564297 ;XFRAC(150)=0.565488
 XFRAC(151)=0.566655 ;XFRAC(152)=0.567799
 XFRAC(153)=0.568921 ;XFRAC(154)=0.57002
 XFRAC(155)=0.571098 ;XFRAC(156)=0.572155
 XFRAC(157)=0.573192 ;XFRAC(158)=0.574208
 XFRAC(159)=0.575204 ;XFRAC(160)=0.57618
 XFRAC(161)=0.577137 ;XFRAC(162)=0.578076
 XFRAC(163)=0.578996 ;XFRAC(164)=0.579898
 XFRAC(165)=0.580783 ;XFRAC(166)=0.58165
 XFRAC(167)=0.5825 ;XFRAC(168)=0.583333
 XFRAC(169)=0.584023 ;XFRAC(170)=0.584727
 XFRAC(171)=0.585444 ;XFRAC(172)=0.586177
 XFRAC(173)=0.586923 ;XFRAC(174)=0.587685
 XFRAC(175)=0.588462 ;XFRAC(176)=0.589254
 XFRAC(177)=0.590062 ;XFRAC(178)=0.590887
 XFRAC(179)=0.591728 ;XFRAC(180)=0.592585
 XFRAC(181)=0.59346 ;XFRAC(182)=0.594353
 XFRAC(183)=0.595263 ;XFRAC(184)=0.596191
 XFRAC(185)=0.597138 ;XFRAC(186)=0.598104
 XFRAC(187)=0.599089 ;XFRAC(188)=0.600094
 XFRAC(189)=0.601119 ;XFRAC(190)=0.602165
 XFRAC(191)=0.603231 ;XFRAC(192)=0.604319
 XFRAC(193)=0.605429 ;XFRAC(194)=0.60656
 XFRAC(195)=0.607715 ;XFRAC(196)=0.608892
 XFRAC(197)=0.610093 ;XFRAC(198)=0.611318
 XFRAC(199)=0.612568 ;XFRAC(200)=0.613842
 XFRAC(201)=0.615142 ;XFRAC(202)=0.616468
 XFRAC(203)=0.617821 ;XFRAC(204)=0.6192
 XFRAC(205)=0.620607 ;XFRAC(206)=0.622043
 XFRAC(207)=0.623507 ;XFRAC(208)=0.625
 XFRAC(209)=0.626699 ;XFRAC(210)=0.628568
 XFRAC(211)=0.630624 ;XFRAC(212)=0.632886
 XFRAC(213)=0.635373 ;XFRAC(214)=0.63811
 XFRAC(215)=0.64112 ;XFRAC(216)=0.644431
 XFRAC(217)=0.648073 ;XFRAC(218)=0.652079
 XFRAC(219)=0.656486 ;XFRAC(220)=0.661334
 XFRAC(221)=0.666667 ;XFRAC(222)=0.672803
 XFRAC(223)=0.679554 ;XFRAC(224)=0.686979
 XFRAC(225)=0.695147 ;XFRAC(226)=0.704132
 XFRAC(227)=0.714015 ;XFRAC(228)=0.724887
 XFRAC(229)=0.736845 ;XFRAC(230)=0.75
 XFRAC(231)=0.763491 ;XFRAC(232)=0.778331
 XFRAC(233)=0.794655 ;XFRAC(234)=0.812611
 XFRAC(235)=0.832363 ;XFRAC(236)=0.85409
 XFRAC(237)=0.877989 ;XFRAC(238)=0.904279
 XFRAC(239)=0.933198 ;XFRAC(240)=0.965008
 XFRAC(241)=1.
 ************************************************************
  Group 4. Y-Direction Grid Spacing
 NY = 139
 YVLAST =5.
 YFRAC(1)=0.045029 ;YFRAC(2)=0.085964
 YFRAC(3)=0.123178 ;YFRAC(4)=0.157009
 YFRAC(5)=0.187764 ;YFRAC(6)=0.215723
 YFRAC(7)=0.241141 ;YFRAC(8)=0.264247
 YFRAC(9)=0.285254 ;YFRAC(10)=0.30435
 YFRAC(11)=0.321711 ;YFRAC(12)=0.337493
 YFRAC(13)=0.351841 ;YFRAC(14)=0.364884
 YFRAC(15)=0.376741 ;YFRAC(16)=0.387521
 YFRAC(17)=0.39732 ;YFRAC(18)=0.406229
 YFRAC(19)=0.414328 ;YFRAC(20)=0.42169
 YFRAC(21)=0.428384 ;YFRAC(22)=0.434468
 YFRAC(23)=0.44 ;YFRAC(24)=0.445119
 YFRAC(25)=0.449773 ;YFRAC(26)=0.454004
 YFRAC(27)=0.45785 ;YFRAC(28)=0.461346
 YFRAC(29)=0.464525 ;YFRAC(30)=0.467415
 YFRAC(31)=0.470042 ;YFRAC(32)=0.47243
 YFRAC(33)=0.474601 ;YFRAC(34)=0.476575
 YFRAC(35)=0.478369 ;YFRAC(36)=0.48
 YFRAC(37)=0.481613 ;YFRAC(38)=0.48315
 YFRAC(39)=0.484613 ;YFRAC(40)=0.486006
 YFRAC(41)=0.487333 ;YFRAC(42)=0.488597
 YFRAC(43)=0.489801 ;YFRAC(44)=0.490947
 YFRAC(45)=0.492039 ;YFRAC(46)=0.493079
 YFRAC(47)=0.49407 ;YFRAC(48)=0.495013
 YFRAC(49)=0.495911 ;YFRAC(50)=0.496766
 YFRAC(51)=0.497581 ;YFRAC(52)=0.498357
 YFRAC(53)=0.499096 ;YFRAC(54)=0.4998
 YFRAC(55)=0.500518 ;YFRAC(56)=0.501227
 YFRAC(57)=0.501927 ;YFRAC(58)=0.502619
 YFRAC(59)=0.503303 ;YFRAC(60)=0.503979
 YFRAC(61)=0.504646 ;YFRAC(62)=0.505306
 YFRAC(63)=0.505957 ;YFRAC(64)=0.506601
 YFRAC(65)=0.507237 ;YFRAC(66)=0.507865
 YFRAC(67)=0.508486 ;YFRAC(68)=0.509099
 YFRAC(69)=0.509705 ;YFRAC(70)=0.510304
 YFRAC(71)=0.510896 ;YFRAC(72)=0.511495
 YFRAC(73)=0.512101 ;YFRAC(74)=0.512714
 YFRAC(75)=0.513335 ;YFRAC(76)=0.513963
 YFRAC(77)=0.514599 ;YFRAC(78)=0.515243
 YFRAC(79)=0.515894 ;YFRAC(80)=0.516554
 YFRAC(81)=0.517221 ;YFRAC(82)=0.517897
 YFRAC(83)=0.518581 ;YFRAC(84)=0.519273
 YFRAC(85)=0.519973 ;YFRAC(86)=0.520682
 YFRAC(87)=0.5214 ;YFRAC(88)=0.522186
 YFRAC(89)=0.523012 ;YFRAC(90)=0.523879
 YFRAC(91)=0.524789 ;YFRAC(92)=0.525744
 YFRAC(93)=0.526748 ;YFRAC(94)=0.527801
 YFRAC(95)=0.528908 ;YFRAC(96)=0.530069
 YFRAC(97)=0.531289 ;YFRAC(98)=0.53257
 YFRAC(99)=0.533914 ;YFRAC(100)=0.535326
 YFRAC(101)=0.536809 ;YFRAC(102)=0.538366
 YFRAC(103)=0.54 ;YFRAC(104)=0.541749
 YFRAC(105)=0.543673 ;YFRAC(106)=0.545789
 YFRAC(107)=0.548117 ;YFRAC(108)=0.550677
 YFRAC(109)=0.553494 ;YFRAC(110)=0.556592
 YFRAC(111)=0.56 ;YFRAC(112)=0.563278
 YFRAC(113)=0.566885 ;YFRAC(114)=0.570852
 YFRAC(115)=0.575215 ;YFRAC(116)=0.580015
 YFRAC(117)=0.585295 ;YFRAC(118)=0.591103
 YFRAC(119)=0.597492 ;YFRAC(120)=0.60452
 YFRAC(121)=0.61225 ;YFRAC(122)=0.620753
 YFRAC(123)=0.630107 ;YFRAC(124)=0.640396
 YFRAC(125)=0.651715 ;YFRAC(126)=0.664164
 YFRAC(127)=0.677859 ;YFRAC(128)=0.692924
 YFRAC(129)=0.709494 ;YFRAC(130)=0.727722
 YFRAC(131)=0.747773 ;YFRAC(132)=0.769829
 YFRAC(133)=0.79409 ;YFRAC(134)=0.820778
 YFRAC(135)=0.850134 ;YFRAC(136)=0.882425
 YFRAC(137)=0.917946 ;YFRAC(138)=0.95702
 YFRAC(139)=1.
 ************************************************************
  Group 5. Z-Direction Grid Spacing
 PARAB = F
 NZ = 1
 ZWLAST =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(127)=PRPS
 NAME(128)=LTLS ;NAME(129)=ENTI
 NAME(130)=CP ;NAME(131)=SHRY
 NAME(132)=SHRX ;NAME(133)=CF
 NAME(134)=NENU ;NAME(135)=DWDY
 NAME(136)=DWDX ;NAME(137)=DVDZ
 NAME(138)=DUDZ ;NAME(139)=DVDX
 NAME(140)=DUDY ;NAME(141)=MACH
 NAME(142)=WDIS ;NAME(143)=VOR1
 NAME(144)=STRS ;NAME(145)=SKIN
 NAME(146)=YPLS ;NAME(147)=ENUL
 NAME(148)=DEN1 ;NAME(149)=EL1
 NAME(150)=ENUT
    * 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,Y,N,N,Y)
 SOLUTN(V1,Y,Y,Y,N,N,Y)
 SOLUTN(PRPS,Y,N,N,N,N,Y)
 SOLUTN(LTLS,Y,Y,Y,N,N,Y)
 SOLUTN(ENTI,Y,Y,Y,N,N,Y)
 SOLUTN(CP,Y,N,N,N,N,Y)
 SOLUTN(SHRY,Y,N,N,N,N,Y)
 SOLUTN(SHRX,Y,N,N,N,N,Y)
 SOLUTN(CF,Y,N,N,N,N,Y)
 SOLUTN(NENU,Y,N,N,N,N,Y)
 SOLUTN(DWDY,Y,N,N,N,N,Y)
 SOLUTN(DWDX,Y,N,N,N,N,Y)
 SOLUTN(DVDZ,Y,N,N,N,N,Y)
 SOLUTN(DUDZ,Y,N,N,N,N,Y)
 SOLUTN(DVDX,Y,N,N,N,N,Y)
 SOLUTN(DUDY,Y,N,N,N,N,Y)
 SOLUTN(MACH,Y,N,N,N,N,Y)
 SOLUTN(WDIS,Y,N,N,N,N,Y)
 SOLUTN(VOR1,Y,N,N,N,N,Y)
 SOLUTN(STRS,Y,N,N,N,N,Y)
 SOLUTN(SKIN,Y,N,N,N,N,Y)
 SOLUTN(YPLS,Y,N,N,N,N,Y)
 SOLUTN(ENUL,Y,N,N,N,N,Y)
 SOLUTN(DEN1,Y,N,N,N,N,Y)
 SOLUTN(EL1,Y,N,N,N,N,Y)
 SOLUTN(ENUT,Y,N,N,N,N,Y)
 DEN1 = 148
 VISL = 147
 VIST = 150
 LEN1 = 149
 PRPS = 127
 ************************************************************
  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)
 TERMS(LTLS,N,N,Y,N,Y,Y)
 TERMS(ENTI,N,Y,Y,Y,N,Y)
 DIFCUT =0.5 ;ZDIFAC =1.
 GALA = F ;ADDDIF = F
 NEWENT = 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.149994 ;PRESS0 =1.01325E+05
 DVO1DT =3.41E-03 ;DRH1DP =0.
 EMISS =0. ;SCATT =0.
 RADIA =0. ;RADIB =0.
 ENUL =1.544E-05 ;ENUT = GRND2
 ENUTA =0. ;ENUTB =0. ;ENUTC =0.
 IENUTA = 21
 PRNDTL(U1)=1. ;PRNDTL(V1)=1.
 PRNDTL(LTLS)=1. ;PRNDTL(ENTI)=0.666667
 PRT(U1)=1. ;PRT(V1)=1.
 PRT(LTLS)=1. ;PRT(ENTI)=0.666667
 CP1 =1005. ;CP2 =1.
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initial field variables (PHIs)
 FIINIT(P1)=0. ;FIINIT(U1)=1.0E-10
 FIINIT(V1)=1.0E-10 ;FIINIT(PRPS)=-1.
 FIINIT(LTLS)=1.0E-10 ;FIINIT(ENTI)=4.632E-05
 FIINIT(CP)=1.0E-10 ;FIINIT(SHRY)=1.0E-10
 FIINIT(SHRX)=1.0E-10 ;FIINIT(CF)=1.0E-10
 FIINIT(NENU)=1.0E-10 ;FIINIT(DWDY)=1.0E-10
 FIINIT(DWDX)=1.0E-10 ;FIINIT(DVDZ)=1.0E-10
 FIINIT(DUDZ)=1.0E-10 ;FIINIT(DVDX)=1.0E-10
 FIINIT(DUDY)=1.0E-10 ;FIINIT(MACH)=1.0E-10
 FIINIT(WDIS)=0.1 ;FIINIT(VOR1)=1.0E-10
 FIINIT(STRS)=1.0E-10 ;FIINIT(SKIN)=1.0E-10
 FIINIT(YPLS)=1.0E-10 ;FIINIT(ENUL)=1.0E-10
 FIINIT(DEN1)=1.0E-10 ;FIINIT(EL1)=1.0E-10
 FIINIT(ENUT)=1.0E-10
 
 PATCH(^OBA ,INIVAL, 10, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OBA ,PRPS,0. ,198. )
 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(SASOPRO ,PHASEM, 1, 241, 1, 139, 1, 1, 1, 1)
 COVAL(SASOPRO ,ENTI, FIXFLU , GRND4 )
 
 PATCH(SASODIS ,PHASEM, 1, 241, 1, 139, 1, 1, 1, 1)
 COVAL(SASODIS ,ENTI, GRND4 ,0. )
 
 PATCH(SASODIF ,PHASEM, 1, 241, 1, 139, 1, 1, 1, 1)
 COVAL(SASODIF ,ENTI, FIXFLU , GRND4 )
 
 PATCH(^OB1 ,WEST , 1, 0, 0, 0, 0, 0, 1, 1)
 COVAL(^OB1 ,P1 , FIXFLU ,21.9965 )
 COVAL(^OB1 ,U1 ,0. ,18.5 )
 COVAL(^OB1 ,V1 ,0. ,0. )
 COVAL(^OB1 ,ENTI,0. ,4.632E-05 )
 
 PATCH(^OB2 ,EAST , 2, 0, 0, 0, 0, 0, 1, 1)
 COVAL(^OB2 ,P1 ,1000. ,0. )
 COVAL(^OB2 ,U1 ,0. ,0. )
 COVAL(^OB2 ,V1 ,0. ,0. )
 COVAL(^OB2 ,ENTI,0. ,4.632E-05 )
 
 PATCH(^OB3 ,SOUTH , 3, 0, 0, 0, 0, 0, 1, 1)
 COVAL(^OB3 ,P1 ,1000. ,0. )
 COVAL(^OB3 ,U1 ,0. ,18.5 )
 COVAL(^OB3 ,V1 ,0. ,0. )
 COVAL(^OB3 ,ENTI,0. ,4.632E-05 )
 
 PATCH(^OB4 ,NORTH , 4, 0, 0, 0, 0, 0, 1, 1)
 COVAL(^OB4 ,P1 ,1000. ,0. )
 COVAL(^OB4 ,U1 ,0. ,18.5 )
 COVAL(^OB4 ,V1 ,0. ,0. )
 COVAL(^OB4 ,ENTI,0. ,4.632E-05 )
 XCYCLE = F
 EGWF = T
 WALLCO = GRND2
 SCALWF = T
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP = 3000 ;ISWC1 = 1
 LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
 SELREF = T
 RESFAC =1.0E-05
 ************************************************************
  Group 16. Terminate Iterations
 LITER(P1)=200 ;LITER(U1)=10
 LITER(V1)=10 ;LITER(LTLS)=20
 LITER(ENTI)=40
 ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03
 ENDIT(V1)=1.0E-03 ;ENDIT(LTLS)=1.0E-03
 ENDIT(ENTI)=1.0E-03
 ************************************************************
  Group 17. Relaxation
 RELAX(P1,LINRLX,1.)
 RELAX(U1,FALSDT,4.0E-03)
 RELAX(V1,FALSDT,4.0E-03)
 RELAX(PRPS,LINRLX,1.)
 RELAX(LTLS,LINRLX,1.)
 RELAX(ENTI,LINRLX,0.3)
 RELAX(CP,LINRLX,1.)
 RELAX(SHRY,LINRLX,1.)
 RELAX(SHRX,LINRLX,1.)
 RELAX(CF,LINRLX,1.)
 RELAX(NENU,LINRLX,1.)
 RELAX(DWDY,LINRLX,1.)
 RELAX(DWDX,LINRLX,1.)
 RELAX(DVDZ,LINRLX,1.)
 RELAX(DUDZ,LINRLX,1.)
 RELAX(DVDX,LINRLX,1.)
 RELAX(DUDY,LINRLX,1.)
 RELAX(MACH,LINRLX,1.)
 RELAX(WDIS,LINRLX,1.)
 RELAX(VOR1,LINRLX,1.)
 RELAX(STRS,LINRLX,1.)
 RELAX(SKIN,LINRLX,1.)
 RELAX(YPLS,LINRLX,1.)
 RELAX(ENUL,LINRLX,1.)
 RELAX(DEN1,LINRLX,1.)
 RELAX(EL1,LINRLX,1.)
 RELAX(ENUT,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(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10
 VARMAX(LTLS)=1.0E+10 ;VARMIN(LTLS)=-1.0E+10
 VARMAX(ENTI)=1.0E+10 ;VARMIN(ENTI)=1.0E-10
 VARMAX(CP)=1.0E+10 ;VARMIN(CP)=-1.0E+10
 VARMAX(SHRY)=1.0E+10 ;VARMIN(SHRY)=-1.0E+10
 VARMAX(SHRX)=1.0E+10 ;VARMIN(SHRX)=-1.0E+10
 VARMAX(CF)=1.0E+10 ;VARMIN(CF)=-1.0E+10
 VARMAX(NENU)=1.0E+10 ;VARMIN(NENU)=-1.0E+10
 VARMAX(DWDY)=1.0E+10 ;VARMIN(DWDY)=-1.0E+10
 VARMAX(DWDX)=1.0E+10 ;VARMIN(DWDX)=-1.0E+10
 VARMAX(DVDZ)=1.0E+10 ;VARMIN(DVDZ)=-1.0E+10
 VARMAX(DUDZ)=1.0E+10 ;VARMIN(DUDZ)=-1.0E+10
 VARMAX(DVDX)=1.0E+10 ;VARMIN(DVDX)=-1.0E+10
 VARMAX(DUDY)=1.0E+10 ;VARMIN(DUDY)=-1.0E+10
 VARMAX(MACH)=1.0E+10 ;VARMIN(MACH)=-1.0E+10
 VARMAX(WDIS)=1.0E+10 ;VARMIN(WDIS)=-1.0E+10
 VARMAX(VOR1)=1.0E+10 ;VARMIN(VOR1)=-1.0E+10
 VARMAX(STRS)=1.0E+10 ;VARMIN(STRS)=-1.0E+10
 VARMAX(SKIN)=1.0E+10 ;VARMIN(SKIN)=-1.0E+10
 VARMAX(YPLS)=1.0E+10 ;VARMIN(YPLS)=-1.0E+10
 VARMAX(ENUL)=1.0E+10 ;VARMIN(ENUL)=-1.0E+10
 VARMAX(DEN1)=1.0E+10 ;VARMIN(DEN1)=-1.0E+10
 VARMAX(EL1)=1.0E+10 ;VARMIN(EL1)=-1.0E+10
 VARMAX(ENUT)=1.0E+10 ;VARMIN(ENUT)=-1.0E+10
 ************************************************************
  Group 19. Data transmitted to GROUND
 GENK = T
 CALFOR = T
 IENUTA = 21
 ISG62 = 0
 SPEDAT(SET,DOMAIN,PHASE_1_MAT,I,0)
 SPEDAT(SET,GXMONI,PLOTALL,L,T)
 SPEDAT(SET,GXMONI,MINIRES,L,F)
 SPEDAT(SET,STORED,NENU,C,=ENUT/ENUL!ZSLFIN)
 SPEDAT(SET,MAKE,UINF,C,=0.)
 SPEDAT(SET,STORED,UINF,C,=18.5!ZSLFIN)
 SPEDAT(SET,STORED,CF,C,=2*STRS/(UINF^2)!SWPFIN)
 SPEDAT(SET,STORED,CP,C,=(P1)/(0.5*DEN1*UINF^2)!SWPFIN)
 SPEDAT(SET,DRAG,CDCALC,C,YES)
 SPEDAT(SET,DRAG,REFDEN,R,1.189)
 SPEDAT(SET,DRAG,REFVEL,R,18.5)
 SPEDAT(SET,DRAG,REFARX,R,1.)
 SPEDAT(SET,DRAG,REFARY,R,1.)
 SPEDAT(SET,DRAG,REFARZ,R,0.)
 SPEDAT(SET,DRAG,MOMCENX,R,0.)
 SPEDAT(SET,DRAG,MOMCENY,R,0.)
 SPEDAT(SET,DRAG,MOMCENZ,R,0.)
 SPEDAT(SET,OBJNAM,^OB1,C,INL)
 SPEDAT(SET,OBJTYP,^OB1,C,INLET)
 SPEDAT(SET,OBJNAM,^OB2,C,OUT)
 SPEDAT(SET,OBJTYP,^OB2,C,OUTLET)
 SPEDAT(SET,ARATIO,^OB2,R,1.)
 SPEDAT(SET,OBJNAM,^OB3,C,FAR_S)
 SPEDAT(SET,OBJTYP,^OB3,C,OUTLET)
 SPEDAT(SET,ARATIO,^OB3,R,1.)
 SPEDAT(SET,OBJNAM,^OB4,C,FAR_N)
 SPEDAT(SET,OBJTYP,^OB4,C,OUTLET)
 SPEDAT(SET,ARATIO,^OB4,R,1.)
 SPEDAT(SET,OBJNAM,!OB5,C,NULL0)
 SPEDAT(SET,OBJTYP,!OB5,C,NULL)
 SPEDAT(SET,OBJNAM,!OB6,C,NULL1)
 SPEDAT(SET,OBJTYP,!OB6,C,NULL)
 SPEDAT(SET,OBJNAM,!OB7,C,NULL2)
 SPEDAT(SET,OBJTYP,!OB7,C,NULL)
 SPEDAT(SET,OBJNAM,!OB8,C,NULL3)
 SPEDAT(SET,OBJTYP,!OB8,C,NULL)
 SPEDAT(SET,OBJNAM,!OB9,C,NULL4)
 SPEDAT(SET,OBJTYP,!OB9,C,NULL)
 SPEDAT(SET,OBJNAM,^OBA,C,AEROFOIL)
 SPEDAT(SET,OBJTYP,^OBA,C,BLOCKAGE)
 SPEDAT(SET,AEROFOIL,MATERIAL,R,198.)
 SPEDAT(SET,FACETDAT,NUMOBJ,I,17)
 SPEDAT(SET,MATERIAL,198,L,T)
 ************************************************************
  Group 20. Preliminary Printout
 DISTIL = T ;NULLPR = F
 NDST = 0
 DSTTOL =1.0E-02
 EX(P1)=10.76 ;EX(U1)=17.08
 EX(V1)=0.5833 ;EX(PRPS)=0.9377
 EX(LTLS)=2.588 ;EX(ENTI)=1.154E-04
 EX(CP)=0.0529 ;EX(SHRY)=1.016E-03
 EX(SHRX)=8.957E-03 ;EX(CF)=5.48E-05
 EX(NENU)=5.047 ;EX(DWDY)=9.377E-11
 EX(DWDX)=9.377E-11 ;EX(DVDZ)=9.377E-11
 EX(DUDZ)=9.377E-11 ;EX(DVDX)=3.734
 EX(DUDY)=24.83 ;EX(MACH)=0.04959
 EX(WDIS)=0.7992 ;EX(VOR1)=22.43
 EX(STRS)=9.377E-03 ;EX(SKIN)=1.368E-03
 EX(YPLS)=0.4643 ;EX(ENUL)=1.448E-05
 EX(DEN1)=1.115 ;EX(EL1)=0.
 EX(ENUT)=7.792E-05
 ************************************************************
  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,N,N,Y,Y,Y,Y)
 OUTPUT(U1,N,N,Y,Y,Y,Y)
 OUTPUT(V1,N,N,Y,Y,Y,Y)
 OUTPUT(PRPS,N,N,Y,N,N,N)
 OUTPUT(LTLS,N,N,Y,Y,Y,Y)
 OUTPUT(ENTI,N,N,Y,Y,Y,Y)
 OUTPUT(CP,N,N,Y,N,N,N)
 OUTPUT(SHRY,N,N,Y,N,N,N)
 OUTPUT(SHRX,N,N,Y,N,N,N)
 OUTPUT(CF,N,N,Y,N,N,N)
 OUTPUT(NENU,N,N,Y,N,N,N)
 OUTPUT(DWDY,N,N,Y,N,N,N)
 OUTPUT(DWDX,N,N,Y,N,N,N)
 OUTPUT(DVDZ,N,N,Y,N,N,N)
 OUTPUT(DUDZ,N,N,Y,N,N,N)
 OUTPUT(DVDX,N,N,Y,N,N,N)
 OUTPUT(DUDY,N,N,Y,N,N,N)
 OUTPUT(MACH,N,N,Y,N,N,N)
 OUTPUT(WDIS,N,N,Y,N,N,N)
 OUTPUT(VOR1,N,N,Y,N,N,N)
 OUTPUT(STRS,N,N,Y,N,N,N)
 OUTPUT(SKIN,N,N,Y,N,N,N)
 OUTPUT(YPLS,N,N,Y,N,N,N)
 OUTPUT(ENUL,N,N,Y,N,N,N)
 OUTPUT(DEN1,N,N,Y,N,N,N)
 OUTPUT(EL1,N,N,Y,N,N,N)
 OUTPUT(ENUT,N,N,Y,N,N,N)
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON = 77 ;IYMON = 54 ;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
 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
STOP