c
c  Routines initially used are from Philippe Dubuisson (trs.f and sub-trs.f)
c   
      SUBROUTINE CONT_H2O(WV,ROH2O,DPRES,PR,TP,DZ,TAUH2O)

      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      DIMENSION XFAC(0:50)

c WV    : CM-1
c ROH2O : MOL/CM2 (this unit was written in the original used routine but we need to pass a -particle mixing ratio- instead)
c DPRES : HPa
c PR    : HPa
c TP    : K
c ALT   : km

      DATA (XFAC(I),I=0,50)/
     1    1.00000,1.01792,1.03767,1.05749,1.07730,1.09708,
     2    1.10489,1.11268,1.12047,1.12822,1.13597,1.14367,
     3    1.15135,1.15904,1.16669,1.17431,1.18786,1.20134,
     4    1.21479,1.22821,1.24158,1.26580,1.28991,1.28295,
     5    1.27600,1.26896,1.25550,1.24213,1.22879,1.21560,
     6    1.20230,1.18162,1.16112,1.14063,1.12016,1.10195,
     7    1.09207,1.08622,1.08105,1.07765,1.07398,1.06620,
     8    1.05791,1.04905,1.03976,1.02981,1.00985,1.00000,
     9    1.00000,1.00000,1.00000/

      DATA ATMOCM1,PREF,TREF,XLOSMT/3.410E+22,1013.25,296.0,2.68675E+19/

      TAUH2O=0.
      IF(WV.GE.20000)GOTO 1
      WTOT=XLOSMT*273.15/TP*PR/PREF*DZ*1.0E+05
      WH2O=ROH2O*WTOT/(1+ROH2O)
      ROH2OS=TREF/TP*PR/PREF*WH2O/WTOT
      ROH2OF=TREF/TP*PR/PREF*(1-WH2O/WTOT)
      CALL CONTHLBL(WV,CS0,CS,CF)
      VJ=WV
      TFAC = (TP-TREF)/(260.-TREF)
C
C--------------------------------------------------------------------
C                             SELF
C       SCH2O=0.
C       IF(CS0.GT.0)THEN
C         SCH2O=CS0*(CS/CS0)**((TP-TREF)/(260.-TREF))
C         ALPHA2=200**2
C         ALPHS2= 120.**2
C         FACTRS= 0.15
C         BETAS = 5.E-06
C         V0S=1310.
C         VS2 = (WV-V0S)**2
C         SFAC = 1.
C         IF (WV.GE.700. .AND.  WV.LE.1200.) THEN
C              JFAC = (WV-700.)/10. + 0.00001
C              SFAC = XFAC(JFAC)
C         ENDIF
C         SFAC = SFAC*(1.+0.3   *(1.E+04/((WV)**2+1.E+04))) *
C    $         (1.-0.2333*(ALPHA2/((WV-1050.)**2+ALPHA2))) *
C    $         (1.-FACTRS*(ALPHS2/(VS2+(BETAS*VS2**2)+ALPHS2)))
C         SCH2O = SFAC * SCH2O
C       ENDIF
C       write(6,*)'NU=',WV
C       write(6,*)'SELF OLD=',SCH2O
C
C--------------------------------------------------------------------
C                             SELF NEW
C
      V0S1 = 0.
      HWSQ1 = 100.**2
      BETAS1 = 1.E-04
      FACTRS1 = 0.688
C
      V0S2 = 1050.
      HWSQ2 = 200.**2
      FACTRS2 = -0.2333
C
      V0S3 = 1310.
      HWSQ3 = 120.**2
      BETAS3 = 5.E-06
      FACTRS3 = -0.15

      SH2O = 0.   
      IF (CS0.GT.0.) THEN   

          SFAC = 1.
          IF (VJ.GE.700. .AND.  VJ.LE.1200.) THEN
                JFAC = (VJ-700.)/10. + 0.00001
                SFAC = XFAC(JFAC)
          ENDIF


          SH2O = CS0*(CS/CS0)**TFAC

           VS2 = (VJ-V0S1)**2
           VS4 = VS2*VS2
           SFAC = SFAC *(1.+FACTRS1*(HWSQ1/(VJ**2+(BETAS1*VS4)+HWSQ1)))
           VS2 = (VJ-V0S2)**2
           SFAC = SFAC *(1.+FACTRS2*(HWSQ2/(VS2+HWSQ2)))
           VS2 = (VJ-V0S3)**2
           VS4 = VS2*VS2
          SFAC = SFAC * (1.+FACTRS3*(HWSQ3/(VS2+(BETAS3*VS4)+HWSQ3)))

          SH2O = SFAC * SH2O
      ENDIF

c       write(6,*)'SELF NEW=',SH2O

C
C--------------------------------------------------------------------
C                             FOREIGN
C        HWSQF= 330.**2
C        BETAF = 8.E-11
C        V0F =1130.
C        FACTRF = 0.97
C        V0F2 =1900.
C        HWSQF2 = 150.**2
C        BETA2 = 3.E-06

C        VF2 = (WV-V0F)**2
C        VF6 = VF2 * VF2 * VF2
C        FSCAL  = (1.-FACTRF*(HWSQF/(VF2+(BETAF*VF6)+HWSQF)))
C        VF2 = (WV-V0F2)**2
C        VF4 = VF2*VF2
C        FSCAL = FSCAL* (1.- 0.6*(HWSQF2/(VF2 + BETA2*VF4 + HWSQF2)))
C        FCH2O=CF*FSCAL
C       write(6,*)'FOREIGN OLD=',FCH2O
C
C--------------------------------------------------------------------
C                             FOREIGN NEW
C
C
C              CORRECTION TO FOREIGN CONTINUUM
C
         V0F1 = 350.
         HWSQF1 = 200.**2
         BETAF1 = 5.e-09
         FACTRF1 = -0.7
C
         V0F1a = 630.
         HWSQF1a = 65.**2
         BETAF1a = 2.e-08
         FACTRF1a = +0.75
C
         V0F2 =1130.
         HWSQF2 = 330.**2
         BETAF2 = 8.E-11
         FACTRF2 = -0.97
C
         V0F3 = 1975.
         HWSQF3 = 250.**2
         BETAF3 = 5.E-06
         FACTRF3 = -0.65

          VF2 = (VJ-V0F1)**2
          VF6 = VF2 * VF2 * VF2
          FSCAL = (1.+FACTRF1*(HWSQF1/(VF2+(BETAF1*VF6)+HWSQF1)))
C
          VF2 = (VJ-V0F1a)**2
          VF6 = VF2 * VF2 * VF2
          FSCAL = FSCAL*
     $           (1.+FACTRF1a*(HWSQF1a/(VF2+(BETAF1a*VF6)+HWSQF1a)))
C
          VF2 = (VJ-V0F2)**2
          VF6 = VF2 * VF2 * VF2
          FSCAL = FSCAL*(1.+FACTRF2*(HWSQF2/(VF2+(BETAF2*VF6)+HWSQF2)))
C
          VF2 = (VJ-V0F3)**2
          VF4 = VF2*VF2
          FSCAL = FSCAL*(1.+FACTRF3*(HWSQF3/(VF2+BETAF3*VF4+HWSQF3)))
         FH2O=CF*FSCAL
c       write(6,*)'FOREIGN NEW=',FH2O



C SELF + FOREIGN:
C
       CNTWV=(SH2O*ROH2OS+FH2O*ROH2OF)*1.0E-20
       VKT=WV*6.626176E-27*2.99792458E10/1.380662E-16/TP
       CNTWV=CNTWV*WV*(1.-EXP(-VKT))/(1.+EXP(-VKT))
      TAUH2O=CNTWV*ROH2O*WTOT/(1+ROH2O)

 1    RETURN
      END
 




      SUBROUTINE CONT_CO2(WV,ROCO2,PR,TP,TAUCO2)

      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      COMMON /FCO2/ V1S,V2S,DVS,NPTS,S(1003)
      DATA PREF,TREF /1013.25,296.0/

      TAUCO2=0.
      IF(WV.GE.10000.)RETURN
      ICT=INT(WV/10.)+3
      CCO2=S(ICT)
      XCNTCO2=CCO2*1.0E-20*PR/PREF*TREF/TP*WV*1.0005
      TAUCO2=XCNTCO2*ROCO2

      RETURN
      END


      SUBROUTINE CONT_O3(WV,ROO3,TP,TAUO3)

      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      COMMON /O3HUV/  V1S,V2S,DVS,NPTS,S(133)
      COMMON /O3CHAP/ V1O1,V2O1,DVO1,NPT1,O3CH(55)
      COMMON /O3HH0/ V10S,V20S,DV0S,NPTS0,S0(2687)
      COMMON /O3HH1/ V11S,V21S,DV1S,NPTS1,S1(2690)
      COMMON /O3HH2/ V12S,V22S,DV2S,NPTS2,S2(2690)

C--------------------------------------------------------------------
C                     PARAMETRES D'ENTREE
C--------------------------------------------------------------------
C  TP    ---------> TEMPERATURE DE LA COUCHE
C--------------------------------------------------------------------
      TAUO3=0.0
C--------------------------------------------------------------------
C   CALCUL DE L'ABSORPTION PAR LE CONTINUUM DE L'OZONE
C--------------------------------------------------------------------


C--------- CONTINUUM DE LA BANDE D'ABSORPTION DE CHAPPUIS -----------

      CNTO3CH=0.
      IF(WV.LT.9170.0.OR.WV.GT.24565.0)GOTO 1
      V=WV
      CALL O3CHAPW(V,C0,CT1,CT2)
      TC=TP-273.15
      CNTO3CH=(C0+CT1*TC+CT2*TC*TC)*1.0E-20
 1    CONTINUE

C--------- CONTINUUM DE HARTLEY HUGGINS DANS L'UV -------------------

      CNTO3UV=0.
      IF(WV.LT.40800.0)GOTO 2
      IUV=INT((WV-40800.0)/100)+1
      CNTO3UV=(S(IUV+1)-S(IUV))/100.0*(WV-(40800.0+100.0*
     $             (IUV-1)))+S(IUV)

 2    CONTINUE

C--------- CONTINUUM DE HARTLEY HUGGINS -----------------------------

      CNTO3HH=0.
      IF(WV.LT.27370.0.OR.WV.GE.40800.0)GOTO 3
      IHH=INT((WV-27370.0)/5)+1
      TC=TP-273.15
      CNTO3HH=S0(IHH)*(1.+TC*S1(IHH)+TC*TC*S2(IHH))*1.0E-20
 3    CONTINUE

      TAUO3=(CNTO3UV+CNTO3CH+CNTO3HH)*ROO3

      RETURN
      END


      SUBROUTINE CONT_NO2(V,RONO2,CROSS)                                

      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      INTEGER NMAX                                                      
      PARAMETER (NMAX=7176)                                             
      DIMENSION CRSNO2(7176)                                            
C     BEGINNING AND ENDING FREQUENCIES (CM-1):    14095  49970          
C     BIN WIDTH AND TOTAL ENTRIES:        5   7176                      
C     CROSS-SECTIONS IN CM^2 TIMES 2.6868E19                            
      DATA VBEG, VEND, VINCR /14095.0, 49970.0, 5.0/                    
      DATA (CRSNO2(I),I=    1,  100)/                                   
     1     .21870,   .15350,   .10260,   .09893,   .10090,   .11710,    
     2     .13530,   .23030,   .21370,   .22680,   .12480,   .15960,    
     3     .17730,   .13800,   .14370,   .10780,   .13850,   .17470,    
     4     .16590,   .14350,   .11220,   .13870,   .10950,   .09848,    
     5     .12920,   .13350,   .04234,   .08134,   .07137,   .10730,    
     6     .11030,   .07682,   .07669,   .06166,   .05656,   .10160,    
     7     .09995,   .11720,   .09483,   .09305,   .03115,   .02633,    
     8     .10530,   .06741,   .01517,   .06836,   .09529,   .05382,    
     9     .01689,   .04787,   .04899,   .03848,   .06239,   .05901,    
     &     .04349,   .06058,   .07849,   .06572,   .02851,   .08506,    
     1     .07100,   .08237,   .05719,   .02472,   .06307,   .01950,    
     2     .02154,   .04849,   .04495,   .06848,   .06195,   .06561,    
     3     .06729,   .09270,   .05591,   .10490,   .05964,   .01618,    
     4     .06340,   .05316,   .09263,   .08107,   .04596,   .06632,    
     5     .04788,   .07965,   .06563,   .09042,   .02667,   .07322,    
     6     .08035,   .06220,   .07409,   .09548,   .14110,   .17830,    
     7     .15900,   .14000,   .15920,   .13030/                        
      DATA (CRSNO2(I),I=  101,  200)/                                   
     1     .10720,   .11170,   .13170,   .10950,   .11350,   .08546,    
     2     .08870,   .08289,   .11990,   .11190,   .09036,   .07293,    
     3     .11890,   .12690,   .12290,   .12140,   .11400,   .11880,    
     4     .14220,   .14500,   .14250,   .13300,   .14180,   .16530,    
     5     .18090,   .15070,   .15840,   .17590,   .13970,   .10660,    
     6     .18640,   .13800,   .16360,   .23500,   .20230,   .21570,    
     7     .24470,   .24520,   .21360,   .19570,   .21570,   .23140,    
     8     .18890,   .21340,   .20800,   .19130,   .22900,   .23120,    
     9     .26000,   .22120,   .29600,   .34020,   .24360,   .22600,    
     &     .21370,   .24420,   .21690,   .21130,   .20940,   .22380,    
     1     .23620,   .24160,   .19950,   .15450,   .22700,   .26500,    
     2     .26750,   .25430,   .25360,   .21760,   .25260,   .24170,    
     3     .18670,   .19580,   .24410,   .26420,   .21800,   .17950,    
     4     .18860,   .20500,   .21050,   .19770,   .19110,   .18070,    
     5     .18830,   .14600,   .15000,   .14010,   .11370,   .11430,    
     6     .12750,   .11600,   .06466,   .06873,   .08635,   .08132,    
     7     .08656,   .08974,   .05564,   .09207/                        
      DATA (CRSNO2(I),I=  201,  300)/                                   
     1     .05698,   .08596,   .08385,   .07201,   .08996,   .08037,    
     2     .10620,   .11490,   .12750,   .11600,   .12780,   .16540,    
     3     .16040,   .17680,   .17100,   .14150,   .16230,   .15250,    
     4     .11010,   .13880,   .14530,   .13730,   .15130,   .14020,    
     5     .14210,   .17980,   .19080,   .18040,   .20350,   .22460,    
     6     .26420,   .23120,   .18040,   .19740,   .21920,   .23070,    
     7     .24510,   .21910,   .21410,   .22240,   .21170,   .22910,    
     8     .21450,   .24130,   .24270,   .25830,   .27520,   .26030,    
     9     .27580,   .26990,   .26940,   .31870,   .27390,   .30050,    
     &     .29030,   .28740,   .31920,   .28690,   .25630,   .21510,    
     1     .23610,   .23550,   .25210,   .25810,   .23430,   .25770,    
     2     .32850,   .43700,   .53180,   .59710,   .58770,   .55740,    
     3     .66360,   .62420,   .62560,   .52170,   .52580,   .42510,    
     4     .37900,   .38750,   .36380,   .38540,   .38530,   .31840,    
     5     .28760,   .29980,   .34620,   .35620,   .42630,   .48640,    
     6     .48740,   .42600,   .46650,   .50700,   .55250,   .48450,    
     7     .43990,   .44750,   .37020,   .33350/                        
      DATA (CRSNO2(I),I=  301,  400)/                                   
     1     .36300,   .35730,   .35470,   .35860,   .34070,   .29520,    
     2     .35840,   .37500,   .32240,   .28030,   .31310,   .31760,    
     3     .32020,   .29840,   .28330,   .33590,   .37970,   .38370,    
     4     .34460,   .33930,   .30650,   .33730,   .33620,   .31840,    
     5     .33930,   .35520,   .29410,   .29420,   .32470,   .29960,    
     6     .29450,   .25960,   .28480,   .33710,   .35280,   .35660,    
     7     .30110,   .31410,   .31920,   .30160,   .26040,   .24730,    
     8     .25590,   .27490,   .31370,   .30600,   .30600,   .29810,    
     9     .29420,   .31850,   .27430,   .26550,   .25600,   .23850,    
     &     .21400,   .21390,   .22920,   .24940,   .25290,   .28130,    
     1     .31660,   .30980,   .30410,   .30160,   .28540,   .28940,    
     2     .30370,   .30540,   .34030,   .33810,   .35570,   .37810,    
     3     .39550,   .43190,   .38070,   .41830,   .43640,   .47590,    
     4     .46810,   .50190,   .52650,   .51940,   .49070,   .49680,    
     5     .51570,   .50800,   .48800,   .53620,   .54800,   .55630,    
     6     .53730,   .50980,   .46430,   .51350,   .50020,   .46070,    
     7     .42660,   .46580,   .50090,   .53270/                        
      DATA (CRSNO2(I),I=  401,  500)/                                   
     1     .61590,   .68670,   .73060,   .82510,   .82240,   .80780,    
     2     .73110,   .59730,   .63690,   .62580,   .59620,   .52880,    
     3     .51970,   .49470,   .47730,   .52020,   .60370,   .69650,    
     4     .82560,   .83960,   .81050,   .84270,   .89720,  1.01800,    
     5    1.07900,   .98130,   .88360,   .86200,   .78960,   .81970,    
     6     .73030,   .65930,   .64410,   .62840,   .63320,   .69620,    
     7     .75860,   .83640,   .76260,   .89530,   .80870,   .77040,    
     8     .77310,   .82810,  1.07700,  1.46500,  1.40000,  1.14700,    
     9    1.25500,  1.02700,   .92990,   .97420,   .94670,   .75260,    
     &     .70070,   .58690,   .47170,   .45950,   .45510,   .45290,    
     1     .43760,   .43540,   .42900,   .43200,   .45170,   .44010,    
     2     .42470,   .45220,   .45600,   .42140,   .49150,   .50730,    
     3     .46810,   .40760,   .39820,   .37830,   .42630,   .43830,    
     4     .41200,   .37220,   .34080,   .36740,   .39650,   .48630,    
     5     .47310,   .47820,   .43160,   .37730,   .33280,   .32630,    
     6     .36480,   .34660,   .36930,   .39750,   .41620,   .41070,    
     7     .44910,   .54050,   .62490,   .68300/                        
      DATA (CRSNO2(I),I=  501,  600)/                                   
     1     .72510,   .82050,   .83940,   .87020,  1.03100,   .96760,    
     2    1.05400,  1.13000,  1.05900,  1.04100,  1.11300,  1.13600,    
     3    1.17300,  1.12100,  1.10300,  1.14000,  1.05700,  1.00400,    
     4     .86580,   .88650,   .92010,   .90690,   .82520,   .79490,    
     5     .71610,   .68570,   .75590,   .79670,   .73520,   .72940,    
     6     .72730,   .71200,   .64380,   .63330,   .67810,   .78410,    
     7     .68600,   .59240,   .58140,   .59670,   .60660,   .65150,    
     8     .72090,   .78070,   .82880,   .89240,   .86650,   .85710,    
     9     .96400,  1.20500,  1.36600,  1.35000,  1.35400,  1.78000,    
     &    1.98300,  1.82100,  1.64200,  1.65900,  1.97300,  1.86100,    
     1    1.68200,  1.76800,  1.64000,  1.54400,  1.25900,  1.24800,    
     2    1.39200,  1.44200,  1.55000,  1.62100,  1.37300,  1.31000,    
     3    1.24200,  1.22800,  1.20100,  1.24800,  1.00400,   .99960,    
     4     .91290,   .91230,   .90680,   .91750,   .88850,   .96500,    
     5     .94560,  1.05300,  1.05000,  1.09300,  1.21100,  1.21100,    
     6    1.25300,  1.20000,  1.27900,  1.24800,  1.24600,  1.26500,    
     7    1.49400,  1.60300,  1.37100,  1.38800/                        
      DATA (CRSNO2(I),I=  601,  700)/                                   
     1    1.33500,  1.31300,  1.25700,  1.09000,  1.03500,   .92030,    
     2     .98190,   .84640,   .82520,   .80730,   .86130,   .89050,    
     3     .85680,   .78590,   .73700,   .71390,   .73000,   .80050,    
     4     .82110,   .88520,   .85980,   .81710,   .82140,   .87750,    
     5     .98820,  1.06000,  1.19000,  1.28500,  1.26100,  1.27600,    
     6    1.35800,  1.29400,  1.29400,  1.31100,  1.35700,  1.43000,    
     7    1.39800,  1.36100,  1.20100,  1.05300,   .91800,   .89060,    
     8     .95120,   .88800,   .76600,   .76340,   .84050,   .79400,    
     9     .73450,   .73040,   .73100,   .75770,   .76510,   .78140,    
     &     .84880,   .92050,  1.00900,  1.10200,  1.03700,  1.18400,    
     1    1.18600,  1.07400,  1.14600,  1.20300,  1.20700,  1.22800,    
     2    1.38000,  1.44800,  1.47200,  1.50600,  1.72800,  1.80500,    
     3    1.76100,  1.66300,  1.91100,  1.99800,  2.22300,  2.50000,    
     4    2.40400,  2.31200,  2.43000,  2.28200,  2.31400,  2.54200,    
     5    2.35400,  2.67100,  2.74400,  2.41300,  2.05700,  2.16200,    
     6    2.04400,  1.90000,  1.73200,  1.65400,  1.71400,  1.83100,    
     7    1.82800,  1.65300,  1.74700,  1.92800/                        
      DATA (CRSNO2(I),I=  701,  800)/                                   
     1    2.08900,  2.19800,  1.94600,  1.90500,  1.80600,  1.74900,    
     2    1.81200,  1.39700,  1.27200,  1.33300,  1.39700,  1.37400,    
     3    1.22300,  1.30900,  1.46900,  1.59200,  1.94800,  2.30100,    
     4    2.44100,  2.34200,  2.30700,  2.53100,  2.67900,  3.04200,    
     5    3.13800,  3.26000,  2.64400,  2.36300,  2.58100,  3.25200,    
     6    2.92700,  2.65900,  2.30200,  2.09300,  2.21900,  2.08800,    
     7    2.03200,  1.82400,  1.68900,  1.68500,  1.73200,  1.73600,    
     8    1.76400,  1.67600,  1.57100,  1.63900,  1.62200,  1.50500,    
     9    1.50900,  1.41500,  1.47100,  1.35300,  1.39000,  1.29500,    
     &    1.18000,  1.24200,  1.27300,  1.13800,  1.11200,  1.25000,    
     1    1.35600,  1.40400,  1.42400,  1.55300,  1.68500,  1.69900,    
     2    1.58700,  1.50600,  1.45100,  1.53900,  1.49500,  1.52900,    
     3    1.55400,  1.49500,  1.63000,  1.60700,  1.54000,  1.43500,    
     4    1.36600,  1.45800,  1.42300,  1.62200,  1.73600,  1.75600,    
     5    1.72500,  1.75800,  1.85600,  2.00500,  2.19600,  2.28900,    
     6    2.36200,  2.35200,  2.50300,  2.36500,  2.20800,  2.48200,    
     7    2.90000,  2.91400,  3.06900,  2.63600/                        
      DATA (CRSNO2(I),I=  801,  900)/                                   
     1    2.38300,  2.41200,  2.64800,  2.43000,  2.14100,  2.19000,    
     2    2.24200,  2.24000,  2.15100,  2.08600,  2.08700,  2.18600,    
     3    2.43500,  2.41000,  2.41500,  2.56800,  2.53600,  2.62400,    
     4    2.57700,  2.65700,  3.01200,  3.13100,  3.32400,  3.59800,    
     5    3.31500,  3.11000,  3.33000,  3.30100,  3.07900,  3.32300,    
     6    3.38400,  3.37600,  3.46400,  3.43700,  3.36000,  3.21100,    
     7    2.98900,  2.69600,  2.57400,  2.56900,  2.61100,  2.72100,    
     8    2.94400,  2.96600,  3.01100,  3.14100,  3.41800,  3.56100,    
     9    3.55900,  3.81100,  3.89400,  3.47300,  3.25700,  3.29100,    
     &    3.13200,  3.02800,  3.09800,  3.33400,  3.29700,  3.40700,    
     1    3.60000,  3.81000,  3.64600,  3.72800,  3.88100,  3.67900,    
     2    3.69600,  3.56200,  3.54400,  3.63400,  3.53200,  3.45100,    
     3    3.21600,  3.11900,  3.02100,  2.58900,  2.32300,  2.29100,    
     4    2.13600,  2.07900,  2.04300,  2.03500,  2.14200,  2.24600,    
     5    2.35000,  2.70900,  2.73700,  2.83800,  2.80900,  3.04000,    
     6    3.22500,  3.22600,  3.17300,  3.04300,  3.06300,  3.23300,    
     7    3.16000,  2.87600,  2.81100,  2.45900/                        
      DATA (CRSNO2(I),I=  901, 1000)/                                   
     1    2.12500,  2.08700,  2.08400,  2.14700,  2.15500,  2.05400,    
     2    2.02800,  2.09200,  2.21000,  2.35500,  2.22000,  2.30100,    
     3    2.15800,  2.03400,  2.05500,  2.06800,  2.18200,  2.26300,    
     4    2.27600,  2.50900,  2.82100,  2.84200,  2.87400,  3.12900,    
     5    3.12600,  3.04500,  3.27100,  3.14100,  3.20000,  3.31600,    
     6    3.42700,  3.67500,  3.86200,  3.68300,  3.74800,  3.96000,    
     7    4.06300,  4.08600,  4.09800,  4.03200,  3.90200,  3.90100,    
     8    3.85200,  3.93300,  3.83400,  3.71200,  3.80600,  3.74300,    
     9    3.74000,  3.75700,  3.73500,  3.82400,  3.94200,  3.90700,    
     &    3.79500,  3.84200,  4.04700,  4.10000,  4.06000,  4.04300,    
     1    4.10600,  4.14800,  4.21500,  4.26800,  4.46400,  4.68400,    
     2    4.59400,  4.74600,  4.79600,  5.04600,  4.82500,  4.72500,    
     3    4.67600,  4.62200,  4.32800,  4.56300,  5.07200,  5.59600,    
     4    5.86800,  5.96200,  5.78500,  5.87700,  5.73400,  5.51700,    
     5    5.83300,  6.35900,  6.32900,  6.10900,  5.89300,  5.67200,    
     6    4.97800,  4.75000,  4.55200,  4.47300,  4.19200,  4.14800,    
     7    4.05100,  3.90700,  3.85200,  3.78400/                        
      DATA (CRSNO2(I),I= 1001, 1100)/                                   
     1    3.66200,  3.67000,  4.36400,  4.26100,  4.44900,  4.18900,    
     2    4.15200,  4.16200,  3.95700,  3.75800,  3.80500,  3.93200,    
     3    4.06300,  3.88100,  3.92800,  4.06900,  3.90100,  3.86100,    
     4    4.30100,  4.40100,  4.44600,  4.49500,  4.53500,  4.84700,    
     5    5.17400,  5.20000,  5.00800,  4.88600,  5.14700,  5.04000,    
     6    5.13700,  5.04100,  4.75900,  4.64800,  4.80700,  5.38700,    
     7    5.55200,  5.42100,  5.54100,  5.12400,  4.68800,  4.33600,    
     8    4.25900,  4.08200,  3.53800,  3.54500,  3.71100,  3.66800,    
     9    3.42900,  3.35600,  3.59600,  3.64800,  3.94300,  4.13200,    
     &    4.04100,  3.89300,  4.13800,  4.20900,  4.25800,  4.16800,    
     1    4.01400,  4.10000,  4.24300,  4.30700,  4.46700,  4.64300,    
     2    4.63500,  4.71300,  4.80100,  4.71900,  4.43000,  4.64600,    
     3    4.88900,  5.08200,  5.06500,  5.03700,  5.04700,  5.12500,    
     4    5.33700,  5.63300,  5.61600,  5.99500,  6.90300,  6.72000,    
     5    6.62500,  6.27300,  6.18900,  6.04800,  5.76600,  5.69500,    
     6    6.10800,  6.81100,  6.51400,  6.59800,  6.60800,  6.53600,    
     7    6.43000,  6.51600,  6.72400,  6.95800/                        
      DATA (CRSNO2(I),I= 1101, 1200)/                                   
     1    7.02800,  7.37100,  7.81600,  7.20500,  6.66000,  6.54800,    
     2    6.74900,  7.20800,  6.83500,  6.48800,  6.08300,  5.98300,    
     3    6.31800,  6.37900,  5.81800,  5.49600,  5.34700,  5.52500,    
     4    5.32000,  5.14400,  4.92400,  5.23600,  5.19700,  5.46400,    
     5    5.55300,  5.78300,  5.91500,  5.89500,  5.92100,  5.92700,    
     6    6.18400,  6.30300,  6.14900,  6.09300,  6.14700,  6.50600,    
     7    7.06500,  7.63700,  7.86700,  8.26300,  9.10500,  9.59000,    
     8    8.67200,  7.99200,  7.95800,  7.56800,  7.14300,  6.48400,    
     9    6.01600,  5.84200,  5.75800,  5.81600,  5.62400,  5.84300,    
     &    6.30500,  6.41600,  6.97500,  8.03600,  7.53400,  7.00800,    
     1    6.60100,  6.06000,  5.94500,  5.66300,  5.41600,  5.23800,    
     2    5.13500,  5.15800,  5.16500,  5.06000,  4.93800,  5.00500,    
     3    5.21900,  5.09700,  4.61800,  4.55800,  4.54300,  4.39500,    
     4    4.27900,  4.19400,  4.25900,  4.22200,  4.21300,  4.08900,    
     5    4.20600,  4.27000,  4.43700,  4.70300,  4.74100,  4.75000,    
     6    4.97000,  4.94200,  5.01100,  5.08000,  4.94200,  5.13100,    
     7    5.78800,  5.95200,  6.09100,  6.66800/                        
      DATA (CRSNO2(I),I= 1201, 1300)/                                   
     1    6.87900,  7.23300,  7.63600,  8.26800,  8.43500,  8.74100,    
     2    8.91000,  8.78200,  8.82100,  8.54200,  8.44800,  8.47800,    
     3    8.59600,  8.62700,  8.56000,  8.67600,  8.73000,  8.43500,    
     4    8.03800,  8.13800,  8.27000,  8.56200,  8.77600,  9.29700,    
     5    9.34600,  9.15500,  9.10800,  8.89200,  8.58500,  8.50200,    
     6    8.25000,  7.97300,  7.85200,  7.95800,  7.86100,  7.51800,    
     7    7.11300,  6.68800,  6.48200,  6.67000,  7.00700,  7.09200,    
     8    7.18700,  6.91100,  6.59100,  6.23300,  5.98700,  5.93900,    
     9    5.99800,  6.08100,  6.12000,  6.07000,  6.00500,  5.94800,    
     &    6.13200,  6.31200,  6.88000,  7.23400,  7.69300,  8.07000,    
     1    8.66300,  8.38000,  8.40400,  8.66300,  9.13000,  9.52500,    
     2    9.61100, 10.35000, 10.58000, 10.56000, 10.26000, 10.98000,    
     3   12.45000, 12.77000, 11.47000,  9.86700,  8.44700,  7.71200,    
     4    7.31500,  6.98700,  6.80800,  6.79100,  6.53700,  6.50300,    
     5    7.02500,  7.04200,  6.83700,  6.69500,  6.57900,  7.16600,    
     6    7.75800,  8.01600,  7.94800,  7.92200,  7.89800,  7.90300,    
     7    7.78900,  7.58100,  7.53000,  7.47300/                        
      DATA (CRSNO2(I),I= 1301, 1400)/                                   
     1    7.36200,  7.17800,  7.25500,  7.51800,  7.44400,  7.48500,    
     2    7.39000,  7.28700,  7.30600,  7.32600,  7.16800,  6.91000,    
     3    6.84800,  6.71900,  6.42200,  6.37700,  6.41100,  6.36300,    
     4    6.69800,  7.03400,  7.21700,  7.37100,  7.58700,  7.46600,    
     5    7.56800,  7.75900,  8.07500,  8.38700,  8.68800,  8.92900,    
     6    9.25500,  9.54400, 10.04000,  9.68000,  9.54200,  9.20800,    
     7    9.20000,  9.27600,  9.15900,  8.85400,  8.73300,  8.96600,    
     8    9.13800,  9.32400,  9.34800,  9.36800,  9.40300,  9.71200,    
     9   10.41000, 10.91000, 11.32000, 11.22000, 11.13000, 10.99000,    
     &   10.17000,  9.55400,  8.91100,  8.55000,  8.24300,  8.18300,    
     1    8.65600,  8.94900,  8.41500,  8.61700,  8.83600,  8.64700,    
     2    8.44900,  8.68600,  8.58700,  8.42500,  8.51600,  8.79200,    
     3    8.63400,  9.16500,  8.68400,  8.91900,  9.33700,  9.55100,    
     4    9.42800,  9.75900,  9.70300,  9.75400,  9.85900,  9.87300,    
     5    9.58700,  9.74700, 10.18000, 10.63000, 10.96000, 11.43000,    
     6   11.72000, 11.70000, 11.96000, 12.31000, 12.69000, 13.24000,    
     7   12.52000, 12.40000, 13.15000, 12.41000/                        
      DATA (CRSNO2(I),I= 1401, 1500)/                                   
     1   10.75000,  9.85000,  9.74600,  9.28600,  8.83300,  8.91800,    
     2    8.99700,  9.06300,  8.72100,  8.41800,  8.44500,  8.84900,    
     3    8.96100,  8.97600,  9.16400,  9.42300,  9.17200,  8.86500,    
     4    8.30400,  8.40300,  8.26900,  7.85000,  8.31800,  8.47600,    
     5    8.24400,  8.38500,  8.57800,  8.63300,  8.80900,  8.79400,    
     6    8.91700,  9.15800,  9.17700,  9.53800,  9.09900,  8.68800,    
     7    8.80600,  8.61700,  7.93500,  8.60800,  8.79300,  9.13200,    
     8    9.08300,  9.13900,  9.36400,  9.16600,  9.22500, 10.24000,    
     9   11.15000, 11.15000, 11.20000, 11.13000, 10.41000, 10.73000,    
     &   10.80000, 10.76000, 11.20000, 11.54000, 12.15000, 12.03000,    
     1   11.07000, 11.01000, 10.07000,  9.41800,  9.04000,  8.34300,    
     2    7.77200,  7.80500,  7.57800,  7.56200,  7.77200,  7.67100,    
     3    7.95900,  8.46700,  9.10500,  9.43200,  9.85200, 10.20000,    
     4   10.42000, 10.66000, 11.06000, 11.57000, 11.83000, 11.24000,    
     5   11.72000, 12.20000, 12.11000, 12.50000, 13.21000, 14.14000,    
     6   14.57000, 14.85000, 14.72000, 14.33000, 15.21000, 15.34000,    
     7   14.10000, 12.13000, 11.39000, 10.56000/                        
      DATA (CRSNO2(I),I= 1501, 1600)/                                   
     1   10.17000,  9.98600,  9.98300, 10.01000,  9.74700,  9.73800,    
     2    9.85400, 10.24000, 10.62000, 10.95000, 11.20000, 11.77000,    
     3   11.67000, 11.29000, 12.10000, 12.36000, 12.36000, 13.12000,    
     4   13.73000, 12.99000, 12.47000, 12.31000, 11.74000, 11.74000,    
     5   11.09000, 11.06000, 11.24000, 11.13000, 11.42000, 11.14000,    
     6   10.61000, 10.63000, 10.01000, 10.19000, 11.12000, 11.84000,    
     7   12.16000, 12.64000, 13.02000, 12.73000, 12.27000, 12.78000,    
     8   13.84000, 13.78000, 13.54000, 13.05000, 12.99000, 13.13000,    
     9   12.67000, 11.83000, 10.86000, 10.15000,  9.73700,  9.34300,    
     &    9.01300,  8.90700,  9.00600,  9.68700, 10.41000, 10.57000,    
     1   11.08000, 11.54000, 11.52000, 11.63000, 11.06000, 10.74000,    
     2   10.69000, 11.18000, 11.33000, 11.44000, 11.87000, 12.13000,    
     3   11.81000, 12.13000, 12.47000, 12.54000, 11.98000, 10.67000,    
     4   10.12000,  9.90800,  9.93100,  9.88100, 10.20000, 10.26000,    
     5   10.57000, 11.35000, 11.95000, 12.21000, 12.47000, 12.15000,    
     6   11.67000, 11.31000, 11.51000, 12.07000, 12.68000, 12.75000,    
     7   12.73000, 12.30000, 11.93000, 12.08000/                        
      DATA (CRSNO2(I),I= 1601, 1700)/                                   
     1   12.29000, 12.78000, 12.41000, 12.07000, 11.79000, 11.01000,    
     2   10.89000, 11.27000, 11.57000, 11.61000, 11.76000, 11.84000,    
     3   11.83000, 12.28000, 12.49000, 12.14000, 12.18000, 12.28000,    
     4   12.16000, 11.60000, 11.01000, 10.63000, 10.54000, 10.60000,    
     5   10.89000, 11.39000, 11.31000, 11.83000, 12.38000, 12.56000,    
     6   12.56000, 12.89000, 13.66000, 14.32000, 13.99000, 13.85000,    
     7   15.20000, 16.50000, 18.26000, 19.17000, 19.23000, 19.29000,    
     8   19.61000, 18.09000, 16.72000, 16.16000, 14.84000, 13.56000,    
     9   12.79000, 12.19000, 11.77000, 11.52000, 11.60000, 11.00000,    
     &   10.81000, 10.73000, 10.90000, 10.84000, 11.18000, 11.57000,    
     1   12.69000, 12.79000, 12.70000, 12.96000, 12.97000, 13.57000,    
     2   13.96000, 14.10000, 14.49000, 14.53000, 15.54000, 16.07000,    
     3   16.81000, 17.53000, 18.41000, 17.92000, 17.27000, 16.63000,    
     4   14.96000, 14.27000, 14.58000, 13.75000, 13.19000, 12.46000,    
     5   12.06000, 11.87000, 12.20000, 12.24000, 12.15000, 12.16000,    
     6   11.76000, 11.43000, 11.41000, 11.48000, 11.46000, 11.55000,    
     7   11.14000, 10.71000, 10.65000, 10.45000/                        
      DATA (CRSNO2(I),I= 1701, 1800)/                                   
     1   10.36000, 10.47000, 10.66000, 10.61000,  9.75900,  9.45900,    
     2    9.53400, 10.07000, 10.11000, 10.00000, 10.26000, 10.46000,    
     3   10.89000, 11.55000, 11.61000, 11.64000, 11.43000, 11.43000,    
     4   11.77000, 11.55000, 11.71000, 12.52000, 13.44000, 14.77000,    
     5   15.49000, 15.69000, 15.60000, 15.99000, 15.66000, 16.12000,    
     6   17.23000, 17.62000, 18.60000, 18.85000, 18.13000, 17.01000,    
     7   18.01000, 18.29000, 16.98000, 16.51000, 15.73000, 14.74000,    
     8   12.84000, 11.58000, 11.02000, 10.71000, 10.49000, 10.46000,    
     9   10.66000, 10.86000, 10.87000, 10.88000, 10.87000, 11.12000,    
     &   11.35000, 11.42000, 11.64000, 11.90000, 12.58000, 13.12000,    
     1   13.59000, 13.87000, 13.75000, 14.23000, 14.48000, 14.55000,    
     2   14.86000, 15.34000, 15.08000, 15.13000, 15.83000, 16.16000,    
     3   16.10000, 16.05000, 16.21000, 17.01000, 18.55000, 18.88000,    
     4   18.75000, 19.65000, 18.42000, 18.33000, 16.82000, 15.42000,    
     5   14.60000, 14.45000, 14.35000, 14.22000, 14.51000, 15.16000,    
     6   15.76000, 15.64000, 15.54000, 15.56000, 14.99000, 14.99000,    
     7   14.84000, 14.34000, 13.82000, 13.65000/                        
      DATA (CRSNO2(I),I= 1801, 1900)/                                   
     1   13.43000, 13.11000, 12.51000, 12.14000, 12.13000, 11.56000,    
     2   11.58000, 12.01000, 12.39000, 12.41000, 12.54000, 12.97000,    
     3   13.53000, 14.07000, 14.16000, 14.68000, 15.14000, 15.27000,    
     4   15.49000, 15.59000, 15.65000, 15.31000, 16.13000, 16.69000,    
     5   16.55000, 16.12000, 15.76000, 16.00000, 15.98000, 15.57000,    
     6   14.26000, 13.71000, 13.43000, 12.50000, 11.85000, 11.54000,    
     7   11.37000, 11.48000, 11.54000, 11.57000, 11.84000, 12.23000,    
     8   12.29000, 12.47000, 13.15000, 13.73000, 13.97000, 13.88000,    
     9   13.81000, 14.33000, 15.24000, 15.63000, 15.63000, 15.78000,    
     &   16.52000, 16.56000, 15.92000, 16.17000, 16.08000, 15.35000,    
     1   15.61000, 16.28000, 16.13000, 15.62000, 14.55000, 14.68000,    
     2   14.40000, 13.37000, 12.40000, 11.77000, 11.74000, 11.98000,    
     3   11.99000, 12.05000, 12.18000, 11.95000, 11.92000, 11.95000,    
     4   12.54000, 12.54000, 12.86000, 13.29000, 13.66000, 14.14000,    
     5   14.33000, 13.95000, 14.08000, 15.43000, 16.97000, 17.20000,    
     6   17.41000, 17.62000, 18.25000, 17.79000, 17.01000, 16.40000,    
     7   17.28000, 17.50000, 16.57000, 15.67000/                        
      DATA (CRSNO2(I),I= 1901, 2000)/                                   
     1   15.71000, 15.79000, 15.62000, 15.46000, 15.45000, 14.52000,    
     2   14.05000, 14.19000, 14.40000, 14.52000, 14.54000, 14.65000,    
     3   14.95000, 15.13000, 15.10000, 15.00000, 15.06000, 15.45000,    
     4   15.79000, 15.92000, 15.67000, 15.11000, 14.36000, 14.25000,    
     5   13.97000, 13.87000, 14.06000, 14.35000, 14.72000, 15.07000,    
     6   15.32000, 15.42000, 15.55000, 14.80000, 14.54000, 14.67000,    
     7   14.73000, 14.98000, 15.02000, 15.00000, 14.51000, 14.34000,    
     8   14.47000, 14.93000, 15.25000, 15.10000, 15.21000, 14.68000,    
     9   14.61000, 14.73000, 14.70000, 13.90000, 13.32000, 13.22000,    
     &   13.24000, 13.40000, 13.70000, 14.54000, 14.74000, 14.60000,    
     1   14.26000, 13.99000, 14.14000, 14.25000, 13.70000, 13.50000,    
     2   13.94000, 14.13000, 13.69000, 13.20000, 13.07000, 13.39000,    
     3   13.61000, 13.90000, 13.65000, 13.16000, 12.88000, 12.48000,    
     4   12.29000, 12.25000, 12.35000, 12.49000, 12.25000, 12.17000,    
     5   12.32000, 12.46000, 12.38000, 12.12000, 12.15000, 12.39000,    
     6   12.35000, 12.02000, 12.01000, 12.24000, 12.68000, 13.15000,    
     7   13.55000, 14.13000, 14.52000, 14.78000/                        
      DATA (CRSNO2(I),I= 2001, 2100)/                                   
     1   14.65000, 14.27000, 14.36000, 14.39000, 14.48000, 14.50000,    
     2   14.27000, 13.65000, 13.44000, 13.68000, 13.90000, 14.44000,    
     3   14.99000, 15.65000, 16.82000, 17.45000, 18.34000, 18.79000,    
     4   18.68000, 19.04000, 18.09000, 17.52000, 17.42000, 17.25000,    
     5   16.37000, 15.58000, 15.27000, 15.22000, 14.94000, 14.40000,    
     6   13.63000, 13.44000, 13.09000, 13.12000, 13.16000, 13.22000,    
     7   13.37000, 13.27000, 13.48000, 13.40000, 12.99000, 13.03000,    
     8   13.37000, 13.62000, 13.89000, 14.19000, 14.51000, 14.94000,    
     9   15.56000, 16.04000, 16.00000, 16.00000, 16.54000, 17.19000,    
     &   17.07000, 17.04000, 17.02000, 16.10000, 15.15000, 14.74000,    
     1   14.57000, 14.60000, 14.77000, 15.32000, 15.81000, 15.93000,    
     2   15.91000, 15.76000, 15.35000, 14.95000, 15.00000, 15.68000,    
     3   16.06000, 15.99000, 15.92000, 16.50000, 16.94000, 17.43000,    
     4   17.82000, 17.91000, 17.94000, 16.94000, 15.64000, 15.26000,    
     5   15.71000, 15.17000, 14.21000, 14.04000, 13.40000, 12.92000,    
     6   12.83000, 12.39000, 12.31000, 12.41000, 12.30000, 12.27000,    
     7   12.44000, 12.33000, 12.37000, 12.34000/                        
      DATA (CRSNO2(I),I= 2101, 2200)/                                   
     1   12.52000, 13.09000, 13.17000, 13.53000, 14.06000, 14.41000,    
     2   14.14000, 13.88000, 14.17000, 14.03000, 13.96000, 14.03000,    
     3   14.33000, 14.81000, 15.23000, 15.72000, 16.41000, 17.12000,    
     4   17.07000, 16.36000, 15.63000, 15.64000, 16.03000, 15.69000,    
     5   14.74000, 14.38000, 14.36000, 14.55000, 14.69000, 14.88000,    
     6   15.03000, 15.18000, 15.39000, 15.52000, 15.32000, 14.94000,    
     7   14.37000, 13.81000, 13.84000, 13.75000, 13.49000, 13.39000,    
     8   13.28000, 13.34000, 13.33000, 13.54000, 13.65000, 13.51000,    
     9   13.36000, 13.35000, 13.49000, 13.62000, 13.78000, 13.80000,    
     &   13.73000, 13.92000, 14.28000, 14.65000, 14.75000, 15.02000,    
     1   15.25000, 15.32000, 15.44000, 15.45000, 15.61000, 15.72000,    
     2   15.89000, 16.03000, 16.23000, 16.27000, 16.25000, 16.47000,    
     3   16.43000, 16.25000, 16.30000, 16.49000, 16.83000, 16.74000,    
     4   16.50000, 16.98000, 16.92000, 16.96000, 17.02000, 16.58000,    
     5   16.09000, 15.79000, 15.44000, 15.18000, 15.03000, 14.71000,    
     6   14.41000, 13.96000, 14.05000, 13.99000, 14.10000, 14.15000,    
     7   14.45000, 15.19000, 15.88000, 16.20000/                        
      DATA (CRSNO2(I),I= 2201, 2300)/                                   
     1   16.54000, 17.16000, 17.35000, 16.96000, 16.61000, 16.58000,    
     2   16.39000, 16.31000, 16.23000, 16.00000, 15.31000, 15.02000,    
     3   14.62000, 14.11000, 13.71000, 13.68000, 13.67000, 13.68000,    
     4   13.91000, 13.96000, 13.89000, 13.99000, 13.98000, 13.93000,    
     5   13.81000, 13.92000, 14.02000, 14.21000, 14.48000, 14.77000,    
     6   14.88000, 15.20000, 15.39000, 15.78000, 16.30000, 16.13000,    
     7   15.84000, 15.69000, 15.84000, 16.08000, 16.03000, 15.91000,    
     8   15.48000, 15.09000, 14.83000, 14.56000, 14.52000, 14.24000,    
     9   13.95000, 13.60000, 13.45000, 13.60000, 13.59000, 13.66000,    
     &   13.69000, 13.68000, 13.73000, 13.97000, 14.16000, 14.14000,    
     1   13.98000, 13.96000, 14.09000, 14.04000, 13.90000, 13.71000,    
     2   13.53000, 13.34000, 13.42000, 13.58000, 13.78000, 14.16000,    
     3   14.55000, 14.88000, 15.26000, 15.23000, 15.08000, 15.22000,    
     4   15.16000, 15.18000, 15.23000, 15.10000, 15.13000, 15.34000,    
     5   15.69000, 16.20000, 16.65000, 16.90000, 16.82000, 16.31000,    
     6   15.96000, 15.46000, 15.06000, 14.78000, 14.92000, 15.02000,    
     7   15.06000, 14.90000, 14.78000, 14.70000/                        
      DATA (CRSNO2(I),I= 2301, 2400)/                                   
     1   14.68000, 14.79000, 14.93000, 14.87000, 15.05000, 15.30000,    
     2   15.38000, 15.37000, 15.19000, 14.98000, 15.06000, 15.15000,    
     3   15.02000, 14.88000, 14.79000, 14.63000, 14.82000, 15.10000,    
     4   15.55000, 15.53000, 15.58000, 15.68000, 15.73000, 15.51000,    
     5   15.27000, 14.92000, 14.79000, 14.78000, 14.64000, 14.49000,    
     6   14.48000, 14.52000, 14.46000, 14.61000, 14.74000, 14.75000,    
     7   14.89000, 15.01000, 15.27000, 15.23000, 15.18000, 15.05000,    
     8   14.97000, 15.06000, 15.10000, 14.99000, 14.94000, 14.82000,    
     9   14.85000, 14.80000, 14.66000, 14.44000, 14.36000, 14.22000,    
     &   13.94000, 13.79000, 13.69000, 13.58000, 13.59000, 13.74000,    
     1   13.75000, 13.87000, 13.98000, 14.16000, 14.50000, 14.71000,    
     2   15.04000, 15.36000, 15.45000, 15.10000, 14.75000, 14.61000,    
     3   14.61000, 14.73000, 14.65000, 14.65000, 14.86000, 15.10000,    
     4   15.24000, 15.62000, 15.85000, 15.60000, 15.38000, 15.39000,    
     5   15.30000, 15.08000, 15.00000, 14.69000, 14.64000, 14.78000,    
     6   14.94000, 15.07000, 15.13000, 14.85000, 14.51000, 14.23000,    
     7   14.08000, 14.01000, 13.88000, 14.09000/                        
      DATA (CRSNO2(I),I= 2401, 2500)/                                   
     1   14.05000, 14.04000, 13.85000, 13.72000, 13.65000, 13.55000,    
     2   13.65000, 13.74000, 13.60000, 13.48000, 13.31000, 13.36000,    
     3   13.48000, 13.79000, 14.04000, 14.41000, 14.56000, 14.56000,    
     4   14.38000, 14.20000, 14.39000, 14.63000, 14.55000, 14.53000,    
     5   14.37000, 14.37000, 14.49000, 14.69000, 14.61000, 14.48000,    
     6   14.63000, 14.61000, 14.71000, 14.92000, 14.95000, 15.09000,    
     7   15.33000, 15.42000, 15.37000, 15.16000, 15.22000, 15.27000,    
     8   15.45000, 15.52000, 15.36000, 15.59000, 15.70000, 15.85000,    
     9   15.89000, 15.97000, 15.72000, 15.85000, 15.63000, 15.11000,    
     &   14.89000, 14.53000, 14.29000, 13.92000, 13.79000, 13.69000,    
     1   13.60000, 13.59000, 13.37000, 13.40000, 13.24000, 13.13000,    
     2   13.26000, 13.21000, 13.13000, 12.92000, 12.83000, 12.85000,    
     3   12.88000, 13.06000, 13.18000, 13.19000, 13.14000, 12.97000,    
     4   12.95000, 13.02000, 13.04000, 12.99000, 13.14000, 13.29000,    
     5   13.60000, 13.71000, 13.98000, 14.26000, 14.34000, 14.62000,    
     6   15.07000, 15.36000, 15.44000, 15.87000, 15.99000, 16.01000,    
     7   16.31000, 16.31000, 16.19000, 16.10000/                        
      DATA (CRSNO2(I),I= 2501, 2600)/                                   
     1   15.97000, 15.80000, 15.37000, 14.92000, 14.85000, 14.86000,    
     2   14.90000, 14.88000, 14.75000, 14.77000, 14.70000, 14.47000,    
     3   14.37000, 14.12000, 13.91000, 13.57000, 13.24000, 13.12000,    
     4   12.95000, 12.96000, 12.87000, 12.72000, 12.75000, 12.70000,    
     5   12.80000, 12.99000, 13.30000, 13.43000, 13.53000, 13.57000,    
     6   13.79000, 13.64000, 13.69000, 13.66000, 13.47000, 13.24000,    
     7   13.24000, 13.22000, 13.32000, 13.44000, 13.52000, 13.52000,    
     8   13.57000, 13.71000, 13.77000, 13.85000, 14.16000, 14.27000,    
     9   14.42000, 14.55000, 14.86000, 14.94000, 15.02000, 15.07000,    
     &   15.14000, 15.11000, 14.94000, 15.00000, 15.08000, 15.09000,    
     1   14.95000, 15.07000, 14.81000, 14.60000, 14.37000, 14.14000,    
     2   13.87000, 13.57000, 13.50000, 13.21000, 13.13000, 13.14000,    
     3   13.12000, 12.75000, 12.53000, 12.46000, 12.50000, 12.45000,    
     4   12.73000, 12.69000, 12.78000, 13.03000, 13.28000, 13.34000,    
     5   13.25000, 13.33000, 13.53000, 13.42000, 13.50000, 13.39000,    
     6   13.10000, 13.02000, 12.99000, 13.06000, 13.17000, 13.41000,    
     7   13.51000, 13.34000, 13.47000, 13.49000/                        
      DATA (CRSNO2(I),I= 2601, 2700)/                                   
     1   13.39000, 13.20000, 13.07000, 13.08000, 13.16000, 13.12000,    
     2   12.96000, 12.86000, 13.02000, 13.07000, 13.28000, 13.22000,    
     3   13.35000, 13.44000, 13.37000, 13.52000, 13.68000, 13.67000,    
     4   13.77000, 13.75000, 13.79000, 13.78000, 13.66000, 13.62000,    
     5   13.83000, 13.78000, 13.77000, 13.78000, 13.87000, 13.61000,    
     6   13.42000, 13.26000, 13.05000, 13.02000, 12.76000, 12.57000,    
     7   12.51000, 12.51000, 12.38000, 12.32000, 12.41000, 12.41000,    
     8   12.66000, 12.77000, 12.97000, 13.25000, 13.55000, 13.86000,    
     9   14.04000, 14.24000, 14.51000, 14.52000, 14.54000, 14.75000,    
     &   14.86000, 14.96000, 15.12000, 15.09000, 14.94000, 14.90000,    
     1   14.89000, 14.61000, 14.47000, 14.26000, 14.06000, 13.96000,    
     2   13.86000, 13.74000, 13.61000, 13.37000, 13.19000, 13.01000,    
     3   12.94000, 12.85000, 12.81000, 12.66000, 12.66000, 12.45000,    
     4   12.33000, 12.05000, 12.02000, 12.16000, 12.26000, 12.39000,    
     5   12.59000, 12.47000, 12.49000, 12.72000, 12.72000, 12.75000,    
     6   12.64000, 12.69000, 12.82000, 12.88000, 12.98000, 12.86000,    
     7   12.71000, 12.86000, 12.93000, 12.80000/                        
      DATA (CRSNO2(I),I= 2701, 2800)/                                   
     1   12.74000, 12.92000, 12.86000, 12.66000, 12.72000, 12.63000,    
     2   12.64000, 12.55000, 12.60000, 12.55000, 12.55000, 12.53000,    
     3   12.56000, 12.53000, 12.68000, 12.83000, 12.89000, 12.95000,    
     4   13.01000, 13.12000, 13.13000, 13.06000, 13.21000, 13.42000,    
     5   13.42000, 13.26000, 13.19000, 13.14000, 12.95000, 12.80000,    
     6   12.62000, 12.45000, 12.26000, 11.98000, 11.99000, 11.81000,    
     7   11.69000, 11.64000, 11.52000, 11.44000, 11.42000, 11.45000,    
     8   11.50000, 11.49000, 11.50000, 11.49000, 11.57000, 11.49000,    
     9   11.56000, 11.47000, 11.44000, 11.59000, 11.58000, 11.50000,    
     &   11.50000, 11.49000, 11.55000, 11.74000, 11.82000, 11.99000,    
     1   12.07000, 12.10000, 12.17000, 12.38000, 12.44000, 12.42000,    
     2   12.65000, 12.82000, 12.89000, 12.96000, 13.05000, 13.15000,    
     3   13.01000, 13.08000, 13.13000, 13.46000, 13.67000, 13.85000,    
     4   13.93000, 13.82000, 14.02000, 14.08000, 14.07000, 13.96000,    
     5   13.92000, 13.67000, 13.59000, 13.29000, 13.21000, 13.00000,    
     6   12.66000, 12.50000, 12.33000, 12.21000, 12.08000, 11.94000,    
     7   11.81000, 11.72000, 11.60000, 11.45000/                        
      DATA (CRSNO2(I),I= 2801, 2900)/                                   
     1   11.42000, 11.49000, 11.18000, 11.33000, 11.41000, 11.44000,    
     2   11.59000, 11.80000, 11.75000, 11.86000, 11.92000, 11.97000,    
     3   12.12000, 12.28000, 12.38000, 12.74000, 12.78000, 12.88000,    
     4   13.05000, 13.33000, 13.42000, 13.53000, 13.66000, 13.65000,    
     5   13.75000, 13.78000, 13.75000, 13.77000, 13.86000, 13.56000,    
     6   13.34000, 12.97000, 12.86000, 12.52000, 12.35000, 12.09000,    
     7   11.90000, 11.63000, 11.40000, 11.16000, 11.13000, 10.94000,    
     8   10.75000, 10.53000, 10.44000, 10.23000, 10.10000, 10.29000,    
     9   10.23000, 10.12000, 10.08000, 10.38000, 10.56000, 10.81000,    
     &   10.92000, 11.01000, 11.02000, 11.23000, 11.32000, 11.55000,    
     1   11.45000, 11.33000, 11.18000, 10.99000, 10.97000, 10.86000,    
     2   10.77000, 10.77000, 10.85000, 10.95000, 11.10000, 11.20000,    
     3   11.39000, 11.48000, 11.54000, 11.76000, 11.84000, 12.03000,    
     4   12.01000, 11.83000, 11.83000, 11.53000, 11.53000, 11.44000,    
     5   11.53000, 11.30000, 11.29000, 11.42000, 11.19000, 11.18000,    
     6   10.97000, 10.83000, 10.75000, 10.44000, 10.41000, 10.63000,    
     7   10.48000, 10.41000, 10.34000, 10.23000/                        
      DATA (CRSNO2(I),I= 2901, 3000)/                                   
     1   10.34000, 10.24000, 10.36000, 10.30000, 10.17000, 10.27000,    
     2   10.29000, 10.57000, 10.67000, 10.73000, 10.95000, 11.13000,    
     3   11.34000, 11.44000, 11.83000, 12.29000, 12.37000, 12.55000,    
     4   12.76000, 12.90000, 13.00000, 13.09000, 13.48000, 13.38000,    
     5   13.28000, 13.33000, 13.14000, 12.83000, 12.49000, 12.00000,    
     6   11.78000, 11.57000, 11.20000, 11.07000, 11.10000, 11.14000,    
     7   11.07000, 10.93000, 10.76000, 10.97000, 10.81000, 10.99000,    
     8   11.13000, 10.99000, 10.98000, 11.19000, 11.14000, 11.46000,    
     9   11.37000, 11.46000, 11.55000, 11.42000, 11.65000, 11.46000,    
     &   11.30000, 11.23000, 11.41000, 11.39000, 11.38000, 11.26000,    
     1   11.14000, 11.25000, 11.28000, 11.06000, 10.91000, 10.71000,    
     2   10.77000, 10.59000, 10.54000, 10.55000, 10.34000, 10.44000,    
     3   10.27000, 10.43000, 10.46000, 10.39000, 10.53000, 10.73000,    
     4   10.58000, 10.56000, 10.54000, 10.26000, 10.26000, 10.16000,    
     5   10.25000, 10.32000, 10.15000, 10.21000, 10.26000, 10.17000,    
     6    9.94700, 10.03000,  9.93000,  9.98200, 10.02000,  9.99400,    
     7    9.95900, 10.16000, 10.10000, 10.27000/                        
      DATA (CRSNO2(I),I= 3001, 3100)/                                   
     1   10.30000, 10.19000, 10.10000,  9.99300, 10.02000, 10.18000,    
     2   10.04000,  9.88500,  9.72800,  9.68400,  9.52400,  9.27600,    
     3    9.34300,  9.15100,  9.22000,  9.21700,  9.24900,  9.18800,    
     4    9.19400,  9.44600,  9.47100,  9.39500,  9.53200,  9.48500,    
     5    9.46900,  9.57300,  9.61000,  9.74200,  9.90300, 10.05000,    
     6   10.29000, 10.37000, 10.38000, 10.32000, 10.46000, 10.48000,    
     7   10.70000, 10.66000, 10.57000, 10.71000, 10.94000, 10.96000,    
     8   11.00000, 10.73000, 11.06000, 11.16000, 10.99000, 10.91000,    
     9   11.09000, 10.92000, 10.79000, 10.58000, 10.52000, 10.60000,    
     &   10.25000, 10.38000, 10.08000,  9.97300,  9.99400, 10.10000,    
     1   10.07000, 10.04000,  9.88500,  9.89800,  9.87000,  9.78900,    
     2    9.65900,  9.92800, 10.02000, 10.21000,  9.91900,  9.68500,    
     3    9.86800,  9.66700,  9.77500, 10.15000, 10.42000, 10.38000,    
     4   10.22000, 10.40000, 10.25000, 10.26000, 10.19000, 10.35000,    
     5   10.47000, 10.39000, 10.54000, 10.27000, 10.39000, 10.48000,    
     6   10.38000, 10.40000, 10.37000, 10.09000,  9.92900,  9.70600,    
     7    9.63800,  9.31200,  9.18800,  9.00100/                        
      DATA (CRSNO2(I),I= 3101, 3200)/                                   
     1    8.83400,  8.57800,  8.61600,  8.50700,  8.58300,  8.54500,    
     2    8.50800,  8.29200,  8.64800,  8.57900,  8.73300,  8.81600,    
     3    8.77200,  9.01000,  8.87000,  8.89600,  9.05700,  8.95000,    
     4    9.23300,  9.27900,  9.18500,  9.08000,  9.17700,  9.11800,    
     5    9.27200,  9.35500,  9.09000,  9.26800,  9.40400,  9.30500,    
     6    9.29500,  9.11500,  9.41700,  9.18600,  8.94600,  8.85700,    
     7    8.85500,  8.85500,  8.82600,  8.93500,  8.89100,  8.80500,    
     8    8.58500,  8.82000,  8.90700,  8.53300,  8.95400,  8.74400,    
     9    8.89900,  9.27700,  9.12900,  9.31700,  9.52800,  9.22600,    
     &    9.37000,  9.44100,  9.28300,  9.01600,  8.58600,  8.37400,    
     1    8.67600,  8.86400,  8.40300,  8.46800,  8.05100,  8.23900,    
     2    8.08100,  8.15200,  8.23700,  8.27800,  8.04800,  8.40200,    
     3    8.56200,  8.59200,  8.48400,  8.49400,  8.72500,  8.98800,    
     4    8.70900,  8.90100,  8.94100,  8.98700,  9.45700,  9.41100,    
     5    9.41600,  9.25100,  9.19000,  9.56900, 10.07000, 10.02000,    
     6    9.67200,  9.74100,  9.65700,  9.75000,  9.68400,  9.43100,    
     7    9.25000,  9.28900,  9.29100,  9.04500/                        
      DATA (CRSNO2(I),I= 3201, 3300)/                                   
     1    8.71400,  8.40300,  8.62100,  8.26200,  8.27000,  8.27000,    
     2    8.24600,  8.18700,  8.08900,  7.83800,  8.04700,  8.00600,    
     3    7.94000,  8.18000,  8.36200,  8.35900,  8.15100,  8.33300,    
     4    8.32200,  8.23600,  7.93900,  8.04500,  7.98000,  8.23800,    
     5    8.38700,  8.07600,  7.90800,  7.98400,  8.00000,  8.00000,    
     6    8.11400,  7.56200,  7.84500,  7.81100,  7.81300,  7.90000,    
     7    7.85300,  7.97500,  7.86300,  8.14000,  8.13300,  8.13100,    
     8    8.08400,  8.27700,  8.09700,  8.59100,  8.60800,  8.22500,    
     9    8.27400,  8.35400,  8.37700,  8.52300,  8.64700,  8.41200,    
     &    8.41100,  8.26600,  8.40400,  8.33400,  7.96800,  7.90700,    
     1    7.85900,  8.23300,  8.11300,  7.67800,  7.80600,  7.60900,    
     2    7.72600,  7.65300,  7.71400,  7.62300,  7.46700,  7.37600,    
     3    7.43800,  7.71900,  7.92400,  7.98300,  7.81400,  7.51400,    
     4    7.59700,  7.58600,  7.61700,  7.91500,  8.18900,  7.92300,    
     5    7.71900,  7.73900,  7.88100,  7.70100,  7.52800,  7.48200,    
     6    7.63700,  7.49700,  7.48500,  7.69600,  7.98700,  7.59000,    
     7    7.52000,  7.46400,  7.61200,  7.33700/                        
      DATA (CRSNO2(I),I= 3301, 3400)/                                   
     1    7.42700,  7.53100,  7.78500,  7.19100,  7.45800,  7.42800,    
     2    7.76700,  7.86600,  7.70200,  7.62200,  7.93500,  8.06700,    
     3    7.75400,  7.54100,  7.40100,  7.40600,  7.51800,  7.42500,    
     4    7.40700,  7.48300,  7.13500,  7.55400,  7.57800,  7.51000,    
     5    7.49900,  7.46500,  7.26300,  7.50400,  7.68900,  7.82200,    
     6    7.49600,  7.22600,  7.46400,  7.82600,  7.81900,  7.59300,    
     7    7.77400,  7.31100,  7.18800,  7.10700,  7.14200,  7.14600,    
     8    7.06000,  7.11100,  7.13000,  7.05200,  7.08300,  7.04700,    
     9    6.97000,  7.05800,  7.06400,  7.04400,  6.93400,  6.96400,    
     &    6.93700,  6.97400,  7.08800,  7.09500,  7.13400,  7.19700,    
     1    7.11800,  7.18100,  7.07500,  6.96800,  7.08200,  7.21500,    
     2    7.19100,  7.14600,  7.29200,  7.27000,  7.12200,  7.09600,    
     3    7.11900,  7.20900,  7.30800,  7.21000,  7.23500,  7.21200,    
     4    7.11800,  7.09600,  7.08900,  7.07600,  7.09300,  6.99000,    
     5    7.02100,  6.91100,  7.03500,  7.01600,  6.91400,  6.81700,    
     6    6.71200,  6.69500,  6.78800,  6.76700,  6.79700,  6.73200,    
     7    6.71600,  6.71800,  6.64000,  6.71000/                        
      DATA (CRSNO2(I),I= 3401, 3500)/                                   
     1    6.59200,  6.69400,  6.57100,  6.52000,  6.51200,  6.41100,    
     2    6.51400,  6.62800,  6.54700,  6.36300,  6.49200,  6.51500,    
     3    6.56900,  6.67500,  6.69800,  6.60600,  6.59100,  6.65300,    
     4    6.81800,  6.81500,  6.89800,  6.96500,  6.90800,  6.88800,    
     5    7.00300,  7.01500,  6.86100,  6.84400,  6.86600,  6.84200,    
     6    6.88400,  6.84400,  6.72200,  6.65100,  6.83700,  6.76700,    
     7    6.54400,  6.53400,  6.52300,  6.57400,  6.64300,  6.37300,    
     8    6.26500,  6.29200,  6.35300,  6.28100,  6.33300,  6.26300,    
     9    6.31900,  6.21000,  6.16000,  6.27500,  6.17000,  6.34700,    
     &    6.37800,  6.41000,  6.36300,  6.38300,  6.26700,  6.19700,    
     1    6.30400,  6.44300,  6.41000,  6.41100,  6.34200,  6.40800,    
     2    6.53700,  6.51600,  6.54400,  6.43800,  6.49700,  6.63400,    
     3    6.54500,  6.44000,  6.48400,  6.58400,  6.62200,  6.52800,    
     4    6.47600,  6.57000,  6.56500,  6.51400,  6.41100,  6.38800,    
     5    6.25300,  6.14000,  6.24500,  6.19400,  6.11800,  6.10300,    
     6    6.17800,  6.14600,  6.03800,  5.88800,  5.88300,  5.86900,    
     7    5.86300,  5.73600,  5.69800,  5.79600/                        
      DATA (CRSNO2(I),I= 3501, 3600)/                                   
     1    5.81700,  5.69400,  5.78700,  5.69100,  5.60400,  5.72100,    
     2    5.81900,  5.74300,  5.63600,  5.65700,  5.63600,  5.78500,    
     3    5.75400,  5.54900,  5.39100,  5.50100,  5.66100,  5.73000,    
     4    5.70600,  5.67900,  5.76500,  5.76900,  5.81100,  5.84900,    
     5    5.80800,  5.84900,  5.91700,  5.95800,  5.92000,  5.86600,    
     6    5.99900,  6.08700,  6.14700,  5.99900,  5.77300,  5.79300,    
     7    5.75200,  5.63300,  5.54300,  5.45300,  5.51600,  5.65100,    
     8    5.63800,  5.49300,  5.35100,  5.34000,  5.38400,  5.47800,    
     9    5.31900,  5.13200,  5.18700,  5.36600,  5.21300,  5.18300,    
     &    5.23700,  5.21900,  4.99200,  5.20100,  5.25500,  5.18800,    
     1    5.21300,  5.24200,  5.02400,  5.13600,  5.26100,  5.33800,    
     2    5.47000,  5.34300,  5.31300,  5.23000,  5.50100,  5.40700,    
     3    5.36400,  5.29700,  5.37200,  5.36900,  5.40800,  5.56700,    
     4    5.59700,  5.55400,  5.46300,  5.46200,  5.62500,  5.53600,    
     5    5.52000,  5.66400,  5.62100,  5.36100,  5.26200,  5.45800,    
     6    5.43400,  5.23300,  5.09900,  4.97100,  4.96900,  5.10600,    
     7    5.15700,  5.02100,  5.08000,  5.28500/                        
      DATA (CRSNO2(I),I= 3601, 3700)/                                   
     1    5.10400,  5.05000,  4.97400,  4.94100,  5.20000,  5.10200,    
     2    5.09800,  5.06800,  5.00300,  5.23400,  5.28800,  4.95000,    
     3    4.95700,  5.17800,  5.11100,  5.05700,  5.23000,  5.09200,    
     4    5.00800,  5.03900,  4.97600,  4.97200,  5.00000,  4.92000,    
     5    4.86200,  4.90300,  5.00100,  5.06200,  4.90100,  4.81700,    
     6    4.99400,  4.96200,  4.92000,  4.98600,  4.81100,  4.78700,    
     7    4.89300,  4.97100,  4.84700,  4.94700,  5.04800,  5.01000,    
     8    5.04800,  5.07000,  5.03300,  5.07300,  5.08700,  5.04500,    
     9    5.03100,  4.99000,  4.94900,  4.95800,  4.90300,  4.82900,    
     &    4.76600,  4.76200,  4.69100,  4.72400,  4.63600,  4.55100,    
     1    4.60400,  4.51400,  4.50700,  4.42300,  4.30000,  4.32100,    
     2    4.35900,  4.32600,  4.30600,  4.27000,  4.23200,  4.28100,    
     3    4.34100,  4.31800,  4.30000,  4.27200,  4.28000,  4.35900,    
     4    4.38500,  4.48400,  4.43800,  4.44900,  4.41400,  4.36000,    
     5    4.46800,  4.55000,  4.46700,  4.49500,  4.54300,  4.52600,    
     6    4.53500,  4.53500,  4.45200,  4.36300,  4.41600,  4.49800,    
     7    4.51600,  4.49400,  4.35100,  4.42100/                        
      DATA (CRSNO2(I),I= 3701, 3800)/                                   
     1    4.30300,  4.30300,  4.32100,  4.29600,  4.31600,  4.32100,    
     2    4.31700,  4.27300,  4.21200,  4.22100,  4.16700,  4.16800,    
     3    4.16100,  4.01700,  3.95300,  4.08300,  4.16400,  4.13100,    
     4    4.12500,  4.02500,  4.05900,  4.13100,  4.13600,  4.13200,    
     5    4.15600,  4.17200,  4.14000,  4.07300,  4.11600,  4.23100,    
     6    4.16900,  4.17900,  4.21600,  4.24700,  4.22700,  4.25000,    
     7    4.23300,  4.20700,  4.20300,  4.23100,  4.30700,  4.23100,    
     8    4.23600,  4.23200,  4.23500,  4.18600,  4.16400,  4.15500,    
     9    4.10700,  4.12600,  4.15500,  4.18500,  4.17900,  4.13300,    
     &    4.14000,  4.08900,  4.04500,  4.04400,  4.01200,  3.95600,    
     1    3.97400,  4.05800,  4.05200,  4.02800,  4.11200,  4.18500,    
     2    4.12000,  4.03800,  4.03800,  4.08300,  4.15000,  4.13300,    
     3    4.10800,  4.10500,  4.10700,  4.19400,  4.19300,  4.12200,    
     4    4.11700,  4.14800,  4.09800,  4.10200,  4.07300,  3.98800,    
     5    4.01100,  4.01100,  3.96000,  3.88600,  3.83600,  3.83300,    
     6    3.81800,  3.76200,  3.75000,  3.80800,  3.82700,  3.74500,    
     7    3.89700,  3.95300,  3.87900,  3.82700/                        
      DATA (CRSNO2(I),I= 3801, 3900)/                                   
     1    3.83700,  3.80700,  3.73500,  3.69800,  3.64600,  3.57300,    
     2    3.53000,  3.58600,  3.70100,  3.69200,  3.54500,  3.48600,    
     3    3.47900,  3.46100,  3.43700,  3.38500,  3.34900,  3.34900,    
     4    3.30900,  3.37700,  3.35300,  3.29800,  3.26800,  3.27800,    
     5    3.32800,  3.37700,  3.33900,  3.25200,  3.27800,  3.34200,    
     6    3.32300,  3.27000,  3.23400,  3.25000,  3.28600,  3.27900,    
     7    3.21400,  3.19100,  3.30100,  3.29000,  3.27400,  3.27400,    
     8    3.27500,  3.26600,  3.27500,  3.31800,  3.38900,  3.46500,    
     9    3.41800,  3.40200,  3.43100,  3.38400,  3.39100,  3.42300,    
     &    3.46100,  3.49700,  3.50000,  3.44000,  3.40400,  3.45200,    
     1    3.39700,  3.36700,  3.36000,  3.34600,  3.34800,  3.36500,    
     2    3.32500,  3.20900,  3.23300,  3.36400,  3.38000,  3.30100,    
     3    3.25700,  3.25300,  3.27100,  3.29400,  3.27100,  3.20000,    
     4    3.25500,  3.27500,  3.21800,  3.22600,  3.30300,  3.34100,    
     5    3.30700,  3.32500,  3.33700,  3.27300,  3.26000,  3.26200,    
     6    3.31500,  3.36500,  3.37700,  3.37500,  3.40700,  3.47900,    
     7    3.49300,  3.53200,  3.59900,  3.60700/                        
      DATA (CRSNO2(I),I= 3901, 4000)/                                   
     1    3.56100,  3.50900,  3.52200,  3.63200,  3.60800,  3.51000,    
     2    3.50300,  3.49400,  3.46300,  3.45700,  3.45200,  3.42900,    
     3    3.54700,  3.36200,  3.31600,  3.31500,  3.31700,  3.33800,    
     4    3.30200,  3.21100,  3.21500,  3.19900,  3.20900,  3.20500,    
     5    3.18500,  3.11000,  3.04000,  3.00400,  2.96500,  2.91800,    
     6    2.89500,  2.91000,  2.87900,  2.91100,  2.89800,  2.82000,    
     7    2.75800,  2.74000,  2.75400,  2.66600,  2.61800,  2.62400,    
     8    2.64200,  2.64800,  2.63800,  2.61200,  2.64700,  2.65400,    
     9    2.67100,  2.64500,  2.62600,  2.64700,  2.68400,  2.69400,    
     &    2.76800,  2.70400,  2.76200,  2.80500,  2.79900,  2.80400,    
     1    2.89100,  2.94700,  2.79700,  2.83000,  2.87200,  2.84900,    
     2    2.84400,  2.87300,  2.80600,  2.75300,  2.74300,  2.78600,    
     3    2.81700,  2.80300,  2.74500,  2.67200,  2.63700,  2.60200,    
     4    2.58900,  2.55300,  2.56000,  2.58400,  2.58700,  2.57000,    
     5    2.55200,  2.52100,  2.55400,  2.55400,  2.55900,  2.55800,    
     6    2.50400,  2.46800,  2.54300,  2.59300,  2.54700,  2.48300,    
     7    2.45200,  2.46400,  2.50300,  2.58500/                        
      DATA (CRSNO2(I),I= 4001, 4100)/                                   
     1    2.58300,  2.52200,  2.52500,  2.58100,  2.62800,  2.62800,    
     2    2.65300,  2.67000,  2.72900,  2.79000,  2.80500,  2.76900,    
     3    2.76200,  2.83000,  2.81000,  2.77500,  2.74100,  2.74700,    
     4    2.80300,  2.83100,  2.81400,  2.77900,  2.77000,  2.75800,    
     5    2.74700,  2.75100,  2.75700,  2.71100,  2.72900,  2.70900,    
     6    2.65700,  2.63500,  2.69300,  2.74400,  2.71200,  2.72500,    
     7    2.66200,  2.66900,  2.71000,  2.63500,  2.61400,  2.68200,    
     8    2.59700,  2.54700,  2.52200,  2.51700,  2.57600,  2.53000,    
     9    2.49200,  2.51000,  2.48600,  2.45300,  2.45900,  2.41900,    
     &    2.39000,  2.42500,  2.40900,  2.38500,  2.35900,  2.29400,    
     1    2.28600,  2.32900,  2.36100,  2.36100,  2.36200,  2.37900,    
     2    2.30500,  2.29600,  2.27300,  2.29200,  2.35100,  2.39300,    
     3    2.31100,  2.29500,  2.34500,  2.37900,  2.37200,  2.34300,    
     4    2.33300,  2.36100,  2.34600,  2.33300,  2.28700,  2.24900,    
     5    2.27100,  2.31200,  2.23800,  2.23400,  2.28000,  2.28900,    
     6    2.22600,  2.18700,  2.23600,  2.18200,  2.17900,  2.20200,    
     7    2.21800,  2.21100,  2.21600,  2.21500/                        
      DATA (CRSNO2(I),I= 4101, 4200)/                                   
     1    2.19700,  2.18700,  2.19300,  2.19600,  2.14500,  2.11700,    
     2    2.10400,  2.10300,  2.10800,  2.09900,  2.06300,  2.12400,    
     3    2.11000,  2.07500,  2.03900,  1.99000,  2.08500,  2.12300,    
     4    2.11100,  2.06400,  2.02900,  2.11000,  2.13900,  2.09100,    
     5    2.07000,  2.05100,  2.01700,  1.99500,  2.04400,  2.06500,    
     6    1.98300,  1.94800,  2.04000,  2.05800,  2.04100,  1.98400,    
     7    1.98000,  2.01200,  2.04000,  2.02500,  1.98100,  1.96400,    
     8    1.95700,  1.94300,  1.91000,  1.91900,  1.97200,  1.94000,    
     9    1.93400,  1.99000,  2.05100,  2.04500,  2.02400,  1.98400,    
     &    1.96600,  1.99100,  1.97500,  2.02200,  2.05300,  2.04800,    
     1    2.02600,  2.03200,  2.08300,  2.10000,  2.10700,  2.12500,    
     2    2.14300,  2.09700,  2.06900,  2.02700,  2.03900,  2.07400,    
     3    2.07900,  2.08300,  2.12200,  2.13200,  2.13300,  2.12400,    
     4    2.06300,  1.99200,  1.99100,  2.01200,  2.04200,  2.06500,    
     5    2.02300,  2.02800,  2.02600,  2.00800,  1.98100,  1.99200,    
     6    1.93700,  2.00000,  2.03600,  2.01200,  1.94800,  1.95200,    
     7    1.93700,  1.88500,  1.84800,  1.88100/                        
      DATA (CRSNO2(I),I= 4201, 4300)/                                   
     1    1.92600,  1.94300,  1.96200,  1.97500,  1.96700,  1.89900,    
     2    1.83900,  1.82700,  1.85900,  1.90800,  1.91400,  1.81200,    
     3    1.83000,  1.88900,  1.93100,  1.88600,  1.79900,  1.81400,    
     4    1.84000,  1.85000,  1.83100,  1.83000,  1.85900,  1.83000,    
     5    1.81000,  1.83300,  1.84600,  1.81900,  1.81100,  1.79300,    
     6    1.75400,  1.70800,  1.79400,  1.75400,  1.66900,  1.59700,    
     7    1.65000,  1.66900,  1.67000,  1.66000,  1.64700,  1.65000,    
     8    1.60300,  1.62100,  1.65900,  1.69600,  1.69700,  1.61900,    
     9    1.56500,  1.55000,  1.56300,  1.58300,  1.55300,  1.51200,    
     &    1.51000,  1.52700,  1.51300,  1.46900,  1.50800,  1.53300,    
     1    1.52600,  1.47900,  1.49100,  1.52200,  1.54800,  1.56100,    
     2    1.54800,  1.51200,  1.53400,  1.55000,  1.55100,  1.54900,    
     3    1.57900,  1.58400,  1.58000,  1.58000,  1.61100,  1.59800,    
     4    1.60600,  1.60600,  1.59400,  1.63400,  1.65800,  1.63900,    
     5    1.61200,  1.60900,  1.69800,  1.62300,  1.62300,  1.65300,    
     6    1.65500,  1.64800,  1.64500,  1.64200,  1.63200,  1.59800,    
     7    1.61900,  1.61100,  1.59100,  1.57700/                        
      DATA (CRSNO2(I),I= 4301, 4400)/                                   
     1    1.61100,  1.58500,  1.55000,  1.54500,  1.58100,  1.56000,    
     2    1.57400,  1.58100,  1.59000,  1.60600,  1.58000,  1.53000,    
     3    1.51300,  1.50700,  1.44800,  1.45900,  1.50000,  1.56400,    
     4    1.63200,  1.57600,  1.51000,  1.48100,  1.49100,  1.54900,    
     5    1.50400,  1.52800,  1.53100,  1.51700,  1.51400,  1.53200,    
     6    1.53300,  1.54300,  1.57700,  1.62000,  1.61000,  1.60300,    
     7    1.59800,  1.58600,  1.54500,  1.51200,  1.51800,  1.55900,    
     8    1.54400,  1.54600,  1.50800,  1.46100,  1.43800,  1.47500,    
     9    1.49300,  1.49300,  1.48900,  1.54300,  1.48700,  1.47500,    
     &    1.46400,  1.41400,  1.41000,  1.41900,  1.41200,  1.39200,    
     1    1.40800,  1.37400,  1.36100,  1.36300,  1.38200,  1.37600,    
     2    1.33400,  1.31700,  1.32700,  1.27000,  1.28600,  1.30000,    
     3    1.31300,  1.33500,  1.33200,  1.34200,  1.34000,  1.31900,    
     4    1.35700,  1.35000,  1.34600,  1.34500,  1.33400,  1.37900,    
     5    1.37300,  1.35400,  1.34100,  1.30000,  1.30800,  1.31000,    
     6    1.29300,  1.27600,  1.30400,  1.30600,  1.28200,  1.21900,    
     7    1.22700,  1.24000,  1.25000,  1.24500/                        
      DATA (CRSNO2(I),I= 4401, 4500)/                                   
     1    1.23400,  1.28300,  1.28400,  1.21400,  1.25100,  1.26500,    
     2    1.25100,  1.21800,  1.20300,  1.24600,  1.25100,  1.22900,    
     3    1.17500,  1.26600,  1.24800,  1.22600,  1.24900,  1.26300,    
     4    1.22900,  1.19300,  1.16900,  1.21900,  1.22500,  1.21500,    
     5    1.19500,  1.18200,  1.24700,  1.23000,  1.18200,  1.17100,    
     6    1.17800,  1.16800,  1.15900,  1.16500,  1.13500,  1.18800,    
     7    1.23800,  1.25200,  1.23700,  1.24100,  1.25600,  1.27400,    
     8    1.19600,  1.21500,  1.22300,  1.21500,  1.22800,  1.20900,    
     9    1.20800,  1.21700,  1.19000,  1.15300,  1.15700,  1.17700,    
     &    1.16500,  1.16500,  1.17500,  1.19500,  1.23700,  1.20900,    
     1    1.18600,  1.16700,  1.15500,  1.19900,  1.23900,  1.25300,    
     2    1.20000,  1.20700,  1.20400,  1.20000,  1.19900,  1.23900,    
     3    1.23200,  1.22700,  1.25300,  1.26000,  1.25300,  1.23300,    
     4    1.18500,  1.13300,  1.13300,  1.15100,  1.18300,  1.16000,    
     5    1.14700,  1.13700,  1.13000,  1.15800,  1.13500,  1.11800,    
     6    1.13200,  1.16000,  1.13400,  1.11200,  1.11600,  1.09000,    
     7    1.07400,  1.06100,  1.05000,  1.08400/                        
      DATA (CRSNO2(I),I= 4501, 4600)/                                   
     1    1.11800,  1.12200,  1.05400,  1.16500,  1.20000,  1.19300,    
     2    1.13000,  1.10700,  1.09200,  1.08500,  1.09700,  1.03200,    
     3    1.02700,  1.05100,  1.09800,  1.08200,  1.04800,  1.02400,    
     4    1.10300,  1.07800,  1.04200,  1.00600,  1.03300,  1.06400,    
     5    1.06500,  1.03700,   .98490,   .96690,   .97230,  1.00200,    
     6    1.02400,   .99250,   .97660,   .99780,   .98900,   .95400,    
     7     .92220,   .90730,   .91620,   .89230,   .86550,   .86830,    
     8     .86310,   .90250,   .96050,   .97740,   .96140,   .95290,    
     9     .95610,  1.01600,   .96880,   .94340,   .95530,   .97530,    
     &     .92910,   .89910,   .92590,   .95420,   .99520,  1.02400,    
     1     .98670,   .89400,   .89000,   .93240,   .97310,   .99850,    
     2     .98700,   .93590,   .88350,   .92440,   .95250,   .93540,    
     3     .93050,   .93200,   .93420,   .93250,   .90090,   .92370,    
     4     .97990,  1.02000,  1.02100,  1.00800,   .97750,   .92290,    
     5     .87810,   .86800,   .94530,   .93200,   .93280,   .94930,    
     6    1.01800,  1.02200,  1.00800,   .97720,   .95520,   .96610,    
     7     .97460,   .96740,   .96270,   .94330/                        
      DATA (CRSNO2(I),I= 4601, 4700)/                                   
     1     .92120,   .92510,   .98710,  1.00700,   .98990,   .98040,    
     2     .96750,   .94980,   .91820,   .99330,  1.00800,   .99360,    
     3     .94910,   .97370,   .96810,   .91690,   .88190,   .90330,    
     4     .93820,   .98320,   .96250,   .93220,   .89260,   .87850,    
     5     .86130,   .85960,   .88790,   .88650,   .87850,   .87320,    
     6     .90180,   .87030,   .84960,   .84070,   .86690,   .84080,    
     7     .80240,   .75940,   .77760,   .79290,   .80790,   .81080,    
     8     .86720,   .89960,   .84620,   .82080,   .82180,   .83880,    
     9     .86650,   .83970,   .80550,   .75680,   .75400,   .77680,    
     &     .81140,   .81350,   .77890,   .76630,   .79880,   .84180,    
     1     .85610,   .86120,   .86730,   .83890,   .81240,   .78340,    
     2     .77660,   .77480,   .77480,   .77660,   .75370,   .74710,    
     3     .77280,   .78030,   .80180,   .82540,   .78070,   .76650,    
     4     .74670,   .69800,   .70040,   .69850,   .69680,   .72920,    
     5     .70950,   .70040,   .73680,   .72260,   .70660,   .69130,    
     6     .76380,   .76040,   .75080,   .76700,   .73170,   .73220,    
     7     .76820,   .74570,   .71200,   .68120/                        
      DATA (CRSNO2(I),I= 4701, 4800)/                                   
     1     .69490,   .68370,   .68780,   .72220,   .74230,   .73940,    
     2     .72470,   .69800,   .72100,   .74720,   .77420,   .70720,    
     3     .71170,   .77450,   .76300,   .76600,   .76550,   .72420,    
     4     .70450,   .71190,   .76580,   .76320,   .77140,   .78680,    
     5     .79230,   .77330,   .75930,   .77630,   .81030,   .81250,    
     6     .77760,   .77400,   .74280,   .69910,   .69570,   .72110,    
     7     .73730,   .71890,   .74420,   .74650,   .72250,   .67430,    
     8     .67680,   .69850,   .73060,   .74630,   .75190,   .73350,    
     9     .67680,   .66520,   .69870,   .70110,   .72240,   .75700,    
     &     .79920,   .73190,   .66070,   .61570,   .65030,   .68440,    
     1     .73210,   .73350,   .72820,   .71990,   .74190,   .72470,    
     2     .69770,   .66350,   .65720,   .66990,   .72980,   .70250,    
     3     .68300,   .66400,   .68160,   .70710,   .74070,   .76680,    
     4     .73370,   .69730,   .68140,   .76250,   .80090,   .76690,    
     5     .70890,   .70150,   .73050,   .69860,   .68220,   .67040,    
     6     .68770,   .71600,   .73710,   .71440,   .68930,   .67670,    
     7     .68500,   .66960,   .67630,   .70900/                        
      DATA (CRSNO2(I),I= 4801, 4900)/                                   
     1     .64460,   .62380,   .61710,   .60540,   .60600,   .61180,    
     2     .63530,   .64150,   .65460,   .70910,   .68390,   .65730,    
     3     .61700,   .57200,   .57340,   .61840,   .60830,   .61940,    
     4     .64370,   .64210,   .64840,   .65400,   .62990,   .64510,    
     5     .65670,   .62690,   .63150,   .62380,   .57740,   .53770,    
     6     .53890,   .59850,   .61190,   .63330,   .67370,   .66730,    
     7     .64270,   .60620,   .66230,   .64350,   .60590,   .61520,    
     8     .60540,   .59260,   .57930,   .60610,   .63300,   .66210,    
     9     .63790,   .62300,   .62550,   .65030,   .65130,   .61660,    
     &     .58040,   .56890,   .57290,   .58080,   .56500,   .53260,    
     1     .64670,   .65670,   .62700,   .58000,   .57600,   .58180,    
     2     .58330,   .58560,   .59070,   .61610,   .62100,   .62190,    
     3     .61460,   .59320,   .57820,   .58530,   .60970,   .62750,    
     4     .63750,   .58540,   .56030,   .57780,   .63680,   .65100,    
     5     .60200,   .57380,   .57860,   .62240,   .62940,   .61480,    
     6     .56900,   .57100,   .57960,   .59960,   .64510,   .64900,    
     7     .62850,   .62400,   .60220,   .56220/                        
      DATA (CRSNO2(I),I= 4901, 5000)/                                   
     1     .58020,   .57910,   .56720,   .52100,   .52320,   .54510,    
     2     .56940,   .57380,   .57220,   .56280,   .55220,   .53910,    
     3     .54000,   .54120,   .54200,   .53420,   .53850,   .54310,    
     4     .50490,   .54910,   .61460,   .61020,   .59810,   .57960,    
     5     .54740,   .55700,   .57370,   .55270,   .52680,   .50120,    
     6     .51740,   .53310,   .55580,   .62890,   .65790,   .67260,    
     7     .57200,   .59310,   .64300,   .64320,   .67180,   .70630,    
     8     .63510,   .58160,   .52490,   .56590,   .56620,   .55800,    
     9     .60910,   .62670,   .63530,   .57030,   .53220,   .49330,    
     &     .56430,   .57350,   .55910,   .56580,   .55660,   .53200,    
     1     .49220,   .49290,   .51910,   .53960,   .54110,   .52740,    
     2     .51440,   .50790,   .50210,   .52560,   .53910,   .55210,    
     3     .54490,   .53540,   .51190,   .53990,   .55730,   .56400,    
     4     .50520,   .46700,   .46550,   .50870,   .53590,   .49770,    
     5     .51920,   .53650,   .49420,   .52870,   .57520,   .61620,    
     6     .59660,   .56270,   .56070,   .56070,   .56150,   .56380,    
     7     .58790,   .63460,   .61220,   .59580/                        
      DATA (CRSNO2(I),I= 5001, 5100)/                                   
     1     .57120,   .58170,   .56440,   .49670,   .50090,   .50900,    
     2     .53090,   .55020,   .57040,   .62010,   .59170,   .56260,    
     3     .53060,   .53830,   .55270,   .57760,   .57440,   .56720,    
     4     .59410,   .59360,   .58220,   .53360,   .50510,   .46840,    
     5     .51270,   .54130,   .58130,   .53010,   .49940,   .47790,    
     6     .46300,   .45660,   .47390,   .49570,   .51900,   .55560,    
     7     .53590,   .50220,   .46280,   .48230,   .53540,   .53440,    
     8     .51260,   .45380,   .47780,   .49170,   .50380,   .49220,    
     9     .48940,   .51870,   .49850,   .47990,   .50290,   .49330,    
     &     .47930,   .52410,   .52060,   .49170,   .46990,   .47920,    
     1     .53010,   .51420,   .50250,   .48790,   .51280,   .53290,    
     2     .53340,   .52410,   .51480,   .54390,   .55670,   .56930,    
     3     .53650,   .51500,   .48260,   .51480,   .52960,   .52500,    
     4     .54900,   .56080,   .49930,   .46000,   .42270,   .48660,    
     5     .50600,   .51770,   .51460,   .51750,   .53170,   .51050,    
     6     .49830,   .50220,   .46840,   .43250,   .39100,   .40650,    
     7     .44530,   .45530,   .46720,   .49340/                        
      DATA (CRSNO2(I),I= 5101, 5200)/                                   
     1     .49220,   .49210,   .49600,   .52800,   .55250,   .51870,    
     2     .49520,   .46670,   .47260,   .48740,   .52350,   .51330,    
     3     .49670,   .44180,   .49480,   .54020,   .52760,   .52270,    
     4     .51780,   .51900,   .52160,   .52820,   .49780,   .47340,    
     5     .42660,   .46650,   .50920,   .51090,   .46930,   .39670,    
     6     .48340,   .51590,   .52810,   .54130,   .54620,   .52280,    
     7     .49080,   .46120,   .51560,   .51780,   .49370,   .50610,    
     8     .51560,   .53360,   .53030,   .52580,   .52030,   .53740,    
     9     .56750,   .57990,   .59330,   .62630,   .60940,   .59290,    
     &     .56790,   .57800,   .59410,   .57300,   .55800,   .53480,    
     1     .55490,   .56180,   .53560,   .55080,   .57150,   .57220,    
     2     .59070,   .63660,   .64630,   .65960,   .70810,   .69270,    
     3     .67310,   .66590,   .65630,   .63750,   .63300,   .64940,    
     4     .72750,   .76310,   .79610,   .83880,   .83480,   .80690,    
     5     .79830,   .79880,   .82020,   .87200,   .92760,   .99490,    
     6    1.01200,  1.02000,  1.04500,  1.07900,  1.20000,  1.28800,    
     7    1.37200,  1.41000,  1.43400,  1.47700/                        
      DATA (CRSNO2(I),I= 5201, 5300)/                                   
     1    1.54800,  1.59000,  1.62900,  1.65500,  1.68400,  1.75000,    
     2    1.76100,  1.73900,  1.55500,  1.39900,  1.08000,   .92560,    
     3     .74300,   .61100,   .55540,   .51030,   .50030,   .49290,    
     4     .48540,   .48210,   .47830,   .48260,   .47960,   .45760,    
     5     .43630,   .41440,   .41510,   .42330,   .44380,   .43170,    
     6     .42160,   .40470,   .40450,   .40810,   .41070,   .41770,    
     7     .44000,   .45610,   .47110,   .48360,   .49490,   .51480,    
     8     .54020,   .55060,   .52920,   .50980,   .48320,   .47270,    
     9     .47480,   .49580,   .51770,   .53820,   .55350,   .54580,    
     &     .51640,   .52320,   .52660,   .51800,   .50390,   .48390,    
     1     .53610,   .55950,   .57290,   .56420,   .55390,   .55340,    
     2     .55910,   .57600,   .57570,   .57120,   .52870,   .52120,    
     3     .52290,   .57090,   .59850,   .61920,   .63120,   .64550,    
     4     .65140,   .64720,   .61610,   .62840,   .64650,   .69570,    
     5     .71940,   .75050,   .75010,   .74670,   .71930,   .71460,    
     6     .71800,   .76240,   .79620,   .84100,   .85260,   .86400,    
     7     .89720,   .92090,   .97370,  1.01700/                        
      DATA (CRSNO2(I),I= 5301, 5400)/                                   
     1    1.07600,  1.12400,  1.15200,  1.20100,  1.23900,  1.28100,    
     2    1.33200,  1.35700,  1.38700,  1.43600,  1.48300,  1.46600,    
     3    1.43100,  1.31800,  1.18000,  1.05700,   .92400,   .86230,    
     4     .77740,   .74840,   .72720,   .70660,   .71140,   .73350,    
     5     .75160,   .76160,   .74990,   .75960,   .78540,   .81700,    
     6     .84320,   .89140,   .90990,   .93350,   .97580,  1.00800,    
     7    1.08000,  1.13200,  1.21500,  1.27500,  1.31700,  1.38200,    
     8    1.42500,  1.49000,  1.55900,  1.60200,  1.63400,  1.65000,    
     9    1.67300,  1.67300,  1.66100,  1.58600,  1.52000,  1.40200,    
     &    1.32000,  1.25900,  1.14900,  1.09400,  1.01600,   .97670,    
     1     .94890,   .90910,   .89660,   .88250,   .89020,   .89420,    
     2     .88850,   .89270,   .90380,   .87780,   .85910,   .85150,    
     3     .86740,   .91290,   .95490,   .98670,   .99330,  1.02300,    
     4    1.11400,  1.13300,  1.14300,  1.08400,  1.06800,  1.06600,    
     5    1.11700,  1.17100,  1.23800,  1.27200,  1.32300,  1.33300,    
     6    1.34500,  1.41000,  1.44700,  1.50400,  1.55700,  1.63100,    
     7    1.69000,  1.72300,  1.75400,  1.80700/                        
      DATA (CRSNO2(I),I= 5401, 5500)/                                   
     1    1.90500,  1.91800,  1.93400,  1.99900,  2.02000,  2.04800,    
     2    2.06100,  2.07000,  2.06400,  2.05100,  2.01600,  2.05600,    
     3    2.10000,  2.09900,  2.11500,  2.18100,  2.25300,  2.35300,    
     4    2.42600,  2.47800,  2.62900,  2.70300,  2.81200,  2.93600,    
     5    3.03800,  3.21500,  3.32700,  3.53800,  3.62900,  3.72200,    
     6    3.87000,  3.95400,  4.11000,  4.18500,  4.27300,  4.31900,    
     7    4.32400,  4.23200,  4.16200,  4.03900,  3.86100,  3.71100,    
     8    3.42200,  3.24200,  2.87700,  2.64900,  2.39900,  2.06600,    
     9    1.89100,  1.62400,  1.49600,  1.31800,  1.24400,  1.19100,    
     &    1.10800,  1.06000,   .96860,   .96790,   .96930,   .95080,    
     1     .93920,   .91410,   .89350,   .86480,   .89460,   .91140,    
     2     .91330,   .92240,   .94640,   .94770,   .95030,  1.01500,    
     3    1.03600,  1.03200,  1.02300,  1.00700,  1.00700,  1.01500,    
     4    1.07400,  1.05900,   .97830,  1.01600,  1.06500,  1.08800,    
     5    1.10900,  1.17400,  1.18700,  1.19700,  1.20200,  1.20600,    
     6    1.21600,  1.23000,  1.27600,  1.28300,  1.29200,  1.34100,    
     7    1.38000,  1.48100,  1.50800,  1.53000/                        
      DATA (CRSNO2(I),I= 5501, 5600)/                                   
     1    1.53000,  1.53000,  1.55200,  1.57100,  1.62500,  1.62400,    
     2    1.60500,  1.66900,  1.72400,  1.74400,  1.76400,  1.82700,    
     3    1.86100,  1.91300,  2.01200,  2.08000,  2.13000,  2.16100,    
     4    2.22800,  2.28300,  2.35600,  2.36600,  2.38400,  2.47700,    
     5    2.53500,  2.66000,  2.72200,  2.79500,  2.88400,  2.94000,    
     6    3.04500,  3.11000,  3.24000,  3.30500,  3.37400,  3.43300,    
     7    3.46500,  3.51900,  3.53900,  3.56700,  3.50500,  3.44000,    
     8    3.45000,  3.42600,  3.26200,  3.17300,  3.01000,  2.89700,    
     9    2.77900,  2.62400,  2.53700,  2.37800,  2.34100,  2.30700,    
     &    2.25500,  2.20200,  2.16400,  2.15300,  2.18000,  2.18800,    
     1    2.19900,  2.27100,  2.35100,  2.38300,  2.41800,  2.56000,    
     2    2.59800,  2.63800,  2.70300,  2.78400,  2.87500,  2.93000,    
     3    3.01300,  3.06900,  3.19600,  3.25800,  3.34000,  3.46300,    
     4    3.55100,  3.71500,  3.77500,  3.85800,  3.93500,  4.05500,    
     5    4.02000,  4.00200,  4.07200,  4.12300,  4.26700,  4.30400,    
     6    4.35000,  4.40900,  4.47200,  4.63200,  4.69500,  4.70700,    
     7    4.72800,  4.78200,  4.81400,  4.84800/                        
      DATA (CRSNO2(I),I= 5601, 5700)/                                   
     1    4.78800,  4.75300,  4.71600,  4.71600,  4.74300,  4.68600,    
     2    4.58400,  4.56300,  4.54600,  4.51000,  4.48300,  4.40000,    
     3    4.36500,  4.30300,  4.24300,  4.17900,  4.16600,  4.15800,    
     4    4.14600,  4.11300,  4.00500,  3.97700,  3.94300,  3.90700,    
     5    3.88300,  3.91200,  3.92900,  3.97400,  4.00000,  4.05200,    
     6    4.03800,  4.02000,  4.07500,  4.10400,  4.09600,  4.09400,    
     7    4.09200,  4.09600,  4.10300,  4.08000,  4.05800,  4.04700,    
     8    4.03500,  3.97700,  3.92600,  3.78600,  3.72600,  3.63900,    
     9    3.62200,  3.60800,  3.59000,  3.58100,  3.57000,  3.58700,    
     &    3.64600,  3.71300,  3.81400,  3.87800,  3.92500,  3.96200,    
     1    4.00400,  4.18200,  4.27500,  4.46600,  4.51200,  4.56900,    
     2    4.69400,  4.79000,  4.92800,  5.00700,  5.19800,  5.27400,    
     3    5.41200,  5.46700,  5.53900,  5.55800,  5.57100,  5.56600,    
     4    5.54500,  5.42600,  5.37100,  5.26100,  5.19200,  5.08800,    
     5    4.96300,  4.85200,  4.63800,  4.53200,  4.37600,  4.29600,    
     6    4.11800,  4.05200,  3.95100,  3.84200,  3.73000,  3.51100,    
     7    3.39300,  3.25800,  3.21600,  3.17400/                        
      DATA (CRSNO2(I),I= 5701, 5800)/                                   
     1    3.14400,  3.08300,  3.01700,  2.94000,  2.96400,  2.97800,    
     2    2.96400,  2.96200,  2.97700,  2.97800,  2.97300,  2.97700,    
     3    2.98200,  2.97300,  2.96900,  3.04900,  3.08900,  3.13800,    
     4    3.16000,  3.20700,  3.20800,  3.20100,  3.24100,  3.29400,    
     5    3.36100,  3.40500,  3.41600,  3.42700,  3.47500,  3.50600,    
     6    3.58600,  3.61100,  3.65000,  3.65400,  3.66000,  3.69500,    
     7    3.72400,  3.83000,  3.88100,  3.98400,  4.01200,  4.05100,    
     8    4.08500,  4.14900,  4.28200,  4.42200,  4.53100,  4.60000,    
     9    4.70400,  4.76300,  4.92400,  4.98400,  5.10000,  5.19500,    
     &    5.36500,  5.46600,  5.57700,  5.69700,  5.78000,  5.92400,    
     1    5.99300,  6.13000,  6.19900,  6.36500,  6.45400,  6.61800,    
     2    6.70600,  6.81100,  6.86000,  6.90200,  7.02400,  7.09200,    
     3    7.25000,  7.29700,  7.35000,  7.37300,  7.41900,  7.43200,    
     4    7.45100,  7.46600,  7.47900,  7.45700,  7.44000,  7.37300,    
     5    7.34700,  7.31000,  7.29600,  7.26800,  7.24200,  7.18800,    
     6    7.14700,  7.09400,  7.08700,  7.07900,  7.03200,  7.00900,    
     7    6.99300,  6.99200,  7.01100,  7.01600/                        
      DATA (CRSNO2(I),I= 5801, 5900)/                                   
     1    7.02200,  7.03500,  7.06300,  7.10800,  7.16700,  7.19200,    
     2    7.21400,  7.28100,  7.31600,  7.35800,  7.38600,  7.47600,    
     3    7.51200,  7.58800,  7.60700,  7.63700,  7.69500,  7.78100,    
     4    7.82700,  7.86800,  7.89700,  7.91500,  7.94100,  7.95600,    
     5    7.99400,  8.02800,  8.14400,  8.17300,  8.21700,  8.22400,    
     6    8.23300,  8.24100,  8.25000,  8.25000,  8.25200,  8.28900,    
     7    8.30300,  8.27200,  8.26300,  8.26100,  8.24600,  8.19100,    
     8    8.16500,  8.11000,  8.06300,  7.98500,  7.93700,  7.88100,    
     9    7.81200,  7.75900,  7.69200,  7.65800,  7.61800,  7.59900,    
     &    7.55000,  7.52900,  7.48100,  7.45100,  7.38100,  7.35900,    
     1    7.32400,  7.31200,  7.29500,  7.24400,  7.19800,  7.12500,    
     2    7.07900,  6.99300,  6.95300,  6.87700,  6.84600,  6.78000,    
     3    6.74800,  6.66800,  6.64300,  6.59500,  6.55100,  6.47500,    
     4    6.42200,  6.35600,  6.29700,  6.24300,  6.14800,  6.09000,    
     5    6.03100,  6.01200,  6.04100,  6.04200,  6.00000,  5.97800,    
     6    5.91800,  5.90300,  5.88200,  5.90100,  5.94500,  5.99500,    
     7    6.06900,  6.11600,  6.16500,  6.19600/                        
      DATA (CRSNO2(I),I= 5901, 6000)/                                   
     1    6.22100,  6.26800,  6.29700,  6.37000,  6.40800,  6.51300,    
     2    6.55400,  6.64000,  6.67000,  6.73000,  6.75300,  6.80200,    
     3    6.84600,  6.93600,  6.99200,  7.07900,  7.13100,  7.19500,    
     4    7.28600,  7.36400,  7.43100,  7.47300,  7.49900,  7.51300,    
     5    7.55100,  7.57400,  7.65500,  7.69300,  7.79400,  7.81700,    
     6    7.84100,  7.84300,  7.84100,  7.85400,  7.88700,  7.91000,    
     7    7.95100,  7.97100,  7.99700,  7.98800,  7.98000,  7.97600,    
     8    7.97400,  7.99400,  8.00500,  8.01200,  8.01200,  7.98200,    
     9    7.97300,  7.98100,  7.98600,  8.00800,  8.00200,  7.95700,    
     &    7.94200,  7.90900,  7.88000,  7.81000,  7.77700,  7.71700,    
     1    7.71500,  7.71600,  7.72000,  7.72600,  7.75600,  7.78600,    
     2    7.82100,  7.85100,  7.91100,  7.95300,  8.05300,  8.10900,    
     3    8.21700,  8.27200,  8.40900,  8.46700,  8.59100,  8.63900,    
     4    8.74800,  8.80100,  8.95300,  9.02200,  9.20000,  9.27000,    
     5    9.42700,  9.48000,  9.58500,  9.64100,  9.74500,  9.84200,    
     6    9.99900, 10.14000, 10.32000, 10.45000, 10.59000, 10.72000,    
     7   10.84000, 10.97000, 11.07000, 11.24000/                        
      DATA (CRSNO2(I),I= 6001, 6100)/                                   
     1   11.35000, 11.53000, 11.62000, 11.76000, 11.82000, 11.94000,    
     2   11.99000, 12.11000, 12.16000, 12.26000, 12.29000, 12.35000,    
     3   12.37000, 12.42000, 12.44000, 12.48000, 12.50000, 12.56000,    
     4   12.57000, 12.62000, 12.62000, 12.63000, 12.62000, 12.57000,    
     5   12.53000, 12.46000, 12.39000, 12.28000, 12.19000, 12.06000,    
     6   11.97000, 11.85000, 11.74000, 11.62000, 11.46000, 11.32000,    
     7   11.16000, 11.03000, 10.88000, 10.77000, 10.61000, 10.52000,    
     8   10.39000, 10.32000, 10.22000, 10.16000, 10.06000, 10.00000,    
     9    9.83200,  9.75400,  9.60000,  9.53600,  9.41600,  9.36900,    
     &    9.27600,  9.24400,  9.18300,  9.15900,  9.09600,  9.07300,    
     1    9.01500,  8.99100,  8.92700,  8.90600,  8.85600,  8.84500,    
     2    8.83000,  8.83600,  8.86600,  8.87400,  8.89100,  8.89200,    
     3    8.89100,  8.89700,  8.91400,  8.92200,  8.94400,  8.95300,    
     4    8.97400,  9.00100,  9.06800,  9.10500,  9.18200,  9.20300,    
     5    9.24000,  9.26000,  9.29900,  9.33300,  9.39600,  9.42300,    
     6    9.46900,  9.47600,  9.48500,  9.50500,  9.53800,  9.55900,    
     7    9.59100,  9.58400,  9.57300,  9.57100/                        
      DATA (CRSNO2(I),I= 6101, 6200)/                                   
     1    9.57000,  9.58800,  9.61400,  9.63100,  9.65500,  9.65400,    
     2    9.65300,  9.64500,  9.63500,  9.61100,  9.57900,  9.55000,    
     3    9.51500,  9.51200,  9.50900,  9.51200,  9.51600,  9.50300,    
     4    9.48800,  9.47400,  9.45700,  9.44600,  9.43300,  9.43500,    
     5    9.43700,  9.43300,  9.42900,  9.41400,  9.39800,  9.39700,    
     6    9.39600,  9.40500,  9.41600,  9.43000,  9.44700,  9.48700,    
     7    9.53700,  9.60000,  9.67800,  9.72200,  9.77600,  9.80300,    
     8    9.83800,  9.87200,  9.91900,  9.98300, 10.07000, 10.14000,    
     9   10.24000, 10.29000, 10.36000, 10.43000, 10.53000, 10.58000,    
     &   10.67000, 10.70000, 10.75000, 10.80000, 10.87000, 10.93000,    
     1   11.04000, 11.08000, 11.16000, 11.19000, 11.25000, 11.29000,    
     2   11.36000, 11.40000, 11.47000, 11.52000, 11.63000, 11.69000,    
     3   11.84000, 11.89000, 12.01000, 12.04000, 12.10000, 12.13000,    
     4   12.22000, 12.27000, 12.38000, 12.42000, 12.54000, 12.58000,    
     5   12.69000, 12.73000, 12.82000, 12.85000, 12.95000, 12.97000,    
     6   13.04000, 13.05000, 13.08000, 13.10000, 13.14000, 13.16000,    
     7   13.23000, 13.25000, 13.29000, 13.30000/                        
      DATA (CRSNO2(I),I= 6201, 6300)/                                   
     1   13.30000, 13.30000, 13.33000, 13.34000, 13.36000, 13.37000,    
     2   13.40000, 13.41000, 13.46000, 13.48000, 13.51000, 13.52000,    
     3   13.53000, 13.53000, 13.55000, 13.56000, 13.56000, 13.57000,    
     4   13.55000, 13.53000, 13.51000, 13.49000, 13.49000, 13.49000,    
     5   13.50000, 13.53000, 13.53000, 13.54000, 13.53000, 13.50000,    
     6   13.49000, 13.46000, 13.44000, 13.38000, 13.35000, 13.28000,    
     7   13.25000, 13.20000, 13.19000, 13.17000, 13.15000, 13.08000,    
     8   13.04000, 12.91000, 12.87000, 12.76000, 12.71000, 12.63000,    
     9   12.59000, 12.51000, 12.47000, 12.35000, 12.29000, 12.15000,    
     &   12.06000, 11.94000, 11.85000, 11.75000, 11.67000, 11.62000,    
     1   11.57000, 11.52000, 11.47000, 11.42000, 11.35000, 11.33000,    
     2   11.30000, 11.28000, 11.25000, 11.22000, 11.17000, 11.15000,    
     3   11.10000, 11.07000, 10.98000, 10.95000, 10.86000, 10.83000,    
     4   10.77000, 10.75000, 10.70000, 10.68000, 10.67000, 10.67000,    
     5   10.67000, 10.67000, 10.63000, 10.61000, 10.60000, 10.60000,    
     6   10.62000, 10.64000, 10.64000, 10.62000, 10.61000, 10.58000,    
     7   10.59000, 10.63000, 10.67000, 10.76000/                        
      DATA (CRSNO2(I),I= 6301, 6400)/                                   
     1   10.79000, 10.84000, 10.85000, 10.89000, 10.91000, 10.99000,    
     2   11.01000, 11.06000, 11.08000, 11.12000, 11.14000, 11.18000,    
     3   11.20000, 11.25000, 11.28000, 11.34000, 11.39000, 11.45000,    
     4   11.52000, 11.56000, 11.63000, 11.65000, 11.69000, 11.71000,    
     5   11.77000, 11.80000, 11.89000, 11.90000, 11.93000, 11.94000,    
     6   11.92000, 11.92000, 11.95000, 11.96000, 11.98000, 11.99000,    
     7   11.97000, 11.95000, 11.97000, 11.98000, 12.02000, 12.06000,    
     8   12.06000, 12.05000, 12.06000, 12.08000, 12.10000, 12.18000,    
     9   12.20000, 12.25000, 12.27000, 12.33000, 12.36000, 12.46000,    
     &   12.51000, 12.60000, 12.65000, 12.74000, 12.80000, 12.86000,    
     1   12.92000, 12.97000, 13.05000, 13.10000, 13.19000, 13.22000,    
     2   13.30000, 13.34000, 13.43000, 13.45000, 13.53000, 13.56000,    
     3   13.64000, 13.66000, 13.73000, 13.76000, 13.81000, 13.84000,    
     4   13.86000, 13.89000, 13.90000, 13.91000, 13.93000, 13.96000,    
     5   13.99000, 14.05000, 14.09000, 14.20000, 14.23000, 14.32000,    
     6   14.35000, 14.40000, 14.42000, 14.46000, 14.48000, 14.53000,    
     7   14.57000, 14.60000, 14.64000, 14.65000/                        
      DATA (CRSNO2(I),I= 6401, 6500)/                                   
     1   14.66000, 14.66000, 14.65000, 14.63000, 14.57000, 14.56000,    
     2   14.52000, 14.51000, 14.51000, 14.50000, 14.45000, 14.43000,    
     3   14.37000, 14.33000, 14.30000, 14.26000, 14.24000, 14.20000,    
     4   14.19000, 14.18000, 14.18000, 14.20000, 14.19000, 14.15000,    
     5   14.14000, 14.07000, 14.04000, 14.04000, 14.03000, 14.04000,    
     6   14.04000, 14.00000, 13.93000, 13.91000, 13.86000, 13.83000,    
     7   13.76000, 13.74000, 13.65000, 13.63000, 13.54000, 13.51000,    
     8   13.44000, 13.39000, 13.34000, 13.30000, 13.27000, 13.22000,    
     9   13.19000, 13.12000, 13.08000, 12.95000, 12.91000, 12.75000,    
     &   12.70000, 12.58000, 12.53000, 12.47000, 12.43000, 12.37000,    
     1   12.30000, 12.24000, 12.13000, 12.10000, 12.00000, 11.98000,    
     2   11.93000, 11.92000, 11.87000, 11.85000, 11.80000, 11.77000,    
     3   11.75000, 11.74000, 11.74000, 11.75000, 11.74000, 11.71000,    
     4   11.70000, 11.65000, 11.65000, 11.68000, 11.70000, 11.74000,    
     5   11.76000, 11.76000, 11.77000, 11.78000, 11.81000, 11.83000,    
     6   11.87000, 11.87000, 11.87000, 11.87000, 11.84000, 11.84000,    
     7   11.88000, 11.90000, 11.95000, 11.99000/                        
      DATA (CRSNO2(I),I= 6501, 6600)/                                   
     1   12.00000, 12.01000, 12.00000, 11.98000, 11.98000, 12.00000,    
     2   12.01000, 12.06000, 12.08000, 12.10000, 12.11000, 12.11000,    
     3   12.11000, 12.13000, 12.18000, 12.19000, 12.23000, 12.24000,    
     4   12.24000, 12.25000, 12.27000, 12.28000, 12.30000, 12.31000,    
     5   12.36000, 12.42000, 12.49000, 12.63000, 12.67000, 12.79000,    
     6   12.82000, 12.88000, 12.89000, 12.89000, 12.89000, 12.95000,    
     7   13.01000, 13.07000, 13.17000, 13.20000, 13.28000, 13.30000,    
     8   13.32000, 13.32000, 13.31000, 13.31000, 13.33000, 13.35000,    
     9   13.40000, 13.47000, 13.51000, 13.61000, 13.63000, 13.65000,    
     &   13.65000, 13.59000, 13.57000, 13.66000, 13.72000, 13.79000,    
     1   13.89000, 13.93000, 14.02000, 14.04000, 14.11000, 14.13000,    
     2   14.19000, 14.22000, 14.29000, 14.35000, 14.40000, 14.48000,    
     3   14.52000, 14.62000, 14.66000, 14.76000, 14.79000, 14.83000,    
     4   14.85000, 14.90000, 14.95000, 14.97000, 15.00000, 14.97000,    
     5   14.90000, 14.88000, 14.77000, 14.74000, 14.68000, 14.65000,    
     6   14.61000, 14.57000, 14.55000, 14.50000, 14.46000, 14.34000,    
     7   14.31000, 14.23000, 14.20000, 14.18000/                        
      DATA (CRSNO2(I),I= 6601, 6700)/                                   
     1   14.16000, 14.14000, 14.11000, 14.10000, 14.06000, 14.05000,    
     2   14.04000, 14.03000, 14.00000, 13.99000, 13.96000, 13.93000,    
     3   13.90000, 13.85000, 13.84000, 13.80000, 13.79000, 13.75000,    
     4   13.74000, 13.73000, 13.73000, 13.69000, 13.64000, 13.58000,    
     5   13.42000, 13.40000, 13.34000, 13.32000, 13.30000, 13.29000,    
     6   13.25000, 13.21000, 13.18000, 13.13000, 13.11000, 13.04000,    
     7   13.02000, 12.95000, 12.92000, 12.84000, 12.77000, 12.70000,    
     8   12.58000, 12.54000, 12.42000, 12.38000, 12.27000, 12.23000,    
     9   12.22000, 12.20000, 12.14000, 12.05000, 12.03000, 11.96000,    
     &   11.95000, 11.92000, 11.90000, 11.84000, 11.79000, 11.76000,    
     1   11.71000, 11.71000, 11.69000, 11.69000, 11.70000, 11.70000,    
     2   11.71000, 11.71000, 11.67000, 11.61000, 11.58000, 11.50000,    
     3   11.49000, 11.47000, 11.46000, 11.41000, 11.38000, 11.34000,    
     4   11.29000, 11.29000, 11.29000, 11.29000, 11.30000, 11.30000,    
     5   11.26000, 11.23000, 11.26000, 11.31000, 11.32000, 11.35000,    
     6   11.36000, 11.39000, 11.40000, 11.49000, 11.55000, 11.55000,    
     7   11.55000, 11.57000, 11.62000, 11.63000/                        
      DATA (CRSNO2(I),I= 6701, 6800)/                                   
     1   11.66000, 11.67000, 11.70000, 11.72000, 11.77000, 11.88000,    
     2   11.89000, 11.91000, 11.92000, 11.96000, 11.98000, 11.92000,    
     3   11.87000, 11.89000, 11.94000, 11.95000, 11.99000, 12.00000,    
     4   11.99000, 11.98000, 11.98000, 11.98000, 12.00000, 12.06000,    
     5   12.08000, 12.16000, 12.19000, 12.23000, 12.26000, 12.28000,    
     6   12.33000, 12.36000, 12.47000, 12.51000, 12.61000, 12.67000,    
     7   12.71000, 12.77000, 12.79000, 12.85000, 12.86000, 12.87000,    
     8   12.87000, 12.92000, 12.96000, 12.98000, 13.02000, 13.04000,    
     9   13.14000, 13.16000, 13.15000, 13.14000, 13.13000, 13.12000,    
     &   13.14000, 13.21000, 13.23000, 13.25000, 13.25000, 13.25000,    
     1   13.24000, 13.27000, 13.33000, 13.34000, 13.35000, 13.35000,    
     2   13.42000, 13.46000, 13.50000, 13.56000, 13.57000, 13.58000,    
     3   13.58000, 13.60000, 13.61000, 13.65000, 13.69000, 13.68000,    
     4   13.67000, 13.67000, 13.65000, 13.64000, 13.64000, 13.63000,    
     5   13.65000, 13.68000, 13.67000, 13.62000, 13.61000, 13.55000,    
     6   13.51000, 13.46000, 13.38000, 13.37000, 13.36000, 13.35000,    
     7   13.19000, 13.10000, 13.02000, 12.92000/                        
      DATA (CRSNO2(I),I= 6801, 6900)/                                   
     1   12.89000, 12.82000, 12.79000, 12.70000, 12.65000, 12.57000,    
     2   12.49000, 12.47000, 12.44000, 12.43000, 12.34000, 12.31000,    
     3   12.23000, 12.16000, 12.12000, 12.02000, 12.01000, 11.96000,    
     4   11.95000, 11.96000, 11.96000, 11.95000, 11.92000, 11.91000,    
     5   11.91000, 11.91000, 11.89000, 11.88000, 11.85000, 11.78000,    
     6   11.77000, 11.75000, 11.74000, 11.67000, 11.62000, 11.60000,    
     7   11.56000, 11.55000, 11.48000, 11.46000, 11.40000, 11.36000,    
     8   11.31000, 11.23000, 11.22000, 11.21000, 11.20000, 11.16000,    
     9   11.13000, 11.11000, 11.07000, 11.07000, 11.11000, 11.12000,    
     &   11.10000, 11.09000, 11.10000, 11.10000, 11.10000, 11.08000,    
     1   11.07000, 11.07000, 11.08000, 11.08000, 11.08000, 11.09000,    
     2   11.14000, 11.16000, 11.25000, 11.34000, 11.34000, 11.34000,    
     3   11.33000, 11.31000, 11.30000, 11.28000, 11.26000, 11.28000,    
     4   11.34000, 11.35000, 11.38000, 11.39000, 11.39000, 11.39000,    
     5   11.38000, 11.35000, 11.35000, 11.38000, 11.40000, 11.43000,    
     6   11.47000, 11.45000, 11.37000, 11.35000, 11.31000, 11.29000,    
     7   11.35000, 11.45000, 11.49000, 11.65000/                        
      DATA (CRSNO2(I),I= 6901, 7000)/                                   
     1   11.69000, 11.57000, 11.47000, 11.53000, 11.65000, 11.67000,    
     2   11.70000, 11.71000, 11.74000, 11.77000, 11.78000, 11.82000,    
     3   11.81000, 11.75000, 11.72000, 11.81000, 11.93000, 11.92000,    
     4   11.86000, 11.85000, 11.84000, 11.83000, 11.83000, 11.83000,    
     5   11.86000, 11.99000, 12.04000, 12.09000, 12.14000, 12.18000,    
     6   12.28000, 12.30000, 12.32000, 12.33000, 12.35000, 12.37000,    
     7   12.38000, 12.40000, 12.41000, 12.44000, 12.45000, 12.45000,    
     8   12.45000, 12.46000, 12.49000, 12.51000, 12.51000, 12.51000,    
     9   12.49000, 12.44000, 12.42000, 12.29000, 12.22000, 12.26000,    
     &   12.32000, 12.33000, 12.33000, 12.34000, 12.34000, 12.34000,    
     1   12.38000, 12.48000, 12.48000, 12.42000, 12.40000, 12.40000,    
     2   12.41000, 12.39000, 12.32000, 12.31000, 12.30000, 12.29000,    
     3   12.36000, 12.50000, 12.51000, 12.47000, 12.45000, 12.44000,    
     4   12.43000, 12.40000, 12.26000, 12.22000, 12.21000, 12.20000,    
     5   12.17000, 12.11000, 12.08000, 11.93000, 11.86000, 11.87000,    
     6   11.89000, 11.89000, 11.87000, 11.86000, 11.70000, 11.57000,    
     7   11.52000, 11.37000, 11.36000, 11.37000/                        
      DATA (CRSNO2(I),I= 7001, 7100)/                                   
     1   11.37000, 11.39000, 11.41000, 11.40000, 11.30000, 11.28000,    
     2   11.30000, 11.32000, 11.27000, 11.13000, 11.11000, 11.14000,    
     3   11.16000, 11.17000, 11.19000, 11.17000, 11.05000, 11.01000,    
     4   10.98000, 10.94000, 10.95000, 11.00000, 11.01000, 10.89000,    
     5   10.80000, 10.79000, 10.77000, 10.76000, 10.66000, 10.62000,    
     6   10.60000, 10.57000, 10.59000, 10.67000, 10.69000, 10.67000,    
     7   10.65000, 10.61000, 10.46000, 10.44000, 10.55000, 10.63000,    
     8   10.66000, 10.72000, 10.72000, 10.66000, 10.63000, 10.70000,    
     9   10.82000, 10.82000, 10.82000, 10.81000, 10.72000, 10.61000,    
     &   10.64000, 10.76000, 10.79000, 10.81000, 10.82000, 10.79000,    
     1   10.72000, 10.72000, 10.81000, 10.87000, 10.93000, 11.06000,    
     2   11.07000, 11.08000, 11.08000, 11.12000, 11.19000, 11.21000,    
     3   11.34000, 11.37000, 11.43000, 11.50000, 11.54000, 11.69000,    
     4   11.71000, 11.63000, 11.57000, 11.58000, 11.61000, 11.62000,    
     5   11.70000, 11.75000, 11.70000, 11.62000, 11.62000, 11.71000,    
     6   11.75000, 11.85000, 12.01000, 12.00000, 11.86000, 11.82000,    
     7   11.80000, 11.77000, 11.75000, 11.68000/                        
      DATA (CRSNO2(I),I= 7101, 7176)/                                   
     1   11.67000, 11.71000, 11.77000, 11.82000, 12.00000, 12.04000,    
     2   12.05000, 12.05000, 12.04000, 12.02000, 12.01000, 11.99000,    
     3   11.98000, 11.99000, 12.02000, 12.03000, 12.12000, 12.17000,    
     4   12.22000, 12.32000, 12.33000, 12.27000, 12.25000, 12.29000,    
     5   12.36000, 12.38000, 12.50000, 12.55000, 12.52000, 12.47000,    
     6   12.44000, 12.31000, 12.25000, 12.11000, 11.92000, 11.89000,    
     7   11.80000, 11.77000, 11.76000, 11.74000, 11.72000, 11.65000,    
     8   11.63000, 11.59000, 11.56000, 11.54000, 11.48000, 11.46000,    
     9   11.41000, 11.36000, 11.33000, 11.25000, 11.23000, 11.22000,    
     &   11.20000, 11.19000, 11.14000, 11.13000, 11.10000, 11.07000,    
     1   11.08000, 11.11000, 11.11000, 11.10000, 11.10000, 11.10000,    
     2   11.10000, 11.10000, 11.08000, 11.07000, 11.07000, 11.08000,    
     3   11.08000, 11.08000, 11.09000, 11.10000/                        
C                                                                       
      IF (V .LT. VBEG .OR. V .GT. VEND) THEN                            
         CROSS = 0.0                                                    
      ELSE IF (V .EQ. VEND) THEN                                        
C        THIS CHECK PREVENTS N FROM EXCEEDING NMAX IN THE ALGORITHM BELO
         CROSS = CRSNO2(NMAX)                                           
      ELSE                                                              
         XI = (V-VBEG)/VINCR+1.                                         
         N = XI+1.+1.E-6                                                
         XD = XI-N                                                      
         CROSS = CRSNO2(N)+XD*(CRSNO2(N)-CRSNO2(N-1))                   
      ENDIF                                                             
      CROSS = CROSS * RONO2 / 2.6868E+19
      RETURN                                                            
      END                                                               



      SUBROUTINE CONT_SO2(V,ROSO2,CROSS)                                

      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      INTEGER NMAX                                                      
      PARAMETER (NMAX=5562)                                             
      DIMENSION  SO2CRS(5562)                                           
C     BEGINNING AND ENDING FREQUENCIES (CM-1):    24820  52625          
C     BIN WIDTH AND TOTAL ENTRIES:        5   5562                      
C     CROSS-SECTIONS IN CM^2 TIMES 2.6868E19                            
      DATA VBEG, VEND, VINCR /24820.0, 52625.0, 5.0/                    
      DATA (SO2CRS(I),I=    1,  100)/                                   
     1   8.124E-5, 8.447E-5, 8.780E-5, 9.070E-5, 9.346E-5, 9.665E-5,    
     2   9.921E-5, 1.017E-4, 1.047E-4, 1.077E-4, 1.102E-4, 1.127E-4,    
     3   1.152E-4, 1.177E-4, 1.205E-4, 1.236E-4, 1.262E-4, 1.287E-4,    
     4   1.311E-4, 1.336E-4, 1.363E-4, 1.395E-4, 1.421E-4, 1.446E-4,    
     5   1.474E-4, 1.505E-4, 1.530E-4, 1.555E-4, 1.580E-4, 1.605E-4,    
     6   1.629E-4, 1.654E-4, 1.679E-4, 1.703E-4, 1.728E-4, 1.753E-4,    
     7   1.778E-4, 1.802E-4, 1.827E-4, 1.847E-4, 1.866E-4, 1.889E-4,    
     8   1.907E-4, 1.923E-4, 1.944E-4, 1.968E-4, 1.993E-4, 2.017E-4,    
     9   2.036E-4, 2.052E-4, 2.071E-4, 2.094E-4, 2.112E-4, 2.134E-4,    
     &   2.162E-4, 2.192E-4, 2.218E-4, 2.249E-4, 2.282E-4, 2.311E-4,    
     1   2.335E-4, 2.361E-4, 2.391E-4, 2.424E-4, 2.457E-4, 2.488E-4,    
     2   2.513E-4, 2.537E-4, 2.575E-4, 2.639E-4, 2.739E-4, 2.867E-4,    
     3   3.043E-4, 3.293E-4, 3.602E-4, 3.916E-4, 4.202E-4, 4.464E-4,    
     4   4.705E-4, 4.931E-4, 5.149E-4, 5.272E-4, 5.326E-4, 5.287E-4,    
     5   5.100E-4, 4.754E-4, 4.308E-4, 3.908E-4, 3.557E-4, 3.139E-4,    
     6   2.802E-4, 2.585E-4, 2.427E-4, 2.294E-4, 2.237E-4, 2.183E-4,    
     7   2.131E-4, 2.081E-4, 2.026E-4, 1.976E-4/                        
      DATA (SO2CRS(I),I=  101,  200)/                                   
     1   1.928E-4, 1.880E-4, 1.832E-4, 1.784E-4, 1.729E-4, 1.678E-4,    
     2   1.630E-4, 1.581E-4, 1.526E-4, 1.476E-4, 1.428E-4, 1.380E-4,    
     3   1.332E-4, 1.284E-4, 1.237E-4, 1.196E-4, 1.173E-4, 1.163E-4,    
     4   1.155E-4, 1.151E-4, 1.151E-4, 1.151E-4, 1.151E-4, 1.155E-4,    
     5   1.165E-4, 1.182E-4, 1.212E-4, 1.243E-4, 1.275E-4, 1.306E-4,    
     6   1.338E-4, 1.370E-4, 1.394E-4, 1.410E-4, 1.425E-4, 1.435E-4,    
     7   1.447E-4, 1.465E-4, 1.489E-4, 1.514E-4, 1.598E-4, 1.760E-4,    
     8   2.001E-4, 2.269E-4, 2.460E-4, 2.597E-4, 2.707E-4, 2.816E-4,    
     9   2.920E-4, 3.030E-4, 3.150E-4, 3.277E-4, 3.403E-4, 3.543E-4,    
     &   3.704E-4, 3.896E-4, 4.126E-4, 4.398E-4, 4.705E-4, 5.053E-4,    
     1   5.468E-4, 6.070E-4, 6.867E-4, 7.834E-4, 8.873E-4, 1.025E-3,    
     2   1.173E-3, 1.316E-3, 1.455E-3, 1.591E-3, 1.727E-3, 1.882E-3,    
     3   2.098E-3, 2.343E-3, 2.631E-3, 2.973E-3, 3.390E-3, 3.893E-3,    
     4   4.239E-3, 4.424E-3, 4.500E-3, 4.510E-3, 4.439E-3, 4.247E-3,    
     5   3.916E-3, 3.690E-3, 3.485E-3, 3.280E-3, 3.075E-3, 2.867E-3,    
     6   2.656E-3, 2.448E-3, 2.251E-3, 2.062E-3, 1.893E-3, 1.739E-3,    
     7   1.596E-3, 1.446E-3, 1.324E-3, 1.217E-3/                        
      DATA (SO2CRS(I),I=  201,  300)/                                   
     1   1.111E-3, 1.006E-3, 9.066E-4, 8.150E-4, 7.364E-4, 6.737E-4,    
     2   6.193E-4, 5.724E-4, 5.342E-4, 5.033E-4, 4.756E-4, 4.530E-4,    
     3   4.390E-4, 4.340E-4, 4.366E-4, 4.454E-4, 4.593E-4, 4.745E-4,    
     4   4.914E-4, 5.072E-4, 5.193E-4, 5.301E-4, 5.414E-4, 5.534E-4,    
     5   5.664E-4, 5.800E-4, 5.946E-4, 6.100E-4, 6.261E-4, 6.440E-4,    
     6   6.660E-4, 6.943E-4, 7.323E-4, 7.756E-4, 8.314E-4, 9.039E-4,    
     7   9.966E-4, 1.106E-3, 1.233E-3, 1.373E-3, 1.519E-3, 1.665E-3,    
     8   1.809E-3, 1.951E-3, 2.092E-3, 2.268E-3, 2.452E-3, 2.619E-3,    
     9   2.822E-3, 3.083E-3, 3.401E-3, 3.784E-3, 4.302E-3, 4.856E-3,    
     &   5.389E-3, 5.834E-3, 6.097E-3, 6.114E-3, 5.876E-3, 5.573E-3,    
     1   5.305E-3, 5.077E-3, 4.882E-3, 4.692E-3, 4.455E-3, 4.202E-3,    
     2   3.983E-3, 3.667E-3, 3.317E-3, 2.965E-3, 2.632E-3, 2.293E-3,    
     3   2.005E-3, 1.800E-3, 1.612E-3, 1.460E-3, 1.339E-3, 1.246E-3,    
     4   1.146E-3, 1.069E-3, 1.012E-3, 9.568E-4, 9.125E-4, 8.800E-4,    
     5   8.586E-4, 8.389E-4, 8.234E-4, 8.105E-4, 7.986E-4, 7.886E-4,    
     6   7.805E-4, 7.737E-4, 7.672E-4, 7.633E-4, 7.612E-4, 7.605E-4,    
     7   7.604E-4, 7.612E-4, 7.638E-4, 7.699E-4/                        
      DATA (SO2CRS(I),I=  301,  400)/                                   
     1   7.794E-4, 7.915E-4, 8.056E-4, 8.204E-4, 8.352E-4, 8.497E-4,    
     2   8.643E-4, 8.832E-4, 9.071E-4, 9.358E-4, 9.694E-4, 1.010E-3,    
     3   1.058E-3, 1.120E-3, 1.201E-3, 1.288E-3, 1.378E-3, 1.467E-3,    
     4   1.560E-3, 1.664E-3, 1.780E-3, 1.894E-3, 2.004E-3, 2.121E-3,    
     5   2.269E-3, 2.478E-3, 2.755E-3, 3.063E-3, 3.119E-3, 3.134E-3,    
     6   3.147E-3, 3.154E-3, 3.128E-3, 3.049E-3, 2.909E-3, 2.802E-3,    
     7   2.687E-3, 2.566E-3, 2.450E-3, 2.340E-3, 2.223E-3, 2.094E-3,    
     8   1.976E-3, 1.884E-3, 1.818E-3, 1.773E-3, 1.743E-3, 1.721E-3,    
     9   1.710E-3, 1.722E-3, 1.746E-3, 1.779E-3, 1.827E-3, 1.891E-3,    
     &   1.971E-3, 2.075E-3, 2.233E-3, 2.416E-3, 2.612E-3, 2.819E-3,    
     1   3.066E-3, 3.380E-3, 3.818E-3, 4.284E-3, 4.722E-3, 5.106E-3,    
     2   5.533E-3, 6.001E-3, 6.483E-3, 6.889E-3, 7.141E-3, 7.303E-3,    
     3   7.430E-3, 7.362E-3, 7.141E-3, 6.796E-3, 6.513E-3, 6.287E-3,    
     4   6.083E-3, 5.808E-3, 5.470E-3, 5.091E-3, 4.681E-3, 4.268E-3,    
     5   3.849E-3, 3.436E-3, 3.110E-3, 2.853E-3, 2.650E-3, 2.488E-3,    
     6   2.332E-3, 2.184E-3, 2.058E-3, 1.971E-3, 1.911E-3, 1.878E-3,    
     7   1.864E-3, 1.859E-3, 1.859E-3, 1.859E-3/                        
      DATA (SO2CRS(I),I=  401,  500)/                                   
     1   1.859E-3, 1.857E-3, 1.850E-3, 1.835E-3, 1.816E-3, 1.788E-3,    
     2   1.741E-3, 1.694E-3, 1.656E-3, 1.624E-3, 1.595E-3, 1.567E-3,    
     3   1.540E-3, 1.521E-3, 1.505E-3, 1.491E-3, 1.482E-3, 1.479E-3,    
     4   1.483E-3, 1.495E-3, 1.512E-3, 1.535E-3, 1.570E-3, 1.618E-3,    
     5   1.682E-3, 1.765E-3, 1.864E-3, 1.988E-3, 2.161E-3, 2.324E-3,    
     6   2.477E-3, 2.622E-3, 2.781E-3, 2.972E-3, 3.218E-3, 3.536E-3,    
     7   3.935E-3, 4.433E-3, 5.054E-3, 5.754E-3, 6.509E-3, 7.261E-3,    
     8   7.800E-3, 8.182E-3, 8.535E-3, 8.938E-3, 9.326E-3, 9.564E-3,    
     9   9.228E-3, 8.783E-3, 8.601E-3, 8.153E-3, 7.604E-3, 7.043E-3,    
     &   6.575E-3, 6.165E-3, 5.749E-3, 4.918E-3, 4.260E-3, 3.903E-3,    
     1   3.645E-3, 3.391E-3, 3.140E-3, 2.951E-3, 2.755E-3, 2.562E-3,    
     2   2.422E-3, 2.290E-3, 2.158E-3, 2.024E-3, 1.924E-3, 1.845E-3,    
     3   1.776E-3, 1.707E-3, 1.640E-3, 1.578E-3, 1.522E-3, 1.472E-3,    
     4   1.424E-3, 1.380E-3, 1.340E-3, 1.305E-3, 1.279E-3, 1.262E-3,    
     5   1.257E-3, 1.267E-3, 1.281E-3, 1.295E-3, 1.318E-3, 1.347E-3,    
     6   1.382E-3, 1.427E-3, 1.481E-3, 1.549E-3, 1.644E-3, 1.739E-3,    
     7   1.827E-3, 1.916E-3, 2.013E-3, 2.120E-3/                        
      DATA (SO2CRS(I),I=  501,  600)/                                   
     1   2.249E-3, 2.386E-3, 2.530E-3, 2.677E-3, 2.887E-3, 3.157E-3,    
     2   3.445E-3, 3.585E-3, 3.594E-3, 3.595E-3, 3.568E-3, 3.508E-3,    
     3   3.405E-3, 3.272E-3, 3.118E-3, 2.957E-3, 2.838E-3, 2.759E-3,    
     4   2.696E-3, 2.657E-3, 2.644E-3, 2.670E-3, 2.730E-3, 2.815E-3,    
     5   2.892E-3, 2.976E-3, 3.072E-3, 3.191E-3, 3.337E-3, 3.512E-3,    
     6   3.736E-3, 3.959E-3, 4.181E-3, 4.442E-3, 4.750E-3, 5.103E-3,    
     7   5.459E-3, 5.736E-3, 5.901E-3, 5.950E-3, 5.968E-3, 5.975E-3,    
     8   5.980E-3, 5.967E-3, 5.912E-3, 5.730E-3, 5.564E-3, 5.482E-3,    
     9   5.386E-3, 5.282E-3, 5.174E-3, 5.056E-3, 4.922E-3, 4.764E-3,    
     &   4.642E-3, 4.518E-3, 4.352E-3, 4.180E-3, 4.008E-3, 3.843E-3,    
     1   3.673E-3, 3.488E-3, 3.264E-3, 3.074E-3, 2.915E-3, 2.791E-3,    
     2   2.682E-3, 2.579E-3, 2.461E-3, 2.354E-3, 2.262E-3, 2.177E-3,    
     3   2.095E-3, 2.017E-3, 1.948E-3, 1.897E-3, 1.872E-3, 1.866E-3,    
     4   1.878E-3, 1.918E-3, 1.967E-3, 2.022E-3, 2.078E-3, 2.142E-3,    
     5   2.213E-3, 2.304E-3, 2.409E-3, 2.530E-3, 2.684E-3, 2.899E-3,    
     6   3.188E-3, 3.627E-3, 3.996E-3, 4.251E-3, 4.545E-3, 4.824E-3,    
     7   5.055E-3, 5.171E-3, 5.180E-3, 5.030E-3/                        
      DATA (SO2CRS(I),I=  601,  700)/                                   
     1   4.908E-3, 4.767E-3, 4.512E-3, 4.301E-3, 4.147E-3, 4.105E-3,    
     2   4.095E-3, 4.106E-3, 4.159E-3, 4.239E-3, 4.347E-3, 4.464E-3,    
     3   4.581E-3, 4.696E-3, 4.812E-3, 4.927E-3, 5.031E-3, 5.074E-3,    
     4   5.077E-3, 5.058E-3, 5.033E-3, 4.998E-3, 4.928E-3, 4.796E-3,    
     5   4.578E-3, 4.264E-3, 3.942E-3, 3.667E-3, 3.474E-3, 3.324E-3,    
     6   3.195E-3, 3.034E-3, 2.859E-3, 2.729E-3, 2.609E-3, 2.490E-3,    
     7   2.362E-3, 2.232E-3, 2.102E-3, 1.991E-3, 1.885E-3, 1.772E-3,    
     8   1.672E-3, 1.584E-3, 1.517E-3, 1.452E-3, 1.390E-3, 1.357E-3,    
     9   1.334E-3, 1.318E-3, 1.304E-3, 1.292E-3, 1.284E-3, 1.286E-3,    
     &   1.294E-3, 1.301E-3, 1.308E-3, 1.316E-3, 1.324E-3, 1.331E-3,    
     1   1.339E-3, 1.345E-3, 1.352E-3, 1.360E-3, 1.370E-3, 1.382E-3,    
     2   1.396E-3, 1.413E-3, 1.433E-3, 1.460E-3, 1.487E-3, 1.509E-3,    
     3   1.546E-3, 1.594E-3, 1.653E-3, 1.715E-3, 1.781E-3, 1.849E-3,    
     4   1.919E-3, 1.991E-3, 2.072E-3, 2.160E-3, 2.261E-3, 2.372E-3,    
     5   2.491E-3, 2.617E-3, 2.752E-3, 2.902E-3, 3.045E-3, 3.182E-3,    
     6   3.317E-3, 3.471E-3, 3.655E-3, 3.927E-3, 4.201E-3, 4.433E-3,    
     7   4.715E-3, 5.020E-3, 5.314E-3, 5.519E-3/                        
      DATA (SO2CRS(I),I=  701,  800)/                                   
     1   5.600E-3, 5.366E-3, 4.921E-3, 4.198E-3, 3.716E-3, 3.385E-3,    
     2   3.132E-3, 2.885E-3, 2.635E-3, 2.411E-3, 2.191E-3, 1.964E-3,    
     3   1.795E-3, 1.668E-3, 1.568E-3, 1.457E-3, 1.319E-3, 1.086E-3,    
     4   8.464E-4, 6.889E-4, 4.589E-4, 2.139E-4, 3.041E-4, 5.345E-4,    
     5   8.927E-4, 1.101E-3, 1.224E-3, 1.281E-3, 1.358E-3, 1.465E-3,    
     6   1.573E-3, 1.670E-3, 1.743E-3, 1.786E-3, 1.810E-3, 1.823E-3,    
     7   1.836E-3, 1.848E-3, 1.861E-3, 1.873E-3, 1.883E-3, 1.887E-3,    
     8   1.887E-3, 1.876E-3, 1.864E-3, 1.851E-3, 1.850E-3, 1.859E-3,    
     9   1.881E-3, 1.906E-3, 1.932E-3, 1.965E-3, 2.004E-3, 2.050E-3,    
     &   2.102E-3, 2.158E-3, 2.217E-3, 2.274E-3, 2.324E-3, 2.380E-3,    
     1   2.439E-3, 2.463E-3, 2.465E-3, 2.438E-3, 2.389E-3, 2.324E-3,    
     2   2.246E-3, 2.155E-3, 2.045E-3, 1.946E-3, 1.850E-3, 1.741E-3,    
     3   1.621E-3, 1.486E-3, 1.352E-3, 1.217E-3, 1.079E-3, 9.417E-4,    
     4   8.030E-4, 6.603E-4, 5.335E-4, 4.611E-4, 5.192E-4, 6.871E-4,    
     5   8.005E-4, 8.945E-4, 9.754E-4, 1.052E-3, 1.128E-3, 1.209E-3,    
     6   1.300E-3, 1.410E-3, 1.521E-3, 1.628E-3, 1.708E-3, 1.782E-3,    
     7   1.857E-3, 1.939E-3, 2.025E-3, 2.111E-3/                        
      DATA (SO2CRS(I),I=  801,  900)/                                   
     1   2.197E-3, 2.281E-3, 2.249E-3, 2.150E-3, 2.046E-3, 1.958E-3,    
     2   1.899E-3, 1.823E-3, 1.739E-3, 1.664E-3, 1.581E-3, 1.479E-3,    
     3   1.348E-3, 1.199E-3, 1.039E-3, 8.984E-4, 7.998E-4, 6.785E-4,    
     4   5.503E-4, 4.636E-4, 3.874E-4, 3.173E-4, 2.535E-4, 1.990E-4,    
     5   1.840E-4, 1.814E-4, 1.891E-4, 1.989E-4, 2.100E-4, 2.221E-4,    
     6   2.354E-4, 2.512E-4, 2.745E-4, 3.059E-4, 3.606E-4, 4.281E-4,    
     7   5.150E-4, 5.952E-4, 6.677E-4, 7.312E-4, 8.003E-4, 8.953E-4,    
     8   9.786E-4, 1.049E-3, 1.143E-3, 1.242E-3, 1.329E-3, 1.401E-3,    
     9   1.452E-3, 1.484E-3, 1.500E-3, 1.481E-3, 1.458E-3, 1.433E-3,    
     &   1.401E-3, 1.363E-3, 1.312E-3, 1.252E-3, 1.180E-3, 1.087E-3,    
     1   9.794E-4, 8.785E-4, 7.813E-4, 6.902E-4, 6.055E-4, 5.277E-4,    
     2   4.631E-4, 4.053E-4, 3.566E-4, 3.160E-4, 2.864E-4, 2.806E-4,    
     3   2.906E-4, 3.250E-4, 3.670E-4, 4.161E-4, 4.676E-4, 5.188E-4,    
     4   5.504E-4, 5.797E-4, 6.182E-4, 6.713E-4, 7.412E-4, 8.294E-4,    
     5   9.124E-4, 9.325E-4, 9.381E-4, 9.329E-4, 9.197E-4, 8.991E-4,    
     6   8.563E-4, 7.909E-4, 6.749E-4, 5.614E-4, 4.548E-4, 3.609E-4,    
     7   2.753E-4, 2.072E-4, 1.509E-4, 1.125E-4/                        
      DATA (SO2CRS(I),I=  901, 1000)/                                   
     1   9.024E-5, 7.923E-5, 7.706E-5, 7.911E-5, 8.760E-5, 1.006E-4,    
     2   1.187E-4, 1.425E-4, 1.700E-4, 2.046E-4, 2.513E-4, 3.218E-4,    
     3   3.930E-4, 4.646E-4, 5.451E-4, 6.306E-4, 7.254E-4, 8.222E-4,    
     4   9.202E-4, 9.923E-4, 1.047E-3, 1.082E-3, 1.108E-3, 1.120E-3,    
     5   1.125E-3, 1.122E-3, 1.112E-3, 1.098E-3, 1.066E-3, 1.006E-3,    
     6   8.856E-4, 7.586E-4, 6.296E-4, 5.239E-4, 4.308E-4, 3.571E-4,    
     7   2.864E-4, 2.163E-4, 1.604E-4, 1.169E-4, 8.453E-5, 5.856E-5,    
     8   4.541E-5, 3.570E-5, 2.946E-5, 2.419E-5, 1.961E-5, 1.560E-5,    
     9   1.202E-5, 9.583E-6, 7.515E-6, 5.876E-6, 4.298E-6, 2.812E-6,    
     &   1.995E-6, 1.492E-6, 1.474E-6, 1.775E-6, 2.561E-6, 4.123E-6,    
     1   6.388E-6, 1.056E-5, 1.618E-5, 2.567E-5, 3.882E-5, 5.822E-5,    
     2   8.705E-5, 1.245E-4, 1.811E-4, 2.504E-4, 3.503E-4, 4.719E-4,    
     3   6.321E-4, 8.318E-4, 1.069E-3, 1.367E-3, 1.698E-3, 2.096E-3,    
     4   2.525E-3, 3.009E-3, 3.519E-3, 4.056E-3, 4.597E-3, 5.138E-3,    
     5   5.653E-3, 6.144E-3, 6.577E-3, 6.964E-3, 7.288E-3, 7.549E-3,    
     6   7.764E-3, 7.919E-3, 8.049E-3, 8.141E-3, 8.225E-3, 8.301E-3,    
     7   8.380E-3, 8.462E-3, 8.547E-3, 8.631E-3/                        
      DATA (SO2CRS(I),I= 1001, 1100)/                                   
     1   8.703E-3, 8.763E-3, 8.795E-3, 8.805E-3, 8.787E-3, 8.750E-3,    
     2   8.703E-3, 8.671E-3, 8.660E-3, 8.723E-3, 8.849E-3, 9.092E-3,    
     3   9.455E-3, 9.941E-3, 1.059E-2, 1.133E-2, 1.222E-2, 1.317E-2,    
     4   1.421E-2, 1.525E-2, 1.630E-2, 1.730E-2, 1.824E-2, 1.907E-2,    
     5   1.983E-2, 2.044E-2, 2.097E-2, 2.136E-2, 2.167E-2, 2.188E-2,    
     6   2.203E-2, 2.212E-2, 2.217E-2, 2.219E-2, 2.218E-2, 2.217E-2,    
     7   2.217E-2, 2.217E-2, 2.220E-2, 2.225E-2, 2.233E-2, 2.244E-2,    
     8   2.257E-2, 2.272E-2, 2.287E-2, 2.303E-2, 2.316E-2, 2.325E-2,    
     9   2.328E-2, 2.326E-2, 2.312E-2, 2.293E-2, 2.259E-2, 2.217E-2,    
     &   2.159E-2, 2.092E-2, 2.012E-2, 1.920E-2, 1.819E-2, 1.710E-2,    
     1   1.597E-2, 1.481E-2, 1.368E-2, 1.265E-2, 1.172E-2, 1.100E-2,    
     2   1.052E-2, 1.033E-2, 1.057E-2, 1.110E-2, 1.224E-2, 1.368E-2,    
     3   1.579E-2, 1.820E-2, 2.121E-2, 2.449E-2, 2.817E-2, 3.203E-2,    
     4   3.605E-2, 4.000E-2, 4.390E-2, 4.741E-2, 5.069E-2, 5.330E-2,    
     5   5.555E-2, 5.703E-2, 5.802E-2, 5.833E-2, 5.811E-2, 5.747E-2,    
     6   5.646E-2, 5.530E-2, 5.412E-2, 5.303E-2, 5.236E-2, 5.204E-2,    
     7   5.251E-2, 5.361E-2, 5.558E-2, 5.815E-2/                        
      DATA (SO2CRS(I),I= 1101, 1200)/                                   
     1   6.123E-2, 6.516E-2, 6.926E-2, 7.121E-2, 7.282E-2, 7.558E-2,    
     2   7.956E-2, 8.665E-2, 9.234E-2, 9.530E-2, 9.524E-2, 9.232E-2,    
     3   8.941E-2, 8.650E-2, 8.359E-2, 8.068E-2, 7.778E-2, 7.430E-2,    
     4   6.870E-2, 6.550E-2, 6.819E-2, 7.109E-2, 7.399E-2, 7.689E-2,    
     5   7.979E-2, 8.269E-2, 8.559E-2, 8.849E-2, 9.082E-2, 8.989E-2,    
     6   8.813E-2, 8.532E-2, 8.427E-2, 8.704E-2, 9.057E-2, 9.491E-2,    
     7   1.001E-1, 1.059E-1, 1.137E-1, 1.224E-1, 1.322E-1, 1.420E-1,    
     8   1.496E-1, 1.559E-1, 1.591E-1, 1.611E-1, 1.612E-1, 1.600E-1,    
     9   1.572E-1, 1.535E-1, 1.492E-1, 1.449E-1, 1.404E-1, 1.329E-1,    
     &   1.245E-1, 1.183E-1, 1.132E-1, 1.113E-1, 1.109E-1, 1.135E-1,    
     1   1.173E-1, 1.230E-1, 1.299E-1, 1.385E-1, 1.463E-1, 1.535E-1,    
     2   1.616E-1, 1.703E-1, 1.810E-1, 1.924E-1, 2.039E-1, 2.153E-1,    
     3   2.267E-1, 2.360E-1, 2.381E-1, 2.374E-1, 2.319E-1, 2.268E-1,    
     4   2.225E-1, 2.224E-1, 2.267E-1, 2.344E-1, 2.444E-1, 2.564E-1,    
     5   2.689E-1, 2.784E-1, 2.859E-1, 2.848E-1, 2.818E-1, 2.777E-1,    
     6   2.737E-1, 2.708E-1, 2.688E-1, 2.687E-1, 2.703E-1, 2.745E-1,    
     7   2.860E-1, 3.058E-1, 3.257E-1, 3.454E-1/                        
      DATA (SO2CRS(I),I= 1201, 1300)/                                   
     1   3.605E-1, 3.731E-1, 3.838E-1, 3.931E-1, 3.962E-1, 3.956E-1,    
     2   3.812E-1, 3.643E-1, 3.474E-1, 3.323E-1, 3.233E-1, 3.141E-1,    
     3   3.029E-1, 2.896E-1, 2.728E-1, 2.596E-1, 2.512E-1, 2.524E-1,    
     4   2.622E-1, 2.712E-1, 2.798E-1, 2.940E-1, 3.110E-1, 3.289E-1,    
     5   3.480E-1, 3.765E-1, 4.090E-1, 4.531E-1, 5.042E-1, 5.794E-1,    
     6   6.520E-1, 7.030E-1, 7.392E-1, 7.399E-1, 7.301E-1, 7.027E-1,    
     7   6.769E-1, 6.545E-1, 6.422E-1, 6.421E-1, 6.488E-1, 6.612E-1,    
     8   6.638E-1, 6.595E-1, 6.489E-1, 6.348E-1, 6.189E-1, 6.021E-1,    
     9   5.843E-1, 5.665E-1, 5.518E-1, 5.395E-1, 5.387E-1, 5.451E-1,    
     &   5.786E-1, 6.198E-1, 6.764E-1, 7.333E-1, 7.850E-1, 8.371E-1,    
     1   8.911E-1, 9.469E-1, 1.006E+0, 1.052E+0, 1.073E+0, 1.088E+0,    
     2   1.095E+0, 1.061E+0, 9.809E-1, 9.314E-1, 9.092E-1, 8.823E-1,    
     3   8.522E-1, 8.445E-1, 8.501E-1, 8.584E-1, 8.686E-1, 8.892E-1,    
     4   9.156E-1, 9.665E-1, 1.029E+0, 1.129E+0, 1.237E+0, 1.324E+0,    
     5   1.404E+0, 1.463E+0, 1.509E+0, 1.504E+0, 1.491E+0, 1.483E+0,    
     6   1.481E+0, 1.505E+0, 1.529E+0, 1.538E+0, 1.534E+0, 1.492E+0,    
     7   1.433E+0, 1.336E+0, 1.246E+0, 1.177E+0/                        
      DATA (SO2CRS(I),I= 1301, 1400)/                                   
     1   1.118E+0, 1.079E+0, 1.050E+0, 1.038E+0, 1.024E+0, 1.005E+0,    
     2   9.783E-1, 9.404E-1, 9.321E-1, 9.611E-1, 1.028E+0, 1.138E+0,    
     3   1.234E+0, 1.318E+0, 1.415E+0, 1.523E+0, 1.647E+0, 1.782E+0,    
     4   1.875E+0, 1.938E+0, 2.054E+0, 2.204E+0, 2.360E+0, 2.516E+0,    
     5   2.476E+0, 2.331E+0, 2.207E+0, 2.096E+0, 2.048E+0, 2.030E+0,    
     6   2.036E+0, 2.051E+0, 2.028E+0, 1.991E+0, 2.024E+0, 2.083E+0,    
     7   2.151E+0, 2.227E+0, 2.360E+0, 2.509E+0, 2.589E+0, 2.638E+0,    
     8   2.574E+0, 2.478E+0, 2.433E+0, 2.403E+0, 2.383E+0, 2.367E+0,    
     9   2.369E+0, 2.379E+0, 2.415E+0, 2.448E+0, 2.383E+0, 2.287E+0,    
     &   2.151E+0, 2.013E+0, 1.971E+0, 1.956E+0, 1.957E+0, 1.966E+0,    
     1   2.018E+0, 2.081E+0, 2.155E+0, 2.237E+0, 2.372E+0, 2.523E+0,    
     2   2.704E+0, 2.901E+0, 3.182E+0, 3.471E+0, 3.611E+0, 3.694E+0,    
     3   3.591E+0, 3.446E+0, 3.383E+0, 3.349E+0, 3.386E+0, 3.451E+0,    
     4   3.602E+0, 3.767E+0, 3.790E+0, 3.754E+0, 3.484E+0, 3.152E+0,    
     5   3.010E+0, 2.937E+0, 2.959E+0, 3.015E+0, 3.097E+0, 3.181E+0,    
     6   3.115E+0, 2.992E+0, 2.962E+0, 2.969E+0, 2.906E+0, 2.810E+0,    
     7   2.648E+0, 2.457E+0, 2.340E+0, 2.263E+0/                        
      DATA (SO2CRS(I),I= 1401, 1500)/                                   
     1   2.220E+0, 2.199E+0, 2.270E+0, 2.397E+0, 2.499E+0, 2.583E+0,    
     2   2.738E+0, 2.946E+0, 3.113E+0, 3.244E+0, 3.236E+0, 3.097E+0,    
     3   3.110E+0, 3.286E+0, 3.517E+0, 3.815E+0, 4.155E+0, 4.554E+0,    
     4   4.960E+0, 5.380E+0, 5.764E+0, 6.084E+0, 6.403E+0, 6.723E+0,    
     5   6.906E+0, 6.769E+0, 6.533E+0, 6.068E+0, 5.603E+0, 5.175E+0,    
     6   4.765E+0, 4.407E+0, 4.126E+0, 4.148E+0, 4.173E+0, 4.040E+0,    
     7   3.887E+0, 3.743E+0, 3.610E+0, 3.535E+0, 3.482E+0, 3.524E+0,    
     8   3.587E+0, 3.633E+0, 3.674E+0, 3.694E+0, 3.703E+0, 3.616E+0,    
     9   3.490E+0, 3.384E+0, 3.290E+0, 3.296E+0, 3.363E+0, 3.457E+0,    
     &   3.571E+0, 3.753E+0, 3.996E+0, 4.281E+0, 4.615E+0, 4.973E+0,    
     1   5.367E+0, 5.727E+0, 6.024E+0, 6.312E+0, 6.582E+0, 6.838E+0,    
     2   7.056E+0, 7.260E+0, 7.417E+0, 7.644E+0, 8.218E+0, 8.824E+0,    
     3   9.356E+0, 9.797E+0, 9.570E+0, 9.172E+0, 8.506E+0, 7.758E+0,    
     4   6.942E+0, 6.115E+0, 5.744E+0, 5.595E+0, 5.544E+0, 5.554E+0,    
     5   5.532E+0, 5.483E+0, 5.310E+0, 4.996E+0, 4.819E+0, 4.851E+0,    
     6   4.898E+0, 4.975E+0, 5.040E+0, 5.073E+0, 5.073E+0, 4.962E+0,    
     7   4.856E+0, 4.828E+0, 4.822E+0, 4.895E+0/                        
      DATA (SO2CRS(I),I= 1501, 1600)/                                   
     1   4.995E+0, 5.210E+0, 5.458E+0, 5.743E+0, 6.044E+0, 6.414E+0,    
     2   6.818E+0, 7.347E+0, 7.960E+0, 8.635E+0, 9.370E+0, 1.013E+1,    
     3   1.092E+1, 1.175E+1, 1.267E+1, 1.348E+1, 1.397E+1, 1.417E+1,    
     4   1.332E+1, 1.230E+1, 1.096E+1, 9.597E+0, 8.465E+0, 7.440E+0,    
     5   7.193E+0, 7.193E+0, 6.891E+0, 6.446E+0, 5.963E+0, 5.454E+0,    
     6   5.137E+0, 5.016E+0, 4.987E+0, 5.100E+0, 5.159E+0, 5.094E+0,    
     7   5.032E+0, 5.000E+0, 4.987E+0, 5.067E+0, 5.165E+0, 5.320E+0,    
     8   5.494E+0, 5.783E+0, 6.111E+0, 6.497E+0, 6.910E+0, 7.246E+0,    
     9   7.526E+0, 7.849E+0, 8.221E+0, 8.605E+0, 9.008E+0, 9.509E+0,    
     &   1.028E+1, 1.110E+1, 1.210E+1, 1.318E+1, 1.460E+1, 1.605E+1,    
     1   1.707E+1, 1.793E+1, 1.791E+1, 1.749E+1, 1.676E+1, 1.580E+1,    
     2   1.481E+1, 1.380E+1, 1.278E+1, 1.178E+1, 1.081E+1, 9.918E+0,    
     3   9.031E+0, 8.135E+0, 7.265E+0, 6.616E+0, 6.027E+0, 5.623E+0,    
     4   5.290E+0, 5.057E+0, 4.885E+0, 4.728E+0, 4.586E+0, 4.539E+0,    
     5   4.653E+0, 4.816E+0, 5.109E+0, 5.403E+0, 5.665E+0, 5.928E+0,    
     6   6.239E+0, 6.563E+0, 6.937E+0, 7.329E+0, 7.701E+0, 8.059E+0,    
     7   8.521E+0, 9.099E+0, 9.756E+0, 1.056E+1/                        
      DATA (SO2CRS(I),I= 1601, 1700)/                                   
     1   1.144E+1, 1.250E+1, 1.356E+1, 1.448E+1, 1.538E+1, 1.621E+1,    
     2   1.703E+1, 1.793E+1, 1.888E+1, 1.990E+1, 2.098E+1, 2.135E+1,    
     3   2.058E+1, 1.924E+1, 1.634E+1, 1.356E+1, 1.184E+1, 1.030E+1,    
     4   9.133E+0, 8.080E+0, 7.418E+0, 6.934E+0, 6.613E+0, 6.426E+0,    
     5   6.272E+0, 6.167E+0, 6.121E+0, 6.233E+0, 6.334E+0, 6.332E+0,    
     6   6.333E+0, 6.514E+0, 6.744E+0, 7.001E+0, 7.272E+0, 7.598E+0,    
     7   7.977E+0, 8.417E+0, 8.969E+0, 9.517E+0, 1.005E+1, 1.058E+1,    
     8   1.109E+1, 1.161E+1, 1.240E+1, 1.329E+1, 1.435E+1, 1.553E+1,    
     9   1.678E+1, 1.813E+1, 1.940E+1, 2.049E+1, 2.155E+1, 2.250E+1,    
     &   2.341E+1, 2.403E+1, 2.455E+1, 2.419E+1, 2.337E+1, 2.172E+1,    
     1   1.919E+1, 1.670E+1, 1.431E+1, 1.214E+1, 1.087E+1, 9.699E+0,    
     2   8.545E+0, 7.410E+0, 6.763E+0, 6.352E+0, 6.139E+0, 6.122E+0,    
     3   6.143E+0, 6.241E+0, 6.388E+0, 6.724E+0, 7.090E+0, 7.560E+0,    
     4   8.052E+0, 8.366E+0, 8.591E+0, 9.120E+0, 9.974E+0, 1.073E+1,    
     5   1.125E+1, 1.177E+1, 1.235E+1, 1.293E+1, 1.333E+1, 1.369E+1,    
     6   1.424E+1, 1.490E+1, 1.579E+1, 1.698E+1, 1.826E+1, 1.979E+1,    
     7   2.131E+1, 2.267E+1, 2.402E+1, 2.549E+1/                        
      DATA (SO2CRS(I),I= 1701, 1800)/                                   
     1   2.702E+1, 2.833E+1, 2.947E+1, 3.029E+1, 3.053E+1, 3.064E+1,    
     2   3.028E+1, 2.971E+1, 2.752E+1, 2.488E+1, 2.065E+1, 1.555E+1,    
     3   1.213E+1, 1.087E+1, 9.751E+0, 9.008E+0, 8.374E+0, 8.311E+0,    
     4   8.360E+0, 8.575E+0, 8.860E+0, 9.337E+0, 9.998E+0, 1.073E+1,    
     5   1.161E+1, 1.250E+1, 1.336E+1, 1.422E+1, 1.515E+1, 1.610E+1,    
     6   1.672E+1, 1.707E+1, 1.772E+1, 1.898E+1, 2.013E+1, 2.069E+1,    
     7   2.118E+1, 2.162E+1, 2.204E+1, 2.235E+1, 2.258E+1, 2.274E+1,    
     8   2.279E+1, 2.287E+1, 2.308E+1, 2.335E+1, 2.417E+1, 2.516E+1,    
     9   2.604E+1, 2.684E+1, 2.718E+1, 2.666E+1, 2.601E+1, 2.484E+1,    
     &   2.361E+1, 2.232E+1, 2.101E+1, 1.967E+1, 1.830E+1, 1.692E+1,    
     1   1.548E+1, 1.404E+1, 1.260E+1, 1.121E+1, 1.067E+1, 1.043E+1,    
     2   1.031E+1, 1.029E+1, 1.037E+1, 1.067E+1, 1.107E+1, 1.211E+1,    
     3   1.323E+1, 1.367E+1, 1.381E+1, 1.425E+1, 1.507E+1, 1.603E+1,    
     4   1.739E+1, 1.867E+1, 1.894E+1, 1.896E+1, 1.920E+1, 1.957E+1,    
     5   2.054E+1, 2.239E+1, 2.427E+1, 2.620E+1, 2.795E+1, 2.866E+1,    
     6   2.918E+1, 2.896E+1, 2.824E+1, 2.741E+1, 2.642E+1, 2.539E+1,    
     7   2.415E+1, 2.288E+1, 2.172E+1, 2.059E+1/                        
      DATA (SO2CRS(I),I= 1801, 1900)/                                   
     1   1.942E+1, 1.820E+1, 1.703E+1, 1.600E+1, 1.508E+1, 1.477E+1,    
     2   1.456E+1, 1.398E+1, 1.315E+1, 1.259E+1, 1.242E+1, 1.231E+1,    
     3   1.255E+1, 1.286E+1, 1.326E+1, 1.369E+1, 1.420E+1, 1.483E+1,    
     4   1.531E+1, 1.538E+1, 1.543E+1, 1.559E+1, 1.579E+1, 1.633E+1,    
     5   1.710E+1, 1.794E+1, 1.899E+1, 2.004E+1, 2.098E+1, 2.190E+1,    
     6   2.246E+1, 2.277E+1, 2.325E+1, 2.398E+1, 2.470E+1, 2.537E+1,    
     7   2.602E+1, 2.634E+1, 2.642E+1, 2.626E+1, 2.573E+1, 2.528E+1,    
     8   2.534E+1, 2.549E+1, 2.559E+1, 2.567E+1, 2.543E+1, 2.474E+1,    
     9   2.348E+1, 2.060E+1, 1.771E+1, 1.633E+1, 1.547E+1, 1.493E+1,    
     &   1.485E+1, 1.485E+1, 1.504E+1, 1.526E+1, 1.574E+1, 1.631E+1,    
     1   1.689E+1, 1.751E+1, 1.823E+1, 1.928E+1, 2.033E+1, 2.120E+1,    
     2   2.200E+1, 2.265E+1, 2.309E+1, 2.344E+1, 2.350E+1, 2.355E+1,    
     3   2.367E+1, 2.382E+1, 2.411E+1, 2.462E+1, 2.504E+1, 2.519E+1,    
     4   2.535E+1, 2.578E+1, 2.631E+1, 2.665E+1, 2.673E+1, 2.665E+1,    
     5   2.608E+1, 2.547E+1, 2.469E+1, 2.385E+1, 2.287E+1, 2.170E+1,    
     6   2.062E+1, 2.013E+1, 1.968E+1, 1.854E+1, 1.716E+1, 1.629E+1,    
     7   1.616E+1, 1.609E+1, 1.644E+1, 1.685E+1/                        
      DATA (SO2CRS(I),I= 1901, 2000)/                                   
     1   1.765E+1, 1.870E+1, 1.935E+1, 1.940E+1, 1.945E+1, 1.957E+1,    
     2   1.970E+1, 2.001E+1, 2.046E+1, 2.088E+1, 2.126E+1, 2.163E+1,    
     3   2.209E+1, 2.257E+1, 2.307E+1, 2.358E+1, 2.424E+1, 2.537E+1,    
     4   2.651E+1, 2.733E+1, 2.803E+1, 2.793E+1, 2.665E+1, 2.534E+1,    
     5   2.395E+1, 2.256E+1, 2.200E+1, 2.203E+1, 2.213E+1, 2.232E+1,    
     6   2.255E+1, 2.293E+1, 2.333E+1, 2.341E+1, 2.326E+1, 2.288E+1,    
     7   2.183E+1, 2.079E+1, 2.044E+1, 2.033E+1, 2.011E+1, 1.975E+1,    
     8   1.940E+1, 1.914E+1, 1.890E+1, 1.876E+1, 1.870E+1, 1.872E+1,    
     9   1.896E+1, 1.925E+1, 1.995E+1, 2.078E+1, 2.154E+1, 2.217E+1,    
     &   2.279E+1, 2.329E+1, 2.377E+1, 2.437E+1, 2.506E+1, 2.574E+1,    
     1   2.641E+1, 2.708E+1, 2.774E+1, 2.839E+1, 2.886E+1, 2.909E+1,    
     2   2.909E+1, 2.777E+1, 2.622E+1, 2.456E+1, 2.282E+1, 2.127E+1,    
     3   2.027E+1, 1.934E+1, 1.901E+1, 1.888E+1, 1.892E+1, 1.921E+1,    
     4   1.953E+1, 2.001E+1, 2.051E+1, 2.079E+1, 2.091E+1, 2.106E+1,    
     5   2.127E+1, 2.149E+1, 2.194E+1, 2.246E+1, 2.277E+1, 2.280E+1,    
     6   2.282E+1, 2.284E+1, 2.286E+1, 2.295E+1, 2.308E+1, 2.333E+1,    
     7   2.388E+1, 2.446E+1, 2.495E+1, 2.542E+1/                        
      DATA (SO2CRS(I),I= 2001, 2100)/                                   
     1   2.570E+1, 2.572E+1, 2.574E+1, 2.577E+1, 2.579E+1, 2.586E+1,    
     2   2.600E+1, 2.618E+1, 2.659E+1, 2.704E+1, 2.734E+1, 2.754E+1,    
     3   2.779E+1, 2.816E+1, 2.851E+1, 2.835E+1, 2.802E+1, 2.697E+1,    
     4   2.384E+1, 2.071E+1, 1.949E+1, 1.895E+1, 1.857E+1, 1.846E+1,    
     5   1.838E+1, 1.852E+1, 1.869E+1, 1.898E+1, 1.936E+1, 1.970E+1,    
     6   1.991E+1, 2.009E+1, 2.025E+1, 2.040E+1, 2.066E+1, 2.122E+1,    
     7   2.178E+1, 2.225E+1, 2.267E+1, 2.310E+1, 2.352E+1, 2.393E+1,    
     8   2.428E+1, 2.459E+1, 2.484E+1, 2.499E+1, 2.517E+1, 2.557E+1,    
     9   2.600E+1, 2.633E+1, 2.651E+1, 2.673E+1, 2.718E+1, 2.767E+1,    
     &   2.818E+1, 2.871E+1, 2.905E+1, 2.834E+1, 2.744E+1, 2.617E+1,    
     1   2.465E+1, 2.349E+1, 2.343E+1, 2.343E+1, 2.335E+1, 2.322E+1,    
     2   2.298E+1, 2.243E+1, 2.188E+1, 2.159E+1, 2.138E+1, 2.123E+1,    
     3   2.122E+1, 2.121E+1, 2.116E+1, 2.109E+1, 2.091E+1, 2.058E+1,    
     4   2.025E+1, 2.001E+1, 1.981E+1, 1.980E+1, 2.006E+1, 2.033E+1,    
     5   2.056E+1, 2.079E+1, 2.117E+1, 2.179E+1, 2.233E+1, 2.243E+1,    
     6   2.245E+1, 2.247E+1, 2.250E+1, 2.255E+1, 2.277E+1, 2.303E+1,    
     7   2.359E+1, 2.462E+1, 2.556E+1, 2.601E+1/                        
      DATA (SO2CRS(I),I= 2101, 2200)/                                   
     1   2.637E+1, 2.681E+1, 2.735E+1, 2.775E+1, 2.734E+1, 2.680E+1,    
     2   2.509E+1, 2.170E+1, 1.870E+1, 1.807E+1, 1.785E+1, 1.787E+1,    
     3   1.826E+1, 1.863E+1, 1.889E+1, 1.913E+1, 1.928E+1, 1.930E+1,    
     4   1.933E+1, 1.935E+1, 1.937E+1, 1.943E+1, 1.953E+1, 1.965E+1,    
     5   1.994E+1, 2.025E+1, 2.060E+1, 2.100E+1, 2.141E+1, 2.179E+1,    
     6   2.216E+1, 2.254E+1, 2.291E+1, 2.329E+1, 2.369E+1, 2.410E+1,    
     7   2.451E+1, 2.489E+1, 2.528E+1, 2.563E+1, 2.598E+1, 2.626E+1,    
     8   2.643E+1, 2.659E+1, 2.672E+1, 2.683E+1, 2.690E+1, 2.682E+1,    
     9   2.671E+1, 2.636E+1, 2.592E+1, 2.531E+1, 2.423E+1, 2.313E+1,    
     &   2.193E+1, 2.068E+1, 1.971E+1, 1.957E+1, 1.948E+1, 1.944E+1,    
     1   1.942E+1, 1.941E+1, 1.948E+1, 1.957E+1, 1.973E+1, 1.993E+1,    
     2   2.016E+1, 2.050E+1, 2.087E+1, 2.116E+1, 2.137E+1, 2.157E+1,    
     3   2.170E+1, 2.180E+1, 2.201E+1, 2.237E+1, 2.276E+1, 2.360E+1,    
     4   2.458E+1, 2.536E+1, 2.554E+1, 2.569E+1, 2.560E+1, 2.535E+1,    
     5   2.485E+1, 2.361E+1, 2.233E+1, 2.101E+1, 1.965E+1, 1.840E+1,    
     6   1.778E+1, 1.728E+1, 1.726E+1, 1.796E+1, 1.866E+1, 1.939E+1,    
     7   2.012E+1, 2.088E+1, 2.169E+1, 2.250E+1/                        
      DATA (SO2CRS(I),I= 2201, 2300)/                                   
     1   2.319E+1, 2.385E+1, 2.431E+1, 2.417E+1, 2.398E+1, 2.322E+1,    
     2   2.205E+1, 2.088E+1, 1.970E+1, 1.852E+1, 1.767E+1, 1.729E+1,    
     3   1.700E+1, 1.721E+1, 1.750E+1, 1.774E+1, 1.791E+1, 1.809E+1,    
     4   1.848E+1, 1.893E+1, 1.938E+1, 1.984E+1, 2.029E+1, 2.075E+1,    
     5   2.120E+1, 2.165E+1, 2.206E+1, 2.246E+1, 2.272E+1, 2.278E+1,    
     6   2.282E+1, 2.254E+1, 2.215E+1, 2.179E+1, 2.154E+1, 2.130E+1,    
     7   2.106E+1, 2.080E+1, 2.047E+1, 1.967E+1, 1.879E+1, 1.841E+1,    
     8   1.874E+1, 1.908E+1, 1.940E+1, 1.972E+1, 2.007E+1, 2.050E+1,    
     9   2.095E+1, 2.122E+1, 2.138E+1, 2.146E+1, 2.106E+1, 2.059E+1,    
     &   2.011E+1, 1.964E+1, 1.917E+1, 1.883E+1, 1.853E+1, 1.841E+1,    
     1   1.880E+1, 1.923E+1, 1.969E+1, 2.018E+1, 2.062E+1, 2.082E+1,    
     2   2.097E+1, 2.093E+1, 2.061E+1, 2.025E+1, 1.937E+1, 1.831E+1,    
     3   1.744E+1, 1.709E+1, 1.678E+1, 1.667E+1, 1.669E+1, 1.671E+1,    
     4   1.675E+1, 1.679E+1, 1.687E+1, 1.701E+1, 1.715E+1, 1.735E+1,    
     5   1.756E+1, 1.777E+1, 1.797E+1, 1.817E+1, 1.836E+1, 1.853E+1,    
     6   1.869E+1, 1.877E+1, 1.882E+1, 1.887E+1, 1.891E+1, 1.894E+1,    
     7   1.902E+1, 1.914E+1, 1.926E+1, 1.939E+1/                        
      DATA (SO2CRS(I),I= 2301, 2400)/                                   
     1   1.953E+1, 1.962E+1, 1.962E+1, 1.960E+1, 1.950E+1, 1.936E+1,    
     2   1.922E+1, 1.913E+1, 1.905E+1, 1.901E+1, 1.901E+1, 1.901E+1,    
     3   1.899E+1, 1.898E+1, 1.894E+1, 1.877E+1, 1.857E+1, 1.819E+1,    
     4   1.755E+1, 1.690E+1, 1.635E+1, 1.583E+1, 1.536E+1, 1.503E+1,    
     5   1.472E+1, 1.449E+1, 1.439E+1, 1.430E+1, 1.429E+1, 1.430E+1,    
     6   1.435E+1, 1.452E+1, 1.471E+1, 1.514E+1, 1.593E+1, 1.672E+1,    
     7   1.735E+1, 1.791E+1, 1.837E+1, 1.852E+1, 1.864E+1, 1.874E+1,    
     8   1.878E+1, 1.883E+1, 1.892E+1, 1.903E+1, 1.919E+1, 1.951E+1,    
     9   1.984E+1, 2.023E+1, 2.070E+1, 2.115E+1, 2.116E+1, 2.103E+1,    
     &   2.077E+1, 2.014E+1, 1.948E+1, 1.881E+1, 1.813E+1, 1.747E+1,    
     1   1.723E+1, 1.713E+1, 1.704E+1, 1.701E+1, 1.698E+1, 1.697E+1,    
     2   1.699E+1, 1.701E+1, 1.703E+1, 1.705E+1, 1.707E+1, 1.708E+1,    
     3   1.709E+1, 1.709E+1, 1.706E+1, 1.703E+1, 1.699E+1, 1.693E+1,    
     4   1.687E+1, 1.681E+1, 1.675E+1, 1.669E+1, 1.661E+1, 1.653E+1,    
     5   1.647E+1, 1.643E+1, 1.639E+1, 1.645E+1, 1.655E+1, 1.665E+1,    
     6   1.678E+1, 1.691E+1, 1.703E+1, 1.710E+1, 1.718E+1, 1.723E+1,    
     7   1.728E+1, 1.730E+1, 1.720E+1, 1.707E+1/                        
      DATA (SO2CRS(I),I= 2401, 2500)/                                   
     1   1.687E+1, 1.658E+1, 1.628E+1, 1.600E+1, 1.574E+1, 1.551E+1,    
     2   1.549E+1, 1.550E+1, 1.549E+1, 1.538E+1, 1.527E+1, 1.499E+1,    
     3   1.445E+1, 1.393E+1, 1.362E+1, 1.338E+1, 1.317E+1, 1.314E+1,    
     4   1.313E+1, 1.315E+1, 1.320E+1, 1.325E+1, 1.331E+1, 1.336E+1,    
     5   1.341E+1, 1.352E+1, 1.365E+1, 1.378E+1, 1.392E+1, 1.405E+1,    
     6   1.419E+1, 1.432E+1, 1.445E+1, 1.467E+1, 1.494E+1, 1.521E+1,    
     7   1.550E+1, 1.579E+1, 1.601E+1, 1.601E+1, 1.600E+1, 1.591E+1,    
     8   1.572E+1, 1.553E+1, 1.504E+1, 1.437E+1, 1.372E+1, 1.324E+1,    
     9   1.279E+1, 1.242E+1, 1.227E+1, 1.214E+1, 1.210E+1, 1.221E+1,    
     &   1.231E+1, 1.246E+1, 1.263E+1, 1.280E+1, 1.293E+1, 1.306E+1,    
     1   1.320E+1, 1.336E+1, 1.353E+1, 1.361E+1, 1.357E+1, 1.353E+1,    
     2   1.336E+1, 1.310E+1, 1.285E+1, 1.267E+1, 1.251E+1, 1.236E+1,    
     3   1.228E+1, 1.221E+1, 1.227E+1, 1.252E+1, 1.277E+1, 1.339E+1,    
     4   1.427E+1, 1.513E+1, 1.571E+1, 1.618E+1, 1.657E+1, 1.641E+1,    
     5   1.617E+1, 1.562E+1, 1.461E+1, 1.360E+1, 1.300E+1, 1.268E+1,    
     6   1.235E+1, 1.196E+1, 1.156E+1, 1.117E+1, 1.094E+1, 1.073E+1,    
     7   1.059E+1, 1.063E+1, 1.069E+1, 1.077E+1/                        
      DATA (SO2CRS(I),I= 2501, 2600)/                                   
     1   1.087E+1, 1.097E+1, 1.115E+1, 1.137E+1, 1.158E+1, 1.175E+1,    
     2   1.191E+1, 1.203E+1, 1.193E+1, 1.180E+1, 1.165E+1, 1.145E+1,    
     3   1.126E+1, 1.111E+1, 1.103E+1, 1.096E+1, 1.099E+1, 1.107E+1,    
     4   1.117E+1, 1.137E+1, 1.160E+1, 1.187E+1, 1.234E+1, 1.284E+1,    
     5   1.325E+1, 1.339E+1, 1.351E+1, 1.355E+1, 1.347E+1, 1.339E+1,    
     6   1.320E+1, 1.293E+1, 1.266E+1, 1.221E+1, 1.171E+1, 1.126E+1,    
     7   1.111E+1, 1.101E+1, 1.099E+1, 1.118E+1, 1.138E+1, 1.163E+1,    
     8   1.192E+1, 1.222E+1, 1.235E+1, 1.236E+1, 1.236E+1, 1.230E+1,    
     9   1.221E+1, 1.209E+1, 1.176E+1, 1.139E+1, 1.103E+1, 1.068E+1,    
     &   1.034E+1, 1.005E+1, 9.856E+0, 9.661E+0, 9.549E+0, 9.560E+0,    
     1   9.572E+0, 9.655E+0, 9.788E+0, 9.922E+0, 1.009E+1, 1.026E+1,    
     2   1.045E+1, 1.071E+1, 1.098E+1, 1.121E+1, 1.130E+1, 1.138E+1,    
     3   1.132E+1, 1.105E+1, 1.078E+1, 1.058E+1, 1.047E+1, 1.036E+1,    
     4   1.030E+1, 1.027E+1, 1.026E+1, 1.049E+1, 1.080E+1, 1.112E+1,    
     5   1.142E+1, 1.173E+1, 1.199E+1, 1.204E+1, 1.204E+1, 1.202E+1,    
     6   1.194E+1, 1.185E+1, 1.169E+1, 1.144E+1, 1.118E+1, 1.089E+1,    
     7   1.059E+1, 1.028E+1, 1.015E+1, 1.013E+1/                        
      DATA (SO2CRS(I),I= 2601, 2700)/                                   
     1   1.011E+1, 1.006E+1, 1.001E+1, 9.926E+0, 9.720E+0, 9.493E+0,    
     2   9.262E+0, 8.999E+0, 8.731E+0, 8.527E+0, 8.508E+0, 8.500E+0,    
     3   8.518E+0, 8.573E+0, 8.629E+0, 8.699E+0, 8.790E+0, 8.880E+0,    
     4   8.829E+0, 8.683E+0, 8.533E+0, 8.337E+0, 8.124E+0, 7.915E+0,    
     5   7.747E+0, 7.593E+0, 7.485E+0, 7.652E+0, 7.864E+0, 8.062E+0,    
     6   8.175E+0, 8.274E+0, 8.360E+0, 8.406E+0, 8.450E+0, 8.477E+0,    
     7   8.477E+0, 8.477E+0, 8.477E+0, 8.477E+0, 8.477E+0, 8.479E+0,    
     8   8.483E+0, 8.486E+0, 8.505E+0, 8.534E+0, 8.563E+0, 8.604E+0,    
     9   8.649E+0, 8.688E+0, 8.641E+0, 8.564E+0, 8.483E+0, 8.374E+0,    
     &   8.260E+0, 8.168E+0, 8.202E+0, 8.258E+0, 8.313E+0, 8.368E+0,    
     1   8.422E+0, 8.485E+0, 8.572E+0, 8.660E+0, 8.754E+0, 8.856E+0,    
     2   8.958E+0, 8.998E+0, 8.948E+0, 8.897E+0, 8.820E+0, 8.724E+0,    
     3   8.628E+0, 8.545E+0, 8.469E+0, 8.394E+0, 8.320E+0, 8.246E+0,    
     4   8.179E+0, 8.229E+0, 8.318E+0, 8.411E+0, 8.555E+0, 8.716E+0,    
     5   8.867E+0, 8.956E+0, 9.035E+0, 9.116E+0, 9.209E+0, 9.305E+0,    
     6   9.380E+0, 9.331E+0, 9.261E+0, 9.141E+0, 8.876E+0, 8.602E+0,    
     7   8.373E+0, 8.275E+0, 8.186E+0, 8.089E+0/                        
      DATA (SO2CRS(I),I= 2701, 2800)/                                   
     1   7.970E+0, 7.850E+0, 7.784E+0, 7.797E+0, 7.811E+0, 7.840E+0,    
     2   7.894E+0, 7.948E+0, 7.958E+0, 7.905E+0, 7.851E+0, 7.805E+0,    
     3   7.763E+0, 7.722E+0, 7.697E+0, 7.681E+0, 7.666E+0, 7.634E+0,    
     4   7.590E+0, 7.546E+0, 7.519E+0, 7.504E+0, 7.488E+0, 7.462E+0,    
     5   7.434E+0, 7.406E+0, 7.389E+0, 7.375E+0, 7.362E+0, 7.348E+0,    
     6   7.333E+0, 7.319E+0, 7.305E+0, 7.290E+0, 7.277E+0, 7.273E+0,    
     7   7.273E+0, 7.273E+0, 7.273E+0, 7.273E+0, 7.273E+0, 7.273E+0,    
     8   7.273E+0, 7.273E+0, 7.273E+0, 7.273E+0, 7.273E+0, 7.273E+0,    
     9   7.273E+0, 7.271E+0, 7.260E+0, 7.246E+0, 7.233E+0, 7.219E+0,    
     &   7.204E+0, 7.187E+0, 7.149E+0, 7.107E+0, 7.066E+0, 7.023E+0,    
     1   6.980E+0, 6.938E+0, 6.898E+0, 6.859E+0, 6.819E+0, 6.781E+0,    
     2   6.742E+0, 6.695E+0, 6.620E+0, 6.544E+0, 6.469E+0, 6.395E+0,    
     3   6.322E+0, 6.245E+0, 6.158E+0, 6.070E+0, 5.985E+0, 5.910E+0,    
     4   5.836E+0, 5.772E+0, 5.738E+0, 5.706E+0, 5.681E+0, 5.680E+0,    
     5   5.680E+0, 5.683E+0, 5.693E+0, 5.704E+0, 5.720E+0, 5.752E+0,    
     6   5.785E+0, 5.824E+0, 5.879E+0, 5.936E+0, 5.990E+0, 6.037E+0,    
     7   6.083E+0, 6.130E+0, 6.177E+0, 6.225E+0/                        
      DATA (SO2CRS(I),I= 2801, 2900)/                                   
     1   6.276E+0, 6.336E+0, 6.397E+0, 6.443E+0, 6.446E+0, 6.446E+0,    
     2   6.446E+0, 6.446E+0, 6.446E+0, 6.444E+0, 6.433E+0, 6.421E+0,    
     3   6.401E+0, 6.335E+0, 6.263E+0, 6.192E+0, 6.132E+0, 6.074E+0,    
     4   6.017E+0, 5.970E+0, 5.924E+0, 5.876E+0, 5.812E+0, 5.746E+0,    
     5   5.680E+0, 5.615E+0, 5.551E+0, 5.485E+0, 5.409E+0, 5.332E+0,    
     6   5.256E+0, 5.192E+0, 5.133E+0, 5.074E+0, 5.023E+0, 4.975E+0,    
     7   4.926E+0, 4.865E+0, 4.801E+0, 4.737E+0, 4.677E+0, 4.619E+0,    
     8   4.561E+0, 4.502E+0, 4.442E+0, 4.382E+0, 4.319E+0, 4.253E+0,    
     9   4.188E+0, 4.162E+0, 4.162E+0, 4.162E+0, 4.180E+0, 4.210E+0,    
     &   4.240E+0, 4.299E+0, 4.400E+0, 4.501E+0, 4.598E+0, 4.689E+0,    
     1   4.779E+0, 4.880E+0, 4.995E+0, 5.111E+0, 5.226E+0, 5.341E+0,    
     2   5.456E+0, 5.562E+0, 5.640E+0, 5.716E+0, 5.793E+0, 5.872E+0,    
     3   5.952E+0, 6.020E+0, 6.055E+0, 6.088E+0, 6.106E+0, 6.040E+0,    
     4   5.959E+0, 5.880E+0, 5.806E+0, 5.733E+0, 5.660E+0, 5.603E+0,    
     5   5.550E+0, 5.497E+0, 5.453E+0, 5.411E+0, 5.368E+0, 5.323E+0,    
     6   5.276E+0, 5.229E+0, 5.186E+0, 5.147E+0, 5.107E+0, 5.064E+0,    
     7   5.019E+0, 4.974E+0, 4.931E+0, 4.894E+0/                        
      DATA (SO2CRS(I),I= 2901, 3000)/                                   
     1   4.856E+0, 4.820E+0, 4.785E+0, 4.751E+0, 4.714E+0, 4.670E+0,    
     2   4.625E+0, 4.581E+0, 4.541E+0, 4.500E+0, 4.461E+0, 4.426E+0,    
     3   4.392E+0, 4.359E+0, 4.334E+0, 4.311E+0, 4.287E+0, 4.263E+0,    
     4   4.239E+0, 4.214E+0, 4.180E+0, 4.142E+0, 4.105E+0, 4.080E+0,    
     5   4.065E+0, 4.050E+0, 4.031E+0, 4.009E+0, 3.987E+0, 3.965E+0,    
     6   3.942E+0, 3.920E+0, 3.898E+0, 3.877E+0, 3.856E+0, 3.835E+0,    
     7   3.814E+0, 3.793E+0, 3.771E+0, 3.745E+0, 3.717E+0, 3.690E+0,    
     8   3.669E+0, 3.649E+0, 3.629E+0, 3.614E+0, 3.600E+0, 3.587E+0,    
     9   3.579E+0, 3.572E+0, 3.565E+0, 3.544E+0, 3.512E+0, 3.480E+0,    
     &   3.456E+0, 3.443E+0, 3.431E+0, 3.413E+0, 3.389E+0, 3.365E+0,    
     1   3.343E+0, 3.330E+0, 3.317E+0, 3.306E+0, 3.299E+0, 3.293E+0,    
     2   3.287E+0, 3.281E+0, 3.275E+0, 3.268E+0, 3.258E+0, 3.246E+0,    
     3   3.234E+0, 3.226E+0, 3.220E+0, 3.214E+0, 3.204E+0, 3.187E+0,    
     4   3.170E+0, 3.155E+0, 3.142E+0, 3.129E+0, 3.121E+0, 3.126E+0,    
     5   3.132E+0, 3.138E+0, 3.144E+0, 3.150E+0, 3.156E+0, 3.170E+0,    
     6   3.187E+0, 3.204E+0, 3.221E+0, 3.239E+0, 3.257E+0, 3.283E+0,    
     7   3.321E+0, 3.360E+0, 3.413E+0, 3.488E+0/                        
      DATA (SO2CRS(I),I= 3001, 3100)/                                   
     1   3.564E+0, 3.626E+0, 3.649E+0, 3.669E+0, 3.691E+0, 3.723E+0,    
     2   3.756E+0, 3.789E+0, 3.802E+0, 3.809E+0, 3.815E+0, 3.801E+0,    
     3   3.774E+0, 3.746E+0, 3.711E+0, 3.666E+0, 3.620E+0, 3.575E+0,    
     4   3.531E+0, 3.486E+0, 3.441E+0, 3.393E+0, 3.344E+0, 3.296E+0,    
     5   3.254E+0, 3.213E+0, 3.173E+0, 3.134E+0, 3.095E+0, 3.057E+0,    
     6   3.016E+0, 2.973E+0, 2.931E+0, 2.891E+0, 2.859E+0, 2.828E+0,    
     7   2.797E+0, 2.763E+0, 2.728E+0, 2.694E+0, 2.660E+0, 2.627E+0,    
     8   2.594E+0, 2.567E+0, 2.544E+0, 2.521E+0, 2.500E+0, 2.483E+0,    
     9   2.465E+0, 2.447E+0, 2.430E+0, 2.412E+0, 2.394E+0, 2.374E+0,    
     &   2.352E+0, 2.331E+0, 2.314E+0, 2.297E+0, 2.280E+0, 2.255E+0,    
     1   2.223E+0, 2.191E+0, 2.170E+0, 2.166E+0, 2.162E+0, 2.156E+0,    
     2   2.141E+0, 2.125E+0, 2.110E+0, 2.095E+0, 2.080E+0, 2.065E+0,    
     3   2.050E+0, 2.035E+0, 2.021E+0, 2.005E+0, 1.988E+0, 1.971E+0,    
     4   1.958E+0, 1.953E+0, 1.950E+0, 1.947E+0, 1.947E+0, 1.947E+0,    
     5   1.946E+0, 1.944E+0, 1.940E+0, 1.937E+0, 1.935E+0, 1.935E+0,    
     6   1.935E+0, 1.934E+0, 1.931E+0, 1.928E+0, 1.925E+0, 1.924E+0,    
     7   1.924E+0, 1.924E+0, 1.924E+0, 1.924E+0/                        
      DATA (SO2CRS(I),I= 3101, 3200)/                                   
     1   1.924E+0, 1.922E+0, 1.919E+0, 1.915E+0, 1.911E+0, 1.904E+0,    
     2   1.898E+0, 1.892E+0, 1.891E+0, 1.891E+0, 1.891E+0, 1.886E+0,    
     3   1.879E+0, 1.872E+0, 1.866E+0, 1.860E+0, 1.853E+0, 1.847E+0,    
     4   1.840E+0, 1.834E+0, 1.827E+0, 1.820E+0, 1.814E+0, 1.808E+0,    
     5   1.804E+0, 1.801E+0, 1.798E+0, 1.793E+0, 1.787E+0, 1.780E+0,    
     6   1.774E+0, 1.768E+0, 1.761E+0, 1.755E+0, 1.752E+0, 1.749E+0,    
     7   1.746E+0, 1.741E+0, 1.735E+0, 1.729E+0, 1.724E+0, 1.721E+0,    
     8   1.718E+0, 1.715E+0, 1.709E+0, 1.703E+0, 1.696E+0, 1.688E+0,    
     9   1.679E+0, 1.670E+0, 1.665E+0, 1.662E+0, 1.659E+0, 1.655E+0,    
     &   1.646E+0, 1.637E+0, 1.629E+0, 1.626E+0, 1.623E+0, 1.620E+0,    
     1   1.619E+0, 1.619E+0, 1.619E+0, 1.622E+0, 1.631E+0, 1.639E+0,    
     2   1.647E+0, 1.656E+0, 1.665E+0, 1.674E+0, 1.685E+0, 1.697E+0,    
     3   1.708E+0, 1.717E+0, 1.723E+0, 1.729E+0, 1.736E+0, 1.747E+0,    
     4   1.760E+0, 1.772E+0, 1.782E+0, 1.792E+0, 1.801E+0, 1.810E+0,    
     5   1.820E+0, 1.830E+0, 1.839E+0, 1.849E+0, 1.858E+0, 1.868E+0,    
     6   1.877E+0, 1.887E+0, 1.897E+0, 1.905E+0, 1.912E+0, 1.919E+0,    
     7   1.923E+0, 1.920E+0, 1.917E+0, 1.914E+0/                        
      DATA (SO2CRS(I),I= 3201, 3300)/                                   
     1   1.905E+0, 1.895E+0, 1.885E+0, 1.866E+0, 1.841E+0, 1.816E+0,    
     2   1.789E+0, 1.757E+0, 1.725E+0, 1.693E+0, 1.666E+0, 1.641E+0,    
     3   1.616E+0, 1.589E+0, 1.561E+0, 1.533E+0, 1.508E+0, 1.490E+0,    
     4   1.472E+0, 1.455E+0, 1.432E+0, 1.408E+0, 1.384E+0, 1.360E+0,    
     5   1.335E+0, 1.311E+0, 1.287E+0, 1.270E+0, 1.254E+0, 1.238E+0,    
     6   1.224E+0, 1.209E+0, 1.195E+0, 1.180E+0, 1.164E+0, 1.149E+0,    
     7   1.133E+0, 1.118E+0, 1.103E+0, 1.088E+0, 1.074E+0, 1.062E+0,    
     8   1.049E+0, 1.037E+0, 1.024E+0, 1.011E+0, 9.986E-1, 9.868E-1,    
     9   9.752E-1, 9.636E-1, 9.522E-1, 9.411E-1, 9.299E-1, 9.189E-1,    
     &   9.081E-1, 8.974E-1, 8.867E-1, 8.763E-1, 8.660E-1, 8.557E-1,    
     1   8.456E-1, 8.358E-1, 8.260E-1, 8.170E-1, 8.121E-1, 8.080E-1,    
     2   8.039E-1, 7.991E-1, 7.937E-1, 7.883E-1, 7.833E-1, 7.793E-1,    
     3   7.753E-1, 7.715E-1, 7.695E-1, 7.682E-1, 7.668E-1, 7.650E-1,    
     4   7.624E-1, 7.597E-1, 7.572E-1, 7.546E-1, 7.521E-1, 7.496E-1,    
     5   7.470E-1, 7.445E-1, 7.420E-1, 7.398E-1, 7.385E-1, 7.373E-1,    
     6   7.360E-1, 7.319E-1, 7.270E-1, 7.220E-1, 7.185E-1, 7.173E-1,    
     7   7.161E-1, 7.151E-1, 7.150E-1, 7.150E-1/                        
      DATA (SO2CRS(I),I= 3301, 3400)/                                   
     1   7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1,    
     2   7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1,    
     3   7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1,    
     4   7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1,    
     5   7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1,    
     6   7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1, 7.150E-1, 7.145E-1,    
     7   7.134E-1, 7.123E-1, 7.112E-1, 7.109E-1, 7.109E-1, 7.109E-1,    
     8   7.109E-1, 7.109E-1, 7.109E-1, 7.109E-1, 7.109E-1, 7.109E-1,    
     9   7.109E-1, 7.109E-1, 7.109E-1, 7.109E-1, 7.109E-1, 7.109E-1,    
     &   7.109E-1, 7.109E-1, 7.109E-1, 7.109E-1, 7.109E-1, 7.106E-1,    
     1   7.094E-1, 7.081E-1, 7.069E-1, 7.066E-1, 7.066E-1, 7.066E-1,    
     2   7.066E-1, 7.066E-1, 7.066E-1, 7.066E-1, 7.057E-1, 7.046E-1,    
     3   7.035E-1, 7.026E-1, 7.026E-1, 7.026E-1, 7.025E-1, 7.016E-1,    
     4   7.005E-1, 6.993E-1, 6.981E-1, 6.970E-1, 6.959E-1, 6.948E-1,    
     5   6.937E-1, 6.925E-1, 6.914E-1, 6.899E-1, 6.876E-1, 6.854E-1,    
     6   6.832E-1, 6.818E-1, 6.806E-1, 6.794E-1, 6.783E-1, 6.772E-1,    
     7   6.762E-1, 6.751E-1, 6.740E-1, 6.729E-1/                        
      DATA (SO2CRS(I),I= 3401, 3500)/                                   
     1   6.718E-1, 6.703E-1, 6.681E-1, 6.660E-1, 6.638E-1, 6.616E-1,    
     2   6.594E-1, 6.572E-1, 6.550E-1, 6.529E-1, 6.508E-1, 6.487E-1,    
     3   6.466E-1, 6.443E-1, 6.421E-1, 6.400E-1, 6.380E-1, 6.360E-1,    
     4   6.339E-1, 6.318E-1, 6.297E-1, 6.276E-1, 6.251E-1, 6.221E-1,    
     5   6.191E-1, 6.161E-1, 6.131E-1, 6.100E-1, 6.069E-1, 6.039E-1,    
     6   6.010E-1, 5.981E-1, 5.953E-1, 5.938E-1, 5.928E-1, 5.919E-1,    
     7   5.909E-1, 5.900E-1, 5.890E-1, 5.881E-1, 5.871E-1, 5.861E-1,    
     8   5.852E-1, 5.840E-1, 5.821E-1, 5.803E-1, 5.784E-1, 5.765E-1,    
     9   5.746E-1, 5.727E-1, 5.711E-1, 5.701E-1, 5.692E-1, 5.683E-1,    
     &   5.674E-1, 5.664E-1, 5.655E-1, 5.645E-1, 5.636E-1, 5.627E-1,    
     1   5.618E-1, 5.605E-1, 5.586E-1, 5.567E-1, 5.550E-1, 5.540E-1,    
     2   5.532E-1, 5.524E-1, 5.511E-1, 5.494E-1, 5.476E-1, 5.458E-1,    
     3   5.440E-1, 5.423E-1, 5.406E-1, 5.389E-1, 5.371E-1, 5.352E-1,    
     4   5.334E-1, 5.304E-1, 5.270E-1, 5.237E-1, 5.207E-1, 5.190E-1,    
     5   5.174E-1, 5.157E-1, 5.136E-1, 5.111E-1, 5.087E-1, 5.065E-1,    
     6   5.062E-1, 5.062E-1, 5.062E-1, 5.069E-1, 5.085E-1, 5.101E-1,    
     7   5.118E-1, 5.141E-1, 5.165E-1, 5.190E-1/                        
      DATA (SO2CRS(I),I= 3501, 3600)/                                   
     1   5.215E-1, 5.240E-1, 5.266E-1, 5.291E-1, 5.301E-1, 5.301E-1,    
     2   5.301E-1, 5.311E-1, 5.352E-1, 5.395E-1, 5.437E-1, 5.470E-1,    
     3   5.496E-1, 5.522E-1, 5.548E-1, 5.575E-1, 5.602E-1, 5.629E-1,    
     4   5.656E-1, 5.684E-1, 5.711E-1, 5.739E-1, 5.766E-1, 5.794E-1,    
     5   5.822E-1, 5.849E-1, 5.878E-1, 5.906E-1, 5.934E-1, 5.958E-1,    
     6   5.977E-1, 5.996E-1, 6.016E-1, 6.035E-1, 6.055E-1, 6.074E-1,    
     7   6.097E-1, 6.124E-1, 6.152E-1, 6.179E-1, 6.208E-1, 6.238E-1,    
     8   6.268E-1, 6.297E-1, 6.318E-1, 6.338E-1, 6.358E-1, 6.370E-1,    
     9   6.370E-1, 6.370E-1, 6.370E-1, 6.370E-1, 6.370E-1, 6.370E-1,    
     &   6.365E-1, 6.346E-1, 6.326E-1, 6.306E-1, 6.292E-1, 6.282E-1,    
     1   6.273E-1, 6.260E-1, 6.233E-1, 6.203E-1, 6.173E-1, 6.137E-1,    
     2   6.091E-1, 6.045E-1, 5.999E-1, 5.925E-1, 5.832E-1, 5.738E-1,    
     3   5.639E-1, 5.508E-1, 5.370E-1, 5.233E-1, 5.100E-1, 4.974E-1,    
     4   4.848E-1, 4.723E-1, 4.620E-1, 4.525E-1, 4.429E-1, 4.334E-1,    
     5   4.241E-1, 4.147E-1, 4.054E-1, 3.993E-1, 3.980E-1, 3.968E-1,    
     6   3.955E-1, 3.952E-1, 3.952E-1, 3.952E-1, 3.952E-1, 3.952E-1,    
     7   3.952E-1, 3.952E-1, 3.955E-1, 3.961E-1/                        
      DATA (SO2CRS(I),I= 3601, 3700)/                                   
     1   3.967E-1, 3.973E-1, 3.989E-1, 4.009E-1, 4.028E-1, 4.052E-1,    
     2   4.089E-1, 4.126E-1, 4.164E-1, 4.217E-1, 4.293E-1, 4.369E-1,    
     3   4.447E-1, 4.562E-1, 4.690E-1, 4.818E-1, 4.949E-1, 5.096E-1,    
     4   5.246E-1, 5.396E-1, 5.553E-1, 5.719E-1, 5.886E-1, 6.052E-1,    
     5   6.217E-1, 6.382E-1, 6.547E-1, 6.716E-1, 6.915E-1, 7.118E-1,    
     6   7.321E-1, 7.528E-1, 7.742E-1, 7.957E-1, 8.171E-1, 8.407E-1,    
     7   8.657E-1, 8.907E-1, 9.158E-1, 9.420E-1, 9.683E-1, 9.946E-1,    
     8   1.022E+0, 1.053E+0, 1.083E+0, 1.114E+0, 1.144E+0, 1.172E+0,    
     9   1.201E+0, 1.228E+0, 1.237E+0, 1.239E+0, 1.241E+0, 1.216E+0,    
     &   1.115E+0, 1.009E+0, 9.034E-1, 8.394E-1, 8.363E-1, 8.338E-1,    
     1   8.313E-1, 8.310E-1, 8.324E-1, 8.337E-1, 8.445E-1, 9.118E-1,    
     2   9.885E-1, 1.065E+0, 1.143E+0, 1.224E+0, 1.305E+0, 1.386E+0,    
     3   1.472E+0, 1.560E+0, 1.649E+0, 1.736E+0, 1.805E+0, 1.867E+0,    
     4   1.929E+0, 1.985E+0, 1.998E+0, 2.005E+0, 2.011E+0, 1.983E+0,    
     5   1.904E+0, 1.825E+0, 1.747E+0, 1.672E+0, 1.600E+0, 1.529E+0,    
     6   1.458E+0, 1.399E+0, 1.345E+0, 1.290E+0, 1.266E+0, 1.420E+0,    
     7   1.605E+0, 1.789E+0, 2.159E+0, 2.799E+0/                        
      DATA (SO2CRS(I),I= 3701, 3800)/                                   
     1   3.442E+0, 4.083E+0, 4.513E+0, 4.799E+0, 5.085E+0, 5.357E+0,    
     2   5.427E+0, 5.427E+0, 5.427E+0, 5.427E+0, 5.427E+0, 5.427E+0,    
     3   5.427E+0, 5.398E+0, 5.327E+0, 5.256E+0, 5.184E+0, 5.027E+0,    
     4   4.813E+0, 4.599E+0, 4.407E+0, 4.570E+0, 4.856E+0, 5.142E+0,    
     5   5.383E+0, 5.356E+0, 5.285E+0, 5.213E+0, 5.072E+0, 4.727E+0,    
     6   4.370E+0, 4.013E+0, 3.656E+0, 3.299E+0, 2.942E+0, 2.586E+0,    
     7   2.314E+0, 2.100E+0, 1.885E+0, 1.697E+0, 1.914E+0, 2.271E+0,    
     8   2.628E+0, 2.976E+0, 3.271E+0, 3.556E+0, 3.842E+0, 4.076E+0,    
     9   4.161E+0, 4.236E+0, 4.312E+0, 4.471E+0, 4.686E+0, 4.901E+0,    
     &   5.109E+0, 5.215E+0, 5.286E+0, 5.357E+0, 5.418E+0, 5.427E+0,    
     1   5.427E+0, 5.427E+0, 5.440E+0, 5.526E+0, 5.625E+0, 5.724E+0,    
     2   5.806E+0, 5.837E+0, 5.866E+0, 5.894E+0, 5.715E+0, 5.233E+0,    
     3   4.749E+0, 4.266E+0, 4.028E+0, 3.956E+0, 3.885E+0, 3.804E+0,    
     4   3.571E+0, 3.285E+0, 2.999E+0, 2.740E+0, 2.642E+0, 2.571E+0,    
     5   2.499E+0, 2.376E+0, 2.100E+0, 1.814E+0, 1.528E+0, 1.358E+0,    
     6   1.357E+0, 1.357E+0, 1.357E+0, 1.398E+0, 1.465E+0, 1.533E+0,    
     7   1.603E+0, 1.885E+0, 2.314E+0, 2.742E+0/                        
      DATA (SO2CRS(I),I= 3801, 3900)/                                   
     1   3.180E+0, 3.771E+0, 4.413E+0, 5.056E+0, 5.654E+0, 5.984E+0,    
     2   6.270E+0, 6.556E+0, 6.789E+0, 6.870E+0, 6.941E+0, 7.013E+0,    
     3   7.193E+0, 7.530E+0, 7.870E+0, 8.209E+0, 8.642E+0, 9.212E+0,    
     4   9.783E+0, 1.036E+1, 1.131E+1, 1.253E+1, 1.374E+1, 1.489E+1,    
     5   1.498E+1, 1.471E+1, 1.444E+1, 1.407E+1, 1.228E+1, 9.998E+0,    
     6   7.713E+0, 5.722E+0, 5.499E+0, 5.570E+0, 5.642E+0, 5.762E+0,    
     7   6.024E+0, 6.296E+0, 6.567E+0, 6.772E+0, 6.784E+0, 6.784E+0,    
     8   6.784E+0, 6.813E+0, 6.884E+0, 6.956E+0, 7.028E+0, 7.218E+0,    
     9   7.490E+0, 7.761E+0, 8.031E+0, 8.141E+0, 8.141E+0, 8.141E+0,    
     &   8.141E+0, 8.141E+0, 8.141E+0, 8.141E+0, 8.144E+0, 8.198E+0,    
     1   8.270E+0, 8.341E+0, 8.446E+0, 8.752E+0, 9.091E+0, 9.430E+0,    
     2   9.763E+0, 1.005E+1, 1.034E+1, 1.063E+1, 1.086E+1, 1.094E+1,    
     3   1.100E+1, 1.107E+1, 1.121E+1, 1.155E+1, 1.191E+1, 1.227E+1,    
     4   1.262E+1, 1.296E+1, 1.330E+1, 1.364E+1, 1.395E+1, 1.424E+1,    
     5   1.453E+1, 1.481E+1, 1.493E+1, 1.493E+1, 1.493E+1, 1.493E+1,    
     6   1.497E+1, 1.504E+1, 1.511E+1, 1.519E+1, 1.541E+1, 1.569E+1,    
     7   1.596E+1, 1.620E+1, 1.606E+1, 1.579E+1/                        
      DATA (SO2CRS(I),I= 3901, 4000)/                                   
     1   1.552E+1, 1.521E+1, 1.417E+1, 1.288E+1, 1.160E+1, 1.039E+1,    
     2   9.634E+0, 8.955E+0, 8.277E+0, 7.632E+0, 7.191E+0, 6.784E+0,    
     3   6.377E+0, 6.101E+0, 6.613E+0, 7.255E+0, 7.898E+0, 8.467E+0,    
     4   8.819E+0, 9.159E+0, 9.498E+0, 9.854E+0, 1.026E+1, 1.066E+1,    
     5   1.107E+1, 1.151E+1, 1.205E+1, 1.259E+1, 1.313E+1, 1.356E+1,    
     6   1.365E+1, 1.373E+1, 1.380E+1, 1.398E+1, 1.431E+1, 1.465E+1,    
     7   1.499E+1, 1.533E+1, 1.567E+1, 1.601E+1, 1.635E+1, 1.669E+1,    
     8   1.703E+1, 1.737E+1, 1.771E+1, 1.805E+1, 1.839E+1, 1.872E+1,    
     9   1.906E+1, 1.946E+1, 1.993E+1, 2.041E+1, 2.088E+1, 2.144E+1,    
     &   2.212E+1, 2.279E+1, 2.347E+1, 2.359E+1, 2.288E+1, 2.217E+1,    
     1   2.145E+1, 2.060E+1, 1.965E+1, 1.870E+1, 1.774E+1, 1.639E+1,    
     2   1.476E+1, 1.313E+1, 1.151E+1, 1.081E+1, 1.075E+1, 1.068E+1,    
     3   1.061E+1, 1.026E+1, 9.715E+0, 9.172E+0, 8.627E+0, 7.802E+0,    
     4   6.784E+0, 5.767E+0, 4.756E+0, 4.545E+0, 4.885E+0, 5.224E+0,    
     5   5.563E+0, 5.943E+0, 6.350E+0, 6.757E+0, 7.166E+0, 7.815E+0,    
     6   8.629E+0, 9.444E+0, 1.026E+1, 1.136E+1, 1.265E+1, 1.393E+1,    
     7   1.522E+1, 1.623E+1, 1.704E+1, 1.786E+1/                        
      DATA (SO2CRS(I),I= 4001, 4100)/                                   
     1   1.867E+1, 1.900E+1, 1.900E+1, 1.900E+1, 1.900E+1, 1.913E+1,    
     2   1.947E+1, 1.981E+1, 2.015E+1, 2.093E+1, 2.235E+1, 2.377E+1,    
     3   2.520E+1, 2.615E+1, 2.643E+1, 2.670E+1, 2.697E+1, 2.716E+1,    
     4   2.723E+1, 2.730E+1, 2.737E+1, 2.754E+1, 2.788E+1, 2.823E+1,    
     5   2.857E+1, 2.893E+1, 2.931E+1, 2.970E+1, 3.008E+1, 3.050E+1,    
     6   3.104E+1, 3.158E+1, 3.213E+1, 3.242E+1, 3.199E+1, 3.151E+1,    
     7   3.104E+1, 3.008E+1, 2.773E+1, 2.529E+1, 2.285E+1, 2.051E+1,    
     8   1.849E+1, 1.649E+1, 1.449E+1, 1.275E+1, 1.262E+1, 1.275E+1,    
     9   1.289E+1, 1.296E+1, 1.262E+1, 1.221E+1, 1.180E+1, 1.152E+1,    
     &   1.198E+1, 1.256E+1, 1.314E+1, 1.372E+1, 1.417E+1, 1.457E+1,    
     1   1.498E+1, 1.540E+1, 1.596E+1, 1.657E+1, 1.718E+1, 1.778E+1,    
     2   1.832E+1, 1.884E+1, 1.936E+1, 1.988E+1, 2.077E+1, 2.193E+1,    
     3   2.308E+1, 2.423E+1, 2.498E+1, 2.545E+1, 2.593E+1, 2.641E+1,    
     4   2.714E+1, 2.804E+1, 2.894E+1, 2.985E+1, 3.063E+1, 3.124E+1,    
     5   3.185E+1, 3.247E+1, 3.301E+1, 3.347E+1, 3.392E+1, 3.438E+1,    
     6   3.502E+1, 3.621E+1, 3.743E+1, 3.865E+1, 4.002E+1, 4.180E+1,    
     7   4.360E+1, 4.540E+1, 4.724E+1, 4.931E+1/                        
      DATA (SO2CRS(I),I= 4101, 4200)/                                   
     1   5.141E+1, 5.351E+1, 5.584E+1, 5.950E+1, 6.338E+1, 6.727E+1,    
     2   7.093E+1, 7.110E+1, 7.006E+1, 6.902E+1, 6.796E+1, 6.411E+1,    
     3   5.834E+1, 5.257E+1, 4.680E+1, 4.116E+1, 3.561E+1, 3.005E+1,    
     4   2.450E+1, 2.086E+1, 2.003E+1, 1.921E+1, 1.840E+1, 1.760E+1,    
     5   1.682E+1, 1.605E+1, 1.527E+1, 1.501E+1, 1.620E+1, 1.750E+1,    
     6   1.879E+1, 2.007E+1, 2.130E+1, 2.252E+1, 2.374E+1, 2.484E+1,    
     7   2.516E+1, 2.535E+1, 2.555E+1, 2.567E+1, 2.464E+1, 2.322E+1,    
     8   2.180E+1, 2.038E+1, 1.958E+1, 1.919E+1, 1.880E+1, 1.841E+1,    
     9   1.862E+1, 1.970E+1, 2.079E+1, 2.187E+1, 2.341E+1, 2.560E+1,    
     &   2.780E+1, 3.000E+1, 3.180E+1, 3.246E+1, 3.304E+1, 3.362E+1,    
     1   3.417E+1, 3.452E+1, 3.484E+1, 3.516E+1, 3.553E+1, 3.668E+1,    
     2   3.810E+1, 3.952E+1, 4.096E+1, 4.477E+1, 5.019E+1, 5.562E+1,    
     3   6.104E+1, 6.508E+1, 6.818E+1, 7.129E+1, 7.439E+1, 7.765E+1,    
     4   8.114E+1, 8.463E+1, 8.813E+1, 8.969E+1, 8.565E+1, 8.125E+1,    
     5   7.686E+1, 7.196E+1, 6.406E+1, 5.566E+1, 4.726E+1, 3.902E+1,    
     6   3.326E+1, 2.834E+1, 2.343E+1, 1.854E+1, 1.605E+1, 1.521E+1,    
     7   1.437E+1, 1.353E+1, 1.345E+1, 1.447E+1/                        
      DATA (SO2CRS(I),I= 4201, 4300)/                                   
     1   1.551E+1, 1.654E+1, 1.761E+1, 1.876E+1, 1.993E+1, 2.109E+1,    
     2   2.217E+1, 2.277E+1, 2.329E+1, 2.380E+1, 2.429E+1, 2.432E+1,    
     3   2.419E+1, 2.406E+1, 2.393E+1, 2.376E+1, 2.357E+1, 2.338E+1,    
     4   2.318E+1, 2.364E+1, 2.506E+1, 2.648E+1, 2.791E+1, 2.912E+1,    
     5   2.974E+1, 3.033E+1, 3.091E+1, 3.147E+1, 3.192E+1, 3.234E+1,    
     6   3.277E+1, 3.320E+1, 3.430E+1, 3.586E+1, 3.741E+1, 3.897E+1,    
     7   4.146E+1, 4.533E+1, 4.920E+1, 5.308E+1, 5.692E+1, 6.067E+1,    
     8   6.441E+1, 6.816E+1, 7.187E+1, 7.539E+1, 7.888E+1, 8.238E+1,    
     9   8.588E+1, 8.962E+1, 9.343E+1, 9.724E+1, 1.010E+2, 1.029E+2,    
     &   1.035E+2, 1.040E+2, 1.046E+2, 1.044E+2, 1.021E+2, 9.962E+1,    
     1   9.717E+1, 9.397E+1, 8.631E+1, 7.791E+1, 6.951E+1, 6.118E+1,    
     2   5.400E+1, 4.722E+1, 4.044E+1, 3.365E+1, 2.907E+1, 2.768E+1,    
     3   2.632E+1, 2.497E+1, 2.418E+1, 2.504E+1, 2.601E+1, 2.698E+1,    
     4   2.791E+1, 2.862E+1, 2.930E+1, 2.998E+1, 3.065E+1, 3.073E+1,    
     5   3.041E+1, 3.009E+1, 2.977E+1, 2.940E+1, 2.895E+1, 2.849E+1,    
     6   2.804E+1, 2.765E+1, 2.745E+1, 2.727E+1, 2.709E+1, 2.703E+1,    
     7   2.893E+1, 3.152E+1, 3.410E+1, 3.668E+1/                        
      DATA (SO2CRS(I),I= 4301, 4400)/                                   
     1   3.857E+1, 3.999E+1, 4.141E+1, 4.282E+1, 4.445E+1, 4.667E+1,    
     2   4.894E+1, 5.120E+1, 5.341E+1, 5.526E+1, 5.705E+1, 5.883E+1,    
     3   6.062E+1, 6.161E+1, 6.206E+1, 6.250E+1, 6.295E+1, 6.387E+1,    
     4   6.547E+1, 6.707E+1, 6.868E+1, 7.073E+1, 7.546E+1, 8.062E+1,    
     5   8.579E+1, 9.107E+1, 9.797E+1, 1.054E+2, 1.129E+2, 1.204E+2,    
     6   1.264E+2, 1.304E+2, 1.345E+2, 1.385E+2, 1.405E+2, 1.306E+2,    
     7   1.187E+2, 1.068E+2, 9.491E+1, 8.306E+1, 7.122E+1, 5.938E+1,    
     8   4.754E+1, 3.893E+1, 3.501E+1, 3.113E+1, 2.725E+1, 2.463E+1,    
     9   2.563E+1, 2.687E+1, 2.810E+1, 2.933E+1, 3.042E+1, 3.147E+1,    
     &   3.252E+1, 3.357E+1, 3.435E+1, 3.472E+1, 3.508E+1, 3.545E+1,    
     1   3.591E+1, 3.692E+1, 3.802E+1, 3.912E+1, 4.029E+1, 4.271E+1,    
     2   4.555E+1, 4.839E+1, 5.123E+1, 5.421E+1, 5.742E+1, 6.062E+1,    
     3   6.383E+1, 6.699E+1, 6.987E+1, 7.270E+1, 7.554E+1, 7.835E+1,    
     4   7.911E+1, 7.847E+1, 7.782E+1, 7.718E+1, 7.672E+1, 7.653E+1,    
     5   7.635E+1, 7.617E+1, 7.629E+1, 7.827E+1, 8.055E+1, 8.283E+1,    
     6   8.513E+1, 8.884E+1, 9.353E+1, 9.821E+1, 1.029E+2, 1.072E+2,    
     7   1.102E+2, 1.132E+2, 1.161E+2, 1.191E+2/                        
      DATA (SO2CRS(I),I= 4401, 4500)/                                   
     1   1.233E+2, 1.279E+2, 1.325E+2, 1.370E+2, 1.401E+2, 1.411E+2,    
     2   1.421E+2, 1.431E+2, 1.432E+2, 1.381E+2, 1.321E+2, 1.261E+2,    
     3   1.202E+2, 1.157E+2, 1.123E+2, 1.090E+2, 1.056E+2, 9.965E+1,    
     4   8.642E+1, 7.273E+1, 5.904E+1, 4.578E+1, 3.935E+1, 3.528E+1,    
     5   3.121E+1, 2.714E+1, 2.534E+1, 2.686E+1, 2.840E+1, 2.994E+1,    
     6   3.140E+1, 3.229E+1, 3.309E+1, 3.389E+1, 3.470E+1, 3.664E+1,    
     7   3.935E+1, 4.206E+1, 4.477E+1, 4.748E+1, 5.020E+1, 5.292E+1,    
     8   5.563E+1, 5.838E+1, 6.156E+1, 6.489E+1, 6.821E+1, 7.154E+1,    
     9   7.417E+1, 7.579E+1, 7.739E+1, 7.900E+1, 8.050E+1, 8.137E+1,    
     &   8.213E+1, 8.290E+1, 8.366E+1, 8.507E+1, 8.741E+1, 8.975E+1,    
     1   9.210E+1, 9.476E+1, 9.937E+1, 1.043E+2, 1.092E+2, 1.142E+2,    
     2   1.177E+2, 1.204E+2, 1.230E+2, 1.257E+2, 1.285E+2, 1.316E+2,    
     3   1.347E+2, 1.378E+2, 1.409E+2, 1.444E+2, 1.482E+2, 1.520E+2,    
     4   1.557E+2, 1.605E+2, 1.681E+2, 1.759E+2, 1.836E+2, 1.910E+2,    
     5   1.927E+2, 1.924E+2, 1.921E+2, 1.918E+2, 1.804E+2, 1.529E+2,    
     6   1.252E+2, 9.752E+1, 7.074E+1, 5.791E+1, 4.989E+1, 4.187E+1,    
     7   3.385E+1, 2.932E+1, 2.987E+1, 3.046E+1/                        
      DATA (SO2CRS(I),I= 4501, 4600)/                                   
     1   3.105E+1, 3.165E+1, 3.240E+1, 3.320E+1, 3.400E+1, 3.480E+1,    
     2   3.587E+1, 3.735E+1, 3.882E+1, 4.030E+1, 4.182E+1, 4.355E+1,    
     3   4.532E+1, 4.709E+1, 4.886E+1, 5.146E+1, 5.528E+1, 5.911E+1,    
     4   6.294E+1, 6.652E+1, 6.860E+1, 7.042E+1, 7.225E+1, 7.408E+1,    
     5   7.604E+1, 7.819E+1, 8.035E+1, 8.251E+1, 8.472E+1, 8.732E+1,    
     6   8.998E+1, 9.263E+1, 9.529E+1, 9.882E+1, 1.036E+2, 1.084E+2,    
     7   1.132E+2, 1.179E+2, 1.214E+2, 1.247E+2, 1.280E+2, 1.313E+2,    
     8   1.357E+2, 1.417E+2, 1.477E+2, 1.537E+2, 1.600E+2, 1.701E+2,    
     9   1.817E+2, 1.932E+2, 2.047E+2, 2.139E+2, 2.196E+2, 2.253E+2,    
     &   2.309E+2, 2.358E+2, 2.285E+2, 2.169E+2, 2.053E+2, 1.938E+2,    
     1   1.837E+2, 1.781E+2, 1.727E+2, 1.674E+2, 1.619E+2, 1.554E+2,    
     2   1.486E+2, 1.418E+2, 1.349E+2, 1.248E+2, 1.050E+2, 8.454E+1,    
     3   6.413E+1, 4.382E+1, 3.647E+1, 3.802E+1, 3.956E+1, 4.111E+1,    
     4   4.243E+1, 4.312E+1, 4.377E+1, 4.442E+1, 4.508E+1, 4.671E+1,    
     5   4.901E+1, 5.131E+1, 5.361E+1, 5.599E+1, 5.880E+1, 6.169E+1,    
     6   6.459E+1, 6.748E+1, 6.982E+1, 7.135E+1, 7.288E+1, 7.442E+1,    
     7   7.596E+1, 7.776E+1, 7.965E+1, 8.153E+1/                        
      DATA (SO2CRS(I),I= 4601, 4700)/                                   
     1   8.342E+1, 8.554E+1, 8.834E+1, 9.118E+1, 9.402E+1, 9.691E+1,    
     2   1.006E+2, 1.046E+2, 1.087E+2, 1.127E+2, 1.168E+2, 1.213E+2,    
     3   1.257E+2, 1.302E+2, 1.347E+2, 1.409E+2, 1.482E+2, 1.555E+2,    
     4   1.628E+2, 1.698E+2, 1.743E+2, 1.784E+2, 1.825E+2, 1.867E+2,    
     5   1.913E+2, 1.966E+2, 2.019E+2, 2.072E+2, 2.123E+2, 2.147E+2,    
     6   2.161E+2, 2.175E+2, 2.189E+2, 2.211E+2, 2.255E+2, 2.301E+2,    
     7   2.346E+2, 2.391E+2, 2.379E+2, 2.328E+2, 2.276E+2, 2.225E+2,    
     8   2.137E+2, 1.833E+2, 1.492E+2, 1.151E+2, 8.097E+1, 5.884E+1,    
     9   5.415E+1, 4.961E+1, 4.508E+1, 4.086E+1, 4.171E+1, 4.431E+1,    
     &   4.690E+1, 4.950E+1, 5.185E+1, 5.275E+1, 5.339E+1, 5.404E+1,    
     1   5.469E+1, 5.546E+1, 5.640E+1, 5.735E+1, 5.830E+1, 5.927E+1,    
     2   6.075E+1, 6.241E+1, 6.406E+1, 6.571E+1, 6.778E+1, 7.107E+1,    
     3   7.442E+1, 7.778E+1, 8.114E+1, 8.422E+1, 8.711E+1, 8.999E+1,    
     4   9.288E+1, 9.584E+1, 9.984E+1, 1.042E+2, 1.086E+2, 1.129E+2,    
     5   1.173E+2, 1.215E+2, 1.258E+2, 1.300E+2, 1.343E+2, 1.390E+2,    
     6   1.440E+2, 1.490E+2, 1.540E+2, 1.592E+2, 1.651E+2, 1.711E+2,    
     7   1.772E+2, 1.832E+2, 1.895E+2, 1.963E+2/                        
      DATA (SO2CRS(I),I= 4701, 4800)/                                   
     1   2.031E+2, 2.100E+2, 2.168E+2, 2.260E+2, 2.368E+2, 2.476E+2,    
     2   2.584E+2, 2.698E+2, 2.849E+2, 3.006E+2, 3.162E+2, 3.319E+2,    
     3   3.384E+2, 3.184E+2, 2.966E+2, 2.749E+2, 2.532E+2, 2.306E+2,    
     4   2.074E+2, 1.842E+2, 1.611E+2, 1.381E+2, 1.195E+2, 1.023E+2,    
     5   8.517E+1, 6.801E+1, 5.543E+1, 5.617E+1, 5.776E+1, 5.934E+1,    
     6   6.093E+1, 6.270E+1, 6.476E+1, 6.683E+1, 6.889E+1, 7.091E+1,    
     7   7.236E+1, 7.360E+1, 7.484E+1, 7.608E+1, 7.757E+1, 8.052E+1,    
     8   8.370E+1, 8.689E+1, 9.008E+1, 9.340E+1, 9.690E+1, 1.004E+2,    
     9   1.039E+2, 1.074E+2, 1.096E+2, 1.109E+2, 1.122E+2, 1.135E+2,    
     &   1.147E+2, 1.154E+2, 1.160E+2, 1.166E+2, 1.173E+2, 1.190E+2,    
     1   1.239E+2, 1.290E+2, 1.340E+2, 1.391E+2, 1.440E+2, 1.485E+2,    
     2   1.530E+2, 1.574E+2, 1.620E+2, 1.684E+2, 1.753E+2, 1.823E+2,    
     3   1.892E+2, 1.969E+2, 2.090E+2, 2.217E+2, 2.345E+2, 2.473E+2,    
     4   2.598E+2, 2.715E+2, 2.832E+2, 2.948E+2, 3.064E+2, 3.073E+2,    
     5   3.009E+2, 2.945E+2, 2.882E+2, 2.816E+2, 2.723E+2, 2.620E+2,    
     6   2.517E+2, 2.415E+2, 2.314E+2, 2.226E+2, 2.140E+2, 2.054E+2,    
     7   1.968E+2, 1.856E+2, 1.667E+2, 1.473E+2/                        
      DATA (SO2CRS(I),I= 4801, 4900)/                                   
     1   1.279E+2, 1.085E+2, 9.514E+1, 9.052E+1, 8.598E+1, 8.144E+1,    
     2   7.726E+1, 7.897E+1, 8.270E+1, 8.644E+1, 9.017E+1, 9.357E+1,    
     3   9.498E+1, 9.605E+1, 9.713E+1, 9.820E+1, 9.882E+1, 9.811E+1,    
     4   9.731E+1, 9.652E+1, 9.572E+1, 9.598E+1, 9.778E+1, 9.959E+1,    
     5   1.014E+2, 1.032E+2, 1.054E+2, 1.079E+2, 1.104E+2, 1.129E+2,    
     6   1.154E+2, 1.188E+2, 1.225E+2, 1.262E+2, 1.298E+2, 1.337E+2,    
     7   1.386E+2, 1.437E+2, 1.488E+2, 1.539E+2, 1.590E+2, 1.641E+2,    
     8   1.692E+2, 1.744E+2, 1.795E+2, 1.841E+2, 1.878E+2, 1.914E+2,    
     9   1.951E+2, 1.988E+2, 2.077E+2, 2.200E+2, 2.323E+2, 2.446E+2,    
     &   2.567E+2, 2.644E+2, 2.706E+2, 2.767E+2, 2.829E+2, 2.904E+2,    
     1   3.056E+2, 3.221E+2, 3.386E+2, 3.551E+2, 3.671E+2, 3.522E+2,    
     2   3.328E+2, 3.135E+2, 2.941E+2, 2.686E+2, 2.250E+2, 1.804E+2,    
     3   1.358E+2, 9.111E+1, 6.496E+1, 6.575E+1, 6.677E+1, 6.779E+1,    
     4   6.881E+1, 7.070E+1, 7.319E+1, 7.567E+1, 7.816E+1, 8.061E+1,    
     5   8.253E+1, 8.427E+1, 8.600E+1, 8.774E+1, 8.958E+1, 9.308E+1,    
     6   9.714E+1, 1.012E+2, 1.053E+2, 1.092E+2, 1.123E+2, 1.152E+2,    
     7   1.182E+2, 1.211E+2, 1.245E+2, 1.292E+2/                        
      DATA (SO2CRS(I),I= 4901, 5000)/                                   
     1   1.339E+2, 1.387E+2, 1.434E+2, 1.469E+2, 1.484E+2, 1.499E+2,    
     2   1.514E+2, 1.530E+2, 1.552E+2, 1.584E+2, 1.616E+2, 1.648E+2,    
     3   1.680E+2, 1.715E+2, 1.751E+2, 1.788E+2, 1.824E+2, 1.861E+2,    
     4   1.927E+2, 2.013E+2, 2.099E+2, 2.184E+2, 2.271E+2, 2.373E+2,    
     5   2.481E+2, 2.588E+2, 2.695E+2, 2.806E+2, 2.942E+2, 3.081E+2,    
     6   3.220E+2, 3.359E+2, 3.460E+2, 3.331E+2, 3.165E+2, 2.998E+2,    
     7   2.831E+2, 2.670E+2, 2.525E+2, 2.381E+2, 2.237E+2, 2.093E+2,    
     8   1.990E+2, 2.002E+2, 2.023E+2, 2.043E+2, 2.063E+2, 2.049E+2,    
     9   1.938E+2, 1.821E+2, 1.704E+2, 1.587E+2, 1.474E+2, 1.365E+2,    
     &   1.256E+2, 1.148E+2, 1.039E+2, 9.816E+1, 9.980E+1, 1.015E+2,    
     1   1.032E+2, 1.049E+2, 1.075E+2, 1.108E+2, 1.140E+2, 1.173E+2,    
     2   1.205E+2, 1.224E+2, 1.234E+2, 1.244E+2, 1.254E+2, 1.263E+2,    
     3   1.273E+2, 1.283E+2, 1.292E+2, 1.302E+2, 1.312E+2, 1.333E+2,    
     4   1.357E+2, 1.382E+2, 1.406E+2, 1.431E+2, 1.466E+2, 1.505E+2,    
     5   1.543E+2, 1.582E+2, 1.622E+2, 1.694E+2, 1.776E+2, 1.858E+2,    
     6   1.940E+2, 2.019E+2, 2.061E+2, 2.091E+2, 2.120E+2, 2.150E+2,    
     7   2.179E+2, 2.209E+2, 2.240E+2, 2.270E+2/                        
      DATA (SO2CRS(I),I= 5001, 5100)/                                   
     1   2.301E+2, 2.334E+2, 2.385E+2, 2.440E+2, 2.494E+2, 2.548E+2,    
     2   2.602E+2, 2.651E+2, 2.700E+2, 2.748E+2, 2.797E+2, 2.856E+2,    
     3   2.975E+2, 3.105E+2, 3.235E+2, 3.365E+2, 3.453E+2, 3.289E+2,    
     4   3.082E+2, 2.875E+2, 2.668E+2, 2.446E+2, 2.131E+2, 1.801E+2,    
     5   1.471E+2, 1.141E+2, 8.541E+1, 8.228E+1, 8.342E+1, 8.456E+1,    
     6   8.570E+1, 8.688E+1, 8.830E+1, 8.977E+1, 9.124E+1, 9.271E+1,    
     7   9.422E+1, 9.602E+1, 9.786E+1, 9.970E+1, 1.015E+2, 1.034E+2,    
     8   1.052E+2, 1.071E+2, 1.089E+2, 1.108E+2, 1.128E+2, 1.162E+2,    
     9   1.197E+2, 1.232E+2, 1.267E+2, 1.305E+2, 1.357E+2, 1.411E+2,    
     &   1.465E+2, 1.520E+2, 1.567E+2, 1.570E+2, 1.565E+2, 1.561E+2,    
     1   1.557E+2, 1.551E+2, 1.542E+2, 1.533E+2, 1.523E+2, 1.513E+2,    
     2   1.510E+2, 1.543E+2, 1.584E+2, 1.624E+2, 1.664E+2, 1.706E+2,    
     3   1.761E+2, 1.818E+2, 1.875E+2, 1.932E+2, 1.992E+2, 2.073E+2,    
     4   2.157E+2, 2.241E+2, 2.325E+2, 2.410E+2, 2.511E+2, 2.617E+2,    
     5   2.722E+2, 2.828E+2, 2.936E+2, 3.067E+2, 3.206E+2, 3.345E+2,    
     6   3.484E+2, 3.610E+2, 3.515E+2, 3.345E+2, 3.174E+2, 3.004E+2,    
     7   2.834E+2, 2.668E+2, 2.503E+2, 2.338E+2/                        
      DATA (SO2CRS(I),I= 5101, 5200)/                                   
     1   2.174E+2, 2.010E+2, 1.915E+2, 1.868E+2, 1.820E+2, 1.773E+2,    
     2   1.725E+2, 1.614E+2, 1.459E+2, 1.305E+2, 1.150E+2, 9.961E+1,    
     3   9.359E+1, 9.401E+1, 9.443E+1, 9.485E+1, 9.526E+1, 9.670E+1,    
     4   9.962E+1, 1.026E+2, 1.055E+2, 1.084E+2, 1.108E+2, 1.123E+2,    
     5   1.138E+2, 1.153E+2, 1.168E+2, 1.183E+2, 1.196E+2, 1.208E+2,    
     6   1.220E+2, 1.233E+2, 1.247E+2, 1.265E+2, 1.284E+2, 1.303E+2,    
     7   1.322E+2, 1.347E+2, 1.412E+2, 1.484E+2, 1.555E+2, 1.627E+2,    
     8   1.700E+2, 1.778E+2, 1.857E+2, 1.937E+2, 2.016E+2, 2.094E+2,    
     9   2.141E+2, 2.178E+2, 2.215E+2, 2.252E+2, 2.291E+2, 2.365E+2,    
     &   2.451E+2, 2.537E+2, 2.623E+2, 2.709E+2, 2.772E+2, 2.819E+2,    
     1   2.866E+2, 2.913E+2, 2.961E+2, 2.984E+2, 2.990E+2, 2.997E+2,    
     2   3.004E+2, 3.011E+2, 3.005E+2, 2.982E+2, 2.959E+2, 2.936E+2,    
     3   2.912E+2, 2.868E+2, 2.762E+2, 2.652E+2, 2.542E+2, 2.432E+2,    
     4   2.335E+2, 2.274E+2, 2.215E+2, 2.156E+2, 2.097E+2, 2.023E+2,    
     5   1.858E+2, 1.678E+2, 1.498E+2, 1.318E+2, 1.147E+2, 1.123E+2,    
     6   1.150E+2, 1.176E+2, 1.203E+2, 1.230E+2, 1.251E+2, 1.268E+2,    
     7   1.285E+2, 1.302E+2, 1.319E+2, 1.340E+2/                        
      DATA (SO2CRS(I),I= 5201, 5300)/                                   
     1   1.364E+2, 1.388E+2, 1.413E+2, 1.437E+2, 1.472E+2, 1.523E+2,    
     2   1.573E+2, 1.624E+2, 1.675E+2, 1.711E+2, 1.707E+2, 1.700E+2,    
     3   1.693E+2, 1.687E+2, 1.681E+2, 1.683E+2, 1.686E+2, 1.689E+2,    
     4   1.692E+2, 1.697E+2, 1.716E+2, 1.741E+2, 1.766E+2, 1.791E+2,    
     5   1.816E+2, 1.843E+2, 1.872E+2, 1.901E+2, 1.930E+2, 1.958E+2,    
     6   2.003E+2, 2.069E+2, 2.136E+2, 2.203E+2, 2.270E+2, 2.341E+2,    
     7   2.428E+2, 2.516E+2, 2.603E+2, 2.691E+2, 2.777E+2, 2.859E+2,    
     8   2.939E+2, 3.020E+2, 3.101E+2, 3.181E+2, 3.260E+2, 3.338E+2,    
     9   3.416E+2, 3.494E+2, 3.570E+2, 3.486E+2, 3.291E+2, 3.096E+2,    
     &   2.901E+2, 2.706E+2, 2.536E+2, 2.402E+2, 2.268E+2, 2.135E+2,    
     1   2.001E+2, 1.866E+2, 1.725E+2, 1.584E+2, 1.443E+2, 1.302E+2,    
     2   1.184E+2, 1.197E+2, 1.233E+2, 1.269E+2, 1.304E+2, 1.340E+2,    
     3   1.356E+2, 1.358E+2, 1.361E+2, 1.363E+2, 1.366E+2, 1.377E+2,    
     4   1.399E+2, 1.422E+2, 1.444E+2, 1.466E+2, 1.487E+2, 1.503E+2,    
     5   1.519E+2, 1.535E+2, 1.550E+2, 1.565E+2, 1.571E+2, 1.577E+2,    
     6   1.582E+2, 1.588E+2, 1.594E+2, 1.606E+2, 1.622E+2, 1.639E+2,    
     7   1.656E+2, 1.672E+2, 1.704E+2, 1.756E+2/                        
      DATA (SO2CRS(I),I= 5301, 5400)/                                   
     1   1.808E+2, 1.860E+2, 1.912E+2, 1.964E+2, 2.013E+2, 2.062E+2,    
     2   2.111E+2, 2.161E+2, 2.211E+2, 2.271E+2, 2.334E+2, 2.398E+2,    
     3   2.462E+2, 2.525E+2, 2.602E+2, 2.688E+2, 2.773E+2, 2.859E+2,    
     4   2.944E+2, 2.953E+2, 2.850E+2, 2.746E+2, 2.642E+2, 2.538E+2,    
     5   2.432E+2, 2.314E+2, 2.193E+2, 2.073E+2, 1.952E+2, 1.839E+2,    
     6   1.848E+2, 1.900E+2, 1.951E+2, 2.002E+2, 2.053E+2, 2.090E+2,    
     7   2.107E+2, 2.123E+2, 2.139E+2, 2.155E+2, 2.146E+2, 2.064E+2,    
     8   1.977E+2, 1.890E+2, 1.803E+2, 1.719E+2, 1.679E+2, 1.654E+2,    
     9   1.629E+2, 1.604E+2, 1.579E+2, 1.559E+2, 1.542E+2, 1.525E+2,    
     &   1.509E+2, 1.492E+2, 1.486E+2, 1.512E+2, 1.539E+2, 1.566E+2,    
     1   1.593E+2, 1.618E+2, 1.615E+2, 1.602E+2, 1.589E+2, 1.576E+2,    
     2   1.563E+2, 1.555E+2, 1.551E+2, 1.547E+2, 1.543E+2, 1.539E+2,    
     3   1.537E+2, 1.540E+2, 1.543E+2, 1.546E+2, 1.549E+2, 1.554E+2,    
     4   1.596E+2, 1.650E+2, 1.704E+2, 1.758E+2, 1.813E+2, 1.863E+2,    
     5   1.908E+2, 1.953E+2, 1.998E+2, 2.043E+2, 2.083E+2, 2.109E+2,    
     6   2.134E+2, 2.159E+2, 2.184E+2, 2.211E+2, 2.269E+2, 2.337E+2,    
     7   2.406E+2, 2.474E+2, 2.542E+2, 2.599E+2/                        
      DATA (SO2CRS(I),I= 5401, 5500)/                                   
     1   2.639E+2, 2.679E+2, 2.720E+2, 2.760E+2, 2.778E+2, 2.667E+2,    
     2   2.535E+2, 2.402E+2, 2.270E+2, 2.137E+2, 1.999E+2, 1.857E+2,    
     3   1.714E+2, 1.572E+2, 1.430E+2, 1.326E+2, 1.334E+2, 1.349E+2,    
     4   1.365E+2, 1.380E+2, 1.395E+2, 1.421E+2, 1.449E+2, 1.478E+2,    
     5   1.506E+2, 1.535E+2, 1.563E+2, 1.590E+2, 1.617E+2, 1.645E+2,    
     6   1.672E+2, 1.690E+2, 1.655E+2, 1.610E+2, 1.566E+2, 1.522E+2,    
     7   1.478E+2, 1.427E+2, 1.373E+2, 1.319E+2, 1.265E+2, 1.210E+2,    
     8   1.182E+2, 1.229E+2, 1.281E+2, 1.332E+2, 1.384E+2, 1.436E+2,    
     9   1.493E+2, 1.550E+2, 1.608E+2, 1.666E+2, 1.724E+2, 1.783E+2,    
     &   1.843E+2, 1.903E+2, 1.964E+2, 2.024E+2, 2.082E+2, 2.130E+2,    
     1   2.177E+2, 2.223E+2, 2.269E+2, 2.315E+2, 2.301E+2, 2.245E+2,    
     2   2.190E+2, 2.135E+2, 2.079E+2, 2.022E+2, 1.959E+2, 1.895E+2,    
     3   1.831E+2, 1.767E+2, 1.703E+2, 1.667E+2, 1.651E+2, 1.635E+2,    
     4   1.619E+2, 1.603E+2, 1.603E+2, 1.651E+2, 1.701E+2, 1.751E+2,    
     5   1.801E+2, 1.852E+2, 1.905E+2, 1.959E+2, 2.014E+2, 2.068E+2,    
     6   2.122E+2, 2.124E+2, 2.051E+2, 1.977E+2, 1.903E+2, 1.828E+2,    
     7   1.756E+2, 1.711E+2, 1.675E+2, 1.640E+2/                        
      DATA (SO2CRS(I),I= 5501, 5562)/                                   
     1   1.604E+2, 1.568E+2, 1.522E+2, 1.461E+2, 1.400E+2, 1.339E+2,    
     2   1.278E+2, 1.222E+2, 1.237E+2, 1.278E+2, 1.319E+2, 1.360E+2,    
     3   1.400E+2, 1.437E+2, 1.469E+2, 1.501E+2, 1.532E+2, 1.564E+2,    
     4   1.584E+2, 1.532E+2, 1.468E+2, 1.404E+2, 1.340E+2, 1.276E+2,    
     5   1.255E+2, 1.297E+2, 1.339E+2, 1.381E+2, 1.423E+2, 1.466E+2,    
     6   1.515E+2, 1.564E+2, 1.614E+2, 1.663E+2, 1.712E+2, 1.759E+2,    
     7   1.803E+2, 1.846E+2, 1.889E+2, 1.932E+2, 1.974E+2, 1.993E+2,    
     8   2.005E+2, 2.018E+2, 2.030E+2, 2.042E+2, 2.065E+2, 2.103E+2,    
     9   2.142E+2, 2.181E+2, 2.220E+2, 2.255E+2, 2.246E+2, 2.222E+2,    
     &   2.197E+2, 2.172E+2, 2.148E+2, 2.097E+2, 2.007E+2, 1.917E+2,    
     1   1.827E+2, 1.736E+2/                                            
      IF (V .LT. VBEG .OR. V .GT. VEND) THEN                            
         CROSS = 0.0                                                    
      ELSE IF (V .EQ. VEND) THEN                                        
C        THIS CHECK PREVENTS N FROM EXCEEDING NMAX IN THE ALGORITHM BELO
         CROSS = SO2CRS(NMAX)                                           
      ELSE                                                              
         XI = (V-VBEG)/VINCR+1.                                         
         N = XI+1.+1.E-6                                                
         XD = XI-FLOAT(N)                                               
         CROSS = SO2CRS(N)+XD*(SO2CRS(N)-SO2CRS(N-1))                   
      ENDIF                                                             
      CROSS = CROSS * ROSO2 / 2.6868E+19
      RETURN                                                            
      END                                                               



      SUBROUTINE CONT_N2(V,PR,TP,RON2,DZ,ROH2O,C4L)

C     ********    NITROGEN COLLISION INDUCED FUNDAMENTAL ********
C
      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      COMMON /C4C8/ C4(157)                                             
      DATA PREF,TREF,XLOSMT /1013.25,296.0, 2.6868E+19/
C **  N2 CONTINUUM                                                      
      C4L=0.                                                            
      IF(V.LT.2020.) RETURN                                             
      IF(V.GT.2800.) RETURN                                             
      IV=V                                                              
      L=(IV-2020)/5+1                                                   
      WTOT=XLOSMT*273.15/TP*PR/PREF*DZ*1.0E+05
      RON2=RON2*WTOT/(1+ROH2O)
      C4L=C4(L)*(PR/PREF*TREF/TP)*RON2*1.0E-05*V                        
      RETURN                                                            
      END                                                               

      BLOCK DATA BN2                                                    
C                                                                       
      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)
C                                                                       
C               UNITS OF (CM**2/MOL)*(1/CM-1)*(CM/KM)                   
C                                                                       
      COMMON /C4C8/  C4(157)                                            
C                                                                       
C     DATA V1N2,V2N2,DVN2,NPTN2 / 2020., 2800., 5.0, 157 /              
C                                                                       
      DATA C4    /                                                      
     + 0.       , 2.859E-30, 5.718E-30, 1.144E-29, 2.288E-29, 4.573E-29,
     + 9.011E-29, 1.803E-28, 3.605E-28, 7.210E-28, 1.442E-27, 2.884E-27,
     A 5.683E-27, 7.491E-27, 9.876E-27, 1.273E-26, 1.717E-26, 2.057E-26,
     B 2.506E-26, 3.309E-26, 4.342E-26, 5.223E-26, 6.427E-26, 7.555E-26,
     C 1.030E-25, 1.356E-25, 1.697E-25, 2.131E-25, 2.565E-25, 3.131E-25,
     D 3.645E-25, 4.017E-25, 4.389E-25, 4.890E-25, 5.392E-25, 5.857E-25,
     E 6.237E-25, 6.714E-25, 7.191E-25, 7.814E-25, 8.437E-25, 9.082E-25,
     F 9.592E-25, 1.022E-24, 1.086E-24, 1.140E-24, 1.194E-24, 1.247E-24,
     G 1.282E-24, 1.320E-24, 1.357E-24, 1.400E-24, 1.443E-24, 1.498E-24,
     H 1.533E-24, 1.609E-24, 1.685E-24, 1.903E-24, 2.115E-24, 2.397E-24,
     I 2.644E-24, 2.783E-24, 2.940E-24, 2.783E-24, 2.627E-24, 2.383E-24,
     J 2.112E-24, 2.043E-24, 1.992E-24, 1.957E-24, 1.923E-24, 1.923E-24,
     K 1.882E-24, 1.882E-24, 1.899E-24, 1.933E-24, 1.916E-24, 1.899E-24,
     L 1.825E-24, 1.792E-24, 1.708E-24, 1.658E-24, 1.591E-24, 1.507E-24,
     M 1.431E-24, 1.356E-24, 1.265E-24, 1.166E-24, 1.075E-24, 1.009E-24,
     N 8.988E-25, 8.089E-25, 7.352E-25, 6.534E-25, 6.126E-25, 5.717E-25,
     O 5.004E-25, 4.276E-25, 4.036E-25, 3.551E-25, 3.148E-25, 2.825E-25,
     P 2.552E-25, 2.233E-25, 1.914E-25, 1.675E-25, 1.515E-25, 1.436E-25,
     Q 1.261E-25, 1.104E-25, 1.025E-25, 9.457E-26, 8.672E-26, 7.488E-26,
     R 6.232E-26, 5.842E-26, 5.452E-26, 4.676E-26, 3.896E-26, 3.506E-26,
     S 3.081E-26, 2.850E-26, 2.618E-26, 2.465E-26, 2.310E-26, 2.310E-26,
     T 2.345E-26, 2.284E-26, 2.239E-26, 2.041E-26, 1.903E-26, 1.614E-26,
     U 1.364E-26, 1.134E-26, 9.653E-27, 7.664E-27, 6.082E-27, 5.060E-27,
     V 4.258E-27, 3.455E-27, 2.889E-27, 2.338E-27, 1.951E-27, 1.519E-27,
     W 1.189E-27,                                                       
     + 5.877E-28, 2.940E-28, 1.470E-28, 7.289E-29, 3.675E-29, 1.837E-29,
     + 9.086E-30, 4.543E-30, 2.271E-30, 1.136E-30, 5.679E-31, 0.       /
C                                                                       
      END                                                               
C
C
      SUBROUTINE CONT_O2(V,PR,TP,ROO2,DZ,ROH2O,TAUO2)

      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      COMMON/O2C/ O2DRAY(74),O2C001(74),O2S0(74),O2A(74),O2B(74),       
     *            V1O2,V2O2,DVO2,NPTO2                                  
      DATA XLOSMT / 2.68675E+19 /, RO2 / 0.20946 /
      DATA PREF,TREF /1013.25,296.0/

      TAUO2=0.
      IF(V.LT.1395.OR.V.GT.1760)GOTO 1
      WTOT=XLOSMT*273.15/TP*PR/PREF*DZ*1.0E+05
      ROO2=ROO2*WTOT/(1+ROH2O)
      TD = TP-220.00
      I=(V-1395.)/5+1
      TAUO2 = O2S0(I)*EXP(O2A(I)*TD+O2B(I)*TD*TD)/(RO2*V)
      WO2 = (PR/PREF)*ROO2/XLOSMT
      TAUO2 = TAUO2*WO2*0.78*V

 1    RETURN
      END


      BLOCK DATA BO2C                                                   
C             
      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)
                                                          
      COMMON/O2C/ O2DRAY(74),O2C001(74),O2S0(74),O2A(74),O2B(74),       
     *            V1O2,V2O2,DVO2,NPTO2                                  
C                                                                       
      DATA V1O2,V2O2,DVO2,NPTO2 /1395.0,1760.0,5.0,74/                  
C                                                                       
      DATA O2S0/                                                        
     A 0.      ,                                                        
     *  .110E-8, .220E-8, .440E-8, .881E-8, .176E-7, .353E-7, .705E-7,  
     B .141E-06, .158E-06, .174E-06, .190E-06, .207E-06, .253E-06,      
     B .307E-06, .357E-06, .401E-06, .445E-06, .508E-06, .570E-06,      
     B .599E-06, .627E-06, .650E-06, .672E-06, .763E-06, .873E-06,      
     B .101E-05, .109E-05, .121E-05, .133E-05, .139E-05, .145E-05,      
     B .148E-05, .140E-05, .134E-05, .126E-05, .118E-05, .114E-05,      
     B .109E-05, .105E-05, .105E-05, .105E-05, .104E-05, .103E-05,      
     B .992E-06, .945E-06, .876E-06, .806E-06, .766E-06, .726E-06,      
     B .640E-06, .555E-06, .469E-06, .416E-06, .364E-06, .311E-06,      
     B .266E-06, .222E-06, .177E-06, .170E-06, .162E-06, .155E-06,      
     B .143E-06, .130E-06, .118E-06, .905E-07, .629E-07,                
     * .316E-7, .157E-7, .786E-8, .393E-8, .196E-8, .982E-9,            
     * 0./                                                              
      DATA O2A /                                                        
     A 0.       ,                                                       
     *   .147E-3, .147E-3, .147E-3,  .147E-3, .147E-3, .147E-3, .147E-3,
     B  .147E-03,  .122E-02,  .204E-02,  .217E-02,  .226E-02,  .126E-02,
     B  .362E-03, -.198E-02, -.545E-02, -.786E-02, -.624E-02, -.475E-02,
     B -.506E-02, -.533E-02, -.586E-02, -.635E-02, -.644E-02, -.679E-02,
     B -.741E-02, -.769E-02, -.780E-02, -.788E-02, -.844E-02, -.894E-02,
     B -.899E-02, -.922E-02, -.892E-02, -.857E-02, -.839E-02, -.854E-02,
     B -.871E-02, -.889E-02, -.856E-02, -.823E-02, -.796E-02, -.768E-02,
     B -.715E-02, -.638E-02, -.570E-02, -.491E-02, -.468E-02, -.443E-02,
     B -.333E-02, -.184E-02,  .313E-03, -.164E-04, -.417E-03, -.916E-03,
     B -.206E-02, -.343E-02, -.515E-02, -.365E-02, -.172E-02,  .926E-03,
     B  .168E-02,  .262E-02,  .380E-02,  .551E-02,  .889E-02,           
     * .889E-2,  .889E-2, .889E-2, .889E-2, .889E-2, .889E-2,           
     *  0./                                                             
      DATA O2B  /                                                       
     A 0.       ,                                                       
     * .306E-4,-.306E-4,-.306E-4,-.306E-4,-.306E-4,-.306E-4,-.306E-4,   
     B -.306E-04, -.218E-04, -.159E-04, -.346E-05,  .642E-05,  .360E-05,
     B -.140E-05,  .157E-04,  .471E-04,  .656E-04,  .303E-04, -.192E-05,
     B  .705E-05,  .149E-04,  .200E-04,  .245E-04,  .158E-04,  .841E-05,
     B  .201E-05,  .555E-05,  .108E-04,  .150E-04,  .193E-04,  .230E-04,
     B  .243E-04,  .226E-04,  .184E-04,  .157E-04,  .169E-04,  .197E-04,
     B  .226E-04,  .258E-04,  .235E-04,  .212E-04,  .185E-04,  .156E-04,
     B  .125E-04,  .872E-05,  .760E-05,  .577E-05,  .334E-07, -.652E-05,
     B -.977E-05, -.157E-04, -.273E-04, -.180E-04, -.641E-05,  .817E-05,
     B  .326E-04,  .626E-04,  .101E-03,  .755E-04,  .430E-04, -.113E-05,
     B -.578E-05, -.120E-04, -.208E-04, -.235E-04, -.364E-04,           
     * .364E-4, -.364E-4,-.364E-4,-.364E-4,-.364E-4,-.364E-4,           
     * 0./                                                              
C                                                                       
      END                                                               
C


      BLOCK DATA BS296                                                    F02510
C                                                                         F02520
      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)
C                                                                         F02540
C               06/28/82                                                  F02550
C               UNITS OF (CM**3/MOL) * 1.E-20                             F02560
C                                                                         F02570
      COMMON /SH2O/ V1,V2,DV,NPT,                                         F02580
     *              S0000( 2),S0001(50),S0051(50),S0101(50),S0151(50),    F02590
     *              S0201(50),S0251(50),S0301(50),S0351(50),S0401(50),    F02600
     *              S0451(50),S0501(50),S0551(50),S0601(50),S0651(50),    F02610
     *              S0701(50),S0751(50),S0801(50),S0851(50),S0901(50),    F02620
     *              S0951(50),S1001(50),S1051(50),S1101(50),S1151(50),    F02630
     *              S1201(50),S1251(50),S1301(50),S1351(50),S1401(50),    F02640
     *              S1451(50),S1501(50),S1551(50),S1601(50),S1651(50),    F02650
     *              S1701(50),S1751(50),S1801(50),S1851(50),S1901(50),    F02660
     *              S1951(50),S2001(1)                                    F02670
C                                                                         F02680
       DATA V1,V2,DV,NPT /  -20.0, 20000.0, 10.0, 2003/                   F02690
C                                                                         F02700
      DATA S0000/                                                         F02710
     *     1.1109E-01 ,1.0573E-01/                                        F02720
      DATA S0001/                                                         F02730
     *     1.0162E-01, 1.0573E-01, 1.1109E-01, 1.2574E-01, 1.3499E-01,    F02740
     *     1.4327E-01, 1.5065E-01, 1.5164E-01, 1.5022E-01, 1.3677E-01,    F02750
     *     1.3115E-01, 1.2253E-01, 1.1271E-01, 1.0070E-01, 8.7495E-02,    F02760
     *     8.0118E-02, 6.9940E-02, 6.2034E-02, 5.6051E-02, 4.7663E-02,    F02770
     *     4.2450E-02, 3.6690E-02, 3.3441E-02, 3.0711E-02, 2.5205E-02,    F02780
     *     2.2113E-02, 1.8880E-02, 1.6653E-02, 1.4626E-02, 1.2065E-02,    F02790
     *     1.0709E-02, 9.1783E-03, 7.7274E-03, 6.7302E-03, 5.6164E-03,    F02800
     *     4.9089E-03, 4.1497E-03, 3.5823E-03, 3.1124E-03, 2.6414E-03,    F02810
     *     2.3167E-03, 2.0156E-03, 1.7829E-03, 1.5666E-03, 1.3928E-03,    F02820
     *     1.2338E-03, 1.0932E-03, 9.7939E-04, 8.8241E-04, 7.9173E-04/    F02830
      DATA S0051/                                                         F02840
     *     7.1296E-04, 6.4179E-04, 5.8031E-04, 5.2647E-04, 4.7762E-04,    F02850
     *     4.3349E-04, 3.9355E-04, 3.5887E-04, 3.2723E-04, 2.9919E-04,    F02860
     *     2.7363E-04, 2.5013E-04, 2.2876E-04, 2.0924E-04, 1.9193E-04,    F02870
     *     1.7618E-04, 1.6188E-04, 1.4891E-04, 1.3717E-04, 1.2647E-04,    F02880
     *     1.1671E-04, 1.0786E-04, 9.9785E-05, 9.2350E-05, 8.5539E-05,    F02890
     *     7.9377E-05, 7.3781E-05, 6.8677E-05, 6.3993E-05, 5.9705E-05,    F02900
     *     5.5788E-05, 5.2196E-05, 4.8899E-05, 4.5865E-05, 4.3079E-05,    F02910
     *     4.0526E-05, 3.8182E-05, 3.6025E-05, 3.4038E-05, 3.2203E-05,    F02920
     *     3.0511E-05, 2.8949E-05, 2.7505E-05, 2.6170E-05, 2.4933E-05,    F02930
     *     2.3786E-05, 2.2722E-05, 2.1736E-05, 2.0819E-05, 1.9968E-05/    F02940
      DATA S0101/                                                         F02950
     *     1.9178E-05, 1.8442E-05, 1.7760E-05, 1.7127E-05, 1.6541E-05,    F02960
     *     1.5997E-05, 1.5495E-05, 1.5034E-05, 1.4614E-05, 1.4230E-05,    F02970
     *     1.3883E-05, 1.3578E-05, 1.3304E-05, 1.3069E-05, 1.2876E-05,    F02980
     *     1.2732E-05, 1.2626E-05, 1.2556E-05, 1.2544E-05, 1.2604E-05,    F02990
     *     1.2719E-05, 1.2883E-05, 1.3164E-05, 1.3581E-05, 1.4187E-05,    F03000
     *     1.4866E-05, 1.5669E-05, 1.6717E-05, 1.8148E-05, 2.0268E-05,    F03010
     *     2.2456E-05, 2.5582E-05, 2.9183E-05, 3.3612E-05, 3.9996E-05,    F03020
     *     4.6829E-05, 5.5055E-05, 6.5897E-05, 7.5360E-05, 8.7213E-05,    F03030
     *     1.0046E-04, 1.1496E-04, 1.2943E-04, 1.5049E-04, 1.6973E-04,    F03040
     *     1.8711E-04, 2.0286E-04, 2.2823E-04, 2.6780E-04, 2.8766E-04/    F03050
      DATA S0151/                                                         F03060
     *     3.1164E-04, 3.3640E-04, 3.6884E-04, 3.9159E-04, 3.8712E-04,    F03070
     *     3.7433E-04, 3.4503E-04, 3.1003E-04, 2.8027E-04, 2.5253E-04,    F03080
     *     2.3408E-04, 2.2836E-04, 2.4442E-04, 2.7521E-04, 2.9048E-04,    F03090
     *     3.0489E-04, 3.2646E-04, 3.3880E-04, 3.3492E-04, 3.0987E-04,    F03100
     *     2.9482E-04, 2.8711E-04, 2.6068E-04, 2.2683E-04, 1.9996E-04,    F03110
     *     1.7788E-04, 1.6101E-04, 1.3911E-04, 1.2013E-04, 1.0544E-04,    F03120
     *     9.4224E-05, 8.1256E-05, 7.3667E-05, 6.2233E-05, 5.5906E-05,    F03130
     *     5.1619E-05, 4.5140E-05, 4.0273E-05, 3.3268E-05, 3.0258E-05,    F03140
     *     2.6440E-05, 2.3103E-05, 2.0749E-05, 1.8258E-05, 1.6459E-05,    F03150
     *     1.4097E-05, 1.2052E-05, 1.0759E-05, 9.1400E-06, 8.1432E-06/    F03160
      DATA S0201/                                                         F03170
     *     7.1460E-06, 6.4006E-06, 5.6995E-06, 4.9372E-06, 4.4455E-06,    F03180
     *     3.9033E-06, 3.4740E-06, 3.1269E-06, 2.8059E-06, 2.5558E-06,    F03190
     *     2.2919E-06, 2.0846E-06, 1.8983E-06, 1.7329E-06, 1.5929E-06,    F03200
     *     1.4631E-06, 1.3513E-06, 1.2461E-06, 1.1519E-06, 1.0682E-06,    F03210
     *     9.9256E-07, 9.2505E-07, 8.6367E-07, 8.0857E-07, 7.5674E-07,    F03220
     *     7.0934E-07, 6.6580E-07, 6.2580E-07, 5.8853E-07, 5.5333E-07,    F03230
     *     5.2143E-07, 4.9169E-07, 4.6431E-07, 4.3898E-07, 4.1564E-07,    F03240
     *     3.9405E-07, 3.7403E-07, 3.5544E-07, 3.3819E-07, 3.2212E-07,    F03250
     *     3.0714E-07, 2.9313E-07, 2.8003E-07, 2.6777E-07, 2.5628E-07,    F03260
     *     2.4551E-07, 2.3540E-07, 2.2591E-07, 2.1701E-07, 2.0866E-07/    F03270
      DATA S0251/                                                         F03280
     *     2.0082E-07, 1.9349E-07, 1.8665E-07, 1.8027E-07, 1.7439E-07,    F03290
     *     1.6894E-07, 1.6400E-07, 1.5953E-07, 1.5557E-07, 1.5195E-07,    F03300
     *     1.4888E-07, 1.4603E-07, 1.4337E-07, 1.4093E-07, 1.3828E-07,    F03310
     *     1.3569E-07, 1.3270E-07, 1.2984E-07, 1.2714E-07, 1.2541E-07,    F03320
     *     1.2399E-07, 1.2102E-07, 1.1878E-07, 1.1728E-07, 1.1644E-07,    F03330
     *     1.1491E-07, 1.1305E-07, 1.1235E-07, 1.1228E-07, 1.1224E-07,    F03340
     *     1.1191E-07, 1.1151E-07, 1.1098E-07, 1.1068E-07, 1.1109E-07,    F03350
     *     1.1213E-07, 1.1431E-07, 1.1826E-07, 1.2322E-07, 1.3025E-07,    F03360
     *     1.4066E-07, 1.5657E-07, 1.7214E-07, 1.9449E-07, 2.2662E-07,    F03370
     *     2.6953E-07, 3.1723E-07, 3.7028E-07, 4.4482E-07, 5.3852E-07/    F03380
      DATA S0301/                                                         F03390
     *     6.2639E-07, 7.2175E-07, 7.7626E-07, 8.7248E-07, 9.6759E-07,    F03400
     *     1.0102E-06, 1.0620E-06, 1.1201E-06, 1.2107E-06, 1.2998E-06,    F03410
     *     1.3130E-06, 1.2856E-06, 1.2350E-06, 1.1489E-06, 1.0819E-06,    F03420
     *     1.0120E-06, 9.4795E-07, 9.2858E-07, 9.8060E-07, 1.0999E-06,    F03430
     *     1.1967E-06, 1.2672E-06, 1.3418E-06, 1.3864E-06, 1.4330E-06,    F03440
     *     1.4592E-06, 1.4598E-06, 1.4774E-06, 1.4726E-06, 1.4820E-06,    F03450
     *     1.5050E-06, 1.4984E-06, 1.5181E-06, 1.5888E-06, 1.6850E-06,    F03460
     *     1.7690E-06, 1.9277E-06, 2.1107E-06, 2.3068E-06, 2.5347E-06,    F03470
     *     2.8069E-06, 3.1345E-06, 3.5822E-06, 3.9051E-06, 4.3422E-06,    F03480
     *     4.8704E-06, 5.5351E-06, 6.3454E-06, 7.2690E-06, 8.2974E-06/    F03490
      DATA S0351/                                                         F03500
     *     9.7609E-06, 1.1237E-05, 1.3187E-05, 1.5548E-05, 1.8784E-05,    F03510
     *     2.1694E-05, 2.5487E-05, 3.0092E-05, 3.5385E-05, 4.2764E-05,    F03520
     *     4.9313E-05, 5.5800E-05, 6.2968E-05, 7.1060E-05, 7.7699E-05,    F03530
     *     8.7216E-05, 8.9335E-05, 9.2151E-05, 9.2779E-05, 9.4643E-05,    F03540
     *     9.7978E-05, 1.0008E-04, 1.0702E-04, 1.1026E-04, 1.0828E-04,    F03550
     *     1.0550E-04, 1.0432E-04, 1.0428E-04, 9.8980E-05, 9.4992E-05,    F03560
     *     9.5159E-05, 1.0058E-04, 1.0738E-04, 1.1550E-04, 1.1229E-04,    F03570
     *     1.0596E-04, 1.0062E-04, 9.1742E-05, 8.4492E-05, 6.8099E-05,    F03580
     *     5.6295E-05, 4.6502E-05, 3.8071E-05, 3.0721E-05, 2.3297E-05,    F03590
     *     1.8688E-05, 1.4830E-05, 1.2049E-05, 9.6754E-06, 7.9192E-06/    F03600
      DATA S0401/                                                         F03610
     *     6.6673E-06, 5.6468E-06, 4.8904E-06, 4.2289E-06, 3.6880E-06,    F03620
     *     3.2396E-06, 2.8525E-06, 2.5363E-06, 2.2431E-06, 1.9949E-06,    F03630
     *     1.7931E-06, 1.6164E-06, 1.4431E-06, 1.2997E-06, 1.1559E-06,    F03640
     *     1.0404E-06, 9.4300E-07, 8.4597E-07, 7.6133E-07, 6.8623E-07,    F03650
     *     6.2137E-07, 5.6345E-07, 5.1076E-07, 4.6246E-07, 4.1906E-07,    F03660
     *     3.8063E-07, 3.4610E-07, 3.1554E-07, 2.8795E-07, 2.6252E-07,    F03670
     *     2.3967E-07, 2.1901E-07, 2.0052E-07, 1.8384E-07, 1.6847E-07,    F03680
     *     1.5459E-07, 1.4204E-07, 1.3068E-07, 1.2036E-07, 1.1095E-07,    F03690
     *     1.0237E-07, 9.4592E-08, 8.7530E-08, 8.1121E-08, 7.5282E-08,    F03700
     *     6.9985E-08, 6.5189E-08, 6.0874E-08, 5.6989E-08, 5.3530E-08/    F03710
      DATA S0451/                                                         F03720
     *     5.0418E-08, 4.7745E-08, 4.5367E-08, 4.3253E-08, 4.1309E-08,    F03730
     *     3.9695E-08, 3.8094E-08, 3.6482E-08, 3.4897E-08, 3.3500E-08,    F03740
     *     3.2302E-08, 3.0854E-08, 2.9698E-08, 2.8567E-08, 2.7600E-08,    F03750
     *     2.6746E-08, 2.5982E-08, 2.5510E-08, 2.5121E-08, 2.4922E-08,    F03760
     *     2.4909E-08, 2.5013E-08, 2.5216E-08, 2.5589E-08, 2.6049E-08,    F03770
     *     2.6451E-08, 2.6978E-08, 2.7687E-08, 2.8600E-08, 2.9643E-08,    F03780
     *     3.0701E-08, 3.2058E-08, 3.3695E-08, 3.5558E-08, 3.7634E-08,    F03790
     *     3.9875E-08, 4.2458E-08, 4.5480E-08, 4.8858E-08, 5.2599E-08,    F03800
     *     5.7030E-08, 6.2067E-08, 6.7911E-08, 7.4579E-08, 8.1902E-08,    F03810
     *     8.9978E-08, 9.9870E-08, 1.1102E-07, 1.2343E-07, 1.3732E-07/    F03820
      DATA S0501/                                                         F03830
     *     1.5394E-07, 1.7318E-07, 1.9383E-07, 2.1819E-07, 2.4666E-07,    F03840
     *     2.8109E-07, 3.2236E-07, 3.7760E-07, 4.4417E-07, 5.2422E-07,    F03850
     *     6.1941E-07, 7.4897E-07, 9.2041E-07, 1.1574E-06, 1.4126E-06,    F03860
     *     1.7197E-06, 2.1399E-06, 2.6266E-06, 3.3424E-06, 3.8418E-06,    F03870
     *     4.5140E-06, 5.0653E-06, 5.8485E-06, 6.5856E-06, 6.8937E-06,    F03880
     *     6.9121E-06, 6.9005E-06, 6.9861E-06, 6.8200E-06, 6.6089E-06,    F03890
     *     6.5809E-06, 7.3496E-06, 8.0311E-06, 8.3186E-06, 8.4260E-06,    F03900
     *     9.0644E-06, 9.4965E-06, 9.4909E-06, 9.0160E-06, 9.1494E-06,    F03910
     *     9.3629E-06, 9.5944E-06, 9.5459E-06, 8.9919E-06, 8.6040E-06,    F03920
     *     7.8613E-06, 7.1567E-06, 6.2677E-06, 5.1899E-06, 4.4188E-06/    F03930
      DATA S0551/                                                         F03940
     *     3.7167E-06, 3.0636E-06, 2.5573E-06, 2.0317E-06, 1.6371E-06,    F03950
     *     1.3257E-06, 1.0928E-06, 8.9986E-07, 7.4653E-07, 6.1111E-07,    F03960
     *     5.1395E-07, 4.3500E-07, 3.7584E-07, 3.2633E-07, 2.8413E-07,    F03970
     *     2.4723E-07, 2.1709E-07, 1.9294E-07, 1.7258E-07, 1.5492E-07,    F03980
     *     1.3820E-07, 1.2389E-07, 1.1189E-07, 1.0046E-07, 9.0832E-08,    F03990
     *     8.2764E-08, 7.4191E-08, 6.7085E-08, 6.0708E-08, 5.4963E-08,    F04000
     *     4.9851E-08, 4.5044E-08, 4.0916E-08, 3.7220E-08, 3.3678E-08,    F04010
     *     3.0663E-08, 2.7979E-08, 2.5495E-08, 2.3286E-08, 2.1233E-08,    F04020
     *     1.9409E-08, 1.7770E-08, 1.6260E-08, 1.4885E-08, 1.3674E-08,    F04030
     *     1.2543E-08, 1.1551E-08, 1.0655E-08, 9.8585E-09, 9.1398E-09/    F04040
      DATA S0601/                                                         F04050
     *     8.4806E-09, 7.8899E-09, 7.3547E-09, 6.8670E-09, 6.4131E-09,    F04060
     *     5.9930E-09, 5.6096E-09, 5.2592E-09, 4.9352E-09, 4.6354E-09,    F04070
     *     4.3722E-09, 4.1250E-09, 3.9081E-09, 3.7118E-09, 3.5372E-09,    F04080
     *     3.3862E-09, 3.2499E-09, 3.1324E-09, 3.0313E-09, 2.9438E-09,    F04090
     *     2.8686E-09, 2.8050E-09, 2.7545E-09, 2.7149E-09, 2.6907E-09,    F04100
     *     2.6724E-09, 2.6649E-09, 2.6642E-09, 2.6725E-09, 2.6871E-09,    F04110
     *     2.7056E-09, 2.7357E-09, 2.7781E-09, 2.8358E-09, 2.9067E-09,    F04120
     *     2.9952E-09, 3.1020E-09, 3.2253E-09, 3.3647E-09, 3.5232E-09,    F04130
     *     3.7037E-09, 3.9076E-09, 4.1385E-09, 4.3927E-09, 4.6861E-09,    F04140
     *     5.0238E-09, 5.4027E-09, 5.8303E-09, 6.3208E-09, 6.8878E-09/    F04150
      DATA S0651/                                                         F04160
     *     7.5419E-09, 8.3130E-09, 9.1952E-09, 1.0228E-08, 1.1386E-08,    F04170
     *     1.2792E-08, 1.4521E-08, 1.6437E-08, 1.8674E-08, 2.1160E-08,    F04180
     *     2.4506E-08, 2.8113E-08, 3.2636E-08, 3.7355E-08, 4.2234E-08,    F04190
     *     4.9282E-08, 5.7358E-08, 6.6743E-08, 7.8821E-08, 9.4264E-08,    F04200
     *     1.1542E-07, 1.3684E-07, 1.6337E-07, 2.0056E-07, 2.3252E-07,    F04210
     *     2.6127E-07, 2.9211E-07, 3.3804E-07, 3.7397E-07, 3.8205E-07,    F04220
     *     3.8810E-07, 3.9499E-07, 3.9508E-07, 3.7652E-07, 3.5859E-07,    F04230
     *     3.6198E-07, 3.7871E-07, 4.0925E-07, 4.2717E-07, 4.8241E-07,    F04240
     *     5.2008E-07, 5.6530E-07, 5.9531E-07, 6.1994E-07, 6.5080E-07,    F04250
     *     6.6355E-07, 6.9193E-07, 6.9930E-07, 7.3058E-07, 7.4678E-07/    F04260
      DATA S0701/                                                         F04270
     *     7.9193E-07, 8.3627E-07, 9.1267E-07, 1.0021E-06, 1.1218E-06,    F04280
     *     1.2899E-06, 1.4447E-06, 1.7268E-06, 2.0025E-06, 2.3139E-06,    F04290
     *     2.5599E-06, 2.8920E-06, 3.3059E-06, 3.5425E-06, 3.9522E-06,    F04300
     *     4.0551E-06, 4.2818E-06, 4.2892E-06, 4.4210E-06, 4.5614E-06,    F04310
     *     4.6739E-06, 4.9482E-06, 5.1118E-06, 5.0986E-06, 4.9417E-06,    F04320
     *     4.9022E-06, 4.8449E-06, 4.8694E-06, 4.8111E-06, 4.9378E-06,    F04330
     *     5.3231E-06, 5.7362E-06, 6.2350E-06, 6.0951E-06, 5.7281E-06,    F04340
     *     5.4585E-06, 4.9032E-06, 4.3009E-06, 3.4776E-06, 2.8108E-06,    F04350
     *     2.2993E-06, 1.7999E-06, 1.3870E-06, 1.0750E-06, 8.5191E-07,    F04360
     *     6.7951E-07, 5.5336E-07, 4.6439E-07, 4.0243E-07, 3.5368E-07/    F04370
      DATA S0751/                                                         F04380
     *     3.1427E-07, 2.7775E-07, 2.4486E-07, 2.1788E-07, 1.9249E-07,    F04390
     *     1.7162E-07, 1.5115E-07, 1.3478E-07, 1.2236E-07, 1.1139E-07,    F04400
     *     1.0092E-07, 9.0795E-08, 8.2214E-08, 7.4691E-08, 6.7486E-08,    F04410
     *     6.0414E-08, 5.4584E-08, 4.8754E-08, 4.3501E-08, 3.8767E-08,    F04420
     *     3.4363E-08, 3.0703E-08, 2.7562E-08, 2.4831E-08, 2.2241E-08,    F04430
     *     1.9939E-08, 1.8049E-08, 1.6368E-08, 1.4863E-08, 1.3460E-08,    F04440
     *     1.2212E-08, 1.1155E-08, 1.0185E-08, 9.3417E-09, 8.5671E-09,    F04450
     *     7.8292E-09, 7.1749E-09, 6.5856E-09, 6.0588E-09, 5.5835E-09,    F04460
     *     5.1350E-09, 4.7395E-09, 4.3771E-09, 4.0476E-09, 3.7560E-09,    F04470
     *     3.4861E-09, 3.2427E-09, 3.0240E-09, 2.8278E-09, 2.6531E-09/    F04480
      DATA S0801/                                                         F04490
     *     2.4937E-09, 2.3511E-09, 2.2245E-09, 2.1133E-09, 2.0159E-09,    F04500
     *     1.9330E-09, 1.8669E-09, 1.8152E-09, 1.7852E-09, 1.7752E-09,    F04510
     *     1.7823E-09, 1.8194E-09, 1.8866E-09, 1.9759E-09, 2.0736E-09,    F04520
     *     2.2083E-09, 2.3587E-09, 2.4984E-09, 2.6333E-09, 2.8160E-09,    F04530
     *     3.0759E-09, 3.3720E-09, 3.6457E-09, 4.0668E-09, 4.4541E-09,    F04540
     *     4.7976E-09, 5.0908E-09, 5.4811E-09, 6.1394E-09, 6.3669E-09,    F04550
     *     6.5714E-09, 6.8384E-09, 7.1918E-09, 7.3741E-09, 7.2079E-09,    F04560
     *     7.2172E-09, 7.2572E-09, 7.3912E-09, 7.6188E-09, 8.3291E-09,    F04570
     *     8.7885E-09, 9.2412E-09, 1.0021E-08, 1.0752E-08, 1.1546E-08,    F04580
     *     1.1607E-08, 1.1949E-08, 1.2346E-08, 1.2516E-08, 1.2826E-08/    F04590
      DATA S0851/                                                         F04600
     *     1.3053E-08, 1.3556E-08, 1.4221E-08, 1.5201E-08, 1.6661E-08,    F04610
     *     1.8385E-08, 2.0585E-08, 2.3674E-08, 2.7928E-08, 3.3901E-08,    F04620
     *     4.1017E-08, 4.9595E-08, 6.0432E-08, 7.6304E-08, 9.0764E-08,    F04630
     *     1.0798E-07, 1.2442E-07, 1.4404E-07, 1.6331E-07, 1.8339E-07,    F04640
     *     2.0445E-07, 2.2288E-07, 2.3083E-07, 2.3196E-07, 2.3919E-07,    F04650
     *     2.3339E-07, 2.3502E-07, 2.3444E-07, 2.6395E-07, 2.9928E-07,    F04660
     *     3.0025E-07, 3.0496E-07, 3.1777E-07, 3.4198E-07, 3.4739E-07,    F04670
     *     3.2696E-07, 3.4100E-07, 3.5405E-07, 3.7774E-07, 3.8285E-07,    F04680
     *     3.6797E-07, 3.5800E-07, 3.2283E-07, 2.9361E-07, 2.4881E-07,    F04690
     *     2.0599E-07, 1.7121E-07, 1.3641E-07, 1.1111E-07, 8.9413E-08/    F04700
      DATA S0901/                                                         F04710
     *     7.3455E-08, 6.2078E-08, 5.2538E-08, 4.5325E-08, 3.9005E-08,    F04720
     *     3.4772E-08, 3.1203E-08, 2.8132E-08, 2.5250E-08, 2.2371E-08,    F04730
     *     2.0131E-08, 1.7992E-08, 1.6076E-08, 1.4222E-08, 1.2490E-08,    F04740
     *     1.1401E-08, 1.0249E-08, 9.2279E-09, 8.5654E-09, 7.6227E-09,    F04750
     *     6.9648E-09, 6.2466E-09, 5.7252E-09, 5.3800E-09, 4.6960E-09,    F04760
     *     4.2194E-09, 3.7746E-09, 3.3813E-09, 3.0656E-09, 2.6885E-09,    F04770
     *     2.4311E-09, 2.1572E-09, 1.8892E-09, 1.7038E-09, 1.4914E-09,    F04780
     *     1.3277E-09, 1.1694E-09, 1.0391E-09, 9.2779E-10, 8.3123E-10,    F04790
     *     7.4968E-10, 6.8385E-10, 6.2915E-10, 5.7784E-10, 5.2838E-10,    F04800
     *     4.8382E-10, 4.4543E-10, 4.1155E-10, 3.7158E-10, 3.3731E-10/    F04810
      DATA S0951/                                                         F04820
     *     3.0969E-10, 2.8535E-10, 2.6416E-10, 2.4583E-10, 2.2878E-10,    F04830
     *     2.1379E-10, 2.0073E-10, 1.8907E-10, 1.7866E-10, 1.6936E-10,    F04840
     *     1.6119E-10, 1.5424E-10, 1.4847E-10, 1.4401E-10, 1.4068E-10,    F04850
     *     1.3937E-10, 1.3943E-10, 1.4281E-10, 1.4766E-10, 1.5701E-10,    F04860
     *     1.7079E-10, 1.8691E-10, 2.0081E-10, 2.1740E-10, 2.4847E-10,    F04870
     *     2.6463E-10, 2.7087E-10, 2.7313E-10, 2.8352E-10, 2.9511E-10,    F04880
     *     2.8058E-10, 2.7227E-10, 2.7356E-10, 2.8012E-10, 2.8034E-10,    F04890
     *     2.9031E-10, 3.1030E-10, 3.3745E-10, 3.8152E-10, 4.0622E-10,    F04900
     *     4.2673E-10, 4.3879E-10, 4.5488E-10, 4.7179E-10, 4.6140E-10,    F04910
     *     4.6339E-10, 4.6716E-10, 4.7024E-10, 4.7931E-10, 4.8503E-10/    F04920
      DATA S1001/                                                         F04930
     *     4.9589E-10, 4.9499E-10, 5.0363E-10, 5.3184E-10, 5.6451E-10,    F04940
     *     6.0932E-10, 6.6469E-10, 7.4076E-10, 8.3605E-10, 9.4898E-10,    F04950
     *     1.0935E-09, 1.2593E-09, 1.4913E-09, 1.8099E-09, 2.1842E-09,    F04960
     *     2.7284E-09, 3.2159E-09, 3.7426E-09, 4.5226E-09, 5.3512E-09,    F04970
     *     6.1787E-09, 6.8237E-09, 7.9421E-09, 9.0002E-09, 9.6841E-09,    F04980
     *     9.9558E-09, 1.0232E-08, 1.0591E-08, 1.0657E-08, 1.0441E-08,    F04990
     *     1.0719E-08, 1.1526E-08, 1.2962E-08, 1.4336E-08, 1.6150E-08,    F05000
     *     1.8417E-08, 2.0725E-08, 2.3426E-08, 2.5619E-08, 2.7828E-08,    F05010
     *     3.0563E-08, 3.3438E-08, 3.6317E-08, 4.0400E-08, 4.4556E-08,    F05020
     *     5.0397E-08, 5.3315E-08, 5.9185E-08, 6.5311E-08, 6.9188E-08/    F05030
      DATA S1051/                                                         F05040
     *     7.7728E-08, 7.9789E-08, 8.6598E-08, 8.7768E-08, 9.1773E-08,    F05050
     *     9.7533E-08, 1.0007E-07, 1.0650E-07, 1.0992E-07, 1.0864E-07,    F05060
     *     1.0494E-07, 1.0303E-07, 1.0031E-07, 1.0436E-07, 1.0537E-07,    F05070
     *     1.1184E-07, 1.2364E-07, 1.3651E-07, 1.4881E-07, 1.4723E-07,    F05080
     *     1.4118E-07, 1.3371E-07, 1.1902E-07, 1.0007E-07, 7.9628E-08,    F05090
     *     6.4362E-08, 5.0243E-08, 3.8133E-08, 2.9400E-08, 2.3443E-08,    F05100
     *     1.9319E-08, 1.6196E-08, 1.4221E-08, 1.2817E-08, 1.1863E-08,    F05110
     *     1.1383E-08, 1.1221E-08, 1.1574E-08, 1.1661E-08, 1.2157E-08,    F05120
     *     1.2883E-08, 1.3295E-08, 1.4243E-08, 1.4240E-08, 1.4614E-08,    F05130
     *     1.4529E-08, 1.4685E-08, 1.4974E-08, 1.4790E-08, 1.4890E-08/    F05140
      DATA S1101/                                                         F05150
     *     1.4704E-08, 1.4142E-08, 1.3374E-08, 1.2746E-08, 1.2172E-08,    F05160
     *     1.2336E-08, 1.2546E-08, 1.3065E-08, 1.4090E-08, 1.5215E-08,    F05170
     *     1.6540E-08, 1.6144E-08, 1.5282E-08, 1.4358E-08, 1.2849E-08,    F05180
     *     1.0998E-08, 8.6956E-09, 7.0881E-09, 5.5767E-09, 4.2792E-09,    F05190
     *     3.2233E-09, 2.5020E-09, 1.9985E-09, 1.5834E-09, 1.3015E-09,    F05200
     *     1.0948E-09, 9.4141E-10, 8.1465E-10, 7.1517E-10, 6.2906E-10,    F05210
     *     5.5756E-10, 4.9805E-10, 4.3961E-10, 3.9181E-10, 3.5227E-10,    F05220
     *     3.1670E-10, 2.8667E-10, 2.5745E-10, 2.3212E-10, 2.0948E-10,    F05230
     *     1.8970E-10, 1.7239E-10, 1.5659E-10, 1.4301E-10, 1.3104E-10,    F05240
     *     1.2031E-10, 1.1095E-10, 1.0262E-10, 9.5130E-11, 8.8595E-11/    F05250
      DATA S1151/                                                         F05260
     *     8.2842E-11, 7.7727E-11, 7.3199E-11, 6.9286E-11, 6.5994E-11,    F05270
     *     6.3316E-11, 6.1244E-11, 5.9669E-11, 5.8843E-11, 5.8832E-11,    F05280
     *     5.9547E-11, 6.1635E-11, 6.4926E-11, 7.0745E-11, 7.8802E-11,    F05290
     *     8.6724E-11, 1.0052E-10, 1.1575E-10, 1.3626E-10, 1.5126E-10,    F05300
     *     1.6751E-10, 1.9239E-10, 2.1748E-10, 2.2654E-10, 2.2902E-10,    F05310
     *     2.3240E-10, 2.4081E-10, 2.3930E-10, 2.2378E-10, 2.2476E-10,    F05320
     *     2.2791E-10, 2.4047E-10, 2.5305E-10, 2.8073E-10, 3.1741E-10,    F05330
     *     3.6592E-10, 4.1495E-10, 4.6565E-10, 5.0990E-10, 5.5607E-10,    F05340
     *     6.1928E-10, 6.6779E-10, 7.3350E-10, 8.1434E-10, 8.9635E-10,    F05350
     *     9.9678E-10, 1.1256E-09, 1.2999E-09, 1.4888E-09, 1.7642E-09/    F05360
      DATA S1201/                                                         F05370
     *     1.9606E-09, 2.2066E-09, 2.4601E-09, 2.7218E-09, 3.0375E-09,    F05380
     *     3.1591E-09, 3.2852E-09, 3.2464E-09, 3.3046E-09, 3.2710E-09,    F05390
     *     3.2601E-09, 3.3398E-09, 3.7446E-09, 4.0795E-09, 4.0284E-09,    F05400
     *     4.0584E-09, 4.1677E-09, 4.5358E-09, 4.4097E-09, 4.2744E-09,    F05410
     *     4.5449E-09, 4.8147E-09, 5.2656E-09, 5.2476E-09, 5.0275E-09,    F05420
     *     4.7968E-09, 4.3654E-09, 3.9530E-09, 3.2447E-09, 2.6489E-09,    F05430
     *     2.1795E-09, 1.7880E-09, 1.4309E-09, 1.1256E-09, 9.1903E-10,    F05440
     *     7.6533E-10, 6.3989E-10, 5.5496E-10, 4.9581E-10, 4.5722E-10,    F05450
     *     4.3898E-10, 4.3505E-10, 4.3671E-10, 4.5329E-10, 4.6827E-10,    F05460
     *     4.9394E-10, 5.1122E-10, 5.1649E-10, 5.0965E-10, 4.9551E-10/    F05470
      DATA S1251/                                                         F05480
     *     4.8928E-10, 4.7947E-10, 4.7989E-10, 4.9071E-10, 4.8867E-10,    F05490
     *     4.7260E-10, 4.5756E-10, 4.5400E-10, 4.5993E-10, 4.4042E-10,    F05500
     *     4.3309E-10, 4.4182E-10, 4.6735E-10, 5.0378E-10, 5.2204E-10,    F05510
     *     5.0166E-10, 4.6799E-10, 4.3119E-10, 3.8803E-10, 3.3291E-10,    F05520
     *     2.6289E-10, 2.1029E-10, 1.7011E-10, 1.3345E-10, 1.0224E-10,    F05530
     *     7.8207E-11, 6.2451E-11, 5.0481E-11, 4.1507E-11, 3.5419E-11,    F05540
     *     3.0582E-11, 2.6900E-11, 2.3778E-11, 2.1343E-11, 1.9182E-11,    F05550
     *     1.7162E-11, 1.5391E-11, 1.3877E-11, 1.2619E-11, 1.1450E-11,    F05560
     *     1.0461E-11, 9.6578E-12, 8.9579E-12, 8.3463E-12, 7.8127E-12,    F05570
     *     7.3322E-12, 6.9414E-12, 6.6037E-12, 6.3285E-12, 6.1095E-12/    F05580
      DATA S1301/                                                         F05590
     *     5.9387E-12, 5.8118E-12, 5.7260E-12, 5.6794E-12, 5.6711E-12,    F05600
     *     5.7003E-12, 5.7670E-12, 5.8717E-12, 6.0151E-12, 6.1984E-12,    F05610
     *     6.4232E-12, 6.6918E-12, 7.0065E-12, 7.3705E-12, 7.7873E-12,    F05620
     *     8.2612E-12, 8.7972E-12, 9.4009E-12, 1.0079E-11, 1.0840E-11,    F05630
     *     1.1692E-11, 1.2648E-11, 1.3723E-11, 1.4935E-11, 1.6313E-11,    F05640
     *     1.7905E-11, 1.9740E-11, 2.1898E-11, 2.4419E-11, 2.7426E-11,    F05650
     *     3.0869E-11, 3.4235E-11, 3.7841E-11, 4.1929E-11, 4.6776E-11,    F05660
     *     5.2123E-11, 5.8497E-11, 6.5294E-11, 7.4038E-11, 8.4793E-11,    F05670
     *     9.6453E-11, 1.1223E-10, 1.2786E-10, 1.4882E-10, 1.7799E-10,    F05680
     *     2.0766E-10, 2.4523E-10, 2.8591E-10, 3.3386E-10, 4.0531E-10/    F05690
      DATA S1351/                                                         F05700
     *     4.7663E-10, 5.4858E-10, 6.3377E-10, 7.1688E-10, 8.4184E-10,    F05710
     *     9.5144E-10, 1.0481E-09, 1.1356E-09, 1.2339E-09, 1.3396E-09,    F05720
     *     1.4375E-09, 1.5831E-09, 1.7323E-09, 1.9671E-09, 2.2976E-09,    F05730
     *     2.6679E-09, 3.0777E-09, 3.4321E-09, 3.8192E-09, 4.2711E-09,    F05740
     *     4.4903E-09, 4.8931E-09, 5.2253E-09, 5.4040E-09, 5.6387E-09,    F05750
     *     5.6704E-09, 6.0345E-09, 6.1079E-09, 6.2576E-09, 6.4039E-09,    F05760
     *     6.3776E-09, 6.1878E-09, 5.8616E-09, 5.7036E-09, 5.5840E-09,    F05770
     *     5.6905E-09, 5.8931E-09, 6.2478E-09, 6.8291E-09, 7.4528E-09,    F05780
     *     7.6078E-09, 7.3898E-09, 6.7573E-09, 5.9827E-09, 5.0927E-09,    F05790
     *     4.0099E-09, 3.1933E-09, 2.4296E-09, 1.8485E-09, 1.4595E-09/    F05800
      DATA S1401/                                                         F05810
     *     1.2017E-09, 1.0164E-09, 8.7433E-10, 7.7108E-10, 7.0049E-10,    F05820
     *     6.5291E-10, 6.1477E-10, 5.9254E-10, 5.8150E-10, 5.7591E-10,    F05830
     *     5.8490E-10, 5.8587E-10, 5.9636E-10, 6.2408E-10, 6.5479E-10,    F05840
     *     7.0480E-10, 7.2313E-10, 7.5524E-10, 8.0863E-10, 8.3386E-10,    F05850
     *     9.2342E-10, 9.6754E-10, 1.0293E-09, 1.0895E-09, 1.1330E-09,    F05860
     *     1.2210E-09, 1.2413E-09, 1.2613E-09, 1.2671E-09, 1.2225E-09,    F05870
     *     1.1609E-09, 1.0991E-09, 1.0600E-09, 1.0570E-09, 1.0818E-09,    F05880
     *     1.1421E-09, 1.2270E-09, 1.3370E-09, 1.4742E-09, 1.4946E-09,    F05890
     *     1.4322E-09, 1.3210E-09, 1.1749E-09, 1.0051E-09, 7.8387E-10,    F05900
     *     6.1844E-10, 4.6288E-10, 3.4164E-10, 2.5412E-10, 1.9857E-10/    F05910
      DATA S1451/                                                         F05920
     *     1.5876E-10, 1.2966E-10, 1.0920E-10, 9.4811E-11, 8.3733E-11,    F05930
     *     7.3906E-11, 6.7259E-11, 6.1146E-11, 5.7119E-11, 5.3546E-11,    F05940
     *     4.8625E-11, 4.4749E-11, 4.1089E-11, 3.7825E-11, 3.4465E-11,    F05950
     *     3.1018E-11, 2.8109E-11, 2.5610E-11, 2.2859E-11, 2.0490E-11,    F05960
     *     1.8133E-11, 1.5835E-11, 1.3949E-11, 1.2295E-11, 1.0799E-11,    F05970
     *     9.6544E-12, 8.7597E-12, 7.9990E-12, 7.3973E-12, 6.9035E-12,    F05980
     *     6.4935E-12, 6.1195E-12, 5.8235E-12, 5.5928E-12, 5.4191E-12,    F05990
     *     5.2993E-12, 5.2338E-12, 5.2272E-12, 5.2923E-12, 5.4252E-12,    F06000
     *     5.6523E-12, 5.9433E-12, 6.3197E-12, 6.9016E-12, 7.5016E-12,    F06010
     *     8.2885E-12, 9.4050E-12, 1.0605E-11, 1.2257E-11, 1.3622E-11/    F06020
      DATA S1501/                                                         F06030
     *     1.5353E-11, 1.7543E-11, 1.9809E-11, 2.2197E-11, 2.4065E-11,    F06040
     *     2.6777E-11, 2.9751E-11, 3.2543E-11, 3.5536E-11, 3.9942E-11,    F06050
     *     4.6283E-11, 5.4556E-11, 6.5490E-11, 7.6803E-11, 9.0053E-11,    F06060
     *     1.0852E-10, 1.2946E-10, 1.4916E-10, 1.7748E-10, 2.0073E-10,    F06070
     *     2.2485E-10, 2.5114E-10, 2.7715E-10, 3.1319E-10, 3.3305E-10,    F06080
     *     3.5059E-10, 3.5746E-10, 3.6311E-10, 3.7344E-10, 3.6574E-10,    F06090
     *     3.7539E-10, 3.9434E-10, 4.3510E-10, 4.3340E-10, 4.2588E-10,    F06100
     *     4.3977E-10, 4.6062E-10, 4.7687E-10, 4.6457E-10, 4.8578E-10,    F06110
     *     5.2344E-10, 5.6752E-10, 5.8702E-10, 5.6603E-10, 5.3784E-10,    F06120
     *     4.9181E-10, 4.3272E-10, 3.5681E-10, 2.8814E-10, 2.3320E-10/    F06130
      DATA S1551/                                                         F06140
     *     1.8631E-10, 1.4587E-10, 1.1782E-10, 9.8132E-11, 8.2528E-11,    F06150
     *     6.9174E-11, 6.1056E-11, 5.3459E-11, 4.7116E-11, 4.1878E-11,    F06160
     *     3.8125E-11, 3.6347E-11, 3.5071E-11, 3.3897E-11, 3.3541E-11,    F06170
     *     3.3563E-11, 3.5469E-11, 3.8111E-11, 3.8675E-11, 4.1333E-11,    F06180
     *     4.3475E-11, 4.6476E-11, 4.9761E-11, 5.1380E-11, 5.4135E-11,    F06190
     *     5.3802E-11, 5.5158E-11, 5.6864E-11, 5.9311E-11, 6.3827E-11,    F06200
     *     6.7893E-11, 6.8230E-11, 6.6694E-11, 6.6018E-11, 6.4863E-11,    F06210
     *     6.5893E-11, 6.3813E-11, 6.4741E-11, 6.8630E-11, 7.0255E-11,    F06220
     *     7.0667E-11, 6.8810E-11, 6.4104E-11, 5.8136E-11, 4.7242E-11,    F06230
     *     3.7625E-11, 3.1742E-11, 2.5581E-11, 1.8824E-11, 1.3303E-11/    F06240
      DATA S1601/                                                         F06250
     *     9.6919E-12, 7.5353E-12, 6.0986E-12, 5.0742E-12, 4.3094E-12,    F06260
     *     3.7190E-12, 3.2520E-12, 2.8756E-12, 2.5680E-12, 2.3139E-12,    F06270
     *     2.1025E-12, 1.9257E-12, 1.7777E-12, 1.6539E-12, 1.5508E-12,    F06280
     *     1.4657E-12, 1.3966E-12, 1.3417E-12, 1.2998E-12, 1.2700E-12,    F06290
     *     1.2514E-12, 1.2437E-12, 1.2463E-12, 1.2592E-12, 1.2823E-12,    F06300
     *     1.3157E-12, 1.3596E-12, 1.4144E-12, 1.4806E-12, 1.5588E-12,    F06310
     *     1.6497E-12, 1.7544E-12, 1.8738E-12, 2.0094E-12, 2.1626E-12,    F06320
     *     2.3354E-12, 2.5297E-12, 2.7483E-12, 2.9941E-12, 3.2708E-12,    F06330
     *     3.5833E-12, 3.9374E-12, 4.3415E-12, 4.8079E-12, 5.3602E-12,    F06340
     *     5.9816E-12, 6.7436E-12, 7.6368E-12, 8.6812E-12, 9.8747E-12/    F06350
      DATA S1651/                                                         F06360
     *     1.1350E-11, 1.3181E-11, 1.5406E-11, 1.7868E-11, 2.0651E-11,    F06370
     *     2.4504E-11, 2.9184E-11, 3.4159E-11, 3.9979E-11, 4.8704E-11,    F06380
     *     5.7856E-11, 6.7576E-11, 7.9103E-11, 9.4370E-11, 1.1224E-10,    F06390
     *     1.3112E-10, 1.5674E-10, 1.8206E-10, 2.0576E-10, 2.3187E-10,    F06400
     *     2.7005E-10, 3.0055E-10, 3.3423E-10, 3.6956E-10, 3.8737E-10,    F06410
     *     4.2630E-10, 4.5154E-10, 4.8383E-10, 5.3582E-10, 5.8109E-10,    F06420
     *     6.3741E-10, 6.3874E-10, 6.3870E-10, 6.5818E-10, 6.5056E-10,    F06430
     *     6.5291E-10, 6.3159E-10, 6.3984E-10, 6.4549E-10, 6.5444E-10,    F06440
     *     6.7035E-10, 6.7665E-10, 6.9124E-10, 6.8451E-10, 6.9255E-10,    F06450
     *     6.9923E-10, 7.0396E-10, 6.7715E-10, 6.0371E-10, 5.3774E-10/    F06460
      DATA S1701/                                                         F06470
     *     4.6043E-10, 3.7635E-10, 2.9484E-10, 2.2968E-10, 1.8185E-10,    F06480
     *     1.4191E-10, 1.1471E-10, 9.4790E-11, 7.9613E-11, 6.7989E-11,    F06490
     *     5.9391E-11, 5.2810E-11, 4.7136E-11, 4.2618E-11, 3.8313E-11,    F06500
     *     3.4686E-11, 3.1669E-11, 2.9110E-11, 2.6871E-11, 2.5074E-11,    F06510
     *     2.4368E-11, 2.3925E-11, 2.4067E-11, 2.4336E-11, 2.4704E-11,    F06520
     *     2.5823E-11, 2.7177E-11, 2.9227E-11, 3.1593E-11, 3.5730E-11,    F06530
     *     4.0221E-11, 4.3994E-11, 4.8448E-11, 5.3191E-11, 5.8552E-11,    F06540
     *     6.3458E-11, 6.6335E-11, 7.2457E-11, 7.9091E-11, 8.2234E-11,    F06550
     *     8.7668E-11, 8.7951E-11, 9.2952E-11, 9.6157E-11, 9.5926E-11,    F06560
     *     1.0120E-10, 1.0115E-10, 9.9577E-11, 9.6633E-11, 9.2891E-11/    F06570
      DATA S1751/                                                         F06580
     *     9.3315E-11, 9.5584E-11, 1.0064E-10, 1.0509E-10, 1.1455E-10,    F06590
     *     1.2443E-10, 1.2963E-10, 1.2632E-10, 1.1308E-10, 1.0186E-10,    F06600
     *     8.5880E-11, 6.7863E-11, 5.1521E-11, 3.7780E-11, 2.8842E-11,    F06610
     *     2.2052E-11, 1.7402E-11, 1.4406E-11, 1.1934E-11, 1.0223E-11,    F06620
     *     8.9544E-12, 7.9088E-12, 7.0675E-12, 6.2222E-12, 5.6051E-12,    F06630
     *     5.0502E-12, 4.5578E-12, 4.2636E-12, 3.9461E-12, 3.7599E-12,    F06640
     *     3.5215E-12, 3.2467E-12, 3.0018E-12, 2.6558E-12, 2.3928E-12,    F06650
     *     2.0707E-12, 1.7575E-12, 1.5114E-12, 1.2941E-12, 1.1004E-12,    F06660
     *     9.5175E-13, 8.2894E-13, 7.3253E-13, 6.5551E-13, 5.9098E-13,    F06670
     *     5.3548E-13, 4.8697E-13, 4.4413E-13, 4.0600E-13, 3.7188E-13/    F06680
      DATA S1801/                                                         F06690
     *     3.4121E-13, 3.1356E-13, 2.8856E-13, 2.6590E-13, 2.4533E-13,    F06700
     *     2.2663E-13, 2.0960E-13, 1.9407E-13, 1.7990E-13, 1.6695E-13,    F06710
     *     1.5512E-13, 1.4429E-13, 1.3437E-13, 1.2527E-13, 1.1693E-13,    F06720
     *     1.0927E-13, 1.0224E-13, 9.5767E-14, 8.9816E-14, 8.4335E-14,    F06730
     *     7.9285E-14, 7.4626E-14, 7.0325E-14, 6.6352E-14, 6.2676E-14,    F06740
     *     5.9274E-14, 5.6121E-14, 5.3195E-14, 5.0479E-14, 4.7953E-14,    F06750
     *     4.5602E-14, 4.3411E-14, 4.1367E-14, 3.9456E-14, 3.7670E-14,    F06760
     *     3.5996E-14, 3.4427E-14, 3.2952E-14, 3.1566E-14, 3.0261E-14,    F06770
     *     2.9030E-14, 2.7868E-14, 2.6770E-14, 2.5730E-14, 2.4745E-14,    F06780
     *     2.3809E-14, 2.2921E-14, 2.2076E-14, 2.1271E-14, 2.0504E-14/    F06790
      DATA S1851/                                                         F06800
     *     1.9772E-14, 1.9073E-14, 1.8404E-14, 1.7764E-14, 1.7151E-14,    F06810
     *     1.6564E-14, 1.6000E-14, 1.5459E-14, 1.4939E-14, 1.4439E-14,    F06820
     *     1.3958E-14, 1.3495E-14, 1.3049E-14, 1.2620E-14, 1.2206E-14,    F06830
     *     1.1807E-14, 1.1422E-14, 1.1050E-14, 1.0691E-14, 1.0345E-14,    F06840
     *     1.0010E-14, 9.6870E-15, 9.3747E-15, 9.0727E-15, 8.7808E-15,    F06850
     *     8.4986E-15, 8.2257E-15, 7.9617E-15, 7.7064E-15, 7.4594E-15,    F06860
     *     7.2204E-15, 6.9891E-15, 6.7653E-15, 6.5488E-15, 6.3392E-15,    F06870
     *     6.1363E-15, 5.9399E-15, 5.7499E-15, 5.5659E-15, 5.3878E-15,    F06880
     *     5.2153E-15, 5.0484E-15, 4.8868E-15, 4.7303E-15, 4.5788E-15,    F06890
     *     4.4322E-15, 4.2902E-15, 4.1527E-15, 4.0196E-15, 3.8907E-15/    F06900
      DATA S1901/                                                         F06910
     *     3.7659E-15, 3.6451E-15, 3.5281E-15, 3.4149E-15, 3.3052E-15,    F06920
     *     3.1991E-15, 3.0963E-15, 2.9967E-15, 2.9004E-15, 2.8071E-15,    F06930
     *     2.7167E-15, 2.6293E-15, 2.5446E-15, 2.4626E-15, 2.3833E-15,    F06940
     *     2.3064E-15, 2.2320E-15, 2.1600E-15, 2.0903E-15, 2.0228E-15,    F06950
     *     1.9574E-15, 1.8942E-15, 1.8329E-15, 1.7736E-15, 1.7163E-15,    F06960
     *     1.6607E-15, 1.6069E-15, 1.5548E-15, 1.5044E-15, 1.4557E-15,    F06970
     *     1.4084E-15, 1.3627E-15, 1.3185E-15, 1.2757E-15, 1.2342E-15,    F06980
     *     1.1941E-15, 1.1552E-15, 1.1177E-15, 1.0813E-15, 1.0461E-15,    F06990
     *     1.0120E-15, 9.7900E-16, 9.4707E-16, 9.1618E-16, 8.8628E-16,    F07000
     *     8.5734E-16, 8.2933E-16, 8.0223E-16, 7.7600E-16, 7.5062E-16/    F07010
      DATA S1951/                                                         F07020
     *     7.2606E-16, 7.0229E-16, 6.7929E-16, 6.5703E-16, 6.3550E-16,    F07030
     *     6.1466E-16, 5.9449E-16, 5.7498E-16, 5.5610E-16, 5.3783E-16,    F07040
     *     5.2015E-16, 5.0305E-16, 4.8650E-16, 4.7049E-16, 4.5500E-16,    F07050
     *     4.4002E-16, 4.2552E-16, 4.1149E-16, 3.9792E-16, 3.8479E-16,    F07060
     *     3.7209E-16, 3.5981E-16, 3.4792E-16, 3.3642E-16, 3.2530E-16,    F07070
     *     3.1454E-16, 3.0413E-16, 2.9406E-16, 2.8432E-16, 2.7490E-16,    F07080
     *     2.6579E-16, 2.5697E-16, 2.4845E-16, 2.4020E-16, 2.3223E-16,    F07090
     *     2.2451E-16, 2.1705E-16, 2.0984E-16, 2.0286E-16, 1.9611E-16,    F07100
     *     1.8958E-16, 1.8327E-16, 1.7716E-16, 1.7126E-16, 1.6555E-16,    F07110
     *     1.6003E-16, 1.5469E-16, 1.4952E-16, 1.4453E-16, 1.3970E-16/    F07120
      DATA S2001/                                                         F07130
     *     1.3503E-16/                                                    F07140
C                                                                         F07150
      END                                                                 F07160
C
C     --------------------------------------------------------------
C
      BLOCK DATA BS260                                                    F07460
C                                                                         F07470
      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)
C                                                                         F07490
C               06/28/82                                                  F07500
C               UNITS OF (CM**3/MOL) * 1.E-20                             F07510
C                                                                         F07520
      COMMON /S260/ V1,V2,DV,NPT,                                         F07530
     *              S0000( 2),S0001(50),S0051(50),S0101(50),S0151(50),    F07540
     *              S0201(50),S0251(50),S0301(50),S0351(50),S0401(50),    F07550
     *              S0451(50),S0501(50),S0551(50),S0601(50),S0651(50),    F07560
     *              S0701(50),S0751(50),S0801(50),S0851(50),S0901(50),    F07570
     *              S0951(50),S1001(50),S1051(50),S1101(50),S1151(50),    F07580
     *              S1201(50),S1251(50),S1301(50),S1351(50),S1401(50),    F07590
     *              S1451(50),S1501(50),S1551(50),S1601(50),S1651(50),    F07600
     *              S1701(50),S1751(50),S1801(50),S1851(50),S1901(50),    F07610
     *              S1951(50),S2001( 1)                                   F07620
C                                                                         F07630
       DATA V1,V2,DV,NPT / -20.0, 20000.0, 10.0, 2003/                    F07640
C                                                                         F07650
C                                                                         F07660
      DATA S0000/                                                         F07670
     *     1.7750E-01, 1.7045E-01/                                        F07680
      DATA S0001/                                                         F07690
     *     1.6457E-01, 1.7045E-01, 1.7750E-01, 2.0036E-01, 2.1347E-01,    F07700
     *     2.2454E-01, 2.3428E-01, 2.3399E-01, 2.3022E-01, 2.0724E-01,    F07710
     *     1.9712E-01, 1.8317E-01, 1.6724E-01, 1.4780E-01, 1.2757E-01,    F07720
     *     1.1626E-01, 1.0098E-01, 8.9033E-02, 7.9770E-02, 6.7416E-02,    F07730
     *     5.9588E-02, 5.1117E-02, 4.6218E-02, 4.2179E-02, 3.4372E-02,    F07740
     *     2.9863E-02, 2.5252E-02, 2.2075E-02, 1.9209E-02, 1.5816E-02,    F07750
     *     1.3932E-02, 1.1943E-02, 1.0079E-02, 8.7667E-03, 7.4094E-03,    F07760
     *     6.4967E-03, 5.5711E-03, 4.8444E-03, 4.2552E-03, 3.6953E-03,    F07770
     *     3.2824E-03, 2.9124E-03, 2.6102E-03, 2.3370E-03, 2.1100E-03,    F07780
     *     1.9008E-03, 1.7145E-03, 1.5573E-03, 1.4206E-03, 1.2931E-03/    F07790
      DATA S0051/                                                         F07800
     *     1.1803E-03, 1.0774E-03, 9.8616E-04, 9.0496E-04, 8.3071E-04,    F07810
     *     7.6319E-04, 7.0149E-04, 6.4637E-04, 5.9566E-04, 5.4987E-04,    F07820
     *     5.0768E-04, 4.6880E-04, 4.3317E-04, 4.0037E-04, 3.7064E-04,    F07830
     *     3.4325E-04, 3.1809E-04, 2.9501E-04, 2.7382E-04, 2.5430E-04,    F07840
     *     2.3630E-04, 2.1977E-04, 2.0452E-04, 1.9042E-04, 1.7740E-04,    F07850
     *     1.6544E-04, 1.5442E-04, 1.4425E-04, 1.3486E-04, 1.2618E-04,    F07860
     *     1.1817E-04, 1.1076E-04, 1.0391E-04, 9.7563E-05, 9.1696E-05,    F07870
     *     8.6272E-05, 8.1253E-05, 7.6607E-05, 7.2302E-05, 6.8311E-05,    F07880
     *     6.4613E-05, 6.1183E-05, 5.8001E-05, 5.5048E-05, 5.2307E-05,    F07890
     *     4.9761E-05, 4.7395E-05, 4.5197E-05, 4.3155E-05, 4.1256E-05/    F07900
      DATA S0101/                                                         F07910
     *     3.9491E-05, 3.7849E-05, 3.6324E-05, 3.4908E-05, 3.3594E-05,    F07920
     *     3.2374E-05, 3.1244E-05, 3.0201E-05, 2.9240E-05, 2.8356E-05,    F07930
     *     2.7547E-05, 2.6814E-05, 2.6147E-05, 2.5551E-05, 2.5029E-05,    F07940
     *     2.4582E-05, 2.4203E-05, 2.3891E-05, 2.3663E-05, 2.3531E-05,    F07950
     *     2.3483E-05, 2.3516E-05, 2.3694E-05, 2.4032E-05, 2.4579E-05,    F07960
     *     2.5234E-05, 2.6032E-05, 2.7119E-05, 2.8631E-05, 3.0848E-05,    F07970
     *     3.3262E-05, 3.6635E-05, 4.0732E-05, 4.5923E-05, 5.3373E-05,    F07980
     *     6.1875E-05, 7.2031E-05, 8.5980E-05, 9.8642E-05, 1.1469E-04,    F07990
     *     1.3327E-04, 1.5390E-04, 1.7513E-04, 2.0665E-04, 2.3609E-04,    F08000
     *     2.6220E-04, 2.8677E-04, 3.2590E-04, 3.8624E-04, 4.1570E-04/    F08010
      DATA S0151/                                                         F08020
     *     4.5207E-04, 4.9336E-04, 5.4500E-04, 5.8258E-04, 5.8086E-04,    F08030
     *     5.6977E-04, 5.3085E-04, 4.8020E-04, 4.3915E-04, 4.0343E-04,    F08040
     *     3.7853E-04, 3.7025E-04, 3.9637E-04, 4.4675E-04, 4.7072E-04,    F08050
     *     4.9022E-04, 5.2076E-04, 5.3676E-04, 5.2755E-04, 4.8244E-04,    F08060
     *     4.5473E-04, 4.3952E-04, 3.9614E-04, 3.4086E-04, 2.9733E-04,    F08070
     *     2.6367E-04, 2.3767E-04, 2.0427E-04, 1.7595E-04, 1.5493E-04,    F08080
     *     1.3851E-04, 1.1874E-04, 1.0735E-04, 9.0490E-05, 8.1149E-05,    F08090
     *     7.4788E-05, 6.5438E-05, 5.8248E-05, 4.8076E-05, 4.3488E-05,    F08100
     *     3.7856E-05, 3.3034E-05, 2.9592E-05, 2.6088E-05, 2.3497E-05,    F08110
     *     2.0279E-05, 1.7526E-05, 1.5714E-05, 1.3553E-05, 1.2145E-05/    F08120
      DATA S0201/                                                         F08130
     *     1.0802E-05, 9.7681E-06, 8.8196E-06, 7.8291E-06, 7.1335E-06,    F08140
     *     6.4234E-06, 5.8391E-06, 5.3532E-06, 4.9079E-06, 4.5378E-06,    F08150
     *     4.1716E-06, 3.8649E-06, 3.5893E-06, 3.3406E-06, 3.1199E-06,    F08160
     *     2.9172E-06, 2.7348E-06, 2.5644E-06, 2.4086E-06, 2.2664E-06,    F08170
     *     2.1359E-06, 2.0159E-06, 1.9051E-06, 1.8031E-06, 1.7074E-06,    F08180
     *     1.6185E-06, 1.5356E-06, 1.4584E-06, 1.3861E-06, 1.3179E-06,    F08190
     *     1.2545E-06, 1.1951E-06, 1.1395E-06, 1.0873E-06, 1.0384E-06,    F08200
     *     9.9250E-07, 9.4935E-07, 9.0873E-07, 8.7050E-07, 8.3446E-07,    F08210
     *     8.0046E-07, 7.6834E-07, 7.3800E-07, 7.0931E-07, 6.8217E-07,    F08220
     *     6.5648E-07, 6.3214E-07, 6.0909E-07, 5.8725E-07, 5.6655E-07/    F08230
      DATA S0251/                                                         F08240
     *     5.4693E-07, 5.2835E-07, 5.1077E-07, 4.9416E-07, 4.7853E-07,    F08250
     *     4.6381E-07, 4.5007E-07, 4.3728E-07, 4.2550E-07, 4.1450E-07,    F08260
     *     4.0459E-07, 3.9532E-07, 3.8662E-07, 3.7855E-07, 3.7041E-07,    F08270
     *     3.6254E-07, 3.5420E-07, 3.4617E-07, 3.3838E-07, 3.3212E-07,    F08280
     *     3.2655E-07, 3.1865E-07, 3.1203E-07, 3.0670E-07, 3.0252E-07,    F08290
     *     2.9749E-07, 2.9184E-07, 2.8795E-07, 2.8501E-07, 2.8202E-07,    F08300
     *     2.7856E-07, 2.7509E-07, 2.7152E-07, 2.6844E-07, 2.6642E-07,    F08310
     *     2.6548E-07, 2.6617E-07, 2.6916E-07, 2.7372E-07, 2.8094E-07,    F08320
     *     2.9236E-07, 3.1035E-07, 3.2854E-07, 3.5481E-07, 3.9377E-07,    F08330
     *     4.4692E-07, 5.0761E-07, 5.7715E-07, 6.7725E-07, 8.0668E-07/    F08340
      DATA S0301/                                                         F08350
     *     9.3716E-07, 1.0797E-06, 1.1689E-06, 1.3217E-06, 1.4814E-06,    F08360
     *     1.5627E-06, 1.6519E-06, 1.7601E-06, 1.9060E-06, 2.0474E-06,    F08370
     *     2.0716E-06, 2.0433E-06, 1.9752E-06, 1.8466E-06, 1.7526E-06,    F08380
     *     1.6657E-06, 1.5870E-06, 1.5633E-06, 1.6520E-06, 1.8471E-06,    F08390
     *     1.9953E-06, 2.0975E-06, 2.2016E-06, 2.2542E-06, 2.3081E-06,    F08400
     *     2.3209E-06, 2.2998E-06, 2.3056E-06, 2.2757E-06, 2.2685E-06,    F08410
     *     2.2779E-06, 2.2348E-06, 2.2445E-06, 2.3174E-06, 2.4284E-06,    F08420
     *     2.5290E-06, 2.7340E-06, 2.9720E-06, 3.2332E-06, 3.5392E-06,    F08430
     *     3.9013E-06, 4.3334E-06, 4.9088E-06, 5.3428E-06, 5.9142E-06,    F08440
     *     6.6106E-06, 7.4709E-06, 8.5019E-06, 9.6835E-06, 1.0984E-05/    F08450
      DATA S0351/                                                         F08460
     *     1.2831E-05, 1.4664E-05, 1.7080E-05, 2.0103E-05, 2.4148E-05,    F08470
     *     2.7948E-05, 3.2855E-05, 3.9046E-05, 4.6429E-05, 5.6633E-05,    F08480
     *     6.6305E-05, 7.6048E-05, 8.7398E-05, 1.0034E-04, 1.1169E-04,    F08490
     *     1.2813E-04, 1.3354E-04, 1.3952E-04, 1.4204E-04, 1.4615E-04,    F08500
     *     1.5144E-04, 1.5475E-04, 1.6561E-04, 1.7135E-04, 1.6831E-04,    F08510
     *     1.6429E-04, 1.6353E-04, 1.6543E-04, 1.5944E-04, 1.5404E-04,    F08520
     *     1.5458E-04, 1.6287E-04, 1.7277E-04, 1.8387E-04, 1.7622E-04,    F08530
     *     1.6360E-04, 1.5273E-04, 1.3667E-04, 1.2364E-04, 9.7576E-05,    F08540
     *     7.9140E-05, 6.4241E-05, 5.1826E-05, 4.1415E-05, 3.1347E-05,    F08550
     *     2.5125E-05, 2.0027E-05, 1.6362E-05, 1.3364E-05, 1.1117E-05/    F08560
      DATA S0401/                                                         F08570
     *     9.4992E-06, 8.1581E-06, 7.1512E-06, 6.2692E-06, 5.5285E-06,    F08580
     *     4.9000E-06, 4.3447E-06, 3.8906E-06, 3.4679E-06, 3.1089E-06,    F08590
     *     2.8115E-06, 2.5496E-06, 2.2982E-06, 2.0861E-06, 1.8763E-06,    F08600
     *     1.7035E-06, 1.5548E-06, 1.4107E-06, 1.2839E-06, 1.1706E-06,    F08610
     *     1.0709E-06, 9.8099E-07, 8.9901E-07, 8.2394E-07, 7.5567E-07,    F08620
     *     6.9434E-07, 6.3867E-07, 5.8845E-07, 5.4263E-07, 5.0033E-07,    F08630
     *     4.6181E-07, 4.2652E-07, 3.9437E-07, 3.6497E-07, 3.3781E-07,    F08640
     *     3.1292E-07, 2.9011E-07, 2.6915E-07, 2.4989E-07, 2.3215E-07,    F08650
     *     2.1582E-07, 2.0081E-07, 1.8700E-07, 1.7432E-07, 1.6264E-07,    F08660
     *     1.5191E-07, 1.4207E-07, 1.3306E-07, 1.2484E-07, 1.1737E-07/    F08670
      DATA S0451/                                                         F08680
     *     1.1056E-07, 1.0451E-07, 9.9060E-08, 9.4135E-08, 8.9608E-08,    F08690
     *     8.5697E-08, 8.1945E-08, 7.8308E-08, 7.4808E-08, 7.1686E-08,    F08700
     *     6.8923E-08, 6.5869E-08, 6.3308E-08, 6.0840E-08, 5.8676E-08,    F08710
     *     5.6744E-08, 5.5016E-08, 5.3813E-08, 5.2792E-08, 5.2097E-08,    F08720
     *     5.1737E-08, 5.1603E-08, 5.1656E-08, 5.1989E-08, 5.2467E-08,    F08730
     *     5.2918E-08, 5.3589E-08, 5.4560E-08, 5.5869E-08, 5.7403E-08,    F08740
     *     5.8968E-08, 6.0973E-08, 6.3432E-08, 6.6245E-08, 6.9353E-08,    F08750
     *     7.2686E-08, 7.6541E-08, 8.0991E-08, 8.5950E-08, 9.1429E-08,    F08760
     *     9.7851E-08, 1.0516E-07, 1.1349E-07, 1.2295E-07, 1.3335E-07,    F08770
     *     1.4488E-07, 1.5864E-07, 1.7412E-07, 1.9140E-07, 2.1078E-07/    F08780
      DATA S0501/                                                         F08790
     *     2.3369E-07, 2.5996E-07, 2.8848E-07, 3.2169E-07, 3.5991E-07,    F08800
     *     4.0566E-07, 4.5969E-07, 5.3094E-07, 6.1458E-07, 7.1155E-07,    F08810
     *     8.3045E-07, 9.9021E-07, 1.2042E-06, 1.4914E-06, 1.8145E-06,    F08820
     *     2.2210E-06, 2.7831E-06, 3.4533E-06, 4.4446E-06, 5.1989E-06,    F08830
     *     6.2289E-06, 7.1167E-06, 8.3949E-06, 9.6417E-06, 1.0313E-05,    F08840
     *     1.0485E-05, 1.0641E-05, 1.0898E-05, 1.0763E-05, 1.0506E-05,    F08850
     *     1.0497E-05, 1.1696E-05, 1.2654E-05, 1.3029E-05, 1.3175E-05,    F08860
     *     1.4264E-05, 1.4985E-05, 1.4999E-05, 1.4317E-05, 1.4616E-05,    F08870
     *     1.4963E-05, 1.5208E-05, 1.4942E-05, 1.3879E-05, 1.3087E-05,    F08880
     *     1.1727E-05, 1.0515E-05, 9.0073E-06, 7.3133E-06, 6.1181E-06/    F08890
      DATA S0551/                                                         F08900
     *     5.0623E-06, 4.1105E-06, 3.3915E-06, 2.6711E-06, 2.1464E-06,    F08910
     *     1.7335E-06, 1.4302E-06, 1.1847E-06, 9.9434E-07, 8.2689E-07,    F08920
     *     7.0589E-07, 6.0750E-07, 5.3176E-07, 4.6936E-07, 4.1541E-07,    F08930
     *     3.6625E-07, 3.2509E-07, 2.9156E-07, 2.6308E-07, 2.3819E-07,    F08940
     *     2.1421E-07, 1.9366E-07, 1.7626E-07, 1.5982E-07, 1.4567E-07,    F08950
     *     1.3354E-07, 1.2097E-07, 1.1029E-07, 1.0063E-07, 9.2003E-08,    F08960
     *     8.4245E-08, 7.7004E-08, 7.0636E-08, 6.4923E-08, 5.9503E-08,    F08970
     *     5.4742E-08, 5.0450E-08, 4.6470E-08, 4.2881E-08, 3.9550E-08,    F08980
     *     3.6541E-08, 3.3803E-08, 3.1279E-08, 2.8955E-08, 2.6858E-08,    F08990
     *     2.4905E-08, 2.3146E-08, 2.1539E-08, 2.0079E-08, 1.8746E-08/    F09000
      DATA S0601/                                                         F09010
     *     1.7517E-08, 1.6396E-08, 1.5369E-08, 1.4426E-08, 1.3543E-08,    F09020
     *     1.2724E-08, 1.1965E-08, 1.1267E-08, 1.0617E-08, 1.0010E-08,    F09030
     *     9.4662E-09, 8.9553E-09, 8.4988E-09, 8.0807E-09, 7.7043E-09,    F09040
     *     7.3721E-09, 7.0707E-09, 6.8047E-09, 6.5702E-09, 6.3634E-09,    F09050
     *     6.1817E-09, 6.0239E-09, 5.8922E-09, 5.7824E-09, 5.7019E-09,    F09060
     *     5.6368E-09, 5.5940E-09, 5.5669E-09, 5.5583E-09, 5.5653E-09,    F09070
     *     5.5837E-09, 5.6243E-09, 5.6883E-09, 5.7800E-09, 5.8964E-09,    F09080
     *     6.0429E-09, 6.2211E-09, 6.4282E-09, 6.6634E-09, 6.9306E-09,    F09090
     *     7.2336E-09, 7.5739E-09, 7.9562E-09, 8.3779E-09, 8.8575E-09,    F09100
     *     9.3992E-09, 1.0004E-08, 1.0684E-08, 1.1450E-08, 1.2320E-08/    F09110
      DATA S0651/                                                         F09120
     *     1.3311E-08, 1.4455E-08, 1.5758E-08, 1.7254E-08, 1.8927E-08,    F09130
     *     2.0930E-08, 2.3348E-08, 2.6074E-08, 2.9221E-08, 3.2770E-08,    F09140
     *     3.7485E-08, 4.2569E-08, 4.8981E-08, 5.5606E-08, 6.2393E-08,    F09150
     *     7.1901E-08, 8.2921E-08, 9.5513E-08, 1.1111E-07, 1.3143E-07,    F09160
     *     1.5971E-07, 1.8927E-07, 2.2643E-07, 2.7860E-07, 3.2591E-07,    F09170
     *     3.7024E-07, 4.2059E-07, 4.9432E-07, 5.5543E-07, 5.7498E-07,    F09180
     *     5.9210E-07, 6.1005E-07, 6.1577E-07, 5.9193E-07, 5.6602E-07,    F09190
     *     5.7403E-07, 6.0050E-07, 6.4723E-07, 6.7073E-07, 7.5415E-07,    F09200
     *     8.0982E-07, 8.7658E-07, 9.1430E-07, 9.4459E-07, 9.8347E-07,    F09210
     *     9.8768E-07, 1.0153E-06, 1.0066E-06, 1.0353E-06, 1.0353E-06/    F09220
      DATA S0701/                                                         F09230
     *     1.0722E-06, 1.1138E-06, 1.1923E-06, 1.2947E-06, 1.4431E-06,    F09240
     *     1.6537E-06, 1.8662E-06, 2.2473E-06, 2.6464E-06, 3.1041E-06,    F09250
     *     3.4858E-06, 4.0167E-06, 4.6675E-06, 5.0983E-06, 5.7997E-06,    F09260
     *     6.0503E-06, 6.4687E-06, 6.5396E-06, 6.7986E-06, 7.0244E-06,    F09270
     *     7.2305E-06, 7.6732E-06, 7.9783E-06, 7.9846E-06, 7.7617E-06,    F09280
     *     7.7657E-06, 7.7411E-06, 7.8816E-06, 7.8136E-06, 8.0051E-06,    F09290
     *     8.5799E-06, 9.1659E-06, 9.8646E-06, 9.4920E-06, 8.7670E-06,    F09300
     *     8.2034E-06, 7.2297E-06, 6.2324E-06, 4.9315E-06, 3.9128E-06,    F09310
     *     3.1517E-06, 2.4469E-06, 1.8815E-06, 1.4627E-06, 1.1698E-06,    F09320
     *     9.4686E-07, 7.8486E-07, 6.6970E-07, 5.8811E-07, 5.2198E-07/    F09330
      DATA S0751/                                                         F09340
     *     4.6809E-07, 4.1671E-07, 3.7006E-07, 3.3066E-07, 2.9387E-07,    F09350
     *     2.6415E-07, 2.3409E-07, 2.0991E-07, 1.9132E-07, 1.7519E-07,    F09360
     *     1.5939E-07, 1.4368E-07, 1.3050E-07, 1.1883E-07, 1.0772E-07,    F09370
     *     9.6884E-08, 8.7888E-08, 7.8956E-08, 7.1024E-08, 6.3824E-08,    F09380
     *     5.7256E-08, 5.1769E-08, 4.7037E-08, 4.2901E-08, 3.8970E-08,    F09390
     *     3.5467E-08, 3.2502E-08, 2.9827E-08, 2.7389E-08, 2.5111E-08,    F09400
     *     2.3056E-08, 2.1267E-08, 1.9610E-08, 1.8133E-08, 1.6775E-08,    F09410
     *     1.5491E-08, 1.4329E-08, 1.3265E-08, 1.2300E-08, 1.1420E-08,    F09420
     *     1.0593E-08, 9.8475E-09, 9.1585E-09, 8.5256E-09, 7.9525E-09,    F09430
     *     7.4226E-09, 6.9379E-09, 6.4950E-09, 6.0911E-09, 5.7242E-09/    F09440
      DATA S0801/                                                         F09450
     *     5.3877E-09, 5.0821E-09, 4.8051E-09, 4.5554E-09, 4.3315E-09,    F09460
     *     4.1336E-09, 3.9632E-09, 3.8185E-09, 3.7080E-09, 3.6296E-09,    F09470
     *     3.5804E-09, 3.5776E-09, 3.6253E-09, 3.7115E-09, 3.8151E-09,    F09480
     *     3.9804E-09, 4.1742E-09, 4.3581E-09, 4.5306E-09, 4.7736E-09,    F09490
     *     5.1297E-09, 5.5291E-09, 5.9125E-09, 6.4956E-09, 7.0362E-09,    F09500
     *     7.5318E-09, 7.9947E-09, 8.6438E-09, 9.7227E-09, 1.0130E-08,    F09510
     *     1.0549E-08, 1.1064E-08, 1.1702E-08, 1.2043E-08, 1.1781E-08,    F09520
     *     1.1838E-08, 1.1917E-08, 1.2131E-08, 1.2476E-08, 1.3611E-08,    F09530
     *     1.4360E-08, 1.5057E-08, 1.6247E-08, 1.7284E-08, 1.8420E-08,    F09540
     *     1.8352E-08, 1.8722E-08, 1.9112E-08, 1.9092E-08, 1.9311E-08/    F09550
      DATA S0851/                                                         F09560
     *     1.9411E-08, 1.9884E-08, 2.0508E-08, 2.1510E-08, 2.3143E-08,    F09570
     *     2.5050E-08, 2.7596E-08, 3.1231E-08, 3.6260E-08, 4.3410E-08,    F09580
     *     5.2240E-08, 6.3236E-08, 7.7522E-08, 9.8688E-08, 1.1859E-07,    F09590
     *     1.4341E-07, 1.6798E-07, 1.9825E-07, 2.2898E-07, 2.6257E-07,    F09600
     *     2.9884E-07, 3.3247E-07, 3.4936E-07, 3.5583E-07, 3.7150E-07,    F09610
     *     3.6580E-07, 3.7124E-07, 3.7030E-07, 4.1536E-07, 4.6656E-07,    F09620
     *     4.6677E-07, 4.7507E-07, 4.9653E-07, 5.3795E-07, 5.4957E-07,    F09630
     *     5.2238E-07, 5.4690E-07, 5.6569E-07, 5.9844E-07, 5.9835E-07,    F09640
     *     5.6522E-07, 5.4123E-07, 4.7904E-07, 4.2851E-07, 3.5603E-07,    F09650
     *     2.8932E-07, 2.3655E-07, 1.8592E-07, 1.4943E-07, 1.1971E-07/    F09660
      DATA S0901/                                                         F09670
     *     9.8482E-08, 8.3675E-08, 7.1270E-08, 6.2496E-08, 5.4999E-08,    F09680
     *     4.9821E-08, 4.5387E-08, 4.1340E-08, 3.7453E-08, 3.3298E-08,    F09690
     *     3.0120E-08, 2.7032E-08, 2.4236E-08, 2.1500E-08, 1.8988E-08,    F09700
     *     1.7414E-08, 1.5706E-08, 1.4192E-08, 1.3204E-08, 1.1759E-08,    F09710
     *     1.0737E-08, 9.6309E-09, 8.8179E-09, 8.2619E-09, 7.2264E-09,    F09720
     *     6.4856E-09, 5.8037E-09, 5.2093E-09, 4.7205E-09, 4.1749E-09,    F09730
     *     3.7852E-09, 3.3915E-09, 3.0089E-09, 2.7335E-09, 2.4398E-09,    F09740
     *     2.2031E-09, 1.9786E-09, 1.7890E-09, 1.6266E-09, 1.4830E-09,    F09750
     *     1.3576E-09, 1.2518E-09, 1.1587E-09, 1.0726E-09, 9.9106E-10,    F09760
     *     9.1673E-10, 8.5084E-10, 7.9147E-10, 7.2882E-10, 6.7342E-10/    F09770
      DATA S0951/                                                         F09780
     *     6.2593E-10, 5.8294E-10, 5.4435E-10, 5.0997E-10, 4.7806E-10,    F09790
     *     4.4931E-10, 4.2357E-10, 4.0023E-10, 3.7909E-10, 3.5999E-10,    F09800
     *     3.4285E-10, 3.2776E-10, 3.1468E-10, 3.0377E-10, 2.9479E-10,    F09810
     *     2.8877E-10, 2.8512E-10, 2.8617E-10, 2.8976E-10, 3.0001E-10,    F09820
     *     3.1718E-10, 3.3898E-10, 3.5857E-10, 3.8358E-10, 4.3131E-10,    F09830
     *     4.5741E-10, 4.6948E-10, 4.7594E-10, 4.9529E-10, 5.1563E-10,    F09840
     *     4.9475E-10, 4.8369E-10, 4.8829E-10, 5.0047E-10, 5.0203E-10,    F09850
     *     5.1954E-10, 5.5352E-10, 5.9928E-10, 6.7148E-10, 7.1121E-10,    F09860
     *     7.4317E-10, 7.6039E-10, 7.8313E-10, 8.0684E-10, 7.8553E-10,    F09870
     *     7.8312E-10, 7.8537E-10, 7.8872E-10, 8.0185E-10, 8.1004E-10/    F09880
      DATA S1001/                                                         F09890
     *     8.2608E-10, 8.2525E-10, 8.3857E-10, 8.7920E-10, 9.2451E-10,    F09900
     *     9.8661E-10, 1.0629E-09, 1.1659E-09, 1.2922E-09, 1.4387E-09,    F09910
     *     1.6254E-09, 1.8425E-09, 2.1428E-09, 2.5477E-09, 3.0379E-09,    F09920
     *     3.7570E-09, 4.4354E-09, 5.1802E-09, 6.2769E-09, 7.4894E-09,    F09930
     *     8.7474E-09, 9.8037E-09, 1.1582E-08, 1.3293E-08, 1.4471E-08,    F09940
     *     1.5025E-08, 1.5580E-08, 1.6228E-08, 1.6413E-08, 1.6020E-08,    F09950
     *     1.6393E-08, 1.7545E-08, 1.9590E-08, 2.1449E-08, 2.3856E-08,    F09960
     *     2.7050E-08, 3.0214E-08, 3.3733E-08, 3.6487E-08, 3.9353E-08,    F09970
     *     4.2660E-08, 4.6385E-08, 4.9955E-08, 5.5313E-08, 6.0923E-08,    F09980
     *     6.8948E-08, 7.3649E-08, 8.2602E-08, 9.2212E-08, 9.9080E-08/    F09990
      DATA S1051/                                                         F10000
     *     1.1319E-07, 1.1790E-07, 1.2941E-07, 1.3199E-07, 1.3914E-07,    F10010
     *     1.4843E-07, 1.5300E-07, 1.6419E-07, 1.7095E-07, 1.6988E-07,    F10020
     *     1.6494E-07, 1.6327E-07, 1.6067E-07, 1.6909E-07, 1.7118E-07,    F10030
     *     1.8106E-07, 1.9857E-07, 2.1696E-07, 2.3385E-07, 2.2776E-07,    F10040
     *     2.1402E-07, 1.9882E-07, 1.7362E-07, 1.4308E-07, 1.1158E-07,    F10050
     *     8.8781E-08, 6.8689E-08, 5.2062E-08, 4.0427E-08, 3.2669E-08,    F10060
     *     2.7354E-08, 2.3200E-08, 2.0580E-08, 1.8676E-08, 1.7329E-08,    F10070
     *     1.6621E-08, 1.6433E-08, 1.6953E-08, 1.7134E-08, 1.7948E-08,    F10080
     *     1.9107E-08, 1.9875E-08, 2.1416E-08, 2.1556E-08, 2.2265E-08,    F10090
     *     2.2171E-08, 2.2534E-08, 2.3029E-08, 2.2828E-08, 2.3143E-08/    F10100
      DATA S1101/                                                         F10110
     *     2.2965E-08, 2.2223E-08, 2.1108E-08, 2.0265E-08, 1.9516E-08,    F10120
     *     1.9941E-08, 2.0312E-08, 2.1080E-08, 2.2611E-08, 2.4210E-08,    F10130
     *     2.6069E-08, 2.5097E-08, 2.3318E-08, 2.1543E-08, 1.8942E-08,    F10140
     *     1.5960E-08, 1.2386E-08, 9.9340E-09, 7.7502E-09, 5.9462E-09,    F10150
     *     4.5113E-09, 3.5523E-09, 2.8844E-09, 2.3394E-09, 1.9584E-09,    F10160
     *     1.6749E-09, 1.4624E-09, 1.2809E-09, 1.1359E-09, 1.0087E-09,    F10170
     *     9.0166E-10, 8.1079E-10, 7.2219E-10, 6.4922E-10, 5.8803E-10,    F10180
     *     5.3290E-10, 4.8590E-10, 4.4111E-10, 4.0184E-10, 3.6644E-10,    F10190
     *     3.3529E-10, 3.0789E-10, 2.8286E-10, 2.6089E-10, 2.4125E-10,    F10200
     *     2.2355E-10, 2.0783E-10, 1.9370E-10, 1.8088E-10, 1.6948E-10/    F10210
      DATA S1151/                                                         F10220
     *     1.5929E-10, 1.5013E-10, 1.4193E-10, 1.3470E-10, 1.2841E-10,    F10230
     *     1.2307E-10, 1.1865E-10, 1.1502E-10, 1.1243E-10, 1.1099E-10,    F10240
     *     1.1066E-10, 1.1216E-10, 1.1529E-10, 1.2171E-10, 1.3128E-10,    F10250
     *     1.4153E-10, 1.5962E-10, 1.8048E-10, 2.0936E-10, 2.3165E-10,    F10260
     *     2.5746E-10, 2.9600E-10, 3.3707E-10, 3.5267E-10, 3.5953E-10,    F10270
     *     3.6822E-10, 3.8363E-10, 3.8286E-10, 3.5883E-10, 3.6154E-10,    F10280
     *     3.6653E-10, 3.8507E-10, 4.0250E-10, 4.4435E-10, 4.9889E-10,    F10290
     *     5.6932E-10, 6.3599E-10, 7.0281E-10, 7.5777E-10, 8.1279E-10,    F10300
     *     8.8910E-10, 9.3400E-10, 1.0076E-09, 1.0945E-09, 1.1898E-09,    F10310
     *     1.3108E-09, 1.4725E-09, 1.7028E-09, 1.9619E-09, 2.3527E-09/    F10320
      DATA S1201/                                                         F10330
     *     2.6488E-09, 3.0327E-09, 3.4396E-09, 3.8797E-09, 4.4115E-09,    F10340
     *     4.6853E-09, 4.9553E-09, 4.9551E-09, 5.1062E-09, 5.0996E-09,    F10350
     *     5.1119E-09, 5.2283E-09, 5.8297E-09, 6.3439E-09, 6.2675E-09,    F10360
     *     6.3296E-09, 6.5173E-09, 7.1685E-09, 7.0528E-09, 6.8856E-09,    F10370
     *     7.3182E-09, 7.6990E-09, 8.3461E-09, 8.1946E-09, 7.7153E-09,    F10380
     *     7.2411E-09, 6.4511E-09, 5.7336E-09, 4.6105E-09, 3.6962E-09,    F10390
     *     2.9944E-09, 2.4317E-09, 1.9399E-09, 1.5331E-09, 1.2633E-09,    F10400
     *     1.0613E-09, 9.0136E-10, 7.9313E-10, 7.1543E-10, 6.6485E-10,    F10410
     *     6.4225E-10, 6.3980E-10, 6.4598E-10, 6.7428E-10, 7.0270E-10,    F10420
     *     7.4694E-10, 7.7946E-10, 7.9395E-10, 7.8716E-10, 7.6933E-10/    F10430
      DATA S1251/                                                         F10440
     *     7.6220E-10, 7.4825E-10, 7.4805E-10, 7.6511E-10, 7.6492E-10,    F10450
     *     7.4103E-10, 7.1979E-10, 7.1686E-10, 7.3403E-10, 7.1142E-10,    F10460
     *     7.0212E-10, 7.1548E-10, 7.5253E-10, 8.0444E-10, 8.2378E-10,    F10470
     *     7.8004E-10, 7.1712E-10, 6.4978E-10, 5.7573E-10, 4.8675E-10,    F10480
     *     3.7945E-10, 3.0118E-10, 2.4241E-10, 1.9100E-10, 1.4816E-10,    F10490
     *     1.1567E-10, 9.4183E-11, 7.7660E-11, 6.5270E-11, 5.6616E-11,    F10500
     *     4.9576E-11, 4.4137E-11, 3.9459E-11, 3.5759E-11, 3.2478E-11,    F10510
     *     2.9419E-11, 2.6703E-11, 2.4365E-11, 2.2412E-11, 2.0606E-11,    F10520
     *     1.9067E-11, 1.7800E-11, 1.6695E-11, 1.5729E-11, 1.4887E-11,    F10530
     *     1.4135E-11, 1.3519E-11, 1.2992E-11, 1.2563E-11, 1.2223E-11/    F10540
      DATA S1301/                                                         F10550
     *     1.1962E-11, 1.1775E-11, 1.1657E-11, 1.1605E-11, 1.1619E-11,    F10560
     *     1.1697E-11, 1.1839E-11, 1.2046E-11, 1.2319E-11, 1.2659E-11,    F10570
     *     1.3070E-11, 1.3553E-11, 1.4113E-11, 1.4754E-11, 1.5480E-11,    F10580
     *     1.6298E-11, 1.7214E-11, 1.8236E-11, 1.9372E-11, 2.0635E-11,    F10590
     *     2.2036E-11, 2.3590E-11, 2.5317E-11, 2.7242E-11, 2.9400E-11,    F10600
     *     3.1849E-11, 3.4654E-11, 3.7923E-11, 4.1695E-11, 4.6055E-11,    F10610
     *     5.0940E-11, 5.5624E-11, 6.0667E-11, 6.6261E-11, 7.2692E-11,    F10620
     *     7.9711E-11, 8.7976E-11, 9.6884E-11, 1.0775E-10, 1.2093E-10,    F10630
     *     1.3531E-10, 1.5404E-10, 1.7315E-10, 1.9862E-10, 2.3341E-10,    F10640
     *     2.7014E-10, 3.1716E-10, 3.6957E-10, 4.3233E-10, 5.2566E-10/    F10650
      DATA S1351/                                                         F10660
     *     6.2251E-10, 7.2149E-10, 8.3958E-10, 9.5931E-10, 1.1388E-09,    F10670
     *     1.2973E-09, 1.4442E-09, 1.5638E-09, 1.6974E-09, 1.8489E-09,    F10680
     *     1.9830E-09, 2.1720E-09, 2.3662E-09, 2.6987E-09, 3.1697E-09,    F10690
     *     3.6907E-09, 4.2625E-09, 4.7946E-09, 5.3848E-09, 6.0897E-09,    F10700
     *     6.4730E-09, 7.1483E-09, 7.7432E-09, 8.0851E-09, 8.5013E-09,    F10710
     *     8.5909E-09, 9.1890E-09, 9.3124E-09, 9.5936E-09, 9.8787E-09,    F10720
     *     9.9036E-09, 9.6712E-09, 9.2036E-09, 9.0466E-09, 8.9380E-09,    F10730
     *     9.1815E-09, 9.5092E-09, 1.0027E-08, 1.0876E-08, 1.1744E-08,    F10740
     *     1.1853E-08, 1.1296E-08, 1.0134E-08, 8.8245E-09, 7.3930E-09,    F10750
     *     5.7150E-09, 4.4884E-09, 3.4027E-09, 2.6054E-09, 2.0790E-09/    F10760
      DATA S1401/                                                         F10770
     *     1.7267E-09, 1.4724E-09, 1.2722E-09, 1.1234E-09, 1.0186E-09,    F10780
     *     9.4680E-10, 8.8854E-10, 8.5127E-10, 8.3157E-10, 8.2226E-10,    F10790
     *     8.3395E-10, 8.3294E-10, 8.4725E-10, 8.8814E-10, 9.3697E-10,    F10800
     *     1.0112E-09, 1.0412E-09, 1.0948E-09, 1.1810E-09, 1.2267E-09,    F10810
     *     1.3690E-09, 1.4512E-09, 1.5568E-09, 1.6552E-09, 1.7321E-09,    F10820
     *     1.8797E-09, 1.9210E-09, 1.9686E-09, 1.9917E-09, 1.9357E-09,    F10830
     *     1.8486E-09, 1.7575E-09, 1.7113E-09, 1.7163E-09, 1.7623E-09,    F10840
     *     1.8536E-09, 1.9765E-09, 2.1334E-09, 2.3237E-09, 2.3259E-09,    F10850
     *     2.1833E-09, 1.9785E-09, 1.7308E-09, 1.4596E-09, 1.1198E-09,    F10860
     *     8.7375E-10, 6.5381E-10, 4.8677E-10, 3.6756E-10, 2.9155E-10/    F10870
      DATA S1451/                                                         F10880
     *     2.3735E-10, 1.9590E-10, 1.6638E-10, 1.4549E-10, 1.2947E-10,    F10890
     *     1.1511E-10, 1.0548E-10, 9.6511E-11, 9.0469E-11, 8.5170E-11,    F10900
     *     7.7804E-11, 7.1971E-11, 6.6213E-11, 6.1063E-11, 5.5881E-11,    F10910
     *     5.0508E-11, 4.5932E-11, 4.1997E-11, 3.7672E-11, 3.3972E-11,    F10920
     *     3.0318E-11, 2.6769E-11, 2.3874E-11, 2.1336E-11, 1.9073E-11,    F10930
     *     1.7313E-11, 1.5904E-11, 1.4684E-11, 1.3698E-11, 1.2873E-11,    F10940
     *     1.2175E-11, 1.1542E-11, 1.1024E-11, 1.0602E-11, 1.0267E-11,    F10950
     *     1.0012E-11, 9.8379E-12, 9.7482E-12, 9.7564E-12, 9.8613E-12,    F10960
     *     1.0092E-11, 1.0418E-11, 1.0868E-11, 1.1585E-11, 1.2351E-11,    F10970
     *     1.3372E-11, 1.4841E-11, 1.6457E-11, 1.8681E-11, 2.0550E-11/    F10980
      DATA S1501/                                                         F10990
     *     2.2912E-11, 2.5958E-11, 2.9137E-11, 3.2368E-11, 3.4848E-11,    F11000
     *     3.8462E-11, 4.2190E-11, 4.5629E-11, 4.9022E-11, 5.4232E-11,    F11010
     *     6.1900E-11, 7.1953E-11, 8.5368E-11, 9.9699E-11, 1.1734E-10,    F11020
     *     1.4185E-10, 1.7017E-10, 1.9813E-10, 2.3859E-10, 2.7304E-10,    F11030
     *     3.0971E-10, 3.5129E-10, 3.9405E-10, 4.5194E-10, 4.8932E-10,    F11040
     *     5.2436E-10, 5.4098E-10, 5.5542E-10, 5.7794E-10, 5.6992E-10,    F11050
     *     5.8790E-10, 6.1526E-10, 6.8034E-10, 6.7956E-10, 6.6864E-10,    F11060
     *     6.9329E-10, 7.2971E-10, 7.6546E-10, 7.5078E-10, 7.8406E-10,    F11070
     *     8.3896E-10, 9.0111E-10, 9.1994E-10, 8.7189E-10, 8.1426E-10,    F11080
     *     7.3097E-10, 6.3357E-10, 5.1371E-10, 4.0936E-10, 3.2918E-10/    F11090
      DATA S1551/                                                         F11100
     *     2.6255E-10, 2.0724E-10, 1.6879E-10, 1.4165E-10, 1.1989E-10,    F11110
     *     1.0125E-10, 8.9629E-11, 7.8458E-11, 6.8826E-11, 6.0935E-11,    F11120
     *     5.5208E-11, 5.2262E-11, 5.0260E-11, 4.8457E-11, 4.7888E-11,    F11130
     *     4.8032E-11, 5.0838E-11, 5.4668E-11, 5.5790E-11, 6.0056E-11,    F11140
     *     6.3811E-11, 6.8848E-11, 7.4590E-11, 7.8249E-11, 8.3371E-11,    F11150
     *     8.3641E-11, 8.6591E-11, 8.9599E-11, 9.3487E-11, 1.0066E-10,    F11160
     *     1.0765E-10, 1.0851E-10, 1.0619E-10, 1.0557E-10, 1.0460E-10,    F11170
     *     1.0796E-10, 1.0523E-10, 1.0674E-10, 1.1261E-10, 1.1431E-10,    F11180
     *     1.1408E-10, 1.0901E-10, 9.9105E-11, 8.8077E-11, 6.9928E-11,    F11190
     *     5.4595E-11, 4.5401E-11, 3.6313E-11, 2.6986E-11, 1.9463E-11/    F11200
      DATA S1601/                                                         F11210
     *     1.4577E-11, 1.1583E-11, 9.5492E-12, 8.0770E-12, 6.9642E-12,    F11220
     *     6.0966E-12, 5.4046E-12, 4.8431E-12, 4.3815E-12, 3.9987E-12,    F11230
     *     3.6790E-12, 3.4113E-12, 3.1868E-12, 2.9992E-12, 2.8434E-12,    F11240
     *     2.7153E-12, 2.6120E-12, 2.5311E-12, 2.4705E-12, 2.4290E-12,    F11250
     *     2.4053E-12, 2.3988E-12, 2.4087E-12, 2.4349E-12, 2.4771E-12,    F11260
     *     2.5355E-12, 2.6103E-12, 2.7019E-12, 2.8110E-12, 2.9383E-12,    F11270
     *     3.0848E-12, 3.2518E-12, 3.4405E-12, 3.6527E-12, 3.8902E-12,    F11280
     *     4.1555E-12, 4.4510E-12, 4.7801E-12, 5.1462E-12, 5.5539E-12,    F11290
     *     6.0086E-12, 6.5171E-12, 7.0884E-12, 7.7357E-12, 8.4831E-12,    F11300
     *     9.3096E-12, 1.0282E-11, 1.1407E-11, 1.2690E-11, 1.4148E-11/    F11310
      DATA S1651/                                                         F11320
     *     1.5888E-11, 1.7992E-11, 2.0523E-11, 2.3342E-11, 2.6578E-11,    F11330
     *     3.0909E-11, 3.6228E-11, 4.2053E-11, 4.9059E-11, 5.9273E-11,    F11340
     *     7.0166E-11, 8.2298E-11, 9.7071E-11, 1.1673E-10, 1.4010E-10,    F11350
     *     1.6621E-10, 2.0127E-10, 2.3586E-10, 2.7050E-10, 3.0950E-10,    F11360
     *     3.6584E-10, 4.1278E-10, 4.6591E-10, 5.2220E-10, 5.5246E-10,    F11370
     *     6.1500E-10, 6.5878E-10, 7.1167E-10, 7.9372E-10, 8.6975E-10,    F11380
     *     9.6459E-10, 9.7368E-10, 9.8142E-10, 1.0202E-09, 1.0200E-09,    F11390
     *     1.0356E-09, 1.0092E-09, 1.0269E-09, 1.0366E-09, 1.0490E-09,    F11400
     *     1.0717E-09, 1.0792E-09, 1.1016E-09, 1.0849E-09, 1.0929E-09,    F11410
     *     1.0971E-09, 1.0969E-09, 1.0460E-09, 9.2026E-10, 8.1113E-10/    F11420
      DATA S1701/                                                         F11430
     *     6.8635E-10, 5.5369E-10, 4.2908E-10, 3.3384E-10, 2.6480E-10,    F11440
     *     2.0810E-10, 1.6915E-10, 1.4051E-10, 1.1867E-10, 1.0158E-10,    F11450
     *     8.8990E-11, 7.9175E-11, 7.0440E-11, 6.3453E-11, 5.7009E-11,    F11460
     *     5.1662E-11, 4.7219E-11, 4.3454E-11, 4.0229E-11, 3.7689E-11,    F11470
     *     3.6567E-11, 3.5865E-11, 3.5955E-11, 3.5928E-11, 3.6298E-11,    F11480
     *     3.7629E-11, 3.9300E-11, 4.1829E-11, 4.4806E-11, 5.0534E-11,    F11490
     *     5.6672E-11, 6.2138E-11, 6.8678E-11, 7.6111E-11, 8.4591E-11,    F11500
     *     9.2634E-11, 9.8085E-11, 1.0830E-10, 1.1949E-10, 1.2511E-10,    F11510
     *     1.3394E-10, 1.3505E-10, 1.4342E-10, 1.4874E-10, 1.4920E-10,    F11520
     *     1.5872E-10, 1.5972E-10, 1.5821E-10, 1.5425E-10, 1.4937E-10/    F11530
      DATA S1751/                                                         F11540
     *     1.5089E-10, 1.5521E-10, 1.6325E-10, 1.6924E-10, 1.8265E-10,    F11550
     *     1.9612E-10, 2.0176E-10, 1.9359E-10, 1.7085E-10, 1.5197E-10,    F11560
     *     1.2646E-10, 9.8552E-11, 7.4530E-11, 5.5052E-11, 4.2315E-11,    F11570
     *     3.2736E-11, 2.6171E-11, 2.1909E-11, 1.8286E-11, 1.5752E-11,    F11580
     *     1.3859E-11, 1.2288E-11, 1.1002E-11, 9.7534E-12, 8.8412E-12,    F11590
     *     8.0169E-12, 7.2855E-12, 6.8734E-12, 6.4121E-12, 6.1471E-12,    F11600
     *     5.7780E-12, 5.3478E-12, 4.9652E-12, 4.4043E-12, 3.9862E-12,    F11610
     *     3.4684E-12, 2.9681E-12, 2.5791E-12, 2.2339E-12, 1.9247E-12,    F11620
     *     1.6849E-12, 1.4863E-12, 1.3291E-12, 1.2021E-12, 1.0947E-12,    F11630
     *     1.0015E-12, 9.1935E-13, 8.4612E-13, 7.8036E-13, 7.2100E-13/    F11640
      DATA S1801/                                                         F11650
     *     6.6718E-13, 6.1821E-13, 5.7353E-13, 5.3269E-13, 4.9526E-13,    F11660
     *     4.6093E-13, 4.2937E-13, 4.0034E-13, 3.7361E-13, 3.4895E-13,    F11670
     *     3.2621E-13, 3.0520E-13, 2.8578E-13, 2.6782E-13, 2.5120E-13,    F11680
     *     2.3581E-13, 2.2154E-13, 2.0832E-13, 1.9605E-13, 1.8466E-13,    F11690
     *     1.7408E-13, 1.6425E-13, 1.5511E-13, 1.4661E-13, 1.3869E-13,    F11700
     *     1.3131E-13, 1.2444E-13, 1.1803E-13, 1.1205E-13, 1.0646E-13,    F11710
     *     1.0124E-13, 9.6358E-14, 9.1789E-14, 8.7509E-14, 8.3498E-14,    F11720
     *     7.9735E-14, 7.6202E-14, 7.2882E-14, 6.9760E-14, 6.6822E-14,    F11730
     *     6.4053E-14, 6.1442E-14, 5.8978E-14, 5.6650E-14, 5.4448E-14,    F11740
     *     5.2364E-14, 5.0389E-14, 4.8516E-14, 4.6738E-14, 4.5048E-14/    F11750
      DATA S1851/                                                         F11760
     *     4.3441E-14, 4.1911E-14, 4.0453E-14, 3.9063E-14, 3.7735E-14,    F11770
     *     3.6467E-14, 3.5254E-14, 3.4093E-14, 3.2980E-14, 3.1914E-14,    F11780
     *     3.0891E-14, 2.9909E-14, 2.8965E-14, 2.8058E-14, 2.7185E-14,    F11790
     *     2.6344E-14, 2.5535E-14, 2.4755E-14, 2.4002E-14, 2.3276E-14,    F11800
     *     2.2576E-14, 2.1899E-14, 2.1245E-14, 2.0613E-14, 2.0002E-14,    F11810
     *     1.9411E-14, 1.8839E-14, 1.8285E-14, 1.7749E-14, 1.7230E-14,    F11820
     *     1.6727E-14, 1.6240E-14, 1.5768E-14, 1.5310E-14, 1.4867E-14,    F11830
     *     1.4436E-14, 1.4019E-14, 1.3614E-14, 1.3221E-14, 1.2840E-14,    F11840
     *     1.2471E-14, 1.2112E-14, 1.1764E-14, 1.1425E-14, 1.1097E-14,    F11850
     *     1.0779E-14, 1.0469E-14, 1.0169E-14, 9.8775E-15, 9.5943E-15/    F11860
      DATA S1901/                                                         F11870
     *     9.3193E-15, 9.0522E-15, 8.7928E-15, 8.5409E-15, 8.2962E-15,    F11880
     *     8.0586E-15, 7.8278E-15, 7.6036E-15, 7.3858E-15, 7.1742E-15,    F11890
     *     6.9687E-15, 6.7691E-15, 6.5752E-15, 6.3868E-15, 6.2038E-15,    F11900
     *     6.0260E-15, 5.8533E-15, 5.6856E-15, 5.5226E-15, 5.3642E-15,    F11910
     *     5.2104E-15, 5.0610E-15, 4.9158E-15, 4.7748E-15, 4.6378E-15,    F11920
     *     4.5047E-15, 4.3753E-15, 4.2497E-15, 4.1277E-15, 4.0091E-15,    F11930
     *     3.8939E-15, 3.7820E-15, 3.6733E-15, 3.5677E-15, 3.4651E-15,    F11940
     *     3.3655E-15, 3.2686E-15, 3.1746E-15, 3.0832E-15, 2.9944E-15,    F11950
     *     2.9082E-15, 2.8244E-15, 2.7431E-15, 2.6640E-15, 2.5872E-15,    F11960
     *     2.5126E-15, 2.4401E-15, 2.3697E-15, 2.3014E-15, 2.2349E-15/    F11970
      DATA S1951/                                                         F11980
     *     2.1704E-15, 2.1077E-15, 2.0468E-15, 1.9877E-15, 1.9302E-15,    F11990
     *     1.8744E-15, 1.8202E-15, 1.7675E-15, 1.7164E-15, 1.6667E-15,    F12000
     *     1.6184E-15, 1.5716E-15, 1.5260E-15, 1.4818E-15, 1.4389E-15,    F12010
     *     1.3971E-15, 1.3566E-15, 1.3172E-15, 1.2790E-15, 1.2419E-15,    F12020
     *     1.2058E-15, 1.1708E-15, 1.1368E-15, 1.1037E-15, 1.0716E-15,    F12030
     *     1.0405E-15, 1.0102E-15, 9.8079E-16, 9.5224E-16, 9.2451E-16,    F12040
     *     8.9758E-16, 8.7142E-16, 8.4602E-16, 8.2136E-16, 7.9740E-16,    F12050
     *     7.7414E-16, 7.5154E-16, 7.2961E-16, 7.0830E-16, 6.8761E-16,    F12060
     *     6.6752E-16, 6.4801E-16, 6.2906E-16, 6.1066E-16, 5.9280E-16,    F12070
     *     5.7545E-16, 5.5860E-16, 5.4224E-16, 5.2636E-16, 5.1094E-16/    F12080
      DATA S2001/                                                         F12090
     *     4.9596E-16/                                                    F12100
C                                                                         F12110
      END                                                                 F12120
C
C
      BLOCK DATA BFH2O                                                    F12430
C                                                                         F12440
      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)
C                                                                         F12460
C               06/28/82                                                  F12470
C               UNITS OF (CM**3/MOL)*1.E-20                               F12480
C                                                                         F12490
      COMMON /FH2O/ V1,V2,DV,NPT,                                         F12500
     *              F0000( 2),F0001(50),F0051(50),F0101(50),F0151(50),    F12510
     *              F0201(50),F0251(50),F0301(50),F0351(50),F0401(50),    F12520
     *              F0451(50),F0501(50),F0551(50),F0601(50),F0651(50),    F12530
     *              F0701(50),F0751(50),F0801(50),F0851(50),F0901(50),    F12540
     *              F0951(50),F1001(50),F1051(50),F1101(50),F1151(50),    F12550
     *              F1201(50),F1251(50),F1301(50),F1351(50),F1401(50),    F12560
     *              F1451(50),F1501(50),F1551(50),F1601(50),F1651(50),    F12570
     *              F1701(50),F1751(50),F1801(50),F1851(50),F1901(50),    F12580
     *              F1951(50),F2001(1)                                    F12590
C                                                                         F12600
       DATA V1,V2,DV,NPT / -20.0, 20000.0, 10.0, 2003/                    F12610
C                                                                         F12620
      DATA F0000/                                                         F12630
     *     1.2859E-02, 1.1715E-02/                                        F12640
      DATA F0001/                                                         F12650
     *     1.1038E-02, 1.1715E-02, 1.2859E-02, 1.5326E-02, 1.6999E-02,    F12660
     *     1.8321E-02, 1.9402E-02, 1.9570E-02, 1.9432E-02, 1.7572E-02,    F12670
     *     1.6760E-02, 1.5480E-02, 1.3984E-02, 1.2266E-02, 1.0467E-02,    F12680
     *     9.4526E-03, 8.0485E-03, 6.9484E-03, 6.1416E-03, 5.0941E-03,    F12690
     *     4.4836E-03, 3.8133E-03, 3.4608E-03, 3.1487E-03, 2.4555E-03,    F12700
     *     2.0977E-03, 1.7266E-03, 1.4920E-03, 1.2709E-03, 9.8081E-04,    F12710
     *     8.5063E-04, 6.8822E-04, 5.3809E-04, 4.4679E-04, 3.3774E-04,    F12720
     *     2.7979E-04, 2.1047E-04, 1.6511E-04, 1.2993E-04, 9.3033E-05,    F12730
     *     7.4360E-05, 5.6428E-05, 4.5442E-05, 3.4575E-05, 2.7903E-05,    F12740
     *     2.1374E-05, 1.6075E-05, 1.3022E-05, 1.0962E-05, 8.5959E-06/    F12750
      DATA F0051/                                                         F12760
     *     6.9125E-06, 5.3808E-06, 4.3586E-06, 3.6394E-06, 2.9552E-06,    F12770
     *     2.3547E-06, 1.8463E-06, 1.6036E-06, 1.3483E-06, 1.1968E-06,    F12780
     *     1.0333E-06, 8.4484E-07, 6.7195E-07, 5.0947E-07, 4.2343E-07,    F12790
     *     3.4453E-07, 2.7830E-07, 2.3063E-07, 1.9951E-07, 1.7087E-07,    F12800
     *     1.4393E-07, 1.2575E-07, 1.0750E-07, 8.2325E-08, 5.7524E-08,    F12810
     *     4.4482E-08, 3.8106E-08, 3.4315E-08, 2.9422E-08, 2.5069E-08,    F12820
     *     2.2402E-08, 1.9349E-08, 1.6152E-08, 1.2208E-08, 8.9660E-09,    F12830
     *     7.1322E-09, 6.1028E-09, 5.2938E-09, 4.5350E-09, 3.4977E-09,    F12840
     *     2.9511E-09, 2.4734E-09, 2.0508E-09, 1.8507E-09, 1.6373E-09,    F12850
     *     1.5171E-09, 1.3071E-09, 1.2462E-09, 1.2148E-09, 1.2590E-09/    F12860
      DATA F0101/                                                         F12870
     *     1.3153E-09, 1.3301E-09, 1.4483E-09, 1.6944E-09, 2.0559E-09,    F12880
     *     2.2954E-09, 2.6221E-09, 3.2606E-09, 4.2392E-09, 5.2171E-09,    F12890
     *     6.2553E-09, 8.2548E-09, 9.5842E-09, 1.1280E-08, 1.3628E-08,    F12900
     *     1.7635E-08, 2.1576E-08, 2.4835E-08, 3.0014E-08, 3.8485E-08,    F12910
     *     4.7440E-08, 5.5202E-08, 7.0897E-08, 9.6578E-08, 1.3976E-07,    F12920
     *     1.8391E-07, 2.3207E-07, 2.9960E-07, 4.0408E-07, 5.9260E-07,    F12930
     *     7.8487E-07, 1.0947E-06, 1.4676E-06, 1.9325E-06, 2.6587E-06,    F12940
     *     3.4534E-06, 4.4376E-06, 5.8061E-06, 7.0141E-06, 8.4937E-06,    F12950
     *     1.0186E-05, 1.2034E-05, 1.3837E-05, 1.6595E-05, 1.9259E-05,    F12960
     *     2.1620E-05, 2.3681E-05, 2.7064E-05, 3.2510E-05, 3.5460E-05/    F12970
      DATA F0151/                                                         F12980
     *     3.9109E-05, 4.2891E-05, 4.7757E-05, 5.0981E-05, 5.0527E-05,    F12990
     *     4.8618E-05, 4.4001E-05, 3.7982E-05, 3.2667E-05, 2.7794E-05,    F13000
     *     2.4910E-05, 2.4375E-05, 2.7316E-05, 3.2579E-05, 3.5499E-05,    F13010
     *     3.8010E-05, 4.1353E-05, 4.3323E-05, 4.3004E-05, 3.9790E-05,    F13020
     *     3.7718E-05, 3.6360E-05, 3.2386E-05, 2.7409E-05, 2.3626E-05,    F13030
     *     2.0631E-05, 1.8371E-05, 1.5445E-05, 1.2989E-05, 1.1098E-05,    F13040
     *     9.6552E-06, 8.0649E-06, 7.2365E-06, 5.9137E-06, 5.2759E-06,    F13050
     *     4.8860E-06, 4.1321E-06, 3.5918E-06, 2.7640E-06, 2.4892E-06,    F13060
     *     2.1018E-06, 1.7848E-06, 1.5855E-06, 1.3569E-06, 1.1986E-06,    F13070
     *     9.4693E-07, 7.4097E-07, 6.3443E-07, 4.8131E-07, 4.0942E-07/    F13080
      DATA F0201/                                                         F13090
     *     3.3316E-07, 2.8488E-07, 2.3461E-07, 1.7397E-07, 1.4684E-07,    F13100
     *     1.0953E-07, 8.5396E-08, 6.9261E-08, 5.4001E-08, 4.5430E-08,    F13110
     *     3.2791E-08, 2.5995E-08, 2.0225E-08, 1.5710E-08, 1.3027E-08,    F13120
     *     1.0229E-08, 8.5277E-09, 6.5249E-09, 5.0117E-09, 3.9906E-09,    F13130
     *     3.2332E-09, 2.7847E-09, 2.4570E-09, 2.3359E-09, 2.0599E-09,    F13140
     *     1.8436E-09, 1.6559E-09, 1.4910E-09, 1.2794E-09, 9.8229E-10,    F13150
     *     8.0054E-10, 6.0769E-10, 4.5646E-10, 3.3111E-10, 2.4428E-10,    F13160
     *     1.8007E-10, 1.3291E-10, 9.7974E-11, 7.8271E-11, 6.3833E-11,    F13170
     *     5.4425E-11, 4.6471E-11, 4.0209E-11, 3.5227E-11, 3.1212E-11,    F13180
     *     2.8840E-11, 2.7762E-11, 2.7935E-11, 3.2012E-11, 3.9525E-11/    F13190
      DATA F0251/                                                         F13200
     *     5.0303E-11, 6.8027E-11, 9.3954E-11, 1.2986E-10, 1.8478E-10,    F13210
     *     2.5331E-10, 3.4827E-10, 4.6968E-10, 6.2380E-10, 7.9106E-10,    F13220
     *     1.0026E-09, 1.2102E-09, 1.4146E-09, 1.6154E-09, 1.7510E-09,    F13230
     *     1.8575E-09, 1.8742E-09, 1.8700E-09, 1.8582E-09, 1.9657E-09,    F13240
     *     2.1204E-09, 2.0381E-09, 2.0122E-09, 2.0436E-09, 2.1213E-09,    F13250
     *     2.0742E-09, 1.9870E-09, 2.0465E-09, 2.1556E-09, 2.2222E-09,    F13260
     *     2.1977E-09, 2.1047E-09, 1.9334E-09, 1.7357E-09, 1.5754E-09,    F13270
     *     1.4398E-09, 1.4018E-09, 1.5459E-09, 1.7576E-09, 2.1645E-09,    F13280
     *     2.9480E-09, 4.4439E-09, 5.8341E-09, 8.0757E-09, 1.1658E-08,    F13290
     *     1.6793E-08, 2.2694E-08, 2.9468E-08, 3.9278E-08, 5.2145E-08/    F13300
      DATA F0301/                                                         F13310
     *     6.4378E-08, 7.7947E-08, 8.5321E-08, 9.7848E-08, 1.0999E-07,    F13320
     *     1.1489E-07, 1.2082E-07, 1.2822E-07, 1.4053E-07, 1.5238E-07,    F13330
     *     1.5454E-07, 1.5018E-07, 1.4048E-07, 1.2359E-07, 1.0858E-07,    F13340
     *     9.3486E-08, 8.1638E-08, 7.7690E-08, 8.4625E-08, 1.0114E-07,    F13350
     *     1.1430E-07, 1.2263E-07, 1.3084E-07, 1.3380E-07, 1.3573E-07,    F13360
     *     1.3441E-07, 1.2962E-07, 1.2638E-07, 1.1934E-07, 1.1371E-07,    F13370
     *     1.0871E-07, 9.8843E-08, 9.1877E-08, 9.1050E-08, 9.3213E-08,    F13380
     *     9.2929E-08, 1.0155E-07, 1.1263E-07, 1.2370E-07, 1.3636E-07,    F13390
     *     1.5400E-07, 1.7656E-07, 2.1329E-07, 2.3045E-07, 2.5811E-07,    F13400
     *     2.9261E-07, 3.4259E-07, 4.0770E-07, 4.8771E-07, 5.8081E-07/    F13410
      DATA F0351/                                                         F13420
     *     7.2895E-07, 8.7482E-07, 1.0795E-06, 1.3384E-06, 1.7208E-06,    F13430
     *     2.0677E-06, 2.5294E-06, 3.1123E-06, 3.7900E-06, 4.7752E-06,    F13440
     *     5.6891E-06, 6.6261E-06, 7.6246E-06, 8.7730E-06, 9.6672E-06,    F13450
     *     1.0980E-05, 1.1287E-05, 1.1670E-05, 1.1635E-05, 1.1768E-05,    F13460
     *     1.2039E-05, 1.2253E-05, 1.3294E-05, 1.4005E-05, 1.3854E-05,    F13470
     *     1.3420E-05, 1.3003E-05, 1.2645E-05, 1.1715E-05, 1.1258E-05,    F13480
     *     1.1516E-05, 1.2494E-05, 1.3655E-05, 1.4931E-05, 1.4649E-05,    F13490
     *     1.3857E-05, 1.3120E-05, 1.1791E-05, 1.0637E-05, 8.2760E-06,    F13500
     *     6.5821E-06, 5.1959E-06, 4.0158E-06, 3.0131E-06, 2.0462E-06,    F13510
     *     1.4853E-06, 1.0365E-06, 7.3938E-07, 4.9752E-07, 3.4148E-07/    F13520
      DATA F0401/                                                         F13530
     *     2.4992E-07, 1.8363E-07, 1.4591E-07, 1.1380E-07, 9.0588E-08,    F13540
     *     7.3697E-08, 6.0252E-08, 5.1868E-08, 4.2660E-08, 3.6163E-08,    F13550
     *     3.2512E-08, 2.9258E-08, 2.4238E-08, 2.1209E-08, 1.6362E-08,    F13560
     *     1.3871E-08, 1.2355E-08, 9.6940E-09, 7.7735E-09, 6.2278E-09,    F13570
     *     5.2282E-09, 4.3799E-09, 3.5545E-09, 2.7527E-09, 2.0950E-09,    F13580
     *     1.6344E-09, 1.2689E-09, 1.0403E-09, 8.4880E-10, 6.3461E-10,    F13590
     *     4.7657E-10, 3.5220E-10, 2.7879E-10, 2.3021E-10, 1.6167E-10,    F13600
     *     1.1732E-10, 8.9206E-11, 7.0596E-11, 5.8310E-11, 4.4084E-11,    F13610
     *     3.1534E-11, 2.5068E-11, 2.2088E-11, 2.2579E-11, 2.2637E-11,    F13620
     *     2.5705E-11, 3.2415E-11, 4.6116E-11, 6.5346E-11, 9.4842E-11/    F13630
      DATA F0451/                                                         F13640
     *     1.2809E-10, 1.8211E-10, 2.4052E-10, 3.0270E-10, 3.5531E-10,    F13650
     *     4.2402E-10, 4.6730E-10, 4.7942E-10, 4.6813E-10, 4.5997E-10,    F13660
     *     4.5788E-10, 4.0311E-10, 3.7367E-10, 3.3149E-10, 2.9281E-10,    F13670
     *     2.5231E-10, 2.1152E-10, 1.9799E-10, 1.8636E-10, 1.9085E-10,    F13680
     *     2.0786E-10, 2.2464E-10, 2.3785E-10, 2.5684E-10, 2.7499E-10,    F13690
     *     2.6962E-10, 2.6378E-10, 2.6297E-10, 2.6903E-10, 2.7035E-10,    F13700
     *     2.5394E-10, 2.5655E-10, 2.7184E-10, 2.9013E-10, 3.0585E-10,    F13710
     *     3.0791E-10, 3.1667E-10, 3.4343E-10, 3.7365E-10, 4.0269E-10,    F13720
     *     4.7260E-10, 5.6584E-10, 6.9791E-10, 8.6569E-10, 1.0393E-09,    F13730
     *     1.2067E-09, 1.5047E-09, 1.8583E-09, 2.2357E-09, 2.6498E-09/    F13740
      DATA F0501/                                                         F13750
     *     3.2483E-09, 3.9927E-09, 4.6618E-09, 5.5555E-09, 6.6609E-09,    F13760
     *     8.2139E-09, 1.0285E-08, 1.3919E-08, 1.8786E-08, 2.5150E-08,    F13770
     *     3.3130E-08, 4.5442E-08, 6.3370E-08, 9.0628E-08, 1.2118E-07,    F13780
     *     1.5927E-07, 2.1358E-07, 2.7825E-07, 3.7671E-07, 4.4894E-07,    F13790
     *     5.4442E-07, 6.2240E-07, 7.3004E-07, 8.3384E-07, 8.7933E-07,    F13800
     *     8.8080E-07, 8.6939E-07, 8.6541E-07, 8.2055E-07, 7.7278E-07,    F13810
     *     7.5989E-07, 8.6909E-07, 9.7945E-07, 1.0394E-06, 1.0646E-06,    F13820
     *     1.1509E-06, 1.2017E-06, 1.1915E-06, 1.1259E-06, 1.1549E-06,    F13830
     *     1.1938E-06, 1.2356E-06, 1.2404E-06, 1.1716E-06, 1.1149E-06,    F13840
     *     1.0073E-06, 8.9845E-07, 7.6639E-07, 6.1517E-07, 5.0887E-07/    F13850
      DATA F0551/                                                         F13860
     *     4.1269E-07, 3.2474E-07, 2.5698E-07, 1.8893E-07, 1.4009E-07,    F13870
     *     1.0340E-07, 7.7724E-08, 5.7302E-08, 4.2178E-08, 2.9603E-08,    F13880
     *     2.1945E-08, 1.6301E-08, 1.2806E-08, 1.0048E-08, 7.8970E-09,    F13890
     *     6.1133E-09, 4.9054E-09, 4.1985E-09, 3.6944E-09, 3.2586E-09,    F13900
     *     2.7362E-09, 2.3647E-09, 2.1249E-09, 1.8172E-09, 1.6224E-09,    F13910
     *     1.5158E-09, 1.2361E-09, 1.0682E-09, 9.2312E-10, 7.9220E-10,    F13920
     *     6.8174E-10, 5.6147E-10, 4.8268E-10, 4.1534E-10, 3.3106E-10,    F13930
     *     2.8275E-10, 2.4584E-10, 2.0742E-10, 1.7840E-10, 1.4664E-10,    F13940
     *     1.2390E-10, 1.0497E-10, 8.5038E-11, 6.7008E-11, 5.6355E-11,    F13950
     *     4.3323E-11, 3.6914E-11, 3.2262E-11, 3.0749E-11, 3.0318E-11/    F13960
      DATA F0601/                                                         F13970
     *     2.9447E-11, 2.9918E-11, 3.0668E-11, 3.1315E-11, 3.0329E-11,    F13980
     *     2.8259E-11, 2.6065E-11, 2.3578E-11, 2.0469E-11, 1.6908E-11,    F13990
     *     1.4912E-11, 1.1867E-11, 9.9730E-12, 8.1014E-12, 6.7528E-12,    F14000
     *     6.3133E-12, 5.8599E-12, 6.0145E-12, 6.5105E-12, 7.0537E-12,    F14010
     *     7.4973E-12, 7.8519E-12, 8.5039E-12, 9.1995E-12, 1.0694E-11,    F14020
     *     1.1659E-11, 1.2685E-11, 1.3087E-11, 1.3222E-11, 1.2634E-11,    F14030
     *     1.1077E-11, 9.6259E-12, 8.3202E-12, 7.4857E-12, 6.8069E-12,    F14040
     *     6.7496E-12, 7.3116E-12, 8.0171E-12, 8.6394E-12, 9.2659E-12,    F14050
     *     1.0048E-11, 1.0941E-11, 1.2226E-11, 1.3058E-11, 1.5193E-11,    F14060
     *     1.8923E-11, 2.3334E-11, 2.8787E-11, 3.6693E-11, 4.8295E-11/    F14070
      DATA F0651/                                                         F14080
     *     6.4260E-11, 8.8269E-11, 1.1865E-10, 1.5961E-10, 2.0605E-10,    F14090
     *     2.7349E-10, 3.7193E-10, 4.8216E-10, 6.1966E-10, 7.7150E-10,    F14100
     *     1.0195E-09, 1.2859E-09, 1.6535E-09, 2.0316E-09, 2.3913E-09,    F14110
     *     3.0114E-09, 3.7495E-09, 4.6504E-09, 5.9145E-09, 7.6840E-09,    F14120
     *     1.0304E-08, 1.3010E-08, 1.6441E-08, 2.1475E-08, 2.5892E-08,    F14130
     *     2.9788E-08, 3.3820E-08, 4.0007E-08, 4.4888E-08, 4.5765E-08,    F14140
     *     4.6131E-08, 4.6239E-08, 4.4849E-08, 4.0729E-08, 3.6856E-08,    F14150
     *     3.6164E-08, 3.7606E-08, 4.1457E-08, 4.3750E-08, 5.1150E-08,    F14160
     *     5.6054E-08, 6.1586E-08, 6.4521E-08, 6.6494E-08, 6.9024E-08,    F14170
     *     6.8893E-08, 7.0901E-08, 6.9760E-08, 7.1485E-08, 7.0740E-08/    F14180
      DATA F0701/                                                         F14190
     *     7.3764E-08, 7.6618E-08, 8.4182E-08, 9.3838E-08, 1.0761E-07,    F14200
     *     1.2851E-07, 1.4748E-07, 1.8407E-07, 2.2109E-07, 2.6392E-07,    F14210
     *     2.9887E-07, 3.4493E-07, 4.0336E-07, 4.3551E-07, 4.9231E-07,    F14220
     *     5.0728E-07, 5.3781E-07, 5.3285E-07, 5.4496E-07, 5.5707E-07,    F14230
     *     5.6944E-07, 6.1123E-07, 6.4317E-07, 6.4581E-07, 6.1999E-07,    F14240
     *     6.0191E-07, 5.7762E-07, 5.7241E-07, 5.7013E-07, 6.0160E-07,    F14250
     *     6.6905E-07, 7.4095E-07, 8.2121E-07, 8.0947E-07, 7.6145E-07,    F14260
     *     7.2193E-07, 6.3722E-07, 5.4316E-07, 4.2186E-07, 3.2528E-07,    F14270
     *     2.5207E-07, 1.8213E-07, 1.2658E-07, 8.6746E-08, 6.0216E-08,    F14280
     *     4.1122E-08, 2.8899E-08, 2.1740E-08, 1.7990E-08, 1.5593E-08/    F14290
      DATA F0751/                                                         F14300
     *     1.3970E-08, 1.2238E-08, 1.0539E-08, 9.2386E-09, 7.8481E-09,    F14310
     *     6.8704E-09, 5.7615E-09, 5.0434E-09, 4.6886E-09, 4.3770E-09,    F14320
     *     3.9768E-09, 3.5202E-09, 3.1854E-09, 2.9009E-09, 2.5763E-09,    F14330
     *     2.2135E-09, 1.9455E-09, 1.6248E-09, 1.3368E-09, 1.0842E-09,    F14340
     *     8.4254E-10, 6.7414E-10, 5.4667E-10, 4.5005E-10, 3.4932E-10,    F14350
     *     2.6745E-10, 2.2053E-10, 1.8162E-10, 1.4935E-10, 1.1618E-10,    F14360
     *     9.1888E-11, 8.0672E-11, 6.8746E-11, 6.2668E-11, 5.5715E-11,    F14370
     *     4.5074E-11, 3.7669E-11, 3.2082E-11, 2.8085E-11, 2.4838E-11,    F14380
     *     1.9791E-11, 1.6964E-11, 1.3887E-11, 1.1179E-11, 9.7499E-12,    F14390
     *     7.8255E-12, 6.3698E-12, 5.3265E-12, 4.6588E-12, 4.4498E-12/    F14400
      DATA F0801/                                                         F14410
     *     3.9984E-12, 3.7513E-12, 3.7176E-12, 3.9148E-12, 4.2702E-12,    F14420
     *     5.0090E-12, 6.5801E-12, 8.7787E-12, 1.2718E-11, 1.8375E-11,    F14430
     *     2.5304E-11, 3.5403E-11, 4.8842E-11, 6.4840E-11, 8.0911E-11,    F14440
     *     1.0136E-10, 1.2311E-10, 1.4203E-10, 1.5869E-10, 1.8093E-10,    F14450
     *     2.1370E-10, 2.5228E-10, 2.8816E-10, 3.4556E-10, 3.9860E-10,    F14460
     *     4.4350E-10, 4.7760E-10, 5.2357E-10, 6.0827E-10, 6.3635E-10,    F14470
     *     6.5886E-10, 6.8753E-10, 7.2349E-10, 7.2789E-10, 6.8232E-10,    F14480
     *     6.6081E-10, 6.4232E-10, 6.3485E-10, 6.4311E-10, 7.2235E-10,    F14490
     *     7.7263E-10, 8.1668E-10, 9.0324E-10, 9.7643E-10, 1.0535E-09,    F14500
     *     1.0195E-09, 1.0194E-09, 1.0156E-09, 9.6792E-10, 9.2725E-10/    F14510
      DATA F0851/                                                         F14520
     *     8.7347E-10, 8.4484E-10, 8.2647E-10, 8.4363E-10, 9.1261E-10,    F14530
     *     1.0051E-09, 1.1511E-09, 1.4037E-09, 1.8066E-09, 2.4483E-09,    F14540
     *     3.2739E-09, 4.3194E-09, 5.6902E-09, 7.7924E-09, 9.7376E-09,    F14550
     *     1.2055E-08, 1.4303E-08, 1.6956E-08, 1.9542E-08, 2.2233E-08,    F14560
     *     2.5186E-08, 2.7777E-08, 2.8943E-08, 2.8873E-08, 2.9417E-08,    F14570
     *     2.7954E-08, 2.7524E-08, 2.7040E-08, 3.1254E-08, 3.6843E-08,    F14580
     *     3.7797E-08, 3.8713E-08, 4.0135E-08, 4.2824E-08, 4.3004E-08,    F14590
     *     4.0279E-08, 4.2781E-08, 4.5220E-08, 4.8948E-08, 5.0172E-08,    F14600
     *     4.8499E-08, 4.7182E-08, 4.2204E-08, 3.7701E-08, 3.0972E-08,    F14610
     *     2.4654E-08, 1.9543E-08, 1.4609E-08, 1.1171E-08, 8.3367E-09/    F14620
      DATA F0901/                                                         F14630
     *     6.3791E-09, 5.0790E-09, 4.0655E-09, 3.3658E-09, 2.7882E-09,    F14640
     *     2.4749E-09, 2.2287E-09, 2.0217E-09, 1.8191E-09, 1.5897E-09,    F14650
     *     1.4191E-09, 1.2448E-09, 1.0884E-09, 9.3585E-10, 7.9429E-10,    F14660
     *     7.3214E-10, 6.5008E-10, 5.7549E-10, 5.4300E-10, 4.7251E-10,    F14670
     *     4.3451E-10, 3.8446E-10, 3.5589E-10, 3.4432E-10, 2.8209E-10,    F14680
     *     2.4620E-10, 2.1278E-10, 1.8406E-10, 1.6314E-10, 1.3261E-10,    F14690
     *     1.1696E-10, 9.6865E-11, 7.6814E-11, 6.6411E-11, 5.0903E-11,    F14700
     *     4.0827E-11, 3.0476E-11, 2.3230E-11, 1.7707E-11, 1.3548E-11,    F14710
     *     1.0719E-11, 9.3026E-12, 8.7967E-12, 8.3136E-12, 7.3918E-12,    F14720
     *     6.5293E-12, 5.9243E-12, 5.3595E-12, 3.5266E-12, 2.2571E-12/    F14730
      DATA F0951/                                                         F14740
     *     1.6150E-12, 1.1413E-12, 8.4998E-13, 7.0803E-13, 5.1747E-13,    F14750
     *     4.0694E-13, 3.6528E-13, 3.3670E-13, 3.1341E-13, 2.9390E-13,    F14760
     *     2.8680E-13, 3.1283E-13, 3.7294E-13, 5.0194E-13, 6.7919E-13,    F14770
     *     1.0455E-12, 1.5230E-12, 2.3932E-12, 3.4231E-12, 5.0515E-12,    F14780
     *     7.3193E-12, 9.9406E-12, 1.2193E-11, 1.4742E-11, 1.9269E-11,    F14790
     *     2.1816E-11, 2.2750E-11, 2.2902E-11, 2.3888E-11, 2.4902E-11,    F14800
     *     2.2160E-11, 2.0381E-11, 1.9903E-11, 2.0086E-11, 1.9304E-11,    F14810
     *     2.0023E-11, 2.2244E-11, 2.5450E-11, 3.1228E-11, 3.4560E-11,    F14820
     *     3.6923E-11, 3.7486E-11, 3.8124E-11, 3.8317E-11, 3.4737E-11,    F14830
     *     3.3037E-11, 3.1724E-11, 2.9840E-11, 2.8301E-11, 2.5857E-11/    F14840
      DATA F1001/                                                         F14850
     *     2.3708E-11, 1.9452E-11, 1.6232E-11, 1.5174E-11, 1.4206E-11,    F14860
     *     1.4408E-11, 1.5483E-11, 1.8642E-11, 2.3664E-11, 3.0181E-11,    F14870
     *     4.0160E-11, 5.2287E-11, 7.2754E-11, 1.0511E-10, 1.4531E-10,    F14880
     *     2.0998E-10, 2.6883E-10, 3.3082E-10, 4.2638E-10, 5.3132E-10,    F14890
     *     6.3617E-10, 7.1413E-10, 8.5953E-10, 9.9715E-10, 1.0796E-09,    F14900
     *     1.0978E-09, 1.1052E-09, 1.1095E-09, 1.0641E-09, 9.7881E-10,    F14910
     *     9.6590E-10, 1.0332E-09, 1.1974E-09, 1.3612E-09, 1.5829E-09,    F14920
     *     1.8655E-09, 2.1465E-09, 2.4779E-09, 2.7370E-09, 2.9915E-09,    F14930
     *     3.3037E-09, 3.6347E-09, 3.9587E-09, 4.4701E-09, 5.0122E-09,    F14940
     *     5.8044E-09, 6.1916E-09, 6.9613E-09, 7.7863E-09, 8.2820E-09/    F14950
      DATA F1051/                                                         F14960
     *     9.4359E-09, 9.7387E-09, 1.0656E-08, 1.0746E-08, 1.1210E-08,    F14970
     *     1.1905E-08, 1.2194E-08, 1.3145E-08, 1.3738E-08, 1.3634E-08,    F14980
     *     1.3011E-08, 1.2511E-08, 1.1805E-08, 1.2159E-08, 1.2390E-08,    F14990
     *     1.3625E-08, 1.5678E-08, 1.7886E-08, 1.9933E-08, 1.9865E-08,    F15000
     *     1.9000E-08, 1.7812E-08, 1.5521E-08, 1.2593E-08, 9.5635E-09,    F15010
     *     7.2987E-09, 5.2489E-09, 3.5673E-09, 2.4206E-09, 1.6977E-09,    F15020
     *     1.2456E-09, 9.3744E-10, 7.8379E-10, 6.9960E-10, 6.6451E-10,    F15030
     *     6.8521E-10, 7.4234E-10, 8.6658E-10, 9.4972E-10, 1.0791E-09,    F15040
     *     1.2359E-09, 1.3363E-09, 1.5025E-09, 1.5368E-09, 1.6152E-09,    F15050
     *     1.6184E-09, 1.6557E-09, 1.7035E-09, 1.6916E-09, 1.7237E-09/    F15060
      DATA F1101/                                                         F15070
     *     1.7175E-09, 1.6475E-09, 1.5335E-09, 1.4272E-09, 1.3282E-09,    F15080
     *     1.3459E-09, 1.4028E-09, 1.5192E-09, 1.7068E-09, 1.9085E-09,    F15090
     *     2.1318E-09, 2.1020E-09, 1.9942E-09, 1.8654E-09, 1.6391E-09,    F15100
     *     1.3552E-09, 1.0186E-09, 7.8540E-10, 5.7022E-10, 3.9247E-10,    F15110
     *     2.5441E-10, 1.6699E-10, 1.1132E-10, 6.8989E-11, 4.5255E-11,    F15120
     *     3.1106E-11, 2.3161E-11, 1.7618E-11, 1.4380E-11, 1.1601E-11,    F15130
     *     9.7148E-12, 8.4519E-12, 6.5392E-12, 5.4113E-12, 4.7624E-12,    F15140
     *     4.0617E-12, 3.6173E-12, 2.8608E-12, 2.2724E-12, 1.7436E-12,    F15150
     *     1.3424E-12, 1.0358E-12, 7.3064E-13, 5.4500E-13, 4.0551E-13,    F15160
     *     2.8642E-13, 2.1831E-13, 1.6860E-13, 1.2086E-13, 1.0150E-13/    F15170
      DATA F1151/                                                         F15180
     *     9.3550E-14, 8.4105E-14, 7.3051E-14, 6.9796E-14, 7.9949E-14,    F15190
     *     1.0742E-13, 1.5639E-13, 2.1308E-13, 3.1226E-13, 4.6853E-13,    F15200
     *     6.6917E-13, 1.0088E-12, 1.4824E-12, 2.2763E-12, 3.3917E-12,    F15210
     *     4.4585E-12, 6.3187E-12, 8.4189E-12, 1.1302E-11, 1.3431E-11,    F15220
     *     1.5679E-11, 1.9044E-11, 2.2463E-11, 2.3605E-11, 2.3619E-11,    F15230
     *     2.3505E-11, 2.3805E-11, 2.2549E-11, 1.9304E-11, 1.8382E-11,    F15240
     *     1.7795E-11, 1.8439E-11, 1.9146E-11, 2.1966E-11, 2.6109E-11,    F15250
     *     3.1883E-11, 3.7872E-11, 4.3966E-11, 4.8789E-11, 5.3264E-11,    F15260
     *     5.9705E-11, 6.3744E-11, 7.0163E-11, 7.9114E-11, 8.8287E-11,    F15270
     *     9.9726E-11, 1.1498E-10, 1.3700E-10, 1.6145E-10, 1.9913E-10/    F15280
      DATA F1201/                                                         F15290
     *     2.2778E-10, 2.6216E-10, 2.9770E-10, 3.3405E-10, 3.7821E-10,    F15300
     *     3.9552E-10, 4.1322E-10, 4.0293E-10, 4.0259E-10, 3.8853E-10,    F15310
     *     3.7842E-10, 3.8551E-10, 4.4618E-10, 5.0527E-10, 5.0695E-10,    F15320
     *     5.1216E-10, 5.1930E-10, 5.5794E-10, 5.3320E-10, 5.2008E-10,    F15330
     *     5.6888E-10, 6.1883E-10, 6.9006E-10, 6.9505E-10, 6.6768E-10,    F15340
     *     6.3290E-10, 5.6753E-10, 5.0327E-10, 3.9830E-10, 3.1147E-10,    F15350
     *     2.4416E-10, 1.8860E-10, 1.3908E-10, 9.9156E-11, 7.3779E-11,    F15360
     *     5.6048E-11, 4.2457E-11, 3.4505E-11, 2.9881E-11, 2.7865E-11,    F15370
     *     2.8471E-11, 3.1065E-11, 3.4204E-11, 3.9140E-11, 4.3606E-11,    F15380
     *     4.9075E-11, 5.3069E-11, 5.5236E-11, 5.5309E-11, 5.3832E-11/    F15390
      DATA F1251/                                                         F15400
     *     5.3183E-11, 5.1783E-11, 5.2042E-11, 5.4422E-11, 5.5656E-11,    F15410
     *     5.4409E-11, 5.2659E-11, 5.1696E-11, 5.1726E-11, 4.9003E-11,    F15420
     *     4.9050E-11, 5.1700E-11, 5.6818E-11, 6.3129E-11, 6.6542E-11,    F15430
     *     6.4367E-11, 5.9908E-11, 5.4470E-11, 4.7903E-11, 3.9669E-11,    F15440
     *     2.9651E-11, 2.2286E-11, 1.6742E-11, 1.1827E-11, 7.7739E-12,    F15450
     *     4.8805E-12, 3.1747E-12, 2.0057E-12, 1.2550E-12, 8.7434E-13,    F15460
     *     6.2755E-13, 4.9752E-13, 4.0047E-13, 3.5602E-13, 3.0930E-13,    F15470
     *     2.4903E-13, 1.9316E-13, 1.4995E-13, 1.2059E-13, 8.7242E-14,    F15480
     *     6.4511E-14, 5.3300E-14, 4.3741E-14, 3.4916E-14, 2.6560E-14,    F15490
     *     1.6923E-14, 1.1816E-14, 6.7071E-15, 3.6474E-15, 2.0686E-15/    F15500
      DATA F1301/                                                         F15510
     *     1.1925E-15, 6.8948E-16, 3.9661E-16, 2.2576E-16, 1.2669E-16,    F15520
     *     6.9908E-17, 3.7896E-17, 2.0280E-17, 1.1016E-17, 6.7816E-18,    F15530
     *     6.0958E-18, 8.9913E-18, 1.7201E-17, 3.4964E-17, 7.0722E-17,    F15540
     *     1.4020E-16, 2.7167E-16, 5.1478E-16, 9.5500E-16, 1.7376E-15,    F15550
     *     3.1074E-15, 5.4789E-15, 9.5640E-15, 1.6635E-14, 2.9145E-14,    F15560
     *     5.2179E-14, 8.8554E-14, 1.4764E-13, 2.3331E-13, 3.5996E-13,    F15570
     *     5.2132E-13, 6.3519E-13, 7.3174E-13, 8.3752E-13, 9.8916E-13,    F15580
     *     1.1515E-12, 1.4034E-12, 1.6594E-12, 2.1021E-12, 2.7416E-12,    F15590
     *     3.4135E-12, 4.5517E-12, 5.5832E-12, 7.2303E-12, 9.9484E-12,    F15600
     *     1.2724E-11, 1.6478E-11, 2.0588E-11, 2.5543E-11, 3.3625E-11/    F15610
      DATA F1351/                                                         F15620
     *     4.1788E-11, 5.0081E-11, 6.0144E-11, 6.9599E-11, 8.4408E-11,    F15630
     *     9.7143E-11, 1.0805E-10, 1.1713E-10, 1.2711E-10, 1.3727E-10,    F15640
     *     1.4539E-10, 1.6049E-10, 1.7680E-10, 2.0557E-10, 2.4967E-10,    F15650
     *     3.0096E-10, 3.5816E-10, 4.0851E-10, 4.6111E-10, 5.2197E-10,    F15660
     *     5.5043E-10, 6.0324E-10, 6.4983E-10, 6.7498E-10, 7.0545E-10,    F15670
     *     7.0680E-10, 7.5218E-10, 7.5723E-10, 7.7840E-10, 8.0081E-10,    F15680
     *     8.0223E-10, 7.7271E-10, 7.1676E-10, 6.7819E-10, 6.4753E-10,    F15690
     *     6.5844E-10, 7.0163E-10, 7.7503E-10, 8.8152E-10, 9.9022E-10,    F15700
     *     1.0229E-09, 9.9296E-10, 8.9911E-10, 7.7813E-10, 6.3785E-10,    F15710
     *     4.7491E-10, 3.5280E-10, 2.4349E-10, 1.6502E-10, 1.1622E-10/    F15720
      DATA F1401/                                                         F15730
     *     8.6715E-11, 6.7360E-11, 5.3910E-11, 4.5554E-11, 4.1300E-11,    F15740
     *     3.9728E-11, 3.9000E-11, 3.9803E-11, 4.1514E-11, 4.3374E-11,    F15750
     *     4.6831E-11, 4.8921E-11, 5.1995E-11, 5.7242E-11, 6.2759E-11,    F15760
     *     7.0801E-11, 7.4555E-11, 7.9754E-11, 8.7616E-11, 9.1171E-11,    F15770
     *     1.0349E-10, 1.1047E-10, 1.2024E-10, 1.2990E-10, 1.3725E-10,    F15780
     *     1.5005E-10, 1.5268E-10, 1.5535E-10, 1.5623E-10, 1.5009E-10,    F15790
     *     1.4034E-10, 1.3002E-10, 1.2225E-10, 1.1989E-10, 1.2411E-10,    F15800
     *     1.3612E-10, 1.5225E-10, 1.7202E-10, 1.9471E-10, 1.9931E-10,    F15810
     *     1.9079E-10, 1.7478E-10, 1.5259E-10, 1.2625E-10, 9.3332E-11,    F15820
     *     6.8796E-11, 4.6466E-11, 2.9723E-11, 1.8508E-11, 1.2106E-11/    F15830
      DATA F1451/                                                         F15840
     *     8.0142E-12, 5.4066E-12, 3.9329E-12, 3.1665E-12, 2.7420E-12,    F15850
     *     2.3996E-12, 2.3804E-12, 2.3242E-12, 2.4476E-12, 2.5331E-12,    F15860
     *     2.3595E-12, 2.2575E-12, 2.1298E-12, 2.0088E-12, 1.8263E-12,    F15870
     *     1.6114E-12, 1.4422E-12, 1.2946E-12, 1.0837E-12, 9.1282E-13,    F15880
     *     7.2359E-13, 5.3307E-13, 3.8837E-13, 2.6678E-13, 1.6769E-13,    F15890
     *     1.0826E-13, 7.2364E-14, 4.5201E-14, 3.0808E-14, 2.2377E-14,    F15900
     *     1.7040E-14, 9.2181E-15, 5.2934E-15, 3.5774E-15, 3.1431E-15,    F15910
     *     3.7647E-15, 5.6428E-15, 9.5139E-15, 1.7322E-14, 2.8829E-14,    F15920
     *     4.7708E-14, 6.9789E-14, 9.7267E-14, 1.4662E-13, 1.9429E-13,    F15930
     *     2.5998E-13, 3.6636E-13, 4.7960E-13, 6.5129E-13, 7.7638E-13/    F15940
      DATA F1501/                                                         F15950
     *     9.3774E-13, 1.1467E-12, 1.3547E-12, 1.5686E-12, 1.6893E-12,    F15960
     *     1.9069E-12, 2.1352E-12, 2.3071E-12, 2.4759E-12, 2.8247E-12,    F15970
     *     3.4365E-12, 4.3181E-12, 5.6107E-12, 7.0017E-12, 8.6408E-12,    F15980
     *     1.0974E-11, 1.3742E-11, 1.6337E-11, 2.0157E-11, 2.3441E-11,    F15990
     *     2.6733E-11, 3.0247E-11, 3.3737E-11, 3.8618E-11, 4.1343E-11,    F16000
     *     4.3870E-11, 4.4685E-11, 4.4881E-11, 4.5526E-11, 4.3628E-11,    F16010
     *     4.4268E-11, 4.6865E-11, 5.3426E-11, 5.4020E-11, 5.3218E-11,    F16020
     *     5.4587E-11, 5.6360E-11, 5.7740E-11, 5.6426E-11, 6.0399E-11,    F16030
     *     6.6981E-11, 7.4319E-11, 7.7977E-11, 7.5539E-11, 7.1610E-11,    F16040
     *     6.4606E-11, 5.5498E-11, 4.3944E-11, 3.3769E-11, 2.5771E-11/    F16050
      DATA F1551/                                                         F16060
     *     1.9162E-11, 1.3698E-11, 1.0173E-11, 7.8925E-12, 6.1938E-12,    F16070
     *     4.7962E-12, 4.0811E-12, 3.3912E-12, 2.8625E-12, 2.4504E-12,    F16080
     *     2.2188E-12, 2.2139E-12, 2.2499E-12, 2.2766E-12, 2.3985E-12,    F16090
     *     2.5459E-12, 2.9295E-12, 3.4196E-12, 3.6155E-12, 4.0733E-12,    F16100
     *     4.4610E-12, 4.9372E-12, 5.4372E-12, 5.7304E-12, 6.1640E-12,    F16110
     *     6.1278E-12, 6.2940E-12, 6.4947E-12, 6.8174E-12, 7.5190E-12,    F16120
     *     8.2608E-12, 8.4971E-12, 8.3484E-12, 8.1888E-12, 7.8552E-12,    F16130
     *     7.8468E-12, 7.5943E-12, 7.9096E-12, 8.6869E-12, 9.1303E-12,    F16140
     *     9.2547E-12, 8.9322E-12, 8.2177E-12, 7.3408E-12, 5.7956E-12,    F16150
     *     4.4470E-12, 3.5881E-12, 2.6748E-12, 1.7074E-12, 9.6700E-13/    F16160
      DATA F1601/                                                         F16170
     *     5.2645E-13, 2.9943E-13, 1.7316E-13, 1.0039E-13, 5.7859E-14,    F16180
     *     3.2968E-14, 1.8499E-14, 1.0192E-14, 5.5015E-15, 2.9040E-15,    F16190
     *     1.4968E-15, 7.5244E-16, 3.6852E-16, 1.7568E-16, 8.1464E-17,    F16200
     *     3.6717E-17, 1.6076E-17, 6.8341E-18, 2.8195E-18, 1.1286E-18,    F16210
     *      .0000E+00,  .0000E+00,  .0000E+00,  .0000E+00,  .0000E+00,    F16220
     *      .0000E+00,  .0000E+00,  .0000E+00,  .0000E+00, 1.4070E-18,    F16230
     *     3.0405E-18, 6.4059E-18, 1.3169E-17, 2.6443E-17, 5.1917E-17,    F16240
     *     9.9785E-17, 1.8802E-16, 3.4788E-16, 6.3328E-16, 1.1370E-15,    F16250
     *     2.0198E-15, 3.5665E-15, 6.3053E-15, 1.1309E-14, 2.1206E-14,    F16260
     *     3.2858E-14, 5.5165E-14, 8.6231E-14, 1.2776E-13, 1.7780E-13/    F16270
      DATA F1651/                                                         F16280
     *     2.5266E-13, 3.6254E-13, 5.1398E-13, 6.8289E-13, 8.7481E-13,    F16290
     *     1.1914E-12, 1.6086E-12, 2.0469E-12, 2.5761E-12, 3.4964E-12,    F16300
     *     4.4980E-12, 5.5356E-12, 6.7963E-12, 8.5720E-12, 1.0700E-11,    F16310
     *     1.2983E-11, 1.6270E-11, 1.9609E-11, 2.2668E-11, 2.5963E-11,    F16320
     *     3.0918E-11, 3.4930E-11, 3.9330E-11, 4.4208E-11, 4.6431E-11,    F16330
     *     5.1141E-11, 5.4108E-11, 5.8077E-11, 6.5050E-11, 7.2126E-11,    F16340
     *     8.1064E-11, 8.1973E-11, 8.1694E-11, 8.3081E-11, 8.0240E-11,    F16350
     *     7.9225E-11, 7.6256E-11, 7.8468E-11, 8.0041E-11, 8.1585E-11,    F16360
     *     8.3485E-11, 8.3774E-11, 8.5870E-11, 8.6104E-11, 8.8516E-11,    F16370
     *     9.0814E-11, 9.2522E-11, 8.8913E-11, 7.8381E-11, 6.8568E-11/    F16380
      DATA F1701/                                                         F16390
     *     5.6797E-11, 4.4163E-11, 3.2369E-11, 2.3259E-11, 1.6835E-11,    F16400
     *     1.1733E-11, 8.5273E-12, 6.3805E-12, 4.8983E-12, 3.8831E-12,    F16410
     *     3.2610E-12, 2.8577E-12, 2.5210E-12, 2.2913E-12, 2.0341E-12,    F16420
     *     1.8167E-12, 1.6395E-12, 1.4890E-12, 1.3516E-12, 1.2542E-12,    F16430
     *     1.2910E-12, 1.3471E-12, 1.4689E-12, 1.5889E-12, 1.6989E-12,    F16440
     *     1.8843E-12, 2.0902E-12, 2.3874E-12, 2.7294E-12, 3.3353E-12,    F16450
     *     4.0186E-12, 4.5868E-12, 5.2212E-12, 5.8856E-12, 6.5991E-12,    F16460
     *     7.2505E-12, 7.6637E-12, 8.5113E-12, 9.4832E-12, 9.9678E-12,    F16470
     *     1.0723E-11, 1.0749E-11, 1.1380E-11, 1.1774E-11, 1.1743E-11,    F16480
     *     1.2493E-11, 1.2559E-11, 1.2332E-11, 1.1782E-11, 1.1086E-11/    F16490
      DATA F1751/                                                         F16500
     *     1.0945E-11, 1.1178E-11, 1.2083E-11, 1.3037E-11, 1.4730E-11,    F16510
     *     1.6450E-11, 1.7403E-11, 1.7004E-11, 1.5117E-11, 1.3339E-11,    F16520
     *     1.0844E-11, 8.0915E-12, 5.6615E-12, 3.7196E-12, 2.5194E-12,    F16530
     *     1.6569E-12, 1.1201E-12, 8.2335E-13, 6.0270E-13, 4.8205E-13,    F16540
     *     4.1313E-13, 3.6243E-13, 3.2575E-13, 2.7730E-13, 2.5292E-13,    F16550
     *     2.3062E-13, 2.1126E-13, 2.1556E-13, 2.1213E-13, 2.2103E-13,    F16560
     *     2.1927E-13, 2.0794E-13, 1.9533E-13, 1.6592E-13, 1.4521E-13,    F16570
     *     1.1393E-13, 8.3772E-14, 6.2077E-14, 4.3337E-14, 2.7165E-14,    F16580
     *     1.6821E-14, 9.5407E-15, 5.3093E-15, 3.0320E-15, 1.7429E-15,    F16590
     *     9.9828E-16, 5.6622E-16, 3.1672E-16, 1.7419E-16, 9.3985E-17/    F16600
      DATA F1801/                                                         F16610
     *     4.9656E-17, 2.5652E-17, 1.2942E-17, 6.3695E-18, 3.0554E-18,    F16620
     *     1.4273E-18, -0.       , -0.       , -0.       , -0.       ,    F16630
     *     -0.       , 0.        , 0.        , 0.        , 0.        ,    F16640
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16650
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16660
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16670
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16680
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16690
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16700
     *     0.        , 0.        , 0.        , 0.        , 0.        /    F16710
      DATA F1851/                                                         F16720
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16730
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16740
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16750
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16760
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16770
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16780
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16790
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16800
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16810
     *     0.        , 0.        , 0.        , 0.        , 0.        /    F16820
      DATA F1901/                                                         F16830
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16840
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16850
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16860
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16870
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16880
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16890
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16900
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16910
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16920
     *     0.        , 0.        , 0.        , 0.        , 0.        /    F16930
      DATA F1951/                                                         F16940
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16950
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16960
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16970
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16980
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F16990
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F17000
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F17010
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F17020
     *     0.        , 0.        , 0.        , 0.        , 0.        ,    F17030
     *     0.        , 0.        , 0.        , 0.        , 0.        /    F17040
      DATA F2001/                                                         F17050
     *     0.        /                                                    F17060
C                                                                         F17070
      END                                                                 F17080

      BLOCK DATA BO3HUV                                                 

      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      COMMON /O3HUV/  V1C,V2C,DVC,NC,                                   
     X           C02281(80),C02361(53)                                  
C                                                                       
C     REFERENCE : MOLINA & MOLINA, JGR,91,14501-14508, 1986.
C     VALEURS DES COEFFICIENTS ENTRE 40800 ET 54054 CM-1
C       PAR PAS DE 100 CM-1
C     UNITES : CM**2/MOLEC
C
      DATA V1C /40800./, V2C /54000./ ,DVC /100./, NC /133/             
C                                                                       
      DATA C02281/                                                      
     C 9.91204E-18, 9.76325E-18, 9.72050E-18, 9.51049E-18, 9.23530E-18, 
     C 9.02306E-18, 8.90510E-18, 8.60115E-18, 8.39094E-18, 8.27926E-18, 
     C 7.95525E-18, 7.73583E-18, 7.55018E-18, 7.31076E-18, 7.10415E-18, 
     C 6.87747E-18, 6.66639E-18, 6.39484E-18, 6.27101E-18, 6.01019E-18, 
     C 5.77594E-18, 5.60403E-18, 5.40837E-18, 5.21289E-18, 4.99329E-18, 
     C 4.81742E-18, 4.61608E-18, 4.45707E-18, 4.28261E-18, 4.09672E-18, 
     C 3.93701E-18, 3.77835E-18, 3.61440E-18, 3.45194E-18, 3.30219E-18, 
     C 3.15347E-18, 3.01164E-18, 2.87788E-18, 2.74224E-18, 2.61339E-18, 
     C 2.48868E-18, 2.36872E-18, 2.25747E-18, 2.14782E-18, 2.03997E-18, 
     C 1.94281E-18, 1.84525E-18, 1.75275E-18, 1.67151E-18, 1.58813E-18, 
     C 1.50725E-18, 1.43019E-18, 1.35825E-18, 1.28878E-18, 1.22084E-18, 
     C 1.15515E-18, 1.09465E-18, 1.03841E-18, 9.83780E-19, 9.31932E-19, 
     C 8.83466E-19, 8.38631E-19, 7.96631E-19, 7.54331E-19, 7.13805E-19, 
     C 6.78474E-19, 6.44340E-19, 6.13104E-19, 5.81777E-19, 5.53766E-19, 
     C 5.27036E-19, 5.03555E-19, 4.82633E-19, 4.61483E-19, 4.42014E-19, 
     C 4.23517E-19, 4.07774E-19, 3.93060E-19, 3.80135E-19, 3.66348E-19/ 
      DATA C02361/                                                      
     C 3.53665E-19, 3.47884E-19, 3.39690E-19, 3.34288E-19, 3.29135E-19, 
     C 3.23104E-19, 3.18875E-19, 3.16800E-19, 3.15925E-19, 3.12932E-19, 
     C 3.12956E-19, 3.15522E-19, 3.14950E-19, 3.15924E-19, 3.19059E-19, 
     C 3.23109E-19, 3.27873E-19, 3.33788E-19, 3.39804E-19, 3.44925E-19, 
     C 3.50502E-19, 3.55853E-19, 3.59416E-19, 3.68933E-19, 3.78284E-19, 
     C 3.86413E-19, 3.98049E-19, 4.04700E-19, 4.12958E-19, 4.23482E-19, 
     C 4.31203E-19, 4.41885E-19, 4.52651E-19, 4.61492E-19, 4.70493E-19, 
     C 4.80497E-19, 4.90242E-19, 4.99652E-19, 5.10316E-19, 5.21510E-19, 
     C 5.32130E-19, 5.43073E-19, 5.56207E-19, 5.61756E-19, 5.66799E-19, 
     C 5.85545E-19, 5.92409E-19, 5.96168E-19, 6.12497E-19, 6.20231E-19, 
     C 6.24621E-19, 6.34160E-19, 6.43622E-19/                           
      END                                                               

      BLOCK DATA O3CH                                                   

      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      COMMON /O3CHAP/ V1O1,V2O1,DVO1,NPT1,O3DIF1(55)                    
C                                                                       
C     REFERENCE : LOWTRAN 7
C     BANDE D'ABSORPTIOON DE CHAPPUIS
C     VALEURS DES COEFFICIENTS ENTRE 12800. ET 23600. CM-1 
C        PAR PAS DE 200 CM-1
C     UNITES : (CM-ATM)-1
C     MODIFICATION (13/04/94) 55 VALEURS AU LIEU DE 54 (0. A 12800)
C     
C                                                                       
      DATA V1O1,V2O1,DVO1,NPT1/ 12800.,23600.,200.,55/                  
C                                                                       
      DATA O3DIF1 / 0.,                                                 
     1 4.50E-03, 8.00E-03, 1.07E-02, 1.10E-02, 1.27E-02, 1.71E-02,      
     2 2.00E-02, 2.45E-02, 3.07E-02, 3.84E-02, 4.78E-02, 5.67E-02,      
     3 6.54E-02, 7.62E-02, 9.15E-02, 1.00E-01, 1.09E-01, 1.20E-01,      
     4 1.28E-01, 1.12E-01, 1.11E-01, 1.16E-01, 1.19E-01, 1.13E-01,      
     5 1.03E-01, 9.24E-02, 8.28E-02, 7.57E-02, 7.07E-02, 6.58E-02,      
     6 5.56E-02, 4.77E-02, 4.06E-02, 3.87E-02, 3.82E-02, 2.94E-02,      
     7 2.09E-02, 1.80E-02, 1.91E-02, 1.66E-02, 1.17E-02, 7.70E-03,      
     8 6.10E-03, 8.50E-03, 6.10E-03, 3.70E-03, 3.20E-03, 3.10E-03,      
     9 2.55E-03, 1.98E-03, 1.40E-03, 8.25E-04, 2.50E-04, 0.      /      
      END                                                               


      BLOCK DATA BO3HH0                                                 
C                                                                       
C                                                                       
      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      COMMON /O3HH0/  V1C,V2C,DVC,NC,                                   
     X           O30001(80),O30081(80),O30161(80),O30241(80),O30321(80),
     X           O30401( 7),                                            
     X           C00001(80),C00081(80),C00161(80),C00241(80),C00321(80),
     X           C00401(80),C00481(80),C00561(80),C00641(80),C00721(80),
     X           C00801(80),C00881(80),C00961(80),C01041(80),C01121(80),
     X           C01201(80),C01281(80),C01361(80),C01441(80),C01521(80),
     X           C01601(80),C01681(80),C01761(80),C01841(80),C01921(80),
     X           C02001(80),C02081(80),C02161(80),C02241(40)            
C                                                                       
C     REFERENCES : INN ET TANAKA, J.OPT.SOC.,43,870-873,1953
C                  MOLINA ET MOLINA, JGR,91,14501-14508,1986 
C     VALEURS DES COEFFICIENTS ENTRE 27370. ET 40800. CM-1
C        PAR PAS DE 5 CM-1 AVEC UNE DEPENDANCE EN TEMPERATURE
C        DU TYPE C(T)=C0+C1*T+C2*T OU C(T)=S0*(1+S1(T)*T+S2(T)*T*T)
C        S0 ---> BO3HH0  C0:COEFFICIENTS A 273.15 K
C        S1 ---> BO3HH1  C1/C0
C        S2 ---> BO3HH2  C2/C0
C     UNITES : (CM**2/MOLEC)*1.0E-20
C                                                                       
      DATA V1C /27370./, V2C /40800./ ,DVC /5./, NC /2687/              
C                                                                       
      DATA O30001/                                                      
     X 1.00000E-03, 1.15000E-03, 1.25000E-03, 1.40000E-03, 1.50000E-03, 
     X 1.59304E-03, 1.62396E-03, 1.76216E-03, 1.90036E-03, 2.03856E-03, 
     X 2.16538E-03, 2.02324E-03, 1.88110E-03, 1.73896E-03, 1.59682E-03, 
     X 1.45468E-03, 1.31253E-03, 1.17039E-03, 1.02825E-03, 8.86108E-04, 
     X 7.43963E-04, 6.01821E-04, 4.59679E-04, 5.14820E-04, 5.73044E-04, 
     X 6.31269E-04, 6.89493E-04, 7.47718E-04, 8.05942E-04, 8.64167E-04, 
     X 9.22392E-04, 9.80617E-04, 1.03884E-03, 1.09707E-03, 1.15528E-03, 
     X 1.21351E-03, 1.27173E-03, 1.32996E-03, 1.38818E-03, 1.44641E-03, 
     X 1.50463E-03, 1.56286E-03, 1.62108E-03, 1.67931E-03, 1.73753E-03, 
     X 1.79575E-03, 1.85398E-03, 1.91220E-03, 1.97043E-03, 2.02865E-03, 
     X 2.08688E-03, 2.14510E-03, 2.20333E-03, 2.26155E-03, 2.31978E-03, 
     X 2.37800E-03, 2.43623E-03, 2.49444E-03, 2.55267E-03, 2.61089E-03, 
     X 2.66912E-03, 2.72734E-03, 2.78557E-03, 2.84379E-03, 2.90202E-03, 
     X 2.96024E-03, 3.01847E-03, 3.07669E-03, 3.13491E-03, 3.19313E-03, 
     X 3.25136E-03, 3.30958E-03, 3.36781E-03, 3.31660E-03, 3.21583E-03, 
     X 3.11505E-03, 3.22165E-03, 3.46058E-03, 3.69953E-03, 3.93846E-03/ 
      DATA O30081/                                                      
     X 4.17739E-03, 4.41633E-03, 4.42256E-03, 4.13791E-03, 4.17894E-03, 
     X 4.25583E-03, 4.33273E-03, 4.40963E-03, 4.49259E-03, 4.44532E-03, 
     X 4.17540E-03, 3.84814E-03, 3.41823E-03, 3.11003E-03, 2.86548E-03, 
     X 2.73912E-03, 2.70800E-03, 2.70882E-03, 2.70866E-03, 2.70816E-03, 
     X 2.71228E-03, 2.78044E-03, 2.86135E-03, 3.00163E-03, 3.15222E-03, 
     X 3.33394E-03, 3.48231E-03, 3.64966E-03, 3.83242E-03, 3.97733E-03, 
     X 4.10299E-03, 4.26332E-03, 4.41165E-03, 4.54040E-03, 4.65544E-03, 
     X 4.91897E-03, 5.23429E-03, 5.45390E-03, 5.74420E-03, 5.96314E-03, 
     X 6.07198E-03, 6.07338E-03, 5.99162E-03, 5.95079E-03, 6.04655E-03, 
     X 6.18239E-03, 6.56998E-03, 6.93885E-03, 7.38561E-03, 7.73029E-03, 
     X 7.90493E-03, 7.72072E-03, 7.40226E-03, 6.53860E-03, 5.30328E-03, 
     X 4.23000E-03, 3.45735E-03, 3.21167E-03, 3.16694E-03, 3.30966E-03, 
     X 3.47431E-03, 3.68089E-03, 3.92006E-03, 4.05246E-03, 4.16408E-03, 
     X 4.08710E-03, 3.98224E-03, 4.07316E-03, 4.19498E-03, 4.44990E-03, 
     X 4.77881E-03, 5.08270E-03, 5.37384E-03, 5.70240E-03, 5.91906E-03, 
     X 5.96745E-03, 5.92363E-03, 5.80363E-03, 5.60812E-03, 5.37450E-03/ 
      DATA O30161/                                                      
     X 5.16202E-03, 4.98389E-03, 4.95294E-03, 5.04930E-03, 5.17576E-03, 
     X 5.26042E-03, 5.22957E-03, 5.32404E-03, 5.39630E-03, 5.53353E-03, 
     X 5.68057E-03, 5.78679E-03, 5.83795E-03, 5.93810E-03, 6.09330E-03, 
     X 6.40001E-03, 6.69056E-03, 7.04863E-03, 7.41339E-03, 7.87421E-03, 
     X 8.35570E-03, 8.97672E-03, 9.58486E-03, 1.01972E-02, 1.08463E-02, 
     X 1.14105E-02, 1.18935E-02, 1.22404E-02, 1.25053E-02, 1.28759E-02, 
     X 1.32169E-02, 1.37796E-02, 1.46488E-02, 1.57324E-02, 1.68897E-02, 
     X 1.78560E-02, 1.87101E-02, 1.92197E-02, 1.94106E-02, 1.90711E-02, 
     X 1.86585E-02, 1.82149E-02, 1.82219E-02, 1.85639E-02, 1.91924E-02, 
     X 2.01342E-02, 2.12312E-02, 2.26362E-02, 2.39610E-02, 2.55156E-02, 
     X 2.71338E-02, 2.87904E-02, 3.04268E-02, 3.17055E-02, 3.28248E-02, 
     X 3.36026E-02, 3.36867E-02, 3.26393E-02, 2.99356E-02, 2.56607E-02, 
     X 2.11545E-02, 1.79508E-02, 1.59757E-02, 1.49569E-02, 1.46214E-02, 
     X 1.46214E-02, 1.48217E-02, 1.51379E-02, 1.53816E-02, 1.58087E-02, 
     X 1.62186E-02, 1.66627E-02, 1.70961E-02, 1.76101E-02, 1.81759E-02, 
     X 1.86154E-02, 1.88889E-02, 1.89577E-02, 1.89316E-02, 1.88826E-02/ 
      DATA O30241/                                                      
     X 1.90915E-02, 1.95550E-02, 2.02707E-02, 2.11620E-02, 2.21844E-02, 
     X 2.30920E-02, 2.37270E-02, 2.37422E-02, 2.33578E-02, 2.20358E-02, 
     X 1.96239E-02, 1.73329E-02, 1.57013E-02, 1.50566E-02, 1.49248E-02, 
     X 1.52044E-02, 1.57658E-02, 1.63436E-02, 1.68986E-02, 1.74180E-02, 
     X 1.78192E-02, 1.80677E-02, 1.79927E-02, 1.77900E-02, 1.75599E-02, 
     X 1.74982E-02, 1.76674E-02, 1.81633E-02, 1.87826E-02, 1.96898E-02, 
     X 2.06898E-02, 2.17167E-02, 2.28231E-02, 2.40702E-02, 2.55084E-02, 
     X 2.69701E-02, 2.86915E-02, 3.05796E-02, 3.22328E-02, 3.42637E-02, 
     X 3.61708E-02, 3.79118E-02, 3.94418E-02, 4.07333E-02, 4.17158E-02, 
     X 4.17081E-02, 4.01127E-02, 3.65411E-02, 3.25123E-02, 2.98737E-02, 
     X 2.83616E-02, 2.79907E-02, 2.80571E-02, 2.84778E-02, 2.91698E-02, 
     X 2.99500E-02, 3.07468E-02, 3.13903E-02, 3.19811E-02, 3.24616E-02, 
     X 3.26503E-02, 3.26829E-02, 3.27688E-02, 3.36446E-02, 3.55133E-02, 
     X 3.88447E-02, 4.28854E-02, 4.55381E-02, 4.77161E-02, 4.93567E-02, 
     X 4.95127E-02, 5.00492E-02, 5.06233E-02, 5.12739E-02, 5.20327E-02, 
     X 5.29001E-02, 5.38677E-02, 5.49272E-02, 5.60703E-02, 5.72886E-02/ 
      DATA O30321/                                                      
     X 5.85739E-02, 5.99178E-02, 6.13170E-02, 6.28474E-02, 6.46499E-02, 
     X 6.68672E-02, 6.96421E-02, 7.31174E-02, 7.74361E-02, 8.27413E-02, 
     X 8.91756E-02, 9.67018E-02, 1.04844E-01, 1.13063E-01, 1.20818E-01, 
     X 1.27567E-01, 1.32771E-01, 1.35888E-01, 1.36377E-01, 1.33780E-01, 
     X 1.28385E-01, 1.20887E-01, 1.11978E-01, 1.02354E-01, 9.27108E-02, 
     X 8.37418E-02, 7.61423E-02, 7.06032E-02, 6.74255E-02, 6.62092E-02, 
     X 6.64813E-02, 6.77689E-02, 6.95995E-02, 7.15004E-02, 7.29991E-02, 
     X 7.36229E-02, 7.29641E-02, 7.11015E-02, 6.83345E-02, 6.49638E-02, 
     X 6.12897E-02, 5.76125E-02, 5.42326E-02, 5.14504E-02, 4.95645E-02, 
     X 4.87078E-02, 4.87234E-02, 4.94254E-02, 5.06280E-02, 5.21454E-02, 
     X 5.37919E-02, 5.53818E-02, 5.67293E-02, 5.76709E-02, 5.82319E-02, 
     X 5.85334E-02, 5.86968E-02, 5.88439E-02, 5.90963E-02, 5.95756E-02, 
     X 6.04035E-02, 6.17016E-02, 6.35548E-02, 6.59664E-02, 6.89282E-02, 
     X 7.24326E-02, 7.64718E-02, 8.10380E-02, 8.61236E-02, 9.17211E-02, 
     X 9.78192E-02, 1.04353E-01, 1.11218E-01, 1.18308E-01, 1.25519E-01, 
     X 1.32745E-01, 1.39881E-01, 1.46821E-01, 1.53461E-01, 1.59687E-01/ 
      DATA O30401/                                                      
     X 1.65365E-01, 1.70353E-01, 1.74507E-01, 1.77686E-01, 1.79748E-01, 
     X 1.80549E-01, 1.79948E-01/                                        
C                                                                       
C                                                                       
C    FOLLOWING DATA ARE FROM BASS JUNE 1985                             
C                                                                       
      DATA C00001 /                                                     
     X 1.81094E-01, 1.57760E-01, 1.37336E-01, 1.19475E-01, 1.17191E-01, 
     X 1.14331E-01, 1.15984E-01, 1.10412E-01, 1.12660E-01, 1.16014E-01, 
     X 1.15060E-01, 1.12041E-01, 1.11611E-01, 1.00378E-01, 9.54850E-02, 
     X 9.87528E-02, 9.46153E-02, 9.53093E-02, 9.72653E-02, 9.66468E-02, 
     X 9.39750E-02, 1.03552E-01, 1.01361E-01, 1.04315E-01, 1.12842E-01, 
     X 1.02800E-01, 1.09576E-01, 1.05577E-01, 1.17334E-01, 1.25763E-01, 
     X 1.27597E-01, 1.34267E-01, 1.44799E-01, 1.57366E-01, 1.67369E-01, 
     X 1.81778E-01, 1.89207E-01, 2.01376E-01, 2.10310E-01, 2.21721E-01, 
     X 2.43162E-01, 2.55542E-01, 2.75312E-01, 2.88576E-01, 3.02505E-01, 
     X 3.15141E-01, 3.28908E-01, 3.49000E-01, 3.56620E-01, 3.59852E-01, 
     X 3.57517E-01, 3.12924E-01, 2.63610E-01, 2.50854E-01, 2.25642E-01, 
     X 2.15954E-01, 2.12099E-01, 2.13039E-01, 2.12286E-01, 2.17214E-01, 
     X 2.28784E-01, 2.28276E-01, 2.34677E-01, 2.30730E-01, 2.16107E-01, 
     X 1.99471E-01, 1.85629E-01, 1.72730E-01, 1.56229E-01, 1.38156E-01, 
     X 1.37641E-01, 1.33169E-01, 1.32759E-01, 1.30102E-01, 1.35396E-01, 
     X 1.37976E-01, 1.41571E-01, 1.46448E-01, 1.44508E-01, 1.47612E-01/ 
      DATA C00081 /                                                     
     X 1.47424E-01, 1.48173E-01, 1.52936E-01, 1.58908E-01, 1.58808E-01, 
     X 1.59860E-01, 1.73936E-01, 1.84109E-01, 1.95143E-01, 2.08267E-01, 
     X 2.19256E-01, 2.31653E-01, 2.46400E-01, 2.60437E-01, 2.70792E-01, 
     X 2.79749E-01, 2.91068E-01, 2.98080E-01, 3.10421E-01, 3.24540E-01, 
     X 3.39003E-01, 3.58322E-01, 3.81520E-01, 4.02798E-01, 4.35972E-01, 
     X 4.56220E-01, 4.79037E-01, 5.02597E-01, 5.24648E-01, 5.33964E-01, 
     X 5.39211E-01, 5.43613E-01, 5.28793E-01, 4.94103E-01, 4.34481E-01, 
     X 3.76792E-01, 3.37161E-01, 3.15750E-01, 3.11042E-01, 3.08745E-01, 
     X 3.09195E-01, 3.05859E-01, 3.01443E-01, 2.88111E-01, 2.81303E-01, 
     X 2.75329E-01, 2.60812E-01, 2.59337E-01, 2.45576E-01, 2.40470E-01, 
     X 2.39705E-01, 2.45389E-01, 2.49801E-01, 2.53235E-01, 2.54387E-01, 
     X 2.64311E-01, 2.74146E-01, 2.89737E-01, 2.96673E-01, 3.07337E-01, 
     X 3.24380E-01, 3.42266E-01, 3.59522E-01, 3.78005E-01, 3.97178E-01, 
     X 4.23351E-01, 4.45925E-01, 4.63029E-01, 4.94843E-01, 5.19418E-01, 
     X 5.49928E-01, 5.69115E-01, 6.02396E-01, 6.43471E-01, 6.76401E-01, 
     X 7.14024E-01, 7.42425E-01, 7.60916E-01, 7.83319E-01, 7.98299E-01/ 
      DATA C00161 /                                                     
     X 7.76672E-01, 7.22769E-01, 6.45967E-01, 5.80850E-01, 5.76514E-01, 
     X 5.79380E-01, 5.90359E-01, 6.21721E-01, 6.37540E-01, 6.52572E-01, 
     X 6.63442E-01, 6.69026E-01, 6.69038E-01, 6.53319E-01, 6.21950E-01, 
     X 5.47619E-01, 4.58994E-01, 4.14888E-01, 3.97736E-01, 3.88775E-01, 
     X 3.87424E-01, 3.93567E-01, 4.03442E-01, 4.05217E-01, 4.12848E-01, 
     X 4.12246E-01, 4.16620E-01, 4.13195E-01, 4.08467E-01, 4.13104E-01, 
     X 4.24498E-01, 4.32002E-01, 4.46361E-01, 4.61131E-01, 4.77228E-01, 
     X 4.96519E-01, 5.16764E-01, 5.38966E-01, 5.54187E-01, 5.73748E-01, 
     X 6.07260E-01, 6.34358E-01, 6.60286E-01, 6.95533E-01, 7.37090E-01, 
     X 7.83894E-01, 8.19557E-01, 8.49244E-01, 8.91832E-01, 9.44885E-01, 
     X 9.86271E-01, 1.02262E+00, 1.07242E+00, 1.12162E+00, 1.18287E+00, 
     X 1.22402E+00, 1.24978E+00, 1.24392E+00, 1.19668E+00, 1.11562E+00, 
     X 1.03983E+00, 9.31884E-01, 8.35307E-01, 7.92620E-01, 7.81980E-01, 
     X 7.89623E-01, 8.05987E-01, 8.27344E-01, 8.57514E-01, 8.66302E-01, 
     X 8.72092E-01, 8.66840E-01, 8.40536E-01, 7.87360E-01, 7.35743E-01, 
     X 6.92039E-01, 6.64032E-01, 6.48360E-01, 6.46288E-01, 6.49505E-01/ 
      DATA C00241 /                                                     
     X 6.69937E-01, 6.81006E-01, 7.00969E-01, 7.19834E-01, 7.26964E-01, 
     X 7.50591E-01, 7.73600E-01, 8.00673E-01, 8.20347E-01, 8.37855E-01, 
     X 8.66780E-01, 9.04297E-01, 9.46300E-01, 9.69134E-01, 9.97928E-01, 
     X 1.06388E+00, 1.11032E+00, 1.15221E+00, 1.21324E+00, 1.24462E+00, 
     X 1.31978E+00, 1.35617E+00, 1.38792E+00, 1.39196E+00, 1.35161E+00, 
     X 1.29381E+00, 1.30295E+00, 1.32965E+00, 1.37024E+00, 1.44064E+00, 
     X 1.50484E+00, 1.57200E+00, 1.62097E+00, 1.67874E+00, 1.72676E+00, 
     X 1.73383E+00, 1.66091E+00, 1.54936E+00, 1.35454E+00, 1.20070E+00, 
     X 1.14609E+00, 1.13642E+00, 1.13784E+00, 1.14609E+00, 1.14531E+00, 
     X 1.16024E+00, 1.16891E+00, 1.16111E+00, 1.14192E+00, 1.09903E+00, 
     X 1.05745E+00, 1.02341E+00, 1.00121E+00, 1.00036E+00, 1.00576E+00, 
     X 1.02405E+00, 1.04379E+00, 1.07623E+00, 1.11347E+00, 1.17305E+00, 
     X 1.20016E+00, 1.22697E+00, 1.27479E+00, 1.32572E+00, 1.38690E+00, 
     X 1.43768E+00, 1.48379E+00, 1.55317E+00, 1.64020E+00, 1.71268E+00, 
     X 1.77183E+00, 1.85824E+00, 1.95131E+00, 2.04609E+00, 2.13151E+00, 
     X 2.17777E+00, 2.22832E+00, 2.26886E+00, 2.19775E+00, 2.05087E+00/ 
      DATA C00321 /                                                     
     X 1.96103E+00, 1.95554E+00, 1.98037E+00, 2.05440E+00, 2.11629E+00, 
     X 2.17893E+00, 2.24384E+00, 2.30464E+00, 2.32525E+00, 2.29945E+00, 
     X 2.21712E+00, 2.03430E+00, 1.82139E+00, 1.70354E+00, 1.64631E+00, 
     X 1.62164E+00, 1.61356E+00, 1.63900E+00, 1.66313E+00, 1.67409E+00, 
     X 1.69143E+00, 1.70181E+00, 1.69165E+00, 1.67699E+00, 1.67879E+00, 
     X 1.67312E+00, 1.68133E+00, 1.70002E+00, 1.72500E+00, 1.76308E+00, 
     X 1.80634E+00, 1.87548E+00, 1.94924E+00, 1.99812E+00, 2.05333E+00, 
     X 2.14035E+00, 2.21847E+00, 2.27412E+00, 2.29752E+00, 2.30750E+00, 
     X 2.36165E+00, 2.44394E+00, 2.52782E+00, 2.61343E+00, 2.71640E+00, 
     X 2.81613E+00, 2.93679E+00, 3.01577E+00, 3.15995E+00, 3.15931E+00, 
     X 2.96658E+00, 2.73295E+00, 2.67480E+00, 2.66652E+00, 2.69393E+00, 
     X 2.75102E+00, 2.86503E+00, 2.99163E+00, 2.99576E+00, 3.02603E+00, 
     X 2.98415E+00, 2.79309E+00, 2.65337E+00, 2.50962E+00, 2.43207E+00, 
     X 2.34812E+00, 2.34872E+00, 2.35186E+00, 2.39477E+00, 2.42629E+00, 
     X 2.48068E+00, 2.55087E+00, 2.55952E+00, 2.56497E+00, 2.64323E+00, 
     X 2.67961E+00, 2.66263E+00, 2.70243E+00, 2.74911E+00, 2.81786E+00/ 
      DATA C00401 /                                                     
     X 2.88684E+00, 2.97790E+00, 3.04305E+00, 3.13053E+00, 3.23857E+00, 
     X 3.35582E+00, 3.40654E+00, 3.38117E+00, 3.36296E+00, 3.39480E+00, 
     X 3.49066E+00, 3.60832E+00, 3.71817E+00, 3.83924E+00, 3.96355E+00, 
     X 4.03656E+00, 4.00518E+00, 3.90389E+00, 3.74790E+00, 3.61385E+00, 
     X 3.57066E+00, 3.59438E+00, 3.66182E+00, 3.71176E+00, 3.75255E+00, 
     X 3.79101E+00, 3.85278E+00, 3.85027E+00, 3.81112E+00, 3.72553E+00, 
     X 3.61017E+00, 3.54384E+00, 3.52406E+00, 3.54097E+00, 3.59375E+00, 
     X 3.66312E+00, 3.72632E+00, 3.76825E+00, 3.86798E+00, 3.92916E+00, 
     X 3.95610E+00, 4.00120E+00, 4.05865E+00, 4.11981E+00, 4.14634E+00, 
     X 4.19109E+00, 4.20317E+00, 4.25754E+00, 4.35131E+00, 4.48573E+00, 
     X 4.58716E+00, 4.67462E+00, 4.78228E+00, 4.91196E+00, 5.01871E+00, 
     X 5.10663E+00, 5.17780E+00, 5.21393E+00, 5.18144E+00, 5.04379E+00, 
     X 4.86504E+00, 4.78569E+00, 4.72717E+00, 4.69132E+00, 4.65797E+00, 
     X 4.60305E+00, 4.59798E+00, 4.65300E+00, 4.69707E+00, 4.74790E+00, 
     X 4.82581E+00, 4.80953E+00, 4.80517E+00, 4.82685E+00, 4.82321E+00, 
     X 4.84806E+00, 4.88591E+00, 4.91759E+00, 4.98074E+00, 5.07071E+00/ 
      DATA C00481 /                                                     
     X 5.18733E+00, 5.30567E+00, 5.38670E+00, 5.43942E+00, 5.51797E+00, 
     X 5.62652E+00, 5.71228E+00, 5.82347E+00, 5.91434E+00, 6.00171E+00, 
     X 6.06977E+00, 6.13040E+00, 6.21990E+00, 6.29980E+00, 6.37206E+00, 
     X 6.48233E+00, 6.53068E+00, 6.53275E+00, 6.56858E+00, 6.54577E+00, 
     X 6.50472E+00, 6.41504E+00, 6.33853E+00, 6.31184E+00, 6.21253E+00, 
     X 6.22034E+00, 6.26918E+00, 6.28982E+00, 6.29461E+00, 6.35418E+00, 
     X 6.40956E+00, 6.38020E+00, 6.39784E+00, 6.45383E+00, 6.50134E+00, 
     X 6.56808E+00, 6.58850E+00, 6.58882E+00, 6.65097E+00, 6.75259E+00, 
     X 6.83256E+00, 6.92593E+00, 6.98083E+00, 7.03632E+00, 7.11147E+00, 
     X 7.15622E+00, 7.21106E+00, 7.27319E+00, 7.33382E+00, 7.38601E+00, 
     X 7.48971E+00, 7.61459E+00, 7.70134E+00, 7.76194E+00, 7.85534E+00, 
     X 7.99519E+00, 8.12227E+00, 8.25461E+00, 8.34670E+00, 8.42733E+00, 
     X 8.51806E+00, 8.57638E+00, 8.56481E+00, 8.55461E+00, 8.55593E+00, 
     X 8.58756E+00, 8.50070E+00, 8.54400E+00, 8.57575E+00, 8.62083E+00, 
     X 8.60684E+00, 8.67824E+00, 8.72069E+00, 8.79127E+00, 8.85479E+00, 
     X 8.86770E+00, 8.90574E+00, 8.91531E+00, 8.94800E+00, 9.00167E+00/ 
      DATA C00561 /                                                     
     X 9.14051E+00, 9.25421E+00, 9.39694E+00, 9.50896E+00, 9.53190E+00, 
     X 9.55977E+00, 9.53482E+00, 9.49662E+00, 9.53359E+00, 9.54007E+00, 
     X 9.49809E+00, 9.49373E+00, 9.53282E+00, 9.63757E+00, 9.67855E+00, 
     X 9.67633E+00, 9.67045E+00, 9.79481E+00, 9.93420E+00, 1.00234E+01, 
     X 1.01372E+01, 1.02577E+01, 1.05056E+01, 1.07873E+01, 1.09967E+01, 
     X 1.10873E+01, 1.11624E+01, 1.13006E+01, 1.14875E+01, 1.16106E+01, 
     X 1.16744E+01, 1.17582E+01, 1.17709E+01, 1.18537E+01, 1.19623E+01, 
     X 1.19763E+01, 1.19879E+01, 1.20384E+01, 1.20763E+01, 1.20826E+01, 
     X 1.20449E+01, 1.19747E+01, 1.20227E+01, 1.21805E+01, 1.23134E+01, 
     X 1.24042E+01, 1.25614E+01, 1.26828E+01, 1.26645E+01, 1.26963E+01, 
     X 1.28226E+01, 1.28720E+01, 1.28981E+01, 1.29462E+01, 1.29363E+01, 
     X 1.29199E+01, 1.29797E+01, 1.28860E+01, 1.29126E+01, 1.30205E+01, 
     X 1.31327E+01, 1.31722E+01, 1.31901E+01, 1.33189E+01, 1.34833E+01, 
     X 1.36228E+01, 1.37474E+01, 1.38548E+01, 1.39450E+01, 1.40926E+01, 
     X 1.43099E+01, 1.44836E+01, 1.46257E+01, 1.47755E+01, 1.49163E+01, 
     X 1.51038E+01, 1.53308E+01, 1.54194E+01, 1.54852E+01, 1.55968E+01/ 
      DATA C00641 /                                                     
     X 1.57025E+01, 1.58667E+01, 1.60365E+01, 1.61427E+01, 1.62967E+01, 
     X 1.64735E+01, 1.66123E+01, 1.67268E+01, 1.67673E+01, 1.67825E+01, 
     X 1.68898E+01, 1.68178E+01, 1.68216E+01, 1.68574E+01, 1.68799E+01, 
     X 1.70317E+01, 1.70767E+01, 1.71508E+01, 1.72965E+01, 1.73421E+01, 
     X 1.73937E+01, 1.74420E+01, 1.74535E+01, 1.75110E+01, 1.75497E+01, 
     X 1.75149E+01, 1.75955E+01, 1.78260E+01, 1.78271E+01, 1.79750E+01, 
     X 1.80600E+01, 1.81597E+01, 1.83454E+01, 1.85243E+01, 1.87382E+01, 
     X 1.88904E+01, 1.90395E+01, 1.92759E+01, 1.95398E+01, 1.97712E+01, 
     X 1.98487E+01, 1.99522E+01, 2.02363E+01, 2.03271E+01, 2.07090E+01, 
     X 2.09195E+01, 2.10974E+01, 2.11702E+01, 2.12964E+01, 2.14339E+01, 
     X 2.15764E+01, 2.17351E+01, 2.18486E+01, 2.19700E+01, 2.21663E+01, 
     X 2.24244E+01, 2.24813E+01, 2.25248E+01, 2.26357E+01, 2.26457E+01, 
     X 2.27249E+01, 2.27172E+01, 2.27123E+01, 2.26859E+01, 2.27216E+01, 
     X 2.29306E+01, 2.30711E+01, 2.31374E+01, 2.31815E+01, 2.33423E+01, 
     X 2.33810E+01, 2.36430E+01, 2.36807E+01, 2.36676E+01, 2.38607E+01, 
     X 2.41559E+01, 2.43413E+01, 2.44401E+01, 2.45968E+01, 2.47927E+01/ 
      DATA C00721 /                                                     
     X 2.50743E+01, 2.53667E+01, 2.55749E+01, 2.57357E+01, 2.58927E+01, 
     X 2.61523E+01, 2.64110E+01, 2.66650E+01, 2.68829E+01, 2.70635E+01, 
     X 2.72797E+01, 2.75064E+01, 2.77229E+01, 2.80341E+01, 2.82003E+01, 
     X 2.83346E+01, 2.83909E+01, 2.86212E+01, 2.88006E+01, 2.89577E+01, 
     X 2.90965E+01, 2.91834E+01, 2.93224E+01, 2.94094E+01, 2.94848E+01, 
     X 2.96584E+01, 2.96749E+01, 2.97760E+01, 2.99163E+01, 3.00238E+01, 
     X 3.01290E+01, 3.02307E+01, 3.03663E+01, 3.05897E+01, 3.07937E+01, 
     X 3.10403E+01, 3.11778E+01, 3.13271E+01, 3.15799E+01, 3.18435E+01, 
     X 3.21614E+01, 3.25097E+01, 3.27701E+01, 3.29600E+01, 3.32583E+01, 
     X 3.36348E+01, 3.40282E+01, 3.41751E+01, 3.44128E+01, 3.46199E+01, 
     X 3.49363E+01, 3.52087E+01, 3.54056E+01, 3.55596E+01, 3.56694E+01, 
     X 3.58104E+01, 3.60276E+01, 3.62818E+01, 3.63505E+01, 3.66069E+01, 
     X 3.67544E+01, 3.70664E+01, 3.72525E+01, 3.73491E+01, 3.76006E+01, 
     X 3.77102E+01, 3.78970E+01, 3.81254E+01, 3.82728E+01, 3.81720E+01, 
     X 3.82781E+01, 3.84982E+01, 3.87202E+01, 3.89958E+01, 3.94148E+01, 
     X 3.98434E+01, 3.98952E+01, 4.01573E+01, 4.06014E+01, 4.09651E+01/ 
      DATA C00801 /                                                     
     X 4.12821E+01, 4.16849E+01, 4.19899E+01, 4.22719E+01, 4.27736E+01, 
     X 4.32254E+01, 4.33883E+01, 4.39831E+01, 4.39414E+01, 4.42613E+01, 
     X 4.46503E+01, 4.49027E+01, 4.50384E+01, 4.52929E+01, 4.57269E+01, 
     X 4.56433E+01, 4.57350E+01, 4.60128E+01, 4.60487E+01, 4.61183E+01, 
     X 4.64397E+01, 4.68211E+01, 4.70706E+01, 4.72821E+01, 4.74972E+01, 
     X 4.78253E+01, 4.81615E+01, 4.84480E+01, 4.85703E+01, 4.87397E+01, 
     X 4.90015E+01, 4.93673E+01, 4.97291E+01, 4.99836E+01, 5.02975E+01, 
     X 5.05572E+01, 5.08226E+01, 5.13433E+01, 5.17112E+01, 5.19703E+01, 
     X 5.23128E+01, 5.27305E+01, 5.30599E+01, 5.34555E+01, 5.39625E+01, 
     X 5.43627E+01, 5.45446E+01, 5.49263E+01, 5.53511E+01, 5.57270E+01, 
     X 5.60904E+01, 5.63875E+01, 5.68475E+01, 5.73172E+01, 5.81134E+01, 
     X 5.86399E+01, 5.90384E+01, 5.91417E+01, 5.90883E+01, 5.93610E+01, 
     X 5.95794E+01, 5.99600E+01, 5.98493E+01, 5.99441E+01, 6.02748E+01, 
     X 6.04778E+01, 6.05233E+01, 6.07194E+01, 6.11589E+01, 6.13324E+01, 
     X 6.17685E+01, 6.23166E+01, 6.31055E+01, 6.38211E+01, 6.42320E+01, 
     X 6.45195E+01, 6.51125E+01, 6.56765E+01, 6.59286E+01, 6.62716E+01/ 
      DATA C00881 /                                                     
     X 6.65693E+01, 6.68906E+01, 6.72246E+01, 6.75177E+01, 6.78476E+01, 
     X 6.82599E+01, 6.84400E+01, 6.89072E+01, 6.95720E+01, 7.01410E+01, 
     X 7.05519E+01, 7.09367E+01, 7.13975E+01, 7.22128E+01, 7.28222E+01, 
     X 7.33808E+01, 7.38828E+01, 7.44496E+01, 7.49983E+01, 7.54178E+01, 
     X 7.60554E+01, 7.62484E+01, 7.67892E+01, 7.71262E+01, 7.76235E+01, 
     X 7.81413E+01, 7.85694E+01, 7.91248E+01, 7.94715E+01, 7.96200E+01, 
     X 8.00270E+01, 8.03783E+01, 8.07100E+01, 8.11929E+01, 8.17375E+01, 
     X 8.18410E+01, 8.23341E+01, 8.26754E+01, 8.30893E+01, 8.34232E+01, 
     X 8.35533E+01, 8.36017E+01, 8.38589E+01, 8.43366E+01, 8.47593E+01, 
     X 8.51614E+01, 8.55271E+01, 8.58979E+01, 8.64892E+01, 8.74367E+01, 
     X 8.82440E+01, 8.89105E+01, 8.90980E+01, 8.97266E+01, 9.04886E+01, 
     X 9.12709E+01, 9.21243E+01, 9.26673E+01, 9.31331E+01, 9.38190E+01, 
     X 9.44877E+01, 9.50636E+01, 9.57445E+01, 9.65211E+01, 9.68623E+01, 
     X 9.75356E+01, 9.81991E+01, 9.88881E+01, 9.94554E+01, 9.99292E+01, 
     X 1.00357E+02, 1.00670E+02, 1.01227E+02, 1.01529E+02, 1.01889E+02, 
     X 1.02033E+02, 1.02254E+02, 1.02731E+02, 1.02914E+02, 1.03120E+02/ 
      DATA C00961 /                                                     
     X 1.03674E+02, 1.03768E+02, 1.04146E+02, 1.04850E+02, 1.05525E+02, 
     X 1.06263E+02, 1.06653E+02, 1.07084E+02, 1.07461E+02, 1.08052E+02, 
     X 1.08793E+02, 1.09395E+02, 1.09811E+02, 1.10079E+02, 1.10656E+02, 
     X 1.11575E+02, 1.12544E+02, 1.13453E+02, 1.14440E+02, 1.15292E+02, 
     X 1.15869E+02, 1.16925E+02, 1.17854E+02, 1.18723E+02, 1.19574E+02, 
     X 1.19940E+02, 1.21108E+02, 1.21807E+02, 1.22490E+02, 1.23278E+02, 
     X 1.24094E+02, 1.24816E+02, 1.25469E+02, 1.26217E+02, 1.26878E+02, 
     X 1.27536E+02, 1.28168E+02, 1.28682E+02, 1.29076E+02, 1.30171E+02, 
     X 1.30667E+02, 1.31242E+02, 1.31665E+02, 1.31961E+02, 1.32347E+02, 
     X 1.32805E+02, 1.33152E+02, 1.33869E+02, 1.34261E+02, 1.34498E+02, 
     X 1.35028E+02, 1.36049E+02, 1.36577E+02, 1.37491E+02, 1.38078E+02, 
     X 1.38389E+02, 1.38819E+02, 1.39653E+02, 1.39770E+02, 1.40812E+02, 
     X 1.40926E+02, 1.41267E+02, 1.41872E+02, 1.42233E+02, 1.43447E+02, 
     X 1.44641E+02, 1.45500E+02, 1.45996E+02, 1.47040E+02, 1.48767E+02, 
     X 1.48785E+02, 1.49525E+02, 1.50266E+02, 1.50814E+02, 1.51443E+02, 
     X 1.52272E+02, 1.52846E+02, 1.54000E+02, 1.54629E+02, 1.54907E+02/ 
      DATA C01041 /                                                     
     X 1.55527E+02, 1.56642E+02, 1.57436E+02, 1.59036E+02, 1.59336E+02, 
     X 1.59661E+02, 1.60287E+02, 1.61202E+02, 1.62410E+02, 1.63040E+02, 
     X 1.62872E+02, 1.63248E+02, 1.63776E+02, 1.64313E+02, 1.65782E+02, 
     X 1.65692E+02, 1.66049E+02, 1.66701E+02, 1.67786E+02, 1.69150E+02, 
     X 1.69996E+02, 1.71634E+02, 1.71137E+02, 1.71372E+02, 1.72525E+02, 
     X 1.73816E+02, 1.75219E+02, 1.76091E+02, 1.78260E+02, 1.79299E+02, 
     X 1.79904E+02, 1.81718E+02, 1.83807E+02, 1.85488E+02, 1.85929E+02, 
     X 1.86787E+02, 1.88282E+02, 1.89546E+02, 1.91489E+02, 1.92646E+02, 
     X 1.93399E+02, 1.93838E+02, 1.94406E+02, 1.95829E+02, 1.96745E+02, 
     X 1.96978E+02, 1.97243E+02, 1.97636E+02, 1.98025E+02, 1.98227E+02, 
     X 1.99552E+02, 2.00304E+02, 2.01031E+02, 2.01788E+02, 2.02432E+02, 
     X 2.03817E+02, 2.04866E+02, 2.05561E+02, 2.06180E+02, 2.07024E+02, 
     X 2.08303E+02, 2.09426E+02, 2.10575E+02, 2.11637E+02, 2.12559E+02, 
     X 2.13361E+02, 2.14191E+02, 2.15264E+02, 2.16366E+02, 2.17316E+02, 
     X 2.17717E+02, 2.17154E+02, 2.19172E+02, 2.20346E+02, 2.20849E+02, 
     X 2.21539E+02, 2.22810E+02, 2.22740E+02, 2.22824E+02, 2.23285E+02/ 
      DATA C01121 /                                                     
     X 2.23696E+02, 2.23864E+02, 2.23968E+02, 2.23544E+02, 2.24804E+02, 
     X 2.25953E+02, 2.26753E+02, 2.27732E+02, 2.29505E+02, 2.30108E+02, 
     X 2.31232E+02, 2.32552E+02, 2.33979E+02, 2.36677E+02, 2.38481E+02, 
     X 2.41797E+02, 2.44025E+02, 2.45113E+02, 2.47373E+02, 2.47258E+02, 
     X 2.48617E+02, 2.49790E+02, 2.50562E+02, 2.51198E+02, 2.51289E+02, 
     X 2.52509E+02, 2.54136E+02, 2.55335E+02, 2.55808E+02, 2.56567E+02, 
     X 2.57977E+02, 2.58987E+02, 2.59622E+02, 2.60170E+02, 2.61127E+02, 
     X 2.60655E+02, 2.62129E+02, 2.64020E+02, 2.65659E+02, 2.67086E+02, 
     X 2.67615E+02, 2.69800E+02, 2.71452E+02, 2.73314E+02, 2.76972E+02, 
     X 2.78005E+02, 2.79815E+02, 2.81709E+02, 2.84043E+02, 2.87070E+02, 
     X 2.88842E+02, 2.90555E+02, 2.92401E+02, 2.94314E+02, 2.96074E+02, 
     X 2.97103E+02, 2.98037E+02, 2.98113E+02, 2.97705E+02, 2.97350E+02, 
     X 2.97329E+02, 2.97016E+02, 2.96752E+02, 2.96599E+02, 2.96637E+02, 
     X 2.97057E+02, 2.97585E+02, 2.98179E+02, 2.98997E+02, 3.00012E+02, 
     X 3.00806E+02, 3.00908E+02, 3.02369E+02, 3.04063E+02, 3.05325E+02, 
     X 3.06737E+02, 3.08066E+02, 3.09694E+02, 3.11530E+02, 3.13132E+02/ 
      DATA C01201 /                                                     
     X 3.13296E+02, 3.15513E+02, 3.16887E+02, 3.17682E+02, 3.18296E+02, 
     X 3.18654E+02, 3.18912E+02, 3.19236E+02, 3.19626E+02, 3.20020E+02, 
     X 3.20186E+02, 3.20709E+02, 3.21628E+02, 3.22625E+02, 3.23504E+02, 
     X 3.25479E+02, 3.26825E+02, 3.28146E+02, 3.29404E+02, 3.30512E+02, 
     X 3.32634E+02, 3.34422E+02, 3.35602E+02, 3.36833E+02, 3.39372E+02, 
     X 3.43446E+02, 3.46374E+02, 3.48719E+02, 3.50881E+02, 3.53160E+02, 
     X 3.54890E+02, 3.57162E+02, 3.59284E+02, 3.60876E+02, 3.62295E+02, 
     X 3.63987E+02, 3.64835E+02, 3.65257E+02, 3.65738E+02, 3.65904E+02, 
     X 3.65976E+02, 3.66460E+02, 3.67087E+02, 3.67377E+02, 3.69079E+02, 
     X 3.70694E+02, 3.70940E+02, 3.70557E+02, 3.72693E+02, 3.73852E+02, 
     X 3.75679E+02, 3.77863E+02, 3.79964E+02, 3.81368E+02, 3.82716E+02, 
     X 3.85556E+02, 3.89072E+02, 3.91796E+02, 3.92766E+02, 3.96551E+02, 
     X 3.97833E+02, 3.97285E+02, 4.01929E+02, 4.02158E+02, 4.04553E+02, 
     X 4.06451E+02, 4.06236E+02, 4.08135E+02, 4.07797E+02, 4.08415E+02, 
     X 4.10111E+02, 4.11781E+02, 4.12735E+02, 4.11547E+02, 4.11606E+02, 
     X 4.13548E+02, 4.12557E+02, 4.12923E+02, 4.12866E+02, 4.13009E+02/ 
      DATA C01281 /                                                     
     X 4.14447E+02, 4.16032E+02, 4.17032E+02, 4.19064E+02, 4.22458E+02, 
     X 4.26021E+02, 4.25192E+02, 4.25684E+02, 4.27536E+02, 4.29972E+02, 
     X 4.31994E+02, 4.36037E+02, 4.39132E+02, 4.40363E+02, 4.40716E+02, 
     X 4.40342E+02, 4.42063E+02, 4.44408E+02, 4.45454E+02, 4.47835E+02, 
     X 4.48256E+02, 4.48831E+02, 4.50257E+02, 4.51427E+02, 4.52373E+02, 
     X 4.53899E+02, 4.55496E+02, 4.56311E+02, 4.57314E+02, 4.59922E+02, 
     X 4.61048E+02, 4.59840E+02, 4.62144E+02, 4.63152E+02, 4.64565E+02, 
     X 4.66715E+02, 4.69380E+02, 4.70751E+02, 4.72012E+02, 4.73482E+02, 
     X 4.75524E+02, 4.79307E+02, 4.82035E+02, 4.84423E+02, 4.86712E+02, 
     X 4.88754E+02, 4.90102E+02, 4.92047E+02, 4.94150E+02, 4.95375E+02, 
     X 4.95828E+02, 4.97555E+02, 4.98559E+02, 4.97618E+02, 4.99265E+02, 
     X 4.99979E+02, 5.00681E+02, 5.01386E+02, 5.00868E+02, 5.01935E+02, 
     X 5.03151E+02, 5.04329E+02, 5.05546E+02, 5.08259E+02, 5.09222E+02, 
     X 5.09818E+02, 5.11397E+02, 5.12391E+02, 5.13326E+02, 5.14329E+02, 
     X 5.15443E+02, 5.16533E+02, 5.21417E+02, 5.25071E+02, 5.26581E+02, 
     X 5.27762E+02, 5.29274E+02, 5.31704E+02, 5.34310E+02, 5.35727E+02/ 
      DATA C01361 /                                                     
     X 5.36838E+02, 5.37082E+02, 5.36733E+02, 5.36170E+02, 5.36063E+02, 
     X 5.36451E+02, 5.37870E+02, 5.40475E+02, 5.42268E+02, 5.41972E+02, 
     X 5.42532E+02, 5.44764E+02, 5.46844E+02, 5.47525E+02, 5.49150E+02, 
     X 5.52049E+02, 5.55423E+02, 5.56259E+02, 5.57424E+02, 5.59189E+02, 
     X 5.61167E+02, 5.64512E+02, 5.66753E+02, 5.68183E+02, 5.69628E+02, 
     X 5.73474E+02, 5.76192E+02, 5.78058E+02, 5.79588E+02, 5.81619E+02, 
     X 5.83530E+02, 5.84852E+02, 5.85326E+02, 5.88130E+02, 5.90570E+02, 
     X 5.91785E+02, 5.91371E+02, 5.90931E+02, 5.90942E+02, 5.91168E+02, 
     X 5.91291E+02, 5.89791E+02, 5.91146E+02, 5.90804E+02, 5.87847E+02, 
     X 5.89067E+02, 5.91027E+02, 5.90951E+02, 5.89227E+02, 5.93389E+02, 
     X 5.92921E+02, 5.92739E+02, 5.94544E+02, 5.98941E+02, 6.02302E+02, 
     X 6.03908E+02, 6.04265E+02, 6.06737E+02, 6.08560E+02, 6.11272E+02, 
     X 6.14992E+02, 6.18595E+02, 6.20930E+02, 6.22107E+02, 6.22957E+02, 
     X 6.26710E+02, 6.28657E+02, 6.30132E+02, 6.31543E+02, 6.33043E+02, 
     X 6.36932E+02, 6.38248E+02, 6.37126E+02, 6.41648E+02, 6.48274E+02, 
     X 6.52638E+02, 6.53922E+02, 6.56647E+02, 6.59351E+02, 6.60525E+02/ 
      DATA C01441 /                                                     
     X 6.60130E+02, 6.61375E+02, 6.62660E+02, 6.63976E+02, 6.65181E+02, 
     X 6.64820E+02, 6.64458E+02, 6.64927E+02, 6.66555E+02, 6.66759E+02, 
     X 6.68218E+02, 6.70323E+02, 6.72703E+02, 6.76085E+02, 6.79180E+02, 
     X 6.80850E+02, 6.80017E+02, 6.79928E+02, 6.80886E+02, 6.82038E+02, 
     X 6.82271E+02, 6.84057E+02, 6.85309E+02, 6.86816E+02, 6.90180E+02, 
     X 6.93205E+02, 6.95870E+02, 6.98794E+02, 7.03776E+02, 7.04010E+02, 
     X 7.05041E+02, 7.07254E+02, 7.07432E+02, 7.10736E+02, 7.13791E+02, 
     X 7.15542E+02, 7.16468E+02, 7.17412E+02, 7.17783E+02, 7.17340E+02, 
     X 7.18184E+02, 7.18716E+02, 7.18809E+02, 7.18282E+02, 7.20317E+02, 
     X 7.18568E+02, 7.16274E+02, 7.19119E+02, 7.20852E+02, 7.21727E+02, 
     X 7.22607E+02, 7.26369E+02, 7.26412E+02, 7.27101E+02, 7.29404E+02, 
     X 7.30786E+02, 7.30910E+02, 7.30656E+02, 7.30566E+02, 7.33408E+02, 
     X 7.37064E+02, 7.39178E+02, 7.36713E+02, 7.37365E+02, 7.40861E+02, 
     X 7.45281E+02, 7.46178E+02, 7.46991E+02, 7.48035E+02, 7.49777E+02, 
     X 7.54665E+02, 7.56585E+02, 7.57408E+02, 7.58131E+02, 7.58155E+02, 
     X 7.60838E+02, 7.64792E+02, 7.68161E+02, 7.69263E+02, 7.73166E+02/ 
      DATA C01521 /                                                     
     X 7.79006E+02, 7.82037E+02, 7.83109E+02, 7.84674E+02, 7.87444E+02, 
     X 7.89510E+02, 7.90130E+02, 7.91364E+02, 7.95225E+02, 8.03599E+02, 
     X 8.06340E+02, 8.05105E+02, 8.05120E+02, 8.08515E+02, 8.10907E+02, 
     X 8.11388E+02, 8.13432E+02, 8.12579E+02, 8.10564E+02, 8.08719E+02, 
     X 8.07682E+02, 8.05009E+02, 8.01754E+02, 8.01013E+02, 7.99926E+02, 
     X 7.99067E+02, 7.98369E+02, 7.94090E+02, 7.92883E+02, 7.94244E+02, 
     X 7.98220E+02, 7.98201E+02, 7.98332E+02, 7.99289E+02, 8.02355E+02, 
     X 8.03621E+02, 8.05302E+02, 8.08368E+02, 8.09983E+02, 8.11529E+02, 
     X 8.13068E+02, 8.14717E+02, 8.16441E+02, 8.19241E+02, 8.22944E+02, 
     X 8.23768E+02, 8.25030E+02, 8.26103E+02, 8.26374E+02, 8.28331E+02, 
     X 8.32620E+02, 8.38618E+02, 8.43666E+02, 8.45212E+02, 8.46324E+02, 
     X 8.48536E+02, 8.50192E+02, 8.53083E+02, 8.56653E+02, 8.59614E+02, 
     X 8.62000E+02, 8.64593E+02, 8.67678E+02, 8.70908E+02, 8.73408E+02, 
     X 8.74779E+02, 8.74005E+02, 8.76718E+02, 8.80445E+02, 8.84365E+02, 
     X 8.83806E+02, 8.84292E+02, 8.85539E+02, 8.87474E+02, 8.84905E+02, 
     X 8.84039E+02, 8.85105E+02, 8.83733E+02, 8.82224E+02, 8.79865E+02/ 
      DATA C01601 /                                                     
     X 8.75663E+02, 8.75575E+02, 8.73144E+02, 8.68602E+02, 8.70278E+02, 
     X 8.69659E+02, 8.68701E+02, 8.69250E+02, 8.71057E+02, 8.72860E+02, 
     X 8.74361E+02, 8.74458E+02, 8.77576E+02, 8.81613E+02, 8.84358E+02, 
     X 8.87440E+02, 8.91549E+02, 8.96568E+02, 8.99836E+02, 9.02880E+02, 
     X 9.05428E+02, 9.06891E+02, 9.07349E+02, 9.10151E+02, 9.15917E+02, 
     X 9.16197E+02, 9.18571E+02, 9.21219E+02, 9.20292E+02, 9.21949E+02, 
     X 9.24509E+02, 9.27454E+02, 9.29474E+02, 9.31348E+02, 9.32818E+02, 
     X 9.32658E+02, 9.36280E+02, 9.39512E+02, 9.39667E+02, 9.44078E+02, 
     X 9.47196E+02, 9.48291E+02, 9.46150E+02, 9.46918E+02, 9.49093E+02, 
     X 9.51372E+02, 9.53109E+02, 9.56308E+02, 9.61335E+02, 9.58214E+02, 
     X 9.56188E+02, 9.55660E+02, 9.58633E+02, 9.57541E+02, 9.54879E+02, 
     X 9.51663E+02, 9.52839E+02, 9.52055E+02, 9.49253E+02, 9.50187E+02, 
     X 9.50323E+02, 9.50937E+02, 9.54362E+02, 9.55855E+02, 9.56350E+02, 
     X 9.55908E+02, 9.57963E+02, 9.61866E+02, 9.66948E+02, 9.69786E+02, 
     X 9.74302E+02, 9.79061E+02, 9.82465E+02, 9.86019E+02, 9.89930E+02, 
     X 9.94294E+02, 9.97011E+02, 9.98207E+02, 9.98607E+02, 1.00175E+03/ 
      DATA C01681 /                                                     
     X 1.00275E+03, 1.00284E+03, 1.00294E+03, 1.00485E+03, 1.00593E+03, 
     X 1.00524E+03, 1.00415E+03, 1.00335E+03, 1.00278E+03, 1.00185E+03, 
     X 9.99982E+02, 9.98177E+02, 9.97959E+02, 9.99161E+02, 9.98810E+02, 
     X 9.95415E+02, 9.94342E+02, 9.92998E+02, 9.91340E+02, 9.90900E+02, 
     X 9.90407E+02, 9.89232E+02, 9.85447E+02, 9.86312E+02, 9.87461E+02, 
     X 9.86090E+02, 9.86670E+02, 9.85534E+02, 9.81877E+02, 9.84946E+02, 
     X 9.86392E+02, 9.86709E+02, 9.88086E+02, 9.90269E+02, 9.92566E+02, 
     X 9.94029E+02, 9.95795E+02, 9.97788E+02, 1.00005E+03, 1.00287E+03, 
     X 1.00566E+03, 1.00833E+03, 1.00982E+03, 1.01348E+03, 1.01862E+03, 
     X 1.02322E+03, 1.02786E+03, 1.03179E+03, 1.03339E+03, 1.03833E+03, 
     X 1.04317E+03, 1.04598E+03, 1.04753E+03, 1.04981E+03, 1.05321E+03, 
     X 1.05492E+03, 1.05721E+03, 1.05978E+03, 1.06033E+03, 1.06107E+03, 
     X 1.06155E+03, 1.06035E+03, 1.05838E+03, 1.05649E+03, 1.05553E+03, 
     X 1.05498E+03, 1.05387E+03, 1.05171E+03, 1.04877E+03, 1.04725E+03, 
     X 1.04748E+03, 1.04733E+03, 1.04704E+03, 1.04643E+03, 1.04411E+03, 
     X 1.04435E+03, 1.04520E+03, 1.04233E+03, 1.04047E+03, 1.03992E+03/ 
      DATA C01761 /                                                     
     X 1.04192E+03, 1.04171E+03, 1.04140E+03, 1.04197E+03, 1.04415E+03, 
     X 1.04548E+03, 1.04533E+03, 1.04616E+03, 1.04705E+03, 1.04800E+03, 
     X 1.05025E+03, 1.05219E+03, 1.05412E+03, 1.05808E+03, 1.06062E+03, 
     X 1.06292E+03, 1.06780E+03, 1.07219E+03, 1.07610E+03, 1.07913E+03, 
     X 1.08405E+03, 1.08798E+03, 1.08835E+03, 1.09140E+03, 1.09447E+03, 
     X 1.09676E+03, 1.10015E+03, 1.10272E+03, 1.10410E+03, 1.10749E+03, 
     X 1.10991E+03, 1.11121E+03, 1.10981E+03, 1.10981E+03, 1.11063E+03, 
     X 1.10714E+03, 1.10500E+03, 1.10357E+03, 1.10093E+03, 1.09898E+03, 
     X 1.09679E+03, 1.09188E+03, 1.09088E+03, 1.09040E+03, 1.08586E+03, 
     X 1.08178E+03, 1.07752E+03, 1.07243E+03, 1.07178E+03, 1.07084E+03, 
     X 1.06693E+03, 1.06527E+03, 1.06405E+03, 1.06285E+03, 1.06287E+03, 
     X 1.06276E+03, 1.06221E+03, 1.06464E+03, 1.06579E+03, 1.06498E+03, 
     X 1.06596E+03, 1.06812E+03, 1.07159E+03, 1.07361E+03, 1.07556E+03, 
     X 1.07751E+03, 1.08128E+03, 1.08523E+03, 1.08927E+03, 1.09193E+03, 
     X 1.09612E+03, 1.10133E+03, 1.10435E+03, 1.10781E+03, 1.11168E+03, 
     X 1.11641E+03, 1.12217E+03, 1.12839E+03, 1.13298E+03, 1.13575E+03/ 
      DATA C01841 /                                                     
     X 1.13742E+03, 1.13929E+03, 1.14132E+03, 1.14340E+03, 1.14518E+03, 
     X 1.14742E+03, 1.14943E+03, 1.14935E+03, 1.14975E+03, 1.15086E+03, 
     X 1.15420E+03, 1.15267E+03, 1.15007E+03, 1.15155E+03, 1.14982E+03, 
     X 1.14663E+03, 1.14301E+03, 1.13986E+03, 1.13676E+03, 1.13307E+03, 
     X 1.12898E+03, 1.12516E+03, 1.12284E+03, 1.12068E+03, 1.11855E+03, 
     X 1.11632E+03, 1.11464E+03, 1.11318E+03, 1.11180E+03, 1.11163E+03, 
     X 1.11160E+03, 1.11035E+03, 1.11178E+03, 1.11395E+03, 1.11447E+03, 
     X 1.11439E+03, 1.11440E+03, 1.11582E+03, 1.11560E+03, 1.11478E+03, 
     X 1.11448E+03, 1.11454E+03, 1.11494E+03, 1.11607E+03, 1.11736E+03, 
     X 1.11854E+03, 1.11875E+03, 1.11989E+03, 1.12165E+03, 1.12427E+03, 
     X 1.12620E+03, 1.12758E+03, 1.12774E+03, 1.12870E+03, 1.13001E+03, 
     X 1.13006E+03, 1.13078E+03, 1.13172E+03, 1.12971E+03, 1.12857E+03, 
     X 1.12810E+03, 1.12740E+03, 1.12659E+03, 1.12564E+03, 1.12338E+03, 
     X 1.12117E+03, 1.11902E+03, 1.11878E+03, 1.11855E+03, 1.11828E+03, 
     X 1.11791E+03, 1.11784E+03, 1.11815E+03, 1.11957E+03, 1.12046E+03, 
     X 1.12042E+03, 1.11929E+03, 1.12074E+03, 1.12708E+03, 1.12600E+03/ 
      DATA C01921 /                                                     
     X 1.12538E+03, 1.12871E+03, 1.13167E+03, 1.13388E+03, 1.13444E+03, 
     X 1.13595E+03, 1.13801E+03, 1.14096E+03, 1.14230E+03, 1.14304E+03, 
     X 1.14421E+03, 1.14580E+03, 1.14767E+03, 1.15000E+03, 1.15126E+03, 
     X 1.15181E+03, 1.15197E+03, 1.15364E+03, 1.15626E+03, 1.15538E+03, 
     X 1.15636E+03, 1.15908E+03, 1.16024E+03, 1.16188E+03, 1.16411E+03, 
     X 1.16310E+03, 1.16430E+03, 1.16927E+03, 1.17035E+03, 1.17052E+03, 
     X 1.17013E+03, 1.16968E+03, 1.16969E+03, 1.17106E+03, 1.17123E+03, 
     X 1.17006E+03, 1.16536E+03, 1.16087E+03, 1.15691E+03, 1.15608E+03, 
     X 1.15388E+03, 1.15077E+03, 1.14967E+03, 1.14793E+03, 1.14554E+03, 
     X 1.14212E+03, 1.13908E+03, 1.13654E+03, 1.13499E+03, 1.13308E+03, 
     X 1.13033E+03, 1.13051E+03, 1.13073E+03, 1.12898E+03, 1.12941E+03, 
     X 1.13051E+03, 1.13086E+03, 1.13189E+03, 1.13304E+03, 1.13192E+03, 
     X 1.13131E+03, 1.13110E+03, 1.13499E+03, 1.13914E+03, 1.14359E+03, 
     X 1.14383E+03, 1.14390E+03, 1.14435E+03, 1.14540E+03, 1.14646E+03, 
     X 1.14716E+03, 1.14880E+03, 1.15062E+03, 1.15170E+03, 1.15093E+03, 
     X 1.14926E+03, 1.15133E+03, 1.15167E+03, 1.15043E+03, 1.15134E+03/ 
      DATA C02001 /                                                     
     X 1.15135E+03, 1.15000E+03, 1.15087E+03, 1.15118E+03, 1.14935E+03, 
     X 1.14780E+03, 1.14647E+03, 1.14560E+03, 1.14404E+03, 1.14238E+03, 
     X 1.14406E+03, 1.14245E+03, 1.13781E+03, 1.13664E+03, 1.13653E+03, 
     X 1.13778E+03, 1.13813E+03, 1.13794E+03, 1.13681E+03, 1.13515E+03, 
     X 1.13328E+03, 1.13132E+03, 1.13080E+03, 1.13130E+03, 1.13400E+03, 
     X 1.13526E+03, 1.13494E+03, 1.13193E+03, 1.12898E+03, 1.12654E+03, 
     X 1.12739E+03, 1.12849E+03, 1.12774E+03, 1.12733E+03, 1.12733E+03, 
     X 1.12943E+03, 1.13014E+03, 1.12967E+03, 1.12731E+03, 1.12671E+03, 
     X 1.12885E+03, 1.13050E+03, 1.13201E+03, 1.13345E+03, 1.13488E+03, 
     X 1.13605E+03, 1.13530E+03, 1.13737E+03, 1.14186E+03, 1.14250E+03, 
     X 1.14305E+03, 1.14383E+03, 1.14510E+03, 1.14659E+03, 1.14848E+03, 
     X 1.14949E+03, 1.14995E+03, 1.14934E+03, 1.15058E+03, 1.15368E+03, 
     X 1.15435E+03, 1.15422E+03, 1.15296E+03, 1.15228E+03, 1.15189E+03, 
     X 1.15198E+03, 1.15081E+03, 1.14881E+03, 1.14562E+03, 1.14276E+03, 
     X 1.14030E+03, 1.13637E+03, 1.13254E+03, 1.12942E+03, 1.12653E+03, 
     X 1.12362E+03, 1.11987E+03, 1.11712E+03, 1.11522E+03, 1.11403E+03/ 
      DATA C02081 /                                                     
     X 1.11226E+03, 1.10947E+03, 1.10956E+03, 1.10976E+03, 1.10748E+03, 
     X 1.10673E+03, 1.10688E+03, 1.10675E+03, 1.10533E+03, 1.10230E+03, 
     X 1.10384E+03, 1.10496E+03, 1.10274E+03, 1.10197E+03, 1.10196E+03, 
     X 1.10278E+03, 1.10257E+03, 1.10147E+03, 1.10205E+03, 1.10308E+03, 
     X 1.10478E+03, 1.10358E+03, 1.10197E+03, 1.10305E+03, 1.10390E+03, 
     X 1.10456E+03, 1.10526E+03, 1.10588E+03, 1.10640E+03, 1.10747E+03, 
     X 1.10904E+03, 1.11214E+03, 1.11350E+03, 1.11359E+03, 1.11604E+03, 
     X 1.11706E+03, 1.11594E+03, 1.11600E+03, 1.11616E+03, 1.11561E+03, 
     X 1.11556E+03, 1.11547E+03, 1.11370E+03, 1.11289E+03, 1.11276E+03, 
     X 1.11338E+03, 1.11437E+03, 1.11595E+03, 1.11309E+03, 1.10958E+03, 
     X 1.10887E+03, 1.10573E+03, 1.10068E+03, 1.10194E+03, 1.10165E+03, 
     X 1.09813E+03, 1.09973E+03, 1.10233E+03, 1.10121E+03, 1.10097E+03, 
     X 1.10149E+03, 1.10162E+03, 1.10222E+03, 1.10389E+03, 1.10315E+03, 
     X 1.10158E+03, 1.10193E+03, 1.10186E+03, 1.10135E+03, 1.10336E+03, 
     X 1.10500E+03, 1.10459E+03, 1.10592E+03, 1.10784E+03, 1.10076E+03, 
     X 1.09615E+03, 1.09496E+03, 1.09422E+03, 1.09350E+03, 1.09244E+03/ 
      DATA C02161 /                                                     
     X 1.08955E+03, 1.08535E+03, 1.08379E+03, 1.08184E+03, 1.07889E+03, 
     X 1.07563E+03, 1.07238E+03, 1.07042E+03, 1.06882E+03, 1.06761E+03, 
     X 1.06816E+03, 1.06772E+03, 1.06327E+03, 1.06313E+03, 1.06563E+03, 
     X 1.06254E+03, 1.06072E+03, 1.06095E+03, 1.06173E+03, 1.06269E+03, 
     X 1.06361E+03, 1.06438E+03, 1.06501E+03, 1.06465E+03, 1.06481E+03, 
     X 1.06685E+03, 1.06642E+03, 1.06447E+03, 1.06701E+03, 1.06791E+03, 
     X 1.06612E+03, 1.06471E+03, 1.06403E+03, 1.06774E+03, 1.06823E+03, 
     X 1.06524E+03, 1.06479E+03, 1.06453E+03, 1.06346E+03, 1.06175E+03, 
     X 1.05958E+03, 1.05941E+03, 1.05936E+03, 1.05938E+03, 1.05736E+03, 
     X 1.05449E+03, 1.05307E+03, 1.05180E+03, 1.05074E+03, 1.04810E+03, 
     X 1.04536E+03, 1.04477E+03, 1.04389E+03, 1.04272E+03, 1.04006E+03, 
     X 1.03739E+03, 1.03533E+03, 1.03476E+03, 1.03516E+03, 1.03275E+03, 
     X 1.03093E+03, 1.03062E+03, 1.02997E+03, 1.02919E+03, 1.02993E+03, 
     X 1.02983E+03, 1.02837E+03, 1.02611E+03, 1.02386E+03, 1.02426E+03, 
     X 1.02542E+03, 1.02750E+03, 1.02638E+03, 1.02496E+03, 1.02608E+03, 
     X 1.02568E+03, 1.02388E+03, 1.02522E+03, 1.02692E+03, 1.02834E+03/ 
      DATA C02241 /                                                     
     X 1.02828E+03, 1.02716E+03, 1.02667E+03, 1.02607E+03, 1.02503E+03, 
     X 1.02723E+03, 1.03143E+03, 1.02881E+03, 1.02646E+03, 1.02500E+03, 
     X 1.02569E+03, 1.02743E+03, 1.02608E+03, 1.02548E+03, 1.02620E+03, 
     X 1.02733E+03, 1.02839E+03, 1.02575E+03, 1.02432E+03, 1.02471E+03, 
     X 1.02392E+03, 1.02267E+03, 1.02077E+03, 1.01964E+03, 1.01957E+03, 
     X 1.01848E+03, 1.01704E+03, 1.01524E+03, 1.01352E+03, 1.01191E+03, 
     X 1.01066E+03, 1.00952E+03, 1.00849E+03, 1.00660E+03, 1.00368E+03, 
     X 9.99713E+02, 9.95921E+02, 9.94845E+02, 9.93286E+02, 9.91204E+02/ 
C                                                                       
      END                                                               

      BLOCK DATA BO3HH1                                                 
C                                                                       
C  VALEURS DES COEFFICIENTS C1/C0
C                                                                       
      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      COMMON /O3HH1/  V1C,V2C,DVC,NC,                                   
     X           O31001(88),C10086(80),C10166(80),C10246(65),C10311(16),
     X           C10327(80),C10407(1),                                  
     X           C10001(80),C10081(80),C10161(80),C10241(80),C10321(80),
     X           C10401(80),C10481(80),C10561(80),C10641(80),C10721(80),
     X           C10801(80),C10881(80),C10961(80),C11041(80),C11121(80),
     X           C11201(80),C11281(80),C11361(80),C11441(80),C11521(80),
     X           C11601(80),C11681(80),C11761(80),C11841(80),C11921(80),
     X           C12001(80),C12081(80),C12161(80),C12241(40)            
C                                                                       
      DATA V1C /27370./, V2C /40800./ ,DVC /5./, NC /2690/              
C                                                                       
      DATA O31001/88*1.3E-3/                                            
                                                                        
      DATA C10086/                                                      
     X 1.37330E-03, 1.62821E-03, 2.01703E-03, 2.54574E-03, 3.20275E-03, 
     X 3.89777E-03, 4.62165E-03, 5.26292E-03, 5.86986E-03, 6.41494E-03, 
     X 6.96761E-03, 7.48539E-03, 7.89600E-03, 7.87305E-03, 7.81981E-03, 
     X 7.63864E-03, 7.67455E-03, 7.72586E-03, 7.69784E-03, 7.57367E-03, 
     X 7.27336E-03, 7.14064E-03, 7.24207E-03, 7.09851E-03, 6.93654E-03, 
     X 6.89385E-03, 7.05768E-03, 6.85578E-03, 6.58301E-03, 6.50848E-03, 
     X 6.52083E-03, 6.46590E-03, 6.70692E-03, 6.92053E-03, 7.17734E-03, 
     X 7.05364E-03, 6.63440E-03, 6.54702E-03, 6.27173E-03, 5.98150E-03, 
     X 5.66579E-03, 5.51549E-03, 5.50291E-03, 5.93271E-03, 6.36950E-03, 
     X 7.18562E-03, 7.51767E-03, 6.53815E-03, 7.22341E-03, 8.63056E-03, 
     X 9.11740E-03, 8.80903E-03, 8.59902E-03, 7.74287E-03, 7.33509E-03, 
     X 7.50180E-03, 7.81686E-03, 7.85635E-03, 8.08554E-03, 7.21968E-03, 
     X 7.99028E-03, 9.90724E-03, 1.29121E-02, 1.54686E-02, 1.60876E-02, 
     X 1.59530E-02, 1.57040E-02, 1.59499E-02, 1.63961E-02, 1.72670E-02, 
     X 1.81634E-02, 1.95519E-02, 2.14181E-02, 2.28670E-02, 2.33506E-02, 
     X 2.22736E-02, 2.14296E-02, 2.15271E-02, 2.30730E-02, 2.36220E-02/ 
      DATA C10166/                                                      
     X 2.44466E-02, 2.44476E-02, 2.39223E-02, 2.41386E-02, 2.53687E-02, 
     X 2.67491E-02, 2.80425E-02, 2.77558E-02, 2.82626E-02, 2.86776E-02, 
     X 2.88781E-02, 2.89248E-02, 2.89983E-02, 2.85534E-02, 2.87102E-02, 
     X 2.83695E-02, 2.76719E-02, 2.76091E-02, 2.90733E-02, 2.80388E-02, 
     X 2.73706E-02, 2.65055E-02, 2.61268E-02, 2.45892E-02, 2.37213E-02, 
     X 2.22542E-02, 2.10116E-02, 2.02852E-02, 1.97635E-02, 1.94079E-02, 
     X 1.90997E-02, 1.85598E-02, 1.79221E-02, 1.77887E-02, 1.73709E-02, 
     X 1.67263E-02, 1.60932E-02, 1.50775E-02, 1.39563E-02, 1.23691E-02, 
     X 1.07402E-02, 9.35859E-03, 8.43786E-03, 7.92075E-03, 7.33239E-03, 
     X 6.73638E-03, 6.28740E-03, 5.85640E-03, 5.85384E-03, 6.10577E-03, 
     X 7.26050E-03, 9.66384E-03, 1.29629E-02, 1.69596E-02, 2.03465E-02, 
     X 2.26429E-02, 2.39653E-02, 2.47970E-02, 2.51993E-02, 2.51383E-02, 
     X 2.52014E-02, 2.47766E-02, 2.47171E-02, 2.47478E-02, 2.43986E-02, 
     X 2.43498E-02, 2.40537E-02, 2.40574E-02, 2.40446E-02, 2.40847E-02, 
     X 2.39400E-02, 2.42127E-02, 2.47123E-02, 2.52914E-02, 2.52103E-02, 
     X 2.51421E-02, 2.43229E-02, 2.37902E-02, 2.30865E-02, 2.28174E-02/ 
      DATA C10246/                                                      
     X 2.28830E-02, 2.33671E-02, 2.38274E-02, 2.46699E-02, 2.56739E-02, 
     X 2.61408E-02, 2.62898E-02, 2.64228E-02, 2.55561E-02, 2.47095E-02, 
     X 2.39071E-02, 2.34319E-02, 2.28738E-02, 2.23434E-02, 2.18888E-02, 
     X 2.13639E-02, 2.11937E-02, 2.10110E-02, 2.07672E-02, 2.00697E-02, 
     X 1.97605E-02, 1.91208E-02, 1.82056E-02, 1.73945E-02, 1.64542E-02, 
     X 1.53969E-02, 1.41816E-02, 1.35665E-02, 1.27109E-02, 1.18254E-02, 
     X 1.11489E-02, 1.03984E-02, 1.00760E-02, 9.86649E-03, 9.76766E-03, 
     X 9.41662E-03, 9.19082E-03, 9.44272E-03, 1.04547E-02, 1.24713E-02, 
     X 1.49310E-02, 1.70272E-02, 1.86057E-02, 1.93555E-02, 1.98350E-02, 
     X 2.00041E-02, 2.01233E-02, 2.01917E-02, 1.98918E-02, 1.96649E-02, 
     X 1.95162E-02, 2.01044E-02, 2.06711E-02, 2.08881E-02, 2.04812E-02, 
     X 1.92249E-02, 1.80188E-02, 1.69496E-02, 1.60488E-02, 1.52865E-02, 
     X 1.46940E-02, 1.41067E-02, 1.35675E-02, 1.31094E-02, 1.27542E-02/ 
      DATA C10311/                                                      
     X                                                     1.3073E-02,  
     X 1.2795E-02,  1.2753E-02,  1.2868E-02,  1.2885E-02,  1.2554E-02,  
     X 1.2106E-02,  1.1616E-02,  1.1394E-02,  1.1092E-02,  1.0682E-02,  
     X 1.0519E-02,  9.7219E-03,  9.3434E-03,  8.5260E-03,  8.3333E-03/  
      DATA C10327/                                                      
     X 7.8582E-03,  6.8295E-03,  6.7963E-03,  6.7516E-03,  6.2930E-03,  
     X 6.1615E-03,  6.1250E-03,  5.9011E-03,  5.7823E-03,  5.4688E-03,  
     X 5.0978E-03,  4.4526E-03,  3.8090E-03,  3.2310E-03,  3.0128E-03,  
     X 3.9063E-03,  6.7911E-03,  9.3161E-03,  1.0256E-02,  1.0183E-02,  
     X 9.8289E-03,  9.5683E-03,  9.0406E-03,  8.7148E-03,  8.5284E-03,  
     X 8.6149E-03,  8.7238E-03,  9.3679E-03,  1.0683E-02,  1.2016E-02,  
     X 1.3097E-02,  1.3610E-02,  1.3588E-02,  1.3805E-02,  1.3928E-02,  
     X 1.3903E-02,  1.3446E-02,  1.3258E-02,  1.3194E-02,  1.2703E-02,  
     X 1.2393E-02,  1.2487E-02,  1.2341E-02,  1.2388E-02,  1.2061E-02,  
     X 1.2122E-02,  1.1850E-02,  1.2032E-02,  1.1806E-02,  1.1810E-02,  
     X 1.1572E-02,  1.1397E-02,  1.0980E-02,  1.1012E-02,  1.0524E-02,  
     X 1.0518E-02,  1.0227E-02,  9.6837E-03,  9.6425E-03,  8.9938E-03,  
     X 9.1488E-03,  8.8595E-03,  8.5976E-03,  8.4447E-03,  8.0731E-03,  
     X 8.0283E-03,  7.7827E-03,  7.7638E-03,  7.2438E-03,  6.8246E-03,  
     X 6.3457E-03,  5.6632E-03,  5.2500E-03,  4.3593E-03,  3.9431E-03,  
     X 3.1580E-03,  2.2298E-03,  1.7818E-03,  1.4513E-03,  1.3188E-03/  
      DATA C10407/                                                      
     X 2.1034E-03/                                                      
      DATA C10001 /                                                     
     X 6.45621E-03, 7.11308E-03, 1.06130E-02, 1.36338E-02, 1.27746E-02, 
     X 1.42152E-02, 1.41144E-02, 1.64830E-02, 1.67110E-02, 1.57368E-02, 
     X 1.54644E-02, 1.45248E-02, 1.43206E-02, 1.56946E-02, 1.54268E-02, 
     X 1.37500E-02, 1.50224E-02, 1.60919E-02, 1.49099E-02, 1.53960E-02, 
     X 1.61871E-02, 1.46539E-02, 1.38258E-02, 1.32571E-02, 1.21580E-02, 
     X 1.39596E-02, 1.16029E-02, 1.47042E-02, 1.07441E-02, 1.08999E-02, 
     X 1.05562E-02, 1.00589E-02, 9.60711E-03, 9.36950E-03, 7.65303E-03, 
     X 6.86216E-03, 7.05344E-03, 6.90728E-03, 6.78627E-03, 6.97435E-03, 
     X 5.75456E-03, 5.81685E-03, 5.00915E-03, 4.90259E-03, 4.42545E-03, 
     X 4.14633E-03, 3.61657E-03, 3.08178E-03, 2.91680E-03, 2.94554E-03, 
     X 3.35794E-03, 5.49025E-03, 7.09867E-03, 6.82592E-03, 8.84835E-03, 
     X 9.15718E-03, 9.17935E-03, 8.31848E-03, 7.79481E-03, 7.75125E-03, 
     X 6.95844E-03, 7.34506E-03, 7.53823E-03, 7.03272E-03, 7.57051E-03, 
     X 9.20239E-03, 1.10864E-02, 1.16188E-02, 1.30029E-02, 1.44364E-02, 
     X 1.29292E-02, 1.36031E-02, 1.35967E-02, 1.30412E-02, 1.29874E-02, 
     X 1.14829E-02, 1.18009E-02, 1.20829E-02, 1.17831E-02, 1.21489E-02/ 
      DATA C10081 /                                                     
     X 1.27019E-02, 1.25557E-02, 1.23812E-02, 1.20158E-02, 1.26749E-02, 
     X 1.17139E-02, 1.14552E-02, 1.11268E-02, 9.79143E-03, 8.79741E-03, 
     X 8.85709E-03, 8.57653E-03, 8.93908E-03, 8.46205E-03, 8.56506E-03, 
     X 8.14319E-03, 8.14415E-03, 7.74205E-03, 7.80727E-03, 7.49886E-03, 
     X 7.71114E-03, 6.55963E-03, 6.87550E-03, 6.39162E-03, 5.55359E-03, 
     X 5.43275E-03, 4.90649E-03, 4.41165E-03, 4.21875E-03, 3.62592E-03, 
     X 3.40700E-03, 2.40267E-03, 2.61479E-03, 2.75677E-03, 4.10842E-03, 
     X 5.79601E-03, 7.10708E-03, 8.07826E-03, 8.16166E-03, 8.72620E-03, 
     X 8.85878E-03, 8.72755E-03, 8.25811E-03, 8.12100E-03, 7.78534E-03, 
     X 7.39762E-03, 8.43880E-03, 8.53789E-03, 9.90072E-03, 1.01668E-02, 
     X 1.00827E-02, 9.73556E-03, 9.57462E-03, 1.01289E-02, 1.10670E-02, 
     X 1.03508E-02, 1.00929E-02, 9.10236E-03, 9.39459E-03, 8.79601E-03, 
     X 8.67936E-03, 8.53862E-03, 7.95459E-03, 8.04037E-03, 7.95361E-03, 
     X 7.87432E-03, 6.99165E-03, 7.37107E-03, 6.09187E-03, 6.21030E-03, 
     X 5.33277E-03, 5.04633E-03, 4.45811E-03, 4.34153E-03, 3.98596E-03, 
     X 3.84225E-03, 3.41943E-03, 3.60535E-03, 2.81691E-03, 2.49771E-03/ 
      DATA C10161 /                                                     
     X 2.35046E-03, 2.50947E-03, 3.75462E-03, 4.92349E-03, 5.09294E-03, 
     X 4.98312E-03, 5.19325E-03, 4.41827E-03, 4.25192E-03, 4.46745E-03, 
     X 4.08731E-03, 3.84776E-03, 3.67507E-03, 3.76845E-03, 3.69210E-03, 
     X 4.59864E-03, 6.42677E-03, 7.83255E-03, 7.89247E-03, 8.10883E-03, 
     X 8.00825E-03, 8.40322E-03, 7.97108E-03, 8.24714E-03, 8.39006E-03, 
     X 8.68787E-03, 8.61108E-03, 8.81552E-03, 9.36996E-03, 9.08243E-03, 
     X 9.69116E-03, 9.66185E-03, 9.22856E-03, 9.65086E-03, 9.35398E-03, 
     X 9.06358E-03, 8.76851E-03, 8.43072E-03, 7.85659E-03, 7.93936E-03, 
     X 7.49712E-03, 7.20199E-03, 6.94581E-03, 6.64086E-03, 6.12627E-03, 
     X 6.13967E-03, 5.67310E-03, 5.09928E-03, 4.59112E-03, 3.95257E-03, 
     X 3.67652E-03, 3.28781E-03, 2.77471E-03, 2.74494E-03, 2.15529E-03, 
     X 1.95283E-03, 1.75043E-03, 1.60419E-03, 1.82688E-03, 2.34667E-03, 
     X 2.92502E-03, 3.88322E-03, 4.39984E-03, 4.67814E-03, 4.80395E-03, 
     X 4.69130E-03, 4.54564E-03, 4.46773E-03, 4.59178E-03, 4.37498E-03, 
     X 4.12706E-03, 4.18299E-03, 4.57267E-03, 5.60127E-03, 6.51936E-03, 
     X 7.10498E-03, 7.49870E-03, 7.89554E-03, 7.97428E-03, 8.21044E-03/ 
      DATA C10241 /                                                     
     X 8.06324E-03, 7.76648E-03, 7.62238E-03, 7.77675E-03, 7.46905E-03, 
     X 7.61115E-03, 7.42715E-03, 7.28461E-03, 7.51514E-03, 7.38782E-03, 
     X 6.97206E-03, 6.52738E-03, 6.10147E-03, 5.87553E-03, 5.49218E-03, 
     X 4.94873E-03, 4.47920E-03, 4.25005E-03, 3.98094E-03, 3.92084E-03, 
     X 3.41707E-03, 3.30501E-03, 3.09208E-03, 3.19686E-03, 3.55283E-03, 
     X 4.20775E-03, 4.11155E-03, 3.72193E-03, 3.52000E-03, 3.13572E-03, 
     X 2.87629E-03, 2.64251E-03, 2.33451E-03, 2.22426E-03, 2.05800E-03, 
     X 1.75214E-03, 2.32530E-03, 2.68651E-03, 3.66315E-03, 4.93904E-03, 
     X 5.32850E-03, 5.43978E-03, 5.32656E-03, 5.15649E-03, 5.42096E-03, 
     X 5.37193E-03, 5.23454E-03, 5.34557E-03, 5.50533E-03, 6.13216E-03, 
     X 6.65129E-03, 7.09357E-03, 7.46042E-03, 7.68605E-03, 7.91866E-03, 
     X 7.52953E-03, 7.48272E-03, 7.17800E-03, 6.80060E-03, 6.60427E-03, 
     X 6.43049E-03, 6.45975E-03, 6.20534E-03, 5.93094E-03, 5.67360E-03, 
     X 5.38584E-03, 5.19364E-03, 4.92599E-03, 4.60655E-03, 4.24669E-03, 
     X 3.94253E-03, 3.55894E-03, 3.24256E-03, 2.92974E-03, 2.62760E-03, 
     X 2.52238E-03, 2.24714E-03, 2.26350E-03, 2.44380E-03, 3.03798E-03/ 
      DATA C10321 /                                                     
     X 3.50000E-03, 3.55416E-03, 3.43661E-03, 3.19814E-03, 3.02155E-03, 
     X 2.73890E-03, 2.50078E-03, 2.34595E-03, 2.18282E-03, 2.19285E-03, 
     X 2.49482E-03, 3.13434E-03, 4.18947E-03, 4.72069E-03, 5.29712E-03, 
     X 5.39004E-03, 5.44846E-03, 5.37952E-03, 5.09935E-03, 5.08741E-03, 
     X 5.05257E-03, 5.10339E-03, 5.17968E-03, 5.31841E-03, 5.58106E-03, 
     X 5.65031E-03, 5.65680E-03, 5.76184E-03, 5.71213E-03, 5.48515E-03, 
     X 5.32168E-03, 5.18505E-03, 4.99640E-03, 4.78746E-03, 4.57244E-03, 
     X 4.32728E-03, 4.14464E-03, 3.97659E-03, 4.01874E-03, 4.10588E-03, 
     X 3.99644E-03, 3.84584E-03, 3.64222E-03, 3.39590E-03, 3.00386E-03, 
     X 2.73790E-03, 2.45095E-03, 2.29068E-03, 1.64530E-03, 1.68602E-03, 
     X 2.32934E-03, 3.14851E-03, 3.65706E-03, 3.70878E-03, 3.75103E-03, 
     X 3.79183E-03, 3.32032E-03, 2.42604E-03, 2.48775E-03, 2.34603E-03, 
     X 2.36349E-03, 3.33744E-03, 3.44617E-03, 4.27280E-03, 4.61076E-03, 
     X 5.20165E-03, 5.14851E-03, 5.22909E-03, 5.08278E-03, 5.16125E-03, 
     X 5.01572E-03, 4.51685E-03, 4.67541E-03, 4.83421E-03, 4.57546E-03, 
     X 4.55111E-03, 5.03093E-03, 4.67838E-03, 4.44282E-03, 4.40774E-03/ 
      DATA C10401 /                                                     
     X 4.48123E-03, 4.24410E-03, 4.03559E-03, 3.73969E-03, 3.45458E-03, 
     X 3.18217E-03, 3.16115E-03, 3.36877E-03, 3.62026E-03, 3.69898E-03, 
     X 3.49845E-03, 3.13839E-03, 2.77731E-03, 2.40106E-03, 2.03935E-03, 
     X 1.84377E-03, 2.07757E-03, 2.39550E-03, 2.86272E-03, 3.27900E-03, 
     X 3.42304E-03, 3.50211E-03, 3.29197E-03, 3.24784E-03, 3.20864E-03, 




     X 3.28063E-03, 3.01328E-03, 3.00379E-03, 3.19562E-03, 3.45113E-03, 
     X 3.75149E-03, 3.98520E-03, 4.19181E-03, 4.15773E-03, 4.02490E-03, 
     X 3.95936E-03, 3.79001E-03, 3.77647E-03, 3.48528E-03, 3.55768E-03, 
     X 3.62812E-03, 3.48650E-03, 3.35434E-03, 3.20088E-03, 3.25316E-03, 
     X 3.04467E-03, 3.12633E-03, 3.23602E-03, 3.07723E-03, 2.80070E-03, 
     X 2.72498E-03, 2.74752E-03, 2.58943E-03, 2.32482E-03, 2.20218E-03, 
     X 2.10846E-03, 2.05991E-03, 2.01844E-03, 2.16224E-03, 2.48456E-03, 
     X 2.88022E-03, 2.93939E-03, 3.01176E-03, 2.98886E-03, 2.96947E-03, 
     X 3.38082E-03, 3.61657E-03, 3.42654E-03, 3.41274E-03, 3.22475E-03, 
     X 2.97658E-03, 3.21944E-03, 3.32032E-03, 3.33273E-03, 3.58854E-03, 
     X 3.67023E-03, 3.64069E-03, 3.74557E-03, 3.77703E-03, 3.64042E-03/ 
      DATA C10481 /                                                     
     X 3.39468E-03, 3.22657E-03, 3.16466E-03, 3.24224E-03, 3.24801E-03, 
     X 3.19487E-03, 3.40155E-03, 3.16940E-03, 2.92293E-03, 3.00998E-03, 
     X 2.82851E-03, 2.60381E-03, 2.59242E-03, 2.48530E-03, 2.76677E-03, 
     X 2.45506E-03, 2.21845E-03, 2.30407E-03, 2.28136E-03, 2.37278E-03, 
     X 2.25313E-03, 2.47836E-03, 2.77858E-03, 2.89803E-03, 2.86131E-03, 
     X 3.14118E-03, 3.14119E-03, 2.88881E-03, 3.19502E-03, 2.99538E-03, 
     X 2.91212E-03, 3.22739E-03, 3.05960E-03, 3.18901E-03, 3.05805E-03, 
     X 3.12205E-03, 2.95636E-03, 3.24111E-03, 3.29433E-03, 3.09206E-03, 
     X 3.06696E-03, 2.97735E-03, 2.90897E-03, 2.88979E-03, 2.75105E-03, 
     X 2.92156E-03, 3.03445E-03, 2.91664E-03, 2.85559E-03, 2.98405E-03, 
     X 2.95376E-03, 2.80234E-03, 2.78349E-03, 2.73421E-03, 2.70035E-03, 
     X 2.60074E-03, 2.34840E-03, 2.37626E-03, 2.32927E-03, 2.20842E-03, 
     X 2.31080E-03, 2.42771E-03, 2.43339E-03, 2.53280E-03, 2.37093E-03, 
     X 2.37377E-03, 2.73453E-03, 2.60836E-03, 2.55568E-03, 2.44062E-03, 
     X 2.71093E-03, 2.64421E-03, 2.66969E-03, 2.55560E-03, 2.71800E-03, 
     X 2.79534E-03, 2.59070E-03, 2.55373E-03, 2.45272E-03, 2.55571E-03/ 
      DATA C10561 /                                                     
     X 2.54606E-03, 2.57349E-03, 2.46807E-03, 2.35634E-03, 2.44470E-03, 
     X 2.47050E-03, 2.57131E-03, 2.71649E-03, 2.58800E-03, 2.54524E-03, 
     X 2.69505E-03, 2.89122E-03, 2.77399E-03, 2.63306E-03, 2.82269E-03, 
     X 2.95684E-03, 3.07415E-03, 2.70594E-03, 2.65650E-03, 2.90613E-03, 
     X 2.96666E-03, 2.94767E-03, 2.81765E-03, 2.64829E-03, 2.43062E-03, 
     X 2.33816E-03, 2.38210E-03, 2.45701E-03, 2.38508E-03, 2.40746E-03, 
     X 2.49779E-03, 2.28209E-03, 2.26185E-03, 2.26604E-03, 2.19232E-03, 
     X 2.19160E-03, 2.32246E-03, 2.11108E-03, 2.26220E-03, 2.26849E-03, 
     X 2.34787E-03, 2.49323E-03, 2.46872E-03, 2.52974E-03, 2.35858E-03, 
     X 2.36865E-03, 2.33533E-03, 2.21338E-03, 2.24610E-03, 2.24776E-03, 
     X 2.24423E-03, 2.29276E-03, 2.18487E-03, 2.27621E-03, 2.31141E-03, 
     X 2.44095E-03, 2.45198E-03, 2.56919E-03, 2.56823E-03, 2.41982E-03, 
     X 2.39968E-03, 2.62447E-03, 2.55339E-03, 2.51556E-03, 2.47477E-03, 
     X 2.50276E-03, 2.48381E-03, 2.48484E-03, 2.48316E-03, 2.38541E-03, 
     X 2.41183E-03, 2.55888E-03, 2.42810E-03, 2.43356E-03, 2.25996E-03, 
     X 2.34736E-03, 2.10305E-03, 2.13870E-03, 2.17472E-03, 2.05354E-03/ 
      DATA C10641 /                                                     
     X 2.11572E-03, 2.19557E-03, 2.09545E-03, 2.07831E-03, 1.94425E-03, 
     X 1.89333E-03, 1.98025E-03, 1.98328E-03, 2.01702E-03, 1.98333E-03, 
     X 2.01150E-03, 2.02484E-03, 2.10759E-03, 2.11892E-03, 2.10175E-03, 
     X 2.05314E-03, 2.13338E-03, 2.25764E-03, 2.19055E-03, 2.10818E-03, 
     X 2.05100E-03, 2.05685E-03, 2.10843E-03, 2.10228E-03, 2.10646E-03, 
     X 2.22640E-03, 2.31253E-03, 2.31230E-03, 2.21885E-03, 2.19568E-03, 
     X 2.23583E-03, 2.34754E-03, 2.28622E-03, 2.21876E-03, 2.26679E-03, 
     X 2.30828E-03, 2.24944E-03, 2.13851E-03, 2.02938E-03, 1.96770E-03, 
     X 2.05953E-03, 2.13814E-03, 2.03158E-03, 2.24655E-03, 1.95119E-03, 
     X 2.12979E-03, 2.08581E-03, 2.02434E-03, 1.98926E-03, 1.98792E-03, 
     X 1.97237E-03, 1.93397E-03, 1.92360E-03, 1.90805E-03, 1.89300E-03, 
     X 1.83548E-03, 1.87215E-03, 1.85589E-03, 1.85718E-03, 1.79361E-03, 
     X 1.77984E-03, 1.91506E-03, 2.04256E-03, 2.04095E-03, 1.94031E-03, 
     X 1.90447E-03, 2.02049E-03, 1.98360E-03, 2.04364E-03, 2.02519E-03, 
     X 2.20802E-03, 1.96964E-03, 1.94559E-03, 2.09922E-03, 2.11184E-03, 
     X 2.05706E-03, 2.02257E-03, 2.01781E-03, 2.01055E-03, 1.86538E-03/ 
      DATA C10721 /                                                     
     X 1.86899E-03, 1.76798E-03, 1.85871E-03, 1.95363E-03, 1.96404E-03, 
     X 1.84169E-03, 1.82851E-03, 1.84582E-03, 1.81997E-03, 1.76461E-03, 
     X 1.68384E-03, 1.65530E-03, 1.73550E-03, 1.62463E-03, 1.68793E-03, 
     X 1.60472E-03, 1.67560E-03, 1.67431E-03, 1.61779E-03, 1.66446E-03, 
     X 1.66403E-03, 1.55724E-03, 1.62351E-03, 1.71545E-03, 1.69645E-03, 
     X 1.59540E-03, 1.62948E-03, 1.66784E-03, 1.66416E-03, 1.66131E-03, 
     X 1.71502E-03, 1.76555E-03, 1.75182E-03, 1.72327E-03, 1.72338E-03, 
     X 1.69993E-03, 1.78819E-03, 1.73517E-03, 1.74802E-03, 1.81751E-03, 
     X 1.70973E-03, 1.65075E-03, 1.70784E-03, 1.73655E-03, 1.71670E-03, 
     X 1.67367E-03, 1.69338E-03, 1.61772E-03, 1.54914E-03, 1.56009E-03, 
     X 1.59467E-03, 1.60761E-03, 1.57117E-03, 1.54045E-03, 1.53102E-03, 
     X 1.44516E-03, 1.49898E-03, 1.56048E-03, 1.60087E-03, 1.62636E-03, 
     X 1.62472E-03, 1.53931E-03, 1.55536E-03, 1.61649E-03, 1.66493E-03, 
     X 1.86915E-03, 1.59984E-03, 1.60483E-03, 1.66549E-03, 1.73449E-03, 
     X 1.73673E-03, 1.68393E-03, 1.67434E-03, 1.77880E-03, 1.76154E-03, 
     X 1.43028E-03, 1.69651E-03, 1.60934E-03, 1.69413E-03, 1.70514E-03/ 
      DATA C10801 /                                                     
     X 1.62471E-03, 1.74854E-03, 1.76480E-03, 1.63495E-03, 1.59364E-03, 
     X 1.39603E-03, 1.47897E-03, 1.49509E-03, 1.70002E-03, 1.63048E-03, 
     X 1.44807E-03, 1.45071E-03, 1.53998E-03, 1.45276E-03, 1.29129E-03, 
     X 1.52900E-03, 1.64444E-03, 1.37450E-03, 1.42574E-03, 1.47355E-03, 
     X 1.51202E-03, 1.54376E-03, 1.51421E-03, 1.43989E-03, 1.45732E-03, 
     X 1.42912E-03, 1.59906E-03, 1.56748E-03, 1.52383E-03, 1.47665E-03, 
     X 1.51465E-03, 1.55582E-03, 1.54521E-03, 1.55189E-03, 1.56772E-03, 
     X 1.45401E-03, 1.55775E-03, 1.43120E-03, 1.39659E-03, 1.41451E-03, 
     X 1.45157E-03, 1.48303E-03, 1.42540E-03, 1.26387E-03, 1.37479E-03, 
     X 1.46381E-03, 1.38134E-03, 1.32733E-03, 1.38030E-03, 1.44619E-03, 
     X 1.41344E-03, 1.31982E-03, 1.24944E-03, 1.20096E-03, 1.21107E-03, 
     X 1.27999E-03, 1.22523E-03, 1.22193E-03, 1.35957E-03, 1.41427E-03, 
     X 1.35679E-03, 1.15438E-03, 1.41184E-03, 1.49093E-03, 1.32193E-03, 
     X 1.25009E-03, 1.37625E-03, 1.49022E-03, 1.44180E-03, 1.27628E-03, 
     X 1.29670E-03, 1.31636E-03, 1.28874E-03, 1.31177E-03, 1.35732E-03, 
     X 1.33854E-03, 1.30253E-03, 1.31374E-03, 1.27379E-03, 1.18339E-03/ 
      DATA C10881 /                                                     
     X 1.22016E-03, 1.26551E-03, 1.26371E-03, 1.28180E-03, 1.36024E-03, 
     X 1.45759E-03, 1.29413E-03, 1.35858E-03, 1.26528E-03, 1.18623E-03, 
     X 1.21812E-03, 1.28799E-03, 1.37028E-03, 1.29268E-03, 1.27639E-03, 
     X 1.19487E-03, 1.23542E-03, 1.25010E-03, 1.17418E-03, 1.13914E-03, 
     X 1.21951E-03, 1.13780E-03, 1.16443E-03, 1.17883E-03, 1.11982E-03, 
     X 1.05708E-03, 1.04865E-03, 1.05884E-03, 1.06599E-03, 1.13828E-03, 
     X 1.10373E-03, 1.07739E-03, 1.04632E-03, 1.06118E-03, 1.15445E-03, 
     X 1.17300E-03, 1.00675E-03, 1.04235E-03, 1.08398E-03, 1.06587E-03, 
     X 1.05536E-03, 1.08614E-03, 1.09026E-03, 1.09141E-03, 1.13051E-03, 
     X 1.08667E-03, 1.04016E-03, 1.04897E-03, 1.08894E-03, 1.09682E-03, 
     X 1.09638E-03, 9.79254E-04, 1.00668E-03, 1.02569E-03, 1.00581E-03, 
     X 9.74433E-04, 9.66321E-04, 9.78440E-04, 9.01587E-04, 1.02149E-03, 
     X 9.87464E-04, 9.41872E-04, 9.05021E-04, 8.59547E-04, 9.03963E-04, 
     X 8.66415E-04, 8.84726E-04, 8.77087E-04, 8.70584E-04, 8.81338E-04, 
     X 8.97658E-04, 8.97586E-04, 9.19028E-04, 8.82438E-04, 9.00710E-04, 
     X 9.54329E-04, 9.54490E-04, 9.10940E-04, 9.95472E-04, 9.50134E-04/ 
      DATA C10961 /                                                     
     X 9.17127E-04, 9.70916E-04, 9.87575E-04, 9.65026E-04, 9.71779E-04, 
     X 1.00967E-03, 1.00053E-03, 9.26063E-04, 9.34721E-04, 9.76354E-04, 
     X 9.78436E-04, 9.36012E-04, 9.64448E-04, 9.95903E-04, 9.89960E-04, 
     X 9.41143E-04, 9.04393E-04, 8.84719E-04, 8.41396E-04, 8.67234E-04, 
     X 8.55864E-04, 8.63314E-04, 8.72317E-04, 8.40899E-04, 7.79593E-04, 
     X 7.88481E-04, 8.21075E-04, 7.38342E-04, 7.56537E-04, 7.57278E-04, 
     X 7.35854E-04, 7.32765E-04, 6.67398E-04, 7.45338E-04, 7.33094E-04, 
     X 7.01840E-04, 6.85595E-04, 6.95740E-04, 7.24015E-04, 7.00907E-04, 
     X 7.28498E-04, 6.89410E-04, 6.91728E-04, 7.40601E-04, 7.62775E-04, 
     X 7.40912E-04, 7.35021E-04, 7.07799E-04, 7.54113E-04, 8.44845E-04, 
     X 8.53956E-04, 6.42186E-04, 7.40557E-04, 7.54340E-04, 7.55544E-04, 
     X 7.88986E-04, 7.97902E-04, 6.98460E-04, 7.74873E-04, 6.81178E-04, 
     X 7.15567E-04, 7.56723E-04, 7.98438E-04, 8.83150E-04, 8.45671E-04, 
     X 7.40924E-04, 7.35498E-04, 7.77829E-04, 6.93566E-04, 5.10188E-04, 
     X 7.52717E-04, 6.94185E-04, 6.71928E-04, 6.73286E-04, 6.89415E-04, 
     X 7.22917E-04, 7.89448E-04, 8.53812E-04, 7.45132E-04, 7.68732E-04/ 
      DATA C11041 /                                                     
     X 8.10104E-04, 7.55615E-04, 7.09145E-04, 6.80676E-04, 7.54594E-04, 
     X 7.89416E-04, 7.88579E-04, 7.49805E-04, 6.13534E-04, 7.22491E-04, 
     X 7.95410E-04, 7.80604E-04, 7.74283E-04, 7.93224E-04, 6.86522E-04, 
     X 8.06038E-04, 8.30285E-04, 8.37763E-04, 8.03863E-04, 7.33526E-04, 
     X 7.42588E-04, 6.31046E-04, 8.16153E-04, 8.95391E-04, 8.61330E-04, 
     X 8.38726E-04, 8.16761E-04, 8.16118E-04, 6.37058E-04, 6.30868E-04, 
     X 7.26410E-04, 7.03464E-04, 5.93454E-04, 6.01985E-04, 6.51157E-04, 
     X 6.68569E-04, 6.56297E-04, 6.58732E-04, 5.99721E-04, 5.34301E-04, 
     X 5.33271E-04, 5.57992E-04, 5.70096E-04, 5.59932E-04, 5.32110E-04, 
     X 5.64713E-04, 6.25026E-04, 6.38973E-04, 6.05323E-04, 7.17460E-04, 
     X 6.19407E-04, 5.90228E-04, 5.43682E-04, 5.38446E-04, 6.56146E-04, 
     X 6.09081E-04, 6.04737E-04, 6.45526E-04, 6.46978E-04, 5.89738E-04, 
     X 5.63852E-04, 6.18018E-04, 5.71768E-04, 5.75433E-04, 6.05766E-04, 
     X 5.93065E-04, 5.31708E-04, 5.41187E-04, 5.76985E-04, 5.78176E-04, 
     X 5.75339E-04, 6.85426E-04, 5.51038E-04, 6.02049E-04, 6.20406E-04, 
     X 5.80169E-04, 5.36399E-04, 5.59608E-04, 5.46575E-04, 5.66979E-04/ 
      DATA C11121 /                                                     
     X 5.94982E-04, 6.18469E-04, 6.56281E-04, 8.22124E-04, 7.81716E-04, 
     X 7.29616E-04, 7.14460E-04, 7.08969E-04, 6.53794E-04, 7.33138E-04, 
     X 8.29513E-04, 8.99395E-04, 9.05526E-04, 7.98257E-04, 7.86935E-04, 
     X 6.10797E-04, 4.63912E-04, 4.05675E-04, 3.66230E-04, 4.86472E-04, 
     X 5.31818E-04, 5.15865E-04, 4.87344E-04, 4.99857E-04, 5.35479E-04, 
     X 5.27561E-04, 4.99000E-04, 4.77056E-04, 4.74242E-04, 4.66595E-04, 
     X 4.66325E-04, 4.94704E-04, 5.12842E-04, 5.01795E-04, 4.80789E-04, 
     X 5.73709E-04, 5.65214E-04, 5.11321E-04, 4.55242E-04, 4.29330E-04, 
     X 5.09792E-04, 4.70489E-04, 4.82859E-04, 4.99195E-04, 4.07724E-04, 
     X 4.99951E-04, 4.55755E-04, 4.42528E-04, 4.19433E-04, 3.31325E-04, 
     X 3.70517E-04, 3.77708E-04, 2.97923E-04, 2.27470E-04, 2.47389E-04, 
     X 2.38324E-04, 2.56706E-04, 2.45046E-04, 2.62539E-04, 3.37054E-04, 
     X 3.33930E-04, 3.01390E-04, 3.08028E-04, 3.41464E-04, 3.70574E-04, 
     X 3.47893E-04, 3.28433E-04, 3.46976E-04, 3.60351E-04, 3.50559E-04, 
     X 3.56070E-04, 3.62782E-04, 3.37330E-04, 3.33763E-04, 3.57046E-04, 
     X 3.08784E-04, 2.93898E-04, 2.80842E-04, 2.54114E-04, 2.38198E-04/ 
      DATA C11201 /                                                     
     X 3.48753E-04, 2.97334E-04, 2.82929E-04, 2.94150E-04, 3.07875E-04, 
     X 3.21129E-04, 3.38335E-04, 3.49826E-04, 3.47647E-04, 3.35438E-04, 
     X 3.58145E-04, 3.72391E-04, 3.59372E-04, 3.64755E-04, 4.16867E-04, 
     X 3.43614E-04, 3.34932E-04, 3.12782E-04, 3.28220E-04, 4.32595E-04, 
     X 3.49513E-04, 3.51861E-04, 3.81166E-04, 3.91194E-04, 3.38944E-04, 
     X 2.63445E-04, 2.49520E-04, 2.46184E-04, 2.33203E-04, 2.16315E-04, 
     X 1.89536E-04, 1.95730E-04, 1.99664E-04, 1.77139E-04, 1.27969E-04, 
     X 5.17216E-05, 7.60445E-05, 1.24418E-04, 1.30989E-04, 2.31539E-04, 
     X 2.21334E-04, 2.08757E-04, 2.18351E-04, 2.46202E-04, 2.29824E-04, 
     X 2.28909E-04, 2.88826E-04, 3.58039E-04, 2.60800E-04, 2.33025E-04, 
     X 2.52667E-04, 2.61394E-04, 2.31384E-04, 2.29388E-04, 2.54701E-04, 
     X 2.21158E-04, 1.61506E-04, 1.36752E-04, 1.69481E-04, 8.64539E-05, 
     X 1.64407E-04, 3.65674E-04, 3.18233E-04, 4.00755E-04, 3.33375E-04, 
     X 2.62930E-04, 2.87052E-04, 2.51395E-04, 2.85274E-04, 2.66915E-04, 
     X 2.10866E-04, 1.89517E-04, 1.67378E-04, 2.79951E-04, 2.97224E-04, 
     X 1.89222E-04, 3.33825E-04, 3.56386E-04, 3.89727E-04, 4.30407E-04/ 
      DATA C11281 /                                                     
     X 4.45922E-04, 4.23446E-04, 4.41347E-04, 4.06723E-04, 3.00181E-04, 
     X 1.85243E-04, 3.13176E-04, 4.08991E-04, 4.24776E-04, 3.56412E-04, 
     X 3.84760E-04, 2.30602E-04, 1.77702E-04, 2.62329E-04, 2.49442E-04, 
     X 3.76212E-04, 3.69176E-04, 2.97681E-04, 2.71662E-04, 2.05694E-04, 
     X 2.11418E-04, 2.25439E-04, 2.27013E-04, 2.47845E-04, 3.14603E-04, 
     X 2.68802E-04, 2.04334E-04, 2.77399E-04, 2.68273E-04, 2.04991E-04, 
     X 2.24441E-04, 3.55074E-04, 2.90135E-04, 3.35680E-04, 3.59358E-04, 
     X 3.44716E-04, 3.24496E-04, 3.48146E-04, 3.49042E-04, 3.54848E-04, 
     X 3.86418E-04, 3.59198E-04, 3.47608E-04, 3.20522E-04, 2.78401E-04, 
     X 2.64579E-04, 2.23694E-04, 2.34370E-04, 2.52559E-04, 1.88475E-04, 
     X 2.01258E-04, 1.63979E-04, 1.45384E-04, 1.91215E-04, 1.76958E-04, 
     X 1.69167E-04, 1.71767E-04, 1.86595E-04, 2.14969E-04, 2.48345E-04, 
     X 2.46691E-04, 2.25234E-04, 2.26755E-04, 1.64112E-04, 1.87750E-04, 
     X 2.22984E-04, 2.00443E-04, 2.38863E-04, 2.77590E-04, 2.91953E-04, 
     X 2.80611E-04, 3.08215E-04, 1.79095E-04, 1.46920E-04, 2.29177E-04, 
     X 2.54685E-04, 2.68866E-04, 2.13346E-04, 1.20122E-04, 5.55240E-05/ 
      DATA C11361 /                                                     
     X 5.99017E-05, 1.07768E-04, 1.67810E-04, 2.06886E-04, 2.36232E-04, 
     X 2.24598E-04, 2.30792E-04, 2.71274E-04, 1.29062E-04, 1.92624E-04, 
     X 2.38438E-04, 1.98994E-04, 1.81687E-04, 2.55733E-04, 2.84379E-04, 
     X 2.54459E-04, 2.30884E-04, 2.68873E-04, 3.07231E-04, 3.15063E-04, 
     X 2.46725E-04, 2.60370E-04, 2.66391E-04, 2.50708E-04, 2.04296E-04, 
     X 1.66011E-04, 1.19164E-04, 1.06700E-04, 1.77576E-04, 1.91741E-04, 
     X 1.66618E-04, 1.49824E-04, 1.80699E-04, 2.20905E-04, 1.38754E-04, 
     X 6.27971E-05, 7.52567E-05, 1.89995E-04, 1.72489E-04, 1.40424E-04, 
     X 1.52384E-04, 1.63942E-04, 1.19901E-04, 1.49234E-04, 2.68313E-04, 
     X 2.08815E-04, 1.17218E-04, 1.42235E-04, 2.71237E-04, 1.38192E-04, 
     X 2.15643E-04, 2.84476E-04, 2.78117E-04, 2.19234E-04, 1.59128E-04, 
     X 1.78819E-04, 2.67785E-04, 2.66786E-04, 2.58545E-04, 2.68476E-04, 
     X 2.88542E-04, 2.59726E-04, 3.00936E-04, 3.11237E-04, 2.61275E-04, 
     X 1.37136E-04, 2.76566E-04, 3.82888E-04, 3.97564E-04, 4.43655E-04, 
     X 3.15415E-04, 2.60869E-04, 3.19171E-04, 3.34205E-04, 2.02914E-04, 
     X 1.16223E-04, 1.14737E-04, 6.10978E-05,-8.03695E-06,-1.07062E-05/ 
      DATA C11441 /                                                     
     X 6.50664E-05, 1.12586E-04, 1.56727E-04, 1.57927E-04, 1.05762E-04, 
     X 1.03646E-04, 1.72520E-04, 2.23668E-04, 2.12775E-04, 2.33525E-04, 
     X 2.75558E-04, 2.34256E-04, 5.10062E-05, 1.76007E-04, 1.70850E-04, 
     X 1.43266E-04, 1.89626E-04, 2.97283E-04, 3.02773E-04, 2.74401E-04, 
     X 3.00754E-04, 3.66813E-04, 3.54383E-04, 2.90580E-04, 2.32206E-04, 
     X 1.58405E-04, 1.54663E-04, 1.84598E-04, 1.26408E-04, 2.14481E-04, 
     X 2.00791E-04, 1.05796E-04, 2.39794E-04, 1.66105E-04, 7.88615E-05, 
     X 4.30615E-05, 7.37518E-05, 1.24926E-04, 1.38295E-04, 8.54356E-05, 
     X 6.12641E-05, 6.54466E-05, 6.17727E-05, 1.30688E-05, 6.00462E-05, 
     X 1.52612E-04, 2.11656E-04, 9.67692E-05, 8.67858E-05, 1.34888E-04, 
     X 1.90899E-04, 1.03234E-04, 1.03837E-04, 1.49767E-04, 2.19058E-04, 
     X 2.26549E-04, 2.11506E-04, 1.85238E-04, 1.53774E-04, 1.32313E-04, 
     X 6.10658E-05, 2.37782E-05, 1.24450E-04, 1.87610E-04, 1.44775E-04, 
     X 5.60937E-05, 6.64032E-05, 1.28073E-04, 1.77512E-04, 1.84684E-04, 
     X 5.73677E-05, 5.29679E-05, 9.95510E-05, 1.61423E-04, 3.19036E-04, 
     X 3.17383E-04, 2.36505E-04, 1.80844E-04, 1.63722E-04, 1.21478E-04/ 
      DATA C11521 /                                                     
     X 6.85823E-05, 7.42058E-05, 1.14838E-04, 1.21131E-04, 8.01009E-05, 
     X 1.52058E-04, 2.18368E-04, 2.53416E-04, 2.27116E-04, 1.25336E-04, 
     X 6.26421E-05, 5.32471E-05, 1.34705E-04, 2.07005E-05,-5.18630E-05, 
     X-3.25696E-05,-8.06171E-05,-1.09430E-04,-1.05637E-04,-4.96066E-05, 
     X-7.76138E-05,-4.85930E-05, 3.65111E-06,-2.86933E-05,-4.61366E-05, 
     X-4.88820E-05,-3.08816E-05, 8.43778E-05, 1.40484E-04, 1.31125E-04, 
     X 3.55198E-05, 8.47412E-05, 1.23408E-04, 1.36799E-04, 1.21147E-04, 
     X 1.25585E-04, 1.32337E-04, 1.34092E-04, 1.26652E-04, 1.12131E-04, 
     X 1.00927E-04, 1.13828E-04, 1.06053E-04, 9.43643E-05, 8.33628E-05, 
     X 8.65842E-05, 7.59315E-05, 8.28623E-05, 1.39681E-04, 1.80492E-04, 
     X 1.65779E-04, 1.03843E-04, 3.10284E-05, 1.94408E-05, 4.57525E-05, 
     X 1.02436E-04, 1.39750E-04, 1.43342E-04, 1.11999E-04, 2.94197E-05, 
     X 2.76980E-05, 5.51685E-05, 9.39909E-05, 1.16108E-04, 7.72703E-05, 
     X 4.37409E-05, 1.13925E-04, 8.18872E-05, 2.87657E-05,-2.41413E-05, 
     X 1.24699E-05, 2.19589E-05,-5.88247E-06,-9.66151E-05,-2.06255E-05, 
     X-1.83148E-06,-5.63625E-05,-8.65590E-05,-8.26020E-05,-5.06239E-05/ 
      DATA C11601 /                                                     
     X 1.28065E-05,-1.34669E-05, 1.59701E-05, 9.44755E-05, 1.63032E-05, 
     X 2.51304E-05, 7.38226E-05, 1.28405E-04, 1.17413E-04, 9.92387E-05, 
     X 9.51533E-05, 2.17008E-04, 2.25854E-04, 1.90448E-04, 1.77207E-04, 
     X 1.80844E-04, 1.53501E-04, 9.80430E-05, 1.27404E-04, 1.16465E-04, 
     X 9.98611E-05, 1.25556E-04, 1.73627E-04, 1.12347E-04,-7.73523E-05, 
     X 5.66599E-05, 5.36347E-05, 1.20227E-06, 6.96325E-05, 4.79010E-05, 
     X-1.09886E-05,-9.16457E-05,-7.09170E-05,-5.31410E-05,-2.68376E-05, 
     X 6.32641E-05, 8.06052E-06,-4.99262E-05,-2.56644E-05,-8.76854E-05, 
     X-8.21360E-05,-5.02403E-06, 4.66629E-05, 6.93127E-05, 5.53828E-05, 
     X-2.32399E-05,-2.07514E-05,-7.33240E-05,-2.10483E-04,-1.53757E-04, 
     X-7.13861E-05,-1.07356E-05,-1.26578E-04,-7.48854E-05, 3.25418E-06, 
     X 2.97068E-05, 3.35685E-05, 3.15022E-05, 2.68904E-05, 3.87401E-05, 
     X 5.12522E-05, 5.12172E-05, 1.05053E-05, 1.65321E-05, 3.47537E-05, 
     X 5.62503E-05, 4.18666E-05, 3.13970E-05, 3.11750E-05, 7.21547E-05, 
     X 2.55262E-05,-2.76061E-05, 5.43449E-06,-5.20575E-05,-1.08627E-04, 
     X-1.40475E-04,-1.59926E-04,-1.32237E-04,-8.15458E-05,-1.31738E-04/ 
      DATA C11681 /                                                     
     X-1.64036E-04,-1.69351E-04,-1.24797E-04,-1.61950E-04,-2.01904E-04, 
     X-2.22995E-04,-1.87647E-04,-1.70817E-04,-1.64583E-04,-1.12811E-04, 
     X-8.38306E-05,-8.62707E-05,-1.54362E-04,-1.98090E-04,-2.12920E-04, 
     X-1.89358E-04,-2.02988E-04,-1.72791E-04,-1.02863E-04,-1.09877E-04, 
     X-1.04257E-04,-8.20734E-05,-2.18346E-05,-2.94593E-05,-4.18226E-05, 
     X-1.86891E-05,-6.14620E-05,-3.21912E-05, 1.00844E-04, 6.92419E-05, 
     X 3.16713E-05, 5.62042E-07, 5.18900E-05, 7.48835E-05, 8.03381E-05, 
     X 7.24685E-05, 9.55588E-05, 9.22801E-05, 2.87159E-05, 2.26234E-05, 
     X 2.62790E-05, 3.58332E-05, 6.23297E-05, 5.01998E-05, 1.81446E-05, 
     X 3.33564E-05, 3.97765E-06,-2.60624E-05, 7.01802E-06,-4.16797E-05, 
     X-8.70108E-05,-8.22182E-05,-6.64886E-05,-7.88704E-05,-1.28305E-04, 
     X-1.29990E-04,-1.12646E-04,-8.68394E-05,-1.29584E-04,-1.44352E-04, 
     X-1.42082E-04,-1.33790E-04,-1.27963E-04,-1.21233E-04,-1.09965E-04, 
     X-1.02233E-04,-1.03804E-04,-1.19503E-04,-7.74707E-05,-4.66805E-05, 
     X-3.52201E-05,-4.07406E-05,-4.66887E-05,-5.05962E-05,-3.30333E-05, 
     X-3.47981E-05,-3.60962E-05, 1.44242E-05, 4.10478E-05, 3.68984E-05/ 
      DATA C11761 /                                                     
     X-2.81300E-05, 2.83171E-05, 7.48062E-05, 4.29333E-05, 8.50076E-06, 
     X 4.98135E-06, 4.44854E-05, 2.51860E-05, 3.12189E-05, 6.39424E-05, 
     X 7.20715E-05, 9.89688E-05, 1.33768E-04, 1.07781E-04, 9.76731E-05, 
     X 9.21479E-05, 6.72624E-05, 5.41295E-05, 4.89022E-05, 5.28039E-05, 
     X-4.48737E-06,-5.15409E-05,-3.57396E-05,-1.94752E-05,-2.09521E-05, 
     X-5.13096E-05,-2.62781E-05,-2.75451E-05,-6.98423E-05,-1.25462E-04, 
     X-1.68362E-04,-1.97456E-04,-1.90669E-04,-2.06890E-04,-2.36699E-04, 
     X-1.97732E-04,-1.76504E-04,-1.67505E-04,-1.60694E-04,-1.85851E-04, 
     X-2.01567E-04,-9.82507E-05,-1.33338E-04,-1.95199E-04,-1.40781E-04, 
     X-8.90988E-05,-3.63239E-05, 2.16510E-05,-1.56807E-05,-4.21285E-05, 
     X 5.50505E-06, 6.78937E-07, 3.12346E-06, 3.64202E-05, 3.50651E-05, 
     X 6.20423E-05, 1.38667E-04, 7.74738E-05, 6.77036E-05, 1.38367E-04, 
     X 1.17359E-04, 1.06637E-04, 1.12404E-04, 9.78586E-05, 1.03178E-04, 
     X 1.28717E-04, 1.56642E-04, 1.62544E-04, 1.50109E-04, 1.43214E-04, 
     X 1.33651E-04, 1.24352E-04, 1.41420E-04, 1.36340E-04, 1.18769E-04, 
     X 1.31656E-04, 8.81533E-05, 1.55214E-05,-3.68736E-07,-1.76213E-05/ 
      DATA C11841 /                                                     
     X-2.85341E-05, 4.65155E-06, 5.41350E-06,-7.01247E-06, 6.57918E-06, 
     X-2.45784E-05,-6.89104E-05,-6.90953E-05,-6.23937E-05,-6.72978E-05, 
     X-1.39547E-04,-1.44228E-04,-1.42543E-04,-2.31080E-04,-2.12756E-04, 
     X-1.62089E-04,-1.66063E-04,-1.61872E-04,-1.59764E-04,-1.80217E-04, 
     X-1.38355E-04,-8.45661E-05,-7.58308E-05,-4.65144E-05,-2.76855E-05, 
     X-7.48714E-05,-8.28561E-05,-6.45277E-05,-7.08509E-06,-1.05566E-05, 
     X-1.96352E-05, 3.55561E-05, 2.24676E-05,-1.25648E-05,-1.87661E-05, 
     X 6.99061E-06, 2.33676E-05,-5.25111E-05,-3.86758E-05, 1.03585E-06, 
     X-1.65901E-05,-1.04855E-05, 5.03694E-06, 1.25937E-05,-8.31340E-06, 
     X-4.37906E-05,-7.91444E-05,-4.62167E-05, 5.14238E-06,-4.52863E-05, 
     X-5.86455E-05,-4.98093E-05,-3.03495E-05,-5.09377E-05,-8.88116E-05, 
     X-6.21360E-05,-7.38148E-05,-1.07502E-04,-7.55276E-05,-6.39257E-05, 
     X-6.86921E-05,-8.05504E-05,-9.24178E-05,-1.03991E-04,-1.00468E-04, 
     X-6.71447E-05,-3.84897E-06,-5.99067E-06,-2.21894E-05,-5.21766E-05, 
     X-3.93796E-05,-4.06712E-05,-6.21649E-05,-1.13073E-04,-1.20560E-04, 
     X-5.92397E-05, 5.24432E-05, 9.41628E-05,-3.47458E-07, 5.33267E-05/ 
      DATA C11921 /                                                     
     X 8.92961E-05, 2.75694E-05,-7.48460E-06,-2.15504E-05, 1.05501E-06, 
     X 6.30910E-06, 5.94620E-07,-2.45194E-05,-1.59657E-05, 7.93610E-07, 
     X-1.05319E-05,-2.36584E-05,-3.95700E-05,-6.57225E-05,-5.23797E-05, 
     X-1.82588E-05,-1.43240E-05,-3.29989E-05,-6.48909E-05,-2.41326E-05, 
     X-1.89195E-05,-4.64607E-05,-1.00739E-05,-1.35033E-05,-6.49945E-05, 
     X-5.19986E-05,-6.68505E-05,-1.31530E-04,-1.45464E-04,-1.46815E-04, 
     X-1.39684E-04,-1.23205E-04,-1.26738E-04,-1.93822E-04,-2.37508E-04, 
     X-2.52917E-04,-1.91110E-04,-1.36217E-04,-9.41093E-05,-1.20601E-04, 
     X-1.17295E-04,-9.57420E-05,-1.57227E-04,-1.62795E-04,-1.12201E-04, 
     X-1.20419E-04,-1.10597E-04,-7.61223E-05,-6.27167E-05,-5.54733E-05, 
     X-5.50437E-05,-5.14148E-05,-3.59591E-05, 1.09906E-05, 5.94396E-06, 
     X-1.38597E-05,-8.80857E-06,-3.13101E-05,-6.31715E-05,-4.04264E-05, 
     X-1.66405E-05, 7.94396E-06,-3.41772E-06,-4.03175E-05,-1.06888E-04, 
     X-9.50526E-05,-7.46111E-05,-5.09617E-05,-6.70981E-05,-7.93529E-05, 
     X-5.58423E-05,-1.01523E-04,-1.62269E-04,-1.69958E-04,-1.37786E-04, 
     X-8.79862E-05,-1.46838E-04,-1.66938E-04,-1.51380E-04,-1.62184E-04/ 
      DATA C12001 /                                                     
     X-1.61105E-04,-1.42088E-04,-1.57033E-04,-1.65294E-04,-1.45079E-04, 
     X-9.76982E-05,-6.09891E-05,-1.01719E-04,-1.03049E-04,-8.85546E-05, 
     X-1.47754E-04,-1.44542E-04,-8.34620E-05,-8.99440E-05,-7.11901E-05, 
     X-1.57480E-05,-8.81797E-05,-1.56314E-04,-1.65952E-04,-1.80986E-04, 
     X-2.04610E-04,-2.58669E-04,-2.16016E-04,-1.21582E-04,-1.44929E-04, 
     X-1.72886E-04,-2.05950E-04,-1.93829E-04,-1.67518E-04,-1.22969E-04, 
     X-1.13060E-04,-1.14854E-04,-1.26198E-04,-1.24288E-04,-1.19519E-04, 
     X-1.50456E-04,-1.53286E-04,-1.32231E-04,-7.42672E-05,-2.23129E-05, 
     X 1.79115E-05, 1.42073E-05,-1.21676E-05,-7.56567E-05,-1.03423E-04, 
     X-1.10373E-04,-8.77244E-05,-6.43485E-05,-4.05156E-05,-6.24405E-05, 
     X-5.70375E-05,-2.36695E-06,-3.75929E-05,-7.97119E-05,-6.70419E-05, 
     X-6.99475E-05,-8.19748E-05,-1.06895E-04,-1.31422E-04,-1.55438E-04, 
     X-1.61937E-04,-1.62626E-04,-1.54977E-04,-1.77814E-04,-2.00386E-04, 
     X-1.87407E-04,-2.07243E-04,-2.44672E-04,-2.19014E-04,-2.13695E-04, 
     X-2.32440E-04,-1.85194E-04,-1.51172E-04,-1.69834E-04,-1.73780E-04, 
     X-1.75232E-04,-2.00698E-04,-1.82826E-04,-1.27786E-04,-1.33633E-04/ 
      DATA C12081 /                                                     
     X-1.21317E-04,-7.50390E-05,-1.06743E-04,-1.40805E-04,-1.06336E-04, 
     X-9.46654E-05,-9.78182E-05,-1.19906E-04,-1.14160E-04,-7.28186E-05, 
     X-1.07652E-04,-1.20978E-04,-3.79658E-05,-3.16113E-05,-6.02417E-05, 
     X-7.51148E-05,-5.56145E-05,-6.77421E-06,-1.74321E-05,-4.67952E-05, 
     X-1.05000E-04,-6.29932E-05,-4.74356E-06,-2.83397E-05,-4.65192E-05, 
     X-6.04574E-05,-4.33970E-05,-3.18311E-05,-3.02321E-05,-4.49667E-05, 
     X-6.85347E-05,-1.11375E-04,-1.16293E-04,-9.38757E-05,-1.38594E-04, 
     X-1.60483E-04,-1.48344E-04,-1.33436E-04,-1.27387E-04,-1.59508E-04, 
     X-1.74026E-04,-1.72170E-04,-1.49196E-04,-1.33233E-04,-1.22382E-04, 
     X-1.78156E-04,-2.21349E-04,-2.41846E-04,-2.06549E-04,-1.68283E-04, 
     X-1.89512E-04,-1.44523E-04,-4.67953E-05,-1.00334E-04,-1.23478E-04, 
     X-8.14024E-05,-9.18016E-05,-1.17536E-04,-1.36160E-04,-1.38780E-04, 
     X-1.27749E-04,-1.45598E-04,-1.55964E-04,-1.45120E-04,-1.25544E-04, 
     X-1.05692E-04,-1.17639E-04,-1.24142E-04,-1.24749E-04,-1.63878E-04, 
     X-1.97021E-04,-1.98617E-04,-2.69136E-04,-3.68357E-04,-2.33702E-04, 
     X-1.61830E-04,-1.78578E-04,-2.01839E-04,-2.28731E-04,-2.63606E-04/ 
      DATA C12161 /                                                     
     X-2.44698E-04,-1.86451E-04,-2.20546E-04,-2.22752E-04,-1.55169E-04, 
     X-1.25100E-04,-1.09794E-04,-9.59016E-05,-1.03857E-04,-1.35573E-04, 
     X-1.73780E-04,-1.82457E-04,-9.39821E-05,-1.18245E-04,-2.11563E-04, 
     X-1.37392E-04,-9.28173E-05,-9.71073E-05,-9.72535E-05,-9.39557E-05, 
     X-7.50117E-05,-6.70754E-05,-7.01186E-05,-5.76151E-05,-5.18785E-05, 
     X-7.14209E-05,-7.01682E-05,-5.61614E-05,-8.92769E-05,-1.06238E-04, 
     X-9.70294E-05,-6.70229E-05,-4.69214E-05,-1.53105E-04,-2.02326E-04, 
     X-1.90395E-04,-2.04367E-04,-2.16787E-04,-2.08725E-04,-1.78119E-04, 
     X-1.31043E-04,-1.32204E-04,-1.51522E-04,-2.05143E-04,-1.77144E-04, 
     X-1.16130E-04,-1.44440E-04,-1.66010E-04,-1.78206E-04,-1.61163E-04, 
     X-1.46351E-04,-1.96722E-04,-2.27027E-04,-2.37243E-04,-2.25235E-04, 
     X-1.99552E-04,-1.40238E-04,-1.26311E-04,-1.42746E-04,-1.19028E-04, 
     X-1.18750E-04,-1.72076E-04,-1.72120E-04,-1.48285E-04,-1.85116E-04, 
     X-1.98602E-04,-1.74016E-04,-1.37913E-04,-1.01221E-04,-9.69581E-05, 
     X-1.08794E-04,-1.39433E-04,-1.38575E-04,-1.32088E-04,-1.37431E-04, 
     X-1.30033E-04,-1.10829E-04,-1.35604E-04,-1.66515E-04,-1.98167E-04/ 
      DATA C12241 /                                                     
     X-1.97716E-04,-1.74019E-04,-1.64719E-04,-1.64779E-04,-1.85725E-04, 
     X-2.28526E-04,-2.84329E-04,-1.82449E-04,-1.30747E-04,-1.93620E-04, 
     X-2.28529E-04,-2.47361E-04,-1.90001E-04,-1.66278E-04,-2.02540E-04, 
     X-2.31811E-04,-2.53772E-04,-2.08629E-04,-1.85021E-04,-1.93989E-04, 
     X-2.16568E-04,-2.38288E-04,-1.94453E-04,-1.87154E-04,-2.30493E-04, 
     X-2.34696E-04,-2.30351E-04,-2.60562E-04,-2.86427E-04,-3.06699E-04, 
     X-2.79131E-04,-2.49392E-04,-3.03389E-04,-3.10346E-04,-2.61782E-04, 
     X-2.30905E-04,-2.11669E-04,-2.37680E-04,-2.38194E-04,-2.10955E-04/ 
      END                                                               

      BLOCK DATA BO3HH2                                                 
C                                                                       
C  VALEURS DES COEFFICIENTS C2/C0
C                                                                       
      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      COMMON /O3HH2/  V1C,V2C,DVC,NC,                                   
     X           O32001(88),C20086(80),C20166(80),C20246(65),C20311(16),
     X           C20327(80),C20407(1),                                  
     X           C20001(80),C20081(80),C20161(80),C20241(80),C20321(80),
     X           C20401(80),C20481(80),C20561(80),C20641(80),C20721(80),
     X           C20801(80),C20881(80),C20961(80),C21041(80),C21121(80),
     X           C21201(80),C21281(80),C21361(80),C21441(80),C21521(80),
     X           C21601(80),C21681(80),C21761(80),C21841(80),C21921(80),
     X           C22001(80),C22081(80),C22161(80),C22241(40)            
C                                                                       
      DATA V1C /27370./, V2C /40800./ ,DVC /5./, NC /2690/              
C                                                                       
      DATA O32001/88*1.0E-5/                                            
                                                                        
      DATA C20086/                                                      
     X 1.29359E-05, 1.55806E-05, 2.00719E-05, 2.64912E-05, 3.48207E-05, 
     X 4.36986E-05, 5.31318E-05, 6.13173E-05, 6.89465E-05, 7.56793E-05, 
     X 8.26345E-05, 8.90916E-05, 9.38759E-05, 9.22998E-05, 9.03184E-05, 
     X 8.65369E-05, 8.58531E-05, 8.55635E-05, 8.40418E-05, 8.11983E-05, 
     X 7.58246E-05, 7.29282E-05, 7.32629E-05, 7.04060E-05, 6.71451E-05, 
     X 6.56515E-05, 6.68943E-05, 6.32785E-05, 5.88386E-05, 5.70860E-05, 
     X 5.64435E-05, 5.49441E-05, 5.70845E-05, 5.89357E-05, 6.14433E-05, 
     X 5.91790E-05, 5.31727E-05, 5.14007E-05, 4.74318E-05, 4.35356E-05, 
     X 3.93903E-05, 3.70963E-05, 3.63867E-05, 4.05296E-05, 4.48891E-05, 
     X 5.37190E-05, 5.70440E-05, 4.60408E-05, 5.25778E-05, 6.81728E-05, 
     X 7.27275E-05, 6.81353E-05, 6.48386E-05, 5.46521E-05, 4.93098E-05, 
     X 5.04438E-05, 5.30309E-05, 5.28788E-05, 5.47387E-05, 4.52523E-05, 
     X 5.29451E-05, 7.42215E-05, 1.08971E-04, 1.40085E-04, 1.46553E-04, 
     X 1.43526E-04, 1.39051E-04, 1.40983E-04, 1.45564E-04, 1.55589E-04, 
     X 1.66142E-04, 1.82840E-04, 2.06486E-04, 2.24339E-04, 2.29268E-04, 
     X 2.13109E-04, 2.00305E-04, 1.99955E-04, 2.18566E-04, 2.24182E-04/ 
      DATA C20166/                                                      
     X 2.33505E-04, 2.31824E-04, 2.22666E-04, 2.23905E-04, 2.38131E-04, 
     X 2.54322E-04, 2.69548E-04, 2.62953E-04, 2.67609E-04, 2.70567E-04, 
     X 2.70689E-04, 2.68251E-04, 2.66029E-04, 2.60053E-04, 2.61689E-04, 
     X 2.56582E-04, 2.43655E-04, 2.38792E-04, 2.45309E-04, 2.31061E-04, 
     X 2.22837E-04, 2.16440E-04, 2.19032E-04, 1.85634E-04, 1.74638E-04, 
     X 1.51767E-04, 1.38480E-04, 1.32506E-04, 1.28317E-04, 1.26855E-04, 
     X 1.27123E-04, 1.24040E-04, 1.19202E-04, 1.28649E-04, 1.36271E-04, 
     X 1.42080E-04, 1.47804E-04, 1.39534E-04, 1.27284E-04, 1.09554E-04, 
     X 8.69470E-05, 6.72096E-05, 5.23407E-05, 5.12433E-05, 5.15794E-05, 
     X 4.94683E-05, 4.95809E-05, 4.07499E-05, 3.14984E-05, 1.46457E-05, 
     X 6.98660E-06, 1.85313E-05, 5.48879E-05, 1.09447E-04, 1.52536E-04, 
     X 1.78778E-04, 1.91128E-04, 1.99161E-04, 2.02937E-04, 1.95527E-04, 
     X 1.92214E-04, 1.83376E-04, 1.81710E-04, 1.82283E-04, 1.75182E-04, 
     X 1.72406E-04, 1.68170E-04, 1.67400E-04, 1.69469E-04, 1.69092E-04, 
     X 1.65985E-04, 1.66912E-04, 1.74226E-04, 1.85036E-04, 1.85517E-04, 
     X 1.85805E-04, 1.73809E-04, 1.67628E-04, 1.57690E-04, 1.54952E-04/ 
      DATA C20246/                                                      
     X 1.53707E-04, 1.57710E-04, 1.58175E-04, 1.67253E-04, 1.82079E-04, 
     X 1.91285E-04, 1.96564E-04, 2.03822E-04, 1.93736E-04, 1.82924E-04, 
     X 1.73610E-04, 1.69904E-04, 1.66725E-04, 1.63747E-04, 1.63129E-04, 
     X 1.62435E-04, 1.67218E-04, 1.69507E-04, 1.70744E-04, 1.65839E-04, 
     X 1.72077E-04, 1.67734E-04, 1.51487E-04, 1.43770E-04, 1.37435E-04, 
     X 1.25172E-04, 1.12395E-04, 1.07991E-04, 1.00345E-04, 9.36611E-05, 
     X 9.59763E-05, 9.26600E-05, 1.00120E-04, 1.04746E-04, 1.10222E-04, 
     X 1.03308E-04, 8.97457E-05, 7.91634E-05, 7.50275E-05, 8.30832E-05, 
     X 1.01191E-04, 1.21560E-04, 1.34840E-04, 1.38712E-04, 1.41746E-04, 
     X 1.39578E-04, 1.37052E-04, 1.33850E-04, 1.26641E-04, 1.21342E-04, 
     X 1.17669E-04, 1.25973E-04, 1.33623E-04, 1.33839E-04, 1.24427E-04, 
     X 1.02462E-04, 8.76101E-05, 8.27912E-05, 8.29040E-05, 7.78590E-05, 
     X 7.39042E-05, 6.45765E-05, 5.70151E-05, 5.11846E-05, 4.83163E-05/ 
      DATA C20311/                                                      
     X                                                     5.4470E-05,  
     X 5.3312E-05,  5.3135E-05,  5.3619E-05,  5.3686E-05,  5.2308E-05,  
     X 5.0441E-05,  4.8402E-05,  4.7476E-05,  4.6215E-05,  4.4507E-05,  
     X 4.3830E-05,  4.0508E-05,  3.8931E-05,  3.5525E-05,  3.4722E-05/  
      DATA C20327/                                                      
     X 3.2743E-05,  2.8456E-05,  2.8318E-05,  2.8132E-05,  2.6221E-05,  
     X 2.5673E-05,  2.5521E-05,  2.4588E-05,  2.4093E-05,  2.2787E-05,  
     X 2.1241E-05,  1.8553E-05,  1.5871E-05,  1.3462E-05,  1.2553E-05,  
     X 1.6276E-05,  2.8296E-05,  3.8817E-05,  4.2733E-05,  4.2429E-05,  
     X 4.0954E-05,  3.9868E-05,  3.7669E-05,  3.6312E-05,  3.5535E-05,  
     X 3.5895E-05,  3.6349E-05,  3.9033E-05,  4.4512E-05,  5.0066E-05,  
     X 5.4572E-05,  5.6710E-05,  5.6615E-05,  5.7520E-05,  5.8034E-05,  
     X 5.7927E-05,  5.6027E-05,  5.5242E-05,  5.4974E-05,  5.2927E-05,  
     X 5.1638E-05,  5.2027E-05,  5.1420E-05,  5.1618E-05,  5.0253E-05,  
     X 5.0509E-05,  4.9376E-05,  5.0135E-05,  4.9191E-05,  4.9210E-05,  
     X 4.8216E-05,  4.7487E-05,  4.5749E-05,  4.5884E-05,  4.3852E-05,  
     X 4.3824E-05,  4.2612E-05,  4.0349E-05,  4.0177E-05,  3.7474E-05,  
     X 3.8120E-05,  3.6915E-05,  3.5823E-05,  3.5186E-05,  3.3638E-05,  
     X 3.3451E-05,  3.2428E-05,  3.2349E-05,  3.0183E-05,  2.8436E-05,  
     X 2.6440E-05,  2.3597E-05,  2.1875E-05,  1.8164E-05,  1.6430E-05,  
     X 1.3159E-05,  9.2907E-06,  7.4243E-06,  6.0469E-06,  5.4951E-06/  
      DATA C20407/                                                      
     X 8.7642E-06/                                                      
      DATA C20001 /                                                     
     X 2.16295E-05, 1.69111E-05, 5.39633E-05, 1.01866E-04, 8.28657E-05, 
     X 9.16593E-05, 8.88666E-05, 1.37764E-04, 1.44322E-04, 1.20659E-04, 
     X 1.10332E-04, 1.01317E-04, 9.09964E-05, 1.17148E-04, 1.18000E-04, 
     X 7.21801E-05, 1.10550E-04, 1.32672E-04, 1.02474E-04, 1.10434E-04, 
     X 1.38759E-04, 8.92135E-05, 9.18239E-05, 9.08256E-05, 7.02969E-05, 
     X 1.12827E-04, 8.25561E-05, 1.39555E-04, 6.72239E-05, 7.82804E-05, 
     X 8.56258E-05, 8.61068E-05, 7.16732E-05, 6.25720E-05, 5.23957E-05, 
     X 3.78801E-05, 4.37281E-05, 4.99821E-05, 5.96976E-05, 7.19070E-05, 
     X 3.89579E-05, 5.30171E-05, 3.92507E-05, 4.93901E-05, 4.53047E-05, 
     X 4.89955E-05, 4.61649E-05, 3.75742E-05, 3.14124E-05, 2.37893E-05, 
     X 3.34899E-06, 3.08080E-05, 5.35883E-05, 3.39838E-05, 7.02334E-05, 
     X 7.24784E-05, 7.46533E-05, 6.22257E-05, 6.38945E-05, 6.73423E-05, 
     X 4.51321E-05, 5.91854E-05, 5.51601E-05, 4.41923E-05, 3.59217E-05, 
     X 4.08520E-05, 6.15981E-05, 6.66549E-05, 8.26031E-05, 1.13556E-04, 
     X 8.72988E-05, 9.71052E-05, 9.31839E-05, 8.73745E-05, 8.61717E-05, 
     X 6.05645E-05, 6.51131E-05, 6.93393E-05, 7.01096E-05, 6.43565E-05/ 
      DATA C20081 /                                                     
     X 7.36929E-05, 7.66881E-05, 7.60815E-05, 7.13570E-05, 8.40487E-05, 
     X 8.51489E-05, 7.54168E-05, 6.72694E-05, 4.75508E-05, 3.59379E-05, 
     X 4.24698E-05, 4.17850E-05, 4.56047E-05, 4.12779E-05, 4.55933E-05, 
     X 4.27941E-05, 4.42230E-05, 3.68525E-05, 3.83392E-05, 3.83722E-05, 
     X 4.64904E-05, 3.33878E-05, 3.53027E-05, 3.54694E-05, 2.36233E-05, 
     X 2.99641E-05, 2.56097E-05, 2.14134E-05, 2.74403E-05, 2.83896E-05, 
     X 3.17082E-05, 1.75526E-05, 2.80382E-05, 3.18009E-05, 4.08715E-05, 
     X 4.77807E-05, 5.00609E-05, 5.12459E-05, 4.44062E-05, 4.74942E-05, 
     X 4.99882E-05, 5.18837E-05, 5.03246E-05, 5.55168E-05, 5.35853E-05, 
     X 4.81834E-05, 6.66231E-05, 5.26670E-05, 6.84700E-05, 6.53412E-05, 
     X 5.71740E-05, 4.61076E-05, 3.90239E-05, 4.72924E-05, 6.32194E-05, 
     X 5.20868E-05, 4.81039E-05, 3.71748E-05, 4.37492E-05, 3.63959E-05, 
     X 3.79823E-05, 3.72225E-05, 3.02360E-05, 3.22961E-05, 3.43398E-05, 
     X 3.57176E-05, 2.65446E-05, 3.29388E-05, 1.65455E-05, 2.66173E-05, 
     X 1.74277E-05, 1.74324E-05, 1.27879E-05, 1.46247E-05, 1.92378E-05, 
     X 2.20049E-05, 1.44790E-05, 2.49244E-05, 2.29209E-05, 1.76192E-05/ 
      DATA C20161 /                                                     
     X 1.84528E-05, 2.54350E-05, 3.33972E-05, 3.69190E-05, 2.92139E-05, 
     X 2.47666E-05, 2.86764E-05, 1.48163E-05, 1.80461E-05, 2.84545E-05, 
     X 2.41064E-05, 2.85721E-05, 3.31996E-05, 3.75973E-05, 3.73874E-05, 
     X 4.69293E-05, 5.12665E-05, 5.35607E-05, 4.64577E-05, 3.59887E-05, 
     X 3.39168E-05, 3.89746E-05, 3.12196E-05, 3.70907E-05, 3.95172E-05, 
     X 4.61642E-05, 4.26029E-05, 4.17856E-05, 4.51437E-05, 4.04189E-05, 
     X 4.19251E-05, 4.53977E-05, 3.69860E-05, 4.20904E-05, 3.69735E-05, 
     X 3.57898E-05, 3.47729E-05, 3.14280E-05, 2.71197E-05, 3.34380E-05, 
     X 2.69843E-05, 2.88036E-05, 2.51912E-05, 2.45699E-05, 2.23184E-05, 
     X 2.50563E-05, 2.24493E-05, 1.77101E-05, 1.64763E-05, 1.34978E-05, 
     X 1.57081E-05, 1.45966E-05, 1.02722E-05, 2.07177E-05, 1.47662E-05, 
     X 1.50721E-05, 1.24431E-05, 1.51572E-05, 1.92210E-05, 2.06047E-05, 
     X 2.02921E-05, 3.22062E-05, 2.37112E-05, 1.94803E-05, 2.40726E-05, 
     X 2.11531E-05, 1.89158E-05, 2.46957E-05, 2.63175E-05, 2.57747E-05, 
     X 2.22047E-05, 2.52755E-05, 2.80848E-05, 3.75157E-05, 4.09915E-05, 
     X 4.04853E-05, 3.21661E-05, 3.15652E-05, 3.21576E-05, 3.67060E-05/ 
      DATA C20241 /                                                     
     X 3.13071E-05, 2.84939E-05, 2.71169E-05, 2.99559E-05, 2.94631E-05, 
     X 3.26716E-05, 2.99028E-05, 2.60045E-05, 3.15375E-05, 3.12895E-05, 
     X 2.77767E-05, 2.43976E-05, 2.10764E-05, 2.22725E-05, 2.04581E-05, 
     X 1.63509E-05, 1.60028E-05, 1.60294E-05, 1.62366E-05, 1.89293E-05, 
     X 1.79675E-05, 1.89259E-05, 1.68300E-05, 1.99460E-05, 2.42370E-05, 
     X 2.64738E-05, 1.93137E-05, 1.39460E-05, 1.32222E-05, 1.38752E-05, 
     X 1.62071E-05, 1.79652E-05, 1.63772E-05, 1.56251E-05, 1.81918E-05, 
     X 1.46111E-05, 2.92174E-05, 2.94263E-05, 2.46180E-05, 2.93333E-05, 
     X 3.13657E-05, 2.97686E-05, 2.78387E-05, 2.40924E-05, 2.93369E-05, 
     X 2.93747E-05, 2.77665E-05, 3.00814E-05, 3.01068E-05, 3.62275E-05, 
     X 3.56613E-05, 3.66913E-05, 3.56280E-05, 3.52856E-05, 3.63928E-05, 
     X 2.96738E-05, 2.90314E-05, 2.62972E-05, 2.15250E-05, 1.97910E-05, 
     X 2.02314E-05, 2.20209E-05, 2.05131E-05, 2.12017E-05, 1.96689E-05, 
     X 1.61907E-05, 1.57662E-05, 1.58239E-05, 1.54650E-05, 1.46376E-05, 
     X 1.32891E-05, 1.30511E-05, 1.17635E-05, 1.28585E-05, 1.12887E-05, 
     X 1.32627E-05, 1.31833E-05, 1.68679E-05, 1.98092E-05, 2.70744E-05/ 
      DATA C20321 /                                                     
     X 2.22033E-05, 1.63430E-05, 1.61104E-05, 1.50865E-05, 1.54382E-05, 
     X 1.55654E-05, 1.67924E-05, 1.89185E-05, 1.96791E-05, 2.14894E-05, 
     X 2.76137E-05, 2.67339E-05, 2.79423E-05, 2.54664E-05, 3.10707E-05, 
     X 2.72745E-05, 2.60940E-05, 2.47736E-05, 2.21105E-05, 2.20357E-05, 
     X 2.26499E-05, 2.34137E-05, 2.29537E-05, 2.36157E-05, 2.48244E-05, 
     X 2.26667E-05, 2.07781E-05, 2.11702E-05, 1.91214E-05, 1.62172E-05, 
     X 1.61285E-05, 1.63952E-05, 1.68156E-05, 1.61236E-05, 1.56611E-05, 
     X 1.47697E-05, 1.50856E-05, 1.44169E-05, 1.63816E-05, 1.74283E-05, 
     X 1.49853E-05, 1.62444E-05, 1.70007E-05, 1.60371E-05, 1.22713E-05, 
     X 1.45518E-05, 1.35051E-05, 1.40787E-05,-1.54925E-05,-2.15204E-05, 
     X-4.04516E-06, 2.22439E-05, 3.21262E-05, 3.83792E-05, 4.44462E-05, 
     X 4.44192E-05, 2.77328E-05, 4.10549E-06, 4.48758E-06,-1.27771E-05, 
     X-2.17204E-05,-1.23979E-05,-1.04928E-05, 7.43085E-06, 1.55350E-05, 
     X 3.15204E-05, 3.17601E-05, 2.93677E-05, 3.42485E-05, 3.87087E-05, 
     X 3.61242E-05, 2.62406E-05, 3.31686E-05, 3.54314E-05, 2.50625E-05, 
     X 2.60444E-05, 4.10729E-05, 3.47247E-05, 3.31716E-05, 3.34778E-05/ 
      DATA C20401 /                                                     
     X 4.03029E-05, 4.09241E-05, 3.96717E-05, 3.53410E-05, 2.81048E-05, 
     X 1.98891E-05, 1.92314E-05, 2.82525E-05, 3.76641E-05, 4.34135E-05, 
     X 4.24570E-05, 3.98429E-05, 3.29417E-05, 2.16679E-05, 8.88085E-06, 
     X-5.05319E-06,-8.14815E-06,-5.01930E-06, 7.13565E-06, 2.00949E-05, 
     X 2.65988E-05, 2.77656E-05, 2.09299E-05, 1.98968E-05, 2.04835E-05, 
     X 1.75254E-05, 6.48674E-06, 3.14323E-06, 1.93242E-06, 3.86745E-06, 
     X 1.39727E-05, 2.10731E-05, 2.66432E-05, 2.69551E-05, 2.57453E-05, 
     X 2.72834E-05, 2.58860E-05, 2.51266E-05, 1.76048E-05, 2.03072E-05, 
     X 2.61960E-05, 2.36230E-05, 1.81172E-05, 1.33972E-05, 1.60959E-05, 
     X 1.61081E-05, 2.34099E-05, 2.64979E-05, 2.36894E-05, 2.13665E-05, 
     X 2.16774E-05, 2.52566E-05, 1.99785E-05, 1.40414E-05, 1.39948E-05, 
     X 1.32637E-05, 7.24742E-06, 1.11395E-06,-1.27323E-06, 4.56637E-07, 
     X 6.93250E-06, 5.07198E-06, 7.90632E-06, 9.08149E-06, 1.03602E-05, 
     X 2.17425E-05, 2.71741E-05, 2.16875E-05, 1.95088E-05, 1.56568E-05, 
     X 8.41152E-06, 1.26749E-05, 1.17673E-05, 9.96037E-06, 1.21982E-05, 
     X 1.31854E-05, 1.50216E-05, 1.72214E-05, 2.02773E-05, 2.09625E-05/ 
      DATA C20481 /                                                     
     X 1.66656E-05, 1.45666E-05, 1.66608E-05, 2.04989E-05, 2.21395E-05, 
     X 2.35993E-05, 2.69390E-05, 2.13921E-05, 1.72643E-05, 1.70995E-05, 
     X 1.78241E-05, 1.85308E-05, 1.80360E-05, 1.48619E-05, 1.90369E-05, 
     X 1.51089E-05, 1.22705E-05, 1.62608E-05, 1.41637E-05, 1.23786E-05, 
     X 7.02677E-06, 8.89811E-06, 1.07379E-05, 1.23677E-05, 1.48196E-05, 
     X 2.05770E-05, 1.70994E-05, 1.00072E-05, 1.76119E-05, 1.41779E-05, 
     X 1.34358E-05, 1.58674E-05, 1.65837E-05, 1.69569E-05, 1.40381E-05, 
     X 1.46118E-05, 1.30556E-05, 1.97204E-05, 1.97488E-05, 1.64524E-05, 
     X 1.73764E-05, 1.66355E-05, 1.64419E-05, 1.65486E-05, 1.21523E-05, 
     X 1.51513E-05, 1.60354E-05, 1.38528E-05, 1.45538E-05, 1.71702E-05, 
     X 1.56336E-05, 1.31279E-05, 1.47346E-05, 1.70719E-05, 1.75588E-05, 
     X 1.55187E-05, 1.29598E-05, 1.38463E-05, 1.35382E-05, 1.16062E-05, 
     X 1.37014E-05, 1.34487E-05, 1.15536E-05, 1.33597E-05, 9.24478E-06, 
     X 7.28477E-06, 1.40321E-05, 1.31518E-05, 1.03118E-05, 8.59764E-06, 
     X 1.57138E-05, 1.20792E-05, 1.49440E-05, 1.34375E-05, 1.54686E-05, 
     X 1.65346E-05, 1.33823E-05, 1.37238E-05, 1.36128E-05, 1.46206E-05/ 
      DATA C20561 /                                                     
     X 1.40777E-05, 1.59980E-05, 1.30180E-05, 1.01390E-05, 1.12366E-05, 
     X 9.86099E-06, 1.10702E-05, 1.26783E-05, 9.51072E-06, 8.07299E-06, 
     X 1.22955E-05, 1.53506E-05, 1.29711E-05, 9.78759E-06, 1.28800E-05, 
     X 1.39702E-05, 1.64832E-05, 1.06473E-05, 1.15419E-05, 1.63795E-05, 
     X 1.69837E-05, 1.72726E-05, 1.77231E-05, 1.62337E-05, 1.20881E-05, 
     X 1.13210E-05, 1.20531E-05, 1.31374E-05, 1.22259E-05, 1.27802E-05, 
     X 1.38962E-05, 8.87355E-06, 9.42264E-06, 1.02075E-05, 7.91816E-06, 
     X 9.66835E-06, 1.24921E-05, 8.43227E-06, 1.10637E-05, 1.03958E-05, 
     X 9.40996E-06, 1.22922E-05, 1.21088E-05, 1.30116E-05, 1.18776E-05, 
     X 1.42245E-05, 1.34745E-05, 1.11165E-05, 1.29914E-05, 1.29801E-05, 
     X 1.10895E-05, 1.12331E-05, 9.03490E-06, 9.33726E-06, 9.63923E-06, 
     X 1.11299E-05, 9.53481E-06, 1.21708E-05, 1.11951E-05, 7.22558E-06, 
     X 6.66928E-06, 1.08926E-05, 1.07870E-05, 9.23485E-06, 8.50452E-06, 
     X 9.41914E-06, 8.74027E-06, 8.93322E-06, 9.79061E-06, 8.26490E-06, 
     X 8.37630E-06, 1.17064E-05, 1.10176E-05, 1.11587E-05, 9.45563E-06, 
     X 1.18352E-05, 7.79327E-06, 9.22766E-06, 1.01868E-05, 8.23925E-06/ 
      DATA C20641 /                                                     
     X 9.23706E-06, 1.04428E-05, 8.80392E-06, 9.37098E-06, 7.43126E-06, 
     X 7.01424E-06, 9.29360E-06, 8.97171E-06, 9.31718E-06, 9.87118E-06, 
     X 8.11419E-06, 8.77416E-06, 9.96927E-06, 8.87533E-06, 9.33163E-06, 
     X 7.41505E-06, 9.39988E-06, 1.17932E-05, 1.03287E-05, 9.17415E-06, 
     X 8.43035E-06, 8.00040E-06, 8.33346E-06, 7.66787E-06, 7.18411E-06, 
     X 1.06236E-05, 1.05559E-05, 8.49187E-06, 9.22472E-06, 8.16512E-06, 
     X 8.35687E-06, 1.06325E-05, 9.80273E-06, 9.01599E-06, 9.20499E-06, 
     X 9.98417E-06, 9.23191E-06, 6.98769E-06, 5.17748E-06, 4.57130E-06, 
     X 8.18492E-06, 9.98095E-06, 7.52148E-06, 1.33038E-05, 8.17630E-06, 
     X 1.02454E-05, 9.62706E-06, 9.44304E-06, 8.86704E-06, 8.88116E-06, 
     X 8.79062E-06, 8.20042E-06, 8.55789E-06, 9.26249E-06, 1.00467E-05, 
     X 7.96012E-06, 9.08773E-06, 1.01481E-05, 8.84360E-06, 7.94928E-06, 
     X 6.68425E-06, 8.56576E-06, 1.05282E-05, 1.10647E-05, 9.91625E-06, 
     X 7.95356E-06, 8.66443E-06, 9.13551E-06, 1.04870E-05, 9.79244E-06, 
     X 1.26214E-05, 8.42148E-06, 8.13468E-06, 1.11338E-05, 1.06780E-05, 
     X 8.54578E-06, 7.82119E-06, 8.33258E-06, 8.23644E-06, 5.95583E-06/ 
      DATA C20721 /                                                     
     X 5.85592E-06, 4.05898E-06, 6.39260E-06, 8.43280E-06, 8.76251E-06, 
     X 6.70423E-06, 6.81368E-06, 7.43506E-06, 7.14376E-06, 6.51065E-06, 
     X 5.65633E-06, 5.42394E-06, 7.10817E-06, 4.78831E-06, 6.29380E-06, 
     X 4.87344E-06, 6.81764E-06, 6.51611E-06, 5.70526E-06, 6.50590E-06, 
     X 6.61568E-06, 5.39248E-06, 6.32002E-06, 7.98976E-06, 7.73795E-06, 
     X 4.85788E-06, 5.83443E-06, 6.11694E-06, 5.40408E-06, 5.00946E-06, 
     X 5.62153E-06, 6.30263E-06, 6.05764E-06, 5.53274E-06, 5.80664E-06, 
     X 5.18684E-06, 6.85555E-06, 6.22889E-06, 6.06959E-06, 6.49228E-06, 
     X 5.64064E-06, 4.92690E-06, 5.77661E-06, 7.18450E-06, 7.38658E-06, 
     X 6.77379E-06, 5.74668E-06, 6.68355E-06, 6.13655E-06, 6.43266E-06, 
     X 7.08896E-06, 7.71187E-06, 7.37273E-06, 6.75882E-06, 6.39307E-06, 
     X 4.59520E-06, 5.10323E-06, 5.80178E-06, 6.88172E-06, 6.68825E-06, 
     X 7.50416E-06, 6.14975E-06, 6.51422E-06, 7.74942E-06, 8.11492E-06, 
     X 1.19607E-05, 7.92722E-06, 4.47848E-06, 6.02524E-06, 9.74067E-06, 
     X 1.02429E-05, 8.60819E-06, 8.57044E-06, 1.09196E-05, 1.02048E-05, 
     X 3.86222E-06, 9.26104E-06, 7.33341E-06, 9.08181E-06, 1.05569E-05/ 
      DATA C20801 /                                                     
     X 1.06776E-05, 1.10247E-05, 1.04520E-05, 8.78328E-06, 7.60679E-06, 
     X 7.27896E-06, 9.72776E-06, 5.16039E-06, 1.03134E-05, 1.09088E-05, 
     X 8.12575E-06, 7.61685E-06, 8.16346E-06, 5.91269E-06, 3.61448E-06, 
     X 8.74336E-06, 1.03990E-05, 6.25691E-06, 7.04541E-06, 7.94348E-06, 
     X 8.39807E-06, 8.67342E-06, 8.32173E-06, 7.56015E-06, 8.31782E-06, 
     X 6.36556E-06, 6.99328E-06, 6.24490E-06, 6.73080E-06, 6.95852E-06, 
     X 7.55508E-06, 7.74168E-06, 7.90414E-06, 8.94934E-06, 7.99809E-06, 
     X 6.12528E-06, 9.04115E-06, 7.14535E-06, 5.88625E-06, 6.43941E-06, 
     X 7.11566E-06, 7.47425E-06, 8.23805E-06, 6.19919E-06, 7.31614E-06, 
     X 8.24852E-06, 6.82172E-06, 5.45362E-06, 6.66115E-06, 8.44300E-06, 
     X 8.07530E-06, 7.22735E-06, 5.85614E-06, 5.13900E-06, 6.03215E-06, 
     X 6.59491E-06, 4.81592E-06, 4.48587E-06, 7.11525E-06, 8.36201E-06, 
     X 7.11669E-06, 2.80033E-06, 6.50756E-06, 9.43974E-06, 5.22402E-06, 
     X 3.82334E-06, 7.29963E-06, 8.62313E-06, 7.42018E-06, 4.56506E-06, 
     X 5.29972E-06, 5.62787E-06, 4.63852E-06, 5.18329E-06, 7.01884E-06, 
     X 7.24888E-06, 5.18157E-06, 5.40219E-06, 5.92412E-06, 4.97977E-06/ 
      DATA C20881 /                                                     
     X 5.29040E-06, 5.33812E-06, 4.76620E-06, 4.65759E-06, 5.10546E-06, 
     X 6.49525E-06, 4.43416E-06, 5.30223E-06, 3.27044E-06, 2.55324E-06, 
     X 4.85017E-06, 7.46556E-06, 8.04448E-06, 5.14009E-06, 6.09755E-06, 
     X 5.38381E-06, 6.41959E-06, 6.59233E-06, 4.83160E-06, 3.81289E-06, 
     X 5.37013E-06, 5.69212E-06, 5.54983E-06, 5.73495E-06, 4.00639E-06, 
     X 2.33817E-06, 2.55751E-06, 3.29627E-06, 3.59845E-06, 6.20623E-06, 
     X 4.47088E-06, 3.49267E-06, 3.09273E-06, 3.32506E-06, 4.83353E-06, 
     X 6.39001E-06, 3.78074E-06, 4.07848E-06, 4.01811E-06, 3.19767E-06, 
     X 3.34053E-06, 4.34246E-06, 3.68003E-06, 3.01090E-06, 3.98545E-06, 
     X 2.72338E-06, 1.90024E-06, 2.77553E-06, 3.73381E-06, 2.58685E-06, 
     X 1.70987E-06,-5.48480E-07, 1.64591E-06, 2.43481E-06, 2.52116E-06, 
     X 2.19316E-06, 1.32392E-06, 1.75370E-06, 2.65409E-07, 2.22278E-06, 
     X 2.53079E-06, 2.87260E-06, 1.87600E-06,-3.84453E-07, 1.80836E-06, 
     X 9.28123E-07, 1.94986E-06, 2.40483E-06, 2.79865E-06, 2.86361E-06, 
     X 2.63868E-06, 3.34704E-06, 3.32132E-06, 2.58463E-06, 2.45684E-06, 
     X 3.35043E-06, 3.19848E-06, 1.73037E-06, 2.98206E-06, 2.77491E-06/ 
      DATA C20961 /                                                     
     X 6.51674E-07, 2.52219E-06, 2.97136E-06, 1.96700E-06, 2.29350E-06, 
     X 3.01956E-06, 3.20811E-06, 1.30467E-06, 1.68172E-06, 2.56264E-06, 
     X 2.46167E-06, 1.78221E-06, 2.31647E-06, 2.69480E-06, 2.63619E-06, 
     X 1.81319E-06, 1.83448E-06, 2.23432E-06, 8.14045E-07, 8.75863E-07, 
     X 1.61350E-06, 1.59796E-06, 2.08419E-06, 1.89665E-06, 6.93584E-07, 
     X 1.09880E-06, 3.79031E-07,-3.36470E-07, 1.04326E-06, 1.06497E-06, 
     X 2.15108E-07, 3.28774E-07,-5.17613E-07, 1.27762E-06, 8.22924E-07, 
     X 4.92835E-07, 2.24698E-08,-1.99111E-07, 1.30262E-06,-3.81299E-07, 
     X 9.55084E-07, 2.17641E-07,-6.03874E-08, 8.44121E-07, 1.72391E-06, 
     X 1.66921E-06, 2.19855E-06, 1.17655E-06, 1.79637E-06, 3.31670E-06, 
     X 3.40206E-06, 6.05670E-07, 2.08299E-06, 2.10121E-06, 1.68598E-06, 
     X 2.21155E-06, 2.43221E-06, 5.81282E-08, 1.62613E-06,-5.49850E-07, 
     X 2.14143E-07, 1.21751E-06, 2.30470E-06, 4.27911E-06, 2.96622E-06, 
     X 8.67534E-07, 9.12041E-07, 2.48797E-06, 9.43519E-07,-3.60949E-06, 
     X 2.01928E-06, 1.88873E-06, 8.06749E-07, 7.33519E-07, 1.17440E-06, 
     X 1.69744E-06, 3.64492E-06, 3.11556E-06, 8.89471E-07, 1.93064E-06/ 
      DATA C21041 /                                                     
     X 3.02787E-06, 1.92575E-06, 1.73720E-06,-1.32700E-07, 1.41743E-06, 
     X 2.24632E-06, 2.47945E-06, 2.05151E-06,-9.56031E-07, 2.57317E-07, 
     X 3.00980E-06, 3.07981E-06, 2.78202E-06, 3.02555E-06, 5.48784E-09, 
     X 2.37693E-06, 2.90011E-06, 2.93608E-06, 2.14837E-06, 6.55832E-07, 
     X 3.41155E-07,-2.13884E-06, 2.52553E-06, 4.27109E-06, 3.33766E-06, 
     X 3.07708E-06, 2.66405E-06, 3.22850E-06,-5.78879E-07,-6.06194E-07, 
     X 1.72864E-06, 1.57072E-06,-3.39701E-07, 7.21540E-08, 1.67012E-06, 
     X 2.48568E-06, 2.70214E-06, 3.62383E-06, 2.20408E-06, 1.19395E-06, 
     X 1.53825E-06, 2.37511E-06, 2.66754E-06, 1.77020E-06, 5.40420E-07, 
     X 2.01156E-06, 3.27498E-06, 3.04720E-06, 1.96213E-06, 3.71633E-06, 
     X 2.07886E-06, 1.60069E-06, 5.33370E-07, 1.33966E-07, 2.16073E-06, 
     X 8.81457E-07, 1.12880E-06, 2.40509E-06, 2.94252E-06, 2.22899E-06, 
     X 1.80941E-06, 2.68577E-06, 2.44584E-06, 2.51720E-06, 2.64857E-06, 
     X 2.24182E-06, 1.62007E-06, 2.60421E-06, 3.09782E-06, 3.11099E-06, 
     X 3.81513E-06, 6.91606E-06, 3.28767E-06, 3.44175E-06, 4.16771E-06, 
     X 3.75452E-06, 2.21050E-06, 2.99939E-06, 2.86993E-06, 2.47080E-06/ 
      DATA C21121 /                                                     
     X 2.33607E-06, 2.68568E-06, 3.39344E-06, 6.09518E-06, 5.10422E-06, 
     X 4.04027E-06, 4.01363E-06, 4.53142E-06, 2.94424E-06, 4.76694E-06, 
     X 6.44206E-06, 7.86435E-06, 8.55564E-06, 6.00857E-06, 5.48073E-06, 
     X 1.56287E-06,-1.16619E-06,-1.85215E-06,-3.04762E-06,-3.45420E-07, 
     X 2.48111E-07,-1.39302E-07,-6.27593E-07,-5.26792E-07, 4.81454E-08, 
     X-3.08631E-08,-1.02976E-06,-1.54919E-06,-9.34044E-07,-1.02507E-06, 
     X-1.39794E-06,-1.15709E-06,-1.04875E-06,-1.64379E-06,-2.97514E-06, 
     X-3.22236E-07,-1.18978E-06,-2.85325E-06,-3.93143E-06,-4.15349E-06, 
     X-2.33228E-06,-3.27125E-06,-2.44987E-06,-1.44460E-06,-3.59727E-06, 
     X-7.18516E-07,-1.53237E-06,-1.53526E-06,-1.56450E-06,-2.91088E-06, 
     X-8.52134E-07,-1.44575E-07,-1.50350E-06,-2.92806E-06,-2.47710E-06, 
     X-9.71202E-07,-9.82754E-07,-1.09924E-06,-6.08199E-07, 3.62885E-07, 
     X-6.67372E-07,-1.00033E-06,-1.12001E-06,-1.06624E-06,-9.23789E-07, 
     X-9.83788E-07,-2.11656E-06,-2.45001E-06,-2.75874E-06,-3.36003E-06, 
     X-3.38364E-06,-2.63747E-06,-3.11047E-06,-3.75258E-06,-3.83211E-06, 
     X-3.52833E-06,-3.48464E-06,-3.77021E-06,-4.26887E-06,-4.23917E-06/ 
      DATA C21201 /                                                     
     X-1.42438E-06,-2.48477E-06,-2.84719E-06,-2.70247E-06,-2.50588E-06, 
     X-2.22900E-06,-1.78393E-06,-1.76826E-06,-2.16396E-06,-2.67543E-06, 
     X-2.23706E-06,-2.31793E-06,-2.87590E-06,-3.07803E-06,-2.50493E-06, 
     X-4.54223E-06,-5.15511E-06,-5.39690E-06,-4.89633E-06,-3.33710E-06, 
     X-4.56583E-06,-4.78877E-06,-3.93508E-06,-3.29027E-06,-4.95668E-06, 
     X-6.01801E-06,-5.76016E-06,-5.34657E-06,-5.29080E-06,-5.57133E-06, 
     X-5.73135E-06,-5.39374E-06,-5.09808E-06,-5.12874E-06,-5.20269E-06, 
     X-7.30702E-06,-7.04220E-06,-5.96514E-06,-5.74802E-06,-4.53961E-06, 
     X-4.42127E-06,-4.63922E-06,-4.80622E-06,-4.69659E-06,-5.96786E-06, 
     X-6.29800E-06,-4.75452E-06,-2.85907E-06,-5.33662E-06,-5.31681E-06, 
     X-5.04646E-06,-5.21729E-06,-5.93409E-06,-5.73462E-06,-5.44926E-06, 
     X-6.43325E-06,-7.74451E-06,-7.83147E-06,-5.51568E-06,-7.37048E-06, 
     X-4.25726E-06, 2.32917E-06,-5.61131E-07, 2.05234E-06, 3.74631E-07, 
     X-7.66493E-07, 1.42689E-06,-7.79683E-07, 9.06809E-07, 5.13642E-07, 
     X-1.52504E-06,-2.12058E-06,-2.50316E-06, 1.03637E-08, 5.60002E-07, 
     X-1.48075E-06, 1.94155E-06, 1.91846E-06, 2.78507E-06, 3.90146E-06/ 
      DATA C21281 /                                                     
     X 3.61409E-06, 3.23677E-06, 4.00022E-06, 3.19157E-06, 4.03034E-07, 
     X-2.03929E-06, 1.23366E-06, 3.28589E-06, 3.94168E-06, 3.94672E-06, 
     X 3.84619E-06, 2.30400E-07,-2.07799E-06,-1.75115E-06,-5.71958E-07, 
     X 2.33425E-06, 2.01664E-06, 6.05673E-07, 9.57363E-07,-8.89924E-07, 
     X-4.71331E-07, 2.82826E-07, 5.10859E-07, 3.63512E-07, 9.86288E-07, 
     X-4.86309E-07,-2.23163E-06,-1.23370E-06,-2.43131E-07,-2.11498E-06, 
     X-1.56756E-06, 2.70905E-06, 1.87606E-08, 7.83721E-08, 1.58444E-06, 
     X 2.88574E-06, 1.40306E-06, 2.40883E-06, 2.84063E-06, 3.13820E-06, 
     X 3.71016E-06, 3.12975E-06, 3.21981E-06, 2.56191E-06, 1.04624E-06, 
     X 1.87464E-07, 7.25329E-07, 1.03650E-06, 7.23663E-07,-4.18739E-07, 
     X 9.95744E-07,-1.80878E-07,-1.04044E-06, 3.86965E-07,-9.36186E-07, 
     X-4.02271E-07,-2.00231E-07,-5.94965E-07, 4.94038E-07, 3.34585E-07, 
     X 4.82255E-07, 1.12599E-06, 2.11763E-06, 2.66807E-07, 2.29324E-07, 
     X 7.07005E-07, 3.41907E-07,-1.17115E-07, 9.03089E-07, 1.76844E-06, 
     X 1.87134E-06, 2.64057E-06, 4.00395E-07,-4.19679E-07, 6.30769E-07, 
     X 1.02725E-06, 1.05876E-06,-4.08660E-07,-2.32668E-06,-2.73468E-06/ 
      DATA C21361 /                                                     
     X-2.40600E-06,-1.81203E-06,-7.96431E-07, 7.40789E-07, 2.73188E-07, 
     X 1.68367E-07,-1.27227E-07,-1.05041E-06,-3.51726E-06,-1.64956E-06, 
     X-5.63840E-07,-1.61242E-06,-1.33264E-06, 1.56604E-06, 2.35083E-06, 
     X 9.26708E-07, 5.41983E-07, 3.54277E-07, 8.53743E-07, 1.54196E-06, 
     X 1.19902E-06, 1.10552E-06, 1.63179E-06, 1.96366E-06, 7.82848E-07, 
     X-3.34741E-08,-7.90842E-07,-6.45131E-07, 1.36158E-06, 1.62453E-06, 
     X 6.68965E-07,-4.86203E-08, 6.83561E-07, 1.89652E-06,-2.80988E-07, 
     X-2.30536E-06,-1.90777E-06, 1.31617E-06, 1.27309E-06, 5.90825E-07, 
     X 5.65686E-07, 1.23631E-07,-1.70279E-06,-1.60768E-06, 9.69543E-07, 
     X 1.01108E-07,-2.02473E-06,-1.75146E-06, 6.33201E-07,-3.59110E-06, 
     X-9.71706E-07, 9.16822E-07, 1.40681E-07,-7.16745E-07,-2.11376E-06, 
     X-1.00951E-06, 2.12465E-06, 1.06982E-06, 1.44032E-06, 1.49692E-06, 
     X 1.07277E-06, 1.37006E-06, 1.66932E-06, 1.75820E-06, 1.41859E-06, 
     X-5.84947E-08, 2.17349E-06, 4.27053E-06, 5.27286E-06, 5.87085E-06, 
     X 2.42692E-06, 2.39305E-06, 6.19573E-06, 5.12518E-06, 1.27171E-06, 
     X-6.81963E-07, 4.16199E-08,-1.36608E-06,-2.53272E-06,-2.37700E-06/ 
      DATA C21441 /                                                     
     X-7.96719E-07, 3.85367E-07,-1.08393E-07,-9.04587E-07,-1.54917E-06, 
     X-3.11945E-06,-5.58484E-07, 1.61347E-06, 1.11736E-06, 2.11889E-06, 
     X 2.43534E-06, 1.46709E-06,-1.05429E-06, 1.09978E-06, 7.22493E-07, 
     X 8.53307E-08, 1.22733E-06, 2.99380E-06, 3.62416E-06, 3.81404E-06, 
     X 4.46735E-06, 4.70753E-06, 4.54494E-06, 3.83002E-06, 2.28067E-06, 
     X 2.03102E-06, 2.43844E-06, 2.93132E-06, 2.17555E-06, 3.92919E-06, 
     X 3.53089E-06, 1.61388E-06, 5.09498E-06, 3.40067E-06, 1.58876E-06, 
     X 1.17367E-06, 1.13344E-06, 1.17798E-06, 1.10976E-06, 7.90635E-07, 
     X-4.15989E-07,-1.00581E-06,-9.60236E-07,-1.79111E-07,-5.70733E-07, 
     X 1.49766E-06, 3.44374E-06, 6.45914E-07, 1.00532E-06, 2.01068E-06, 
     X 2.59092E-06, 9.35770E-08, 6.00121E-07, 1.54409E-06, 2.03537E-06, 
     X 8.10358E-07, 1.34126E-06, 1.88873E-06, 1.43283E-06,-2.05029E-07, 
     X-1.09782E-06,-6.56149E-07, 2.01650E-06, 1.84770E-06, 4.39586E-08, 
     X-2.03588E-06,-1.46366E-06,-3.45189E-07, 4.02577E-07, 3.10362E-07, 
     X-2.16073E-06,-1.91861E-06,-2.90520E-07, 2.03692E-06, 3.47996E-06, 
     X 4.21761E-06, 3.89000E-06, 1.86138E-06, 1.56143E-06, 4.88964E-07/ 
      DATA C21521 /                                                     
     X-9.28184E-07,-4.34315E-07, 8.74954E-07, 1.58417E-06, 1.36880E-06, 
     X 2.65016E-06, 4.62623E-06, 5.81990E-06, 4.72139E-06, 1.95905E-06, 
     X 1.54151E-06, 2.95768E-06, 4.71536E-06, 2.62359E-06, 9.11513E-07, 
     X 4.75677E-07,-1.53801E-06,-2.32382E-06,-2.25220E-06,-1.46641E-06, 
     X-2.23014E-06,-2.12604E-06,-1.66259E-06,-2.48856E-06,-2.38895E-06, 
     X-2.18158E-06,-1.95841E-06, 4.43899E-07, 1.08517E-06, 1.66370E-07, 
     X-2.42342E-06,-7.19331E-07, 3.19532E-07, 3.58690E-07,-2.01979E-07, 
     X 5.07242E-07, 1.10562E-06, 1.00419E-06, 1.22379E-06, 7.05180E-07, 
     X 1.42283E-07, 8.61092E-07, 8.95236E-07, 1.18043E-07,-1.23589E-06, 
     X-6.16316E-07,-1.18947E-06,-1.45838E-06,-1.47522E-09, 1.33867E-06, 
     X 9.18310E-07,-8.98949E-07,-2.27314E-06,-1.71510E-06,-7.16704E-07, 
     X 8.60666E-09, 5.68015E-07, 1.31219E-06, 1.75478E-06, 5.11790E-07, 
     X 3.35270E-07, 5.39243E-07, 9.08467E-07, 1.39382E-06, 1.08806E-06, 
     X 1.18589E-06, 3.58461E-06, 2.78668E-06, 1.25964E-06,-2.72255E-07, 
     X 1.72305E-06, 1.82937E-06, 7.46252E-07,-1.10555E-06, 2.24967E-07, 
     X 6.45674E-07,-1.87591E-07,-8.84068E-07,-1.75433E-06,-2.17670E-06/ 
      DATA C21601 /                                                     
     X-1.37112E-06,-2.31722E-06,-2.23860E-06,-1.16796E-06,-2.23765E-06, 
     X-1.86406E-06,-1.03517E-06,-5.90824E-07,-6.57710E-07,-7.00941E-07, 
     X-4.46064E-07, 1.77205E-06, 2.45066E-06, 2.39371E-06, 2.30736E-06, 
     X 2.35355E-06, 1.85070E-06, 9.62711E-07, 2.59644E-06, 2.05304E-06, 
     X 9.70090E-07, 1.50942E-06, 3.79439E-06, 2.94597E-06,-1.91789E-06, 
     X 6.44324E-08,-3.92094E-07,-1.55398E-06, 4.46701E-08,-4.78760E-07, 
     X-1.70061E-06,-3.17252E-06,-2.93173E-06,-2.01455E-06,-7.76298E-07, 
     X-2.74577E-07,-1.39907E-06,-2.16470E-06,-1.26010E-06,-2.76845E-06, 
     X-2.38226E-06,-5.49068E-08, 9.65258E-07, 1.08650E-06, 5.64738E-07, 
     X-5.78379E-07,-5.68918E-07,-1.90177E-06,-5.08874E-06,-3.03648E-06, 
     X-1.30527E-06,-4.87669E-07,-2.83326E-06,-1.97823E-06,-5.94313E-07, 
     X-1.50961E-07,-1.15908E-06,-1.43260E-06,-9.29331E-07,-1.39459E-06, 
     X-1.27237E-06,-1.50189E-06,-3.79292E-06,-3.92038E-06,-3.58490E-06, 
     X-3.26439E-06,-2.42138E-06,-2.70516E-06,-3.58080E-06,-1.71822E-06, 
     X-2.41567E-06,-3.50193E-06,-2.62394E-06,-3.08424E-06,-3.89604E-06, 
     X-4.84127E-06,-4.41385E-06,-3.22673E-06,-1.80987E-06,-2.93027E-06/ 
      DATA C21681 /                                                     
     X-3.17366E-06,-2.79721E-06,-1.78848E-06,-2.80254E-06,-3.55572E-06, 
     X-3.34632E-06,-2.83979E-06,-2.48022E-06,-2.15090E-06,-1.08311E-06, 
     X-6.15216E-07,-7.13008E-07,-1.70841E-06,-2.96098E-06,-3.57134E-06, 
     X-3.04405E-06,-3.35280E-06,-2.97780E-06,-1.97966E-06,-2.33197E-06, 
     X-2.76708E-06,-2.70409E-06,-4.51094E-07,-1.43068E-06,-2.83719E-06, 
     X-2.98921E-06,-4.14949E-06,-3.63780E-06,-8.10138E-07,-1.61597E-06, 
     X-2.25394E-06,-2.58110E-06,-1.57781E-06,-1.71520E-06,-2.30016E-06, 
     X-2.61268E-06,-1.96696E-06,-1.86744E-06,-3.15645E-06,-3.59354E-06, 
     X-3.61015E-06,-3.21793E-06,-2.57436E-06,-2.74347E-06,-3.33319E-06, 
     X-2.93400E-06,-3.25986E-06,-3.46384E-06,-2.22114E-06,-2.92650E-06, 
     X-3.73666E-06,-3.70485E-06,-2.75963E-06,-2.40652E-06,-2.93107E-06, 
     X-1.77517E-06,-1.57096E-06,-2.17533E-06,-2.80190E-06,-2.27942E-06, 
     X-1.37371E-06,-1.65974E-06,-1.26079E-06,-8.08050E-07,-8.41278E-07, 
     X-1.53860E-06,-1.66687E-06,-6.56592E-07,-3.05110E-08, 1.08623E-07, 
     X-2.87222E-07,-2.63555E-07,-7.89575E-07,-1.56059E-06,-6.42174E-07, 
     X-9.43333E-07,-1.38671E-06, 6.50443E-07, 1.35301E-06, 9.27981E-07/ 
      DATA C21761 /                                                     
     X-1.21705E-06,-9.63848E-08, 8.73593E-07,-3.47278E-08,-1.79042E-06, 
     X-2.15544E-06,-4.48668E-07,-1.17414E-06,-1.35437E-06,-8.90688E-07, 
     X-4.54757E-07, 2.41484E-09, 3.88010E-07,-1.85349E-08, 1.58011E-07, 
     X 3.70566E-07,-7.30268E-07,-8.42354E-07,-4.13738E-07, 3.96796E-07, 
     X-5.55763E-07,-1.26877E-06,-2.89854E-07, 5.78676E-07, 9.51356E-07, 
     X 5.56912E-07, 1.05014E-06, 9.75896E-07, 5.91573E-08,-6.15073E-07, 
     X-1.48803E-06,-2.53397E-06,-1.77027E-06,-2.08546E-06,-3.10452E-06, 
     X-1.65227E-06,-1.15981E-06,-1.25849E-06,-9.65711E-07,-1.90319E-06, 
     X-2.71831E-06,-5.71559E-08,-1.20368E-06,-3.16820E-06,-2.22766E-06, 
     X-1.19828E-06,-2.82573E-07, 2.53850E-07,-9.10547E-07,-1.65529E-06, 
     X-6.00138E-07,-4.98898E-07,-3.45799E-07, 2.25160E-07, 1.14332E-07, 
     X 3.16082E-07, 1.12681E-06,-6.04876E-07,-7.24616E-07, 1.48177E-06, 
     X 1.05680E-06, 5.91076E-07, 2.07187E-07, 3.82385E-07, 5.91560E-07, 
     X 8.26519E-07, 1.22139E-06, 1.63501E-06, 2.06423E-06, 2.50038E-06, 
     X 2.38037E-06, 1.91688E-06, 2.46702E-06, 2.45066E-06, 2.16732E-06, 
     X 3.13517E-06, 2.68221E-06, 1.39877E-06, 8.58945E-07, 6.83181E-07/ 
      DATA C21841 /                                                     
     X 8.46816E-07, 1.73491E-06, 1.98732E-06, 1.94059E-06, 2.19284E-06, 
     X 1.73215E-06, 1.06865E-06, 1.14117E-06, 1.43213E-06, 1.42275E-06, 
     X-4.15449E-07,-2.39911E-07, 3.46498E-08,-2.75022E-06,-2.43736E-06, 
     X-1.06489E-06,-7.81941E-07,-8.04801E-07,-1.04984E-06,-1.65734E-06, 
     X-1.03167E-06,-3.18255E-08, 5.70283E-07, 6.19050E-07, 2.92257E-07, 
     X-6.01436E-07,-7.04005E-07,-3.70875E-07, 4.12830E-07, 1.31319E-07, 
     X-1.61570E-07, 9.76170E-07, 7.99907E-07, 1.41860E-07,-1.98022E-07, 
     X 3.13766E-07, 7.43982E-07,-6.11287E-07,-5.21146E-07, 1.11156E-07, 
     X 3.91719E-07, 5.45566E-07, 6.39059E-07, 7.29515E-07, 4.59167E-07, 
     X 6.13179E-08,-3.48146E-08, 5.32046E-07, 1.19736E-06, 3.83982E-07, 
     X 1.73267E-07, 3.54304E-07, 9.34657E-07, 5.53819E-07,-2.86678E-07, 
     X 2.01853E-08,-1.56159E-07,-6.08130E-07,-2.14929E-07, 1.66317E-08, 
     X 9.32462E-08,-4.83623E-07,-9.16323E-07,-1.22772E-06,-1.61586E-06, 
     X-1.27409E-06,-1.98119E-07,-3.69182E-08,-1.41061E-07,-5.12562E-07, 
     X-4.55495E-07,-8.12132E-07,-1.71772E-06,-2.70741E-06,-2.98751E-06, 
     X-2.19520E-06, 3.01900E-07, 1.17806E-06,-1.23067E-06, 4.17086E-07/ 
      DATA C21921 /                                                     
     X 1.68113E-06, 4.81677E-07,-1.55187E-07,-3.35287E-07, 2.94916E-07, 
     X 4.57124E-07, 3.38692E-07,-2.49203E-07,-3.62585E-07,-2.39653E-07, 
     X 3.72675E-08,-7.79964E-09,-2.83285E-07,-9.74713E-07,-6.91171E-07, 
     X 1.21925E-07, 3.39940E-07, 3.68441E-08,-5.82188E-07, 2.12605E-07, 
     X 4.65144E-07, 2.17190E-07, 7.50119E-07, 8.62008E-07, 4.63016E-07, 
     X 1.25620E-06, 1.04567E-06,-8.17037E-07,-1.20023E-06,-1.06224E-06, 
     X-3.77100E-07,-1.28057E-07,-2.76183E-07,-1.24304E-06,-2.56776E-06, 
     X-3.36699E-06,-1.49408E-06,-1.01189E-07, 7.41870E-07,-6.45425E-07, 
     X-7.47111E-07, 4.79055E-10,-1.32339E-06,-1.86135E-06,-1.61074E-06, 
     X-1.82039E-06,-1.68040E-06,-1.08025E-06,-8.61965E-07,-7.00131E-07, 
     X-5.63105E-07,-8.09843E-07,-8.09221E-07, 1.69474E-07,-1.33941E-07, 
     X-7.49558E-07,-5.19013E-07,-8.53534E-07,-1.33703E-06,-3.11161E-07, 
     X 8.99037E-07, 2.25330E-06, 1.44822E-06, 3.07437E-07,-1.22366E-06, 
     X-7.64217E-07, 2.13156E-08, 1.07909E-06, 6.10755E-07, 1.81483E-07, 
     X 8.12405E-07,-9.13283E-08,-1.35885E-06,-1.58366E-06,-7.88594E-07, 
     X 4.48283E-07,-1.23754E-06,-1.65105E-06,-8.93014E-07,-1.48622E-06/ 
      DATA C22001 /                                                     
     X-1.67948E-06,-1.24310E-06,-1.54411E-06,-1.65677E-06,-1.04998E-06, 
     X-1.46985E-07, 4.61778E-07,-4.87832E-07,-4.89452E-07,-1.24840E-07, 
     X-1.70101E-06,-1.66976E-06,-1.48528E-07,-1.12621E-07,-2.30607E-08, 
     X 1.82301E-07,-8.58152E-07,-1.89794E-06,-2.46464E-06,-2.32745E-06, 
     X-2.02112E-06,-2.07656E-06,-1.43824E-06,-5.16583E-07,-1.80702E-06, 
     X-2.93490E-06,-3.89216E-06,-3.36211E-06,-2.41393E-06,-9.53406E-07, 
     X-1.16269E-06,-1.66431E-06,-1.77150E-06,-1.82496E-06,-1.93095E-06, 
     X-2.75759E-06,-2.83618E-06,-2.27908E-06,-6.33348E-07, 5.61257E-07, 
     X 1.00142E-06, 7.73337E-07, 3.17721E-07,-3.69804E-07,-8.82058E-07, 
     X-1.17364E-06,-4.53480E-07,-2.47824E-07,-4.79624E-07,-5.17032E-07, 
     X-3.46498E-07, 1.42669E-07,-1.59168E-07,-5.06580E-07,-3.18573E-07, 
     X-2.74092E-07,-2.68860E-07, 1.32811E-07,-2.35567E-09,-6.71971E-07, 
     X-9.75302E-07,-8.70978E-07,-3.59071E-08,-3.01726E-07,-8.27641E-07, 
     X-1.14899E-06,-1.50160E-06,-1.83660E-06,-1.26290E-06,-1.07659E-06, 
     X-1.34878E-06,-5.24626E-07,-7.85094E-08,-8.79473E-07,-1.19291E-06, 
     X-1.33298E-06,-1.59750E-06,-1.31836E-06,-5.73079E-07,-1.10349E-06/ 
      DATA C22081 /                                                     
     X-1.11807E-06,-1.99530E-07,-8.10496E-07,-1.42679E-06,-5.34617E-07, 
     X-2.05001E-07,-2.51690E-07,-1.01740E-06,-1.02841E-06,-7.48750E-08, 
     X-1.01770E-06,-1.50413E-06, 1.80898E-07, 3.63788E-07,-1.97900E-07, 
     X-1.16721E-06,-1.05497E-06,-2.07218E-08,-1.90590E-07,-8.25501E-07, 
     X-2.21142E-06,-1.19905E-06, 2.16271E-07,-2.52574E-07,-4.35837E-07, 
     X-3.95272E-07, 5.97065E-08, 2.76639E-07, 9.22569E-08, 1.20142E-07, 
     X-2.95030E-09,-1.08216E-06,-1.32386E-06,-9.62248E-07,-1.99430E-06, 
     X-2.13890E-06,-9.56082E-07,-6.94022E-07,-7.75721E-07,-1.31048E-06, 
     X-1.50080E-06,-1.35873E-06,-7.48378E-07,-4.83436E-07,-4.69624E-07, 
     X-1.51156E-06,-2.48221E-06,-3.30134E-06,-2.79114E-06,-2.08976E-06, 
     X-2.24768E-06,-1.06947E-06, 1.17462E-06,-2.51423E-07,-7.85729E-07, 
     X 5.37467E-07,-9.39876E-08,-1.11303E-06,-7.46860E-07,-9.36220E-07, 
     X-1.59880E-06,-1.61420E-06,-1.54368E-06,-1.41036E-06,-7.20350E-07, 
     X 1.35544E-07, 3.14481E-07, 6.29265E-07, 1.09161E-06,-1.36044E-07, 
     X-1.22932E-06,-1.29847E-06,-3.26429E-06,-6.01062E-06,-2.09945E-06, 
     X 1.26878E-07,-2.88050E-08,-6.82802E-07,-1.39340E-06,-1.82986E-06/ 
      DATA C22161 /                                                     
     X-1.67208E-06,-1.07994E-06,-1.89195E-06,-2.10782E-06,-1.04519E-06, 
     X-3.27672E-07, 1.95516E-07, 1.63838E-07,-2.29575E-07,-1.01609E-06, 
     X-2.19286E-06,-2.71850E-06,-9.77485E-07,-1.48830E-06,-3.37826E-06, 
     X-1.59130E-06,-5.74498E-07,-8.27962E-07,-9.92211E-07,-1.14422E-06, 
     X-1.41420E-06,-1.11629E-06,-2.51575E-07, 1.60805E-07, 1.82934E-07, 
     X-7.28868E-07,-2.57062E-07, 1.06520E-06, 4.16488E-07, 2.97049E-08, 
     X 6.62797E-08, 8.29435E-07, 1.29657E-06,-2.27961E-06,-3.40386E-06, 
     X-1.88594E-06,-2.29732E-06,-2.72594E-06,-2.09847E-06,-1.31771E-06, 
     X-4.23693E-07,-4.96348E-07,-9.40209E-07,-2.08707E-06,-1.21368E-06, 
     X 4.79409E-07,-1.12548E-08,-4.57316E-07,-8.40885E-07,-5.03210E-07, 
     X-1.61036E-07,-1.05835E-06,-1.66417E-06,-1.97827E-06,-1.63737E-06, 
     X-1.11711E-06,-3.16081E-07,-6.81746E-07,-1.82599E-06,-1.12895E-06, 
     X-9.19712E-07,-1.91707E-06,-2.14767E-06,-2.03629E-06,-2.86441E-06, 
     X-3.07735E-06,-2.28656E-06,-1.40256E-06,-5.50649E-07,-3.11627E-07, 
     X-7.90261E-07,-2.10728E-06,-1.89739E-06,-1.53762E-06,-2.39947E-06, 
     X-2.28765E-06,-1.27564E-06,-2.15154E-06,-3.17932E-06,-3.84234E-06/ 
      DATA C22241 /                                                     
     X-3.65102E-06,-2.84055E-06,-2.48744E-06,-2.27683E-06,-2.33087E-06, 
     X-3.44460E-06,-5.19613E-06,-2.85882E-06,-1.39921E-06,-2.00579E-06, 
     X-2.80593E-06,-3.65940E-06,-2.39526E-06,-1.70389E-06,-2.03532E-06, 
     X-2.71522E-06,-3.42227E-06,-2.23606E-06,-1.77845E-06,-2.42071E-06, 
     X-2.61515E-06,-2.56413E-06,-1.49601E-06,-1.23245E-06,-2.08440E-06, 
     X-2.11121E-06,-1.93424E-06,-2.27439E-06,-2.58183E-06,-2.84705E-06, 
     X-2.32183E-06,-1.80966E-06,-3.04089E-06,-3.14334E-06,-1.91331E-06, 
     X-1.51037E-06,-1.43610E-06,-2.11316E-06,-2.45184E-06,-2.42262E-06/ 
      END                                                               

      SUBROUTINE O3CHAPW(V,C0,CT1,CT2)
C
C     CHAPPUIS AND WULF BAND
C
C     BEGINNING AND ENDING FREQUENCIES (CM-1):   9170.0 24565.0
C     CROSS-SECTIONS IN CM^2 TIMES 1.0E20
C     FORMULA FOR CROSS SECTION:  X+Y*DT+Z*DT*DT, DT=T-273.15
C     THE OUTPUT OF THIS ROUTINE IS C0=X, CT1=Y AND CT2=Z.
C
      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      PARAMETER (NMAX=3080)
      dimension    X(3080), Y(3080), Z(3080)
c
      DATA VBEG, VEND, VINCR /9170.0, 24565.0, 5.0/      
      DATA (X(I),I=    1,  100)/
     1      4.276E-05,  4.775E-05,  5.825E-05,  6.908E-05,  7.299E-05,
     2      7.116E-05,  7.388E-05,  7.965E-05,  7.689E-05,  6.900E-05,
     3      7.008E-05,  6.945E-05,  7.083E-05,  7.053E-05,  6.908E-05,
     4      6.923E-05,  6.770E-05,  7.146E-05,  7.749E-05,  8.464E-05,
     5      8.441E-05,  8.754E-05,  8.795E-05,  9.971E-05,  9.632E-05,
     6      9.539E-05,  1.037E-04,  1.085E-04,  1.058E-04,  1.077E-04,
     7      1.121E-04,  1.193E-04,  1.292E-04,  1.364E-04,  1.526E-04,
     8      1.658E-04,  1.808E-04,  1.861E-04,  1.786E-04,  1.804E-04,
     9      1.885E-04,  1.972E-04,  2.218E-04,  2.408E-04,  2.317E-04,
     $      2.098E-04,  1.938E-04,  1.851E-04,  1.896E-04,  1.875E-04,
     1      1.708E-04,  1.710E-04,  1.796E-04,  1.865E-04,  1.943E-04,
     2      1.881E-04,  1.885E-04,  2.136E-04,  2.255E-04,  2.267E-04,
     3      2.234E-04,  2.418E-04,  2.695E-04,  2.710E-04,  2.738E-04,
     4      3.066E-04,  3.269E-04,  3.465E-04,  3.986E-04,  4.410E-04,
     5      4.719E-04,  5.051E-04,  5.211E-04,  5.132E-04,  5.125E-04,
     6      5.159E-04,  5.549E-04,  6.562E-04,  7.168E-04,  6.502E-04,
     7      5.140E-04,  4.161E-04,  3.620E-04,  3.264E-04,  3.004E-04,
     8      2.815E-04,  2.650E-04,  2.527E-04,  2.424E-04,  2.292E-04,
     9      2.155E-04,  2.072E-04,  1.992E-04,  1.943E-04,  1.914E-04,
     $      1.855E-04,  1.813E-04,  1.724E-04,  1.687E-04,  1.676E-04/
      DATA (X(I),I=  101,  200)/
     1      1.601E-04,  1.503E-04,  1.518E-04,  1.436E-04,  1.455E-04,
     2      1.448E-04,  1.410E-04,  1.406E-04,  1.425E-04,  1.407E-04,
     3      1.405E-04,  1.436E-04,  1.369E-04,  1.355E-04,  1.331E-04,
     4      1.328E-04,  1.350E-04,  1.394E-04,  1.372E-04,  1.444E-04,
     5      1.490E-04,  1.455E-04,  1.460E-04,  1.523E-04,  1.559E-04,
     6      1.654E-04,  1.766E-04,  1.843E-04,  1.911E-04,  1.881E-04,
     7      1.894E-04,  1.927E-04,  2.043E-04,  2.106E-04,  2.215E-04,
     8      2.268E-04,  2.249E-04,  2.230E-04,  2.302E-04,  2.408E-04,
     9      2.518E-04,  2.625E-04,  2.753E-04,  2.788E-04,  2.701E-04,
     $      2.746E-04,  2.935E-04,  3.173E-04,  3.457E-04,  3.452E-04,
     1      3.329E-04,  3.443E-04,  3.706E-04,  4.079E-04,  4.403E-04,
     2      4.343E-04,  4.172E-04,  4.448E-04,  5.132E-04,  5.635E-04,
     3      5.590E-04,  5.419E-04,  6.007E-04,  6.912E-04,  7.258E-04,
     4      7.146E-04,  7.529E-04,  8.706E-04,  9.465E-04,  9.923E-04,
     5      1.134E-03,  1.286E-03,  1.351E-03,  1.485E-03,  1.709E-03,
     6      1.897E-03,  2.086E-03,  2.186E-03,  2.195E-03,  2.185E-03,
     7      2.199E-03,  2.336E-03,  2.666E-03,  3.076E-03,  3.075E-03,
     8      2.543E-03,  1.920E-03,  1.498E-03,  1.283E-03,  1.165E-03,
     9      1.070E-03,  9.833E-04,  9.018E-04,  8.207E-04,  7.451E-04,
     $      6.811E-04,  6.178E-04,  5.661E-04,  5.199E-04,  4.868E-04/
      DATA (X(I),I=  201,  300)/
     1      4.541E-04,  4.291E-04,  4.135E-04,  3.990E-04,  3.878E-04,
     2      3.815E-04,  3.722E-04,  3.691E-04,  3.726E-04,  3.711E-04,
     3      3.744E-04,  3.778E-04,  3.808E-04,  3.826E-04,  3.852E-04,
     4      3.919E-04,  3.975E-04,  3.990E-04,  4.053E-04,  4.176E-04,
     5      4.232E-04,  4.291E-04,  4.414E-04,  4.541E-04,  4.723E-04,
     6      4.887E-04,  5.058E-04,  5.226E-04,  5.501E-04,  5.836E-04,
     7      6.059E-04,  6.238E-04,  6.469E-04,  6.711E-04,  7.046E-04,
     8      7.448E-04,  7.794E-04,  8.054E-04,  8.222E-04,  8.371E-04,
     9      8.538E-04,  8.612E-04,  8.698E-04,  8.914E-04,  9.122E-04,
     $      9.305E-04,  9.562E-04,  9.844E-04,  1.018E-03,  1.053E-03,
     1      1.091E-03,  1.136E-03,  1.187E-03,  1.233E-03,  1.289E-03,
     2      1.336E-03,  1.372E-03,  1.405E-03,  1.435E-03,  1.470E-03,
     3      1.504E-03,  1.517E-03,  1.511E-03,  1.541E-03,  1.619E-03,
     4      1.728E-03,  1.848E-03,  1.955E-03,  2.044E-03,  2.128E-03,
     5      2.254E-03,  2.396E-03,  2.527E-03,  2.660E-03,  2.832E-03,
     6      3.010E-03,  3.182E-03,  3.340E-03,  3.504E-03,  3.673E-03,
     7      3.822E-03,  3.923E-03,  3.997E-03,  4.042E-03,  4.061E-03,
     8      4.035E-03,  3.979E-03,  3.901E-03,  3.785E-03,  3.642E-03,
     9      3.494E-03,  3.339E-03,  3.173E-03,  3.004E-03,  2.849E-03,
     $      2.703E-03,  2.556E-03,  2.432E-03,  2.310E-03,  2.191E-03/
      DATA (X(I),I=  301,  400)/
     1      2.076E-03,  1.969E-03,  1.883E-03,  1.818E-03,  1.753E-03,
     2      1.705E-03,  1.672E-03,  1.643E-03,  1.617E-03,  1.616E-03,
     3      1.629E-03,  1.648E-03,  1.662E-03,  1.667E-03,  1.669E-03,
     4      1.664E-03,  1.655E-03,  1.645E-03,  1.643E-03,  1.642E-03,
     5      1.632E-03,  1.629E-03,  1.632E-03,  1.638E-03,  1.644E-03,
     6      1.647E-03,  1.646E-03,  1.642E-03,  1.638E-03,  1.632E-03,
     7      1.628E-03,  1.626E-03,  1.628E-03,  1.635E-03,  1.642E-03,
     8      1.649E-03,  1.653E-03,  1.656E-03,  1.660E-03,  1.669E-03,
     9      1.685E-03,  1.705E-03,  1.730E-03,  1.755E-03,  1.779E-03,
     $      1.804E-03,  1.830E-03,  1.861E-03,  1.896E-03,  1.931E-03,
     1      1.962E-03,  1.991E-03,  2.024E-03,  2.068E-03,  2.131E-03,
     2      2.207E-03,  2.285E-03,  2.357E-03,  2.423E-03,  2.490E-03,
     3      2.564E-03,  2.649E-03,  2.743E-03,  2.842E-03,  2.943E-03,
     4      3.044E-03,  3.146E-03,  3.248E-03,  3.350E-03,  3.452E-03,
     5      3.555E-03,  3.664E-03,  3.785E-03,  3.927E-03,  4.083E-03,
     6      4.250E-03,  4.418E-03,  4.570E-03,  4.708E-03,  4.835E-03,
     7      4.961E-03,  5.088E-03,  5.218E-03,  5.348E-03,  5.471E-03,
     8      5.594E-03,  5.713E-03,  5.828E-03,  5.933E-03,  6.026E-03,
     9      6.100E-03,  6.152E-03,  6.186E-03,  6.193E-03,  6.182E-03,
     $      6.149E-03,  6.093E-03,  6.011E-03,  5.914E-03,  5.799E-03/
      DATA (X(I),I=  401,  500)/
     1      5.676E-03,  5.553E-03,  5.438E-03,  5.330E-03,  5.233E-03,
     2      5.151E-03,  5.080E-03,  5.025E-03,  4.987E-03,  4.972E-03,
     3      4.976E-03,  4.991E-03,  5.013E-03,  5.032E-03,  5.043E-03,
     4      5.043E-03,  5.032E-03,  5.010E-03,  4.980E-03,  4.950E-03,
     5      4.913E-03,  4.879E-03,  4.838E-03,  4.786E-03,  4.723E-03,
     6      4.652E-03,  4.578E-03,  4.503E-03,  4.433E-03,  4.366E-03,
     7      4.306E-03,  4.247E-03,  4.191E-03,  4.135E-03,  4.083E-03,
     8      4.035E-03,  3.997E-03,  3.968E-03,  3.945E-03,  3.923E-03,
     9      3.904E-03,  3.886E-03,  3.867E-03,  3.856E-03,  3.848E-03,
     $      3.845E-03,  3.848E-03,  3.860E-03,  3.878E-03,  3.897E-03,
     1      3.915E-03,  3.941E-03,  3.971E-03,  4.008E-03,  4.057E-03,
     2      4.113E-03,  4.176E-03,  4.243E-03,  4.325E-03,  4.418E-03,
     3      4.518E-03,  4.626E-03,  4.723E-03,  4.812E-03,  4.891E-03,
     4      4.972E-03,  5.058E-03,  5.155E-03,  5.263E-03,  5.382E-03,
     5      5.516E-03,  5.657E-03,  5.810E-03,  5.974E-03,  6.145E-03,
     6      6.331E-03,  6.532E-03,  6.752E-03,  6.993E-03,  7.247E-03,
     7      7.507E-03,  7.768E-03,  8.036E-03,  8.304E-03,  8.579E-03,
     8      8.862E-03,  9.148E-03,  9.442E-03,  9.744E-03,  1.006E-02,
     9      1.038E-02,  1.071E-02,  1.104E-02,  1.137E-02,  1.168E-02,
     $      1.195E-02,  1.220E-02,  1.242E-02,  1.264E-02,  1.283E-02/
      DATA (X(I),I=  501,  600)/
     1      1.303E-02,  1.322E-02,  1.339E-02,  1.356E-02,  1.371E-02,
     2      1.385E-02,  1.398E-02,  1.408E-02,  1.415E-02,  1.417E-02,
     3      1.415E-02,  1.408E-02,  1.395E-02,  1.376E-02,  1.353E-02,
     4      1.326E-02,  1.295E-02,  1.262E-02,  1.228E-02,  1.194E-02,
     5      1.161E-02,  1.128E-02,  1.097E-02,  1.067E-02,  1.038E-02,
     6      1.011E-02,  9.859E-03,  9.625E-03,  9.409E-03,  9.208E-03,
     7      9.022E-03,  8.843E-03,  8.668E-03,  8.505E-03,  8.348E-03,
     8      8.207E-03,  8.088E-03,  7.987E-03,  7.909E-03,  7.842E-03,
     9      7.782E-03,  7.727E-03,  7.675E-03,  7.619E-03,  7.570E-03,
     $      7.526E-03,  7.488E-03,  7.459E-03,  7.440E-03,  7.429E-03,
     1      7.429E-03,  7.429E-03,  7.440E-03,  7.455E-03,  7.474E-03,
     2      7.500E-03,  7.529E-03,  7.563E-03,  7.593E-03,  7.622E-03,
     3      7.649E-03,  7.675E-03,  7.715E-03,  7.771E-03,  7.846E-03,
     4      7.939E-03,  8.039E-03,  8.147E-03,  8.255E-03,  8.367E-03,
     5      8.482E-03,  8.605E-03,  8.746E-03,  8.903E-03,  9.078E-03,
     6      9.271E-03,  9.472E-03,  9.677E-03,  9.889E-03,  1.011E-02,
     7      1.034E-02,  1.059E-02,  1.085E-02,  1.113E-02,  1.143E-02,
     8      1.174E-02,  1.207E-02,  1.242E-02,  1.277E-02,  1.313E-02,
     9      1.350E-02,  1.388E-02,  1.425E-02,  1.464E-02,  1.503E-02,
     $      1.544E-02,  1.586E-02,  1.628E-02,  1.670E-02,  1.713E-02/
      DATA (X(I),I=  601,  700)/
     1      1.755E-02,  1.796E-02,  1.837E-02,  1.875E-02,  1.911E-02,
     2      1.945E-02,  1.975E-02,  2.002E-02,  2.028E-02,  2.050E-02,
     3      2.070E-02,  2.089E-02,  2.104E-02,  2.117E-02,  2.126E-02,
     4      2.132E-02,  2.135E-02,  2.135E-02,  2.130E-02,  2.123E-02,
     5      2.114E-02,  2.101E-02,  2.087E-02,  2.072E-02,  2.053E-02,
     6      2.032E-02,  2.010E-02,  1.986E-02,  1.963E-02,  1.939E-02,
     7      1.915E-02,  1.891E-02,  1.868E-02,  1.845E-02,  1.821E-02,
     8      1.798E-02,  1.773E-02,  1.746E-02,  1.719E-02,  1.692E-02,
     9      1.666E-02,  1.643E-02,  1.621E-02,  1.598E-02,  1.576E-02,
     $      1.558E-02,  1.542E-02,  1.529E-02,  1.519E-02,  1.509E-02,
     1      1.501E-02,  1.493E-02,  1.484E-02,  1.477E-02,  1.473E-02,
     2      1.471E-02,  1.469E-02,  1.468E-02,  1.468E-02,  1.470E-02,
     3      1.473E-02,  1.475E-02,  1.476E-02,  1.477E-02,  1.480E-02,
     4      1.484E-02,  1.489E-02,  1.497E-02,  1.507E-02,  1.520E-02,
     5      1.533E-02,  1.543E-02,  1.551E-02,  1.557E-02,  1.563E-02,
     6      1.569E-02,  1.575E-02,  1.581E-02,  1.591E-02,  1.602E-02,
     7      1.614E-02,  1.625E-02,  1.637E-02,  1.654E-02,  1.676E-02,
     8      1.698E-02,  1.719E-02,  1.740E-02,  1.762E-02,  1.784E-02,
     9      1.805E-02,  1.827E-02,  1.852E-02,  1.878E-02,  1.906E-02,
     $      1.935E-02,  1.962E-02,  1.985E-02,  2.005E-02,  2.024E-02/
      DATA (X(I),I=  701,  800)/
     1      2.047E-02,  2.073E-02,  2.106E-02,  2.137E-02,  2.167E-02,
     2      2.194E-02,  2.223E-02,  2.256E-02,  2.287E-02,  2.316E-02,
     3      2.344E-02,  2.373E-02,  2.405E-02,  2.445E-02,  2.490E-02,
     4      2.542E-02,  2.592E-02,  2.640E-02,  2.684E-02,  2.729E-02,
     5      2.778E-02,  2.828E-02,  2.876E-02,  2.914E-02,  2.948E-02,
     6      2.979E-02,  3.010E-02,  3.039E-02,  3.066E-02,  3.091E-02,
     7      3.116E-02,  3.138E-02,  3.153E-02,  3.155E-02,  3.152E-02,
     8      3.146E-02,  3.144E-02,  3.138E-02,  3.126E-02,  3.110E-02,
     9      3.092E-02,  3.073E-02,  3.054E-02,  3.033E-02,  3.008E-02,
     $      2.980E-02,  2.947E-02,  2.910E-02,  2.870E-02,  2.832E-02,
     1      2.795E-02,  2.765E-02,  2.735E-02,  2.706E-02,  2.680E-02,
     2      2.656E-02,  2.637E-02,  2.620E-02,  2.604E-02,  2.587E-02,
     3      2.570E-02,  2.551E-02,  2.533E-02,  2.520E-02,  2.514E-02,
     4      2.513E-02,  2.513E-02,  2.512E-02,  2.509E-02,  2.506E-02,
     5      2.504E-02,  2.501E-02,  2.498E-02,  2.494E-02,  2.493E-02,
     6      2.497E-02,  2.508E-02,  2.522E-02,  2.535E-02,  2.545E-02,
     7      2.550E-02,  2.558E-02,  2.568E-02,  2.578E-02,  2.587E-02,
     8      2.592E-02,  2.598E-02,  2.605E-02,  2.619E-02,  2.631E-02,
     9      2.621E-02,  2.617E-02,  2.629E-02,  2.642E-02,  2.654E-02,
     $      2.669E-02,  2.685E-02,  2.700E-02,  2.716E-02,  2.734E-02/
      DATA (X(I),I=  801,  900)/
     1      2.752E-02,  2.772E-02,  2.792E-02,  2.813E-02,  2.834E-02,
     2      2.858E-02,  2.885E-02,  2.913E-02,  2.941E-02,  2.973E-02,
     3      3.005E-02,  3.038E-02,  3.075E-02,  3.117E-02,  3.159E-02,
     4      3.202E-02,  3.246E-02,  3.290E-02,  3.335E-02,  3.384E-02,
     5      3.438E-02,  3.493E-02,  3.547E-02,  3.603E-02,  3.660E-02,
     6      3.718E-02,  3.772E-02,  3.826E-02,  3.879E-02,  3.931E-02,
     7      3.987E-02,  4.042E-02,  4.098E-02,  4.151E-02,  4.199E-02,
     8      4.243E-02,  4.287E-02,  4.316E-02,  4.344E-02,  4.369E-02,
     9      4.392E-02,  4.405E-02,  4.417E-02,  4.429E-02,  4.436E-02,
     $      4.436E-02,  4.438E-02,  4.437E-02,  4.427E-02,  4.416E-02,
     1      4.405E-02,  4.394E-02,  4.383E-02,  4.372E-02,  4.359E-02,
     2      4.344E-02,  4.329E-02,  4.312E-02,  4.299E-02,  4.289E-02,
     3      4.278E-02,  4.269E-02,  4.258E-02,  4.242E-02,  4.227E-02,
     4      4.213E-02,  4.202E-02,  4.194E-02,  4.183E-02,  4.178E-02,
     5      4.179E-02,  4.177E-02,  4.175E-02,  4.174E-02,  4.174E-02,
     6      4.175E-02,  4.177E-02,  4.183E-02,  4.191E-02,  4.199E-02,
     7      4.207E-02,  4.214E-02,  4.219E-02,  4.226E-02,  4.232E-02,
     8      4.239E-02,  4.247E-02,  4.254E-02,  4.261E-02,  4.270E-02,
     9      4.279E-02,  4.287E-02,  4.298E-02,  4.311E-02,  4.323E-02,
     $      4.338E-02,  4.357E-02,  4.375E-02,  4.393E-02,  4.413E-02/
      DATA (X(I),I=  901, 1000)/
     1      4.433E-02,  4.454E-02,  4.475E-02,  4.499E-02,  4.525E-02,
     2      4.551E-02,  4.579E-02,  4.613E-02,  4.645E-02,  4.678E-02,
     3      4.712E-02,  4.749E-02,  4.785E-02,  4.820E-02,  4.856E-02,
     4      4.894E-02,  4.928E-02,  4.963E-02,  4.991E-02,  5.016E-02,
     5      5.042E-02,  5.072E-02,  5.109E-02,  5.144E-02,  5.183E-02,
     6      5.218E-02,  5.251E-02,  5.282E-02,  5.315E-02,  5.351E-02,
     7      5.391E-02,  5.430E-02,  5.471E-02,  5.510E-02,  5.548E-02,
     8      5.588E-02,  5.628E-02,  5.673E-02,  5.722E-02,  5.771E-02,
     9      5.821E-02,  5.874E-02,  5.927E-02,  5.980E-02,  6.034E-02,
     $      6.088E-02,  6.144E-02,  6.197E-02,  6.250E-02,  6.303E-02,
     1      6.352E-02,  6.404E-02,  6.452E-02,  6.493E-02,  6.537E-02,
     2      6.578E-02,  6.617E-02,  6.653E-02,  6.688E-02,  6.722E-02,
     3      6.747E-02,  6.768E-02,  6.788E-02,  6.808E-02,  6.827E-02,
     4      6.842E-02,  6.859E-02,  6.875E-02,  6.884E-02,  6.889E-02,
     5      6.896E-02,  6.900E-02,  6.915E-02,  6.927E-02,  6.942E-02,
     6      6.956E-02,  6.972E-02,  6.990E-02,  7.009E-02,  7.024E-02,
     7      7.043E-02,  7.062E-02,  7.081E-02,  7.102E-02,  7.127E-02,
     8      7.151E-02,  7.175E-02,  7.199E-02,  7.225E-02,  7.248E-02,
     9      7.274E-02,  7.300E-02,  7.325E-02,  7.351E-02,  7.375E-02,
     $      7.402E-02,  7.429E-02,  7.458E-02,  7.488E-02,  7.514E-02/
      DATA (X(I),I= 1001, 1100)/
     1      7.546E-02,  7.575E-02,  7.605E-02,  7.634E-02,  7.667E-02,
     2      7.698E-02,  7.732E-02,  7.767E-02,  7.803E-02,  7.841E-02,
     3      7.879E-02,  7.916E-02,  7.959E-02,  8.001E-02,  8.042E-02,
     4      8.082E-02,  8.118E-02,  8.152E-02,  8.188E-02,  8.224E-02,
     5      8.270E-02,  8.318E-02,  8.367E-02,  8.415E-02,  8.467E-02,
     6      8.518E-02,  8.569E-02,  8.621E-02,  8.673E-02,  8.725E-02,
     7      8.779E-02,  8.831E-02,  8.887E-02,  8.945E-02,  9.003E-02,
     8      9.060E-02,  9.123E-02,  9.187E-02,  9.254E-02,  9.317E-02,
     9      9.382E-02,  9.444E-02,  9.506E-02,  9.570E-02,  9.634E-02,
     $      9.702E-02,  9.769E-02,  9.838E-02,  9.904E-02,  9.968E-02,
     1      1.003E-01,  1.010E-01,  1.016E-01,  1.022E-01,  1.028E-01,
     2      1.033E-01,  1.039E-01,  1.046E-01,  1.053E-01,  1.060E-01,
     3      1.067E-01,  1.075E-01,  1.082E-01,  1.089E-01,  1.096E-01,
     4      1.103E-01,  1.110E-01,  1.117E-01,  1.125E-01,  1.132E-01,
     5      1.139E-01,  1.147E-01,  1.154E-01,  1.162E-01,  1.169E-01,
     6      1.177E-01,  1.184E-01,  1.191E-01,  1.197E-01,  1.203E-01,
     7      1.209E-01,  1.215E-01,  1.221E-01,  1.227E-01,  1.232E-01,
     8      1.238E-01,  1.244E-01,  1.249E-01,  1.254E-01,  1.259E-01,
     9      1.263E-01,  1.268E-01,  1.273E-01,  1.278E-01,  1.283E-01,
     $      1.288E-01,  1.292E-01,  1.296E-01,  1.300E-01,  1.305E-01/
      DATA (X(I),I= 1101, 1200)/
     1      1.309E-01,  1.314E-01,  1.319E-01,  1.324E-01,  1.329E-01,
     2      1.335E-01,  1.340E-01,  1.345E-01,  1.351E-01,  1.356E-01,
     3      1.362E-01,  1.368E-01,  1.374E-01,  1.380E-01,  1.386E-01,
     4      1.392E-01,  1.399E-01,  1.406E-01,  1.413E-01,  1.420E-01,
     5      1.427E-01,  1.434E-01,  1.442E-01,  1.449E-01,  1.457E-01,
     6      1.465E-01,  1.472E-01,  1.479E-01,  1.487E-01,  1.495E-01,
     7      1.502E-01,  1.509E-01,  1.516E-01,  1.523E-01,  1.530E-01,
     8      1.539E-01,  1.547E-01,  1.555E-01,  1.563E-01,  1.571E-01,
     9      1.580E-01,  1.588E-01,  1.596E-01,  1.605E-01,  1.614E-01,
     $      1.623E-01,  1.632E-01,  1.641E-01,  1.649E-01,  1.658E-01,
     1      1.666E-01,  1.675E-01,  1.684E-01,  1.692E-01,  1.701E-01,
     2      1.710E-01,  1.719E-01,  1.728E-01,  1.737E-01,  1.746E-01,
     3      1.756E-01,  1.764E-01,  1.774E-01,  1.783E-01,  1.792E-01,
     4      1.801E-01,  1.810E-01,  1.820E-01,  1.829E-01,  1.838E-01,
     5      1.848E-01,  1.857E-01,  1.866E-01,  1.876E-01,  1.885E-01,
     6      1.893E-01,  1.902E-01,  1.911E-01,  1.920E-01,  1.928E-01,
     7      1.936E-01,  1.945E-01,  1.953E-01,  1.961E-01,  1.969E-01,
     8      1.978E-01,  1.986E-01,  1.994E-01,  2.002E-01,  2.010E-01,
     9      2.018E-01,  2.026E-01,  2.034E-01,  2.041E-01,  2.049E-01,
     $      2.057E-01,  2.065E-01,  2.073E-01,  2.081E-01,  2.089E-01/
      DATA (X(I),I= 1201, 1300)/
     1      2.097E-01,  2.105E-01,  2.113E-01,  2.121E-01,  2.129E-01,
     2      2.137E-01,  2.146E-01,  2.154E-01,  2.163E-01,  2.172E-01,
     3      2.180E-01,  2.190E-01,  2.198E-01,  2.207E-01,  2.216E-01,
     4      2.225E-01,  2.234E-01,  2.243E-01,  2.251E-01,  2.260E-01,
     5      2.269E-01,  2.277E-01,  2.285E-01,  2.294E-01,  2.302E-01,
     6      2.311E-01,  2.320E-01,  2.328E-01,  2.337E-01,  2.346E-01,
     7      2.355E-01,  2.364E-01,  2.372E-01,  2.381E-01,  2.390E-01,
     8      2.398E-01,  2.407E-01,  2.416E-01,  2.424E-01,  2.432E-01,
     9      2.440E-01,  2.448E-01,  2.456E-01,  2.464E-01,  2.473E-01,
     $      2.482E-01,  2.491E-01,  2.500E-01,  2.509E-01,  2.517E-01,
     1      2.525E-01,  2.533E-01,  2.541E-01,  2.550E-01,  2.559E-01,
     2      2.568E-01,  2.577E-01,  2.587E-01,  2.597E-01,  2.607E-01,
     3      2.617E-01,  2.626E-01,  2.636E-01,  2.645E-01,  2.654E-01,
     4      2.663E-01,  2.672E-01,  2.682E-01,  2.692E-01,  2.703E-01,
     5      2.713E-01,  2.724E-01,  2.734E-01,  2.744E-01,  2.754E-01,
     6      2.764E-01,  2.774E-01,  2.784E-01,  2.795E-01,  2.806E-01,
     7      2.816E-01,  2.827E-01,  2.838E-01,  2.850E-01,  2.861E-01,
     8      2.872E-01,  2.884E-01,  2.895E-01,  2.907E-01,  2.918E-01,
     9      2.930E-01,  2.942E-01,  2.954E-01,  2.967E-01,  2.980E-01,
     $      2.993E-01,  3.005E-01,  3.017E-01,  3.029E-01,  3.041E-01/
      DATA (X(I),I= 1301, 1400)/
     1      3.052E-01,  3.064E-01,  3.076E-01,  3.088E-01,  3.100E-01,
     2      3.112E-01,  3.124E-01,  3.136E-01,  3.149E-01,  3.161E-01,
     3      3.173E-01,  3.185E-01,  3.196E-01,  3.208E-01,  3.219E-01,
     4      3.230E-01,  3.242E-01,  3.253E-01,  3.265E-01,  3.277E-01,
     5      3.289E-01,  3.300E-01,  3.312E-01,  3.323E-01,  3.334E-01,
     6      3.345E-01,  3.356E-01,  3.367E-01,  3.378E-01,  3.389E-01,
     7      3.400E-01,  3.410E-01,  3.421E-01,  3.431E-01,  3.441E-01,
     8      3.452E-01,  3.462E-01,  3.472E-01,  3.482E-01,  3.493E-01,
     9      3.503E-01,  3.513E-01,  3.524E-01,  3.534E-01,  3.545E-01,
     $      3.555E-01,  3.566E-01,  3.577E-01,  3.588E-01,  3.599E-01,
     1      3.611E-01,  3.622E-01,  3.632E-01,  3.643E-01,  3.653E-01,
     2      3.664E-01,  3.674E-01,  3.683E-01,  3.692E-01,  3.702E-01,
     3      3.711E-01,  3.721E-01,  3.732E-01,  3.740E-01,  3.751E-01,
     4      3.762E-01,  3.774E-01,  3.781E-01,  3.792E-01,  3.800E-01,
     5      3.811E-01,  3.818E-01,  3.826E-01,  3.837E-01,  3.844E-01,
     6      3.853E-01,  3.863E-01,  3.870E-01,  3.881E-01,  3.889E-01,
     7      3.898E-01,  3.908E-01,  3.916E-01,  3.928E-01,  3.937E-01,
     8      3.946E-01,  3.957E-01,  3.967E-01,  3.976E-01,  3.983E-01,
     9      3.995E-01,  4.002E-01,  4.013E-01,  4.023E-01,  4.032E-01,
     $      4.042E-01,  4.050E-01,  4.062E-01,  4.073E-01,  4.084E-01/
      DATA (X(I),I= 1401, 1500)/
     1      4.095E-01,  4.106E-01,  4.117E-01,  4.130E-01,  4.144E-01,
     2      4.155E-01,  4.165E-01,  4.178E-01,  4.189E-01,  4.200E-01,
     3      4.215E-01,  4.226E-01,  4.241E-01,  4.252E-01,  4.266E-01,
     4      4.280E-01,  4.293E-01,  4.306E-01,  4.321E-01,  4.335E-01,
     5      4.347E-01,  4.362E-01,  4.376E-01,  4.388E-01,  4.403E-01,
     6      4.418E-01,  4.433E-01,  4.450E-01,  4.465E-01,  4.480E-01,
     7      4.495E-01,  4.510E-01,  4.524E-01,  4.540E-01,  4.555E-01,
     8      4.571E-01,  4.585E-01,  4.603E-01,  4.619E-01,  4.634E-01,
     9      4.652E-01,  4.668E-01,  4.683E-01,  4.700E-01,  4.716E-01,
     $      4.734E-01,  4.750E-01,  4.764E-01,  4.782E-01,  4.797E-01,
     1      4.812E-01,  4.830E-01,  4.845E-01,  4.861E-01,  4.875E-01,
     2      4.893E-01,  4.908E-01,  4.920E-01,  4.935E-01,  4.950E-01,
     3      4.964E-01,  4.976E-01,  4.990E-01,  5.003E-01,  5.016E-01,
     4      5.028E-01,  5.043E-01,  5.054E-01,  5.064E-01,  5.073E-01,
     5      5.082E-01,  5.094E-01,  5.104E-01,  5.111E-01,  5.119E-01,
     6      5.126E-01,  5.133E-01,  5.141E-01,  5.146E-01,  5.149E-01,
     7      5.154E-01,  5.159E-01,  5.162E-01,  5.166E-01,  5.167E-01,
     8      5.168E-01,  5.170E-01,  5.171E-01,  5.171E-01,  5.169E-01,
     9      5.166E-01,  5.162E-01,  5.159E-01,  5.155E-01,  5.151E-01,
     $      5.146E-01,  5.139E-01,  5.133E-01,  5.128E-01,  5.120E-01/
      DATA (X(I),I= 1501, 1600)/
     1      5.113E-01,  5.103E-01,  5.092E-01,  5.080E-01,  5.070E-01,
     2      5.059E-01,  5.048E-01,  5.036E-01,  5.022E-01,  5.011E-01,
     3      4.997E-01,  4.984E-01,  4.969E-01,  4.954E-01,  4.939E-01,
     4      4.924E-01,  4.909E-01,  4.893E-01,  4.877E-01,  4.863E-01,
     5      4.845E-01,  4.831E-01,  4.814E-01,  4.798E-01,  4.781E-01,
     6      4.766E-01,  4.748E-01,  4.732E-01,  4.718E-01,  4.703E-01,
     7      4.688E-01,  4.673E-01,  4.658E-01,  4.643E-01,  4.630E-01,
     8      4.615E-01,  4.600E-01,  4.586E-01,  4.572E-01,  4.559E-01,
     9      4.548E-01,  4.536E-01,  4.524E-01,  4.512E-01,  4.501E-01,
     $      4.491E-01,  4.483E-01,  4.475E-01,  4.468E-01,  4.459E-01,
     1      4.450E-01,  4.444E-01,  4.438E-01,  4.431E-01,  4.424E-01,
     2      4.416E-01,  4.412E-01,  4.409E-01,  4.405E-01,  4.401E-01,
     3      4.397E-01,  4.394E-01,  4.392E-01,  4.390E-01,  4.389E-01,
     4      4.386E-01,  4.386E-01,  4.384E-01,  4.384E-01,  4.385E-01,
     5      4.385E-01,  4.385E-01,  4.385E-01,  4.387E-01,  4.387E-01,
     6      4.387E-01,  4.387E-01,  4.387E-01,  4.387E-01,  4.390E-01,
     7      4.391E-01,  4.394E-01,  4.398E-01,  4.398E-01,  4.402E-01,
     8      4.406E-01,  4.410E-01,  4.413E-01,  4.417E-01,  4.421E-01,
     9      4.425E-01,  4.428E-01,  4.432E-01,  4.440E-01,  4.443E-01,
     $      4.448E-01,  4.452E-01,  4.459E-01,  4.467E-01,  4.471E-01/
      DATA (X(I),I= 1601, 1700)/
     1      4.479E-01,  4.486E-01,  4.491E-01,  4.498E-01,  4.505E-01,
     2      4.512E-01,  4.519E-01,  4.525E-01,  4.532E-01,  4.539E-01,
     3      4.547E-01,  4.554E-01,  4.562E-01,  4.569E-01,  4.577E-01,
     4      4.584E-01,  4.592E-01,  4.599E-01,  4.606E-01,  4.614E-01,
     5      4.621E-01,  4.629E-01,  4.636E-01,  4.640E-01,  4.648E-01,
     6      4.655E-01,  4.662E-01,  4.670E-01,  4.675E-01,  4.682E-01,
     7      4.689E-01,  4.697E-01,  4.701E-01,  4.708E-01,  4.712E-01,
     8      4.718E-01,  4.724E-01,  4.729E-01,  4.735E-01,  4.739E-01,
     9      4.742E-01,  4.745E-01,  4.748E-01,  4.751E-01,  4.753E-01,
     $      4.755E-01,  4.757E-01,  4.757E-01,  4.757E-01,  4.756E-01,
     1      4.756E-01,  4.756E-01,  4.753E-01,  4.752E-01,  4.749E-01,
     2      4.747E-01,  4.744E-01,  4.741E-01,  4.737E-01,  4.734E-01,
     3      4.730E-01,  4.725E-01,  4.721E-01,  4.715E-01,  4.708E-01,
     4      4.701E-01,  4.693E-01,  4.686E-01,  4.681E-01,  4.673E-01,
     5      4.663E-01,  4.657E-01,  4.649E-01,  4.641E-01,  4.632E-01,
     6      4.623E-01,  4.615E-01,  4.606E-01,  4.596E-01,  4.588E-01,
     7      4.579E-01,  4.569E-01,  4.561E-01,  4.551E-01,  4.542E-01,
     8      4.532E-01,  4.524E-01,  4.513E-01,  4.506E-01,  4.498E-01,
     9      4.487E-01,  4.479E-01,  4.472E-01,  4.461E-01,  4.454E-01,
     $      4.443E-01,  4.435E-01,  4.428E-01,  4.418E-01,  4.411E-01/
      DATA (X(I),I= 1701, 1800)/
     1      4.400E-01,  4.388E-01,  4.380E-01,  4.368E-01,  4.357E-01,
     2      4.347E-01,  4.338E-01,  4.328E-01,  4.316E-01,  4.305E-01,
     3      4.294E-01,  4.283E-01,  4.272E-01,  4.261E-01,  4.249E-01,
     4      4.235E-01,  4.222E-01,  4.212E-01,  4.201E-01,  4.186E-01,
     5      4.171E-01,  4.159E-01,  4.145E-01,  4.130E-01,  4.115E-01,
     6      4.100E-01,  4.085E-01,  4.070E-01,  4.057E-01,  4.042E-01,
     7      4.028E-01,  4.014E-01,  3.998E-01,  3.982E-01,  3.967E-01,
     8      3.950E-01,  3.935E-01,  3.919E-01,  3.904E-01,  3.892E-01,
     9      3.878E-01,  3.863E-01,  3.848E-01,  3.833E-01,  3.818E-01,
     $      3.803E-01,  3.789E-01,  3.775E-01,  3.761E-01,  3.746E-01,
     1      3.731E-01,  3.718E-01,  3.706E-01,  3.694E-01,  3.681E-01,
     2      3.669E-01,  3.657E-01,  3.646E-01,  3.635E-01,  3.624E-01,
     3      3.613E-01,  3.603E-01,  3.592E-01,  3.581E-01,  3.571E-01,
     4      3.561E-01,  3.550E-01,  3.540E-01,  3.530E-01,  3.520E-01,
     5      3.510E-01,  3.503E-01,  3.495E-01,  3.487E-01,  3.479E-01,
     6      3.472E-01,  3.464E-01,  3.457E-01,  3.450E-01,  3.443E-01,
     7      3.436E-01,  3.429E-01,  3.422E-01,  3.415E-01,  3.409E-01,
     8      3.403E-01,  3.398E-01,  3.392E-01,  3.386E-01,  3.380E-01,
     9      3.375E-01,  3.369E-01,  3.364E-01,  3.358E-01,  3.353E-01,
     $      3.347E-01,  3.342E-01,  3.337E-01,  3.332E-01,  3.327E-01/
      DATA (X(I),I= 1801, 1900)/
     1      3.323E-01,  3.318E-01,  3.313E-01,  3.308E-01,  3.304E-01,
     2      3.300E-01,  3.295E-01,  3.291E-01,  3.286E-01,  3.282E-01,
     3      3.278E-01,  3.275E-01,  3.271E-01,  3.267E-01,  3.264E-01,
     4      3.260E-01,  3.256E-01,  3.251E-01,  3.245E-01,  3.240E-01,
     5      3.235E-01,  3.230E-01,  3.224E-01,  3.219E-01,  3.213E-01,
     6      3.207E-01,  3.202E-01,  3.196E-01,  3.190E-01,  3.185E-01,
     7      3.179E-01,  3.174E-01,  3.169E-01,  3.163E-01,  3.158E-01,
     8      3.152E-01,  3.146E-01,  3.139E-01,  3.132E-01,  3.125E-01,
     9      3.117E-01,  3.110E-01,  3.102E-01,  3.095E-01,  3.087E-01,
     $      3.079E-01,  3.071E-01,  3.063E-01,  3.055E-01,  3.048E-01,
     1      3.039E-01,  3.031E-01,  3.022E-01,  3.014E-01,  3.005E-01,
     2      2.996E-01,  2.988E-01,  2.979E-01,  2.970E-01,  2.961E-01,
     3      2.952E-01,  2.944E-01,  2.935E-01,  2.927E-01,  2.920E-01,
     4      2.913E-01,  2.906E-01,  2.900E-01,  2.893E-01,  2.886E-01,
     5      2.880E-01,  2.874E-01,  2.869E-01,  2.863E-01,  2.858E-01,
     6      2.852E-01,  2.847E-01,  2.842E-01,  2.838E-01,  2.834E-01,
     7      2.830E-01,  2.826E-01,  2.822E-01,  2.818E-01,  2.815E-01,
     8      2.813E-01,  2.811E-01,  2.809E-01,  2.807E-01,  2.805E-01,
     9      2.803E-01,  2.802E-01,  2.803E-01,  2.803E-01,  2.803E-01,
     $      2.803E-01,  2.803E-01,  2.804E-01,  2.804E-01,  2.805E-01/
      DATA (X(I),I= 1901, 2000)/
     1      2.806E-01,  2.807E-01,  2.808E-01,  2.809E-01,  2.810E-01,
     2      2.810E-01,  2.809E-01,  2.808E-01,  2.808E-01,  2.807E-01,
     3      2.806E-01,  2.805E-01,  2.804E-01,  2.801E-01,  2.799E-01,
     4      2.796E-01,  2.794E-01,  2.791E-01,  2.789E-01,  2.785E-01,
     5      2.780E-01,  2.775E-01,  2.770E-01,  2.765E-01,  2.760E-01,
     6      2.755E-01,  2.749E-01,  2.741E-01,  2.734E-01,  2.726E-01,
     7      2.718E-01,  2.710E-01,  2.703E-01,  2.694E-01,  2.684E-01,
     8      2.674E-01,  2.664E-01,  2.654E-01,  2.644E-01,  2.634E-01,
     9      2.624E-01,  2.612E-01,  2.601E-01,  2.589E-01,  2.578E-01,
     $      2.566E-01,  2.555E-01,  2.543E-01,  2.530E-01,  2.517E-01,
     1      2.503E-01,  2.490E-01,  2.477E-01,  2.463E-01,  2.450E-01,
     2      2.436E-01,  2.423E-01,  2.410E-01,  2.396E-01,  2.383E-01,
     3      2.370E-01,  2.356E-01,  2.342E-01,  2.328E-01,  2.314E-01,
     4      2.299E-01,  2.285E-01,  2.271E-01,  2.257E-01,  2.243E-01,
     5      2.230E-01,  2.218E-01,  2.205E-01,  2.192E-01,  2.179E-01,
     6      2.166E-01,  2.153E-01,  2.140E-01,  2.126E-01,  2.113E-01,
     7      2.100E-01,  2.086E-01,  2.073E-01,  2.060E-01,  2.048E-01,
     8      2.036E-01,  2.025E-01,  2.013E-01,  2.001E-01,  1.989E-01,
     9      1.977E-01,  1.967E-01,  1.957E-01,  1.947E-01,  1.937E-01,
     $      1.927E-01,  1.917E-01,  1.907E-01,  1.898E-01,  1.890E-01/
      DATA (X(I),I= 2001, 2100)/
     1      1.883E-01,  1.875E-01,  1.867E-01,  1.859E-01,  1.851E-01,
     2      1.844E-01,  1.836E-01,  1.829E-01,  1.821E-01,  1.813E-01,
     3      1.806E-01,  1.798E-01,  1.791E-01,  1.786E-01,  1.781E-01,
     4      1.776E-01,  1.771E-01,  1.766E-01,  1.761E-01,  1.756E-01,
     5      1.751E-01,  1.747E-01,  1.743E-01,  1.739E-01,  1.735E-01,
     6      1.731E-01,  1.726E-01,  1.722E-01,  1.718E-01,  1.714E-01,
     7      1.710E-01,  1.706E-01,  1.703E-01,  1.698E-01,  1.695E-01,
     8      1.691E-01,  1.686E-01,  1.682E-01,  1.677E-01,  1.673E-01,
     9      1.668E-01,  1.664E-01,  1.660E-01,  1.655E-01,  1.650E-01,
     $      1.646E-01,  1.642E-01,  1.637E-01,  1.633E-01,  1.628E-01,
     1      1.624E-01,  1.619E-01,  1.615E-01,  1.611E-01,  1.607E-01,
     2      1.602E-01,  1.598E-01,  1.593E-01,  1.588E-01,  1.583E-01,
     3      1.578E-01,  1.574E-01,  1.569E-01,  1.564E-01,  1.560E-01,
     4      1.555E-01,  1.551E-01,  1.548E-01,  1.544E-01,  1.540E-01,
     5      1.536E-01,  1.532E-01,  1.528E-01,  1.525E-01,  1.523E-01,
     6      1.520E-01,  1.518E-01,  1.516E-01,  1.514E-01,  1.511E-01,
     7      1.510E-01,  1.511E-01,  1.513E-01,  1.514E-01,  1.516E-01,
     8      1.518E-01,  1.519E-01,  1.521E-01,  1.523E-01,  1.526E-01,
     9      1.528E-01,  1.531E-01,  1.534E-01,  1.537E-01,  1.540E-01,
     $      1.543E-01,  1.547E-01,  1.551E-01,  1.555E-01,  1.560E-01/
      DATA (X(I),I= 2101, 2200)/
     1      1.564E-01,  1.568E-01,  1.572E-01,  1.575E-01,  1.579E-01,
     2      1.581E-01,  1.584E-01,  1.586E-01,  1.589E-01,  1.592E-01,
     3      1.594E-01,  1.596E-01,  1.598E-01,  1.599E-01,  1.600E-01,
     4      1.601E-01,  1.602E-01,  1.603E-01,  1.604E-01,  1.604E-01,
     5      1.602E-01,  1.600E-01,  1.598E-01,  1.596E-01,  1.594E-01,
     6      1.592E-01,  1.590E-01,  1.585E-01,  1.580E-01,  1.574E-01,
     7      1.568E-01,  1.562E-01,  1.555E-01,  1.549E-01,  1.543E-01,
     8      1.535E-01,  1.527E-01,  1.518E-01,  1.510E-01,  1.501E-01,
     9      1.493E-01,  1.484E-01,  1.475E-01,  1.464E-01,  1.453E-01,
     $      1.442E-01,  1.431E-01,  1.420E-01,  1.409E-01,  1.398E-01,
     1      1.386E-01,  1.374E-01,  1.362E-01,  1.350E-01,  1.338E-01,
     2      1.326E-01,  1.314E-01,  1.302E-01,  1.290E-01,  1.278E-01,
     3      1.265E-01,  1.253E-01,  1.241E-01,  1.229E-01,  1.217E-01,
     4      1.204E-01,  1.192E-01,  1.180E-01,  1.169E-01,  1.157E-01,
     5      1.145E-01,  1.133E-01,  1.122E-01,  1.110E-01,  1.099E-01,
     6      1.089E-01,  1.079E-01,  1.069E-01,  1.060E-01,  1.050E-01,
     7      1.040E-01,  1.031E-01,  1.021E-01,  1.013E-01,  1.005E-01,
     8      9.973E-02,  9.897E-02,  9.820E-02,  9.743E-02,  9.664E-02,
     9      9.588E-02,  9.524E-02,  9.462E-02,  9.400E-02,  9.339E-02,
     $      9.279E-02,  9.217E-02,  9.158E-02,  9.098E-02,  9.049E-02/
      DATA (X(I),I= 2201, 2300)/
     1      9.002E-02,  8.958E-02,  8.913E-02,  8.869E-02,  8.827E-02,
     2      8.783E-02,  8.742E-02,  8.712E-02,  8.690E-02,  8.670E-02,
     3      8.648E-02,  8.629E-02,  8.607E-02,  8.588E-02,  8.568E-02,
     4      8.547E-02,  8.525E-02,  8.503E-02,  8.482E-02,  8.462E-02,
     5      8.440E-02,  8.418E-02,  8.397E-02,  8.379E-02,  8.369E-02,
     6      8.359E-02,  8.349E-02,  8.341E-02,  8.332E-02,  8.322E-02,
     7      8.316E-02,  8.305E-02,  8.288E-02,  8.269E-02,  8.251E-02,
     8      8.232E-02,  8.214E-02,  8.195E-02,  8.178E-02,  8.158E-02,
     9      8.133E-02,  8.108E-02,  8.083E-02,  8.057E-02,  8.031E-02,
     $      8.003E-02,  7.976E-02,  7.949E-02,  7.917E-02,  7.874E-02,
     1      7.830E-02,  7.789E-02,  7.744E-02,  7.704E-02,  7.662E-02,
     2      7.620E-02,  7.579E-02,  7.549E-02,  7.519E-02,  7.490E-02,
     3      7.460E-02,  7.432E-02,  7.404E-02,  7.377E-02,  7.347E-02,
     4      7.333E-02,  7.329E-02,  7.323E-02,  7.318E-02,  7.315E-02,
     5      7.310E-02,  7.307E-02,  7.303E-02,  7.304E-02,  7.320E-02,
     6      7.336E-02,  7.351E-02,  7.369E-02,  7.386E-02,  7.402E-02,
     7      7.417E-02,  7.435E-02,  7.458E-02,  7.481E-02,  7.505E-02,
     8      7.529E-02,  7.556E-02,  7.582E-02,  7.607E-02,  7.634E-02,
     9      7.661E-02,  7.695E-02,  7.728E-02,  7.763E-02,  7.797E-02,
     $      7.830E-02,  7.864E-02,  7.895E-02,  7.929E-02,  7.952E-02/
      DATA (X(I),I= 2301, 2400)/
     1      7.975E-02,  7.996E-02,  8.018E-02,  8.039E-02,  8.061E-02,
     2      8.081E-02,  8.102E-02,  8.115E-02,  8.105E-02,  8.096E-02,
     3      8.086E-02,  8.074E-02,  8.062E-02,  8.048E-02,  8.033E-02,
     4      8.019E-02,  7.988E-02,  7.946E-02,  7.907E-02,  7.866E-02,
     5      7.824E-02,  7.784E-02,  7.743E-02,  7.702E-02,  7.658E-02,
     6      7.607E-02,  7.552E-02,  7.497E-02,  7.442E-02,  7.386E-02,
     7      7.328E-02,  7.271E-02,  7.214E-02,  7.149E-02,  7.072E-02,
     8      6.995E-02,  6.917E-02,  6.840E-02,  6.762E-02,  6.684E-02,
     9      6.605E-02,  6.527E-02,  6.453E-02,  6.382E-02,  6.311E-02,
     $      6.240E-02,  6.169E-02,  6.099E-02,  6.027E-02,  5.956E-02,
     1      5.886E-02,  5.817E-02,  5.747E-02,  5.676E-02,  5.607E-02,
     2      5.537E-02,  5.469E-02,  5.400E-02,  5.331E-02,  5.265E-02,
     3      5.205E-02,  5.146E-02,  5.088E-02,  5.028E-02,  4.970E-02,
     4      4.912E-02,  4.853E-02,  4.794E-02,  4.738E-02,  4.685E-02,
     5      4.634E-02,  4.583E-02,  4.532E-02,  4.480E-02,  4.431E-02,
     6      4.380E-02,  4.331E-02,  4.291E-02,  4.260E-02,  4.230E-02,
     7      4.199E-02,  4.168E-02,  4.137E-02,  4.107E-02,  4.078E-02,
     8      4.047E-02,  4.029E-02,  4.016E-02,  4.004E-02,  3.991E-02,
     9      3.980E-02,  3.970E-02,  3.959E-02,  3.949E-02,  3.937E-02,
     $      3.934E-02,  3.933E-02,  3.933E-02,  3.934E-02,  3.935E-02/
      DATA (X(I),I= 2401, 2500)/
     1      3.935E-02,  3.936E-02,  3.936E-02,  3.936E-02,  3.931E-02,
     2      3.925E-02,  3.918E-02,  3.912E-02,  3.905E-02,  3.897E-02,
     3      3.889E-02,  3.881E-02,  3.874E-02,  3.866E-02,  3.855E-02,
     4      3.846E-02,  3.837E-02,  3.826E-02,  3.818E-02,  3.807E-02,
     5      3.795E-02,  3.786E-02,  3.769E-02,  3.748E-02,  3.727E-02,
     6      3.706E-02,  3.686E-02,  3.664E-02,  3.643E-02,  3.622E-02,
     7      3.601E-02,  3.581E-02,  3.561E-02,  3.542E-02,  3.522E-02,
     8      3.503E-02,  3.484E-02,  3.465E-02,  3.446E-02,  3.427E-02,
     9      3.407E-02,  3.386E-02,  3.364E-02,  3.343E-02,  3.322E-02,
     $      3.301E-02,  3.280E-02,  3.259E-02,  3.238E-02,  3.221E-02,
     1      3.209E-02,  3.198E-02,  3.186E-02,  3.175E-02,  3.164E-02,
     2      3.153E-02,  3.143E-02,  3.132E-02,  3.126E-02,  3.136E-02,
     3      3.148E-02,  3.159E-02,  3.170E-02,  3.182E-02,  3.194E-02,
     4      3.206E-02,  3.219E-02,  3.232E-02,  3.253E-02,  3.275E-02,
     5      3.298E-02,  3.320E-02,  3.343E-02,  3.366E-02,  3.389E-02,
     6      3.412E-02,  3.435E-02,  3.455E-02,  3.475E-02,  3.495E-02,
     7      3.515E-02,  3.535E-02,  3.555E-02,  3.573E-02,  3.593E-02,
     8      3.612E-02,  3.625E-02,  3.628E-02,  3.631E-02,  3.634E-02,
     9      3.637E-02,  3.639E-02,  3.641E-02,  3.643E-02,  3.646E-02,
     $      3.646E-02,  3.636E-02,  3.623E-02,  3.611E-02,  3.599E-02/
      DATA (X(I),I= 2501, 2600)/
     1      3.586E-02,  3.572E-02,  3.559E-02,  3.545E-02,  3.531E-02,
     2      3.509E-02,  3.481E-02,  3.453E-02,  3.425E-02,  3.398E-02,
     3      3.369E-02,  3.341E-02,  3.312E-02,  3.284E-02,  3.254E-02,
     4      3.217E-02,  3.180E-02,  3.143E-02,  3.106E-02,  3.069E-02,
     5      3.031E-02,  2.994E-02,  2.956E-02,  2.919E-02,  2.882E-02,
     6      2.845E-02,  2.808E-02,  2.771E-02,  2.734E-02,  2.696E-02,
     7      2.660E-02,  2.622E-02,  2.585E-02,  2.549E-02,  2.512E-02,
     8      2.476E-02,  2.440E-02,  2.404E-02,  2.368E-02,  2.332E-02,
     9      2.297E-02,  2.261E-02,  2.225E-02,  2.193E-02,  2.164E-02,
     $      2.135E-02,  2.106E-02,  2.076E-02,  2.048E-02,  2.019E-02,
     1      1.990E-02,  1.962E-02,  1.935E-02,  1.916E-02,  1.898E-02,
     2      1.881E-02,  1.863E-02,  1.846E-02,  1.828E-02,  1.811E-02,
     3      1.794E-02,  1.777E-02,  1.764E-02,  1.757E-02,  1.749E-02,
     4      1.742E-02,  1.735E-02,  1.728E-02,  1.721E-02,  1.714E-02,
     5      1.708E-02,  1.701E-02,  1.699E-02,  1.699E-02,  1.699E-02,
     6      1.699E-02,  1.699E-02,  1.699E-02,  1.699E-02,  1.699E-02,
     7      1.699E-02,  1.699E-02,  1.700E-02,  1.702E-02,  1.703E-02,
     8      1.704E-02,  1.706E-02,  1.707E-02,  1.708E-02,  1.709E-02,
     9      1.710E-02,  1.710E-02,  1.706E-02,  1.701E-02,  1.696E-02,
     $      1.692E-02,  1.687E-02,  1.683E-02,  1.678E-02,  1.673E-02/
      DATA (X(I),I= 2601, 2700)/
     1      1.668E-02,  1.661E-02,  1.651E-02,  1.642E-02,  1.632E-02,
     2      1.622E-02,  1.612E-02,  1.602E-02,  1.592E-02,  1.582E-02,
     3      1.572E-02,  1.560E-02,  1.545E-02,  1.531E-02,  1.517E-02,
     4      1.503E-02,  1.489E-02,  1.474E-02,  1.460E-02,  1.446E-02,
     5      1.432E-02,  1.420E-02,  1.408E-02,  1.397E-02,  1.386E-02,
     6      1.375E-02,  1.363E-02,  1.352E-02,  1.341E-02,  1.329E-02,
     7      1.318E-02,  1.313E-02,  1.310E-02,  1.308E-02,  1.305E-02,
     8      1.303E-02,  1.300E-02,  1.298E-02,  1.295E-02,  1.292E-02,
     9      1.290E-02,  1.293E-02,  1.297E-02,  1.302E-02,  1.307E-02,
     $      1.311E-02,  1.316E-02,  1.320E-02,  1.325E-02,  1.330E-02,
     1      1.334E-02,  1.341E-02,  1.349E-02,  1.357E-02,  1.366E-02,
     2      1.374E-02,  1.382E-02,  1.390E-02,  1.398E-02,  1.406E-02,
     3      1.414E-02,  1.421E-02,  1.427E-02,  1.433E-02,  1.438E-02,
     4      1.444E-02,  1.450E-02,  1.456E-02,  1.462E-02,  1.467E-02,
     5      1.473E-02,  1.475E-02,  1.474E-02,  1.473E-02,  1.472E-02,
     6      1.471E-02,  1.470E-02,  1.468E-02,  1.467E-02,  1.466E-02,
     7      1.465E-02,  1.461E-02,  1.452E-02,  1.442E-02,  1.433E-02,
     8      1.423E-02,  1.414E-02,  1.405E-02,  1.395E-02,  1.386E-02,
     9      1.377E-02,  1.367E-02,  1.356E-02,  1.344E-02,  1.333E-02,
     $      1.321E-02,  1.310E-02,  1.298E-02,  1.287E-02,  1.275E-02/
      DATA (X(I),I= 2701, 2800)/
     1      1.264E-02,  1.252E-02,  1.236E-02,  1.220E-02,  1.204E-02,
     2      1.187E-02,  1.171E-02,  1.155E-02,  1.138E-02,  1.122E-02,
     3      1.106E-02,  1.089E-02,  1.072E-02,  1.055E-02,  1.038E-02,
     4      1.021E-02,  1.004E-02,  9.872E-03,  9.701E-03,  9.531E-03,
     5      9.361E-03,  9.190E-03,  9.029E-03,  8.896E-03,  8.763E-03,
     6      8.634E-03,  8.503E-03,  8.370E-03,  8.240E-03,  8.108E-03,
     7      7.977E-03,  7.847E-03,  7.717E-03,  7.622E-03,  7.540E-03,
     8      7.457E-03,  7.373E-03,  7.291E-03,  7.209E-03,  7.126E-03,
     9      7.041E-03,  6.961E-03,  6.878E-03,  6.813E-03,  6.782E-03,
     $      6.751E-03,  6.721E-03,  6.690E-03,  6.658E-03,  6.628E-03,
     1      6.599E-03,  6.567E-03,  6.536E-03,  6.508E-03,  6.499E-03,
     2      6.495E-03,  6.493E-03,  6.490E-03,  6.488E-03,  6.484E-03,
     3      6.480E-03,  6.478E-03,  6.474E-03,  6.470E-03,  6.471E-03,
     4      6.473E-03,  6.476E-03,  6.480E-03,  6.482E-03,  6.486E-03,
     5      6.489E-03,  6.493E-03,  6.496E-03,  6.499E-03,  6.501E-03,
     6      6.488E-03,  6.465E-03,  6.444E-03,  6.422E-03,  6.401E-03,
     7      6.381E-03,  6.359E-03,  6.337E-03,  6.316E-03,  6.294E-03,
     8      6.266E-03,  6.203E-03,  6.135E-03,  6.067E-03,  6.002E-03,
     9      5.932E-03,  5.867E-03,  5.797E-03,  5.732E-03,  5.664E-03,
     $      5.596E-03,  5.528E-03,  5.457E-03,  5.388E-03,  5.318E-03/
      DATA (X(I),I= 2801, 2900)/
     1      5.248E-03,  5.177E-03,  5.107E-03,  5.036E-03,  4.966E-03,
     2      4.895E-03,  4.825E-03,  4.781E-03,  4.755E-03,  4.729E-03,
     3      4.703E-03,  4.675E-03,  4.648E-03,  4.622E-03,  4.595E-03,
     4      4.569E-03,  4.542E-03,  4.516E-03,  4.514E-03,  4.517E-03,
     5      4.520E-03,  4.523E-03,  4.527E-03,  4.530E-03,  4.533E-03,
     6      4.539E-03,  4.541E-03,  4.545E-03,  4.550E-03,  4.568E-03,
     7      4.588E-03,  4.609E-03,  4.628E-03,  4.649E-03,  4.669E-03,
     8      4.689E-03,  4.710E-03,  4.731E-03,  4.750E-03,  4.771E-03,
     9      4.796E-03,  4.822E-03,  4.847E-03,  4.869E-03,  4.896E-03,
     $      4.921E-03,  4.945E-03,  4.970E-03,  4.995E-03,  5.020E-03,
     1      5.038E-03,  5.040E-03,  5.038E-03,  5.037E-03,  5.036E-03,
     2      5.036E-03,  5.034E-03,  5.034E-03,  5.031E-03,  5.031E-03,
     3      5.031E-03,  5.019E-03,  4.979E-03,  4.934E-03,  4.892E-03,
     4      4.848E-03,  4.805E-03,  4.763E-03,  4.718E-03,  4.676E-03,
     5      4.632E-03,  4.590E-03,  4.541E-03,  4.475E-03,  4.405E-03,
     6      4.336E-03,  4.268E-03,  4.198E-03,  4.130E-03,  4.060E-03,
     7      3.990E-03,  3.922E-03,  3.852E-03,  3.782E-03,  3.715E-03,
     8      3.646E-03,  3.577E-03,  3.508E-03,  3.439E-03,  3.370E-03,
     9      3.301E-03,  3.232E-03,  3.163E-03,  3.094E-03,  3.026E-03,
     $      2.971E-03,  2.919E-03,  2.868E-03,  2.816E-03,  2.764E-03/
      DATA (X(I),I= 2901, 3000)/
     1      2.712E-03,  2.661E-03,  2.609E-03,  2.557E-03,  2.505E-03,
     2      2.454E-03,  2.416E-03,  2.386E-03,  2.356E-03,  2.326E-03,
     3      2.297E-03,  2.267E-03,  2.237E-03,  2.207E-03,  2.177E-03,
     4      2.148E-03,  2.118E-03,  2.096E-03,  2.087E-03,  2.078E-03,
     5      2.070E-03,  2.061E-03,  2.052E-03,  2.043E-03,  2.034E-03,
     6      2.025E-03,  2.016E-03,  2.007E-03,  2.000E-03,  2.000E-03,
     7      2.001E-03,  2.002E-03,  2.003E-03,  2.004E-03,  2.005E-03,
     8      2.006E-03,  2.007E-03,  2.007E-03,  2.008E-03,  2.009E-03,
     9      2.008E-03,  2.006E-03,  2.003E-03,  2.001E-03,  1.999E-03,
     $      1.997E-03,  1.994E-03,  1.992E-03,  1.990E-03,  1.988E-03,
     1      1.985E-03,  1.980E-03,  1.968E-03,  1.956E-03,  1.944E-03,
     2      1.932E-03,  1.919E-03,  1.907E-03,  1.895E-03,  1.883E-03,
     3      1.871E-03,  1.859E-03,  1.846E-03,  1.827E-03,  1.805E-03,
     4      1.783E-03,  1.761E-03,  1.740E-03,  1.718E-03,  1.696E-03,
     5      1.674E-03,  1.652E-03,  1.631E-03,  1.609E-03,  1.585E-03,
     6      1.557E-03,  1.529E-03,  1.500E-03,  1.472E-03,  1.444E-03,
     7      1.416E-03,  1.388E-03,  1.359E-03,  1.331E-03,  1.303E-03,
     8      1.275E-03,  1.251E-03,  1.228E-03,  1.206E-03,  1.183E-03,
     9      1.161E-03,  1.139E-03,  1.116E-03,  1.094E-03,  1.072E-03,
     $      1.049E-03,  1.027E-03,  1.007E-03,  1.003E-03,  9.991E-04/
      DATA (X(I),I= 3001, 3080)/
     1      9.959E-04,  9.926E-04,  9.891E-04,  9.857E-04,  9.826E-04,
     2      9.790E-04,  9.758E-04,  9.725E-04,  9.692E-04,  9.720E-04,
     3      9.842E-04,  9.967E-04,  1.009E-03,  1.022E-03,  1.034E-03,
     4      1.047E-03,  1.059E-03,  1.071E-03,  1.084E-03,  1.096E-03,
     5      1.109E-03,  1.118E-03,  1.126E-03,  1.133E-03,  1.141E-03,
     6      1.148E-03,  1.156E-03,  1.163E-03,  1.171E-03,  1.178E-03,
     7      1.186E-03,  1.193E-03,  1.200E-03,  1.194E-03,  1.185E-03,
     8      1.176E-03,  1.166E-03,  1.157E-03,  1.148E-03,  1.138E-03,
     9      1.129E-03,  1.120E-03,  1.110E-03,  1.101E-03,  1.091E-03,
     $      1.076E-03,  1.060E-03,  1.044E-03,  1.028E-03,  1.012E-03,
     1      9.955E-04,  9.794E-04,  9.632E-04,  9.473E-04,  9.310E-04,
     2      9.151E-04,  8.982E-04,  8.770E-04,  8.556E-04,  8.339E-04,
     3      8.121E-04,  7.907E-04,  7.689E-04,  7.471E-04,  7.255E-04,
     4      7.038E-04,  6.822E-04,  6.606E-04,  6.376E-04,  6.083E-04,
     5      5.783E-04,  5.478E-04,  5.177E-04,  4.875E-04,  4.574E-04,
     6      4.272E-04,  3.969E-04,  3.668E-04,  3.365E-04,  3.063E-04/
C
      DATA (Y(I),I=    1,  100)/
     1      7.656E-13,  2.726E-13,  3.310E-14,  4.764E-13, -1.707E-13,
     2     -3.745E-13, -1.019E-13,  3.745E-13,  2.038E-13,  4.764E-13,
     3      4.076E-13, -3.310E-14,  6.471E-13,  3.745E-13,  4.764E-13,
     4      8.152E-13,  6.880E-14,  5.783E-13,  3.745E-13, -1.157E-12,
     5      3.745E-13,  3.414E-13,  1.707E-13,  5.452E-13, -1.707E-13,
     6      1.294E-12, -2.700E-13, -2.038E-13,  8.152E-13,  4.076E-13,
     7      5.452E-13,  1.906E-12, -4.076E-13,  8.152E-13,   .000E+00,
     8     -1.972E-12,  2.181E-12,  1.906E-12,  6.620E-14,  1.564E-12,
     9       .000E+00,  1.157E-12, -4.076E-13,  2.038E-12, -1.223E-12,
     $       .000E+00,  2.247E-12,  1.498E-12,  1.839E-12,  6.828E-13,
     1      6.828E-13,  1.498E-12,  4.076E-13,  4.738E-13,  1.498E-12,
     2      4.076E-13,  8.152E-13,  6.828E-13,   .000E+00, -6.828E-13,
     3      1.906E-12,  1.498E-12,  1.906E-12, -8.152E-13,  1.773E-12,
     4      1.498E-12,  5.442E-12,  1.630E-12,  4.076E-12,  1.895E-12,
     5      1.895E-12,  1.101E-12, -1.366E-12,   .000E+00,  1.916E-12,
     6      7.072E-12, -2.181E-12, -4.097E-12,  3.526E-12, -5.992E-12,
     7      3.261E-12,  4.362E-12,  5.442E-12,  1.366E-12,   .000E+00,
     8     -1.324E-13,  2.313E-12,  1.223E-12, -4.076E-13,  2.181E-12,
     9       .000E+00,  1.223E-12,  2.038E-12,  1.498E-12,  4.076E-13,
     $      3.414E-13, -4.076E-13,  1.839E-12,  2.313E-12, -1.324E-13/
      DATA (Y(I),I=  101,  200)/
     1      1.564E-12,  8.152E-13,  4.738E-13,  1.906E-12,  1.498E-12,
     2     -6.620E-14,  8.152E-13,  1.702E-12,  4.076E-13, -8.866E-13,
     3      7.490E-13,  2.038E-13,  9.528E-13, -4.076E-13,  8.152E-13,
     4     -2.038E-13,  2.588E-12,  6.114E-13,   .000E+00,   .000E+00,
     5      1.630E-12, -7.490E-13,  2.313E-12, -6.828E-13,  3.414E-13,
     6      6.166E-13,  7.490E-13,  1.090E-12, -4.076E-13,  3.128E-12,
     7       .000E+00,  2.655E-12,  2.752E-13,  8.152E-13,  2.446E-12,
     8      1.498E-12,  2.313E-12,  4.351E-12,  2.588E-12,  2.313E-12,
     9     -4.076E-13, -9.476E-13,  9.580E-13,  2.752E-13,  1.223E-12,
     $      1.630E-12,  6.257E-12,  3.944E-12,  2.446E-12,   .000E+00,
     1      2.313E-12,  8.152E-13,  5.442E-12,  5.177E-12,  3.811E-12,
     2      2.648E-13,  8.152E-13,  6.807E-12,   .000E+00,  3.546E-12,
     3      2.996E-12,  6.257E-12,   .000E+00, -4.626E-12,   .000E+00,
     4      2.648E-13,  4.362E-12,  6.522E-12,  3.261E-12, -9.783E-12,
     5      9.253E-12,  1.198E-11,  9.253E-12, -9.253E-12,  3.261E-12,
     6     -8.723E-12, -1.084E-11,  2.071E-11,  2.503E-11,  1.419E-11,
     7     -8.723E-12, -9.783E-12,  1.957E-11,  1.957E-11,  1.198E-11,
     8      1.198E-11,  9.783E-12, -5.463E-12,  5.992E-12,  1.088E-11,
     9      8.723E-12,  9.253E-12, -1.630E-12,  5.463E-12,  5.992E-12,
     $      6.257E-12,  1.101E-12,  1.366E-12,  5.992E-12,  8.152E-13/
      DATA (Y(I),I=  201,  300)/
     1      4.076E-12,  4.076E-12, -1.630E-12,  7.072E-12,  5.177E-12,
     2      2.313E-12,  3.811E-12, -1.630E-12,  2.996E-12,  7.072E-12,
     3     -1.366E-12,  3.393E-12,  1.498E-12,  2.313E-12, -6.828E-13,
     4      2.996E-12,  1.366E-12,  7.072E-12,  1.366E-12,  2.181E-12,
     5     -2.181E-12,  4.076E-12,   .000E+00,  4.076E-12, -8.152E-13,
     6     -1.630E-12,  2.181E-12,  3.811E-12,  2.446E-12,  2.731E-12,
     7      2.996E-12,  4.626E-12,  7.623E-12, -1.895E-12,  2.996E-12,
     8     -2.648E-13, -1.630E-12,  3.832E-12,  5.992E-12,  7.623E-12,
     9      7.051E-12,   .000E+00,  8.723E-12,  2.731E-12,  2.160E-12,
     $      9.253E-12,  1.688E-11,  1.361E-11,  5.713E-13,  1.577E-11,
     1      1.851E-11, -1.630E-12,  1.361E-11,   .000E+00,  7.051E-12,
     2      1.525E-11,  5.992E-12,  6.522E-12, -8.723E-12,  1.059E-12,
     3      3.261E-12, -1.198E-11,  1.357E-11,  1.904E-11,  5.463E-12,
     4      1.304E-11, -5.463E-12, -6.522E-12,  3.261E-12, -1.059E-12,
     5      1.198E-11,  4.320E-12,  1.304E-11,  6.522E-12, -6.522E-12,
     6      6.522E-12,  4.353E-11, -2.118E-12,  3.049E-11,  2.609E-11,
     7       .000E+00,  8.807E-12,  4.353E-11,  5.446E-11, -4.403E-12,
     8     -3.049E-11,  6.522E-12, -8.640E-12,  5.217E-11, -4.403E-12,
     9      1.957E-11,   .000E+00,  1.851E-11,  3.913E-11, -5.463E-12,
     $     -1.851E-11,  6.522E-12,  6.522E-12, -6.522E-12,  4.403E-12/
      DATA (Y(I),I=  301,  400)/
     1       .000E+00,  2.829E-11,  1.304E-11,  7.581E-12, -1.304E-11,
     2      1.851E-11,  5.463E-12,  1.198E-11, -7.581E-12,  2.177E-11,
     3      1.093E-11,  1.851E-11,  1.304E-11, -2.202E-12,   .000E+00,
     4      1.957E-11, -6.522E-12,  1.304E-11,  2.071E-11,  1.304E-11,
     5      6.522E-12,  2.503E-11, -6.522E-12,  1.851E-11,  1.851E-11,
     6      6.522E-12,  8.723E-12,  1.525E-11,  8.723E-12,  6.522E-12,
     7     -8.723E-12,  1.525E-11,  1.851E-11,  1.304E-11,  1.525E-11,
     8      1.304E-11,  9.783E-12,  6.522E-12,  2.503E-11,   .000E+00,
     9     -5.463E-12, -1.059E-12,  1.525E-11,  5.463E-12,  2.829E-11,
     $     -3.261E-12,  1.525E-11, -5.463E-12, -3.261E-12,  8.723E-12,
     1      1.198E-11,  9.783E-12,  7.664E-12,  5.463E-12,  3.049E-11,
     2      2.283E-11,  8.723E-12,  2.202E-12,  5.463E-12, -6.522E-12,
     3      3.049E-11,  6.522E-12,  2.503E-11,  3.489E-11,  2.943E-11,
     4     -1.059E-12,  5.992E-11,  3.261E-11,  1.957E-11, -1.304E-11,
     5      2.609E-11,  6.098E-11,  5.217E-11, -1.516E-11,  2.397E-11,
     6      4.403E-12,  3.049E-11, -4.403E-12,  4.353E-11,  2.609E-11,
     7     -2.185E-11,  1.093E-11,  2.609E-11,  2.609E-11,  7.191E-11,
     8     -4.237E-12,  3.701E-11, -1.516E-11,  8.707E-11,  4.794E-11,
     9      6.098E-11,  3.913E-11,  7.402E-11,  1.516E-11, -3.701E-11,
     $      5.006E-11, -3.278E-11,  1.093E-11, -2.118E-12, -2.397E-11/
      DATA (Y(I),I=  401,  500)/
     1      3.701E-11,  8.807E-12, -2.821E-11,  3.489E-11, -8.807E-12,
     2     -1.516E-11, -3.489E-11,  1.516E-11, -2.118E-12,  2.397E-11,
     3     -1.304E-11,  2.609E-11, -2.118E-12,  1.304E-11,  3.489E-11,
     4      3.489E-11,  1.304E-11,  3.489E-11, -1.304E-11,  3.278E-11,
     5      1.093E-11,  1.093E-11,  1.304E-11,  2.118E-12,  3.489E-11,
     6      1.304E-11,  4.403E-12,  2.168E-11,  5.446E-11,  2.397E-11,
     7      1.304E-11,  5.658E-11,  1.093E-11,  3.489E-11,  2.397E-11,
     8     -3.049E-11,  4.353E-11,  2.397E-11,  3.489E-11,  8.807E-12,
     9      1.093E-11,  1.093E-11,  4.353E-11,  2.397E-11,  6.522E-12,
     $      5.446E-11,  6.522E-12,  1.093E-11,  4.353E-11,  3.278E-11,
     1      3.049E-11,  6.522E-12,  2.609E-11,  4.142E-11,  4.353E-11,
     2      6.522E-12,  5.006E-11,  3.701E-11,   .000E+00,  3.049E-11,
     3      2.185E-11,  1.093E-11,  3.489E-11,  2.837E-11,  2.821E-11,
     4      2.397E-11,  2.821E-11,  5.886E-11, -3.701E-11,  5.006E-11,
     5      1.304E-11, -2.397E-11, -1.304E-11,  4.794E-11, -2.118E-12,
     6      8.807E-12,   .000E+00, -1.304E-11, -2.185E-11, -2.609E-11,
     7      7.402E-11,  3.066E-11,   .000E+00,  2.609E-11,  6.098E-11,
     8      8.283E-11,  6.522E-11,  7.402E-11,  4.794E-11,  7.402E-11,
     9      9.587E-11,  1.220E-10,  1.480E-10,   .000E+00, -9.587E-11,
     $     -2.185E-11,  1.220E-10,  1.523E-10,  9.587E-11,  2.609E-11/
      DATA (Y(I),I=  501,  600)/
     1      1.480E-10,  4.370E-11,  7.826E-11,  3.456E-11,  7.826E-11,
     2     -4.370E-11,  1.135E-10,  4.370E-11,  2.524E-10, -8.473E-12,
     3      8.473E-12,  4.370E-11, -2.609E-11, -5.217E-11,  1.043E-10,
     4      4.370E-11,  1.761E-11,   .000E+00,  6.979E-11, -2.185E-11,
     5      9.587E-11,  4.237E-12,  1.177E-10,  9.587E-11,  9.587E-11,
     6      4.794E-11, -1.761E-11,  5.674E-11,  3.066E-11,  9.164E-11,
     7     -6.098E-11, -2.609E-11, -2.609E-11,  1.001E-10, -2.609E-11,
     8     -1.001E-10, -6.522E-11, -3.913E-11, -1.728E-11,  6.098E-11,
     9     -7.859E-11,  1.043E-10,  1.304E-11,  1.304E-11,  1.043E-10,
     $      2.185E-11,  4.337E-11, -6.522E-11,  8.283E-11,  4.237E-12,
     1      4.237E-12,  4.237E-12,  8.283E-11,  5.674E-11, -3.032E-11,
     2       .000E+00,  4.337E-11,  7.402E-11,  1.761E-11,  6.098E-11,
     3      1.304E-11,  1.304E-11,  1.089E-10,  2.185E-11,  1.761E-11,
     4      6.522E-11,  9.587E-11,  8.807E-12,  1.001E-10,  9.587E-11,
     5     -1.728E-11,  1.089E-10,  9.587E-11,  1.304E-11, -3.032E-11,
     6      2.609E-11,  1.220E-10,  2.609E-11,  2.185E-11,  5.217E-11,
     7     -4.237E-12,  2.185E-11, -2.609E-11,  6.979E-11,  2.185E-11,
     8     -1.001E-10,  1.043E-10, -2.185E-11,  1.917E-10,  6.131E-11,
     9     -2.609E-11, -9.587E-11,  2.609E-11,  2.609E-11,  1.220E-10,
     $      4.370E-11,  9.140E-12,  1.043E-10,  2.002E-10, -8.473E-12/
      DATA (Y(I),I=  601,  700)/
     1      1.741E-10,  1.220E-10,  2.002E-10, -4.370E-11,  1.917E-10,
     2     -8.473E-12,   .000E+00,  2.002E-10, -6.065E-11,  1.565E-10,
     3      1.565E-10, -8.473E-12,  1.396E-10,  6.065E-11,  8.740E-11,
     4      6.065E-11,  2.439E-10,   .000E+00,  8.740E-11, -8.473E-12,
     5      8.740E-11,  4.370E-11,  1.043E-10,  1.043E-10,  1.043E-10,
     6     -1.396E-10,  6.065E-11,  9.587E-11,  9.587E-11,  1.565E-10,
     7      8.473E-12,  1.761E-11,  2.439E-10,  1.657E-10,  1.043E-10,
     8      1.043E-10,  3.574E-10,  9.587E-11,  2.002E-10,  9.587E-11,
     9       .000E+00,  4.370E-11, -2.609E-11,  1.480E-10,  2.700E-10,
     $      1.396E-10,  9.587E-11,  1.826E-10,  3.523E-11, -1.761E-11,
     1      1.565E-10,  9.587E-11, -2.609E-11,  1.826E-10,  1.220E-10,
     2      4.370E-11,  8.473E-12,  1.135E-10,  1.761E-11,  5.217E-11,
     3      1.220E-10, -2.609E-11,  1.304E-10,  1.826E-10, -8.473E-12,
     4     -2.609E-11,  1.304E-10,   .000E+00,  4.370E-11, -5.217E-11,
     5      1.657E-10, -1.220E-10, -5.217E-11,  1.761E-11,  7.826E-11,
     6      2.609E-11,  4.370E-11,  9.587E-11,  2.785E-10,  1.396E-10,
     7      7.826E-11,  1.043E-10,  1.480E-10,  1.565E-10,  1.128E-10,
     8       .000E+00,  2.002E-10,   .000E+00, -1.761E-11,  9.587E-11,
     9       .000E+00,  2.002E-10, -1.761E-11,  1.135E-10, -1.220E-10,
     $     -1.480E-10, -5.217E-11, -8.473E-12, -8.473E-12,  8.740E-11/
      DATA (Y(I),I=  701,  800)/
     1      2.002E-10,  5.217E-11, -1.396E-10,  1.565E-10, -1.396E-10,
     2     -1.311E-10,  1.917E-10,  1.917E-10,  8.473E-12,  3.523E-11,
     3      1.043E-10,  3.483E-10,  9.587E-11,  2.876E-10,  5.217E-11,
     4      2.961E-10,  4.004E-10, -6.912E-11,  2.961E-10,  1.396E-10,
     5      3.523E-11,   .000E+00,  1.043E-10,  3.483E-10,  1.396E-10,
     6      3.130E-10,  1.213E-10, -1.695E-11,  4.357E-10,  3.835E-10,
     7      3.835E-10,  5.217E-11,  1.043E-10, -1.695E-11,  5.400E-10,
     8      1.043E-10,  1.695E-11,  5.217E-11,  1.396E-10,  1.396E-10,
     9     -5.231E-10, -2.791E-10,  5.217E-11,  2.439E-10,  1.695E-11,
     $      7.045E-11,  3.483E-10,  1.213E-10, -8.740E-11,  3.523E-11,
     1      2.270E-10,   .000E+00, -3.523E-11,  8.740E-11,  1.565E-10,
     2      2.439E-10,  8.740E-11, -6.912E-11,  7.045E-11, -2.609E-10,
     3     -3.523E-11,  3.523E-11,  9.587E-11,  9.587E-11,  1.565E-10,
     4      7.893E-11,  7.893E-11,  9.587E-11,  1.396E-10,  1.917E-10,
     5      1.565E-10,  2.087E-10,  2.354E-10,  2.002E-10,   .000E+00,
     6      2.087E-10,  2.961E-10,  9.587E-11,  2.524E-10,  1.043E-10,
     7      6.912E-11,  3.835E-10, -5.217E-11, -3.523E-11, -2.609E-10,
     8      1.565E-10, -1.213E-10,  2.961E-10,  4.526E-10,  2.754E-06,
     9      1.907E-05,  3.104E-05,  3.136E-05,  3.152E-05,  3.186E-05,
     $      3.213E-05,  3.229E-05,  3.206E-05,  3.156E-05,  3.063E-05/
      DATA (Y(I),I=  801,  900)/
     1      3.098E-05,  3.197E-05,  3.271E-05,  3.315E-05,  3.262E-05,
     2      3.201E-05,  3.129E-05,  3.148E-05,  3.206E-05,  3.175E-05,
     3      3.148E-05,  3.167E-05,  3.159E-05,  3.120E-05,  3.117E-05,
     4      3.109E-05,  3.041E-05,  2.995E-05,  3.011E-05,  3.004E-05,
     5      2.972E-05,  2.933E-05,  2.887E-05,  2.801E-05,  2.731E-05,
     6      2.735E-05,  2.656E-05,  2.712E-05,  2.576E-05,  2.565E-05,
     7      2.449E-05,  2.450E-05,  2.454E-05,  2.414E-05,  2.488E-05,
     8      2.413E-05,  2.297E-05,  2.298E-05,  2.335E-05,  2.259E-05,
     9      2.142E-05,  2.257E-05,  2.259E-05,  2.220E-05,  2.259E-05,
     $      2.336E-05,  2.299E-05,  2.262E-05,  2.298E-05,  2.298E-05,
     1      2.298E-05,  2.337E-05,  2.414E-05,  2.491E-05,  2.570E-05,
     2      2.492E-05,  2.531E-05,  2.567E-05,  2.647E-05,  2.839E-05,
     3      2.916E-05,  2.917E-05,  2.916E-05,  2.956E-05,  3.033E-05,
     4      3.110E-05,  3.108E-05,  3.071E-05,  3.226E-05,  3.303E-05,
     5      3.302E-05,  3.417E-05,  3.419E-05,  3.458E-05,  3.458E-05,
     6      3.457E-05,  3.613E-05,  3.769E-05,  3.768E-05,  3.845E-05,
     7      3.843E-05,  3.882E-05,  3.920E-05,  3.959E-05,  3.998E-05,
     8      4.037E-05,  4.036E-05,  4.074E-05,  4.074E-05,  4.036E-05,
     9      4.115E-05,  4.192E-05,  4.192E-05,  4.269E-05,  4.270E-05,
     $      4.346E-05,  4.346E-05,  4.346E-05,  4.463E-05,  4.423E-05/
      DATA (Y(I),I=  901, 1000)/
     1      4.502E-05,  4.539E-05,  4.501E-05,  4.465E-05,  4.388E-05,
     2      4.503E-05,  4.578E-05,  4.617E-05,  4.657E-05,  4.657E-05,
     3      4.617E-05,  4.657E-05,  4.655E-05,  4.695E-05,  4.808E-05,
     4      4.807E-05,  4.768E-05,  4.771E-05,  4.807E-05,  4.808E-05,
     5      4.808E-05,  4.731E-05,  4.731E-05,  4.772E-05,  4.808E-05,
     6      4.846E-05,  4.769E-05,  4.807E-05,  4.846E-05,  4.847E-05,
     7      4.845E-05,  4.885E-05,  4.886E-05,  4.848E-05,  4.810E-05,
     8      4.848E-05,  4.769E-05,  4.773E-05,  4.656E-05,  4.690E-05,
     9      4.770E-05,  4.730E-05,  4.690E-05,  4.728E-05,  4.687E-05,
     $      4.728E-05,  4.649E-05,  4.730E-05,  4.690E-05,  4.766E-05,
     1      4.804E-05,  4.727E-05,  4.649E-05,  4.727E-05,  4.647E-05,
     2      4.723E-05,  4.760E-05,  4.800E-05,  4.836E-05,  4.762E-05,
     3      4.760E-05,  4.834E-05,  4.837E-05,  4.796E-05,  4.796E-05,
     4      4.796E-05,  4.876E-05,  4.955E-05,  5.030E-05,  5.067E-05,
     5      5.106E-05,  5.183E-05,  5.104E-05,  5.185E-05,  5.224E-05,
     6      5.340E-05,  5.301E-05,  5.340E-05,  5.456E-05,  5.532E-05,
     7      5.532E-05,  5.531E-05,  5.608E-05,  5.762E-05,  5.799E-05,
     8      5.877E-05,  5.837E-05,  5.839E-05,  5.878E-05,  5.916E-05,
     9      6.032E-05,  6.109E-05,  6.226E-05,  6.342E-05,  6.305E-05,
     $      6.305E-05,  6.265E-05,  6.226E-05,  6.298E-05,  6.452E-05/
      DATA (Y(I),I= 1001, 1100)/
     1      6.531E-05,  6.572E-05,  6.572E-05,  6.614E-05,  6.611E-05,
     2      6.574E-05,  6.690E-05,  6.648E-05,  6.688E-05,  6.688E-05,
     3      6.764E-05,  6.841E-05,  6.843E-05,  6.918E-05,  6.919E-05,
     4      6.959E-05,  6.955E-05,  6.993E-05,  6.990E-05,  7.031E-05,
     5      6.914E-05,  6.835E-05,  6.912E-05,  7.105E-05,  7.222E-05,
     6      7.261E-05,  7.258E-05,  7.258E-05,  7.258E-05,  7.260E-05,
     7      7.179E-05,  7.257E-05,  7.180E-05,  7.142E-05,  7.181E-05,
     8      7.217E-05,  7.256E-05,  7.217E-05,  7.217E-05,  7.219E-05,
     9      7.256E-05,  7.180E-05,  7.178E-05,  7.255E-05,  7.216E-05,
     $      7.175E-05,  7.175E-05,  7.137E-05,  7.177E-05,  7.214E-05,
     1      7.175E-05,  7.134E-05,  7.094E-05,  7.014E-05,  7.014E-05,
     2      7.016E-05,  7.013E-05,  6.937E-05,  6.938E-05,  6.900E-05,
     3      6.863E-05,  6.860E-05,  6.859E-05,  6.741E-05,  6.700E-05,
     4      6.700E-05,  6.740E-05,  6.742E-05,  6.704E-05,  6.665E-05,
     5      6.549E-05,  6.432E-05,  6.427E-05,  6.463E-05,  6.581E-05,
     6      6.662E-05,  6.625E-05,  6.552E-05,  6.473E-05,  6.473E-05,
     7      6.471E-05,  6.469E-05,  6.391E-05,  6.433E-05,  6.475E-05,
     8      6.513E-05,  6.554E-05,  6.552E-05,  6.592E-05,  6.552E-05,
     9      6.553E-05,  6.476E-05,  6.440E-05,  6.483E-05,  6.443E-05,
     $      6.443E-05,  6.522E-05,  6.522E-05,  6.599E-05,  6.599E-05/
      DATA (Y(I),I= 1101, 1200)/
     1      6.560E-05,  6.520E-05,  6.521E-05,  6.558E-05,  6.556E-05,
     2      6.557E-05,  6.596E-05,  6.596E-05,  6.596E-05,  6.634E-05,
     3      6.595E-05,  6.555E-05,  6.555E-05,  6.594E-05,  6.515E-05,
     4      6.553E-05,  6.590E-05,  6.551E-05,  6.474E-05,  6.549E-05,
     5      6.589E-05,  6.628E-05,  6.709E-05,  6.672E-05,  6.634E-05,
     6      6.555E-05,  6.478E-05,  6.475E-05,  6.395E-05,  6.472E-05,
     7      6.472E-05,  6.510E-05,  6.509E-05,  6.508E-05,  6.511E-05,
     8      6.434E-05,  6.357E-05,  6.356E-05,  6.356E-05,  6.278E-05,
     9      6.239E-05,  6.161E-05,  6.199E-05,  6.163E-05,  6.161E-05,
     $      6.161E-05,  6.085E-05,  5.931E-05,  5.888E-05,  5.888E-05,
     1      5.846E-05,  5.805E-05,  5.809E-05,  5.890E-05,  5.892E-05,
     2      5.896E-05,  5.823E-05,  5.746E-05,  5.709E-05,  5.708E-05,
     3      5.707E-05,  5.668E-05,  5.709E-05,  5.666E-05,  5.627E-05,
     4      5.628E-05,  5.552E-05,  5.550E-05,  5.552E-05,  5.588E-05,
     5      5.627E-05,  5.588E-05,  5.627E-05,  5.591E-05,  5.477E-05,
     6      5.515E-05,  5.517E-05,  5.558E-05,  5.599E-05,  5.591E-05,
     7      5.668E-05,  5.507E-05,  5.429E-05,  5.311E-05,  5.279E-05,
     8      5.281E-05,  5.402E-05,  5.406E-05,  5.485E-05,  5.562E-05,
     9      5.562E-05,  5.481E-05,  5.484E-05,  5.483E-05,  5.443E-05,
     $      5.404E-05,  5.365E-05,  5.442E-05,  5.444E-05,  5.521E-05/
      DATA (Y(I),I= 1201, 1300)/
     1      5.481E-05,  5.443E-05,  5.363E-05,  5.286E-05,  5.283E-05,
     2      5.358E-05,  5.356E-05,  5.317E-05,  5.240E-05,  5.279E-05,
     3      5.240E-05,  5.241E-05,  5.321E-05,  5.322E-05,  5.327E-05,
     4      5.329E-05,  5.331E-05,  5.329E-05,  5.290E-05,  5.251E-05,
     5      5.213E-05,  5.135E-05,  5.057E-05,  5.056E-05,  5.056E-05,
     6      5.094E-05,  5.133E-05,  5.133E-05,  5.132E-05,  5.133E-05,
     7      5.054E-05,  4.934E-05,  4.815E-05,  4.733E-05,  4.735E-05,
     8      4.777E-05,  4.819E-05,  4.784E-05,  4.825E-05,  4.790E-05,
     9      4.830E-05,  4.793E-05,  4.873E-05,  4.874E-05,  4.790E-05,
     $      4.709E-05,  4.627E-05,  4.467E-05,  4.427E-05,  4.469E-05,
     1      4.434E-05,  4.431E-05,  4.473E-05,  4.477E-05,  4.365E-05,
     2      4.369E-05,  4.527E-05,  4.528E-05,  4.603E-05,  4.641E-05,
     3      4.520E-05,  4.480E-05,  4.363E-05,  4.404E-05,  4.444E-05,
     4      4.408E-05,  4.448E-05,  4.452E-05,  4.336E-05,  4.184E-05,
     5      4.223E-05,  4.263E-05,  4.301E-05,  4.262E-05,  4.299E-05,
     6      4.143E-05,  4.105E-05,  3.989E-05,  3.995E-05,  3.919E-05,
     7      3.999E-05,  4.118E-05,  4.039E-05,  3.997E-05,  3.880E-05,
     8      3.762E-05,  3.645E-05,  3.493E-05,  3.337E-05,  3.222E-05,
     9      3.296E-05,  3.412E-05,  3.255E-05,  3.257E-05,  3.103E-05,
     $      3.029E-05,  2.876E-05,  2.878E-05,  2.800E-05,  2.883E-05/
      DATA (Y(I),I= 1301, 1400)/
     1      2.881E-05,  2.806E-05,  2.729E-05,  2.650E-05,  2.574E-05,
     2      2.380E-05,  2.262E-05,  2.108E-05,  2.031E-05,  1.842E-05,
     3      1.765E-05,  1.648E-05,  1.646E-05,  1.685E-05,  1.529E-05,
     4      1.451E-05,  1.258E-05,  1.104E-05,  9.506E-06,  9.546E-06,
     5      8.010E-06,  6.431E-06,  4.851E-06,  4.067E-06,  2.472E-06,
     6      8.919E-07, -2.698E-07, -2.356E-07, -6.024E-07, -1.335E-06,
     7     -2.450E-06, -3.996E-06, -5.582E-06, -6.779E-06, -7.956E-06,
     8     -9.542E-06, -1.072E-05, -1.150E-05, -1.227E-05, -1.305E-05,
     9     -1.382E-05, -1.500E-05, -1.580E-05, -1.738E-05, -1.779E-05,
     $     -1.823E-05, -1.900E-05, -2.050E-05, -2.086E-05, -2.159E-05,
     1     -2.191E-05, -2.268E-05, -2.308E-05, -2.276E-05, -2.393E-05,
     2     -2.551E-05, -2.669E-05, -2.709E-05, -2.632E-05, -2.709E-05,
     3     -2.709E-05, -2.749E-05, -3.016E-05, -2.709E-05, -2.709E-05,
     4     -2.709E-05, -2.708E-05, -2.709E-05, -2.709E-05, -2.709E-05,
     5     -2.709E-05, -2.709E-05, -2.709E-05, -2.709E-05, -2.709E-05,
     6     -3.113E-05, -2.709E-05, -2.709E-05, -3.477E-05, -2.709E-05,
     7     -2.685E-05, -3.453E-05, -2.684E-05, -2.685E-05, -3.065E-05,
     8     -2.684E-05, -2.684E-05, -3.065E-05, -2.685E-05, -2.685E-05,
     9     -2.685E-05, -2.684E-05, -2.684E-05, -3.065E-05, -2.685E-05,
     $     -3.453E-05, -2.685E-05, -2.685E-05, -2.684E-05, -2.685E-05/
      DATA (Y(I),I= 1401, 1500)/
     1     -2.684E-05, -2.684E-05, -2.685E-05, -3.086E-05, -3.466E-05,
     2     -3.467E-05, -3.453E-05, -3.854E-05, -3.854E-05, -3.072E-05,
     3     -3.854E-05, -3.840E-05, -3.854E-05, -3.840E-05, -3.452E-05,
     4     -4.221E-05, -3.840E-05, -4.221E-05, -4.221E-05, -3.833E-05,
     5     -4.220E-05, -4.221E-05, -3.833E-05, -4.221E-05, -4.220E-05,
     6     -4.221E-05, -4.221E-05, -3.833E-05, -3.833E-05, -3.833E-05,
     7     -3.834E-05, -4.601E-05, -4.601E-05, -3.833E-05, -3.833E-05,
     8     -4.221E-05, -4.221E-05, -4.601E-05, -4.221E-05, -4.221E-05,
     9     -4.221E-05, -4.626E-05, -4.625E-05, -4.650E-05, -5.054E-05,
     $     -4.650E-05, -5.054E-05, -5.040E-05, -4.650E-05, -5.041E-05,
     1     -5.027E-05, -4.637E-05, -4.636E-05, -5.041E-05, -5.026E-05,
     2     -5.405E-05, -5.404E-05, -5.027E-05, -5.041E-05, -5.041E-05,
     3     -4.637E-05, -5.027E-05, -5.027E-05, -5.432E-05, -5.028E-05,
     4     -5.419E-05, -6.200E-05, -5.418E-05, -6.224E-05, -5.418E-05,
     5     -5.443E-05, -5.442E-05, -6.248E-05, -6.248E-05, -5.480E-05,
     6     -5.480E-05, -6.249E-05, -6.248E-05, -5.443E-05, -5.442E-05,
     7     -5.834E-05, -6.235E-05, -6.222E-05, -6.221E-05, -5.429E-05,
     8     -5.819E-05, -5.452E-05, -5.429E-05, -5.429E-05, -6.220E-05,
     9     -5.453E-05, -5.453E-05, -5.452E-05, -5.453E-05, -5.453E-05,
     $     -6.246E-05, -5.477E-05, -5.845E-05, -5.477E-05, -5.477E-05/
      DATA (Y(I),I= 1501, 1600)/
     1     -5.478E-05, -5.453E-05, -4.671E-05, -4.672E-05, -4.633E-05,
     2     -4.633E-05, -4.647E-05, -4.671E-05, -4.633E-05, -4.647E-05,
     3     -4.269E-05, -4.672E-05, -4.671E-05, -4.671E-05, -4.671E-05,
     4     -4.671E-05, -4.671E-05, -4.695E-05, -4.291E-05, -4.304E-05,
     5     -4.266E-05, -4.280E-05, -3.899E-05, -3.512E-05, -3.875E-05,
     6     -3.488E-05, -3.107E-05, -2.720E-05, -2.720E-05, -2.719E-05,
     7     -2.720E-05, -2.719E-05, -2.720E-05, -2.719E-05, -3.121E-05,
     8     -3.120E-05, -3.121E-05, -2.353E-05, -2.755E-05, -1.961E-05,
     9     -2.730E-05, -2.730E-05, -2.328E-05, -1.156E-05, -1.169E-05,
     $     -1.561E-05, -1.170E-05, -1.938E-05, -1.951E-05, -1.975E-05,
     1     -1.574E-05, -1.975E-05, -1.951E-05, -1.951E-05, -1.183E-05,
     2     -1.183E-05, -7.924E-06, -7.916E-06, -7.921E-06, -7.921E-06,
     3     -7.924E-06, -7.925E-06, -1.194E-05, -7.919E-06, -1.169E-05,
     4     -7.920E-06, -4.014E-06, -1.193E-05, -8.024E-06, -7.778E-06,
     5     -7.778E-06, -7.778E-06, -7.778E-06, -7.540E-06, -1.145E-05,
     6     -1.145E-05, -1.145E-05, -3.770E-06, -3.770E-06, -7.538E-06,
     7     -3.765E-06, -1.145E-05, -7.543E-06, -3.772E-06, -3.772E-06,
     8     -3.768E-06, -3.769E-06, -3.769E-06, -3.769E-06, -3.767E-06,
     9     -3.766E-06, -3.769E-06, -3.772E-06, -1.159E-05, -1.145E-05,
     $     -7.817E-06, -7.815E-06, -7.816E-06, -1.563E-05, -7.577E-06/
      DATA (Y(I),I= 1601, 1700)/
     1     -7.570E-06, -1.525E-05, -7.328E-06, -7.572E-06, -7.574E-06,
     2     -1.525E-05, -1.120E-05, -1.145E-05, -1.145E-05, -1.145E-05,
     3     -1.145E-05, -1.913E-05, -1.145E-05, -1.145E-05, -1.145E-05,
     4     -1.145E-05, -1.145E-05, -1.145E-05, -1.145E-05, -2.304E-05,
     5     -2.304E-05, -2.304E-05, -2.304E-05, -1.536E-05, -1.536E-05,
     6     -1.536E-05, -2.304E-05, -2.304E-05, -1.924E-05, -1.923E-05,
     7     -2.692E-05, -2.692E-05, -1.924E-05, -2.691E-05, -1.923E-05,
     8     -2.716E-05, -2.328E-05, -2.716E-05, -3.096E-05, -3.096E-05,
     9     -3.096E-05, -3.120E-05, -3.120E-05, -3.107E-05, -2.301E-05,
     $     -3.107E-05, -2.315E-05, -2.315E-05, -2.315E-05, -2.301E-05,
     1     -2.301E-05, -3.069E-05, -2.301E-05, -3.069E-05, -2.301E-05,
     2     -3.093E-05, -3.055E-05, -3.056E-05, -2.287E-05, -2.301E-05,
     3     -3.069E-05, -3.093E-05, -3.093E-05, -3.069E-05, -2.301E-05,
     4     -2.301E-05, -2.301E-05, -2.301E-05, -3.107E-05, -3.106E-05,
     5     -2.301E-05, -2.314E-05, -3.083E-05, -3.083E-05, -3.107E-05,
     6     -2.706E-05, -3.083E-05, -2.681E-05, -2.301E-05, -2.682E-05,
     7     -2.706E-05, -1.913E-05, -2.682E-05, -1.914E-05, -2.277E-05,
     8     -1.913E-05, -1.522E-05, -1.509E-05, -1.522E-05, -2.290E-05,
     9     -1.509E-05, -2.290E-05, -2.290E-05, -1.522E-05, -1.522E-05,
     $     -1.910E-05, -1.522E-05, -1.522E-05, -1.155E-05, -1.155E-05/
      DATA (Y(I),I= 1701, 1800)/
     1     -1.156E-05, -1.142E-05, -7.541E-06, -7.536E-06, -7.544E-06,
     2     -1.142E-05, -1.522E-05, -7.542E-06, -7.538E-06, -7.539E-06,
     3     -7.541E-06, -7.541E-06, -7.545E-06, -7.538E-06, -3.636E-06,
     4      1.426E-07, -3.494E-06, -3.633E-06, -3.630E-06, -3.631E-06,
     5     -3.634E-06,  4.149E-07, -3.629E-06, -3.629E-06, -3.633E-06,
     6     -3.632E-06, -3.634E-06, -3.628E-06, -3.385E-06,  4.292E-06,
     7      2.437E-07,  2.431E-07,  4.155E-06, -3.766E-06, -3.771E-06,
     8      2.430E-07,  2.438E-07,  3.915E-06,  3.909E-06,  7.824E-06,
     9      3.913E-06,  3.911E-06,  3.913E-06,  3.909E-06,  3.910E-06,
     $      3.910E-06,  3.914E-06,  4.150E-06,  1.184E-05,  1.184E-05,
     1      1.183E-05,  1.108E-05,  1.031E-05,  9.561E-06,  9.950E-06,
     2      1.227E-05,  1.420E-05,  1.534E-05,  1.572E-05,  1.571E-05,
     3      1.492E-05,  1.490E-05,  1.445E-05,  1.442E-05,  1.525E-05,
     4      1.487E-05,  1.452E-05,  1.604E-05,  1.840E-05,  2.070E-05,
     5      2.146E-05,  2.144E-05,  2.105E-05,  2.104E-05,  2.101E-05,
     6      2.100E-05,  2.175E-05,  2.095E-05,  2.097E-05,  1.981E-05,
     7      1.982E-05,  2.058E-05,  2.095E-05,  2.098E-05,  1.979E-05,
     8      1.860E-05,  1.782E-05,  1.934E-05,  1.972E-05,  2.083E-05,
     9      2.201E-05,  2.281E-05,  2.476E-05,  2.480E-05,  2.480E-05,
     $      2.407E-05,  2.371E-05,  2.295E-05,  2.218E-05,  2.141E-05/
      DATA (Y(I),I= 1801, 1900)/
     1      2.218E-05,  2.294E-05,  2.371E-05,  2.369E-05,  2.328E-05,
     2      2.287E-05,  2.169E-05,  2.128E-05,  2.126E-05,  2.004E-05,
     3      2.004E-05,  2.085E-05,  2.045E-05,  2.045E-05,  2.006E-05,
     4      2.085E-05,  2.082E-05,  2.121E-05,  2.198E-05,  2.275E-05,
     5      2.238E-05,  2.083E-05,  2.046E-05,  1.928E-05,  1.893E-05,
     6      1.815E-05,  1.815E-05,  1.812E-05,  1.929E-05,  2.046E-05,
     7      2.087E-05,  2.244E-05,  2.283E-05,  2.322E-05,  2.327E-05,
     8      2.291E-05,  2.329E-05,  2.482E-05,  2.558E-05,  2.593E-05,
     9      2.514E-05,  2.436E-05,  2.279E-05,  2.282E-05,  2.363E-05,
     $      2.441E-05,  2.524E-05,  2.599E-05,  2.759E-05,  2.874E-05,
     1      2.954E-05,  3.028E-05,  3.064E-05,  3.063E-05,  3.021E-05,
     2      2.866E-05,  2.788E-05,  2.788E-05,  2.749E-05,  2.711E-05,
     3      2.866E-05,  3.016E-05,  3.250E-05,  3.323E-05,  3.366E-05,
     4      3.328E-05,  3.367E-05,  3.366E-05,  3.483E-05,  3.521E-05,
     5      3.599E-05,  3.603E-05,  3.606E-05,  3.685E-05,  3.764E-05,
     6      3.960E-05,  4.076E-05,  4.079E-05,  4.041E-05,  3.926E-05,
     7      3.848E-05,  4.004E-05,  4.161E-05,  4.350E-05,  4.426E-05,
     8      4.386E-05,  4.305E-05,  4.344E-05,  4.457E-05,  4.570E-05,
     9      4.685E-05,  4.567E-05,  4.450E-05,  4.337E-05,  4.297E-05,
     $      4.414E-05,  4.527E-05,  4.644E-05,  4.721E-05,  4.798E-05/
      DATA (Y(I),I= 1901, 2000)/
     1      4.873E-05,  4.952E-05,  4.797E-05,  4.798E-05,  4.681E-05,
     2      4.721E-05,  4.760E-05,  4.724E-05,  4.802E-05,  4.805E-05,
     3      4.766E-05,  4.690E-05,  4.727E-05,  4.800E-05,  4.911E-05,
     4      4.947E-05,  4.636E-05,  4.401E-05,  4.164E-05,  4.089E-05,
     5      4.167E-05,  4.245E-05,  4.248E-05,  4.136E-05,  3.944E-05,
     6      3.832E-05,  3.753E-05,  3.867E-05,  3.982E-05,  4.022E-05,
     7      3.829E-05,  3.714E-05,  3.481E-05,  3.365E-05,  3.438E-05,
     8      3.478E-05,  3.474E-05,  3.395E-05,  3.277E-05,  3.085E-05,
     9      2.966E-05,  3.045E-05,  3.044E-05,  3.123E-05,  3.042E-05,
     $      2.965E-05,  2.969E-05,  2.966E-05,  3.082E-05,  3.273E-05,
     1      3.388E-05,  3.310E-05,  3.195E-05,  3.196E-05,  3.080E-05,
     2      3.004E-05,  3.004E-05,  2.927E-05,  2.927E-05,  3.044E-05,
     3      3.081E-05,  3.198E-05,  3.197E-05,  3.237E-05,  3.200E-05,
     4      3.236E-05,  3.277E-05,  3.239E-05,  3.238E-05,  3.276E-05,
     5      3.199E-05,  3.161E-05,  3.200E-05,  3.199E-05,  3.236E-05,
     6      3.352E-05,  3.351E-05,  3.429E-05,  3.388E-05,  3.350E-05,
     7      3.426E-05,  3.541E-05,  3.618E-05,  3.697E-05,  3.697E-05,
     8      3.696E-05,  3.737E-05,  3.737E-05,  3.736E-05,  3.854E-05,
     9      3.893E-05,  3.738E-05,  3.624E-05,  3.395E-05,  3.318E-05,
     $      3.550E-05,  3.819E-05,  4.092E-05,  4.204E-05,  4.245E-05/
      DATA (Y(I),I= 2001, 2100)/
     1      4.284E-05,  4.325E-05,  4.324E-05,  4.363E-05,  4.403E-05,
     2      4.442E-05,  4.365E-05,  4.284E-05,  4.246E-05,  4.244E-05,
     3      4.360E-05,  4.552E-05,  4.629E-05,  4.548E-05,  4.431E-05,
     4      4.316E-05,  4.238E-05,  4.353E-05,  4.428E-05,  4.504E-05,
     5      4.581E-05,  4.621E-05,  4.543E-05,  4.583E-05,  4.620E-05,
     6      4.659E-05,  4.622E-05,  4.661E-05,  4.621E-05,  4.583E-05,
     7      4.583E-05,  4.503E-05,  4.582E-05,  4.541E-05,  4.578E-05,
     8      4.577E-05,  4.655E-05,  4.691E-05,  4.769E-05,  4.693E-05,
     9      4.693E-05,  4.539E-05,  4.462E-05,  4.462E-05,  4.425E-05,
     $      4.351E-05,  4.391E-05,  4.468E-05,  4.588E-05,  4.741E-05,
     1      4.818E-05,  5.011E-05,  5.046E-05,  5.198E-05,  5.124E-05,
     2      5.086E-05,  4.931E-05,  4.776E-05,  4.700E-05,  4.623E-05,
     3      4.469E-05,  4.472E-05,  4.625E-05,  4.856E-05,  5.087E-05,
     4      5.239E-05,  5.318E-05,  5.474E-05,  5.547E-05,  5.626E-05,
     5      5.706E-05,  5.668E-05,  5.704E-05,  5.629E-05,  5.361E-05,
     6      5.208E-05,  5.017E-05,  5.209E-05,  5.554E-05,  5.864E-05,
     7      6.132E-05,  6.251E-05,  6.253E-05,  6.293E-05,  6.371E-05,
     8      6.489E-05,  6.606E-05,  6.608E-05,  6.644E-05,  6.453E-05,
     9      6.336E-05,  6.178E-05,  6.177E-05,  6.327E-05,  6.557E-05,
     $      6.711E-05,  6.864E-05,  6.901E-05,  6.937E-05,  6.975E-05/
      DATA (Y(I),I= 2101, 2200)/
     1      6.821E-05,  6.704E-05,  6.554E-05,  6.438E-05,  6.398E-05,
     2      6.318E-05,  6.319E-05,  6.280E-05,  6.048E-05,  5.933E-05,
     3      5.817E-05,  5.660E-05,  5.620E-05,  5.619E-05,  5.616E-05,
     4      5.501E-05,  5.226E-05,  4.917E-05,  4.647E-05,  4.528E-05,
     5      4.565E-05,  4.602E-05,  4.641E-05,  4.524E-05,  4.213E-05,
     6      3.943E-05,  3.713E-05,  3.711E-05,  3.866E-05,  3.982E-05,
     7      4.137E-05,  3.944E-05,  3.674E-05,  3.368E-05,  3.139E-05,
     8      3.100E-05,  3.139E-05,  3.212E-05,  3.251E-05,  3.135E-05,
     9      2.904E-05,  2.633E-05,  2.441E-05,  2.478E-05,  2.480E-05,
     $      2.557E-05,  2.594E-05,  2.477E-05,  2.404E-05,  2.404E-05,
     1      2.325E-05,  2.365E-05,  2.286E-05,  2.365E-05,  2.442E-05,
     2      2.404E-05,  2.406E-05,  2.401E-05,  2.403E-05,  2.480E-05,
     3      2.480E-05,  2.598E-05,  2.675E-05,  2.675E-05,  2.793E-05,
     4      2.793E-05,  2.793E-05,  2.796E-05,  2.758E-05,  2.761E-05,
     5      2.721E-05,  2.875E-05,  2.991E-05,  3.147E-05,  3.301E-05,
     6      3.266E-05,  3.187E-05,  3.148E-05,  3.110E-05,  3.261E-05,
     7      3.417E-05,  3.532E-05,  3.686E-05,  3.684E-05,  3.606E-05,
     8      3.568E-05,  3.493E-05,  3.645E-05,  3.797E-05,  4.030E-05,
     9      4.144E-05,  4.221E-05,  4.181E-05,  4.184E-05,  4.142E-05,
     $      4.181E-05,  4.257E-05,  4.372E-05,  4.412E-05,  4.334E-05/
      DATA (Y(I),I= 2201, 2300)/
     1      4.220E-05,  4.146E-05,  3.991E-05,  4.067E-05,  4.223E-05,
     2      4.377E-05,  4.608E-05,  4.609E-05,  4.608E-05,  4.571E-05,
     3      4.569E-05,  4.532E-05,  4.608E-05,  4.648E-05,  4.684E-05,
     4      4.764E-05,  4.725E-05,  4.803E-05,  4.805E-05,  4.726E-05,
     5      4.806E-05,  4.806E-05,  4.810E-05,  4.770E-05,  4.731E-05,
     6      4.617E-05,  4.577E-05,  4.424E-05,  4.464E-05,  4.502E-05,
     7      4.577E-05,  4.538E-05,  4.619E-05,  4.696E-05,  4.696E-05,
     8      4.696E-05,  4.655E-05,  4.657E-05,  4.540E-05,  4.537E-05,
     9      4.618E-05,  4.770E-05,  4.847E-05,  5.041E-05,  5.041E-05,
     $      4.928E-05,  4.773E-05,  4.619E-05,  4.502E-05,  4.582E-05,
     1      4.658E-05,  4.581E-05,  4.658E-05,  4.734E-05,  4.813E-05,
     2      4.809E-05,  4.927E-05,  4.848E-05,  4.814E-05,  4.813E-05,
     3      4.736E-05,  4.931E-05,  4.968E-05,  5.124E-05,  5.317E-05,
     4      5.242E-05,  5.087E-05,  5.013E-05,  4.899E-05,  4.819E-05,
     5      5.129E-05,  5.321E-05,  5.514E-05,  5.667E-05,  5.666E-05,
     6      5.669E-05,  5.745E-05,  5.708E-05,  5.744E-05,  5.746E-05,
     7      5.823E-05,  5.862E-05,  5.745E-05,  5.706E-05,  5.593E-05,
     8      5.513E-05,  5.512E-05,  5.512E-05,  5.586E-05,  5.663E-05,
     9      5.701E-05,  5.662E-05,  5.619E-05,  5.657E-05,  5.618E-05,
     $      5.502E-05,  5.385E-05,  5.307E-05,  5.191E-05,  5.113E-05/
      DATA (Y(I),I= 2301, 2400)/
     1      5.074E-05,  5.033E-05,  5.036E-05,  4.994E-05,  4.801E-05,
     2      4.723E-05,  4.609E-05,  4.531E-05,  4.724E-05,  4.992E-05,
     3      5.185E-05,  5.298E-05,  5.028E-05,  4.607E-05,  4.225E-05,
     4      3.800E-05,  3.608E-05,  3.610E-05,  3.454E-05,  3.455E-05,
     5      3.339E-05,  3.302E-05,  3.263E-05,  3.264E-05,  3.186E-05,
     6      3.262E-05,  3.417E-05,  3.493E-05,  3.647E-05,  3.530E-05,
     7      3.375E-05,  3.221E-05,  3.068E-05,  3.031E-05,  2.992E-05,
     8      3.029E-05,  3.029E-05,  3.108E-05,  3.108E-05,  3.031E-05,
     9      3.031E-05,  3.031E-05,  3.031E-05,  3.031E-05,  3.070E-05,
     $      2.994E-05,  3.111E-05,  3.109E-05,  3.184E-05,  3.300E-05,
     1      3.377E-05,  3.379E-05,  3.378E-05,  3.378E-05,  3.380E-05,
     2      3.456E-05,  3.535E-05,  3.572E-05,  3.651E-05,  3.650E-05,
     3      3.766E-05,  3.766E-05,  3.843E-05,  3.959E-05,  3.961E-05,
     4      4.037E-05,  4.039E-05,  4.038E-05,  4.077E-05,  3.923E-05,
     5      3.806E-05,  3.654E-05,  3.537E-05,  3.690E-05,  3.804E-05,
     6      3.956E-05,  4.189E-05,  4.264E-05,  4.228E-05,  4.150E-05,
     7      4.113E-05,  4.152E-05,  4.189E-05,  4.189E-05,  4.265E-05,
     8      4.304E-05,  4.227E-05,  4.189E-05,  4.035E-05,  3.921E-05,
     9      3.844E-05,  3.920E-05,  3.996E-05,  4.072E-05,  4.265E-05,
     $      4.265E-05,  4.265E-05,  4.189E-05,  4.148E-05,  4.151E-05/
      DATA (Y(I),I= 2401, 2500)/
     1      4.151E-05,  4.188E-05,  4.188E-05,  4.188E-05,  4.306E-05,
     2      4.226E-05,  4.304E-05,  4.385E-05,  4.357E-05,  4.342E-05,
     3      4.250E-05,  4.239E-05,  4.224E-05,  4.160E-05,  4.217E-05,
     4      4.281E-05,  4.298E-05,  4.359E-05,  4.302E-05,  4.287E-05,
     5      4.195E-05,  4.139E-05,  4.195E-05,  4.233E-05,  4.270E-05,
     6      4.229E-05,  4.268E-05,  4.234E-05,  4.191E-05,  4.138E-05,
     7      4.084E-05,  4.065E-05,  4.062E-05,  4.052E-05,  4.045E-05,
     8      4.053E-05,  4.100E-05,  4.151E-05,  4.206E-05,  4.260E-05,
     9      4.292E-05,  4.304E-05,  4.320E-05,  4.333E-05,  4.345E-05,
     $      4.377E-05,  4.404E-05,  4.432E-05,  4.460E-05,  4.453E-05,
     1      4.380E-05,  4.316E-05,  4.239E-05,  4.170E-05,  4.214E-05,
     2      4.302E-05,  4.387E-05,  4.472E-05,  4.523E-05,  4.454E-05,
     3      4.369E-05,  4.300E-05,  4.215E-05,  4.239E-05,  4.346E-05,
     4      4.450E-05,  4.554E-05,  4.650E-05,  4.638E-05,  4.595E-05,
     5      4.568E-05,  4.529E-05,  4.501E-05,  4.520E-05,  4.527E-05,
     6      4.534E-05,  4.541E-05,  4.559E-05,  4.584E-05,  4.613E-05,
     7      4.626E-05,  4.628E-05,  4.530E-05,  4.413E-05,  4.292E-05,
     8      4.171E-05,  4.101E-05,  4.133E-05,  4.153E-05,  4.180E-05,
     9      4.208E-05,  4.158E-05,  4.078E-05,  4.003E-05,  3.923E-05,
     $      3.854E-05,  3.888E-05,  3.936E-05,  3.993E-05,  4.038E-05/
      DATA (Y(I),I= 2501, 2600)/
     1      4.018E-05,  3.852E-05,  3.686E-05,  3.515E-05,  3.349E-05,
     2      3.280E-05,  3.284E-05,  3.285E-05,  3.277E-05,  3.273E-05,
     3      3.205E-05,  3.128E-05,  3.044E-05,  2.968E-05,  2.902E-05,
     4      2.895E-05,  2.891E-05,  2.895E-05,  2.895E-05,  2.876E-05,
     5      2.837E-05,  2.803E-05,  2.760E-05,  2.726E-05,  2.707E-05,
     6      2.707E-05,  2.700E-05,  2.700E-05,  2.689E-05,  2.685E-05,
     7      2.681E-05,  2.674E-05,  2.667E-05,  2.651E-05,  2.628E-05,
     8      2.602E-05,  2.575E-05,  2.552E-05,  2.544E-05,  2.567E-05,
     9      2.591E-05,  2.614E-05,  2.633E-05,  2.610E-05,  2.557E-05,
     $      2.511E-05,  2.457E-05,  2.416E-05,  2.450E-05,  2.512E-05,
     1      2.578E-05,  2.635E-05,  2.678E-05,  2.655E-05,  2.628E-05,
     2      2.594E-05,  2.563E-05,  2.548E-05,  2.606E-05,  2.667E-05,
     3      2.725E-05,  2.779E-05,  2.802E-05,  2.768E-05,  2.737E-05,
     4      2.699E-05,  2.661E-05,  2.681E-05,  2.746E-05,  2.816E-05,
     5      2.877E-05,  2.939E-05,  2.951E-05,  2.935E-05,  2.924E-05,
     6      2.913E-05,  2.897E-05,  2.916E-05,  2.936E-05,  2.951E-05,
     7      2.978E-05,  2.990E-05,  2.997E-05,  3.001E-05,  3.004E-05,
     8      3.004E-05,  3.000E-05,  2.981E-05,  2.957E-05,  2.938E-05,
     9      2.918E-05,  2.903E-05,  2.918E-05,  2.930E-05,  2.937E-05,
     $      2.948E-05,  2.944E-05,  2.898E-05,  2.848E-05,  2.806E-05/
      DATA (Y(I),I= 2601, 2700)/
     1      2.756E-05,  2.733E-05,  2.744E-05,  2.751E-05,  2.763E-05,
     2      2.767E-05,  2.751E-05,  2.716E-05,  2.682E-05,  2.635E-05,
     3      2.605E-05,  2.585E-05,  2.581E-05,  2.578E-05,  2.570E-05,
     4      2.574E-05,  2.566E-05,  2.554E-05,  2.551E-05,  2.543E-05,
     5      2.535E-05,  2.535E-05,  2.544E-05,  2.548E-05,  2.560E-05,
     6      2.564E-05,  2.569E-05,  2.585E-05,  2.589E-05,  2.597E-05,
     7      2.601E-05,  2.617E-05,  2.641E-05,  2.656E-05,  2.671E-05,
     8      2.695E-05,  2.710E-05,  2.730E-05,  2.746E-05,  2.769E-05,
     9      2.785E-05,  2.800E-05,  2.812E-05,  2.831E-05,  2.842E-05,
     $      2.858E-05,  2.878E-05,  2.889E-05,  2.908E-05,  2.920E-05,
     1      2.939E-05,  2.935E-05,  2.935E-05,  2.931E-05,  2.923E-05,
     2      2.927E-05,  2.919E-05,  2.915E-05,  2.915E-05,  2.911E-05,
     3      2.903E-05,  2.895E-05,  2.864E-05,  2.837E-05,  2.814E-05,
     4      2.790E-05,  2.763E-05,  2.740E-05,  2.716E-05,  2.693E-05,
     5      2.666E-05,  2.639E-05,  2.612E-05,  2.584E-05,  2.550E-05,
     6      2.526E-05,  2.499E-05,  2.464E-05,  2.437E-05,  2.414E-05,
     7      2.391E-05,  2.360E-05,  2.336E-05,  2.313E-05,  2.293E-05,
     8      2.266E-05,  2.247E-05,  2.227E-05,  2.196E-05,  2.177E-05,
     9      2.157E-05,  2.130E-05,  2.118E-05,  2.107E-05,  2.095E-05,
     $      2.075E-05,  2.063E-05,  2.044E-05,  2.036E-05,  2.017E-05/
      DATA (Y(I),I= 2701, 2800)/
     1      2.005E-05,  1.994E-05,  1.982E-05,  1.971E-05,  1.959E-05,
     2      1.944E-05,  1.933E-05,  1.925E-05,  1.906E-05,  1.898E-05,
     3      1.887E-05,  1.876E-05,  1.864E-05,  1.856E-05,  1.849E-05,
     4      1.830E-05,  1.827E-05,  1.815E-05,  1.807E-05,  1.800E-05,
     5      1.788E-05,  1.778E-05,  1.770E-05,  1.766E-05,  1.762E-05,
     6      1.755E-05,  1.755E-05,  1.751E-05,  1.740E-05,  1.736E-05,
     7      1.736E-05,  1.728E-05,  1.725E-05,  1.721E-05,  1.717E-05,
     8      1.712E-05,  1.712E-05,  1.709E-05,  1.704E-05,  1.693E-05,
     9      1.693E-05,  1.685E-05,  1.685E-05,  1.680E-05,  1.680E-05,
     $      1.672E-05,  1.672E-05,  1.672E-05,  1.672E-05,  1.668E-05,
     1      1.660E-05,  1.659E-05,  1.659E-05,  1.651E-05,  1.655E-05,
     2      1.655E-05,  1.655E-05,  1.651E-05,  1.647E-05,  1.647E-05,
     3      1.647E-05,  1.643E-05,  1.643E-05,  1.636E-05,  1.636E-05,
     4      1.640E-05,  1.640E-05,  1.636E-05,  1.640E-05,  1.640E-05,
     5      1.640E-05,  1.637E-05,  1.637E-05,  1.641E-05,  1.637E-05,
     6      1.641E-05,  1.638E-05,  1.626E-05,  1.622E-05,  1.619E-05,
     7      1.611E-05,  1.611E-05,  1.607E-05,  1.604E-05,  1.600E-05,
     8      1.596E-05,  1.589E-05,  1.573E-05,  1.562E-05,  1.550E-05,
     9      1.538E-05,  1.531E-05,  1.519E-05,  1.499E-05,  1.496E-05,
     $      1.480E-05,  1.469E-05,  1.461E-05,  1.445E-05,  1.437E-05/
      DATA (Y(I),I= 2801, 2900)/
     1      1.422E-05,  1.418E-05,  1.403E-05,  1.399E-05,  1.383E-05,
     2      1.375E-05,  1.360E-05,  1.356E-05,  1.356E-05,  1.360E-05,
     3      1.360E-05,  1.364E-05,  1.360E-05,  1.360E-05,  1.360E-05,
     4      1.360E-05,  1.356E-05,  1.364E-05,  1.364E-05,  1.368E-05,
     5      1.380E-05,  1.384E-05,  1.388E-05,  1.392E-05,  1.403E-05,
     6      1.403E-05,  1.411E-05,  1.411E-05,  1.419E-05,  1.423E-05,
     7      1.431E-05,  1.427E-05,  1.435E-05,  1.439E-05,  1.439E-05,
     8      1.443E-05,  1.451E-05,  1.454E-05,  1.454E-05,  1.458E-05,
     9      1.458E-05,  1.450E-05,  1.450E-05,  1.446E-05,  1.446E-05,
     $      1.446E-05,  1.438E-05,  1.442E-05,  1.441E-05,  1.433E-05,
     1      1.429E-05,  1.422E-05,  1.418E-05,  1.406E-05,  1.398E-05,
     2      1.387E-05,  1.379E-05,  1.367E-05,  1.360E-05,  1.352E-05,
     3      1.340E-05,  1.329E-05,  1.313E-05,  1.310E-05,  1.290E-05,
     4      1.275E-05,  1.263E-05,  1.248E-05,  1.233E-05,  1.225E-05,
     5      1.210E-05,  1.198E-05,  1.187E-05,  1.171E-05,  1.156E-05,
     6      1.144E-05,  1.133E-05,  1.118E-05,  1.106E-05,  1.098E-05,
     7      1.081E-05,  1.073E-05,  1.055E-05,  1.046E-05,  1.035E-05,
     8      1.025E-05,  1.013E-05,  1.003E-05,  9.912E-06,  9.800E-06,
     9      9.691E-06,  9.582E-06,  9.470E-06,  9.362E-06,  9.253E-06,
     $      9.175E-06,  9.097E-06,  9.027E-06,  8.950E-06,  8.883E-06/
      DATA (Y(I),I= 2901, 3000)/
     1      8.802E-06,  8.732E-06,  8.658E-06,  8.588E-06,  8.510E-06,
     2      8.440E-06,  8.385E-06,  8.342E-06,  8.307E-06,  8.267E-06,
     3      8.228E-06,  8.189E-06,  8.149E-06,  8.106E-06,  8.063E-06,
     4      8.024E-06,  7.984E-06,  7.957E-06,  7.949E-06,  7.944E-06,
     5      7.928E-06,  7.920E-06,  7.908E-06,  7.907E-06,  7.895E-06,
     6      7.883E-06,  7.874E-06,  7.870E-06,  7.854E-06,  7.858E-06,
     7      7.853E-06,  7.850E-06,  7.853E-06,  7.849E-06,  7.853E-06,
     8      7.849E-06,  7.845E-06,  7.852E-06,  7.848E-06,  7.844E-06,
     9      7.836E-06,  7.825E-06,  7.810E-06,  7.798E-06,  7.787E-06,
     $      7.776E-06,  7.753E-06,  7.741E-06,  7.726E-06,  7.715E-06,
     1      7.703E-06,  7.684E-06,  7.642E-06,  7.604E-06,  7.565E-06,
     2      7.527E-06,  7.492E-06,  7.454E-06,  7.416E-06,  7.370E-06,
     3      7.332E-06,  7.297E-06,  7.251E-06,  7.197E-06,  7.132E-06,
     4      7.070E-06,  7.005E-06,  6.935E-06,  6.870E-06,  6.805E-06,
     5      6.743E-06,  6.674E-06,  6.608E-06,  6.543E-06,  6.481E-06,
     6      6.393E-06,  6.312E-06,  6.223E-06,  6.143E-06,  6.058E-06,
     7      5.977E-06,  5.897E-06,  5.816E-06,  5.723E-06,  5.643E-06,
     8      5.558E-06,  5.493E-06,  5.420E-06,  5.358E-06,  5.285E-06,
     9      5.212E-06,  5.150E-06,  5.073E-06,  5.004E-06,  4.939E-06,
     $      4.866E-06,  4.804E-06,  4.743E-06,  4.731E-06,  4.727E-06/
      DATA (Y(I),I= 3001, 3080)/
     1      4.723E-06,  4.719E-06,  4.715E-06,  4.707E-06,  4.699E-06,
     2      4.699E-06,  4.695E-06,  4.691E-06,  4.680E-06,  4.695E-06,
     3      4.745E-06,  4.798E-06,  4.844E-06,  4.890E-06,  4.944E-06,
     4      4.986E-06,  5.040E-06,  5.086E-06,  5.136E-06,  5.189E-06,
     5      5.236E-06,  5.262E-06,  5.270E-06,  5.289E-06,  5.297E-06,
     6      5.305E-06,  5.324E-06,  5.332E-06,  5.347E-06,  5.355E-06,
     7      5.370E-06,  5.381E-06,  5.389E-06,  5.347E-06,  5.297E-06,
     8      5.231E-06,  5.181E-06,  5.127E-06,  5.065E-06,  5.011E-06,
     9      4.950E-06,  4.896E-06,  4.838E-06,  4.780E-06,  4.726E-06,
     $      4.661E-06,  4.595E-06,  4.525E-06,  4.456E-06,  4.390E-06,
     1      4.328E-06,  4.255E-06,  4.193E-06,  4.127E-06,  4.058E-06,
     2      3.988E-06,  3.926E-06,  3.849E-06,  3.760E-06,  3.679E-06,
     3      3.598E-06,  3.520E-06,  3.439E-06,  3.357E-06,  3.272E-06,
     4      3.191E-06,  3.118E-06,  3.033E-06,  2.944E-06,  2.824E-06,
     5      2.693E-06,  2.561E-06,  2.434E-06,  2.306E-06,  2.179E-06,
     6      2.043E-06,  1.917E-06,  1.790E-06,  1.663E-06,  1.533E-06/
C
      DATA (Z(I),I=    1,  100)/
     1      6.369E-15,   .000E+00,   .000E+00,  1.274E-14, -1.274E-14,
     2      6.369E-15, -6.369E-15,  1.274E-14,   .000E+00,  1.274E-14,
     3       .000E+00,  6.369E-15,  1.274E-14,  1.274E-14,  1.274E-14,
     4      1.911E-14,  1.274E-14,  1.911E-14,  2.548E-14, -1.274E-14,
     5      2.548E-14,  1.274E-14,  1.274E-14, -1.274E-14,   .000E+00,
     6      2.548E-14,  1.274E-14,  1.274E-14,  5.095E-14, -1.274E-14,
     7     -1.274E-14,  5.095E-14, -1.274E-14,  2.548E-14, -2.548E-14,
     8       .000E+00,  5.095E-14,  2.548E-14,   .000E+00,  2.548E-14,
     9      2.548E-14,  2.548E-14, -2.548E-14,  2.548E-14, -2.548E-14,
     $      2.548E-14,  2.548E-14,  2.548E-14,   .000E+00,  5.095E-14,
     1      2.548E-14,  2.548E-14,   .000E+00,  7.643E-14,  5.095E-14,
     2      2.548E-14,   .000E+00, -2.548E-14,  2.548E-14,   .000E+00,
     3      7.643E-14,   .000E+00,  7.643E-14, -7.643E-14,  1.019E-13,
     4      1.019E-13,  1.019E-13,   .000E+00,  1.019E-13,  5.095E-14,
     5      1.019E-13,  1.019E-13,  5.095E-14,  1.529E-13,  1.529E-13,
     6      1.529E-13, -5.095E-14, -1.019E-13, -1.019E-13,   .000E+00,
     7      1.529E-13,  1.019E-13,  5.095E-14, -5.095E-14,   .000E+00,
     8      2.548E-14,  2.548E-14,  2.548E-14,  2.548E-14,  7.643E-14,
     9       .000E+00,   .000E+00,  2.548E-14,  5.095E-14,   .000E+00,
     $      5.095E-14, -2.548E-14,  7.643E-14,  2.548E-14,   .000E+00/
      DATA (Z(I),I=  101,  200)/
     1      2.548E-14,  5.095E-14,  2.548E-14,  7.643E-14,  3.821E-14,
     2      3.821E-14,  3.821E-14,  6.369E-14,   .000E+00, -3.821E-14,
     3      1.274E-14,  1.274E-14,  2.548E-14, -3.821E-14,  1.274E-14,
     4      3.821E-14,  6.369E-14,  3.821E-14,   .000E+00,  1.274E-14,
     5      2.548E-14, -1.274E-14,  5.095E-14,  2.548E-14,  5.095E-14,
     6      5.095E-14,  5.095E-14,  7.643E-14,   .000E+00,  7.643E-14,
     7      2.548E-14,  7.643E-14,   .000E+00,   .000E+00,  7.643E-14,
     8       .000E+00,  5.095E-14,  2.548E-14,  5.095E-14,  7.643E-14,
     9     -2.548E-14,   .000E+00,  2.548E-14,  2.548E-14,   .000E+00,
     $       .000E+00,  1.529E-13,  1.019E-13,   .000E+00,   .000E+00,
     1      1.019E-13,  5.095E-14,  5.095E-14,  1.529E-13,  1.529E-13,
     2       .000E+00,  1.019E-13,  1.529E-13,  1.529E-13,  1.019E-13,
     3      5.095E-14,  1.019E-13,   .000E+00, -1.019E-13,  1.019E-13,
     4      1.019E-13,  1.019E-13,  1.019E-13,  4.076E-13, -1.019E-13,
     5      2.038E-13,  2.038E-13,  2.038E-13,  2.038E-13,   .000E+00,
     6     -2.038E-13,  2.038E-13,  8.152E-13,  1.427E-12,  8.152E-13,
     7       .000E+00, -4.076E-13,  4.076E-13,   .000E+00,  1.630E-12,
     8      4.076E-13,  2.038E-13,  6.114E-13,  4.076E-13,  2.038E-13,
     9      3.057E-13,  2.038E-13,   .000E+00,  1.019E-13,  3.057E-13,
     $      2.038E-13,  2.038E-13,  5.095E-14,  1.019E-13,  1.019E-13/
      DATA (Z(I),I=  201,  300)/
     1       .000E+00,  1.529E-13,  5.095E-14,  2.038E-13,  1.529E-13,
     2      5.095E-14,  5.095E-14,  5.095E-14,  1.529E-13,  1.529E-13,
     3      1.529E-13,  5.095E-14,  5.095E-14,  5.095E-14,   .000E+00,
     4      5.095E-14,  1.019E-13,  2.038E-13,  5.095E-14,  1.019E-13,
     5       .000E+00,  1.529E-13,  5.095E-14,   .000E+00,   .000E+00,
     6      5.095E-14,  1.529E-13,  1.019E-13,  1.019E-13,  2.038E-13,
     7      2.038E-13,  2.038E-13,  2.038E-13,  1.019E-13,  2.038E-13,
     8      2.038E-13,   .000E+00,  2.038E-13, -1.019E-13,  3.057E-13,
     9      1.019E-13,  1.019E-13,  3.057E-13,  3.057E-13, -1.019E-13,
     $      1.019E-13,  4.076E-13,  5.095E-13,  2.038E-13,  5.095E-13,
     1      4.076E-13, -2.038E-13,  3.057E-13, -2.038E-13, -2.038E-13,
     2      2.038E-13,  4.076E-13,  4.076E-13,   .000E+00, -4.076E-13,
     3      2.038E-13, -4.076E-13,  2.038E-13,  2.038E-13,   .000E+00,
     4       .000E+00, -2.038E-13,  2.038E-13,  4.076E-13,  4.076E-13,
     5      2.038E-13,   .000E+00,  8.152E-13,  4.076E-13,   .000E+00,
     6      4.076E-13,  1.630E-12,  8.152E-13,  8.152E-13,  1.223E-12,
     7      8.152E-13,  8.152E-13,  4.076E-13,  1.630E-12,  4.076E-13,
     8     -8.152E-13,  4.076E-13,  8.152E-13,  1.630E-12,  4.076E-13,
     9       .000E+00,   .000E+00,  8.152E-13,  4.076E-13,   .000E+00,
     $     -4.076E-13,  4.076E-13,  4.076E-13,  4.076E-13,  6.114E-13/
      DATA (Z(I),I=  301,  400)/
     1      2.038E-13,  6.114E-13,  4.076E-13,  2.038E-13,   .000E+00,
     2      6.114E-13,  2.038E-13, -2.038E-13,  2.038E-13,  6.114E-13,
     3      6.114E-13,  2.038E-13,  4.076E-13,  4.076E-13,   .000E+00,
     4      8.152E-13,   .000E+00,  4.076E-13,  6.114E-13,  2.038E-13,
     5      2.038E-13,  6.114E-13,   .000E+00,   .000E+00,  2.038E-13,
     6      4.076E-13,  2.038E-13,  2.038E-13,   .000E+00,  2.038E-13,
     7       .000E+00,  4.076E-13,  6.114E-13,   .000E+00,  2.038E-13,
     8      2.038E-13,  2.038E-13,  2.038E-13,  8.152E-13,   .000E+00,
     9     -2.038E-13,  6.114E-13,  6.114E-13,  2.038E-13,  6.114E-13,
     $       .000E+00,  6.114E-13,   .000E+00, -2.038E-13,  8.152E-13,
     1      4.076E-13,   .000E+00,  6.114E-13,  2.038E-13,  4.076E-13,
     2      6.114E-13,  6.114E-13,   .000E+00,  4.076E-13,   .000E+00,
     3       .000E+00,  4.076E-13,  4.076E-13,  1.630E-12,  8.152E-13,
     4      8.152E-13,  4.076E-13,  8.152E-13,  8.152E-13,  4.076E-13,
     5      1.223E-12,  1.630E-12,  1.630E-12,  4.076E-13,   .000E+00,
     6      1.630E-12, -4.076E-13, -4.076E-13,  2.038E-12,   .000E+00,
     7       .000E+00,  8.152E-13,   .000E+00,  8.152E-13,  1.630E-12,
     8      8.152E-13,   .000E+00, -8.152E-13,  8.152E-13,  8.152E-13,
     9      2.446E-12,   .000E+00,  8.152E-13,  8.152E-13,  8.152E-13,
     $      1.630E-12, -8.152E-13,  2.446E-12,  8.152E-13, -8.152E-13/
      DATA (Z(I),I=  401,  500)/
     1      1.630E-12,  8.152E-13,  8.152E-13,  1.630E-12,   .000E+00,
     2      8.152E-13,   .000E+00,   .000E+00,  8.152E-13,  8.152E-13,
     3       .000E+00,  1.630E-12,  8.152E-13,   .000E+00,  8.152E-13,
     4      8.152E-13,   .000E+00,  8.152E-13,   .000E+00,  8.152E-13,
     5       .000E+00,  1.630E-12,  8.152E-13,  8.152E-13,  8.152E-13,
     6      8.152E-13,  8.152E-13,  4.076E-13,  1.223E-12,  1.223E-12,
     7     -4.076E-13,  1.223E-12,  1.630E-12,  2.038E-12,   .000E+00,
     8     -8.152E-13,  4.076E-13,   .000E+00,  1.630E-12,  8.152E-13,
     9      8.152E-13,   .000E+00,  4.076E-13, -8.152E-13,  4.076E-13,
     $      1.223E-12,  4.076E-13,  4.076E-13,  1.630E-12,  1.223E-12,
     1       .000E+00,   .000E+00,  4.076E-13,  8.152E-13,  1.630E-12,
     2      1.223E-12,  4.076E-13,  8.152E-13,   .000E+00, -4.076E-13,
     3      1.223E-12, -4.076E-13,  8.152E-13,  1.630E-12,   .000E+00,
     4      8.152E-13,   .000E+00,  1.630E-12, -8.152E-13,  8.152E-13,
     5       .000E+00,  1.630E-12,  8.152E-13,  8.152E-13,   .000E+00,
     6      1.630E-12,   .000E+00,   .000E+00,  8.152E-13,  8.152E-13,
     7      1.630E-12,  1.630E-12,   .000E+00,  1.630E-12,  8.152E-13,
     8      3.261E-12,  8.152E-13,  2.446E-12,  3.261E-12,  3.261E-12,
     9      1.630E-12,   .000E+00,  3.261E-12, -1.630E-12, -1.630E-12,
     $     -1.630E-12,  4.891E-12,  1.630E-12,  1.630E-12,  3.261E-12/
      DATA (Z(I),I=  501,  600)/
     1      4.891E-12,  1.630E-12,  4.891E-12,   .000E+00,   .000E+00,
     2     -3.261E-12,  4.891E-12,  3.261E-12,  4.891E-12, -1.630E-12,
     3       .000E+00,  3.261E-12,  1.630E-12, -3.261E-12,  1.630E-12,
     4      3.261E-12, -3.261E-12,  4.891E-12,  3.261E-12,   .000E+00,
     5      3.261E-12, -1.630E-12,  1.630E-12,  1.630E-12,  1.630E-12,
     6      1.630E-12, -1.630E-12,  3.261E-12,  1.630E-12,  1.630E-12,
     7     -8.152E-13,  1.630E-12,   .000E+00,  2.446E-12,   .000E+00,
     8     -8.152E-13, -8.152E-13, -8.152E-13, -8.152E-13,  3.261E-12,
     9       .000E+00,  3.261E-12,   .000E+00,  8.152E-13,  3.261E-12,
     $      1.630E-12,   .000E+00,   .000E+00,  3.261E-12,   .000E+00,
     1       .000E+00,   .000E+00,  3.261E-12,  8.152E-13, -1.630E-12,
     2       .000E+00,  1.630E-12,  8.152E-13,  4.076E-12,  8.152E-13,
     3       .000E+00,   .000E+00,  3.261E-12,   .000E+00,  1.630E-12,
     4      3.261E-12,  4.076E-12,  8.152E-13,  4.076E-12,  2.446E-12,
     5     -1.630E-12,  3.261E-12,  2.446E-12, -8.152E-13,   .000E+00,
     6      1.630E-12,  2.446E-12,  1.630E-12,  1.630E-12,  3.261E-12,
     7      3.261E-12,   .000E+00, -1.630E-12,  1.630E-12,  1.630E-12,
     8       .000E+00, -1.630E-12,  1.630E-12,  6.522E-12,  3.261E-12,
     9       .000E+00,   .000E+00,  1.630E-12, -1.630E-12,  6.522E-12,
     $      1.630E-12,  1.630E-12, -1.630E-12,  1.630E-12,   .000E+00/
      DATA (Z(I),I=  601,  700)/
     1      1.630E-12,  3.261E-12,  6.522E-12,  3.261E-12,  4.891E-12,
     2      3.261E-12,  3.261E-12,  3.261E-12,  3.261E-12,  3.261E-12,
     3      3.261E-12,   .000E+00,  6.522E-12, -3.261E-12,  3.261E-12,
     4       .000E+00,  3.261E-12, -3.261E-12,  3.261E-12,  6.522E-12,
     5       .000E+00,  3.261E-12,   .000E+00,  6.522E-12,   .000E+00,
     6       .000E+00,   .000E+00,  3.261E-12,  6.522E-12,   .000E+00,
     7      3.261E-12,   .000E+00,  6.522E-12,  6.522E-12,  4.891E-12,
     8      3.261E-12,  8.152E-12,  4.891E-12,  3.261E-12,  4.891E-12,
     9      1.630E-12,   .000E+00,   .000E+00,  4.891E-12,  6.522E-12,
     $      1.630E-12, -3.261E-12,  4.891E-12,  8.152E-12,  3.261E-12,
     1      1.630E-12,  1.630E-12, -1.630E-12,  3.261E-12,  1.630E-12,
     2     -3.261E-12,  4.891E-12,  1.630E-12,  4.891E-12,  1.630E-12,
     3      1.630E-12,   .000E+00,  4.891E-12,  3.261E-12,  1.630E-12,
     4     -1.630E-12,  3.261E-12,  3.261E-12,  1.630E-12,  1.630E-12,
     5      4.891E-12, -1.630E-12, -3.261E-12,   .000E+00,  1.630E-12,
     6      3.261E-12,  1.630E-12,  1.630E-12,  4.891E-12,  6.522E-12,
     7      1.630E-12,   .000E+00,  4.891E-12,  4.891E-12,  1.630E-12,
     8      1.630E-12,  3.261E-12,  1.630E-12,  1.630E-12, -1.630E-12,
     9      1.630E-12,  4.891E-12,   .000E+00,   .000E+00,  1.630E-12,
     $     -6.522E-12,  3.261E-12,  3.261E-12,  3.261E-12,  3.261E-12/
      DATA (Z(I),I=  701,  800)/
     1      3.261E-12,   .000E+00,  3.261E-12,  3.261E-12, -3.261E-12,
     2     -3.261E-12,  3.261E-12,  6.522E-12,  3.261E-12, -3.261E-12,
     3      3.261E-12,  3.261E-12,  6.522E-12,  3.261E-12, -3.261E-12,
     4      9.783E-12,  3.261E-12,  3.261E-12,  3.261E-12,  6.522E-12,
     5       .000E+00,   .000E+00,  9.783E-12,  3.261E-12,  6.522E-12,
     6      9.783E-12,  6.522E-12,   .000E+00,  6.522E-12,   .000E+00,
     7      9.783E-12,  6.522E-12,  6.522E-12, -3.261E-12,  1.304E-11,
     8       .000E+00, -3.261E-12,  6.522E-12,   .000E+00,   .000E+00,
     9     -3.261E-12, -6.522E-12,  3.261E-12,  6.522E-12, -3.261E-12,
     $      6.522E-12,  9.783E-12,  6.522E-12,   .000E+00, -6.522E-12,
     1      9.783E-12,  6.522E-12,  3.261E-12,  3.261E-12,  6.522E-12,
     2      3.261E-12,  3.261E-12,   .000E+00,  9.783E-12, -3.261E-12,
     3      3.261E-12,   .000E+00,  6.522E-12,  6.522E-12,  3.261E-12,
     4       .000E+00,   .000E+00,  3.261E-12,  6.522E-12,  3.261E-12,
     5       .000E+00,  3.261E-12,  6.522E-12,  6.522E-12,   .000E+00,
     6       .000E+00,  3.261E-12, -3.261E-12,  9.783E-12,  3.261E-12,
     7      3.261E-12,  6.522E-12,  3.261E-12, -3.261E-12,   .000E+00,
     8      3.261E-12, -3.261E-12,  9.783E-12,  1.304E-11, -3.003E-08,
     9     -2.136E-07, -3.476E-07, -3.507E-07, -3.498E-07, -3.441E-07,
     $     -3.405E-07, -3.384E-07, -3.439E-07, -3.538E-07, -3.699E-07/
      DATA (Z(I),I=  801,  900)/
     1     -3.651E-07, -3.462E-07, -3.292E-07, -3.177E-07, -3.239E-07,
     2     -3.321E-07, -3.447E-07, -3.404E-07, -3.284E-07, -3.301E-07,
     3     -3.295E-07, -3.214E-07, -3.194E-07, -3.230E-07, -3.202E-07,
     4     -3.182E-07, -3.245E-07, -3.272E-07, -3.181E-07, -3.133E-07,
     5     -3.115E-07, -3.134E-07, -3.144E-07, -3.226E-07, -3.292E-07,
     6     -3.239E-07, -3.248E-07, -3.088E-07, -3.269E-07, -3.166E-07,
     7     -3.283E-07, -3.143E-07, -3.064E-07, -3.140E-07, -2.938E-07,
     8     -2.938E-07, -3.014E-07, -2.873E-07, -2.809E-07, -2.809E-07,
     9     -3.092E-07, -2.748E-07, -2.809E-07, -2.744E-07, -2.809E-07,
     $     -2.669E-07, -2.666E-07, -2.870E-07, -2.806E-07, -2.806E-07,
     1     -2.806E-07, -2.870E-07, -2.730E-07, -2.590E-07, -2.512E-07,
     2     -2.792E-07, -2.856E-07, -2.860E-07, -2.781E-07, -2.565E-07,
     3     -2.425E-07, -2.626E-07, -2.767E-07, -2.624E-07, -2.484E-07,
     4     -2.343E-07, -2.484E-07, -2.689E-07, -2.268E-07, -2.329E-07,
     5     -2.470E-07, -2.193E-07, -2.254E-07, -2.318E-07, -2.318E-07,
     6     -2.459E-07, -2.240E-07, -2.021E-07, -2.161E-07, -2.021E-07,
     7     -2.162E-07, -2.226E-07, -2.022E-07, -2.086E-07, -2.083E-07,
     8     -2.148E-07, -2.288E-07, -2.285E-07, -2.286E-07, -2.288E-07,
     9     -2.209E-07, -2.069E-07, -2.069E-07, -2.131E-07, -2.131E-07,
     $     -1.991E-07, -1.991E-07, -1.991E-07, -1.707E-07, -1.851E-07/
      DATA (Z(I),I=  901, 1000)/
     1     -1.772E-07, -1.775E-07, -1.912E-07, -1.976E-07, -2.117E-07,
     2     -1.974E-07, -1.772E-07, -1.837E-07, -1.693E-07, -1.693E-07,
     3     -1.769E-07, -1.693E-07, -1.632E-07, -1.489E-07, -1.352E-07,
     4     -1.492E-07, -1.495E-07, -1.556E-07, -1.492E-07, -1.352E-07,
     5     -1.352E-07, -1.492E-07, -1.492E-07, -1.349E-07, -1.285E-07,
     6     -1.147E-07, -1.287E-07, -1.150E-07, -1.147E-07, -1.007E-07,
     7     -9.455E-08, -8.022E-08, -6.618E-08, -7.990E-08, -8.016E-08,
     8     -7.992E-08, -8.779E-08, -7.986E-08, -1.015E-07, -9.567E-08,
     9     -7.373E-08, -8.135E-08, -9.567E-08, -7.520E-08, -8.955E-08,
     $     -7.521E-08, -1.033E-07, -8.133E-08, -8.895E-08, -7.493E-08,
     1     -5.446E-08, -6.850E-08, -9.655E-08, -6.846E-08, -9.040E-08,
     2     -7.640E-08, -7.669E-08, -6.239E-08, -5.600E-08, -7.612E-08,
     3     -6.998E-08, -4.985E-08, -5.597E-08, -7.032E-08, -7.032E-08,
     4     -7.031E-08, -6.243E-08, -5.453E-08, -5.458E-08, -4.817E-08,
     5     -5.461E-08, -4.059E-08, -6.867E-08, -4.671E-08, -5.316E-08,
     6     -3.889E-08, -3.915E-08, -3.888E-08, -3.131E-08, -1.732E-08,
     7     -1.729E-08, -3.134E-08, -1.735E-08, -9.496E-09, -9.835E-09,
     8     -1.596E-08, -3.031E-08, -3.644E-08, -4.288E-08, -2.243E-08,
     9     -1.488E-08, -8.478E-10,  2.750E-08,  3.508E-08,  3.537E-08,
     $      3.540E-08,  2.780E-08, -6.711E-09, -6.391E-10,  2.739E-08/
      DATA (Z(I),I= 1001, 1100)/
     1      3.530E-08,  4.290E-08,  4.289E-08,  5.107E-08,  4.316E-08,
     2      4.345E-08,  5.102E-08,  2.937E-08,  3.696E-08,  3.699E-08,
     3      3.695E-08,  5.099E-08,  4.486E-08,  4.480E-08,  4.479E-08,
     4      5.240E-08,  4.448E-08,  6.496E-08,  7.107E-08,  8.540E-08,
     5      5.706E-08,  2.900E-08,  4.300E-08,  7.128E-08,  9.295E-08,
     6      9.322E-08,  9.936E-08,  9.935E-08,  9.934E-08,  1.134E-07,
     7      9.146E-08,  1.195E-07,  1.055E-07,  9.177E-08,  9.207E-08,
     8      9.848E-08,  9.876E-08,  9.846E-08,  9.846E-08,  1.125E-07,
     9      1.122E-07,  1.122E-07,  1.183E-07,  1.324E-07,  1.321E-07,
     $      1.245E-07,  1.245E-07,  1.108E-07,  1.251E-07,  1.315E-07,
     1      1.380E-07,  1.303E-07,  1.227E-07,  1.148E-07,  1.148E-07,
     2      1.289E-07,  1.350E-07,  1.210E-07,  1.351E-07,  1.556E-07,
     3      1.559E-07,  1.479E-07,  1.681E-07,  1.465E-07,  1.591E-07,
     4      1.591E-07,  1.667E-07,  1.808E-07,  1.670E-07,  1.667E-07,
     5      1.592E-07,  1.376E-07,  1.498E-07,  1.562E-07,  1.986E-07,
     6      2.206E-07,  2.209E-07,  2.147E-07,  2.069E-07,  2.069E-07,
     7      2.130E-07,  1.990E-07,  2.051E-07,  2.268E-07,  2.552E-07,
     8      2.689E-07,  2.973E-07,  3.034E-07,  3.177E-07,  3.101E-07,
     9      3.242E-07,  3.102E-07,  3.038E-07,  3.053E-07,  2.909E-07,
     $      2.909E-07,  2.988E-07,  2.988E-07,  3.128E-07,  3.128E-07/
      DATA (Z(I),I= 1101, 1200)/
     1      3.193E-07,  3.257E-07,  3.257E-07,  3.461E-07,  3.321E-07,
     2      3.321E-07,  3.257E-07,  3.256E-07,  3.257E-07,  3.394E-07,
     3      3.391E-07,  3.248E-07,  3.248E-07,  3.251E-07,  3.172E-07,
     4      3.175E-07,  3.239E-07,  3.236E-07,  3.028E-07,  3.229E-07,
     5      3.306E-07,  3.309E-07,  3.528E-07,  3.531E-07,  3.394E-07,
     6      3.315E-07,  3.175E-07,  3.236E-07,  3.017E-07,  3.157E-07,
     7      3.157E-07,  3.295E-07,  3.154E-07,  3.154E-07,  3.093E-07,
     8      2.952E-07,  2.812E-07,  2.671E-07,  2.672E-07,  2.734E-07,
     9      2.731E-07,  2.792E-07,  2.997E-07,  2.933E-07,  2.792E-07,
     $      2.792E-07,  2.653E-07,  2.372E-07,  2.289E-07,  2.290E-07,
     1      2.276E-07,  2.132E-07,  2.211E-07,  2.431E-07,  2.369E-07,
     2      2.448E-07,  2.388E-07,  2.247E-07,  2.043E-07,  2.043E-07,
     3      1.903E-07,  1.967E-07,  2.251E-07,  2.235E-07,  2.300E-07,
     4      2.301E-07,  2.234E-07,  2.295E-07,  2.368E-07,  2.365E-07,
     5      2.368E-07,  2.089E-07,  2.093E-07,  1.894E-07,  1.757E-07,
     6      1.895E-07,  2.035E-07,  2.319E-07,  2.394E-07,  2.236E-07,
     7      2.376E-07,  1.937E-07,  1.658E-07,  1.374E-07,  1.456E-07,
     8      1.395E-07,  1.690E-07,  1.769E-07,  1.849E-07,  1.988E-07,
     9      1.988E-07,  1.769E-07,  1.708E-07,  1.976E-07,  2.042E-07,
     $      2.105E-07,  2.171E-07,  2.310E-07,  2.249E-07,  2.389E-07/
      DATA (Z(I),I= 1201, 1300)/
     1      2.246E-07,  2.109E-07,  1.822E-07,  1.682E-07,  1.536E-07,
     2      1.467E-07,  1.529E-07,  1.593E-07,  1.521E-07,  1.866E-07,
     3      1.930E-07,  1.729E-07,  1.947E-07,  1.745E-07,  1.623E-07,
     4      1.562E-07,  1.636E-07,  1.629E-07,  1.626E-07,  1.623E-07,
     5      1.688E-07,  1.750E-07,  1.676E-07,  1.878E-07,  1.946E-07,
     6      2.151E-07,  2.086E-07,  2.086E-07,  1.946E-07,  2.087E-07,
     7      2.007E-07,  1.784E-07,  1.630E-07,  1.613E-07,  1.551E-07,
     8      1.425E-07,  1.507E-07,  1.242E-07,  1.184E-07,  1.259E-07,
     9      1.605E-07,  1.540E-07,  1.962E-07,  2.102E-07,  1.804E-07,
     $      1.585E-07,  1.225E-07,  9.271E-08,  7.834E-08,  1.067E-07,
     1      1.144E-07,  1.205E-07,  1.489E-07,  1.568E-07,  1.162E-07,
     2      1.039E-07,  1.399E-07,  1.196E-07,  1.263E-07,  1.267E-07,
     3      9.704E-08,  8.956E-08,  6.793E-08,  9.629E-08,  1.241E-07,
     4      1.383E-07,  1.662E-07,  1.742E-07,  1.256E-07,  7.070E-08,
     5      6.420E-08,  3.083E-08,  5.131E-08,  5.781E-08,  7.816E-08,
     6      6.300E-08,  8.356E-08,  7.602E-08,  9.796E-08,  9.801E-08,
     7      1.402E-07,  1.758E-07,  1.478E-07,  1.261E-07,  6.339E-08,
     8      2.789E-08, -2.071E-08, -2.791E-08, -4.312E-08, -3.657E-08,
     9     -9.756E-09,  3.890E-08,  2.843E-09, -3.339E-09, -3.133E-08,
     $     -5.142E-08, -7.951E-08, -5.144E-08, -4.518E-08, -9.156E-09/
      DATA (Z(I),I= 1301, 1400)/
     1      1.096E-08,  1.085E-08,  3.110E-08,  5.755E-08,  7.769E-08,
     2      6.960E-08,  6.819E-08,  4.017E-08,  2.609E-08, -8.452E-09,
     3     -2.233E-08, -4.403E-08, -1.706E-08,  1.748E-08,  2.296E-09,
     4      1.513E-08, -6.365E-09, -3.449E-08, -6.250E-08, -5.452E-08,
     5     -8.259E-08, -1.186E-07, -1.342E-07, -1.281E-07, -1.579E-07,
     6     -1.736E-07, -1.812E-07, -1.666E-07, -1.662E-07, -1.655E-07,
     7     -1.787E-07, -1.864E-07, -2.023E-07, -2.179E-07, -2.260E-07,
     8     -2.417E-07, -2.499E-07, -2.504E-07, -2.510E-07, -2.516E-07,
     9     -2.657E-07, -2.738E-07, -2.889E-07, -3.182E-07, -3.259E-07,
     $     -3.346E-07, -3.486E-07, -3.754E-07, -3.819E-07, -3.947E-07,
     1     -3.998E-07, -4.139E-07, -4.214E-07, -4.162E-07, -4.378E-07,
     2     -4.672E-07, -4.888E-07, -4.964E-07, -4.825E-07, -4.964E-07,
     3     -4.964E-07, -5.040E-07, -5.524E-07, -4.964E-07, -4.963E-07,
     4     -4.963E-07, -4.963E-07, -4.963E-07, -4.964E-07, -4.963E-07,
     5     -4.964E-07, -4.963E-07, -4.963E-07, -4.963E-07, -4.963E-07,
     6     -5.724E-07, -4.964E-07, -4.963E-07, -6.365E-07, -4.963E-07,
     7     -5.577E-07, -6.978E-07, -5.575E-07, -5.576E-07, -6.950E-07,
     8     -5.577E-07, -5.576E-07, -6.951E-07, -5.577E-07, -5.577E-07,
     9     -5.577E-07, -5.576E-07, -5.576E-07, -6.950E-07, -5.577E-07,
     $     -6.978E-07, -5.576E-07, -5.577E-07, -5.576E-07, -5.577E-07/
      DATA (Z(I),I= 1401, 1500)/
     1     -5.576E-07, -5.577E-07, -5.576E-07, -7.010E-07, -8.381E-07,
     2     -8.383E-07, -6.977E-07, -8.411E-07, -8.411E-07, -5.604E-07,
     3     -8.411E-07, -7.005E-07, -8.410E-07, -7.006E-07, -6.978E-07,
     4     -8.379E-07, -7.006E-07, -8.381E-07, -8.378E-07, -8.349E-07,
     5     -8.380E-07, -8.380E-07, -8.351E-07, -8.379E-07, -8.379E-07,
     6     -8.380E-07, -8.379E-07, -8.350E-07, -8.350E-07, -8.350E-07,
     7     -8.351E-07, -9.751E-07, -9.751E-07, -8.350E-07, -8.351E-07,
     8     -8.380E-07, -8.379E-07, -9.751E-07, -8.377E-07, -8.379E-07,
     9     -8.379E-07, -9.140E-07, -9.139E-07, -8.527E-07, -9.286E-07,
     $     -8.526E-07, -9.286E-07, -7.881E-07, -8.526E-07, -7.882E-07,
     1     -6.477E-07, -7.122E-07, -7.121E-07, -7.883E-07, -6.475E-07,
     2     -8.524E-07, -8.522E-07, -6.478E-07, -7.881E-07, -7.883E-07,
     3     -7.124E-07, -6.475E-07, -6.476E-07, -7.238E-07, -6.478E-07,
     4     -5.834E-07, -8.637E-07, -5.832E-07, -8.025E-07, -5.832E-07,
     5     -5.219E-07, -5.218E-07, -7.412E-07, -7.413E-07, -6.010E-07,
     6     -6.011E-07, -7.413E-07, -7.410E-07, -5.221E-07, -5.219E-07,
     7     -4.576E-07, -6.007E-07, -4.604E-07, -4.603E-07, -3.814E-07,
     8     -3.169E-07, -3.199E-07, -3.813E-07, -3.813E-07, -4.601E-07,
     9     -3.201E-07, -3.203E-07, -3.201E-07, -3.200E-07, -3.202E-07,
     $     -3.991E-07, -2.587E-07, -2.560E-07, -2.589E-07, -2.587E-07/
      DATA (Z(I),I= 1501, 1600)/
     1     -2.591E-07, -3.202E-07, -3.950E-08, -3.960E-08,  3.970E-08,
     2      3.965E-08, -1.009E-07, -3.950E-08,  3.965E-08, -1.009E-07,
     3      1.038E-07, -3.955E-08, -3.950E-08, -3.955E-08, -3.960E-08,
     4     -3.950E-08, -3.955E-08,  2.176E-08,  9.783E-08, -4.263E-08,
     5      3.668E-08, -1.039E-07,  3.329E-08,  3.605E-08, -2.791E-08,
     6     -2.515E-08,  1.121E-07,  1.149E-07,  1.150E-07,  1.150E-07,
     7      1.148E-07,  1.150E-07,  1.149E-07,  1.150E-07, -2.838E-08,
     8     -2.823E-08, -2.833E-08,  1.118E-07, -3.157E-08,  4.727E-08,
     9     -9.266E-08, -9.276E-08,  5.061E-08,  2.666E-07,  1.263E-07,
     $      1.906E-07,  1.262E-07, -1.403E-08, -1.544E-07, -9.308E-08,
     1      5.024E-08, -9.318E-08, -1.543E-07, -1.545E-07, -1.435E-08,
     2     -1.440E-08, -7.873E-08, -7.863E-08, -7.878E-08, -7.883E-08,
     3     -7.878E-08, -7.878E-08, -2.221E-07, -7.873E-08, -2.833E-07,
     4     -7.878E-08, -1.432E-07, -2.220E-07, -2.865E-07, -3.478E-07,
     5     -3.478E-07, -3.478E-07, -3.478E-07, -4.091E-07, -3.448E-07,
     6     -3.448E-07, -3.448E-07, -2.046E-07, -2.046E-07, -4.090E-07,
     7     -2.044E-07, -3.446E-07, -4.092E-07, -2.045E-07, -2.046E-07,
     8     -2.045E-07, -2.046E-07, -2.046E-07, -2.044E-07, -2.047E-07,
     9     -2.045E-07, -2.046E-07, -2.046E-07, -4.852E-07, -3.446E-07,
     $     -2.806E-07, -2.806E-07, -2.805E-07, -5.611E-07, -3.418E-07/
      DATA (Z(I),I= 1601, 1700)/
     1     -3.416E-07, -4.820E-07, -4.031E-07, -3.418E-07, -3.418E-07,
     2     -4.819E-07, -4.059E-07, -3.447E-07, -3.447E-07, -3.447E-07,
     3     -3.447E-07, -4.848E-07, -3.447E-07, -3.446E-07, -3.448E-07,
     4     -3.447E-07, -3.446E-07, -3.447E-07, -3.447E-07, -4.202E-07,
     5     -4.203E-07, -4.205E-07, -4.204E-07, -2.801E-07, -2.802E-07,
     6     -2.801E-07, -4.203E-07, -4.203E-07, -2.830E-07, -2.830E-07,
     7     -4.230E-07, -4.233E-07, -2.831E-07, -4.230E-07, -2.829E-07,
     8     -3.619E-07, -3.590E-07, -3.618E-07, -4.992E-07, -4.991E-07,
     9     -4.992E-07, -4.378E-07, -4.378E-07, -2.973E-07, -7.816E-08,
     $     -2.974E-07, -2.186E-07, -2.186E-07, -2.186E-07, -7.800E-08,
     1     -7.800E-08, -2.181E-07, -7.816E-08, -2.182E-07, -7.810E-08,
     2     -1.568E-07, -7.758E-08, -7.774E-08,  6.250E-08, -7.810E-08,
     3     -2.183E-07, -1.568E-07, -1.569E-07, -2.179E-07, -7.810E-08,
     4     -7.800E-08, -7.795E-08, -7.800E-08, -2.973E-07, -2.973E-07,
     5     -7.805E-08, -2.185E-07, -3.586E-07, -3.588E-07, -2.973E-07,
     6     -1.541E-07, -3.586E-07, -2.152E-07, -7.805E-08, -2.154E-07,
     7     -1.541E-07, -7.518E-08, -2.154E-07, -7.523E-08, -1.393E-07,
     8     -7.518E-08, -1.396E-07,  7.826E-10, -1.396E-07, -2.798E-07,
     9      9.391E-10, -2.798E-07, -2.799E-07, -1.396E-07, -1.396E-07,
     $     -1.425E-07, -1.397E-07, -1.397E-07, -1.430E-07, -1.427E-07/
      DATA (Z(I),I= 1701, 1800)/
     1     -1.430E-07, -2.609E-09,  4.174E-10,  5.217E-10,  3.652E-10,
     2     -2.348E-09, -1.397E-07,  3.652E-10,  5.739E-10,  4.696E-10,
     3      4.696E-10,  4.696E-10,  2.609E-10,  4.696E-10, -6.407E-08,
     4      1.406E-07,  7.654E-08, -6.402E-08, -6.402E-08, -6.412E-08,
     5     -6.402E-08,  1.205E-08, -6.396E-08, -6.407E-08, -6.402E-08,
     6     -6.407E-08, -6.402E-08, -6.402E-08, -1.252E-07,  1.487E-08,
     7     -6.130E-08, -6.130E-08, -1.256E-07, -2.046E-07, -2.045E-07,
     8     -6.130E-08, -6.130E-08, -6.438E-08, -6.449E-08, -1.288E-07,
     9     -6.438E-08, -6.449E-08, -6.449E-08, -6.443E-08, -6.443E-08,
     $     -6.438E-08, -6.438E-08, -1.258E-07,  1.435E-08,  1.440E-08,
     1      1.440E-08, -2.645E-08, -4.043E-08, -8.129E-08, -8.791E-08,
     2     -7.268E-08, -5.113E-08, -5.770E-08, -7.821E-08, -9.219E-08,
     3     -1.203E-07, -1.483E-07, -1.639E-07, -1.921E-07, -1.559E-07,
     4     -1.422E-07, -1.278E-07, -7.962E-08, -1.560E-08,  4.664E-08,
     5      6.057E-08,  4.649E-08,  1.883E-08,  4.696E-09, -2.332E-08,
     6     -3.751E-08, -3.751E-08, -5.937E-08, -6.553E-08, -7.983E-08,
     7     -7.983E-08, -6.584E-08, -5.932E-08, -6.548E-08, -1.079E-07,
     8     -1.436E-07, -1.717E-07, -1.576E-07, -1.782E-07, -1.719E-07,
     9     -1.502E-07, -1.489E-07, -9.939E-08, -9.814E-08, -9.819E-08,
     $     -1.110E-07, -1.174E-07, -1.313E-07, -1.454E-07, -1.594E-07/
      DATA (Z(I),I= 1801, 1900)/
     1     -1.454E-07, -1.314E-07, -1.173E-07, -1.044E-07, -1.121E-07,
     2     -1.198E-07, -1.554E-07, -1.630E-07, -1.502E-07, -1.798E-07,
     3     -1.797E-07, -1.578E-07, -1.653E-07, -1.654E-07, -1.657E-07,
     4     -1.578E-07, -1.517E-07, -1.514E-07, -1.374E-07, -1.233E-07,
     5     -1.297E-07, -1.516E-07, -1.513E-07, -1.798E-07, -1.793E-07,
     6     -1.933E-07, -1.934E-07, -2.013E-07, -1.796E-07, -1.513E-07,
     7     -1.437E-07, -1.145E-07, -1.007E-07, -9.318E-08, -9.198E-08,
     8     -9.835E-08, -1.049E-07, -9.078E-08, -9.083E-08, -9.845E-08,
     9     -1.266E-07, -1.545E-07, -2.108E-07, -2.169E-07, -1.949E-07,
     $     -2.011E-07, -1.853E-07, -1.853E-07, -1.555E-07, -1.413E-07,
     1     -1.333E-07, -1.474E-07, -1.478E-07, -1.619E-07, -1.834E-07,
     2     -2.255E-07, -2.536E-07, -2.536E-07, -2.472E-07, -2.677E-07,
     3     -2.255E-07, -2.055E-07, -1.555E-07, -1.495E-07, -1.480E-07,
     4     -1.684E-07, -1.748E-07, -1.955E-07, -1.880E-07, -1.945E-07,
     5     -2.007E-07, -1.926E-07, -1.989E-07, -1.910E-07, -1.831E-07,
     6     -1.469E-07, -1.393E-07, -1.454E-07, -1.658E-07, -2.003E-07,
     7     -2.352E-07, -2.133E-07, -1.981E-07, -1.844E-07, -1.705E-07,
     8     -1.780E-07, -1.932E-07, -1.930E-07, -1.724E-07, -1.521E-07,
     9     -1.176E-07, -1.393E-07, -1.676E-07, -1.812E-07, -1.955E-07,
     $     -1.672E-07, -1.536E-07, -1.252E-07, -1.113E-07, -9.715E-08/
      DATA (Z(I),I= 1901, 2000)/
     1     -9.725E-08, -6.918E-08, -1.112E-07, -9.720E-08, -1.256E-07,
     2     -1.111E-07, -8.343E-08, -8.309E-08, -5.502E-08, -2.687E-08,
     3     -2.721E-08, -2.723E-08, -2.079E-08, -1.463E-08,  5.113E-09,
     4      1.158E-08, -5.241E-08, -1.165E-07, -1.602E-07, -1.805E-07,
     5     -1.456E-07, -1.176E-07, -1.169E-07, -1.166E-07, -1.583E-07,
     6     -1.580E-07, -1.658E-07, -1.382E-07, -1.103E-07, -8.259E-08,
     7     -1.109E-07, -1.252E-07, -1.611E-07, -1.754E-07, -1.626E-07,
     8     -1.483E-07, -1.561E-07, -1.574E-07, -1.790E-07, -2.005E-07,
     9     -2.363E-07, -2.081E-07, -2.082E-07, -1.801E-07, -2.020E-07,
     $     -2.160E-07, -2.082E-07, -2.020E-07, -1.741E-07, -1.325E-07,
     1     -1.047E-07, -9.861E-08, -1.127E-07, -9.884E-08, -1.131E-07,
     2     -1.270E-07, -1.406E-07, -1.546E-07, -1.478E-07, -1.194E-07,
     3     -1.333E-07, -1.050E-07, -1.190E-07, -1.114E-07, -1.319E-07,
     4     -1.321E-07, -1.246E-07, -1.450E-07, -1.590E-07, -1.656E-07,
     5     -1.935E-07, -2.140E-07, -2.205E-07, -2.345E-07, -2.550E-07,
     6     -2.475E-07, -2.615E-07, -2.335E-07, -2.411E-07, -2.414E-07,
     7     -2.273E-07, -1.928E-07, -1.788E-07, -1.709E-07, -1.709E-07,
     8     -1.850E-07, -1.909E-07, -1.908E-07, -2.049E-07, -1.967E-07,
     9     -2.032E-07, -2.452E-07, -2.589E-07, -3.211E-07, -3.352E-07,
     $     -3.133E-07, -2.710E-07, -2.275E-07, -2.278E-07, -2.203E-07/
      DATA (Z(I),I= 2001, 2100)/
     1     -2.267E-07, -2.392E-07, -2.600E-07, -2.665E-07, -2.729E-07,
     2     -2.793E-07, -2.934E-07, -3.153E-07, -3.291E-07, -3.229E-07,
     3     -3.153E-07, -2.871E-07, -2.730E-07, -2.950E-07, -3.166E-07,
     4     -3.510E-07, -3.791E-07, -3.446E-07, -3.446E-07, -3.447E-07,
     5     -3.307E-07, -3.231E-07, -3.512E-07, -3.436E-07, -3.439E-07,
     6     -3.503E-07, -3.500E-07, -3.565E-07, -3.708E-07, -3.845E-07,
     7     -3.845E-07, -4.065E-07, -3.986E-07, -4.061E-07, -4.065E-07,
     8     -4.205E-07, -3.925E-07, -3.861E-07, -3.580E-07, -3.720E-07,
     9     -3.720E-07, -4.001E-07, -4.141E-07, -4.140E-07, -4.138E-07,
     $     -4.338E-07, -4.263E-07, -4.123E-07, -3.900E-07, -3.620E-07,
     1     -3.480E-07, -3.265E-07, -3.408E-07, -3.268E-07, -3.470E-07,
     2     -3.674E-07, -4.095E-07, -4.515E-07, -4.723E-07, -4.863E-07,
     3     -5.143E-07, -5.205E-07, -4.925E-07, -4.571E-07, -4.151E-07,
     4     -4.011E-07, -3.932E-07, -3.713E-07, -3.652E-07, -3.574E-07,
     5     -3.495E-07, -3.632E-07, -3.635E-07, -3.977E-07, -4.602E-07,
     6     -5.084E-07, -5.569E-07, -5.286E-07, -4.930E-07, -4.431E-07,
     7     -4.216E-07, -4.061E-07, -4.262E-07, -4.187E-07, -4.248E-07,
     8     -4.234E-07, -4.018E-07, -4.219E-07, -4.223E-07, -4.640E-07,
     9     -4.924E-07, -5.283E-07, -5.424E-07, -5.223E-07, -4.802E-07,
     $     -4.522E-07, -4.241E-07, -4.178E-07, -4.181E-07, -3.976E-07/
      DATA (Z(I),I= 2101, 2200)/
     1     -4.256E-07, -4.472E-07, -4.674E-07, -4.750E-07, -4.825E-07,
     2     -4.702E-07, -4.562E-07, -4.498E-07, -4.716E-07, -4.792E-07,
     3     -4.867E-07, -4.884E-07, -4.820E-07, -4.618E-07, -4.355E-07,
     4     -4.290E-07, -4.664E-07, -5.023E-07, -5.177E-07, -5.191E-07,
     5     -4.852E-07, -4.446E-07, -4.101E-07, -3.975E-07, -4.272E-07,
     6     -4.426E-07, -4.505E-07, -4.235E-07, -3.815E-07, -3.330E-07,
     7     -2.910E-07, -3.124E-07, -3.279E-07, -3.699E-07, -3.978E-07,
     8     -3.914E-07, -3.569E-07, -3.166E-07, -2.821E-07, -2.896E-07,
     9     -3.115E-07, -3.269E-07, -3.485E-07, -3.280E-07, -3.140E-07,
     $     -2.999E-07, -2.863E-07, -3.079E-07, -3.139E-07, -3.139E-07,
     1     -3.218E-07, -3.075E-07, -3.496E-07, -3.417E-07, -3.277E-07,
     2     -3.415E-07, -3.476E-07, -3.695E-07, -3.757E-07, -3.617E-07,
     3     -3.617E-07, -3.603E-07, -3.463E-07, -3.463E-07, -3.448E-07,
     4     -3.448E-07, -3.448E-07, -3.509E-07, -3.714E-07, -3.775E-07,
     5     -3.918E-07, -3.840E-07, -3.764E-07, -3.545E-07, -3.265E-07,
     6     -3.531E-07, -3.812E-07, -4.156E-07, -4.361E-07, -4.362E-07,
     7     -4.143E-07, -4.208E-07, -3.928E-07, -4.068E-07, -4.349E-07,
     8     -4.553E-07, -4.895E-07, -4.755E-07, -4.616E-07, -4.256E-07,
     9     -4.119E-07, -4.181E-07, -4.325E-07, -4.386E-07, -4.670E-07,
     $     -4.734E-07, -4.734E-07, -4.659E-07, -4.723E-07, -5.004E-07/
      DATA (Z(I),I= 2201, 2300)/
     1     -5.141E-07, -5.342E-07, -5.763E-07, -5.623E-07, -5.404E-07,
     2     -5.124E-07, -4.905E-07, -4.905E-07, -4.905E-07, -5.109E-07,
     3     -5.250E-07, -5.455E-07, -5.315E-07, -5.379E-07, -5.382E-07,
     4     -5.303E-07, -5.239E-07, -4.958E-07, -5.020E-07, -5.098E-07,
     5     -4.879E-07, -4.879E-07, -4.800E-07, -4.876E-07, -4.879E-07,
     6     -5.016E-07, -5.159E-07, -5.439E-07, -5.296E-07, -5.158E-07,
     7     -5.159E-07, -5.094E-07, -4.875E-07, -4.735E-07, -4.735E-07,
     8     -4.735E-07, -4.811E-07, -4.671E-07, -4.954E-07, -4.893E-07,
     9     -4.673E-07, -4.534E-07, -4.394E-07, -4.037E-07, -4.037E-07,
     $     -4.241E-07, -4.662E-07, -4.942E-07, -5.226E-07, -5.147E-07,
     1     -5.007E-07, -5.147E-07, -5.007E-07, -5.007E-07, -4.928E-07,
     2     -5.008E-07, -4.791E-07, -5.072E-07, -5.198E-07, -5.338E-07,
     3     -5.478E-07, -5.324E-07, -5.327E-07, -5.108E-07, -4.892E-07,
     4     -5.093E-07, -5.514E-07, -5.715E-07, -6.060E-07, -6.481E-07,
     5     -5.982E-07, -5.766E-07, -5.483E-07, -5.203E-07, -5.344E-07,
     6     -5.405E-07, -5.265E-07, -5.469E-07, -5.405E-07, -5.466E-07,
     7     -5.326E-07, -5.324E-07, -5.607E-07, -5.542E-07, -5.747E-07,
     8     -5.826E-07, -5.966E-07, -5.966E-07, -5.765E-07, -5.625E-07,
     9     -5.487E-07, -5.423E-07, -5.438E-07, -5.300E-07, -5.236E-07,
     $     -5.311E-07, -5.527E-07, -5.466E-07, -5.541E-07, -5.480E-07/
      DATA (Z(I),I= 2301, 2400)/
     1     -5.415E-07, -5.289E-07, -5.009E-07, -4.883E-07, -5.099E-07,
     2     -5.037E-07, -4.973E-07, -4.911E-07, -4.286E-07, -3.660E-07,
     3     -3.035E-07, -2.489E-07, -2.844E-07, -3.340E-07, -3.760E-07,
     4     -4.335E-07, -4.410E-07, -4.269E-07, -4.488E-07, -4.348E-07,
     5     -4.423E-07, -4.286E-07, -4.221E-07, -4.081E-07, -4.019E-07,
     6     -4.019E-07, -3.599E-07, -3.459E-07, -3.179E-07, -3.395E-07,
     7     -3.473E-07, -3.754E-07, -4.034E-07, -4.031E-07, -4.033E-07,
     8     -3.969E-07, -3.969E-07, -3.890E-07, -3.891E-07, -4.031E-07,
     9     -4.031E-07, -4.031E-07, -4.031E-07, -4.031E-07, -4.095E-07,
     $     -4.235E-07, -4.019E-07, -4.160E-07, -3.958E-07, -3.882E-07,
     1     -3.742E-07, -3.804E-07, -3.944E-07, -4.011E-07, -4.073E-07,
     2     -4.073E-07, -3.994E-07, -3.997E-07, -3.919E-07, -4.059E-07,
     3     -3.983E-07, -3.983E-07, -4.045E-07, -3.902E-07, -3.963E-07,
     4     -3.963E-07, -4.025E-07, -4.165E-07, -4.230E-07, -4.510E-07,
     5     -4.793E-07, -5.276E-07, -5.492E-07, -5.212E-07, -5.074E-07,
     6     -4.935E-07, -4.576E-07, -4.576E-07, -4.640E-07, -4.921E-07,
     7     -4.985E-07, -4.982E-07, -4.985E-07, -4.985E-07, -4.944E-07,
     8     -4.952E-07, -5.176E-07, -5.243E-07, -5.594E-07, -5.868E-07,
     9     -6.078E-07, -6.009E-07, -5.939E-07, -5.869E-07, -5.502E-07,
     $     -5.515E-07, -5.487E-07, -5.599E-07, -5.661E-07, -5.695E-07/
      DATA (Z(I),I= 2401, 2500)/
     1     -5.667E-07, -5.574E-07, -5.560E-07, -5.532E-07, -5.221E-07,
     2     -5.314E-07, -5.061E-07, -4.870E-07, -4.811E-07, -4.715E-07,
     3     -4.773E-07, -4.683E-07, -4.601E-07, -4.733E-07, -4.546E-07,
     4     -4.414E-07, -4.385E-07, -4.191E-07, -4.363E-07, -4.309E-07,
     5     -4.395E-07, -4.499E-07, -4.353E-07, -4.183E-07, -4.019E-07,
     6     -4.052E-07, -3.913E-07, -3.900E-07, -3.902E-07, -3.931E-07,
     7     -3.953E-07, -3.960E-07, -3.944E-07, -3.943E-07, -3.948E-07,
     8     -3.911E-07, -3.817E-07, -3.704E-07, -3.583E-07, -3.475E-07,
     9     -3.403E-07, -3.394E-07, -3.356E-07, -3.333E-07, -3.309E-07,
     $     -3.257E-07, -3.206E-07, -3.148E-07, -3.096E-07, -3.108E-07,
     1     -3.247E-07, -3.364E-07, -3.517E-07, -3.635E-07, -3.555E-07,
     2     -3.400E-07, -3.238E-07, -3.082E-07, -3.003E-07, -3.170E-07,
     3     -3.359E-07, -3.518E-07, -3.707E-07, -3.698E-07, -3.543E-07,
     4     -3.388E-07, -3.232E-07, -3.092E-07, -3.154E-07, -3.275E-07,
     5     -3.359E-07, -3.486E-07, -3.578E-07, -3.578E-07, -3.607E-07,
     6     -3.643E-07, -3.672E-07, -3.668E-07, -3.645E-07, -3.628E-07,
     7     -3.626E-07, -3.652E-07, -3.859E-07, -4.088E-07, -4.338E-07,
     8     -4.595E-07, -4.744E-07, -4.748E-07, -4.758E-07, -4.761E-07,
     9     -4.772E-07, -4.909E-07, -5.102E-07, -5.308E-07, -5.501E-07,
     $     -5.653E-07, -5.538E-07, -5.375E-07, -5.190E-07, -5.028E-07/
      DATA (Z(I),I= 2501, 2600)/
     1     -4.997E-07, -5.220E-07, -5.441E-07, -5.685E-07, -5.907E-07,
     2     -5.939E-07, -5.815E-07, -5.711E-07, -5.615E-07, -5.499E-07,
     3     -5.515E-07, -5.545E-07, -5.589E-07, -5.625E-07, -5.621E-07,
     4     -5.540E-07, -5.438E-07, -5.328E-07, -5.212E-07, -5.144E-07,
     5     -5.105E-07, -5.065E-07, -5.034E-07, -4.994E-07, -4.926E-07,
     6     -4.837E-07, -4.761E-07, -4.672E-07, -4.611E-07, -4.521E-07,
     7     -4.445E-07, -4.370E-07, -4.294E-07, -4.233E-07, -4.186E-07,
     8     -4.159E-07, -4.126E-07, -4.093E-07, -4.018E-07, -3.901E-07,
     9     -3.776E-07, -3.659E-07, -3.542E-07, -3.515E-07, -3.558E-07,
     $     -3.600E-07, -3.643E-07, -3.651E-07, -3.546E-07, -3.379E-07,
     1     -3.204E-07, -3.058E-07, -2.933E-07, -2.947E-07, -2.975E-07,
     2     -3.010E-07, -3.052E-07, -3.066E-07, -2.933E-07, -2.793E-07,
     3     -2.667E-07, -2.563E-07, -2.499E-07, -2.561E-07, -2.603E-07,
     4     -2.686E-07, -2.762E-07, -2.712E-07, -2.599E-07, -2.459E-07,
     5     -2.360E-07, -2.240E-07, -2.218E-07, -2.260E-07, -2.294E-07,
     6     -2.328E-07, -2.370E-07, -2.342E-07, -2.306E-07, -2.292E-07,
     7     -2.250E-07, -2.243E-07, -2.236E-07, -2.216E-07, -2.216E-07,
     8     -2.210E-07, -2.225E-07, -2.246E-07, -2.290E-07, -2.318E-07,
     9     -2.354E-07, -2.376E-07, -2.313E-07, -2.245E-07, -2.198E-07,
     $     -2.129E-07, -2.102E-07, -2.160E-07, -2.210E-07, -2.253E-07/
      DATA (Z(I),I= 2601, 2700)/
     1     -2.297E-07, -2.306E-07, -2.237E-07, -2.176E-07, -2.121E-07,
     2     -2.066E-07, -2.062E-07, -2.077E-07, -2.092E-07, -2.143E-07,
     3     -2.144E-07, -2.140E-07, -2.119E-07, -2.085E-07, -2.058E-07,
     4     -2.010E-07, -1.997E-07, -1.970E-07, -1.936E-07, -1.915E-07,
     5     -1.896E-07, -1.874E-07, -1.838E-07, -1.816E-07, -1.794E-07,
     6     -1.778E-07, -1.750E-07, -1.706E-07, -1.698E-07, -1.662E-07,
     7     -1.648E-07, -1.632E-07, -1.602E-07, -1.580E-07, -1.586E-07,
     8     -1.557E-07, -1.549E-07, -1.527E-07, -1.525E-07, -1.489E-07,
     9     -1.487E-07, -1.479E-07, -1.486E-07, -1.484E-07, -1.491E-07,
     $     -1.489E-07, -1.488E-07, -1.494E-07, -1.493E-07, -1.485E-07,
     1     -1.484E-07, -1.518E-07, -1.526E-07, -1.547E-07, -1.569E-07,
     2     -1.575E-07, -1.611E-07, -1.632E-07, -1.640E-07, -1.654E-07,
     3     -1.682E-07, -1.696E-07, -1.740E-07, -1.783E-07, -1.811E-07,
     4     -1.855E-07, -1.885E-07, -1.927E-07, -1.956E-07, -1.992E-07,
     5     -2.028E-07, -2.051E-07, -2.067E-07, -2.069E-07, -2.099E-07,
     6     -2.094E-07, -2.109E-07, -2.126E-07, -2.141E-07, -2.136E-07,
     7     -2.131E-07, -2.140E-07, -2.135E-07, -2.124E-07, -2.105E-07,
     8     -2.093E-07, -2.081E-07, -2.055E-07, -2.058E-07, -2.039E-07,
     9     -2.028E-07, -2.023E-07, -1.996E-07, -1.984E-07, -1.951E-07,
     $     -1.959E-07, -1.940E-07, -1.928E-07, -1.901E-07, -1.889E-07/
      DATA (Z(I),I= 2701, 2800)/
     1     -1.870E-07, -1.843E-07, -1.823E-07, -1.782E-07, -1.755E-07,
     2     -1.728E-07, -1.702E-07, -1.647E-07, -1.634E-07, -1.593E-07,
     3     -1.566E-07, -1.518E-07, -1.491E-07, -1.464E-07, -1.436E-07,
     4     -1.423E-07, -1.381E-07, -1.368E-07, -1.334E-07, -1.299E-07,
     5     -1.287E-07, -1.258E-07, -1.232E-07, -1.203E-07, -1.163E-07,
     6     -1.157E-07, -1.129E-07, -1.088E-07, -1.081E-07, -1.047E-07,
     7     -1.019E-07, -1.006E-07, -9.780E-08, -9.514E-08, -9.455E-08,
     8     -9.330E-08, -9.128E-08, -8.923E-08, -8.864E-08, -8.879E-08,
     9     -8.536E-08, -8.615E-08, -8.414E-08, -8.288E-08, -8.226E-08,
     $     -8.305E-08, -8.305E-08, -8.244E-08, -8.183E-08, -8.198E-08,
     1     -8.478E-08, -8.417E-08, -8.356E-08, -8.435E-08, -8.370E-08,
     2     -8.370E-08, -8.432E-08, -8.575E-08, -8.651E-08, -8.651E-08,
     3     -8.510E-08, -8.648E-08, -8.648E-08, -8.788E-08, -8.928E-08,
     4     -8.785E-08, -8.645E-08, -8.770E-08, -8.627E-08, -8.627E-08,
     5     -8.627E-08, -8.685E-08, -8.685E-08, -8.609E-08, -8.606E-08,
     6     -8.462E-08, -8.257E-08, -8.394E-08, -8.330E-08, -8.186E-08,
     7     -8.265E-08, -8.186E-08, -8.122E-08, -7.978E-08, -7.913E-08,
     8     -7.910E-08, -7.641E-08, -7.517E-08, -7.453E-08, -7.326E-08,
     9     -7.060E-08, -6.998E-08, -6.732E-08, -6.886E-08, -6.541E-08,
     $     -6.417E-08, -6.353E-08, -6.230E-08, -6.308E-08, -6.246E-08/
      DATA (Z(I),I= 2801, 2900)/
     1     -6.325E-08, -6.126E-08, -6.205E-08, -6.000E-08, -6.078E-08,
     2     -5.815E-08, -5.893E-08, -5.896E-08, -5.896E-08, -5.960E-08,
     3     -5.960E-08, -5.823E-08, -6.027E-08, -6.013E-08, -6.048E-08,
     4     -6.090E-08, -6.196E-08, -6.042E-08, -6.145E-08, -6.167E-08,
     5     -5.982E-08, -6.005E-08, -6.021E-08, -6.029E-08, -5.844E-08,
     6     -6.004E-08, -5.883E-08, -5.981E-08, -5.916E-08, -5.857E-08,
     7     -5.779E-08, -5.930E-08, -5.790E-08, -5.801E-08, -5.863E-08,
     8     -5.798E-08, -5.719E-08, -5.717E-08, -5.717E-08, -5.714E-08,
     9     -5.653E-08, -5.933E-08, -5.872E-08, -5.808E-08, -5.948E-08,
     $     -5.887E-08, -5.965E-08, -5.963E-08, -5.901E-08, -6.121E-08,
     1     -6.056E-08, -6.135E-08, -5.991E-08, -6.146E-08, -6.146E-08,
     2     -6.222E-08, -6.300E-08, -6.376E-08, -6.315E-08, -6.455E-08,
     3     -6.530E-08, -6.465E-08, -6.544E-08, -6.339E-08, -6.414E-08,
     4     -6.493E-08, -6.367E-08, -6.506E-08, -6.377E-08, -6.377E-08,
     5     -6.315E-08, -6.390E-08, -6.283E-08, -6.306E-08, -6.258E-08,
     6     -6.160E-08, -6.109E-08, -6.061E-08, -6.010E-08, -5.830E-08,
     7     -5.820E-08, -5.667E-08, -5.671E-08, -5.521E-08, -5.468E-08,
     8     -5.347E-08, -5.241E-08, -5.126E-08, -5.032E-08, -4.923E-08,
     9     -4.822E-08, -4.715E-08, -4.619E-08, -4.512E-08, -4.411E-08,
     $     -4.294E-08, -4.198E-08, -4.082E-08, -3.972E-08, -3.848E-08/
      DATA (Z(I),I= 2901, 3000)/
     1     -3.765E-08, -3.656E-08, -3.531E-08, -3.421E-08, -3.319E-08,
     2     -3.209E-08, -3.131E-08, -3.082E-08, -3.010E-08, -2.947E-08,
     3     -2.890E-08, -2.833E-08, -2.776E-08, -2.718E-08, -2.669E-08,
     4     -2.626E-08, -2.569E-08, -2.517E-08, -2.505E-08, -2.494E-08,
     5     -2.504E-08, -2.485E-08, -2.481E-08, -2.454E-08, -2.444E-08,
     6     -2.453E-08, -2.435E-08, -2.416E-08, -2.425E-08, -2.419E-08,
     7     -2.441E-08, -2.454E-08, -2.448E-08, -2.470E-08, -2.463E-08,
     8     -2.491E-08, -2.499E-08, -2.485E-08, -2.506E-08, -2.514E-08,
     9     -2.521E-08, -2.494E-08, -2.501E-08, -2.488E-08, -2.488E-08,
     $     -2.460E-08, -2.475E-08, -2.468E-08, -2.470E-08, -2.462E-08,
     1     -2.442E-08, -2.429E-08, -2.417E-08, -2.398E-08, -2.373E-08,
     2     -2.353E-08, -2.314E-08, -2.295E-08, -2.276E-08, -2.264E-08,
     3     -2.245E-08, -2.212E-08, -2.200E-08, -2.163E-08, -2.146E-08,
     4     -2.114E-08, -2.091E-08, -2.081E-08, -2.064E-08, -2.047E-08,
     5     -2.009E-08, -1.999E-08, -1.982E-08, -1.959E-08, -1.907E-08,
     6     -1.885E-08, -1.841E-08, -1.804E-08, -1.760E-08, -1.724E-08,
     7     -1.674E-08, -1.630E-08, -1.579E-08, -1.564E-08, -1.513E-08,
     8     -1.483E-08, -1.431E-08, -1.401E-08, -1.350E-08, -1.320E-08,
     9     -1.289E-08, -1.238E-08, -1.228E-08, -1.190E-08, -1.146E-08,
     $     -1.116E-08, -1.064E-08, -1.033E-08, -1.040E-08, -1.028E-08/
      DATA (Z(I),I= 3001, 3080)/
     1     -1.042E-08, -1.036E-08, -1.023E-08, -1.037E-08, -1.045E-08,
     2     -1.025E-08, -1.033E-08, -1.026E-08, -1.040E-08, -1.054E-08,
     3     -1.080E-08, -1.111E-08, -1.150E-08, -1.190E-08, -1.207E-08,
     4     -1.260E-08, -1.272E-08, -1.317E-08, -1.342E-08, -1.368E-08,
     5     -1.399E-08, -1.426E-08, -1.466E-08, -1.493E-08, -1.533E-08,
     6     -1.568E-08, -1.586E-08, -1.621E-08, -1.654E-08, -1.688E-08,
     7     -1.714E-08, -1.741E-08, -1.775E-08, -1.805E-08, -1.794E-08,
     8     -1.819E-08, -1.814E-08, -1.810E-08, -1.848E-08, -1.844E-08,
     9     -1.868E-08, -1.864E-08, -1.874E-08, -1.885E-08, -1.887E-08,
     $     -1.864E-08, -1.835E-08, -1.819E-08, -1.789E-08, -1.760E-08,
     1     -1.722E-08, -1.706E-08, -1.663E-08, -1.639E-08, -1.610E-08,
     2     -1.580E-08, -1.536E-08, -1.480E-08, -1.459E-08, -1.403E-08,
     3     -1.346E-08, -1.304E-08, -1.248E-08, -1.199E-08, -1.157E-08,
     4     -1.115E-08, -1.045E-08, -1.002E-08, -9.538E-09, -8.929E-09,
     5     -8.535E-09, -8.001E-09, -7.532E-09, -6.920E-09, -6.422E-09,
     6     -6.094E-09, -5.472E-09, -4.954E-09, -4.367E-09, -3.874E-09/
c
      if (v .lt. vbeg .or. v .gt. vend) then
         c0=0.0
         ct1=0.0
         ct2=0.0
      else if (v .eq. vend) then
c        This check prevents n from exceeding nmax in the algorithm below.
         c0=x(nmax)
         ct1=y(nmax)
         ct2=z(nmax)
      else
         xi = (v-vbeg)/vincr+1.
         n = xi+1.+1.E-6
         xd = xi-n
         c0 = x(n)+xd*(x(n)-x(n-1))
         ct1 = y(n)+xd*(y(n)-y(n-1))
         ct2 = z(n)+xd*(z(n)-z(n-1))
      endif   
      return
      end   


      BLOCK DATA BFCO2
C>    BLOCK DATA
C     IMPLICIT DOUBLE PRECISION (V)
      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)
C
C     CO2 CONTINUM RIDGEWAY 1982
C               UNITS OF (CM**2/MOL)*1.E-20
C
      COMMON /FCO2/ V1,V2,DV,NPT,C0000(2),
     1      C0001(50),C0051(50),C0101(50),C0151(50),C0201(50),C0251(50),
     2      C0301(50),C0351(50),C0401(50),C0451(50),C0501(50),C0551(50),
     3      C0601(50),C0651(50),C0701(50),C0751(50),C0801(50),C0851(50),
     4      C0901(50),C0951(50),C1001(1)
C
       DATA V1,V2,DV,NPT /
     1      -20.0,     10000.0,       10.0,  1003/
C
C
      DATA C0000/ 1.1110E-11, 1.0188E-11/
      DATA C0001/
     X 9.3516E-12, 1.0188E-11, 1.1110E-11, 1.2127E-11, 1.3251E-11,
     X 1.4495E-11, 1.5872E-11, 1.7400E-11, 1.9097E-11, 2.0985E-11,
     X 2.3087E-11, 2.5431E-11, 2.8051E-11, 3.0982E-11, 3.4268E-11,
     X 3.7956E-11, 4.2105E-11, 4.6779E-11, 5.2056E-11, 5.8025E-11,
     X 6.4791E-11, 7.2477E-11, 8.1226E-11, 9.1209E-11, 1.0263E-10,
     X 1.1572E-10, 1.3078E-10, 1.4814E-10, 1.6821E-10, 1.9148E-10,
     X 2.1857E-10, 2.5019E-10, 2.8723E-10, 3.3080E-10, 3.8223E-10,
     X 4.4321E-10, 5.1583E-10, 6.0274E-10, 7.0725E-10, 8.3363E-10,
     X 9.8735E-10, 1.1755E-09, 1.4074E-09, 1.6953E-09, 2.0557E-09,
     X 2.5107E-09, 3.0909E-09, 3.8391E-09, 4.8165E-09, 6.1117E-09/
      DATA C0051/
     X 7.8550E-09, 1.0241E-08, 1.3593E-08, 1.8344E-08, 2.5408E-08,
     X 3.6386E-08, 5.4251E-08, 8.4262E-08, 1.3273E-07, 2.1867E-07,
     X 3.5007E-07, 6.0011E-07, 1.0797E-06, 1.8254E-06, 3.1621E-06,
     X 4.0293E-06, 4.3683E-06, 4.4552E-06, 4.2684E-06, 3.9341E-06,
     X 2.5972E-06, 1.5617E-06, 8.9063E-07, 5.0360E-07, 3.0616E-07,
     X 1.9066E-07, 1.1904E-07, 7.6078E-08, 4.9304E-08, 3.3335E-08,
     X 2.3494E-08, 1.7114E-08, 1.2742E-08, 9.6068E-09, 7.3706E-09,
     X 5.7386E-09, 4.5302E-09, 3.6223E-09, 2.9309E-09, 2.4001E-09,
     X 1.9927E-09, 1.6877E-09, 1.4602E-09, 1.2764E-09, 1.1317E-09,
     X 1.0273E-09, 9.1943E-10, 8.0353E-10, 6.8746E-10, 5.9354E-10/
      DATA C0101/
     X 5.1722E-10, 4.4975E-10, 4.2350E-10, 4.2282E-10, 4.2610E-10,
     X 4.5465E-10, 4.6166E-10, 4.3149E-10, 3.7615E-10, 3.1576E-10,
     X 2.6490E-10, 1.9143E-10, 1.2885E-10, 9.4954E-11, 7.6499E-11,
     X 6.4581E-11, 5.5923E-11, 4.9200E-11, 4.3813E-11, 3.9533E-11,
     X 3.6338E-11, 3.4320E-11, 3.3329E-11, 3.2400E-11, 3.1700E-11,
     X 3.1267E-11, 2.9940E-11, 2.7628E-11, 2.4496E-11, 2.1764E-11,
     X 1.9306E-11, 1.7352E-11, 1.7292E-11, 1.8733E-11, 2.0224E-11,
     X 2.2396E-11, 2.4225E-11, 2.4890E-11, 2.3513E-11, 2.0824E-11,
     X 1.8642E-11, 1.5676E-11, 1.2882E-11, 1.1054E-11, 1.0074E-11,
     X 9.6324E-12, 9.4910E-12, 9.5134E-12, 9.6427E-12, 9.8552E-12/
      DATA C0151/
     X 1.0140E-11, 1.0494E-11, 1.0915E-11, 1.1405E-11, 1.1965E-11,
     X 1.2601E-11, 1.3316E-11, 1.4116E-11, 1.5006E-11, 1.5997E-11,
     X 1.7092E-11, 1.8305E-11, 1.9641E-11, 2.1121E-11, 2.2744E-11,
     X 2.4503E-11, 2.6419E-11, 2.8221E-11, 3.0609E-11, 3.3260E-11,
     X 3.6247E-11, 3.9581E-11, 4.3279E-11, 4.7376E-11, 5.1932E-11,
     X 5.7001E-11, 6.2654E-11, 6.8973E-11, 7.6058E-11, 8.4037E-11,
     X 9.3081E-11, 1.0344E-10, 1.1547E-10, 1.2970E-10, 1.4659E-10,
     X 1.6724E-10, 1.9481E-10, 2.3520E-10, 2.9424E-10, 3.6319E-10,
     X 4.2279E-10, 4.8494E-10, 5.2296E-10, 5.6111E-10, 5.8935E-10,
     X 6.0807E-10, 6.4204E-10, 6.8457E-10, 7.6709E-10, 8.7664E-10/
      DATA C0201/
     X 1.0183E-09, 1.2116E-09, 1.4874E-09, 1.8596E-09, 2.2742E-09,
     X 2.7577E-09, 3.1932E-09, 3.6381E-09, 4.1207E-09, 4.6458E-09,
     X 5.3065E-09, 6.0741E-09, 7.1942E-09, 8.7103E-09, 1.0713E-08,
     X 1.3344E-08, 1.6831E-08, 2.1524E-08, 2.7967E-08, 3.7047E-08,
     X 5.0312E-08, 7.0566E-08, 1.0275E-07, 1.5419E-07, 2.3309E-07,
     X 3.4843E-07, 5.3194E-07, 8.7207E-07, 1.5075E-06, 2.7077E-06,
     X 4.7125E-06, 7.1734E-06, 9.2381E-06, 1.1507E-05, 1.3737E-05,
     X 1.4004E-05, 1.2679E-05, 1.0478E-05, 8.5684E-06, 6.1472E-06,
     X 3.2424E-06, 1.5291E-06, 8.0390E-07, 4.6767E-07, 2.9170E-07,
     X 1.9148E-07, 1.3076E-07, 9.2156E-08, 6.6652E-08, 4.9265E-08/
      DATA C0251/
     X 3.7094E-08, 2.8380E-08, 2.2019E-08, 1.7297E-08, 1.3738E-08,
     X 1.1019E-08, 8.9178E-09, 7.2762E-09, 5.9810E-09, 4.9500E-09,
     X 4.1226E-09, 3.4534E-09, 2.9082E-09, 2.4611E-09, 2.0922E-09,
     X 1.7864E-09, 1.5313E-09, 1.3176E-09, 1.1379E-09, 9.8612E-10,
     X 8.5741E-10, 7.4782E-10, 6.5416E-10, 5.7384E-10, 5.0471E-10,
     X 4.4503E-10, 3.9334E-10, 3.4841E-10, 3.0927E-10, 2.7510E-10,
     X 2.4519E-10, 2.1893E-10, 1.9587E-10, 1.7555E-10, 1.5762E-10,
     X 1.4178E-10, 1.2772E-10, 1.1524E-10, 1.0414E-10, 9.4248E-11,
     X 8.5421E-11, 7.7530E-11, 7.0466E-11, 6.4134E-11, 5.8450E-11,
     X 5.3342E-11, 4.8746E-11, 4.4607E-11, 4.0874E-11, 3.7507E-11/
      DATA C0301/
     X 3.4466E-11, 3.1719E-11, 2.9237E-11, 2.6993E-11, 2.4968E-11,
     X 2.3139E-11, 2.1494E-11, 2.0022E-11, 1.8709E-11, 1.7541E-11,
     X 1.6533E-11, 1.5690E-11, 1.5027E-11, 1.4560E-11, 1.4169E-11,
     X 1.3796E-11, 1.3553E-11, 1.3526E-11, 1.3567E-11, 1.3399E-11,
     X 1.3149E-11, 1.3049E-11, 1.3078E-11, 1.3093E-11, 1.3168E-11,
     X 1.3572E-11, 1.4383E-11, 1.5698E-11, 1.7658E-11, 2.0197E-11,
     X 2.2845E-11, 2.5944E-11, 3.0250E-11, 3.5900E-11, 4.1482E-11,
     X 4.6602E-11, 5.2453E-11, 5.9754E-11, 6.9308E-11, 8.0696E-11,
     X 9.5737E-11, 1.1733E-10, 1.4793E-10, 1.9119E-10, 2.5355E-10,
     X 3.4588E-10, 4.8343E-10, 6.9378E-10, 1.0212E-09, 1.4858E-09/
      DATA C0351/
     X 2.0906E-09, 3.0576E-09, 4.6318E-09, 7.1585E-09, 1.1259E-08,
     X 1.7954E-08, 2.9760E-08, 4.6693E-08, 6.2035E-08, 7.4399E-08,
     X 9.1705E-08, 9.9448E-08, 9.5181E-08, 8.3050E-08, 7.1756E-08,
     X 6.6261E-08, 6.0357E-08, 6.6988E-08, 8.3419E-08, 9.8834E-08,
     X 1.2385E-07, 1.3962E-07, 1.3651E-07, 1.1963E-07, 9.7731E-08,
     X 8.0083E-08, 5.1660E-08, 2.5778E-08, 1.2600E-08, 6.8779E-09,
     X 4.1161E-09, 2.6276E-09, 1.7595E-09, 1.2225E-09, 8.7493E-10,
     X 6.4179E-10, 4.7987E-10, 3.6491E-10, 2.8191E-10, 2.2084E-10,
     X 1.7507E-10, 1.4025E-10, 1.1344E-10, 9.2580E-11, 7.6170E-11,
     X 6.3142E-11, 5.2694E-11, 4.4260E-11, 3.7421E-11, 3.1847E-11/
      DATA C0401/
     X 2.7263E-11, 2.3352E-11, 2.0081E-11, 1.7332E-11, 1.5000E-11,
     X 1.2978E-11, 1.1204E-11, 9.7513E-12, 8.5300E-12, 7.4888E-12,
     X 6.5947E-12, 5.8231E-12, 5.1548E-12, 4.5739E-12, 4.0675E-12,
     X 3.6250E-12, 3.2371E-12, 2.8963E-12, 2.5964E-12, 2.3316E-12,
     X 2.0975E-12, 1.8902E-12, 1.7061E-12, 1.5425E-12, 1.3967E-12,
     X 1.2665E-12, 1.1503E-12, 1.0463E-12, 9.5319E-13, 8.6963E-13,
     X 7.9461E-13, 7.2718E-13, 6.6654E-13, 6.1201E-13, 5.6296E-13,
     X 5.1894E-13, 4.7969E-13, 4.4494E-13, 4.1320E-13, 3.8529E-13,
     X 3.6202E-13, 3.4320E-13, 3.2546E-13, 3.0741E-13, 2.9156E-13,
     X 2.7819E-13, 2.6576E-13, 2.5327E-13, 2.4319E-13, 2.3770E-13/
      DATA C0451/
     X 2.3645E-13, 2.3967E-13, 2.4960E-13, 2.6858E-13, 2.9679E-13,
     X 3.3247E-13, 3.8487E-13, 4.7576E-13, 6.1833E-13, 8.0740E-13,
     X 1.0267E-12, 1.2291E-12, 1.4710E-12, 1.7211E-12, 1.8251E-12,
     X 1.8982E-12, 1.9768E-12, 2.1877E-12, 2.5008E-12, 3.0545E-12,
     X 4.1513E-12, 5.7469E-12, 7.7913E-12, 1.0873E-11, 1.5538E-11,
     X 2.2838E-11, 3.4153E-11, 4.9751E-11, 7.0591E-11, 1.0794E-10,
     X 1.7287E-10, 2.6554E-10, 3.5250E-10, 4.1952E-10, 5.1979E-10,
     X 5.7649E-10, 5.6168E-10, 5.0014E-10, 4.3670E-10, 4.0057E-10,
     X 3.5169E-10, 3.7578E-10, 5.5054E-10, 8.8962E-10, 1.2940E-09,
     X 1.6293E-09, 2.0553E-09, 2.3945E-09, 2.3926E-09, 2.1385E-09/
      DATA C0501/
     X 1.7637E-09, 1.4623E-09, 1.0150E-09, 5.5612E-10, 3.5162E-10,
     X 3.4009E-10, 4.1744E-10, 5.0009E-10, 6.0748E-10, 7.3258E-10,
     X 7.6553E-10, 7.2066E-10, 6.1317E-10, 5.1585E-10, 3.9136E-10,
     X 2.2991E-10, 1.2590E-10, 6.9549E-11, 3.8699E-11, 2.2976E-11,
     X 1.4702E-11, 9.9989E-12, 7.1233E-12, 5.2612E-12, 4.0298E-12,
     X 3.2395E-12, 2.7932E-12, 2.6331E-12, 2.7835E-12, 3.3167E-12,
     X 3.3581E-12, 3.3404E-12, 3.1243E-12, 2.8459E-12, 2.4092E-12,
     X 1.5349E-12, 9.7039E-13, 5.8611E-13, 3.9686E-13, 2.9332E-13,
     X 2.2795E-13, 1.8432E-13, 1.5287E-13, 1.2898E-13, 1.1019E-13,
     X 9.5041E-14, 8.2617E-14, 7.2310E-14, 6.3711E-14, 5.6561E-14/
      DATA C0551/
     X 5.0763E-14, 4.6525E-14, 4.4418E-14, 4.4681E-14, 4.7199E-14,
     X 5.0389E-14, 5.3620E-14, 6.0817E-14, 6.0192E-14, 5.5878E-14,
     X 4.9874E-14, 4.3955E-14, 3.9854E-14, 3.1697E-14, 3.1135E-14,
     X 3.4683E-14, 3.8789E-14, 4.6932E-14, 5.0213E-14, 4.7156E-14,
     X 4.2130E-14, 3.5554E-14, 3.0465E-14, 1.9216E-14, 1.1378E-14,
     X 8.2878E-15, 6.8260E-15, 6.0960E-15, 5.8135E-15, 5.9618E-15,
     X 6.8295E-15, 9.2943E-15, 1.2572E-14, 1.4837E-14, 1.8595E-14,
     X 2.1533E-14, 2.2008E-14, 2.1305E-14, 1.9743E-14, 2.0413E-14,
     X 2.1131E-14, 2.5346E-14, 3.3709E-14, 4.3995E-14, 5.8911E-14,
     X 7.8451E-14, 1.0537E-13, 1.4559E-13, 2.0405E-13, 2.6734E-13/
      DATA C0601/
     X 3.5029E-13, 4.9788E-13, 7.3207E-13, 1.0979E-12, 1.4960E-12,
     X 1.7906E-12, 2.2171E-12, 2.5369E-12, 2.5873E-12, 2.3871E-12,
     X 2.0730E-12, 1.9095E-12, 1.6227E-12, 1.3981E-12, 1.5228E-12,
     X 2.0956E-12, 3.2493E-12, 5.2740E-12, 8.6666E-12, 1.2672E-11,
     X 1.5725E-11, 1.9496E-11, 2.2858E-11, 2.2939E-11, 2.0597E-11,
     X 1.7021E-11, 1.4456E-11, 1.0794E-11, 7.1327E-12, 6.5438E-12,
     X 8.8057E-12, 1.2311E-11, 1.5284E-11, 1.9273E-11, 2.2796E-11,
     X 2.3156E-11, 2.0914E-11, 1.7298E-11, 1.4424E-11, 1.0127E-11,
     X 5.2952E-12, 2.5759E-12, 1.4304E-12, 9.4758E-13, 7.9895E-13,
     X 9.1124E-13, 1.2297E-12, 1.5898E-12, 1.9056E-12, 2.3905E-12/
      DATA C0651/
     X 2.6695E-12, 2.6297E-12, 2.3467E-12, 2.0058E-12, 1.6773E-12,
     X 1.1327E-12, 6.7331E-13, 4.0954E-13, 2.5152E-13, 1.4491E-13,
     X 9.0916E-14, 6.6510E-14, 5.9022E-14, 6.4403E-14, 8.3126E-14,
     X 1.2409E-13, 1.5153E-13, 1.6909E-13, 1.7938E-13, 1.9169E-13,
     X 2.1173E-13, 2.1941E-13, 2.6360E-13, 3.5956E-13, 4.8369E-13,
     X 5.9657E-13, 7.4062E-13, 8.9452E-13, 8.7899E-13, 8.2012E-13,
     X 7.4109E-13, 6.9845E-13, 6.3130E-13, 5.6538E-13, 6.9516E-13,
     X 9.9486E-13, 1.5226E-12, 2.4155E-12, 3.9119E-12, 6.3541E-12,
     X 1.0075E-11, 1.5903E-11, 2.5091E-11, 3.6282E-11, 4.6076E-11,
     X 5.6240E-11, 7.1126E-11, 7.0230E-11, 6.3642E-11, 5.3722E-11/
      DATA C0701/
     X 4.4651E-11, 3.4409E-11, 1.5287E-11, 7.2479E-12, 3.9218E-12,
     X 2.3172E-12, 1.4585E-12, 9.6297E-13, 6.6017E-13, 4.6655E-13,
     X 3.3814E-13, 2.5034E-13, 1.8874E-13, 1.4457E-13, 1.1228E-13,
     X 8.8284E-14, 7.0188E-14, 5.6365E-14, 4.5685E-14, 3.7357E-14,
     X 3.0817E-14, 2.5674E-14, 2.1679E-14, 1.8780E-14, 1.7243E-14,
     X 1.6273E-14, 1.5201E-14, 1.5091E-14, 1.4725E-14, 1.3668E-14,
     X 1.1940E-14, 1.0097E-14, 8.8905E-15, 7.1475E-15, 5.8080E-15,
     X 5.5216E-15, 5.9338E-15, 7.1932E-15, 9.9780E-15, 1.6167E-14,
     X 2.9100E-14, 5.2355E-14, 8.4889E-14, 1.1311E-13, 1.4192E-13,
     X 1.7648E-13, 1.8657E-13, 1.7498E-13, 1.4877E-13, 1.2578E-13/
      DATA C0751/
     X 1.0051E-13, 6.7213E-14, 5.4750E-14, 7.0454E-14, 1.1351E-13,
     X 1.8015E-13, 2.4825E-13, 3.0875E-13, 3.9200E-13, 4.2550E-13,
     X 4.0067E-13, 3.4438E-13, 2.8204E-13, 2.2432E-13, 1.3172E-13,
     X 6.2820E-14, 3.6474E-14, 2.9409E-14, 3.4164E-14, 4.8300E-14,
     X 6.4140E-14, 7.7284E-14, 9.7973E-14, 1.0969E-13, 1.0580E-13,
     X 9.2070E-14, 7.5008E-14, 6.1722E-14, 3.8874E-14, 1.9007E-14,
     X 9.6765E-15, 5.5169E-15, 3.5254E-15, 2.5012E-15, 2.0013E-15,
     X 1.8810E-15, 2.2143E-15, 3.5332E-15, 5.7552E-15, 7.3359E-15,
     X 8.3292E-15, 9.9174E-15, 1.0930E-14, 1.1185E-14, 1.0884E-14,
     X 1.0577E-14, 1.1048E-14, 1.1611E-14, 1.1128E-14, 1.0729E-14/
      DATA C0801/
     X 1.0248E-14, 1.0630E-14, 1.1793E-14, 1.3977E-14, 1.9857E-14,
     X 2.9182E-14, 4.2229E-14, 6.2710E-14, 9.0717E-14, 1.2561E-13,
     X 1.6951E-13, 2.2520E-13, 3.2470E-13, 4.5178E-13, 6.3104E-13,
     X 8.7521E-13, 1.1073E-12, 1.3534E-12, 1.6954E-12, 1.7005E-12,
     X 1.5993E-12, 1.4416E-12, 1.3280E-12, 1.2760E-12, 1.1076E-12,
     X 1.2850E-12, 1.6208E-12, 1.9527E-12, 2.4941E-12, 2.5077E-12,
     X 2.3156E-12, 2.0069E-12, 1.6301E-12, 1.2885E-12, 5.9863E-13,
     X 2.8012E-13, 1.5065E-13, 8.8802E-14, 5.5888E-14, 3.6951E-14,
     X 2.5393E-14, 1.8001E-14, 1.3093E-14, 9.7308E-15, 7.3665E-15,
     X 5.6662E-15, 4.4194E-15, 3.4897E-15, 2.7857E-15, 2.2457E-15/
      DATA C0851/
     X 1.8264E-15, 1.4973E-15, 1.2365E-15, 1.0280E-15, 8.5996E-16,
     X 7.2345E-16, 6.1182E-16, 5.1994E-16, 4.4388E-16, 3.8055E-16,
     X 3.2756E-16, 2.8300E-16, 2.4537E-16, 2.1347E-16, 1.8630E-16,
     X 1.6307E-16, 1.4314E-16, 1.2599E-16, 1.1117E-16, 9.8344E-17,
     X 8.7197E-17, 7.7487E-17, 6.9004E-17, 6.1577E-17, 5.5060E-17,
     X 4.9325E-17, 4.4271E-17, 3.9810E-17, 3.5861E-17, 3.2361E-17,
     X 2.9252E-17, 2.6487E-17, 2.4023E-17, 2.1826E-17, 1.9862E-17,
     X 1.8107E-17, 1.6536E-17, 1.5129E-17, 1.3869E-17, 1.2739E-17,
     X 1.1726E-17, 1.0820E-17, 1.0009E-17, 9.2846E-18, 8.6398E-18,
     X 8.0682E-18, 7.5641E-18, 7.1229E-18, 6.7411E-18, 6.4161E-18/
      DATA C0901/
     X 6.1455E-18, 5.9290E-18, 5.7662E-18, 5.6574E-18, 5.6049E-18,
     X 5.6112E-18, 5.6811E-18, 5.8200E-18, 6.0364E-18, 6.3405E-18,
     X 6.7450E-18, 7.2674E-18, 7.9298E-18, 8.7613E-18, 9.8010E-18,
     X 1.1086E-17, 1.2686E-17, 1.4679E-17, 1.7177E-17, 2.0335E-17,
     X 2.4384E-17, 2.9538E-17, 3.6416E-17, 4.5520E-17, 5.7788E-17,
     X 7.4676E-17, 9.8513E-17, 1.3323E-16, 1.8570E-16, 2.6897E-16,
     X 4.0958E-16, 6.6785E-16, 1.2064E-15, 2.4023E-15, 4.3240E-15,
     X 6.6353E-15, 8.6393E-15, 1.1433E-14, 1.3946E-14, 1.3611E-14,
     X 1.2557E-14, 1.0934E-14, 1.0039E-14, 8.5099E-15, 7.9557E-15,
     X 1.1346E-14, 1.8512E-14, 2.9285E-14, 4.1585E-14, 5.2809E-14/
      DATA C0951/
     X 7.0377E-14, 7.8094E-14, 7.3735E-14, 6.5845E-14, 5.5023E-14,
     X 4.6866E-14, 2.7430E-14, 1.5975E-14, 1.4522E-14, 1.7075E-14,
     X 2.0408E-14, 2.5119E-14, 3.1194E-14, 3.0280E-14, 2.7676E-14,
     X 2.3344E-14, 1.9466E-14, 1.4140E-14, 6.2087E-15, 3.0307E-15,
     X 1.6815E-15, 1.0169E-15, 6.5448E-16, 4.4162E-16, 3.0928E-16,
     X 2.2320E-16, 1.6511E-16, 1.2471E-16, 9.5881E-17, 7.4850E-17,
     X 5.9216E-17, 4.7400E-17, 3.8338E-17, 3.1298E-17, 2.5765E-17,
     X 2.1371E-17, 1.7848E-17, 1.5000E-17, 1.2679E-17, 1.0774E-17,
     X 9.2002E-18, 7.8922E-18, 6.7987E-18, 5.8800E-18, 5.1042E-18,
     X 4.4461E-18, 3.8855E-18, 3.4060E-18, 2.9944E-18, 2.6397E-18/
      DATA C1001/
     A 2.3331E-18/
C
      END

      SUBROUTINE ABSCNT(FREQ,J,TT,ABSCNTO3)
     
      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      PARAMETER(MAXCLY=49)
      DIMENSION TT(MAXCLY)

      COMMON /O3HUV/  V1S,V2S,DVS,NPTS,S(133)                           
      COMMON /O3CHAP/ V1O1,V2O1,DVO1,NPT1,O3CH(55)                    
      COMMON /O3HH0/ V10S,V20S,DV0S,NPTS0,S0(2687)
      COMMON /O3HH1/ V11S,V21S,DV1S,NPTS1,S1(2690)
      COMMON /O3HH2/ V12S,V22S,DV2S,NPTS2,S2(2690)

C--------------------------------------------------------------------
C                     PARAMETRES D'ENTREE
C--------------------------------------------------------------------
C  TEMP    ---------> TEMPERATURE DE LA COUCHE
C--------------------------------------------------------------------
      TEMP=1/TT(J)
      ABSCNTO3=0.0
C--------------------------------------------------------------------
C   CALCUL DE L'ABSORPTION PAR LE CONTINUUM DE L'OZONE
C--------------------------------------------------------------------


C--------- CONTINUUM DE LA BANDE D'ABSORPTION DE CHAPPUIS -----------

      CNTO3CH=0.
      IF(FREQ.LT.9170.0.OR.FREQ.GT.24565.0)GOTO 1
      V=FREQ
      CALL O3CHAPW(V,C0,CT1,CT2)
      TC=TEMP-273.15
      CNTO3CH=(C0+CT1*TC+CT2*TC*TC)*1.0E-20
 1    CONTINUE

C--------- CONTINUUM DE HARTLEY HUGGINS DANS L'UV -------------------

      CNTO3UV=0.
      IF(FREQ.LT.40800.0)GOTO 2
      IUV=INT((FREQ-40800.0)/100)+1
      CNTO3UV=(S(IUV+1)-S(IUV))/100.0*(FREQ-(40800.0+100.0*
     $             (IUV-1)))+S(IUV)
      
 2    CONTINUE

C--------- CONTINUUM DE HARTLEY HUGGINS -----------------------------

      CNTO3HH=0.
      IF(FREQ.LT.27370.0.OR.FREQ.GE.40800.0)GOTO 3
      IHH=INT((FREQ-27370.0)/5)+1
      TC=TEMP-273.15
      CNTO3HH=S0(IHH)*(1.+TC*S1(IHH)+TC*TC*S2(IHH))*1.0E-20
 3    CONTINUE

      ABSCNTO3=CNTO3UV+CNTO3CH+CNTO3HH

      RETURN
      END

      SUBROUTINE CONTHLBL(FREQ,CS0,CS,CF)

      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      COMMON /SH2O/ V1S1,V2S1,DVS1,NPTS1,SH2OT0(2003)
      COMMON /S260/ V1S2,V2S2,DVS2,NPTS2,SH2OT1(2003)
      COMMON /FH2O/ V1S3,V2S3,DVS3,NPTS3,FH2O(2003)
C********    WATER    ********                                          
C                                                                       
C                                                                       
      ICONT=INT(FREQ/10.)+3
      ACS0=SH2OT0(ICONT)
      ACS=SH2OT1(ICONT)
      ACF=FH2O(ICONT)
      BCS0=SH2OT0(ICONT+1)
      BCS=SH2OT1(ICONT+1)
      BCF=FH2O(ICONT+1)
C
      CS0=(BCS0-ACS0)*(FREQ-(ICONT-3)*10)/10.+ACS0
      CS=(BCS-ACS)*(FREQ-(ICONT-3)*10)/10.+ACS
      CF=(BCF-ACF)*(FREQ-(ICONT-3)*10)/10.+ACF
c     CS0=ACS0
c     CS=ACS
c     CF=ACF
C
      RETURN
      END
C
      SUBROUTINE CNTCO2LBL(FREQ,XCNTCO2,PR,TP)

      IMPLICIT DOUBLE PRECISION(A-H)
      IMPLICIT DOUBLE PRECISION(O-Z)

      COMMON /FCO2/ V1S,V2S,DVS,NPTS,S(1003)

      ICT=INT(FREQ/10.)+3
      CCO2=S(ICT)
      XCNTCO2=CCO2*1.0E-20*PR*TP*FREQ*1.0005

      RETURN
      END

