CCCCCCCCCCCCCCCCCCCCCCCCCCCCC -*- Mode: Fortran -*- CCCCCCCCCCCCCCCCCCCCCCCCCCC
CC adlerhadr5x26.f -- 
CC Author          : Fred Jegerlehner
CC Created On      : Wed Jul  3 18:11:25 2024
CC Last Modified By: Friedrich Jegerlehner
CC Last Modified On: Tue Jul 21 18:47:37 2026
CC RCS: $Id$
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CC Copyright (C) 2026 Friedrich Jegerlehner
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CC 
       subroutine adlerhadr5x(e,adler,errsta,errsys)
c Provides real part of 5 flavor hadronic contribution to photon vacuum polarization
c single precision ADLERHADR5 ; double precision DADLERHADR5
c ******************************************************************
c *                                                                *
c *      subroutine for the evaluation of the light hadron         *
c *           contributions to Adler function                      *
c *                    using fits to the                           *
c *          QED vacuum polarization from e^+ e^- data             *
c *                                                                *
c *    F. Jegerlehner, Institut für Physik                         *
c *                    Humboldt-Universität zu Berlin              *
c *                    Newtonstraße 15, D-12489 Berlin, Germany    *
c *    E-mail: fjeger@physik.hu-berlin.de                          *
c *    Phone :   +49-3375 500 277                                  *
c ******************************************************************
c  References:                                                     *
c  S.~Eidelman, F.~Jegerlehner, A.~L.~Kataev and O.~Veretin,
c  "Testing nonperturbative strong interaction effects via the Adler function",
c  Phys. Lett. B 454 (1999) 369  [hep-ph/9812521] and referencees therein
c  Application to Muon g-2:
c  F.~Jegerlehner,
c ``Hadronic contributions to the photon vacuum polarization and their role in precision physics,''
c  J. Phys. G \textbf{29}, 101-110 (2003)
c  doi:10.1088/0954-3899/29/1/311
c  [arXiv:hep-ph/0104304 [hep-ph]].
c
c     VERSION: 03/07/2024
c
      IMPLICIT NONE
      INTEGER NA,NB,NC,IJ,I,ini
      PARAMETER(NA=611)
      real e,adler,errsta,errsys
      real dad(3)
      REAL XX(NA),YY(NA,3)
      COMMON /ADA/XX,YY
      data ini/0/
C initialize data

      call adlerhad26

      if (e.eq.0.0) then
        adler=0.0
        errsta=0.0
        errsys=0.0
        return
      else if ((e.lt.XX(NA)).and.(e.ge.XX(1))) then
        ij=NA
        do while (XX(ij).gt.e)
          ij=ij-1
        enddo
        DO I=1,3
        dad(i)=YY(IJ,I)
     &    +(YY(IJ+1,I)-YY(IJ,I))/(XX(IJ+1)-XX(IJ))*(E-XX(IJ))
        ENDDO
        adler=dad(1)
        errsta=dad(2)
        errsys=dad(3)
        return
      else
         if (ini.le.10) then
            write(*,*) ' <adlerhadr5x26> out of range! e=',e
            ini=ini+1
            if (ini.eq.10) write(*,*) ' Warning: continuing anyway ...'
         endif
      endif
      return
      end

       subroutine dadlerhadr5x(de,dadler,derrsta,derrsys)
c Converts adlerhadr5x to double precision variables in dadlerhadr5x
c
       implicit none
       real *8 de,dadler,derrsta,derrsys
       real se,sadler,serrsta,serrsys
       se  =sngl(de)
       call adlerhadr5x(se,sadler,serrsta,serrsys)
       dadler   =dble(sadler)
       derrsta=dble(serrsta)
       derrsys=dble(serrsys)
       return
       end
c
c     ++++ Adler function data ++++  

      subroutine adlerhad26
       IMPLICIT NONE
       INTEGER NA,I,J
       PARAMETER(NA=611)
       REAL XX(NA),YY(NA,3)
       COMMON /ADA/XX,YY
  
c******************************************************************************
c*                                                                            *
c*    --- intRdatx ---                              Thu Feb 26 00:47:10 2026  *
c*                                                                            *
c***************************# FJ@HU Berlin #***********************************
  
c  "Adler function"            Update version (24/02/2026) 
  
c ISCAN:  0, Ismooth: 0, IGS: 0, DSET: WAVE, iplot: 0 itestflavorspl: 0
c IKE,Emin,Emax,NP,N,EPSREL:  2,-1.0000E+02,-1.0000E-06, 610, 10, 1.00E-02, 
c ALS(sta)(sys):  0.1184( 0.0007)( 0.0000), MZINP:  91.1880, MTOP:  172.40
c NF,IOR,ICHK: 5,4,2,ISU2: 0,NFL: 5,INAG: 1,inotail: 0, sin2W_ref: 1.00000
c CHPTCUT,EC,ECUT: 0.3180, 5.20, 11.50, sin2W_eff: 0.23153, s2W_ref/eff: 4.319
c IUNMIX,iomegaphidat:1, 2
  
  
  
       DATA  (XX   (I), I=   1, 100) /
     &  -1.00000000E+02,-9.98360656E+01,-9.96721312E+01,-9.95081967E+01,
     &  -9.93442623E+01,-9.91803279E+01,-9.90163935E+01,-9.88524590E+01,
     &  -9.86885246E+01,-9.85245902E+01,-9.83606558E+01,-9.81967213E+01,
     &  -9.80327869E+01,-9.78688525E+01,-9.77049181E+01,-9.75409836E+01,
     &  -9.73770492E+01,-9.72131148E+01,-9.70491804E+01,-9.68852459E+01,
     &  -9.67213115E+01,-9.65573771E+01,-9.63934427E+01,-9.62295082E+01,
     &  -9.60655738E+01,-9.59016394E+01,-9.57377050E+01,-9.55737705E+01,
     &  -9.54098361E+01,-9.52459017E+01,-9.50819673E+01,-9.49180328E+01,
     &  -9.47540984E+01,-9.45901640E+01,-9.44262296E+01,-9.42622951E+01,
     &  -9.40983607E+01,-9.39344263E+01,-9.37704919E+01,-9.36065574E+01,
     &  -9.34426230E+01,-9.32786886E+01,-9.31147542E+01,-9.29508197E+01,
     &  -9.27868853E+01,-9.26229509E+01,-9.24590165E+01,-9.22950820E+01,
     &  -9.21311476E+01,-9.19672132E+01,-9.18032788E+01,-9.16393443E+01,
     &  -9.14754099E+01,-9.13114755E+01,-9.11475411E+01,-9.09836066E+01,
     &  -9.08196722E+01,-9.06557378E+01,-9.04918034E+01,-9.03278689E+01,
     &  -9.01639345E+01,-9.00000001E+01,-8.98360657E+01,-8.96721313E+01,
     &  -8.95081968E+01,-8.93442624E+01,-8.91803280E+01,-8.90163936E+01,
     &  -8.88524591E+01,-8.86885247E+01,-8.85245903E+01,-8.83606559E+01,
     &  -8.81967214E+01,-8.80327870E+01,-8.78688526E+01,-8.77049182E+01,
     &  -8.75409837E+01,-8.73770493E+01,-8.72131149E+01,-8.70491805E+01,
     &  -8.68852460E+01,-8.67213116E+01,-8.65573772E+01,-8.63934428E+01,
     &  -8.62295083E+01,-8.60655739E+01,-8.59016395E+01,-8.57377051E+01,
     &  -8.55737706E+01,-8.54098362E+01,-8.52459018E+01,-8.50819674E+01,
     &  -8.49180329E+01,-8.47540985E+01,-8.45901641E+01,-8.44262297E+01,
     &  -8.42622952E+01,-8.40983608E+01,-8.39344264E+01,-8.37704920E+01/
       DATA  (XX   (I), I= 101, 200) /
     &  -8.36065575E+01,-8.34426231E+01,-8.32786887E+01,-8.31147543E+01,
     &  -8.29508198E+01,-8.27868854E+01,-8.26229510E+01,-8.24590166E+01,
     &  -8.22950821E+01,-8.21311477E+01,-8.19672133E+01,-8.18032789E+01,
     &  -8.16393444E+01,-8.14754100E+01,-8.13114756E+01,-8.11475412E+01,
     &  -8.09836067E+01,-8.08196723E+01,-8.06557379E+01,-8.04918035E+01,
     &  -8.03278690E+01,-8.01639346E+01,-8.00000002E+01,-7.98360658E+01,
     &  -7.96721314E+01,-7.95081969E+01,-7.93442625E+01,-7.91803281E+01,
     &  -7.90163937E+01,-7.88524592E+01,-7.86885248E+01,-7.85245904E+01,
     &  -7.83606560E+01,-7.81967215E+01,-7.80327871E+01,-7.78688527E+01,
     &  -7.77049183E+01,-7.75409838E+01,-7.73770494E+01,-7.72131150E+01,
     &  -7.70491806E+01,-7.68852461E+01,-7.67213117E+01,-7.65573773E+01,
     &  -7.63934429E+01,-7.62295084E+01,-7.60655740E+01,-7.59016396E+01,
     &  -7.57377052E+01,-7.55737707E+01,-7.54098363E+01,-7.52459019E+01,
     &  -7.50819675E+01,-7.49180330E+01,-7.47540986E+01,-7.45901642E+01,
     &  -7.44262298E+01,-7.42622953E+01,-7.40983609E+01,-7.39344265E+01,
     &  -7.37704921E+01,-7.36065576E+01,-7.34426232E+01,-7.32786888E+01,
     &  -7.31147544E+01,-7.29508199E+01,-7.27868855E+01,-7.26229511E+01,
     &  -7.24590167E+01,-7.22950822E+01,-7.21311478E+01,-7.19672134E+01,
     &  -7.18032790E+01,-7.16393445E+01,-7.14754101E+01,-7.13114757E+01,
     &  -7.11475413E+01,-7.09836068E+01,-7.08196724E+01,-7.06557380E+01,
     &  -7.04918036E+01,-7.03278691E+01,-7.01639347E+01,-7.00000003E+01,
     &  -6.98360659E+01,-6.96721315E+01,-6.95081970E+01,-6.93442626E+01,
     &  -6.91803282E+01,-6.90163938E+01,-6.88524593E+01,-6.86885249E+01,
     &  -6.85245905E+01,-6.83606561E+01,-6.81967216E+01,-6.80327872E+01,
     &  -6.78688528E+01,-6.77049184E+01,-6.75409839E+01,-6.73770495E+01/
       DATA  (XX   (I), I= 201, 300) /
     &  -6.72131151E+01,-6.70491807E+01,-6.68852462E+01,-6.67213118E+01,
     &  -6.65573774E+01,-6.63934430E+01,-6.62295085E+01,-6.60655741E+01,
     &  -6.59016397E+01,-6.57377053E+01,-6.55737708E+01,-6.54098364E+01,
     &  -6.52459020E+01,-6.50819676E+01,-6.49180331E+01,-6.47540987E+01,
     &  -6.45901643E+01,-6.44262299E+01,-6.42622954E+01,-6.40983610E+01,
     &  -6.39344266E+01,-6.37704922E+01,-6.36065577E+01,-6.34426233E+01,
     &  -6.32786889E+01,-6.31147545E+01,-6.29508200E+01,-6.27868856E+01,
     &  -6.26229512E+01,-6.24590168E+01,-6.22950823E+01,-6.21311479E+01,
     &  -6.19672135E+01,-6.18032791E+01,-6.16393446E+01,-6.14754102E+01,
     &  -6.13114758E+01,-6.11475414E+01,-6.09836069E+01,-6.08196725E+01,
     &  -6.06557381E+01,-6.04918037E+01,-6.03278692E+01,-6.01639348E+01,
     &  -6.00000004E+01,-5.98360660E+01,-5.96721316E+01,-5.95081971E+01,
     &  -5.93442627E+01,-5.91803283E+01,-5.90163939E+01,-5.88524594E+01,
     &  -5.86885250E+01,-5.85245906E+01,-5.83606562E+01,-5.81967217E+01,
     &  -5.80327873E+01,-5.78688529E+01,-5.77049185E+01,-5.75409840E+01,
     &  -5.73770496E+01,-5.72131152E+01,-5.70491808E+01,-5.68852463E+01,
     &  -5.67213119E+01,-5.65573775E+01,-5.63934431E+01,-5.62295086E+01,
     &  -5.60655742E+01,-5.59016398E+01,-5.57377054E+01,-5.55737709E+01,
     &  -5.54098365E+01,-5.52459021E+01,-5.50819677E+01,-5.49180332E+01,
     &  -5.47540988E+01,-5.45901644E+01,-5.44262300E+01,-5.42622955E+01,
     &  -5.40983611E+01,-5.39344267E+01,-5.37704923E+01,-5.36065578E+01,
     &  -5.34426234E+01,-5.32786890E+01,-5.31147546E+01,-5.29508201E+01,
     &  -5.27868857E+01,-5.26229513E+01,-5.24590169E+01,-5.22950824E+01,
     &  -5.21311480E+01,-5.19672136E+01,-5.18032792E+01,-5.16393447E+01,
     &  -5.14754103E+01,-5.13114759E+01,-5.11475415E+01,-5.09836070E+01/
       DATA  (XX   (I), I= 301, 400) /
     &  -5.08196726E+01,-5.06557382E+01,-5.04918038E+01,-5.03278693E+01,
     &  -5.01639349E+01,-5.00000005E+01,-4.98360661E+01,-4.96721317E+01,
     &  -4.95081972E+01,-4.93442628E+01,-4.91803284E+01,-4.90163940E+01,
     &  -4.88524595E+01,-4.86885251E+01,-4.85245907E+01,-4.83606563E+01,
     &  -4.81967218E+01,-4.80327874E+01,-4.78688530E+01,-4.77049186E+01,
     &  -4.75409841E+01,-4.73770497E+01,-4.72131153E+01,-4.70491809E+01,
     &  -4.68852464E+01,-4.67213120E+01,-4.65573776E+01,-4.63934432E+01,
     &  -4.62295087E+01,-4.60655743E+01,-4.59016399E+01,-4.57377055E+01,
     &  -4.55737710E+01,-4.54098366E+01,-4.52459022E+01,-4.50819678E+01,
     &  -4.49180333E+01,-4.47540989E+01,-4.45901645E+01,-4.44262301E+01,
     &  -4.42622956E+01,-4.40983612E+01,-4.39344268E+01,-4.37704924E+01,
     &  -4.36065579E+01,-4.34426235E+01,-4.32786891E+01,-4.31147547E+01,
     &  -4.29508202E+01,-4.27868858E+01,-4.26229514E+01,-4.24590170E+01,
     &  -4.22950825E+01,-4.21311481E+01,-4.19672137E+01,-4.18032793E+01,
     &  -4.16393448E+01,-4.14754104E+01,-4.13114760E+01,-4.11475416E+01,
     &  -4.09836071E+01,-4.08196727E+01,-4.06557383E+01,-4.04918039E+01,
     &  -4.03278694E+01,-4.01639350E+01,-4.00000006E+01,-3.98360662E+01,
     &  -3.96721318E+01,-3.95081973E+01,-3.93442629E+01,-3.91803285E+01,
     &  -3.90163941E+01,-3.88524596E+01,-3.86885252E+01,-3.85245908E+01,
     &  -3.83606564E+01,-3.81967219E+01,-3.80327875E+01,-3.78688531E+01,
     &  -3.77049187E+01,-3.75409842E+01,-3.73770498E+01,-3.72131154E+01,
     &  -3.70491810E+01,-3.68852465E+01,-3.67213121E+01,-3.65573777E+01,
     &  -3.63934433E+01,-3.62295088E+01,-3.60655744E+01,-3.59016400E+01,
     &  -3.57377056E+01,-3.55737711E+01,-3.54098367E+01,-3.52459023E+01,
     &  -3.50819679E+01,-3.49180334E+01,-3.47540990E+01,-3.45901646E+01/
       DATA  (XX   (I), I= 401, 500) /
     &  -3.44262302E+01,-3.42622957E+01,-3.40983613E+01,-3.39344269E+01,
     &  -3.37704925E+01,-3.36065580E+01,-3.34426236E+01,-3.32786892E+01,
     &  -3.31147548E+01,-3.29508203E+01,-3.27868859E+01,-3.26229515E+01,
     &  -3.24590171E+01,-3.22950826E+01,-3.21311482E+01,-3.19672138E+01,
     &  -3.18032794E+01,-3.16393449E+01,-3.14754105E+01,-3.13114761E+01,
     &  -3.11475417E+01,-3.09836072E+01,-3.08196728E+01,-3.06557384E+01,
     &  -3.04918040E+01,-3.03278695E+01,-3.01639351E+01,-3.00000007E+01,
     &  -2.98360663E+01,-2.96721319E+01,-2.95081974E+01,-2.93442630E+01,
     &  -2.91803286E+01,-2.90163942E+01,-2.88524597E+01,-2.86885253E+01,
     &  -2.85245909E+01,-2.83606565E+01,-2.81967220E+01,-2.80327876E+01,
     &  -2.78688532E+01,-2.77049188E+01,-2.75409843E+01,-2.73770499E+01,
     &  -2.72131155E+01,-2.70491811E+01,-2.68852466E+01,-2.67213122E+01,
     &  -2.65573778E+01,-2.63934434E+01,-2.62295089E+01,-2.60655745E+01,
     &  -2.59016401E+01,-2.57377057E+01,-2.55737712E+01,-2.54098368E+01,
     &  -2.52459024E+01,-2.50819680E+01,-2.49180335E+01,-2.47540991E+01,
     &  -2.45901647E+01,-2.44262303E+01,-2.42622958E+01,-2.40983614E+01,
     &  -2.39344270E+01,-2.37704926E+01,-2.36065581E+01,-2.34426237E+01,
     &  -2.32786893E+01,-2.31147549E+01,-2.29508204E+01,-2.27868860E+01,
     &  -2.26229516E+01,-2.24590172E+01,-2.22950827E+01,-2.21311483E+01,
     &  -2.19672139E+01,-2.18032795E+01,-2.16393450E+01,-2.14754106E+01,
     &  -2.13114762E+01,-2.11475418E+01,-2.09836073E+01,-2.08196729E+01,
     &  -2.06557385E+01,-2.04918041E+01,-2.03278696E+01,-2.01639352E+01,
     &  -2.00000008E+01,-1.98360664E+01,-1.96721320E+01,-1.95081975E+01,
     &  -1.93442631E+01,-1.91803287E+01,-1.90163943E+01,-1.88524598E+01,
     &  -1.86885254E+01,-1.85245910E+01,-1.83606566E+01,-1.81967221E+01/
       DATA  (XX   (I), I= 501, 600) /
     &  -1.80327877E+01,-1.78688533E+01,-1.77049189E+01,-1.75409844E+01,
     &  -1.73770500E+01,-1.72131156E+01,-1.70491812E+01,-1.68852467E+01,
     &  -1.67213123E+01,-1.65573779E+01,-1.63934435E+01,-1.62295090E+01,
     &  -1.60655746E+01,-1.59016402E+01,-1.57377058E+01,-1.55737713E+01,
     &  -1.54098369E+01,-1.52459025E+01,-1.50819681E+01,-1.49180336E+01,
     &  -1.47540992E+01,-1.45901648E+01,-1.44262304E+01,-1.42622959E+01,
     &  -1.40983615E+01,-1.39344271E+01,-1.37704927E+01,-1.36065582E+01,
     &  -1.34426238E+01,-1.32786894E+01,-1.31147550E+01,-1.29508205E+01,
     &  -1.27868861E+01,-1.26229517E+01,-1.24590173E+01,-1.22950828E+01,
     &  -1.21311484E+01,-1.19672140E+01,-1.18032796E+01,-1.16393451E+01,
     &  -1.14754107E+01,-1.13114763E+01,-1.11475419E+01,-1.09836074E+01,
     &  -1.08196730E+01,-1.06557386E+01,-1.04918042E+01,-1.03278697E+01,
     &  -1.01639353E+01,-1.00000009E+01,-9.83606648E+00,-9.67213205E+00,
     &  -9.50819763E+00,-9.34426320E+00,-9.18032878E+00,-9.01639435E+00,
     &  -8.85245993E+00,-8.68852550E+00,-8.52459108E+00,-8.36065665E+00,
     &  -8.19672223E+00,-8.03278780E+00,-7.86885338E+00,-7.70491896E+00,
     &  -7.54098453E+00,-7.37705011E+00,-7.21311568E+00,-7.04918126E+00,
     &  -6.88524683E+00,-6.72131241E+00,-6.55737798E+00,-6.39344356E+00,
     &  -6.22950913E+00,-6.06557471E+00,-5.90164029E+00,-5.73770586E+00,
     &  -5.57377144E+00,-5.40983701E+00,-5.24590259E+00,-5.08196816E+00,
     &  -4.91803374E+00,-4.75409931E+00,-4.59016489E+00,-4.42623046E+00,
     &  -4.26229604E+00,-4.09836161E+00,-3.93442719E+00,-3.77049277E+00,
     &  -3.60655834E+00,-3.44262392E+00,-3.27868949E+00,-3.11475507E+00,
     &  -2.95082064E+00,-2.78688622E+00,-2.62295179E+00,-2.45901737E+00,
     &  -2.29508294E+00,-2.13114852E+00,-1.96721410E+00,-1.80327967E+00/
       DATA  (XX   (I), I= 601, 611) /
     &  -1.63934525E+00,-1.47541082E+00,-1.31147640E+00,-1.14754197E+00,
     &  -9.83607548E-01,-8.19673123E-01,-6.55738698E-01,-4.91804274E-01,
     &  -3.27869849E-01,-1.63935425E-01,-9.99998891E-07/
  
         DATA ((YY   (I,J), I=   1, 100), J=1,1) /
     &   3.79793353E+00, 3.79799583E+00, 3.79805810E+00, 3.79812033E+00,
     &   3.79818253E+00, 3.79824470E+00, 3.79830684E+00, 3.79836894E+00,
     &   3.79843101E+00, 3.79849305E+00, 3.79855505E+00, 3.79861702E+00,
     &   3.79867895E+00, 3.79874086E+00, 3.79880273E+00, 3.79886456E+00,
     &   3.79892636E+00, 3.79898813E+00, 3.79904986E+00, 3.79911156E+00,
     &   3.79917323E+00, 3.79923486E+00, 3.79929646E+00, 3.79935802E+00,
     &   3.79941954E+00, 3.79948104E+00, 3.79954249E+00, 3.79960392E+00,
     &   3.79966530E+00, 3.79972666E+00, 3.79978797E+00, 3.79984925E+00,
     &   3.79991050E+00, 3.79997171E+00, 3.80003288E+00, 3.80009402E+00,
     &   3.80015513E+00, 3.80021619E+00, 3.80027722E+00, 3.80033821E+00,
     &   3.80039917E+00, 3.80046009E+00, 3.80052097E+00, 3.80058182E+00,
     &   3.80064263E+00, 3.80070340E+00, 3.80076414E+00, 3.80082483E+00,
     &   3.80088549E+00, 3.80094611E+00, 3.80100669E+00, 3.80106724E+00,
     &   3.80112774E+00, 3.80118821E+00, 3.80124864E+00, 3.80130903E+00,
     &   3.80136938E+00, 3.80142969E+00, 3.80148996E+00, 3.80155019E+00,
     &   3.80161039E+00, 3.80167054E+00, 3.80173065E+00, 3.80179072E+00,
     &   3.80185075E+00, 3.80191074E+00, 3.80197069E+00, 3.80203060E+00,
     &   3.80209047E+00, 3.80215029E+00, 3.80221007E+00, 3.80226981E+00,
     &   3.80232951E+00, 3.80238917E+00, 3.80244878E+00, 3.80250835E+00,
     &   3.80256788E+00, 3.80262736E+00, 3.80268680E+00, 3.80274619E+00,
     &   3.80280555E+00, 3.80286485E+00, 3.80292411E+00, 3.80298333E+00,
     &   3.80304250E+00, 3.80310163E+00, 3.80316071E+00, 3.80321974E+00,
     &   3.80327873E+00, 3.80333767E+00, 3.80339656E+00, 3.80345538E+00,
     &   3.80351421E+00, 3.80357296E+00, 3.80363164E+00, 3.80369031E+00,
     &   3.80374887E+00, 3.80380743E+00, 3.80386598E+00, 3.80392444E+00/
  
         DATA ((YY   (I,J), I= 101, 200), J=1,1) /
     &   3.80398285E+00, 3.80404120E+00, 3.80409951E+00, 3.80415776E+00,
     &   3.80421596E+00, 3.80427406E+00, 3.80433216E+00, 3.80439025E+00,
     &   3.80444825E+00, 3.80450618E+00, 3.80456407E+00, 3.80462185E+00,
     &   3.80467962E+00, 3.80473740E+00, 3.80479506E+00, 3.80485267E+00,
     &   3.80491022E+00, 3.80496772E+00, 3.80502516E+00, 3.80508254E+00,
     &   3.80513986E+00, 3.80519713E+00, 3.80525433E+00, 3.80531148E+00,
     &   3.80536856E+00, 3.80542559E+00, 3.80548255E+00, 3.80553945E+00,
     &   3.80559630E+00, 3.80565307E+00, 3.80570979E+00, 3.80576644E+00,
     &   3.80582303E+00, 3.80587955E+00, 3.80593601E+00, 3.80599240E+00,
     &   3.80604872E+00, 3.80610498E+00, 3.80616117E+00, 3.80621730E+00,
     &   3.80627335E+00, 3.80632934E+00, 3.80638525E+00, 3.80644109E+00,
     &   3.80649687E+00, 3.80655257E+00, 3.80660820E+00, 3.80666375E+00,
     &   3.80671923E+00, 3.80677464E+00, 3.80682997E+00, 3.80688522E+00,
     &   3.80694040E+00, 3.80699546E+00, 3.80705053E+00, 3.80710547E+00,
     &   3.80716033E+00, 3.80721512E+00, 3.80726982E+00, 3.80732444E+00,
     &   3.80737898E+00, 3.80743343E+00, 3.80748780E+00, 3.80754208E+00,
     &   3.80759628E+00, 3.80765039E+00, 3.80770441E+00, 3.80775834E+00,
     &   3.80781219E+00, 3.80786594E+00, 3.80791960E+00, 3.80797317E+00,
     &   3.80802664E+00, 3.80808002E+00, 3.80813330E+00, 3.80818649E+00,
     &   3.80823958E+00, 3.80829257E+00, 3.80834546E+00, 3.80839825E+00,
     &   3.80845094E+00, 3.80850353E+00, 3.80855601E+00, 3.80860839E+00,
     &   3.80866066E+00, 3.80871282E+00, 3.80876487E+00, 3.80881682E+00,
     &   3.80886865E+00, 3.80892418E+00, 3.80897581E+00, 3.80902732E+00,
     &   3.80907871E+00, 3.80912999E+00, 3.80918115E+00, 3.80923527E+00,
     &   3.80928620E+00, 3.80933701E+00, 3.80938769E+00, 3.80943825E+00/
  
         DATA ((YY   (I,J), I= 201, 300), J=1,1) /
     &   3.80948868E+00, 3.80953898E+00, 3.80958916E+00, 3.80963920E+00,
     &   3.80968911E+00, 3.80973888E+00, 3.80978852E+00, 3.80983802E+00,
     &   3.80988738E+00, 3.80993660E+00, 3.80998567E+00, 3.81003460E+00,
     &   3.81008339E+00, 3.81013202E+00, 3.81018051E+00, 3.81022885E+00,
     &   3.81027703E+00, 3.81032505E+00, 3.81037292E+00, 3.81042063E+00,
     &   3.81046818E+00, 3.81051556E+00, 3.81056278E+00, 3.81060983E+00,
     &   3.81065672E+00, 3.81070343E+00, 3.81074996E+00, 3.81079632E+00,
     &   3.81084251E+00, 3.81088851E+00, 3.81093433E+00, 3.81097987E+00,
     &   3.81102541E+00, 3.81107067E+00, 3.81111573E+00, 3.81116060E+00,
     &   3.81120527E+00, 3.81124975E+00, 3.81129402E+00, 3.81133808E+00,
     &   3.81138194E+00, 3.81142558E+00, 3.81146902E+00, 3.81151213E+00,
     &   3.81155523E+00, 3.81159801E+00, 3.81164056E+00, 3.81168288E+00,
     &   3.81172498E+00, 3.81176684E+00, 3.81180846E+00, 3.81184984E+00,
     &   3.81189098E+00, 3.81193187E+00, 3.81197251E+00, 3.81201290E+00,
     &   3.81205303E+00, 3.81209290E+00, 3.81213250E+00, 3.81217184E+00,
     &   3.81221091E+00, 3.81224970E+00, 3.81228821E+00, 3.81232644E+00,
     &   3.81236438E+00, 3.81240203E+00, 3.81243939E+00, 3.81247645E+00,
     &   3.81251320E+00, 3.81254965E+00, 3.81258579E+00, 3.81262161E+00,
     &   3.81265711E+00, 3.81269228E+00, 3.81272712E+00, 3.81276163E+00,
     &   3.81279580E+00, 3.81282963E+00, 3.81286311E+00, 3.81289623E+00,
     &   3.81292899E+00, 3.81296139E+00, 3.81299342E+00, 3.81302507E+00,
     &   3.81305635E+00, 3.81308723E+00, 3.81311773E+00, 3.81314783E+00,
     &   3.81317752E+00, 3.81320681E+00, 3.81323568E+00, 3.81326412E+00,
     &   3.81329214E+00, 3.81331973E+00, 3.81334687E+00, 3.81337357E+00,
     &   3.81339981E+00, 3.81342560E+00, 3.81345091E+00, 3.81347575E+00/
  
         DATA ((YY   (I,J), I= 301, 400), J=1,1) /
     &   3.81350011E+00, 3.81352398E+00, 3.81354735E+00, 3.81357022E+00,
     &   3.81359257E+00, 3.81361441E+00, 3.81363572E+00, 3.81365649E+00,
     &   3.81367672E+00, 3.81369639E+00, 3.81371551E+00, 3.81373405E+00,
     &   3.81375201E+00, 3.81376939E+00, 3.81378617E+00, 3.81380235E+00,
     &   3.81381790E+00, 3.81383284E+00, 3.81384713E+00, 3.81386078E+00,
     &   3.81387378E+00, 3.81388611E+00, 3.81389776E+00, 3.81390873E+00,
     &   3.81391899E+00, 3.81392855E+00, 3.81393738E+00, 3.81394549E+00,
     &   3.81395284E+00, 3.81395944E+00, 3.81396528E+00, 3.81397033E+00,
     &   3.81397458E+00, 3.81397803E+00, 3.81398066E+00, 3.81398245E+00,
     &   3.81398340E+00, 3.81398348E+00, 3.81398269E+00, 3.81398101E+00,
     &   3.81397842E+00, 3.81397491E+00, 3.81397047E+00, 3.81396507E+00,
     &   3.81395871E+00, 3.81395040E+00, 3.81394204E+00, 3.81393267E+00,
     &   3.81392110E+00, 3.81390963E+00, 3.81389709E+00, 3.81388346E+00,
     &   3.81386872E+00, 3.81385286E+00, 3.81383585E+00, 3.81381768E+00,
     &   3.81379831E+00, 3.81377775E+00, 3.81375595E+00, 3.81373291E+00,
     &   3.81370859E+00, 3.81368298E+00, 3.81365606E+00, 3.81362779E+00,
     &   3.81359817E+00, 3.81356715E+00, 3.81353473E+00, 3.81350087E+00,
     &   3.81346554E+00, 3.81342873E+00, 3.81339040E+00, 3.81335052E+00,
     &   3.81330908E+00, 3.81326604E+00, 3.81322137E+00, 3.81317504E+00,
     &   3.81312702E+00, 3.81307728E+00, 3.81302580E+00, 3.81297253E+00,
     &   3.81291744E+00, 3.81286050E+00, 3.81280168E+00, 3.81274094E+00,
     &   3.81267825E+00, 3.81261356E+00, 3.81254685E+00, 3.81247806E+00,
     &   3.81240718E+00, 3.81233414E+00, 3.81225892E+00, 3.81218146E+00,
     &   3.81210174E+00, 3.81201970E+00, 3.81193530E+00, 3.81184850E+00,
     &   3.81175925E+00, 3.81166749E+00, 3.81157319E+00, 3.81147629E+00/
  
         DATA ((YY   (I,J), I= 401, 500), J=1,1) /
     &   3.81137674E+00, 3.81127449E+00, 3.81116949E+00, 3.81106024E+00,
     &   3.81095100E+00, 3.81083740E+00, 3.81072083E+00, 3.81060121E+00,
     &   3.81047850E+00, 3.81035262E+00, 3.81022352E+00, 3.81009113E+00,
     &   3.80995538E+00, 3.80981620E+00, 3.80967352E+00, 3.80952728E+00,
     &   3.80937739E+00, 3.80922379E+00, 3.80906639E+00, 3.80890512E+00,
     &   3.80873989E+00, 3.80857063E+00, 3.80839725E+00, 3.80821965E+00,
     &   3.80803776E+00, 3.80785149E+00, 3.80766073E+00, 3.80746539E+00,
     &   3.80726538E+00, 3.80706059E+00, 3.80685092E+00, 3.80663627E+00,
     &   3.80641653E+00, 3.80619158E+00, 3.80596131E+00, 3.80572561E+00,
     &   3.80548436E+00, 3.80523743E+00, 3.80498470E+00, 3.80472604E+00,
     &   3.80446131E+00, 3.80419039E+00, 3.80391312E+00, 3.80362938E+00,
     &   3.80333900E+00, 3.80304132E+00, 3.80273675E+00, 3.80242555E+00,
     &   3.80210710E+00, 3.80178123E+00, 3.80144776E+00, 3.80110652E+00,
     &   3.80075732E+00, 3.80039999E+00, 3.80003433E+00, 3.79966014E+00,
     &   3.79927722E+00, 3.79888536E+00, 3.79848436E+00, 3.79807399E+00,
     &   3.79765402E+00, 3.79722423E+00, 3.79678438E+00, 3.79633422E+00,
     &   3.79587350E+00, 3.79540197E+00, 3.79491935E+00, 3.79442537E+00,
     &   3.79391975E+00, 3.79340220E+00, 3.79287243E+00, 3.79233012E+00,
     &   3.79177496E+00, 3.79120663E+00, 3.79062479E+00, 3.79002909E+00,
     &   3.78941918E+00, 3.78879470E+00, 3.78815527E+00, 3.78750049E+00,
     &   3.78682998E+00, 3.78614332E+00, 3.78544008E+00, 3.78471983E+00,
     &   3.78398212E+00, 3.78322648E+00, 3.78245243E+00, 3.78165948E+00,
     &   3.78084712E+00, 3.78001482E+00, 3.77916204E+00, 3.77828823E+00,
     &   3.77739279E+00, 3.77647515E+00, 3.77553467E+00, 3.77457073E+00,
     &   3.77358267E+00, 3.77256981E+00, 3.77153145E+00, 3.77046686E+00/
  
         DATA ((YY   (I,J), I= 501, 600), J=1,1) /
     &   3.76937531E+00, 3.76824174E+00, 3.76710817E+00, 3.76593095E+00,
     &   3.76472351E+00, 3.76348496E+00, 3.76221439E+00, 3.76091084E+00,
     &   3.75957334E+00, 3.75820087E+00, 3.75679239E+00, 3.75534668E+00,
     &   3.75386284E+00, 3.75234519E+00, 3.75078143E+00, 3.74917579E+00,
     &   3.74752698E+00, 3.74583363E+00, 3.74409433E+00, 3.74230762E+00,
     &   3.74047200E+00, 3.73858587E+00, 3.73664760E+00, 3.73465549E+00,
     &   3.73260775E+00, 3.73050253E+00, 3.72833792E+00, 3.72611190E+00,
     &   3.72382238E+00, 3.72146717E+00, 3.71904399E+00, 3.71655047E+00,
     &   3.71398411E+00, 3.71134230E+00, 3.70862232E+00, 3.70582131E+00,
     &   3.70293627E+00, 3.69996406E+00, 3.69690138E+00, 3.69374475E+00,
     &   3.69049053E+00, 3.68713486E+00, 3.68367370E+00, 3.68010275E+00,
     &   3.67641749E+00, 3.67261315E+00, 3.66868463E+00, 3.66462658E+00,
     &   3.66043327E+00, 3.65610359E+00, 3.65162129E+00, 3.64698430E+00,
     &   3.64218525E+00, 3.63721625E+00, 3.63206886E+00, 3.62673394E+00,
     &   3.62120190E+00, 3.61546219E+00, 3.60950350E+00, 3.60331361E+00,
     &   3.59687932E+00, 3.59018631E+00, 3.58321905E+00, 3.57596062E+00,
     &   3.56839267E+00, 3.56049528E+00, 3.55224626E+00, 3.54362182E+00,
     &   3.53459571E+00, 3.52513919E+00, 3.51522069E+00, 3.50480554E+00,
     &   3.49385559E+00, 3.48232057E+00, 3.47015992E+00, 3.45733569E+00,
     &   3.44378185E+00, 3.42943615E+00, 3.41423103E+00, 3.39809198E+00,
     &   3.38093748E+00, 3.36267779E+00, 3.34321614E+00, 3.32244546E+00,
     &   3.30025277E+00, 3.27651592E+00, 3.25110520E+00, 3.22388495E+00,
     &   3.19471597E+00, 3.16345770E+00, 3.12997449E+00, 3.09414353E+00,
     &   3.05584693E+00, 3.01500819E+00, 2.97158375E+00, 2.92557867E+00,
     &   2.87704697E+00, 2.82609502E+00, 2.77282231E+00, 2.71722626E+00/
  
         DATA ((YY   (I,J), I= 601, 611), J=1,1) /
     &   2.65896520E+00, 2.59685533E+00, 2.52785011E+00, 2.44511392E+00,
     &   2.33479657E+00, 2.17063641E+00, 1.90953002E+00, 1.49791267E+00,
     &   9.15718047E-01, 2.94931944E-01, 1.21764139E-11/
  
         DATA ((YY   (I,J), I=   1, 100), J=2,2) /
     &   1.13207264E-04, 1.13574984E-04, 1.13944492E-04, 1.14315799E-04,
     &   1.14688917E-04, 1.15063857E-04, 1.15440632E-04, 1.15819253E-04,
     &   1.16199732E-04, 1.16582082E-04, 1.16966315E-04, 1.17352443E-04,
     &   1.17740478E-04, 1.18130433E-04, 1.18522321E-04, 1.18916155E-04,
     &   1.19311947E-04, 1.19709710E-04, 1.20109457E-04, 1.20511202E-04,
     &   1.20914957E-04, 1.21320737E-04, 1.21728554E-04, 1.22138423E-04,
     &   1.22550356E-04, 1.22964368E-04, 1.23380473E-04, 1.23798685E-04,
     &   1.24219018E-04, 1.24641486E-04, 1.25066103E-04, 1.25492886E-04,
     &   1.25921847E-04, 1.26353001E-04, 1.26786365E-04, 1.27221952E-04,
     &   1.27659778E-04, 1.28099858E-04, 1.28542208E-04, 1.28986843E-04,
     &   1.29433779E-04, 1.29883032E-04, 1.30334617E-04, 1.30788551E-04,
     &   1.31244851E-04, 1.31703531E-04, 1.32164610E-04, 1.32628103E-04,
     &   1.33094028E-04, 1.33562401E-04, 1.34033239E-04, 1.34506561E-04,
     &   1.34982382E-04, 1.35460722E-04, 1.35941596E-04, 1.36425024E-04,
     &   1.36911024E-04, 1.37399613E-04, 1.37890810E-04, 1.38384633E-04,
     &   1.38881101E-04, 1.39380233E-04, 1.39882048E-04, 1.40386565E-04,
     &   1.40893804E-04, 1.41403783E-04, 1.41916523E-04, 1.42432044E-04,
     &   1.42950365E-04, 1.43471506E-04, 1.43995489E-04, 1.44522334E-04,
     &   1.45052061E-04, 1.45584692E-04, 1.46120247E-04, 1.46658748E-04,
     &   1.47200217E-04, 1.47744675E-04, 1.48292144E-04, 1.48842647E-04,
     &   1.49396205E-04, 1.49952841E-04, 1.50512579E-04, 1.51075440E-04,
     &   1.51641448E-04, 1.52210627E-04, 1.52783000E-04, 1.53358591E-04,
     &   1.53937424E-04, 1.54519523E-04, 1.55104913E-04, 1.55695288E-04,
     &   1.56285664E-04, 1.56881075E-04, 1.57481585E-04, 1.58082096E-04,
     &   1.58691234E-04, 1.59300373E-04, 1.59909512E-04, 1.60525659E-04/
  
         DATA ((YY   (I,J), I= 101, 200), J=2,2) /
     &   1.61145355E-04, 1.61768626E-04, 1.62395501E-04, 1.63026006E-04,
     &   1.63660171E-04, 1.64301747E-04, 1.64943324E-04, 1.65584901E-04,
     &   1.66233985E-04, 1.66886873E-04, 1.67543592E-04, 1.68208076E-04,
     &   1.68872561E-04, 1.69537045E-04, 1.70209395E-04, 1.70885730E-04,
     &   1.71566081E-04, 1.72250479E-04, 1.72938957E-04, 1.73631548E-04,
     &   1.74328282E-04, 1.75029194E-04, 1.75734317E-04, 1.76443685E-04,
     &   1.77157330E-04, 1.77875288E-04, 1.78597594E-04, 1.79324281E-04,
     &   1.80055386E-04, 1.80790944E-04, 1.81530991E-04, 1.82275564E-04,
     &   1.83024699E-04, 1.83778434E-04, 1.84536805E-04, 1.85299851E-04,
     &   1.86067610E-04, 1.86840121E-04, 1.87617423E-04, 1.88399554E-04,
     &   1.89186556E-04, 1.89978469E-04, 1.90775332E-04, 1.91577187E-04,
     &   1.92384076E-04, 1.93196040E-04, 1.94013123E-04, 1.94835366E-04,
     &   1.95662813E-04, 1.96495508E-04, 1.97333495E-04, 1.98176819E-04,
     &   1.99025524E-04, 1.99882394E-04, 2.00739263E-04, 2.01604389E-04,
     &   2.02475082E-04, 2.03351390E-04, 2.04233360E-04, 2.05121041E-04,
     &   2.06014483E-04, 2.06913734E-04, 2.07818846E-04, 2.08729868E-04,
     &   2.09646852E-04, 2.10569850E-04, 2.11498913E-04, 2.12434096E-04,
     &   2.13375451E-04, 2.14323033E-04, 2.15276895E-04, 2.16237094E-04,
     &   2.17203685E-04, 2.18176725E-04, 2.19156271E-04, 2.20142380E-04,
     &   2.21135111E-04, 2.22134522E-04, 2.23140674E-04, 2.24153627E-04,
     &   2.25173442E-04, 2.26200180E-04, 2.27233903E-04, 2.28274676E-04,
     &   2.29322561E-04, 2.30377623E-04, 2.31439927E-04, 2.32509540E-04,
     &   2.33586527E-04, 2.34670957E-04, 2.35762897E-04, 2.36862416E-04,
     &   2.37969585E-04, 2.39084474E-04, 2.40207153E-04, 2.41337697E-04,
     &   2.42476176E-04, 2.43622666E-04, 2.44777241E-04, 2.45939977E-04/
  
         DATA ((YY   (I,J), I= 201, 300), J=2,2) /
     &   2.47110949E-04, 2.48290237E-04, 2.49477916E-04, 2.50674068E-04,
     &   2.51878772E-04, 2.53092109E-04, 2.54314161E-04, 2.55545012E-04,
     &   2.56784744E-04, 2.58033443E-04, 2.59291196E-04, 2.60558088E-04,
     &   2.61834208E-04, 2.63119646E-04, 2.64414491E-04, 2.65718834E-04,
     &   2.67032768E-04, 2.68356386E-04, 2.69689784E-04, 2.71033056E-04,
     &   2.72386299E-04, 2.73749612E-04, 2.75123094E-04, 2.76506845E-04,
     &   2.77900968E-04, 2.79305564E-04, 2.80720739E-04, 2.82146598E-04,
     &   2.83583247E-04, 2.85030795E-04, 2.86489352E-04, 2.87964644E-04,
     &   2.89439936E-04, 2.90932189E-04, 2.92435902E-04, 2.93951192E-04,
     &   2.95478178E-04, 2.97016977E-04, 2.98567713E-04, 3.00130506E-04,
     &   3.01705482E-04, 3.03292766E-04, 3.04892486E-04, 3.06511117E-04,
     &   3.08129748E-04, 3.09767555E-04, 3.11418322E-04, 3.13082187E-04,
     &   3.14759287E-04, 3.16449761E-04, 3.18153750E-04, 3.19871398E-04,
     &   3.21602849E-04, 3.23348249E-04, 3.25107749E-04, 3.26881498E-04,
     &   3.28669650E-04, 3.30472358E-04, 3.32289780E-04, 3.34122075E-04,
     &   3.35969403E-04, 3.37831928E-04, 3.39709816E-04, 3.41603233E-04,
     &   3.43512351E-04, 3.45437340E-04, 3.47378376E-04, 3.49335635E-04,
     &   3.51309298E-04, 3.53299545E-04, 3.55306560E-04, 3.57330532E-04,
     &   3.59371649E-04, 3.61430103E-04, 3.63506090E-04, 3.65599806E-04,
     &   3.67711451E-04, 3.69841229E-04, 3.71989346E-04, 3.74156010E-04,
     &   3.76341433E-04, 3.78545829E-04, 3.80769417E-04, 3.83012417E-04,
     &   3.85275054E-04, 3.87557553E-04, 3.89860147E-04, 3.92183068E-04,
     &   3.94526554E-04, 3.96890845E-04, 3.99276186E-04, 4.01682824E-04,
     &   4.04111010E-04, 4.06560998E-04, 4.09033049E-04, 4.11527424E-04,
     &   4.14044389E-04, 4.16584215E-04, 4.19147175E-04, 4.21733549E-04/
  
         DATA ((YY   (I,J), I= 301, 400), J=2,2) /
     &   4.24343618E-04, 4.26977670E-04, 4.29635995E-04, 4.32318888E-04,
     &   4.35026650E-04, 4.37759585E-04, 4.40518002E-04, 4.43302214E-04,
     &   4.46112539E-04, 4.48949302E-04, 4.51812830E-04, 4.54703457E-04,
     &   4.57621521E-04, 4.60567365E-04, 4.63541340E-04, 4.66543798E-04,
     &   4.69575101E-04, 4.72635614E-04, 4.75725708E-04, 4.78845760E-04,
     &   4.81996153E-04, 4.85177278E-04, 4.88389528E-04, 4.91633306E-04,
     &   4.94909020E-04, 4.98217084E-04, 5.01557920E-04, 5.04931957E-04,
     &   5.08339628E-04, 5.11781376E-04, 5.15257650E-04, 5.18768907E-04,
     &   5.22315611E-04, 5.25898234E-04, 5.29517255E-04, 5.33173162E-04,
     &   5.36866449E-04, 5.40597621E-04, 5.44367189E-04, 5.48175675E-04,
     &   5.52023608E-04, 5.55911526E-04, 5.59839976E-04, 5.63809515E-04,
     &   5.67820710E-04, 5.71874135E-04, 5.75970377E-04, 5.80110032E-04,
     &   5.84293704E-04, 5.88522011E-04, 5.92795579E-04, 5.97115047E-04,
     &   6.01481064E-04, 6.05894289E-04, 6.10355396E-04, 6.14865067E-04,
     &   6.19423999E-04, 6.24032899E-04, 6.28692490E-04, 6.33403504E-04,
     &   6.38166689E-04, 6.42982803E-04, 6.47852623E-04, 6.52776935E-04,
     &   6.57756542E-04, 6.62792260E-04, 6.67884921E-04, 6.73035373E-04,
     &   6.78244478E-04, 6.83513114E-04, 6.88842177E-04, 6.94232577E-04,
     &   6.99685244E-04, 7.05201122E-04, 7.10781176E-04, 7.16426388E-04,
     &   7.22137757E-04, 7.27916303E-04, 7.33763064E-04, 7.39679100E-04,
     &   7.45665490E-04, 7.51723332E-04, 7.57853748E-04, 7.64057881E-04,
     &   7.70336896E-04, 7.76691980E-04, 7.83124345E-04, 7.89635225E-04,
     &   7.96225880E-04, 8.02897594E-04, 8.09651678E-04, 8.16489467E-04,
     &   8.23412324E-04, 8.30421640E-04, 8.37518833E-04, 8.44705352E-04,
     &   8.51982671E-04, 8.59352300E-04, 8.66815775E-04, 8.74374667E-04/
  
         DATA ((YY   (I,J), I= 401, 500), J=2,2) /
     &   8.82030578E-04, 8.89785144E-04, 8.97640034E-04, 9.05648839E-04,
     &   9.13657644E-04, 9.21823883E-04, 9.30097484E-04, 9.38480303E-04,
     &   9.46974233E-04, 9.55581208E-04, 9.64303205E-04, 9.73142243E-04,
     &   9.82100385E-04, 9.91179739E-04, 1.00038246E-03, 1.00971075E-03,
     &   1.01916686E-03, 1.02875308E-03, 1.03847179E-03, 1.04832536E-03,
     &   1.05831628E-03, 1.06844705E-03, 1.07872025E-03, 1.08913850E-03,
     &   1.09970450E-03, 1.11042100E-03, 1.12129083E-03, 1.13231685E-03,
     &   1.14350204E-03, 1.15484940E-03, 1.16636203E-03, 1.17804309E-03,
     &   1.18989584E-03, 1.20192357E-03, 1.21412970E-03, 1.22651771E-03,
     &   1.23909116E-03, 1.25185371E-03, 1.26480911E-03, 1.27796118E-03,
     &   1.29131386E-03, 1.30487119E-03, 1.31863730E-03, 1.33261642E-03,
     &   1.34681290E-03, 1.36123120E-03, 1.37587588E-03, 1.39075165E-03,
     &   1.40586330E-03, 1.42121578E-03, 1.43681416E-03, 1.45266364E-03,
     &   1.46876956E-03, 1.48513741E-03, 1.50177282E-03, 1.51868157E-03,
     &   1.53586962E-03, 1.55334307E-03, 1.57110820E-03, 1.58917145E-03,
     &   1.60753947E-03, 1.62621908E-03, 1.64521729E-03, 1.66454131E-03,
     &   1.68419858E-03, 1.70419673E-03, 1.72454363E-03, 1.74524736E-03,
     &   1.76631627E-03, 1.78775894E-03, 1.80958422E-03, 1.83180120E-03,
     &   1.85441929E-03, 1.87744816E-03, 1.90089778E-03, 1.92477845E-03,
     &   1.94910078E-03, 1.97387573E-03, 1.99911458E-03, 2.02482902E-03,
     &   2.05103107E-03, 2.07773319E-03, 2.10494823E-03, 2.13268945E-03,
     &   2.16097059E-03, 2.18980583E-03, 2.21920986E-03, 2.24919784E-03,
     &   2.27978550E-03, 2.31098907E-03, 2.34282541E-03, 2.37531193E-03,
     &   2.40846671E-03, 2.44230845E-03, 2.47685656E-03, 2.51213116E-03,
     &   2.54815310E-03, 2.58494405E-03, 2.62252646E-03, 2.66092368E-03/
  
         DATA ((YY   (I,J), I= 501, 600), J=2,2) /
     &   2.70015994E-03, 2.74070559E-03, 2.78125124E-03, 2.82315966E-03,
     &   2.86601393E-03, 2.90984349E-03, 2.95467896E-03, 3.00055222E-03,
     &   3.04749646E-03, 3.09554627E-03, 3.14473767E-03, 3.19510822E-03,
     &   3.24669708E-03, 3.29954510E-03, 3.35369490E-03, 3.40919093E-03,
     &   3.46607964E-03, 3.52440949E-03, 3.58423115E-03, 3.64559750E-03,
     &   3.70856386E-03, 3.77318801E-03, 3.83953040E-03, 3.90765421E-03,
     &   3.97762556E-03, 4.04951361E-03, 4.12339070E-03, 4.19933255E-03,
     &   4.27741841E-03, 4.35773121E-03, 4.44035775E-03, 4.52538888E-03,
     &   4.61291968E-03, 4.70304966E-03, 4.79588294E-03, 4.89152847E-03,
     &   4.99010019E-03, 5.09171726E-03, 5.19650423E-03, 5.30459124E-03,
     &   5.41611421E-03, 5.53121502E-03, 5.65004162E-03, 5.77274823E-03,
     &   5.89949543E-03, 6.03045024E-03, 6.16578616E-03, 6.30568319E-03,
     &   6.45032779E-03, 6.59991269E-03, 6.75463675E-03, 6.91470461E-03,
     &   7.08032630E-03, 7.25171661E-03, 7.42909441E-03, 7.61268170E-03,
     &   7.80270239E-03, 7.99938094E-03, 8.20294050E-03, 8.41360078E-03,
     &   8.63157546E-03, 8.85706902E-03, 9.09027300E-03, 9.33136151E-03,
     &   9.58048589E-03, 9.83776840E-03, 1.01032948E-02, 1.03771053E-02,
     &   1.06591847E-02, 1.09494495E-02, 1.12477342E-02, 1.15537742E-02,
     &   1.18671868E-02, 1.21874478E-02, 1.25138660E-02, 1.28455522E-02,
     &   1.31813844E-02, 1.35199682E-02, 1.38595904E-02, 1.41981681E-02,
     &   1.45331907E-02, 1.48616557E-02, 1.51799997E-02, 1.54840227E-02,
     &   1.57688111E-02, 1.60286586E-02, 1.62569928E-02, 1.64463108E-02,
     &   1.65881356E-02, 1.66730036E-02, 1.66905016E-02, 1.66293730E-02,
     &   1.64777204E-02, 1.62233355E-02, 1.58541906E-02, 1.53591285E-02,
     &   1.47287811E-02, 1.39567383E-02, 1.30409638E-02, 1.19854216E-02/
  
         DATA ((YY   (I,J), I= 601, 611), J=2,2) /
     &   1.08018226E-02, 9.51133386E-03, 8.14598255E-03, 6.74929551E-03,
     &   5.37525715E-03, 4.08357680E-03, 2.92726393E-03, 1.92882151E-03,
     &   1.06282218E-03, 3.34521011E-04, 1.39351184E-14/
  
         DATA ((YY   (I,J), I=   1, 100), J=3,3) /
     &   9.63577393E-04, 9.64614271E-04, 9.65656542E-04, 9.66704248E-04,
     &   9.67757429E-04, 9.68816127E-04, 9.69880385E-04, 9.70950244E-04,
     &   9.72025747E-04, 9.73106937E-04, 9.74193858E-04, 9.75286554E-04,
     &   9.76385069E-04, 9.77489448E-04, 9.78599736E-04, 9.79715979E-04,
     &   9.80838222E-04, 9.81966513E-04, 9.83100897E-04, 9.84241422E-04,
     &   9.85388136E-04, 9.86541087E-04, 9.87700323E-04, 9.88865894E-04,
     &   9.90037849E-04, 9.91216238E-04, 9.92401112E-04, 9.93592521E-04,
     &   9.94790516E-04, 9.95995150E-04, 9.97206475E-04, 9.98424544E-04,
     &   9.99649410E-04, 1.00088113E-03, 1.00211975E-03, 1.00336533E-03,
     &   1.00461793E-03, 1.00587759E-03, 1.00714439E-03, 1.00841837E-03,
     &   1.00969959E-03, 1.01098811E-03, 1.01228399E-03, 1.01358729E-03,
     &   1.01489806E-03, 1.01621638E-03, 1.01754229E-03, 1.01887586E-03,
     &   1.02021715E-03, 1.02156622E-03, 1.02292315E-03, 1.02428798E-03,
     &   1.02566079E-03, 1.02704164E-03, 1.02843060E-03, 1.02982772E-03,
     &   1.03123309E-03, 1.03264676E-03, 1.03406881E-03, 1.03549930E-03,
     &   1.03693831E-03, 1.03838590E-03, 1.03984214E-03, 1.04130711E-03,
     &   1.04278088E-03, 1.04426351E-03, 1.04575510E-03, 1.04725570E-03,
     &   1.04876539E-03, 1.05028425E-03, 1.05181237E-03, 1.05334980E-03,
     &   1.05489664E-03, 1.05645295E-03, 1.05801883E-03, 1.05959434E-03,
     &   1.06117958E-03, 1.06277462E-03, 1.06437955E-03, 1.06599445E-03,
     &   1.06761940E-03, 1.06925450E-03, 1.07089981E-03, 1.07255545E-03,
     &   1.07422148E-03, 1.07589800E-03, 1.07758510E-03, 1.07928287E-03,
     &   1.08099140E-03, 1.08271078E-03, 1.08444111E-03, 1.08618805E-03,
     &   1.08793498E-03, 1.08969872E-03, 1.09147950E-03, 1.09326027E-03,
     &   1.09506995E-03, 1.09687963E-03, 1.09868930E-03, 1.10052250E-03/
  
         DATA ((YY   (I,J), I= 101, 200), J=3,3) /
     &   1.10236763E-03, 1.10422479E-03, 1.10609410E-03, 1.10797565E-03,
     &   1.10986955E-03, 1.11178853E-03, 1.11370751E-03, 1.11562648E-03,
     &   1.11757090E-03, 1.11952823E-03, 1.12149857E-03, 1.12349535E-03,
     &   1.12549212E-03, 1.12748889E-03, 1.12951249E-03, 1.13154969E-03,
     &   1.13360062E-03, 1.13566541E-03, 1.13774417E-03, 1.13983704E-03,
     &   1.14194413E-03, 1.14406558E-03, 1.14620152E-03, 1.14835206E-03,
     &   1.15051736E-03, 1.15269753E-03, 1.15489272E-03, 1.15710306E-03,
     &   1.15932869E-03, 1.16156974E-03, 1.16382636E-03, 1.16609869E-03,
     &   1.16838687E-03, 1.17069104E-03, 1.17301136E-03, 1.17534796E-03,
     &   1.17770100E-03, 1.18007064E-03, 1.18245701E-03, 1.18486028E-03,
     &   1.18728061E-03, 1.18971814E-03, 1.19217304E-03, 1.19464547E-03,
     &   1.19713559E-03, 1.19964357E-03, 1.20216957E-03, 1.20471376E-03,
     &   1.20727630E-03, 1.20985738E-03, 1.21245716E-03, 1.21507582E-03,
     &   1.21771354E-03, 1.22038020E-03, 1.22304685E-03, 1.22574282E-03,
     &   1.22845856E-03, 1.23119428E-03, 1.23395015E-03, 1.23672638E-03,
     &   1.23952314E-03, 1.24234064E-03, 1.24517908E-03, 1.24803865E-03,
     &   1.25091956E-03, 1.25382200E-03, 1.25674620E-03, 1.25969234E-03,
     &   1.26266065E-03, 1.26565133E-03, 1.26866461E-03, 1.27170070E-03,
     &   1.27475982E-03, 1.27784219E-03, 1.28094803E-03, 1.28407758E-03,
     &   1.28723107E-03, 1.29040873E-03, 1.29361078E-03, 1.29683748E-03,
     &   1.30008906E-03, 1.30336576E-03, 1.30666784E-03, 1.30999553E-03,
     &   1.31334909E-03, 1.31672878E-03, 1.32013485E-03, 1.32356756E-03,
     &   1.32702718E-03, 1.33317525E-03, 1.33669659E-03, 1.34024565E-03,
     &   1.34382272E-03, 1.34742807E-03, 1.35106198E-03, 1.35259763E-03,
     &   1.35628381E-03, 1.35999940E-03, 1.36374471E-03, 1.36752002E-03/
  
         DATA ((YY   (I,J), I= 201, 300), J=3,3) /
     &   1.37132564E-03, 1.37516188E-03, 1.37902904E-03, 1.38292744E-03,
     &   1.38685740E-03, 1.39081923E-03, 1.39481325E-03, 1.39883980E-03,
     &   1.40289920E-03, 1.40699180E-03, 1.41111792E-03, 1.41527791E-03,
     &   1.41947212E-03, 1.42370091E-03, 1.42796462E-03, 1.43226361E-03,
     &   1.43659825E-03, 1.44096891E-03, 1.44537596E-03, 1.44981977E-03,
     &   1.45430073E-03, 1.45881923E-03, 1.46337565E-03, 1.46797038E-03,
     &   1.47260384E-03, 1.47727643E-03, 1.48198854E-03, 1.48674061E-03,
     &   1.49153305E-03, 1.49636628E-03, 1.50124073E-03, 1.50617790E-03,
     &   1.51111507E-03, 1.51611583E-03, 1.52115959E-03, 1.52624681E-03,
     &   1.53137794E-03, 1.53655347E-03, 1.54177385E-03, 1.54703958E-03,
     &   1.55235114E-03, 1.55770901E-03, 1.56311370E-03, 1.56858964E-03,
     &   1.57406557E-03, 1.57961378E-03, 1.58521086E-03, 1.59085734E-03,
     &   1.59655377E-03, 1.60230068E-03, 1.60809864E-03, 1.61394818E-03,
     &   1.61984989E-03, 1.62580434E-03, 1.63181209E-03, 1.63787374E-03,
     &   1.64398989E-03, 1.65016113E-03, 1.65638808E-03, 1.66267135E-03,
     &   1.66901157E-03, 1.67540937E-03, 1.68186540E-03, 1.68838029E-03,
     &   1.69495473E-03, 1.70158936E-03, 1.70828487E-03, 1.71504194E-03,
     &   1.72186127E-03, 1.72874356E-03, 1.73568952E-03, 1.74269987E-03,
     &   1.74977535E-03, 1.75691669E-03, 1.76412465E-03, 1.77139999E-03,
     &   1.77874348E-03, 1.78615589E-03, 1.79363804E-03, 1.80119071E-03,
     &   1.80881471E-03, 1.81651089E-03, 1.82428006E-03, 1.83212308E-03,
     &   1.84004081E-03, 1.84803411E-03, 1.85610388E-03, 1.86425100E-03,
     &   1.87247638E-03, 1.88078094E-03, 1.88916561E-03, 1.89763134E-03,
     &   1.90617908E-03, 1.91480981E-03, 1.92352452E-03, 1.93232419E-03,
     &   1.94120985E-03, 1.95018252E-03, 1.95924324E-03, 1.96839307E-03/
  
         DATA ((YY   (I,J), I= 301, 400), J=3,3) /
     &   1.97763307E-03, 1.98696435E-03, 1.99638799E-03, 2.00590511E-03,
     &   2.01551686E-03, 2.02522437E-03, 2.03502882E-03, 2.04493139E-03,
     &   2.05493327E-03, 2.06503569E-03, 2.07523987E-03, 2.08554708E-03,
     &   2.09595859E-03, 2.10647568E-03, 2.11709966E-03, 2.12783187E-03,
     &   2.13867365E-03, 2.14962636E-03, 2.16069139E-03, 2.17187016E-03,
     &   2.18316410E-03, 2.19457464E-03, 2.20610327E-03, 2.21775148E-03,
     &   2.22952079E-03, 2.24141273E-03, 2.25342887E-03, 2.26557080E-03,
     &   2.27784013E-03, 2.29023849E-03, 2.30276754E-03, 2.31542897E-03,
     &   2.32822449E-03, 2.34115584E-03, 2.35422478E-03, 2.36743310E-03,
     &   2.38078263E-03, 2.39427522E-03, 2.40791273E-03, 2.42169709E-03,
     &   2.43563021E-03, 2.44971407E-03, 2.46395067E-03, 2.47834204E-03,
     &   2.49289024E-03, 2.50720718E-03, 2.52207439E-03, 2.53710480E-03,
     &   2.55276557E-03, 2.56813013E-03, 2.58366461E-03, 2.59937129E-03,
     &   2.61525253E-03, 2.63131070E-03, 2.64754822E-03, 2.66396755E-03,
     &   2.68057118E-03, 2.69736166E-03, 2.71434156E-03, 2.73151352E-03,
     &   2.74888019E-03, 2.76644429E-03, 2.78420857E-03, 2.80217584E-03,
     &   2.82034895E-03, 2.83873078E-03, 2.85732430E-03, 2.87613249E-03,
     &   2.89515840E-03, 2.91440514E-03, 2.93387584E-03, 2.95357372E-03,
     &   2.97350203E-03, 2.99366409E-03, 3.01406328E-03, 3.03470302E-03,
     &   3.05558681E-03, 3.07671819E-03, 3.09810078E-03, 3.11973826E-03,
     &   3.14163436E-03, 3.16379289E-03, 3.18621773E-03, 3.20891282E-03,
     &   3.23188217E-03, 3.25512986E-03, 3.27866004E-03, 3.30247696E-03,
     &   3.32658491E-03, 3.35098827E-03, 3.37569152E-03, 3.40069919E-03,
     &   3.42601591E-03, 3.45164639E-03, 3.47759542E-03, 3.50386789E-03,
     &   3.53046877E-03, 3.55740313E-03, 3.58467613E-03, 3.61229302E-03/
  
         DATA ((YY   (I,J), I= 401, 500), J=3,3) /
     &   3.64025914E-03, 3.66857996E-03, 3.69726103E-03, 3.72649383E-03,
     &   3.75572663E-03, 3.78552280E-03, 3.81570250E-03, 3.84627182E-03,
     &   3.87723698E-03, 3.90860430E-03, 3.94038024E-03, 3.97257137E-03,
     &   4.00518441E-03, 4.03822618E-03, 4.07170366E-03, 4.10562394E-03,
     &   4.13999426E-03, 4.17482201E-03, 4.21011472E-03, 4.24588005E-03,
     &   4.28212585E-03, 4.31886008E-03, 4.35609091E-03, 4.39382662E-03,
     &   4.43207569E-03, 4.47084676E-03, 4.51014866E-03, 4.54999036E-03,
     &   4.59038106E-03, 4.63133012E-03, 4.67284709E-03, 4.71494172E-03,
     &   4.75762397E-03, 4.80090401E-03, 4.84479219E-03, 4.88929912E-03,
     &   4.93443559E-03, 4.98021264E-03, 5.02664154E-03, 5.07373381E-03,
     &   5.12150118E-03, 5.16995567E-03, 5.21910952E-03, 5.26897528E-03,
     &   5.31956572E-03, 5.37078977E-03, 5.42296086E-03, 5.47580495E-03,
     &   5.52942776E-03, 5.58384354E-03, 5.63906688E-03, 5.69511266E-03,
     &   5.75199612E-03, 5.80973283E-03, 5.86833873E-03, 5.92783011E-03,
     &   5.98822362E-03, 6.04953632E-03, 6.11178564E-03, 6.17498943E-03,
     &   6.23916595E-03, 6.30433389E-03, 6.37051239E-03, 6.43772103E-03,
     &   6.50597986E-03, 6.57530944E-03, 6.64573079E-03, 6.71726547E-03,
     &   6.78993555E-03, 6.86376367E-03, 6.93877300E-03, 7.01498733E-03,
     &   7.09243102E-03, 7.17112907E-03, 7.25110710E-03, 7.33239141E-03,
     &   7.41500898E-03, 7.49898751E-03, 7.58435540E-03, 7.67114185E-03,
     &   7.75937682E-03, 7.84909109E-03, 7.94031630E-03, 8.03308493E-03,
     &   8.12743042E-03, 8.22338711E-03, 8.32099033E-03, 8.42027644E-03,
     &   8.52128284E-03, 8.62404805E-03, 8.72861169E-03, 8.83501463E-03,
     &   8.94329893E-03, 9.05350795E-03, 9.16568640E-03, 9.27988039E-03,
     &   9.39613749E-03, 9.51450678E-03, 9.63503893E-03, 9.75778629E-03/
  
         DATA ((YY   (I,J), I= 501, 600), J=3,3) /
     &   9.88280292E-03, 1.00113361E-02, 1.01398694E-02, 1.02720367E-02,
     &   1.04067084E-02, 1.05439486E-02, 1.06838234E-02, 1.08264014E-02,
     &   1.09717537E-02, 1.11199539E-02, 1.12710783E-02, 1.14252044E-02,
     &   1.15824178E-02, 1.17428019E-02, 1.19064453E-02, 1.20734398E-02,
     &   1.22438807E-02, 1.24178673E-02, 1.25955023E-02, 1.27768928E-02,
     &   1.29621499E-02, 1.31513892E-02, 1.33447308E-02, 1.35422994E-02,
     &   1.37442248E-02, 1.39506417E-02, 1.41616903E-02, 1.43775159E-02,
     &   1.45982696E-02, 1.48241082E-02, 1.50551943E-02, 1.52916965E-02,
     &   1.55337895E-02, 1.57816541E-02, 1.60354772E-02, 1.62954519E-02,
     &   1.65617774E-02, 1.68346586E-02, 1.71143065E-02, 1.74009371E-02,
     &   1.76947717E-02, 1.79960360E-02, 1.83049598E-02, 1.86217756E-02,
     &   1.89467183E-02, 1.92800236E-02, 1.96219268E-02, 1.99726610E-02,
     &   2.03324551E-02, 2.07015317E-02, 2.10801042E-02, 2.14683737E-02,
     &   2.18665256E-02, 2.22747253E-02, 2.26931135E-02, 2.31218008E-02,
     &   2.35608619E-02, 2.40103283E-02, 2.44701808E-02, 2.49403405E-02,
     &   2.54206595E-02, 2.59109097E-02, 2.64107708E-02, 2.69198171E-02,
     &   2.74375030E-02, 2.79631468E-02, 2.84959135E-02, 2.90347961E-02,
     &   2.95785958E-02, 3.01259008E-02, 3.06750643E-02, 3.12241818E-02,
     &   3.17710683E-02, 3.23132360E-02, 3.28478734E-02, 3.33718265E-02,
     &   3.38815839E-02, 3.43732684E-02, 3.48426355E-02, 3.52850833E-02,
     &   3.56956769E-02, 3.60691910E-02, 3.64001751E-02, 3.66830470E-02,
     &   3.69122200E-02, 3.70822670E-02, 3.71881256E-02, 3.72253427E-02,
     &   3.71903501E-02, 3.70807517E-02, 3.68955822E-02, 3.66354697E-02,
     &   3.63025906E-02, 3.59002552E-02, 3.54318999E-02, 3.48992156E-02,
     &   3.42991420E-02, 3.36195688E-02, 3.28338866E-02, 3.18950993E-02/
  
         DATA ((YY   (I,J), I= 601, 611), J=3,3) /
     &   3.07310820E-02, 2.92436613E-02, 2.73152827E-02, 2.48275449E-02,
     &   2.16947131E-02, 1.79106129E-02, 1.35980652E-02, 9.04340622E-03,
     &   4.72010647E-03, 1.35532745E-03, 5.37441033E-14/

       save
       RETURN
       END
         
