CCCCCCCCCCCCCCCCCCCCCCCCCCCCC -*- Mode: Fortran -*- CCCCCCCCCCCCCCCCCCCCCCCCCCC
CC hadr5x26_complex.f --
CC Author          : Fred Jegerlehner
CC Created On      : Tue Sep 23 11:03:25 2025
CC Last Modified By: Fred Jegerlehner
CC Last Modified On: Sat Jun 13 04:22:42 2026
CC RCS: $Id$
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CC Copyright (C) 2026 Friedrich Jegerlehner
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
c;;
      subroutine chadr5x26(e,st2,cder,cerrdersta,cerrdersys,
     &     cdeg,cerrdegsta,cerrdegsys)
c Provides real part of 5 flavor hadronic contribution to photon vacuum polarization
c single precision HADR5 ; double precision DHADR5
c ******************************************************************
c *                                                                *
c *      subroutine for the evaluation of the light hadron         *
c *           contributions to Delta_r  and  Delta_g               *
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 *    Reference: F. Jegerlehner, Z. Phys. C32 (1986) 195          *
c *               H. Burkhardt et al., Z. Phys. C42 (1989) 497     *
c *               S. Eidelman, F. Jegerlehner, Z. Phys. C (1995)   *
c *               F. Jegerlehner,                                  *
c *                    Nucl.Phys.Proc.Suppl.131:213-222,2004       *
c *                    Nucl.Phys.Proc.Suppl.162:22-32,2006         *
c *                    Nucl.Phys.Proc.Suppl.181-182:135-140,2008   *
c *                                                                *
c ******************************************************************
c       VERSION: 21/10/2025
c
C  Notation: E energy ( momentum transfer ): E>0 timelike , E<0 spacelike
c      sin2ell=0.23153 ! pm 0.00016 LEPEEWG Phys Rep 427 (2006) 257
C            st2 is sin^2(Theta); st2=0.23153 is the reference value
C  the routine returns the hadronic contribution of 5 flavors (u,d,s,c,b)
C                 to   DER=Delta_r with hadronic error ERRDER
C                and   DEG=Delta_g with hadronic error ERRDEG
C  The effective value of the fine structure constant alphaQED at energy
C  E is alphaQED(E)=alphaQED(0)/(1-Delta_r) ,similarly for the SU(2)
C  coupling alphaSU2(E)=alphaSU2(0)/(1-Delta_g), where Delta_r(g) is the
C  sum of leptonic, hadronic contributions (top to be added).
C
      IMPLICIT NONE
      INTEGER NA,NB,NC,IJ,I,ini
      PARAMETER(NA=979,NB=2193,NC=200)
      real e,st2,der,errdersta,errdersys,deg,errdegsta,errdegsys,fac
      real null,one
      real dal(3),dg2(3)
      complex *8 cal(3),cg2(3)
      complex *8 cder,cdeg,cerrdersta,cerrdegsta,
     &     cerrdersys,cerrdegsys
      complex *8 cnull,cone,cfac
      REAL ETA(NA),DAT(NA,3),DGT(NA,3)
      REAL ESA(NB)
      COMPLEX *8 CAS(NB,3),CGS(NB,3)
      REAL EMA(NC)
      COMPLEX *8 CAM(NC,3),CGM(NC,3)
      REAL XXX(NC),YGG(NC,3),Y3G(NC,3)
      REAL    RDEN,RNUM
      COMPLEX *8 CDEN,CNUM
      COMMON /DATM26c/EMA,CAM,CGM
      COMMON /DATT26r/ETA,DAT,DGT
      COMMON /DATS26c/ESA,CAS,CGS
      COMMON /DATH26r/XXX,YGG,Y3G
      data ini/0/
C initialize data

      call ralhad_spacelike26r

      call ralhad_spacelike1h26r

      call calhad_timelike26c    ! complex version

      call calhad_timelike1h26c  ! complex version


c     boundaries of data sets
c space-like high region            -2.0000E+04  - -1.0000E+03    (XXX,YGG)  [200]
c space-like and unphysical region  -1.0000E+03  - +0.27700001D0  (ETA,DAT)  [979]
c time-like R data range            0.27914036D0 - 40.00000000D0  (ESA,CAS) [2193]
c time-like1 pQCD range             1.3000E+01D0 -  2.0000E+04    (EMA,CAM)  [200]
c 2 pion threshold at 0.27914....
c XXX(1) --- XXX(NC),ETA(1) --- ETA(NA),ESA(1) --- ESA(NB),EMA(1) --- EMA(NC)
      null=0.0
      one =1.0
      cnull=CMPLX(null,null)
      cone =CMPLX(one ,null)
      if (st2.eq.null) then
         st2=0.23153d0
      endif
      fac=0.23153d0/st2
      cfac=CMPLX(fac,null)
      if (e.eq.null) then
        der=null
        errdersta=null
        errdersys=null
        deg=null
        errdegsta=null
        errdegsys=null
        cder=cnull
        cerrdersta=cnull
        cerrdersys=cnull
        cdeg=cnull
        cerrdegsta=cnull
        cerrdegsys=cnull
        return
c first bridge cracks between regions
      else if ((e.ge.XXX(NC)).and.(e.lt.ETA(1))) then
         RDEN=(ETA(1)-XXX(NC))
         RNUM=(E-XXX(NC))
        DO I=1,3
        dal(i)=YGG(NC,I)
     &    +(DAT(1,I)-YGG(NC,I))/RDEN*RNUM
        dg2(i)=Y3G(NC,I)
     &       +(DAT(1,I)-Y3G(NC,I))/RDEN*RNUM
        ENDDO
        cder=CMPLX(dal(1))
        cerrdersta=CMPLX(dal(2))
        cerrdersys=CMPLX(dal(3))
        cdeg=CMPLX(dg2(1)*fac)
        cerrdegsta=CMPLX(dg2(2)*fac)
        cerrdegsys=CMPLX(dg2(3)*fac)
        return
      else if ((e.ge.ETA(NA)).and.(e.lt.ESA(1))) then
        CDEN=CMPLX((ESA(1)-ETA(NA)))
        CNUM=CMPLX((E-ETA(NA)))
        DO I=1,3
        cal(i)=CMPLX(DAT(NA,I))
     &    +(CAS(1,I)-CMPLX(DAT(NA,I)))/CDEN*CNUM
        cg2(i)=CMPLX(DGT(NA,I))
     &    +(CGS(1,I)-CMPLX(DGT(NA,I)))/CDEN*CNUM
        ENDDO
        cder=cal(1)
        cerrdersta=cal(2)
        cerrdersys=cal(3)
        cdeg=cg2(1)*cfac
        cerrdegsta=cg2(2)*cfac
        cerrdegsys=cg2(3)*cfac
        return
      else if ((e.lt.ETA(NA)).and.(e.ge.ETA(1))) then
        ij=NA
        do while (ETA(ij).gt.e)
          ij=ij-1
        enddo
        RDEN=(ETA(IJ+1)-ETA(IJ))
        RNUM=(E-ETA(IJ))
        DO I=1,3
        dal(i)=DAT(IJ,I)
     &    +(DAT(IJ+1,I)-DAT(IJ,I))/RDEN*RNUM
        dg2(i)=DGT(IJ,I)
     &    +(DGT(IJ+1,I)-DGT(IJ,I))/RDEN*RNUM
        ENDDO
        cder=CMPLX(dal(1))
        cerrdersta=CMPLX(dal(2))
        cerrdersys=CMPLX(dal(3))
        cdeg=CMPLX(dg2(1)*fac)
        cerrdegsta=CMPLX(dg2(2)*fac)
        cerrdegsys=CMPLX(dg2(3)*fac)
        return
      else if ((e.lt.EMA(NC)).and.(e.ge.EMA(1))) then
        ij=NC
        do while (EMA(ij).gt.e)
          ij=ij-1
        enddo
        CDEN=CMPLX((EMA(IJ+1)-EMA(IJ)))
        CNUM=CMPLX((E-EMA(IJ)))
        DO I=1,3
        cal(i)=CAM(IJ,I)
     &      +(CAM(IJ+1,I)-CAM(IJ,I))/CDEN*CNUM
        cg2(i)=CGM(IJ,I)
     &      +(CGM(IJ+1,I)-CGM(IJ,I))/CDEN*CNUM
        ENDDO
        cder=cal(1)
        cerrdersta=cal(2)
        cerrdersys=cal(3)
        cdeg=cg2(1)*cfac
        cerrdegsta=cg2(2)*cfac
        cerrdegsys=cg2(3)*cfac
        return
c### end point
      else if (e.eq.EMA(NC)) then
         ij=NC
         DO I=1,3
            cal(i)=CAM(IJ,I)
            cg2(i)=CGM(IJ,I)
         ENDDO
         cder=cal(1)
         cerrdersta=cal(2)
         cerrdersys=cal(3)
         cdeg=cg2(1)*cfac
         cerrdegsta=cg2(2)*cfac
         cerrdegsys=cg2(3)*cfac
         return
c ##
      else if ((e.lt.ESA(NB)).and.(e.ge.ESA(1))) then
        if ((e.gt.3.96).and.(e.lt.4.52).and.(ini.eq.0)) then
c           write (*,*) ' ******************************************'
c           write (*,*) ' * Note: fluctuations in the Psi(4,5,6)   *'
c           write (*,*) ' * region are because we are using the    *'
c           write (*,*) ' * CB and BES data without any smoothing  *'
c           write (*,*) ' *********** FJ@HU Berlin *****************'
           ini=1
        endif
        ij=NB
        do while (ESA(ij).gt.e)
          ij=ij-1
        enddo
        CDEN=CMPLX((ESA(IJ+1)-ESA(IJ)))
        CNUM=CMPLX((E-ESA(IJ)))
        DO I=1,3
        cal(i)=CAS(IJ,I)
     &    +(CAS(IJ+1,I)-CAS(IJ,I))/CDEN*CNUM
        cg2(i)=CGS(IJ,I)
     &       +(CGS(IJ+1,I)-CGS(IJ,I))/CDEN*CNUM
        ENDDO
        cder=cal(1)
        cerrdersta=cal(2)
        cerrdersys=cal(3)
        cdeg=cg2(1)*cfac
        cerrdegsta=cg2(2)*cfac
        cerrdegsys=cg2(3)*cfac
        return
      else if ((e.lt.XXX(NC)).and.(e.ge.XXX(1))) then
        ij=NC
        do while (XXX(ij).gt.e)
          ij=ij-1
        enddo
        RDEN=(XXX(IJ+1)-XXX(IJ))
        RNUM=(E-XXX(IJ))
        DO I=1,3
        dal(i)=YGG(IJ,I)
     &    +(YGG(IJ+1,I)-YGG(IJ,I))/RDEN*RNUM
        dg2(i)=Y3G(IJ,I)
     &       +(Y3G(IJ+1,I)-Y3G(IJ,I))/RDEN*RNUM
        ENDDO
        cder=CMPLX(dal(1))
        cerrdersta=CMPLX(dal(2))
        cerrdersys=CMPLX(dal(3))
        cdeg=CMPLX(dg2(1)*fac)
        cerrdegsta=CMPLX(dg2(2)*fac)
        cerrdegsys=CMPLX(dg2(3)*fac)
        return
      else
         if (ini.le.10) then
            write(*,*) ' <chadr5x26> out of range! e=',e
            ini=ini+1
            if (ini.eq.10) write(*,*) ' Warning: continuing anyway ...'
         endif
      endif
      return
      end

       subroutine dchadr5x26(de,dst2,dcder,dcerrdersta,dcerrdersys,
     &     dcdeg,dcerrdegsta,dcerrdegsys)
c **********************************************************************
c *    F. Jegerlehner, University of Silesia, PL-40007 Katowice, Poland *
c **********************************************************************
c Converts chadr5x to double complex precision variables in dchadr5x
c
       implicit none
       double precision de,dst2
       double complex dcder,dcdeg,dcerrdersta,dcerrdersys,
     &      dcerrdegsta,dcerrdegsys
       real    se,sst2
       complex *8 cder,cdeg,cerrdersta,cerrdersys,
     &      cerrdegsta,cerrdegsys
       se  =sngl(de)
       sst2=sngl(dst2)
       call chadr5x26(se,sst2,cder,cerrdersta,cerrdersys,cdeg,
     &      cerrdegsta,cerrdegsys)
       dcder   =dcmplx(cder)
       dcdeg   =dcmplx(cdeg)
       dcerrdersta=dcmplx(cerrdersta)
       dcerrdersys=dcmplx(cerrdersys)
       dcerrdegsta=dcmplx(cerrdegsta)
       dcerrdegsys=dcmplx(cerrdegsys)
       return
       end
c
c Following datasets obtained with run parameters specified in the header
c
C      include 'dalhadt26_5.f'   ! including deghadt26_5.f
C
C      include 'dalhadthigh26_5.f' ! including deghadthigh26_5.f
C
C      include 'dalhadslow26_5.f' ! including deghadslow26_5.f
C
C      include 'dalhadshigh26_5.f'  ! including deghadshigh26_5.f


c      ++++ dalhadt26 ++++

c update 03/19/26
       subroutine ralhad_spacelike26r
       IMPLICIT NONE
       INTEGER NA,I,J
       PARAMETER(NA=979)
       REAL ETA(NA),DAT(NA,3),DGT(NA,3)
       COMMON /DATT26r/ETA,DAT,DGT

       DATA  (ETA  (I), I=   1, 100) /
     &  -1.0000E+03,-9.9000E+02,-9.8000E+02,-9.7000E+02,-9.6000E+02,
     &  -9.5000E+02,-9.4000E+02,-9.3000E+02,-9.2000E+02,-9.1000E+02,
     &  -9.0000E+02,-8.9000E+02,-8.8000E+02,-8.7000E+02,-8.6000E+02,
     &  -8.5000E+02,-8.4000E+02,-8.3000E+02,-8.2000E+02,-8.1000E+02,
     &  -8.0000E+02,-7.9000E+02,-7.8000E+02,-7.7000E+02,-7.6000E+02,
     &  -7.5000E+02,-7.4000E+02,-7.3000E+02,-7.2000E+02,-7.1000E+02,
     &  -7.0000E+02,-6.9000E+02,-6.8000E+02,-6.7000E+02,-6.6000E+02,
     &  -6.5000E+02,-6.4000E+02,-6.3000E+02,-6.2000E+02,-6.1000E+02,
     &  -6.0000E+02,-5.9000E+02,-5.8000E+02,-5.7000E+02,-5.6000E+02,
     &  -5.5000E+02,-5.4000E+02,-5.3000E+02,-5.2000E+02,-5.1000E+02,
     &  -5.0000E+02,-4.9000E+02,-4.8000E+02,-4.7000E+02,-4.6000E+02,
     &  -4.5000E+02,-4.4000E+02,-4.3000E+02,-4.2000E+02,-4.1000E+02,
     &  -4.0000E+02,-3.9000E+02,-3.8000E+02,-3.7000E+02,-3.6000E+02,
     &  -3.5000E+02,-3.4000E+02,-3.3000E+02,-3.2000E+02,-3.1000E+02,
     &  -3.0000E+02,-2.9000E+02,-2.8000E+02,-2.7000E+02,-2.6000E+02,
     &  -2.5000E+02,-2.4000E+02,-2.3000E+02,-2.2000E+02,-2.1000E+02,
     &  -2.0000E+02,-1.9000E+02,-1.8000E+02,-1.7000E+02,-1.6000E+02,
     &  -1.5000E+02,-1.4000E+02,-1.3000E+02,-1.2000E+02,-1.1000E+02,
     &  -1.0000E+02,-9.9000E+01,-9.8000E+01,-9.7000E+01,-9.6000E+01,
     &  -9.5000E+01,-9.4000E+01,-9.3000E+01,-9.2000E+01,-9.1000E+01/

       DATA  (ETA  (I), I= 101, 200) /
     &  -9.0000E+01,-8.9000E+01,-8.8000E+01,-8.7000E+01,-8.6000E+01,
     &  -8.5000E+01,-8.4000E+01,-8.3000E+01,-8.2000E+01,-8.1000E+01,
     &  -8.0000E+01,-7.9000E+01,-7.8000E+01,-7.7000E+01,-7.6000E+01,
     &  -7.5000E+01,-7.4000E+01,-7.3000E+01,-7.2000E+01,-7.1000E+01,
     &  -7.0000E+01,-6.9000E+01,-6.8000E+01,-6.7000E+01,-6.6000E+01,
     &  -6.5000E+01,-6.4000E+01,-6.3000E+01,-6.2000E+01,-6.1000E+01,
     &  -6.0000E+01,-5.9000E+01,-5.8000E+01,-5.7000E+01,-5.6000E+01,
     &  -5.5000E+01,-5.4000E+01,-5.3000E+01,-5.2000E+01,-5.1000E+01,
     &  -5.0000E+01,-4.9000E+01,-4.8000E+01,-4.7000E+01,-4.6000E+01,
     &  -4.5000E+01,-4.4000E+01,-4.3000E+01,-4.2000E+01,-4.1000E+01,
     &  -4.0000E+01,-3.9000E+01,-3.8000E+01,-3.7000E+01,-3.6000E+01,
     &  -3.5000E+01,-3.4000E+01,-3.3000E+01,-3.2000E+01,-3.1000E+01,
     &  -3.0000E+01,-2.9000E+01,-2.8000E+01,-2.7000E+01,-2.6000E+01,
     &  -2.5000E+01,-2.4000E+01,-2.3000E+01,-2.2000E+01,-2.1000E+01,
     &  -2.0000E+01,-1.9000E+01,-1.8000E+01,-1.7000E+01,-1.6000E+01,
     &  -1.5000E+01,-1.4000E+01,-1.3000E+01,-1.2000E+01,-1.1000E+01,
     &  -1.0000E+01,-9.9100E+00,-9.8200E+00,-9.7300E+00,-9.6400E+00,
     &  -9.5500E+00,-9.4600E+00,-9.3700E+00,-9.2800E+00,-9.1900E+00,
     &  -9.1000E+00,-9.0100E+00,-8.9200E+00,-8.8300E+00,-8.7400E+00,
     &  -8.6500E+00,-8.5600E+00,-8.4700E+00,-8.3800E+00,-8.2900E+00/

       DATA  (ETA  (I), I= 201, 300) /
     &  -8.2000E+00,-8.1100E+00,-8.0200E+00,-7.9300E+00,-7.8400E+00,
     &  -7.7500E+00,-7.6600E+00,-7.5700E+00,-7.4800E+00,-7.3900E+00,
     &  -7.3000E+00,-7.2100E+00,-7.1200E+00,-7.0300E+00,-6.9400E+00,
     &  -6.8500E+00,-6.7600E+00,-6.6700E+00,-6.5800E+00,-6.4900E+00,
     &  -6.4000E+00,-6.3100E+00,-6.2200E+00,-6.1300E+00,-6.0400E+00,
     &  -5.9500E+00,-5.8600E+00,-5.7700E+00,-5.6800E+00,-5.5900E+00,
     &  -5.5000E+00,-5.4100E+00,-5.3200E+00,-5.2300E+00,-5.1400E+00,
     &  -5.0500E+00,-4.9600E+00,-4.8700E+00,-4.7800E+00,-4.6900E+00,
     &  -4.6000E+00,-4.5100E+00,-4.4200E+00,-4.3300E+00,-4.2400E+00,
     &  -4.1500E+00,-4.0600E+00,-3.9700E+00,-3.8800E+00,-3.7900E+00,
     &  -3.7000E+00,-3.6100E+00,-3.5200E+00,-3.4300E+00,-3.3400E+00,
     &  -3.2500E+00,-3.1600E+00,-3.0700E+00,-2.9800E+00,-2.8900E+00,
     &  -2.8000E+00,-2.7100E+00,-2.6200E+00,-2.5300E+00,-2.4400E+00,
     &  -2.3500E+00,-2.2600E+00,-2.1700E+00,-2.0800E+00,-1.9900E+00,
     &  -1.9000E+00,-1.8100E+00,-1.7200E+00,-1.6300E+00,-1.5400E+00,
     &  -1.4500E+00,-1.3600E+00,-1.2700E+00,-1.1800E+00,-1.0900E+00,
     &  -1.0000E+00,-9.9100E-01,-9.8200E-01,-9.7300E-01,-9.6400E-01,
     &  -9.5500E-01,-9.4600E-01,-9.3700E-01,-9.2800E-01,-9.1900E-01,
     &  -9.1000E-01,-9.0100E-01,-8.9200E-01,-8.8300E-01,-8.7400E-01,
     &  -8.6500E-01,-8.5600E-01,-8.4700E-01,-8.3800E-01,-8.2900E-01/

       DATA  (ETA  (I), I= 301, 400) /
     &  -8.2000E-01,-8.1100E-01,-8.0200E-01,-7.9300E-01,-7.8400E-01,
     &  -7.7500E-01,-7.6600E-01,-7.5700E-01,-7.4800E-01,-7.3900E-01,
     &  -7.3000E-01,-7.2100E-01,-7.1200E-01,-7.0300E-01,-6.9400E-01,
     &  -6.8500E-01,-6.7600E-01,-6.6700E-01,-6.5800E-01,-6.4900E-01,
     &  -6.4000E-01,-6.3100E-01,-6.2200E-01,-6.1300E-01,-6.0400E-01,
     &  -5.9500E-01,-5.8600E-01,-5.7700E-01,-5.6800E-01,-5.5900E-01,
     &  -5.5000E-01,-5.4100E-01,-5.3200E-01,-5.2300E-01,-5.1400E-01,
     &  -5.0500E-01,-4.9600E-01,-4.8700E-01,-4.7800E-01,-4.6900E-01,
     &  -4.6000E-01,-4.5100E-01,-4.4200E-01,-4.3300E-01,-4.2400E-01,
     &  -4.1500E-01,-4.0600E-01,-3.9700E-01,-3.8800E-01,-3.7900E-01,
     &  -3.7000E-01,-3.6100E-01,-3.5200E-01,-3.4300E-01,-3.3400E-01,
     &  -3.2500E-01,-3.1600E-01,-3.0700E-01,-2.9800E-01,-2.8900E-01,
     &  -2.8000E-01,-2.7100E-01,-2.6200E-01,-2.5300E-01,-2.4400E-01,
     &  -2.3500E-01,-2.2600E-01,-2.1700E-01,-2.0800E-01,-1.9900E-01,
     &  -1.9000E-01,-1.8100E-01,-1.7200E-01,-1.6300E-01,-1.5400E-01,
     &  -1.4500E-01,-1.3600E-01,-1.2700E-01,-1.1800E-01,-1.0900E-01,
     &  -1.0000E-01,-9.9100E-02,-9.8200E-02,-9.7300E-02,-9.6400E-02,
     &  -9.5500E-02,-9.4600E-02,-9.3700E-02,-9.2800E-02,-9.1900E-02,
     &  -9.1000E-02,-9.0100E-02,-8.9200E-02,-8.8300E-02,-8.7400E-02,
     &  -8.6500E-02,-8.5600E-02,-8.4700E-02,-8.3800E-02,-8.2900E-02/

       DATA  (ETA  (I), I= 401, 500) /
     &  -8.2000E-02,-8.1100E-02,-8.0200E-02,-7.9300E-02,-7.8400E-02,
     &  -7.7500E-02,-7.6600E-02,-7.5700E-02,-7.4800E-02,-7.3900E-02,
     &  -7.3000E-02,-7.2100E-02,-7.1200E-02,-7.0300E-02,-6.9400E-02,
     &  -6.8500E-02,-6.7600E-02,-6.6700E-02,-6.5800E-02,-6.4900E-02,
     &  -6.4000E-02,-6.3100E-02,-6.2200E-02,-6.1300E-02,-6.0400E-02,
     &  -5.9500E-02,-5.8600E-02,-5.7700E-02,-5.6800E-02,-5.5900E-02,
     &  -5.5000E-02,-5.4100E-02,-5.3200E-02,-5.2300E-02,-5.1400E-02,
     &  -5.0500E-02,-4.9600E-02,-4.8700E-02,-4.7800E-02,-4.6900E-02,
     &  -4.6000E-02,-4.5100E-02,-4.4200E-02,-4.3300E-02,-4.2400E-02,
     &  -4.1500E-02,-4.0600E-02,-3.9700E-02,-3.8800E-02,-3.7900E-02,
     &  -3.7000E-02,-3.6100E-02,-3.5200E-02,-3.4300E-02,-3.3400E-02,
     &  -3.2500E-02,-3.1600E-02,-3.0700E-02,-2.9800E-02,-2.8900E-02,
     &  -2.8000E-02,-2.7100E-02,-2.6200E-02,-2.5300E-02,-2.4400E-02,
     &  -2.3500E-02,-2.2600E-02,-2.1700E-02,-2.0800E-02,-1.9900E-02,
     &  -1.9000E-02,-1.8100E-02,-1.7200E-02,-1.6300E-02,-1.5400E-02,
     &  -1.4500E-02,-1.3600E-02,-1.2700E-02,-1.1800E-02,-1.0900E-02,
     &  -1.0000E-02,-9.9100E-03,-9.8200E-03,-9.7300E-03,-9.6400E-03,
     &  -9.5500E-03,-9.4600E-03,-9.3700E-03,-9.2800E-03,-9.1900E-03,
     &  -9.1000E-03,-9.0100E-03,-8.9200E-03,-8.8300E-03,-8.7400E-03,
     &  -8.6500E-03,-8.5600E-03,-8.4700E-03,-8.3800E-03,-8.2900E-03/

       DATA  (ETA  (I), I= 501, 600) /
     &  -8.2000E-03,-8.1100E-03,-8.0200E-03,-7.9300E-03,-7.8400E-03,
     &  -7.7500E-03,-7.6600E-03,-7.5700E-03,-7.4800E-03,-7.3900E-03,
     &  -7.3000E-03,-7.2100E-03,-7.1200E-03,-7.0300E-03,-6.9400E-03,
     &  -6.8500E-03,-6.7600E-03,-6.6700E-03,-6.5800E-03,-6.4900E-03,
     &  -6.4000E-03,-6.3100E-03,-6.2200E-03,-6.1300E-03,-6.0400E-03,
     &  -5.9500E-03,-5.8600E-03,-5.7700E-03,-5.6800E-03,-5.5900E-03,
     &  -5.5000E-03,-5.4100E-03,-5.3200E-03,-5.2300E-03,-5.1400E-03,
     &  -5.0500E-03,-4.9600E-03,-4.8700E-03,-4.7800E-03,-4.6900E-03,
     &  -4.6000E-03,-4.5100E-03,-4.4200E-03,-4.3300E-03,-4.2400E-03,
     &  -4.1500E-03,-4.0600E-03,-3.9700E-03,-3.8800E-03,-3.7900E-03,
     &  -3.7000E-03,-3.6100E-03,-3.5200E-03,-3.4300E-03,-3.3400E-03,
     &  -3.2500E-03,-3.1600E-03,-3.0700E-03,-2.9800E-03,-2.8900E-03,
     &  -2.8000E-03,-2.7100E-03,-2.6200E-03,-2.5300E-03,-2.4400E-03,
     &  -2.3500E-03,-2.2600E-03,-2.1700E-03,-2.0800E-03,-1.9900E-03,
     &  -1.9000E-03,-1.8100E-03,-1.7200E-03,-1.6300E-03,-1.5400E-03,
     &  -1.4500E-03,-1.3600E-03,-1.2700E-03,-1.1800E-03,-1.0900E-03,
     &  -1.0000E-03,-9.9100E-04,-9.8200E-04,-9.7300E-04,-9.6400E-04,
     &  -9.5500E-04,-9.4600E-04,-9.3700E-04,-9.2800E-04,-9.1900E-04,
     &  -9.1000E-04,-9.0100E-04,-8.9200E-04,-8.8300E-04,-8.7400E-04,
     &  -8.6500E-04,-8.5600E-04,-8.4700E-04,-8.3800E-04,-8.2900E-04/

       DATA  (ETA  (I), I= 601, 700) /
     &  -8.2000E-04,-8.1100E-04,-8.0200E-04,-7.9300E-04,-7.8400E-04,
     &  -7.7500E-04,-7.6600E-04,-7.5700E-04,-7.4800E-04,-7.3900E-04,
     &  -7.3000E-04,-7.2100E-04,-7.1200E-04,-7.0300E-04,-6.9400E-04,
     &  -6.8500E-04,-6.7600E-04,-6.6700E-04,-6.5800E-04,-6.4900E-04,
     &  -6.4000E-04,-6.3100E-04,-6.2200E-04,-6.1300E-04,-6.0400E-04,
     &  -5.9500E-04,-5.8600E-04,-5.7700E-04,-5.6800E-04,-5.5900E-04,
     &  -5.5000E-04,-5.4100E-04,-5.3200E-04,-5.2300E-04,-5.1400E-04,
     &  -5.0500E-04,-4.9600E-04,-4.8700E-04,-4.7800E-04,-4.6900E-04,
     &  -4.6000E-04,-4.5100E-04,-4.4200E-04,-4.3300E-04,-4.2400E-04,
     &  -4.1500E-04,-4.0600E-04,-3.9700E-04,-3.8800E-04,-3.7900E-04,
     &  -3.7000E-04,-3.6100E-04,-3.5200E-04,-3.4300E-04,-3.3400E-04,
     &  -3.2500E-04,-3.1600E-04,-3.0700E-04,-2.9800E-04,-2.8900E-04,
     &  -2.8000E-04,-2.7100E-04,-2.6200E-04,-2.5300E-04,-2.4400E-04,
     &  -2.3500E-04,-2.2600E-04,-2.1700E-04,-2.0800E-04,-1.9900E-04,
     &  -1.9000E-04,-1.8100E-04,-1.7200E-04,-1.6300E-04,-1.5400E-04,
     &  -1.4500E-04,-1.3600E-04,-1.2700E-04,-1.1800E-04,-1.0900E-04,
     &  -1.0000E-04,-9.9100E-05,-9.8200E-05,-9.7300E-05,-9.6400E-05,
     &  -9.5500E-05,-9.4600E-05,-9.3700E-05,-9.2800E-05,-9.1900E-05,
     &  -9.1000E-05,-9.0100E-05,-8.9200E-05,-8.8300E-05,-8.7400E-05,
     &  -8.6500E-05,-8.5600E-05,-8.4700E-05,-8.3800E-05,-8.2900E-05/

       DATA  (ETA  (I), I= 701, 800) /
     &  -8.2000E-05,-8.1100E-05,-8.0200E-05,-7.9300E-05,-7.8400E-05,
     &  -7.7500E-05,-7.6600E-05,-7.5700E-05,-7.4800E-05,-7.3900E-05,
     &  -7.3000E-05,-7.2100E-05,-7.1200E-05,-7.0300E-05,-6.9400E-05,
     &  -6.8500E-05,-6.7600E-05,-6.6700E-05,-6.5800E-05,-6.4900E-05,
     &  -6.4000E-05,-6.3100E-05,-6.2200E-05,-6.1300E-05,-6.0400E-05,
     &  -5.9500E-05,-5.8600E-05,-5.7700E-05,-5.6800E-05,-5.5900E-05,
     &  -5.5000E-05,-5.4100E-05,-5.3200E-05,-5.2300E-05,-5.1400E-05,
     &  -5.0500E-05,-4.9600E-05,-4.8700E-05,-4.7800E-05,-4.6900E-05,
     &  -4.6000E-05,-4.5100E-05,-4.4200E-05,-4.3300E-05,-4.2400E-05,
     &  -4.1500E-05,-4.0600E-05,-3.9700E-05,-3.8800E-05,-3.7900E-05,
     &  -3.7000E-05,-3.6100E-05,-3.5200E-05,-3.4300E-05,-3.3400E-05,
     &  -3.2500E-05,-3.1600E-05,-3.0700E-05,-2.9800E-05,-2.8900E-05,
     &  -2.8000E-05,-2.7100E-05,-2.6200E-05,-2.5300E-05,-2.4400E-05,
     &  -2.3500E-05,-2.2600E-05,-2.1700E-05,-2.0800E-05,-1.9900E-05,
     &  -1.9000E-05,-1.8100E-05,-1.7200E-05,-1.6300E-05,-1.5400E-05,
     &  -1.4500E-05,-1.3600E-05,-1.2700E-05,-1.1800E-05,-1.0900E-05,
     &  -1.0000E-05,-9.9100E-06,-9.8200E-06,-9.7300E-06,-9.6400E-06,
     &  -9.5500E-06,-9.4600E-06,-9.3700E-06,-9.2800E-06,-9.1900E-06,
     &  -9.1000E-06,-9.0100E-06,-8.9200E-06,-8.8300E-06,-8.7400E-06,
     &  -8.6500E-06,-8.5600E-06,-8.4700E-06,-8.3800E-06,-8.2900E-06/

       DATA  (ETA  (I), I= 801, 900) /
     &  -8.2000E-06,-8.1100E-06,-8.0200E-06,-7.9300E-06,-7.8400E-06,
     &  -7.7500E-06,-7.6600E-06,-7.5700E-06,-7.4800E-06,-7.3900E-06,
     &  -7.3000E-06,-7.2100E-06,-7.1200E-06,-7.0300E-06,-6.9400E-06,
     &  -6.8500E-06,-6.7600E-06,-6.6700E-06,-6.5800E-06,-6.4900E-06,
     &  -6.4000E-06,-6.3100E-06,-6.2200E-06,-6.1300E-06,-6.0400E-06,
     &  -5.9500E-06,-5.8600E-06,-5.7700E-06,-5.6800E-06,-5.5900E-06,
     &  -5.5000E-06,-5.4100E-06,-5.3200E-06,-5.2300E-06,-5.1400E-06,
     &  -5.0500E-06,-4.9600E-06,-4.8700E-06,-4.7800E-06,-4.6900E-06,
     &  -4.6000E-06,-4.5100E-06,-4.4200E-06,-4.3300E-06,-4.2400E-06,
     &  -4.1500E-06,-4.0600E-06,-3.9700E-06,-3.8800E-06,-3.7900E-06,
     &  -3.7000E-06,-3.6100E-06,-3.5200E-06,-3.4300E-06,-3.3400E-06,
     &  -3.2500E-06,-3.1600E-06,-3.0700E-06,-2.9800E-06,-2.8900E-06,
     &  -2.8000E-06,-2.7100E-06,-2.6200E-06,-2.5300E-06,-2.4400E-06,
     &  -2.3500E-06,-2.2600E-06,-2.1700E-06,-2.0800E-06,-1.9900E-06,
     &  -1.9000E-06,-1.8100E-06,-1.7200E-06,-1.6300E-06,-1.5400E-06,
     &  -1.4500E-06,-1.3600E-06,-1.2700E-06,-1.1800E-06,-1.0900E-06,
     &  -1.0000E-06, 0.0000E+00, 1.0000E-06, 3.0010E-03, 6.0010E-03,
     &   9.0010E-03, 1.2000E-02, 1.5000E-02, 1.8000E-02, 2.1000E-02,
     &   2.4000E-02, 2.7000E-02, 3.0000E-02, 3.3000E-02, 3.6000E-02,
     &   3.9000E-02, 4.2000E-02, 4.5000E-02, 4.8000E-02, 5.1000E-02/

       DATA  (ETA  (I), I= 901, 979) /
     &   5.4000E-02, 5.7000E-02, 6.0000E-02, 6.3000E-02, 6.6000E-02,
     &   6.9000E-02, 7.2000E-02, 7.5000E-02, 7.8000E-02, 8.1000E-02,
     &   8.4000E-02, 8.7000E-02, 9.0000E-02, 9.3000E-02, 9.6000E-02,
     &   9.9000E-02, 1.0200E-01, 1.0500E-01, 1.0800E-01, 1.1100E-01,
     &   1.1400E-01, 1.1700E-01, 1.2000E-01, 1.2300E-01, 1.2600E-01,
     &   1.2900E-01, 1.3200E-01, 1.3500E-01, 1.3800E-01, 1.4100E-01,
     &   1.4400E-01, 1.4700E-01, 1.5000E-01, 1.5300E-01, 1.5600E-01,
     &   1.5900E-01, 1.6200E-01, 1.6500E-01, 1.6800E-01, 1.7100E-01,
     &   1.7400E-01, 1.7700E-01, 1.8000E-01, 1.8300E-01, 1.8600E-01,
     &   1.8900E-01, 1.9200E-01, 1.9500E-01, 1.9800E-01, 2.0100E-01,
     &   2.0400E-01, 2.0700E-01, 2.1000E-01, 2.1300E-01, 2.1600E-01,
     &   2.1900E-01, 2.2200E-01, 2.2500E-01, 2.2800E-01, 2.3100E-01,
     &   2.3400E-01, 2.3700E-01, 2.4000E-01, 2.4300E-01, 2.4600E-01,
     &   2.4900E-01, 2.5200E-01, 2.5500E-01, 2.5800E-01, 2.6100E-01,
     &   2.6400E-01, 2.6700E-01, 2.7000E-01, 2.7100E-01, 2.7300E-01,
     &   0.27370000D0, 0.27599999D0, 0.27630001D0, 0.27700001D0/

         DATA ((DAT  (I,J), I=   1, 100), J=1,1) /
     &   4.1138E-02, 4.1087E-02, 4.1035E-02, 4.0982E-02, 4.0929E-02,
     &   4.0875E-02, 4.0820E-02, 4.0765E-02, 4.0709E-02, 4.0653E-02,
     &   4.0596E-02, 4.0538E-02, 4.0479E-02, 4.0420E-02, 4.0360E-02,
     &   4.0299E-02, 4.0237E-02, 4.0175E-02, 4.0112E-02, 4.0047E-02,
     &   3.9982E-02, 3.9916E-02, 3.9849E-02, 3.9781E-02, 3.9712E-02,
     &   3.9642E-02, 3.9571E-02, 3.9499E-02, 3.9426E-02, 3.9352E-02,
     &   3.9276E-02, 3.9200E-02, 3.9122E-02, 3.9042E-02, 3.8962E-02,
     &   3.8880E-02, 3.8796E-02, 3.8712E-02, 3.8625E-02, 3.8537E-02,
     &   3.8448E-02, 3.8357E-02, 3.8264E-02, 3.8169E-02, 3.8072E-02,
     &   3.7974E-02, 3.7873E-02, 3.7771E-02, 3.7666E-02, 3.7559E-02,
     &   3.7450E-02, 3.7338E-02, 3.7224E-02, 3.7107E-02, 3.6987E-02,
     &   3.6865E-02, 3.6740E-02, 3.6611E-02, 3.6479E-02, 3.6344E-02,
     &   3.6205E-02, 3.6062E-02, 3.5916E-02, 3.5765E-02, 3.5610E-02,
     &   3.5450E-02, 3.5285E-02, 3.5115E-02, 3.4940E-02, 3.4758E-02,
     &   3.4571E-02, 3.4376E-02, 3.4175E-02, 3.3966E-02, 3.3748E-02,
     &   3.3522E-02, 3.3286E-02, 3.3040E-02, 3.2783E-02, 3.2513E-02,
     &   3.2229E-02, 3.1931E-02, 3.1616E-02, 3.1283E-02, 3.0929E-02,
     &   3.0551E-02, 3.0148E-02, 2.9713E-02, 2.9244E-02, 2.8733E-02,
     &   2.8173E-02, 2.8114E-02, 2.8054E-02, 2.7993E-02, 2.7932E-02,
     &   2.7871E-02, 2.7809E-02, 2.7746E-02, 2.7682E-02, 2.7618E-02/

         DATA ((DAT  (I,J), I= 101, 200), J=1,1) /
     &   2.7553E-02, 2.7487E-02, 2.7420E-02, 2.7353E-02, 2.7285E-02,
     &   2.7216E-02, 2.7146E-02, 2.7076E-02, 2.7004E-02, 2.6932E-02,
     &   2.6859E-02, 2.6785E-02, 2.6710E-02, 2.6634E-02, 2.6557E-02,
     &   2.6479E-02, 2.6399E-02, 2.6319E-02, 2.6238E-02, 2.6155E-02,
     &   2.6072E-02, 2.5987E-02, 2.5901E-02, 2.5813E-02, 2.5725E-02,
     &   2.5635E-02, 2.5543E-02, 2.5450E-02, 2.5356E-02, 2.5260E-02,
     &   2.5162E-02, 2.5063E-02, 2.4962E-02, 2.4860E-02, 2.4755E-02,
     &   2.4649E-02, 2.4540E-02, 2.4430E-02, 2.4318E-02, 2.4203E-02,
     &   2.4086E-02, 2.3967E-02, 2.3845E-02, 2.3721E-02, 2.3594E-02,
     &   2.3464E-02, 2.3331E-02, 2.3196E-02, 2.3057E-02, 2.2914E-02,
     &   2.2768E-02, 2.2619E-02, 2.2466E-02, 2.2308E-02, 2.2147E-02,
     &   2.1980E-02, 2.1809E-02, 2.1633E-02, 2.1452E-02, 2.1265E-02,
     &   2.1071E-02, 2.0871E-02, 2.0665E-02, 2.0451E-02, 2.0229E-02,
     &   1.9998E-02, 1.9758E-02, 1.9508E-02, 1.9247E-02, 1.8975E-02,
     &   1.8689E-02, 1.8389E-02, 1.8074E-02, 1.7741E-02, 1.7388E-02,
     &   1.7014E-02, 1.6615E-02, 1.6188E-02, 1.5729E-02, 1.5232E-02,
     &   1.4692E-02, 1.4641E-02, 1.4589E-02, 1.4537E-02, 1.4485E-02,
     &   1.4432E-02, 1.4379E-02, 1.4325E-02, 1.4271E-02, 1.4216E-02,
     &   1.4161E-02, 1.4105E-02, 1.4049E-02, 1.3992E-02, 1.3934E-02,
     &   1.3877E-02, 1.3818E-02, 1.3759E-02, 1.3700E-02, 1.3640E-02/

         DATA ((DAT  (I,J), I= 201, 300), J=1,1) /
     &   1.3579E-02, 1.3517E-02, 1.3456E-02, 1.3393E-02, 1.3330E-02,
     &   1.3266E-02, 1.3201E-02, 1.3136E-02, 1.3070E-02, 1.3003E-02,
     &   1.2936E-02, 1.2868E-02, 1.2799E-02, 1.2729E-02, 1.2659E-02,
     &   1.2587E-02, 1.2515E-02, 1.2442E-02, 1.2368E-02, 1.2293E-02,
     &   1.2218E-02, 1.2141E-02, 1.2063E-02, 1.1985E-02, 1.1905E-02,
     &   1.1825E-02, 1.1743E-02, 1.1660E-02, 1.1576E-02, 1.1491E-02,
     &   1.1404E-02, 1.1317E-02, 1.1228E-02, 1.1138E-02, 1.1047E-02,
     &   1.0954E-02, 1.0860E-02, 1.0764E-02, 1.0667E-02, 1.0568E-02,
     &   1.0468E-02, 1.0366E-02, 1.0262E-02, 1.0157E-02, 1.0049E-02,
     &   9.9403E-03, 9.8293E-03, 9.7162E-03, 9.6011E-03, 9.4837E-03,
     &   9.3642E-03, 9.2422E-03, 9.1179E-03, 8.9910E-03, 8.8615E-03,
     &   8.7292E-03, 8.5941E-03, 8.4559E-03, 8.3146E-03, 8.1699E-03,
     &   8.0217E-03, 7.8699E-03, 7.7142E-03, 7.5543E-03, 7.3901E-03,
     &   7.2212E-03, 7.0474E-03, 6.8682E-03, 6.6832E-03, 6.4921E-03,
     &   6.2942E-03, 6.0889E-03, 5.8757E-03, 5.6549E-03, 5.4231E-03,
     &   5.1814E-03, 4.9268E-03, 4.6588E-03, 4.3760E-03, 4.0767E-03,
     &   3.7592E-03, 3.7264E-03, 3.6934E-03, 3.6602E-03, 3.6268E-03,
     &   3.5932E-03, 3.5594E-03, 3.5253E-03, 3.4911E-03, 3.4567E-03,
     &   3.4220E-03, 3.3872E-03, 3.3521E-03, 3.3168E-03, 3.2813E-03,
     &   3.2456E-03, 3.2097E-03, 3.1735E-03, 3.1372E-03, 3.1006E-03/

         DATA ((DAT  (I,J), I= 301, 400), J=1,1) /
     &   3.0638E-03, 3.0268E-03, 2.9896E-03, 2.9522E-03, 2.9145E-03,
     &   2.8767E-03, 2.8386E-03, 2.8003E-03, 2.7618E-03, 2.7231E-03,
     &   2.6842E-03, 2.6451E-03, 2.6058E-03, 2.5663E-03, 2.5266E-03,
     &   2.4867E-03, 2.4467E-03, 2.4064E-03, 2.3659E-03, 2.3253E-03,
     &   2.2845E-03, 2.2436E-03, 2.2024E-03, 2.1612E-03, 2.1198E-03,
     &   2.0782E-03, 2.0365E-03, 1.9947E-03, 1.9528E-03, 1.9107E-03,
     &   1.8686E-03, 1.8264E-03, 1.7841E-03, 1.7418E-03, 1.6994E-03,
     &   1.6570E-03, 1.6146E-03, 1.5721E-03, 1.5297E-03, 1.4873E-03,
     &   1.4450E-03, 1.4027E-03, 1.3605E-03, 1.3184E-03, 1.2764E-03,
     &   1.2346E-03, 1.1929E-03, 1.1514E-03, 1.1102E-03, 1.0691E-03,
     &   1.0284E-03, 9.8794E-04, 9.4780E-04, 9.0801E-04, 8.6861E-04,
     &   8.2961E-04, 7.9106E-04, 7.5298E-04, 7.1542E-04, 6.7839E-04,
     &   6.4195E-04, 6.0611E-04, 5.7093E-04, 5.3644E-04, 5.0267E-04,
     &   4.6966E-04, 4.3746E-04, 4.0610E-04, 3.7561E-04, 3.4604E-04,
     &   3.1743E-04, 2.8982E-04, 2.6324E-04, 2.3774E-04, 2.1334E-04,
     &   1.9010E-04, 1.6805E-04, 1.4721E-04, 1.2763E-04, 1.0934E-04,
     &   9.2374E-05, 9.0751E-05, 8.9141E-05, 8.7545E-05, 8.5963E-05,
     &   8.4395E-05, 8.2840E-05, 8.1298E-05, 7.9771E-05, 7.8257E-05,
     &   7.6757E-05, 7.5271E-05, 7.3798E-05, 7.2340E-05, 7.0895E-05,
     &   6.9464E-05, 6.8048E-05, 6.6645E-05, 6.5256E-05, 6.3881E-05/

         DATA ((DAT  (I,J), I= 401, 500), J=1,1) /
     &   6.2520E-05, 6.1173E-05, 5.9841E-05, 5.8522E-05, 5.7218E-05,
     &   5.5927E-05, 5.4651E-05, 5.3389E-05, 5.2142E-05, 5.0908E-05,
     &   4.9689E-05, 4.8484E-05, 4.7294E-05, 4.6118E-05, 4.4956E-05,
     &   4.3808E-05, 4.2675E-05, 4.1557E-05, 4.0453E-05, 3.9363E-05,
     &   3.8288E-05, 3.7227E-05, 3.6181E-05, 3.5150E-05, 3.4133E-05,
     &   3.3131E-05, 3.2143E-05, 3.1170E-05, 3.0211E-05, 2.9268E-05,
     &   2.8339E-05, 2.7424E-05, 2.6525E-05, 2.5640E-05, 2.4770E-05,
     &   2.3914E-05, 2.3074E-05, 2.2248E-05, 2.1437E-05, 2.0641E-05,
     &   1.9860E-05, 1.9094E-05, 1.8342E-05, 1.7606E-05, 1.6884E-05,
     &   1.6177E-05, 1.5486E-05, 1.4809E-05, 1.4147E-05, 1.3500E-05,
     &   1.2869E-05, 1.2252E-05, 1.1650E-05, 1.1063E-05, 1.0492E-05,
     &   9.9352E-06, 9.3937E-06, 8.8672E-06, 8.3559E-06, 7.8597E-06,
     &   7.3785E-06, 6.9125E-06, 6.4617E-06, 6.0259E-06, 5.6054E-06,
     &   5.1999E-06, 4.8097E-06, 4.4346E-06, 4.0747E-06, 3.7300E-06,
     &   3.4005E-06, 3.0862E-06, 2.7871E-06, 2.5032E-06, 2.2345E-06,
     &   1.9811E-06, 1.7429E-06, 1.5199E-06, 1.3122E-06, 1.1197E-06,
     &   9.4247E-07, 9.2559E-07, 9.0886E-07, 8.9228E-07, 8.7585E-07,
     &   8.5957E-07, 8.4345E-07, 8.2748E-07, 8.1167E-07, 7.9600E-07,
     &   7.8049E-07, 7.6513E-07, 7.4992E-07, 7.3487E-07, 7.1997E-07,
     &   7.0522E-07, 6.9062E-07, 6.7618E-07, 6.6189E-07, 6.4775E-07/

         DATA ((DAT  (I,J), I= 501, 600), J=1,1) /
     &   6.3376E-07, 6.1993E-07, 6.0625E-07, 5.9272E-07, 5.7934E-07,
     &   5.6612E-07, 5.5305E-07, 5.4013E-07, 5.2737E-07, 5.1475E-07,
     &   5.0229E-07, 4.8998E-07, 4.7783E-07, 4.6583E-07, 4.5398E-07,
     &   4.4228E-07, 4.3074E-07, 4.1934E-07, 4.0810E-07, 3.9702E-07,
     &   3.8608E-07, 3.7530E-07, 3.6467E-07, 3.5420E-07, 3.4387E-07,
     &   3.3370E-07, 3.2369E-07, 3.1382E-07, 3.0411E-07, 2.9455E-07,
     &   2.8514E-07, 2.7588E-07, 2.6678E-07, 2.5783E-07, 2.4904E-07,
     &   2.4039E-07, 2.3190E-07, 2.2356E-07, 2.1537E-07, 2.0734E-07,
     &   1.9946E-07, 1.9173E-07, 1.8416E-07, 1.7673E-07, 1.6946E-07,
     &   1.6235E-07, 1.5538E-07, 1.4857E-07, 1.4191E-07, 1.3540E-07,
     &   1.2905E-07, 1.2285E-07, 1.1680E-07, 1.1090E-07, 1.0516E-07,
     &   9.9567E-08, 9.4129E-08, 8.8844E-08, 8.3711E-08, 7.8731E-08,
     &   7.3904E-08, 6.9229E-08, 6.4708E-08, 6.0338E-08, 5.6122E-08,
     &   5.2058E-08, 4.8147E-08, 4.4389E-08, 4.0783E-08, 3.7330E-08,
     &   3.4030E-08, 3.0883E-08, 2.7888E-08, 2.5046E-08, 2.2356E-08,
     &   1.9820E-08, 1.7436E-08, 1.5204E-08, 1.3126E-08, 1.1200E-08,
     &   9.4267E-09, 9.2577E-09, 9.0904E-09, 8.9245E-09, 8.7602E-09,
     &   8.5973E-09, 8.4361E-09, 8.2763E-09, 8.1181E-09, 7.9614E-09,
     &   7.8062E-09, 7.6526E-09, 7.5005E-09, 7.3499E-09, 7.2008E-09,
     &   7.0533E-09, 6.9073E-09, 6.7628E-09, 6.6198E-09, 6.4784E-09/

         DATA ((DAT  (I,J), I= 601, 700), J=1,1) /
     &   6.3385E-09, 6.2001E-09, 6.0633E-09, 5.9279E-09, 5.7942E-09,
     &   5.6619E-09, 5.5312E-09, 5.4019E-09, 5.2743E-09, 5.1481E-09,
     &   5.0235E-09, 4.9004E-09, 4.7788E-09, 4.6587E-09, 4.5402E-09,
     &   4.4232E-09, 4.3078E-09, 4.1938E-09, 4.0814E-09, 3.9705E-09,
     &   3.8612E-09, 3.7533E-09, 3.6470E-09, 3.5423E-09, 3.4390E-09,
     &   3.3373E-09, 3.2371E-09, 3.1384E-09, 3.0413E-09, 2.9457E-09,
     &   2.8516E-09, 2.7590E-09, 2.6680E-09, 2.5785E-09, 2.4905E-09,
     &   2.4040E-09, 2.3191E-09, 2.2357E-09, 2.1538E-09, 2.0735E-09,
     &   1.9947E-09, 1.9174E-09, 1.8416E-09, 1.7674E-09, 1.6947E-09,
     &   1.6235E-09, 1.5539E-09, 1.4857E-09, 1.4191E-09, 1.3541E-09,
     &   1.2905E-09, 1.2285E-09, 1.1680E-09, 1.1090E-09, 1.0516E-09,
     &   9.9569E-10, 9.4131E-10, 8.8845E-10, 8.3713E-10, 7.8733E-10,
     &   7.3905E-10, 6.9230E-10, 6.4708E-10, 6.0339E-10, 5.6123E-10,
     &   5.2059E-10, 4.8148E-10, 4.4389E-10, 4.0784E-10, 3.7331E-10,
     &   3.4030E-10, 3.0883E-10, 2.7888E-10, 2.5046E-10, 2.2356E-10,
     &   1.9820E-10, 1.7436E-10, 1.5204E-10, 1.3126E-10, 1.1200E-10,
     &   9.4267E-11, 9.2578E-11, 9.0904E-11, 8.9245E-11, 8.7602E-11,
     &   8.5974E-11, 8.4361E-11, 8.2763E-11, 8.1181E-11, 7.9614E-11,
     &   7.8062E-11, 7.6526E-11, 7.5005E-11, 7.3499E-11, 7.2008E-11,
     &   7.0533E-11, 6.9073E-11, 6.7628E-11, 6.6198E-11, 6.4784E-11/

         DATA ((DAT  (I,J), I= 701, 800), J=1,1) /
     &   6.3385E-11, 6.2001E-11, 6.0633E-11, 5.9280E-11, 5.7942E-11,
     &   5.6619E-11, 5.5312E-11, 5.4019E-11, 5.2743E-11, 5.1481E-11,
     &   5.0235E-11, 4.9004E-11, 4.7788E-11, 4.6587E-11, 4.5402E-11,
     &   4.4232E-11, 4.3078E-11, 4.1938E-11, 4.0814E-11, 3.9705E-11,
     &   3.8612E-11, 3.7533E-11, 3.6470E-11, 3.5423E-11, 3.4390E-11,
     &   3.3373E-11, 3.2371E-11, 3.1384E-11, 3.0413E-11, 2.9457E-11,
     &   2.8516E-11, 2.7590E-11, 2.6680E-11, 2.5785E-11, 2.4905E-11,
     &   2.4040E-11, 2.3191E-11, 2.2357E-11, 2.1538E-11, 2.0735E-11,
     &   1.9947E-11, 1.9174E-11, 1.8416E-11, 1.7674E-11, 1.6947E-11,
     &   1.6235E-11, 1.5539E-11, 1.4857E-11, 1.4191E-11, 1.3541E-11,
     &   1.2905E-11, 1.2285E-11, 1.1680E-11, 1.1090E-11, 1.0516E-11,
     &   9.9569E-12, 9.4131E-12, 8.8845E-12, 8.3713E-12, 7.8733E-12,
     &   7.3905E-12, 6.9230E-12, 6.4708E-12, 6.0339E-12, 5.6123E-12,
     &   5.2059E-12, 4.8148E-12, 4.4389E-12, 4.0784E-12, 3.7331E-12,
     &   3.4030E-12, 3.0883E-12, 2.7888E-12, 2.5046E-12, 2.2356E-12,
     &   1.9820E-12, 1.7436E-12, 1.5204E-12, 1.3126E-12, 1.1200E-12,
     &   9.4267E-13, 9.2578E-13, 9.0904E-13, 8.9245E-13, 8.7602E-13,
     &   8.5974E-13, 8.4361E-13, 8.2763E-13, 8.1181E-13, 7.9614E-13,
     &   7.8062E-13, 7.6526E-13, 7.5005E-13, 7.3499E-13, 7.2008E-13,
     &   7.0533E-13, 6.9073E-13, 6.7628E-13, 6.6198E-13, 6.4784E-13/

         DATA ((DAT  (I,J), I= 801, 900), J=1,1) /
     &   6.3385E-13, 6.2001E-13, 6.0633E-13, 5.9280E-13, 5.7942E-13,
     &   5.6619E-13, 5.5312E-13, 5.4019E-13, 5.2743E-13, 5.1481E-13,
     &   5.0235E-13, 4.9004E-13, 4.7788E-13, 4.6587E-13, 4.5402E-13,
     &   4.4232E-13, 4.3078E-13, 4.1938E-13, 4.0814E-13, 3.9705E-13,
     &   3.8612E-13, 3.7533E-13, 3.6470E-13, 3.5423E-13, 3.4390E-13,
     &   3.3373E-13, 3.2371E-13, 3.1384E-13, 3.0413E-13, 2.9457E-13,
     &   2.8516E-13, 2.7590E-13, 2.6680E-13, 2.5785E-13, 2.4905E-13,
     &   2.4040E-13, 2.3191E-13, 2.2357E-13, 2.1538E-13, 2.0735E-13,
     &   1.9947E-13, 1.9174E-13, 1.8416E-13, 1.7674E-13, 1.6947E-13,
     &   1.6235E-13, 1.5539E-13, 1.4857E-13, 1.4191E-13, 1.3541E-13,
     &   1.2905E-13, 1.2285E-13, 1.1680E-13, 1.1090E-13, 1.0516E-13,
     &   9.9569E-14, 9.4131E-14, 8.8845E-14, 8.3713E-14, 7.8733E-14,
     &   7.3905E-14, 6.9230E-14, 6.4708E-14, 6.0339E-14, 5.6123E-14,
     &   5.2059E-14, 4.8148E-14, 4.4389E-14, 4.0784E-14, 3.7331E-14,
     &   3.4030E-14, 3.0883E-14, 2.7888E-14, 2.5046E-14, 2.2356E-14,
     &   1.9820E-14, 1.7436E-14, 1.5204E-14, 1.3126E-14, 1.1200E-14,
     &   9.4267E-15, 0.0000E+00,-9.4267E-15,-8.4898E-08,-3.3950E-07,
     &  -7.6386E-07,-1.3578E-06,-2.1220E-06,-3.0563E-06,-4.1610E-06,
     &  -5.4363E-06,-6.8825E-06,-8.4999E-06,-1.0289E-05,-1.2250E-05,
     &  -1.4383E-05,-1.6690E-05,-1.9170E-05,-2.1824E-05,-2.4652E-05/

         DATA ((DAT  (I,J), I= 901, 979), J=1,1) /
     &  -2.7656E-05,-3.0836E-05,-3.4192E-05,-3.7727E-05,-4.1439E-05,
     &  -4.5331E-05,-4.9403E-05,-5.3656E-05,-5.8091E-05,-6.2709E-05,
     &  -6.7512E-05,-7.2500E-05,-7.7675E-05,-8.3038E-05,-8.8590E-05,
     &  -9.4333E-05,-1.0027E-04,-1.0640E-04,-1.1272E-04,-1.1924E-04,
     &  -1.2596E-04,-1.3288E-04,-1.4001E-04,-1.4734E-04,-1.5487E-04,
     &  -1.6261E-04,-1.7056E-04,-1.7873E-04,-1.8711E-04,-1.9571E-04,
     &  -2.0453E-04,-2.1357E-04,-2.2284E-04,-2.3233E-04,-2.4206E-04,
     &  -2.5202E-04,-2.6222E-04,-2.7266E-04,-2.8335E-04,-2.9429E-04,
     &  -3.0547E-04,-3.1692E-04,-3.2862E-04,-3.4059E-04,-3.5283E-04,
     &  -3.6535E-04,-3.7814E-04,-3.9122E-04,-4.0460E-04,-4.1826E-04,
     &  -4.3224E-04,-4.4652E-04,-4.6112E-04,-4.7604E-04,-4.9130E-04,
     &  -5.0689E-04,-5.2284E-04,-5.3915E-04,-5.5583E-04,-5.7290E-04,
     &  -5.9036E-04,-6.0823E-04,-6.2652E-04,-6.4526E-04,-6.6446E-04,
     &  -6.8414E-04,-7.0433E-04,-7.2506E-04,-7.4635E-04,-7.6824E-04,
     &  -7.9080E-04,-8.1407E-04,-8.3816E-04,-8.4639E-04,-8.6318E-04,
     &  -8.69172676E-04,-8.88714533E-04,-8.91407636E-04,-8.98419466E-04/

         DATA ((DAT  (I,J), I=   1, 100), J=2,2) /
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2963E-05, 5.2963E-05, 5.2963E-05,
     &   5.2963E-05, 5.2963E-05, 5.2963E-05, 5.2963E-05, 5.2963E-05,
     &   5.2963E-05, 5.2963E-05, 5.2963E-05, 5.2963E-05, 5.2963E-05,
     &   5.2963E-05, 5.2963E-05, 5.2963E-05, 5.2963E-05, 5.2963E-05,
     &   5.2963E-05, 5.2963E-05, 5.2963E-05, 5.2963E-05, 5.2962E-05,
     &   5.2962E-05, 5.2962E-05, 5.2962E-05, 5.2962E-05, 5.2962E-05,
     &   5.2962E-05, 5.2962E-05, 5.2962E-05, 5.2962E-05, 5.2961E-05,
     &   5.2961E-05, 5.2961E-05, 5.2961E-05, 5.2961E-05, 5.2961E-05,
     &   5.2960E-05, 5.2960E-05, 5.2960E-05, 5.2960E-05, 5.2959E-05,
     &   5.2959E-05, 5.2959E-05, 5.2958E-05, 5.2958E-05, 5.2958E-05,
     &   5.2957E-05, 5.2957E-05, 5.2956E-05, 5.2955E-05, 5.2955E-05,
     &   5.2954E-05, 5.2953E-05, 5.2952E-05, 5.2951E-05, 5.2949E-05,
     &   5.2948E-05, 5.2946E-05, 5.2944E-05, 5.2942E-05, 5.2939E-05,
     &   5.2935E-05, 5.2931E-05, 5.2925E-05, 5.2918E-05, 5.2910E-05,
     &   5.2898E-05, 5.2897E-05, 5.2895E-05, 5.2894E-05, 5.2892E-05,
     &   5.2891E-05, 5.2889E-05, 5.2888E-05, 5.2886E-05, 5.2884E-05/

         DATA ((DAT  (I,J), I= 101, 200), J=2,2) /
     &   5.2883E-05, 5.2881E-05, 5.2879E-05, 5.2877E-05, 5.2875E-05,
     &   5.2873E-05, 5.2870E-05, 5.2868E-05, 5.2866E-05, 5.2863E-05,
     &   5.2861E-05, 5.2858E-05, 5.2855E-05, 5.2853E-05, 5.2850E-05,
     &   5.2847E-05, 5.2843E-05, 5.2840E-05, 5.2837E-05, 5.2833E-05,
     &   5.2829E-05, 5.2825E-05, 5.2821E-05, 5.2817E-05, 5.2812E-05,
     &   5.2808E-05, 5.2803E-05, 5.2798E-05, 5.2792E-05, 5.2787E-05,
     &   5.2781E-05, 5.2774E-05, 5.2768E-05, 5.2761E-05, 5.2754E-05,
     &   5.2746E-05, 5.2738E-05, 5.2729E-05, 5.2720E-05, 5.2711E-05,
     &   5.2701E-05, 5.2690E-05, 5.2678E-05, 5.2666E-05, 5.2653E-05,
     &   5.2639E-05, 5.2625E-05, 5.2609E-05, 5.2592E-05, 5.2574E-05,
     &   5.2554E-05, 5.2533E-05, 5.2511E-05, 5.2486E-05, 5.2460E-05,
     &   5.2431E-05, 5.2400E-05, 5.2366E-05, 5.2329E-05, 5.2289E-05,
     &   5.2244E-05, 5.2195E-05, 5.2141E-05, 5.2080E-05, 5.2013E-05,
     &   5.1938E-05, 5.1854E-05, 5.1760E-05, 5.1653E-05, 5.1531E-05,
     &   5.1392E-05, 5.1231E-05, 5.1045E-05, 5.0828E-05, 5.0573E-05,
     &   5.0269E-05, 4.9905E-05, 4.9464E-05, 4.8922E-05, 4.8248E-05,
     &   4.7395E-05, 4.7307E-05, 4.7218E-05, 4.7126E-05, 4.7032E-05,
     &   4.6936E-05, 4.6838E-05, 4.6737E-05, 4.6634E-05, 4.6529E-05,
     &   4.6420E-05, 4.6310E-05, 4.6196E-05, 4.6080E-05, 4.5961E-05,
     &   4.5838E-05, 4.5713E-05, 4.5585E-05, 4.5453E-05, 4.5318E-05/

         DATA ((DAT  (I,J), I= 201, 300), J=2,2) /
     &   4.5179E-05, 4.5037E-05, 4.4890E-05, 4.4740E-05, 4.4586E-05,
     &   4.4428E-05, 4.4266E-05, 4.4099E-05, 4.3927E-05, 4.3751E-05,
     &   4.3570E-05, 4.3384E-05, 4.3192E-05, 4.2995E-05, 4.2793E-05,
     &   4.2585E-05, 4.2370E-05, 4.2150E-05, 4.1923E-05, 4.1689E-05,
     &   4.1448E-05, 4.1200E-05, 4.0945E-05, 4.0682E-05, 4.0411E-05,
     &   4.0132E-05, 3.9844E-05, 3.9548E-05, 3.9242E-05, 3.8927E-05,
     &   3.8602E-05, 3.8267E-05, 3.7921E-05, 3.7564E-05, 3.7197E-05,
     &   3.6817E-05, 3.6426E-05, 3.6022E-05, 3.5606E-05, 3.5176E-05,
     &   3.4732E-05, 3.4275E-05, 3.3803E-05, 3.3316E-05, 3.2814E-05,
     &   3.2296E-05, 3.1762E-05, 3.1212E-05, 3.0644E-05, 3.0060E-05,
     &   2.9457E-05, 2.8837E-05, 2.8199E-05, 2.7543E-05, 2.6868E-05,
     &   2.6174E-05, 2.5462E-05, 2.4731E-05, 2.3983E-05, 2.3216E-05,
     &   2.2431E-05, 2.1629E-05, 2.0811E-05, 1.9978E-05, 1.9130E-05,
     &   1.8270E-05, 1.7398E-05, 1.6516E-05, 1.5626E-05, 1.4731E-05,
     &   1.3833E-05, 1.2935E-05, 1.2040E-05, 1.1152E-05, 1.0273E-05,
     &   9.4081E-06, 8.5606E-06, 7.7343E-06, 6.9327E-06, 6.1591E-06,
     &   5.4163E-06, 5.3438E-06, 5.2716E-06, 5.1998E-06, 5.1283E-06,
     &   5.0571E-06, 4.9863E-06, 4.9158E-06, 4.8457E-06, 4.7758E-06,
     &   4.7064E-06, 4.6373E-06, 4.5685E-06, 4.5000E-06, 4.4319E-06,
     &   4.3642E-06, 4.2968E-06, 4.2297E-06, 4.1630E-06, 4.0966E-06/

         DATA ((DAT  (I,J), I= 301, 400), J=2,2) /
     &   4.0306E-06, 3.9649E-06, 3.8996E-06, 3.8346E-06, 3.7700E-06,
     &   3.7057E-06, 3.6417E-06, 3.5781E-06, 3.5148E-06, 3.4519E-06,
     &   3.3893E-06, 3.3271E-06, 3.2652E-06, 3.2036E-06, 3.1424E-06,
     &   3.0815E-06, 3.0210E-06, 2.9608E-06, 2.9009E-06, 2.8414E-06,
     &   2.7822E-06, 2.7234E-06, 2.6649E-06, 2.6067E-06, 2.5489E-06,
     &   2.4914E-06, 2.4343E-06, 2.3774E-06, 2.3210E-06, 2.2649E-06,
     &   2.2091E-06, 2.1537E-06, 2.0986E-06, 2.0439E-06, 1.9895E-06,
     &   1.9355E-06, 1.8819E-06, 1.8286E-06, 1.7757E-06, 1.7232E-06,
     &   1.6711E-06, 1.6194E-06, 1.5681E-06, 1.5172E-06, 1.4667E-06,
     &   1.4166E-06, 1.3670E-06, 1.3179E-06, 1.2692E-06, 1.2211E-06,
     &   1.1734E-06, 1.1262E-06, 1.0796E-06, 1.0336E-06, 9.8809E-07,
     &   9.4321E-07, 8.9896E-07, 8.5535E-07, 8.1241E-07, 7.7017E-07,
     &   7.2867E-07, 6.8792E-07, 6.4795E-07, 6.0881E-07, 5.7053E-07,
     &   5.3313E-07, 4.9666E-07, 4.6115E-07, 4.2665E-07, 3.9318E-07,
     &   3.6080E-07, 3.2954E-07, 2.9943E-07, 2.7054E-07, 2.4288E-07,
     &   2.1652E-07, 1.9149E-07, 1.6782E-07, 1.4557E-07, 1.2476E-07,
     &   1.0545E-07, 1.0360E-07, 1.0177E-07, 9.9948E-08, 9.8146E-08,
     &   9.6359E-08, 9.4587E-08, 9.2831E-08, 9.1091E-08, 8.9366E-08,
     &   8.7656E-08, 8.5963E-08, 8.4284E-08, 8.2622E-08, 8.0975E-08,
     &   7.9344E-08, 7.7729E-08, 7.6129E-08, 7.4545E-08, 7.2978E-08/

         DATA ((DAT  (I,J), I= 401, 500), J=2,2) /
     &   7.1426E-08, 6.9890E-08, 6.8370E-08, 6.6866E-08, 6.5378E-08,
     &   6.3906E-08, 6.2450E-08, 6.1010E-08, 5.9586E-08, 5.8179E-08,
     &   5.6788E-08, 5.5413E-08, 5.4054E-08, 5.2711E-08, 5.1385E-08,
     &   5.0075E-08, 4.8782E-08, 4.7505E-08, 4.6244E-08, 4.5000E-08,
     &   4.3772E-08, 4.2561E-08, 4.1366E-08, 4.0188E-08, 3.9027E-08,
     &   3.7882E-08, 3.6754E-08, 3.5642E-08, 3.4547E-08, 3.3469E-08,
     &   3.2407E-08, 3.1363E-08, 3.0335E-08, 2.9323E-08, 2.8329E-08,
     &   2.7351E-08, 2.6391E-08, 2.5447E-08, 2.4520E-08, 2.3610E-08,
     &   2.2717E-08, 2.1841E-08, 2.0982E-08, 2.0140E-08, 1.9315E-08,
     &   1.8507E-08, 1.7716E-08, 1.6942E-08, 1.6185E-08, 1.5446E-08,
     &   1.4723E-08, 1.4018E-08, 1.3330E-08, 1.2659E-08, 1.2005E-08,
     &   1.1368E-08, 1.0749E-08, 1.0146E-08, 9.5615E-09, 8.9938E-09,
     &   8.4434E-09, 7.9102E-09, 7.3944E-09, 6.8959E-09, 6.4146E-09,
     &   5.9508E-09, 5.5042E-09, 5.0750E-09, 4.6632E-09, 4.2688E-09,
     &   3.8917E-09, 3.5320E-09, 3.1898E-09, 2.8649E-09, 2.5574E-09,
     &   2.2674E-09, 1.9948E-09, 1.7396E-09, 1.5018E-09, 1.2816E-09,
     &   1.0787E-09, 1.0594E-09, 1.0402E-09, 1.0213E-09, 1.0025E-09,
     &   9.8383E-10, 9.6537E-10, 9.4710E-10, 9.2899E-10, 9.1107E-10,
     &   8.9331E-10, 8.7573E-10, 8.5833E-10, 8.4110E-10, 8.2404E-10,
     &   8.0716E-10, 7.9046E-10, 7.7392E-10, 7.5757E-10, 7.4139E-10/

         DATA ((DAT  (I,J), I= 501, 600), J=2,2) /
     &   7.2538E-10, 7.0954E-10, 6.9389E-10, 6.7840E-10, 6.6309E-10,
     &   6.4796E-10, 6.3300E-10, 6.1821E-10, 6.0360E-10, 5.8917E-10,
     &   5.7491E-10, 5.6082E-10, 5.4691E-10, 5.3317E-10, 5.1961E-10,
     &   5.0622E-10, 4.9301E-10, 4.7997E-10, 4.6710E-10, 4.5441E-10,
     &   4.4190E-10, 4.2956E-10, 4.1739E-10, 4.0540E-10, 3.9359E-10,
     &   3.8195E-10, 3.7048E-10, 3.5919E-10, 3.4807E-10, 3.3713E-10,
     &   3.2636E-10, 3.1577E-10, 3.0535E-10, 2.9511E-10, 2.8504E-10,
     &   2.7515E-10, 2.6543E-10, 2.5588E-10, 2.4651E-10, 2.3732E-10,
     &   2.2830E-10, 2.1945E-10, 2.1078E-10, 2.0228E-10, 1.9396E-10,
     &   1.8582E-10, 1.7784E-10, 1.7005E-10, 1.6243E-10, 1.5498E-10,
     &   1.4770E-10, 1.4061E-10, 1.3368E-10, 1.2694E-10, 1.2036E-10,
     &   1.1396E-10, 1.0774E-10, 1.0169E-10, 9.5814E-11, 9.0114E-11,
     &   8.4589E-11, 7.9239E-11, 7.4063E-11, 6.9062E-11, 6.4236E-11,
     &   5.9585E-11, 5.5108E-11, 5.0807E-11, 4.6680E-11, 4.2728E-11,
     &   3.8950E-11, 3.5348E-11, 3.1920E-11, 2.8667E-11, 2.5588E-11,
     &   2.2685E-11, 1.9956E-11, 1.7402E-11, 1.5023E-11, 1.2819E-11,
     &   1.0790E-11, 1.0596E-11, 1.0405E-11, 1.0215E-11, 1.0027E-11,
     &   9.8404E-12, 9.6558E-12, 9.4729E-12, 9.2918E-12, 9.1125E-12,
     &   8.9349E-12, 8.7590E-12, 8.5849E-12, 8.4125E-12, 8.2419E-12,
     &   8.0730E-12, 7.9059E-12, 7.7406E-12, 7.5769E-12, 7.4151E-12/

         DATA ((DAT  (I,J), I= 601, 700), J=2,2) /
     &   7.2549E-12, 7.0965E-12, 6.9399E-12, 6.7850E-12, 6.6319E-12,
     &   6.4805E-12, 6.3309E-12, 6.1830E-12, 6.0368E-12, 5.8924E-12,
     &   5.7498E-12, 5.6089E-12, 5.4697E-12, 5.3323E-12, 5.1967E-12,
     &   5.0627E-12, 4.9306E-12, 4.8002E-12, 4.6715E-12, 4.5446E-12,
     &   4.4194E-12, 4.2960E-12, 4.1743E-12, 4.0544E-12, 3.9362E-12,
     &   3.8198E-12, 3.7051E-12, 3.5922E-12, 3.4810E-12, 3.3715E-12,
     &   3.2639E-12, 3.1579E-12, 3.0537E-12, 2.9513E-12, 2.8506E-12,
     &   2.7516E-12, 2.6544E-12, 2.5590E-12, 2.4653E-12, 2.3733E-12,
     &   2.2831E-12, 2.1946E-12, 2.1079E-12, 2.0229E-12, 1.9397E-12,
     &   1.8582E-12, 1.7785E-12, 1.7005E-12, 1.6243E-12, 1.5498E-12,
     &   1.4771E-12, 1.4061E-12, 1.3369E-12, 1.2694E-12, 1.2036E-12,
     &   1.1397E-12, 1.0774E-12, 1.0169E-12, 9.5816E-13, 9.0116E-13,
     &   8.4591E-13, 7.9240E-13, 7.4064E-13, 6.9063E-13, 6.4237E-13,
     &   5.9586E-13, 5.5109E-13, 5.0807E-13, 4.6680E-13, 4.2728E-13,
     &   3.8950E-13, 3.5348E-13, 3.1920E-13, 2.8667E-13, 2.5589E-13,
     &   2.2685E-13, 1.9956E-13, 1.7403E-13, 1.5023E-13, 1.2819E-13,
     &   1.0790E-13, 1.0596E-13, 1.0405E-13, 1.0215E-13, 1.0027E-13,
     &   9.8404E-14, 9.6558E-14, 9.4729E-14, 9.2918E-14, 9.1125E-14,
     &   8.9349E-14, 8.7590E-14, 8.5849E-14, 8.4125E-14, 8.2419E-14,
     &   8.0731E-14, 7.9059E-14, 7.7406E-14, 7.5769E-14, 7.4151E-14/

         DATA ((DAT  (I,J), I= 701, 800), J=2,2) /
     &   7.2549E-14, 7.0966E-14, 6.9399E-14, 6.7850E-14, 6.6319E-14,
     &   6.4805E-14, 6.3309E-14, 6.1830E-14, 6.0368E-14, 5.8924E-14,
     &   5.7498E-14, 5.6089E-14, 5.4697E-14, 5.3323E-14, 5.1967E-14,
     &   5.0628E-14, 4.9306E-14, 4.8002E-14, 4.6715E-14, 4.5446E-14,
     &   4.4194E-14, 4.2960E-14, 4.1743E-14, 4.0544E-14, 3.9362E-14,
     &   3.8198E-14, 3.7051E-14, 3.5922E-14, 3.4810E-14, 3.3715E-14,
     &   3.2639E-14, 3.1579E-14, 3.0537E-14, 2.9513E-14, 2.8506E-14,
     &   2.7516E-14, 2.6544E-14, 2.5590E-14, 2.4653E-14, 2.3733E-14,
     &   2.2831E-14, 2.1946E-14, 2.1079E-14, 2.0229E-14, 1.9397E-14,
     &   1.8582E-14, 1.7785E-14, 1.7005E-14, 1.6243E-14, 1.5498E-14,
     &   1.4771E-14, 1.4061E-14, 1.3369E-14, 1.2694E-14, 1.2036E-14,
     &   1.1397E-14, 1.0774E-14, 1.0169E-14, 9.5816E-15, 9.0116E-15,
     &   8.4591E-15, 7.9240E-15, 7.4064E-15, 6.9063E-15, 6.4237E-15,
     &   5.9586E-15, 5.5109E-15, 5.0807E-15, 4.6680E-15, 4.2728E-15,
     &   3.8950E-15, 3.5348E-15, 3.1920E-15, 2.8667E-15, 2.5589E-15,
     &   2.2685E-15, 1.9956E-15, 1.7403E-15, 1.5023E-15, 1.2819E-15,
     &   1.0790E-15, 1.0596E-15, 1.0405E-15, 1.0215E-15, 1.0027E-15,
     &   9.8404E-16, 9.6558E-16, 9.4729E-16, 9.2918E-16, 9.1125E-16,
     &   8.9349E-16, 8.7590E-16, 8.5849E-16, 8.4125E-16, 8.2419E-16,
     &   8.0731E-16, 7.9059E-16, 7.7406E-16, 7.5769E-16, 7.4151E-16/

         DATA ((DAT  (I,J), I= 801, 900), J=2,2) /
     &   7.2549E-16, 7.0966E-16, 6.9399E-16, 6.7850E-16, 6.6319E-16,
     &   6.4805E-16, 6.3309E-16, 6.1830E-16, 6.0368E-16, 5.8924E-16,
     &   5.7498E-16, 5.6089E-16, 5.4697E-16, 5.3323E-16, 5.1967E-16,
     &   5.0628E-16, 4.9306E-16, 4.8002E-16, 4.6715E-16, 4.5446E-16,
     &   4.4194E-16, 4.2960E-16, 4.1743E-16, 4.0544E-16, 3.9362E-16,
     &   3.8198E-16, 3.7051E-16, 3.5922E-16, 3.4810E-16, 3.3715E-16,
     &   3.2639E-16, 3.1579E-16, 3.0537E-16, 2.9513E-16, 2.8506E-16,
     &   2.7516E-16, 2.6544E-16, 2.5590E-16, 2.4653E-16, 2.3733E-16,
     &   2.2831E-16, 2.1946E-16, 2.1079E-16, 2.0229E-16, 1.9397E-16,
     &   1.8582E-16, 1.7785E-16, 1.7005E-16, 1.6243E-16, 1.5498E-16,
     &   1.4771E-16, 1.4061E-16, 1.3369E-16, 1.2694E-16, 1.2036E-16,
     &   1.1397E-16, 1.0774E-16, 1.0169E-16, 9.5816E-17, 9.0116E-17,
     &   8.4591E-17, 7.9240E-17, 7.4064E-17, 6.9063E-17, 6.4237E-17,
     &   5.9586E-17, 5.5109E-17, 5.0807E-17, 4.6680E-17, 4.2728E-17,
     &   3.8951E-17, 3.5348E-17, 3.1920E-17, 2.8667E-17, 2.5589E-17,
     &   2.2685E-17, 1.9956E-17, 1.7403E-17, 1.5023E-17, 1.2819E-17,
     &   1.0790E-17, 0.0000E+00, 1.0790E-17, 9.7173E-11, 3.8859E-10,
     &   8.7432E-10, 1.5542E-09, 2.4290E-09, 3.4985E-09, 4.7632E-09,
     &   6.2233E-09, 7.8793E-09, 9.7315E-09, 1.1780E-08, 1.4027E-08,
     &   1.6471E-08, 1.9113E-08, 2.1955E-08, 2.4997E-08, 2.8239E-08/

         DATA ((DAT  (I,J), I= 901, 979), J=2,2) /
     &   3.1684E-08, 3.5330E-08, 3.9181E-08, 4.3236E-08, 4.7496E-08,
     &   5.1964E-08, 5.6640E-08, 6.1525E-08, 6.6621E-08, 7.1930E-08,
     &   7.7453E-08, 8.3191E-08, 8.9146E-08, 9.5320E-08, 1.0172E-07,
     &   1.0833E-07, 1.1518E-07, 1.2225E-07, 1.2955E-07, 1.3708E-07,
     &   1.4484E-07, 1.5284E-07, 1.6109E-07, 1.6957E-07, 1.7830E-07,
     &   1.8728E-07, 1.9650E-07, 2.0599E-07, 2.1573E-07, 2.2574E-07,
     &   2.3601E-07, 2.4655E-07, 2.5736E-07, 2.6846E-07, 2.7984E-07,
     &   2.9150E-07, 3.0347E-07, 3.1573E-07, 3.2829E-07, 3.4117E-07,
     &   3.5437E-07, 3.6789E-07, 3.8174E-07, 3.9594E-07, 4.1048E-07,
     &   4.2538E-07, 4.4064E-07, 4.5628E-07, 4.7231E-07, 4.8873E-07,
     &   5.0556E-07, 5.2282E-07, 5.4051E-07, 5.5865E-07, 5.7726E-07,
     &   5.9635E-07, 6.1595E-07, 6.3608E-07, 6.5675E-07, 6.7800E-07,
     &   6.9984E-07, 7.2233E-07, 7.4548E-07, 7.6933E-07, 7.9394E-07,
     &   8.1935E-07, 8.4562E-07, 8.7282E-07, 9.0102E-07, 9.3032E-07,
     &   9.6084E-07, 9.9270E-07, 1.0261E-06, 1.0376E-06, 1.0612E-06,
     &   1.06966477E-06, 1.09833633E-06, 1.10217718E-06, 1.11123603E-06/

         DATA ((DAT  (I,J), I=   1, 100), J=3,3) /
     &   1.3969E-04, 1.3969E-04, 1.3969E-04, 1.3969E-04, 1.3969E-04,
     &   1.3969E-04, 1.3969E-04, 1.3969E-04, 1.3968E-04, 1.3968E-04,
     &   1.3968E-04, 1.3968E-04, 1.3968E-04, 1.3968E-04, 1.3968E-04,
     &   1.3968E-04, 1.3968E-04, 1.3968E-04, 1.3968E-04, 1.3968E-04,
     &   1.3968E-04, 1.3968E-04, 1.3968E-04, 1.3968E-04, 1.3968E-04,
     &   1.3968E-04, 1.3968E-04, 1.3968E-04, 1.3968E-04, 1.3967E-04,
     &   1.3967E-04, 1.3967E-04, 1.3967E-04, 1.3967E-04, 1.3967E-04,
     &   1.3967E-04, 1.3967E-04, 1.3967E-04, 1.3967E-04, 1.3967E-04,
     &   1.3967E-04, 1.3967E-04, 1.3967E-04, 1.3967E-04, 1.3966E-04,
     &   1.3966E-04, 1.3966E-04, 1.3966E-04, 1.3966E-04, 1.3966E-04,
     &   1.3966E-04, 1.3966E-04, 1.3966E-04, 1.3966E-04, 1.3965E-04,
     &   1.3965E-04, 1.3965E-04, 1.3965E-04, 1.3965E-04, 1.3965E-04,
     &   1.3965E-04, 1.3964E-04, 1.3964E-04, 1.3964E-04, 1.3964E-04,
     &   1.3964E-04, 1.3963E-04, 1.3963E-04, 1.3963E-04, 1.3963E-04,
     &   1.3962E-04, 1.3962E-04, 1.3962E-04, 1.3961E-04, 1.3961E-04,
     &   1.3961E-04, 1.3960E-04, 1.3960E-04, 1.3959E-04, 1.3958E-04,
     &   1.3958E-04, 1.3957E-04, 1.3956E-04, 1.3955E-04, 1.3954E-04,
     &   1.3952E-04, 1.3950E-04, 1.3948E-04, 1.3946E-04, 1.3942E-04,
     &   1.3938E-04, 1.3937E-04, 1.3937E-04, 1.3936E-04, 1.3936E-04,
     &   1.3935E-04, 1.3935E-04, 1.3934E-04, 1.3933E-04, 1.3933E-04/

         DATA ((DAT  (I,J), I= 101, 200), J=3,3) /
     &   1.3932E-04, 1.3931E-04, 1.3931E-04, 1.3930E-04, 1.3929E-04,
     &   1.3928E-04, 1.3928E-04, 1.3927E-04, 1.3926E-04, 1.3925E-04,
     &   1.3924E-04, 1.3923E-04, 1.3922E-04, 1.3921E-04, 1.3920E-04,
     &   1.3919E-04, 1.3918E-04, 1.3917E-04, 1.3916E-04, 1.3914E-04,
     &   1.3913E-04, 1.3911E-04, 1.3910E-04, 1.3909E-04, 1.3907E-04,
     &   1.3905E-04, 1.3904E-04, 1.3902E-04, 1.3900E-04, 1.3898E-04,
     &   1.3896E-04, 1.3894E-04, 1.3891E-04, 1.3889E-04, 1.3886E-04,
     &   1.3884E-04, 1.3881E-04, 1.3878E-04, 1.3875E-04, 1.3871E-04,
     &   1.3868E-04, 1.3864E-04, 1.3860E-04, 1.3856E-04, 1.3852E-04,
     &   1.3847E-04, 1.3842E-04, 1.3836E-04, 1.3831E-04, 1.3825E-04,
     &   1.3818E-04, 1.3811E-04, 1.3803E-04, 1.3795E-04, 1.3786E-04,
     &   1.3777E-04, 1.3766E-04, 1.3755E-04, 1.3742E-04, 1.3729E-04,
     &   1.3714E-04, 1.3698E-04, 1.3680E-04, 1.3661E-04, 1.3639E-04,
     &   1.3615E-04, 1.3588E-04, 1.3557E-04, 1.3523E-04, 1.3485E-04,
     &   1.3441E-04, 1.3391E-04, 1.3334E-04, 1.3268E-04, 1.3191E-04,
     &   1.3101E-04, 1.2994E-04, 1.2867E-04, 1.2715E-04, 1.2528E-04,
     &   1.2299E-04, 1.2276E-04, 1.2252E-04, 1.2228E-04, 1.2203E-04,
     &   1.2178E-04, 1.2153E-04, 1.2126E-04, 1.2100E-04, 1.2072E-04,
     &   1.2044E-04, 1.2016E-04, 1.1987E-04, 1.1957E-04, 1.1927E-04,
     &   1.1896E-04, 1.1864E-04, 1.1832E-04, 1.1799E-04, 1.1765E-04/

         DATA ((DAT  (I,J), I= 201, 300), J=3,3) /
     &   1.1730E-04, 1.1695E-04, 1.1659E-04, 1.1622E-04, 1.1584E-04,
     &   1.1546E-04, 1.1506E-04, 1.1466E-04, 1.1424E-04, 1.1382E-04,
     &   1.1339E-04, 1.1294E-04, 1.1249E-04, 1.1203E-04, 1.1155E-04,
     &   1.1106E-04, 1.1057E-04, 1.1006E-04, 1.0953E-04, 1.0900E-04,
     &   1.0845E-04, 1.0789E-04, 1.0732E-04, 1.0673E-04, 1.0612E-04,
     &   1.0550E-04, 1.0487E-04, 1.0422E-04, 1.0356E-04, 1.0287E-04,
     &   1.0218E-04, 1.0146E-04, 1.0072E-04, 9.9971E-05, 9.9199E-05,
     &   9.8407E-05, 9.7595E-05, 9.6763E-05, 9.5909E-05, 9.5034E-05,
     &   9.4135E-05, 9.3214E-05, 9.2269E-05, 9.1299E-05, 9.0304E-05,
     &   8.9283E-05, 8.8235E-05, 8.7159E-05, 8.6054E-05, 8.4919E-05,
     &   8.3754E-05, 8.2556E-05, 8.1325E-05, 8.0060E-05, 7.8758E-05,
     &   7.7419E-05, 7.6040E-05, 7.4620E-05, 7.3157E-05, 7.1648E-05,
     &   7.0092E-05, 6.8485E-05, 6.6825E-05, 6.5108E-05, 6.3332E-05,
     &   6.1493E-05, 5.9588E-05, 5.7613E-05, 5.5563E-05, 5.3437E-05,
     &   5.1228E-05, 4.8936E-05, 4.6556E-05, 4.4087E-05, 4.1528E-05,
     &   3.8880E-05, 3.6146E-05, 3.3331E-05, 3.0443E-05, 2.7496E-05,
     &   2.4505E-05, 2.4204E-05, 2.3903E-05, 2.3602E-05, 2.3301E-05,
     &   2.2999E-05, 2.2698E-05, 2.2397E-05, 2.2095E-05, 2.1793E-05,
     &   2.1492E-05, 2.1190E-05, 2.0889E-05, 2.0588E-05, 2.0287E-05,
     &   1.9986E-05, 1.9685E-05, 1.9385E-05, 1.9084E-05, 1.8784E-05/

         DATA ((DAT  (I,J), I= 301, 400), J=3,3) /
     &   1.8485E-05, 1.8186E-05, 1.7887E-05, 1.7589E-05, 1.7291E-05,
     &   1.6994E-05, 1.6697E-05, 1.6401E-05, 1.6106E-05, 1.5811E-05,
     &   1.5517E-05, 1.5224E-05, 1.4932E-05, 1.4641E-05, 1.4350E-05,
     &   1.4061E-05, 1.3772E-05, 1.3485E-05, 1.3199E-05, 1.2914E-05,
     &   1.2630E-05, 1.2347E-05, 1.2066E-05, 1.1786E-05, 1.1508E-05,
     &   1.1231E-05, 1.0956E-05, 1.0682E-05, 1.0410E-05, 1.0140E-05,
     &   9.8711E-06, 9.6044E-06, 9.3396E-06, 9.0768E-06, 8.8161E-06,
     &   8.5574E-06, 8.3010E-06, 8.0467E-06, 7.7948E-06, 7.5453E-06,
     &   7.2983E-06, 7.0538E-06, 6.8118E-06, 6.5726E-06, 6.3361E-06,
     &   6.1025E-06, 5.8717E-06, 5.6440E-06, 5.4194E-06, 5.1979E-06,
     &   4.9796E-06, 4.7647E-06, 4.5532E-06, 4.3453E-06, 4.1409E-06,
     &   3.9402E-06, 3.7433E-06, 3.5503E-06, 3.3612E-06, 3.1763E-06,
     &   2.9954E-06, 2.8189E-06, 2.6467E-06, 2.4790E-06, 2.3158E-06,
     &   2.1574E-06, 2.0037E-06, 1.8548E-06, 1.7110E-06, 1.5722E-06,
     &   1.4387E-06, 1.3104E-06, 1.1875E-06, 1.0701E-06, 9.5834E-07,
     &   8.5227E-07, 7.5199E-07, 6.5762E-07, 5.6924E-07, 4.8693E-07,
     &   4.1080E-07, 4.0353E-07, 3.9632E-07, 3.8918E-07, 3.8209E-07,
     &   3.7507E-07, 3.6812E-07, 3.6122E-07, 3.5439E-07, 3.4762E-07,
     &   3.4092E-07, 3.3428E-07, 3.2770E-07, 3.2119E-07, 3.1473E-07,
     &   3.0835E-07, 3.0202E-07, 2.9576E-07, 2.8957E-07, 2.8343E-07/

         DATA ((DAT  (I,J), I= 401, 500), J=3,3) /
     &   2.7737E-07, 2.7136E-07, 2.6542E-07, 2.5955E-07, 2.5373E-07,
     &   2.4799E-07, 2.4230E-07, 2.3668E-07, 2.3113E-07, 2.2564E-07,
     &   2.2021E-07, 2.1485E-07, 2.0956E-07, 2.0433E-07, 1.9916E-07,
     &   1.9406E-07, 1.8902E-07, 1.8405E-07, 1.7915E-07, 1.7431E-07,
     &   1.6953E-07, 1.6482E-07, 1.6018E-07, 1.5560E-07, 1.5108E-07,
     &   1.4664E-07, 1.4225E-07, 1.3794E-07, 1.3368E-07, 1.2950E-07,
     &   1.2538E-07, 1.2132E-07, 1.1734E-07, 1.1341E-07, 1.0956E-07,
     &   1.0577E-07, 1.0204E-07, 9.8384E-08, 9.4792E-08, 9.1266E-08,
     &   8.7807E-08, 8.4413E-08, 8.1087E-08, 7.7826E-08, 7.4632E-08,
     &   7.1504E-08, 6.8443E-08, 6.5449E-08, 6.2521E-08, 5.9659E-08,
     &   5.6865E-08, 5.4137E-08, 5.1475E-08, 4.8881E-08, 4.6353E-08,
     &   4.3892E-08, 4.1498E-08, 3.9171E-08, 3.6910E-08, 3.4717E-08,
     &   3.2590E-08, 3.0531E-08, 2.8539E-08, 2.6613E-08, 2.4755E-08,
     &   2.2964E-08, 2.1240E-08, 1.9583E-08, 1.7993E-08, 1.6470E-08,
     &   1.5015E-08, 1.3627E-08, 1.2306E-08, 1.1052E-08, 9.8658E-09,
     &   8.7466E-09, 7.6948E-09, 6.7103E-09, 5.7931E-09, 4.9432E-09,
     &   4.1607E-09, 4.0862E-09, 4.0123E-09, 3.9391E-09, 3.8666E-09,
     &   3.7947E-09, 3.7235E-09, 3.6530E-09, 3.5832E-09, 3.5141E-09,
     &   3.4456E-09, 3.3778E-09, 3.3106E-09, 3.2442E-09, 3.1784E-09,
     &   3.1133E-09, 3.0488E-09, 2.9850E-09, 2.9220E-09, 2.8595E-09/

         DATA ((DAT  (I,J), I= 501, 600), J=3,3) /
     &   2.7978E-09, 2.7367E-09, 2.6763E-09, 2.6166E-09, 2.5575E-09,
     &   2.4992E-09, 2.4415E-09, 2.3844E-09, 2.3281E-09, 2.2724E-09,
     &   2.2174E-09, 2.1630E-09, 2.1094E-09, 2.0564E-09, 2.0041E-09,
     &   1.9525E-09, 1.9015E-09, 1.8512E-09, 1.8016E-09, 1.7526E-09,
     &   1.7044E-09, 1.6568E-09, 1.6098E-09, 1.5636E-09, 1.5180E-09,
     &   1.4731E-09, 1.4289E-09, 1.3853E-09, 1.3425E-09, 1.3003E-09,
     &   1.2587E-09, 1.2179E-09, 1.1777E-09, 1.1382E-09, 1.0994E-09,
     &   1.0612E-09, 1.0237E-09, 9.8689E-10, 9.5075E-10, 9.1529E-10,
     &   8.8050E-10, 8.4638E-10, 8.1294E-10, 7.8017E-10, 7.4808E-10,
     &   7.1666E-10, 6.8591E-10, 6.5584E-10, 6.2644E-10, 5.9772E-10,
     &   5.6967E-10, 5.4229E-10, 5.1559E-10, 4.8956E-10, 4.6421E-10,
     &   4.3953E-10, 4.1552E-10, 3.9219E-10, 3.6953E-10, 3.4755E-10,
     &   3.2624E-10, 3.0560E-10, 2.8564E-10, 2.6636E-10, 2.4774E-10,
     &   2.2980E-10, 2.1254E-10, 1.9595E-10, 1.8003E-10, 1.6479E-10,
     &   1.5022E-10, 1.3633E-10, 1.2311E-10, 1.1056E-10, 9.8688E-11,
     &   8.7490E-11, 7.6967E-11, 6.7117E-11, 5.7941E-11, 4.9440E-11,
     &   4.1613E-11, 4.0867E-11, 4.0128E-11, 3.9396E-11, 3.8670E-11,
     &   3.7952E-11, 3.7240E-11, 3.6535E-11, 3.5836E-11, 3.5144E-11,
     &   3.4459E-11, 3.3781E-11, 3.3110E-11, 3.2445E-11, 3.1787E-11,
     &   3.1136E-11, 3.0491E-11, 2.9853E-11, 2.9222E-11, 2.8598E-11/

         DATA ((DAT  (I,J), I= 601, 700), J=3,3) /
     &   2.7980E-11, 2.7370E-11, 2.6765E-11, 2.6168E-11, 2.5577E-11,
     &   2.4994E-11, 2.4416E-11, 2.3846E-11, 2.3282E-11, 2.2726E-11,
     &   2.2175E-11, 2.1632E-11, 2.1095E-11, 2.0565E-11, 2.0042E-11,
     &   1.9526E-11, 1.9016E-11, 1.8513E-11, 1.8017E-11, 1.7527E-11,
     &   1.7045E-11, 1.6569E-11, 1.6099E-11, 1.5637E-11, 1.5181E-11,
     &   1.4732E-11, 1.4290E-11, 1.3854E-11, 1.3425E-11, 1.3003E-11,
     &   1.2588E-11, 1.2179E-11, 1.1777E-11, 1.1382E-11, 1.0994E-11,
     &   1.0612E-11, 1.0237E-11, 9.8692E-12, 9.5078E-12, 9.1532E-12,
     &   8.8052E-12, 8.4641E-12, 8.1296E-12, 7.8019E-12, 7.4810E-12,
     &   7.1667E-12, 6.8593E-12, 6.5585E-12, 6.2645E-12, 5.9773E-12,
     &   5.6968E-12, 5.4230E-12, 5.1560E-12, 4.8957E-12, 4.6421E-12,
     &   4.3953E-12, 4.1553E-12, 3.9220E-12, 3.6954E-12, 3.4755E-12,
     &   3.2624E-12, 3.0561E-12, 2.8565E-12, 2.6636E-12, 2.4775E-12,
     &   2.2981E-12, 2.1254E-12, 1.9595E-12, 1.8003E-12, 1.6479E-12,
     &   1.5022E-12, 1.3633E-12, 1.2311E-12, 1.1056E-12, 9.8689E-13,
     &   8.7491E-13, 7.6967E-13, 6.7117E-13, 5.7942E-13, 4.9440E-13,
     &   4.1613E-13, 4.0867E-13, 4.0128E-13, 3.9396E-13, 3.8671E-13,
     &   3.7952E-13, 3.7240E-13, 3.6535E-13, 3.5836E-13, 3.5144E-13,
     &   3.4459E-13, 3.3781E-13, 3.3110E-13, 3.2445E-13, 3.1787E-13,
     &   3.1136E-13, 3.0491E-13, 2.9853E-13, 2.9222E-13, 2.8598E-13/

         DATA ((DAT  (I,J), I= 701, 800), J=3,3) /
     &   2.7980E-13, 2.7370E-13, 2.6765E-13, 2.6168E-13, 2.5578E-13,
     &   2.4994E-13, 2.4417E-13, 2.3846E-13, 2.3282E-13, 2.2726E-13,
     &   2.2175E-13, 2.1632E-13, 2.1095E-13, 2.0565E-13, 2.0042E-13,
     &   1.9526E-13, 1.9016E-13, 1.8513E-13, 1.8017E-13, 1.7527E-13,
     &   1.7045E-13, 1.6569E-13, 1.6099E-13, 1.5637E-13, 1.5181E-13,
     &   1.4732E-13, 1.4290E-13, 1.3854E-13, 1.3425E-13, 1.3003E-13,
     &   1.2588E-13, 1.2179E-13, 1.1777E-13, 1.1382E-13, 1.0994E-13,
     &   1.0612E-13, 1.0237E-13, 9.8692E-14, 9.5078E-14, 9.1532E-14,
     &   8.8052E-14, 8.4641E-14, 8.1296E-14, 7.8019E-14, 7.4810E-14,
     &   7.1667E-14, 6.8593E-14, 6.5585E-14, 6.2645E-14, 5.9773E-14,
     &   5.6968E-14, 5.4230E-14, 5.1560E-14, 4.8957E-14, 4.6421E-14,
     &   4.3953E-14, 4.1553E-14, 3.9220E-14, 3.6954E-14, 3.4755E-14,
     &   3.2624E-14, 3.0561E-14, 2.8565E-14, 2.6636E-14, 2.4775E-14,
     &   2.2981E-14, 2.1254E-14, 1.9595E-14, 1.8003E-14, 1.6479E-14,
     &   1.5022E-14, 1.3633E-14, 1.2311E-14, 1.1056E-14, 9.8689E-15,
     &   8.7491E-15, 7.6967E-15, 6.7117E-15, 5.7942E-15, 4.9440E-15,
     &   4.1613E-15, 4.0867E-15, 4.0128E-15, 3.9396E-15, 3.8671E-15,
     &   3.7952E-15, 3.7240E-15, 3.6535E-15, 3.5836E-15, 3.5144E-15,
     &   3.4459E-15, 3.3781E-15, 3.3110E-15, 3.2445E-15, 3.1787E-15,
     &   3.1136E-15, 3.0491E-15, 2.9853E-15, 2.9222E-15, 2.8598E-15/

         DATA ((DAT  (I,J), I= 801, 900), J=3,3) /
     &   2.7980E-15, 2.7370E-15, 2.6765E-15, 2.6168E-15, 2.5578E-15,
     &   2.4994E-15, 2.4417E-15, 2.3846E-15, 2.3282E-15, 2.2726E-15,
     &   2.2175E-15, 2.1632E-15, 2.1095E-15, 2.0565E-15, 2.0042E-15,
     &   1.9526E-15, 1.9016E-15, 1.8513E-15, 1.8017E-15, 1.7527E-15,
     &   1.7045E-15, 1.6569E-15, 1.6099E-15, 1.5637E-15, 1.5181E-15,
     &   1.4732E-15, 1.4290E-15, 1.3854E-15, 1.3425E-15, 1.3003E-15,
     &   1.2588E-15, 1.2179E-15, 1.1777E-15, 1.1382E-15, 1.0994E-15,
     &   1.0612E-15, 1.0237E-15, 9.8692E-16, 9.5078E-16, 9.1532E-16,
     &   8.8052E-16, 8.4641E-16, 8.1296E-16, 7.8019E-16, 7.4810E-16,
     &   7.1667E-16, 6.8593E-16, 6.5585E-16, 6.2645E-16, 5.9773E-16,
     &   5.6968E-16, 5.4230E-16, 5.1560E-16, 4.8957E-16, 4.6421E-16,
     &   4.3953E-16, 4.1553E-16, 3.9220E-16, 3.6954E-16, 3.4755E-16,
     &   3.2624E-16, 3.0561E-16, 2.8565E-16, 2.6636E-16, 2.4775E-16,
     &   2.2981E-16, 2.1254E-16, 1.9595E-16, 1.8003E-16, 1.6479E-16,
     &   1.5022E-16, 1.3633E-16, 1.2311E-16, 1.1056E-16, 9.8689E-17,
     &   8.7491E-17, 7.6967E-17, 6.7117E-17, 5.7942E-17, 4.9440E-17,
     &   4.1613E-17, 0.0000E+00, 4.1613E-17, 3.7477E-10, 1.4986E-09,
     &   3.3717E-09, 5.9934E-09, 9.3657E-09, 1.3488E-08, 1.8362E-08,
     &   2.3987E-08, 3.0365E-08, 3.7496E-08, 4.5382E-08, 5.4024E-08,
     &   6.3422E-08, 7.3578E-08, 8.4495E-08, 9.6172E-08, 1.0861E-07/

         DATA ((DAT  (I,J), I= 901, 979), J=3,3) /
     &   1.2182E-07, 1.3579E-07, 1.5053E-07, 1.6605E-07, 1.8233E-07,
     &   1.9940E-07, 2.1724E-07, 2.3586E-07, 2.5527E-07, 2.7547E-07,
     &   2.9646E-07, 3.1824E-07, 3.4082E-07, 3.6420E-07, 3.8839E-07,
     &   4.1339E-07, 4.3920E-07, 4.6583E-07, 4.9328E-07, 5.2156E-07,
     &   5.5068E-07, 5.8063E-07, 6.1143E-07, 6.4308E-07, 6.7559E-07,
     &   7.0895E-07, 7.4319E-07, 7.7830E-07, 8.1430E-07, 8.5118E-07,
     &   8.8897E-07, 9.2766E-07, 9.6727E-07, 1.0078E-06, 1.0493E-06,
     &   1.0917E-06, 1.1351E-06, 1.1794E-06, 1.2247E-06, 1.2710E-06,
     &   1.3183E-06, 1.3666E-06, 1.4160E-06, 1.4663E-06, 1.5178E-06,
     &   1.5703E-06, 1.6239E-06, 1.6787E-06, 1.7346E-06, 1.7916E-06,
     &   1.8498E-06, 1.9092E-06, 1.9698E-06, 2.0317E-06, 2.0948E-06,
     &   2.1593E-06, 2.2251E-06, 2.2923E-06, 2.3610E-06, 2.4311E-06,
     &   2.5027E-06, 2.5759E-06, 2.6507E-06, 2.7272E-06, 2.8055E-06,
     &   2.8855E-06, 2.9676E-06, 3.0516E-06, 3.1378E-06, 3.2262E-06,
     &   3.3170E-06, 3.4103E-06, 3.5064E-06, 3.5391E-06, 3.6055E-06,
     &   3.62908731E-06, 3.70783035E-06, 3.71825250E-06, 3.74270919E-06/

c      ++++ deghadt26 ++++

         DATA ((DGT  (I,J), I=   1, 100), J=1,1) /
     &   8.3849E-02, 8.3743E-02, 8.3636E-02, 8.3527E-02, 8.3418E-02,
     &   8.3307E-02, 8.3194E-02, 8.3081E-02, 8.2966E-02, 8.2849E-02,
     &   8.2732E-02, 8.2612E-02, 8.2492E-02, 8.2369E-02, 8.2245E-02,
     &   8.2120E-02, 8.1993E-02, 8.1864E-02, 8.1733E-02, 8.1601E-02,
     &   8.1467E-02, 8.1331E-02, 8.1193E-02, 8.1052E-02, 8.0910E-02,
     &   8.0766E-02, 8.0620E-02, 8.0471E-02, 8.0320E-02, 8.0167E-02,
     &   8.0012E-02, 7.9853E-02, 7.9693E-02, 7.9529E-02, 7.9363E-02,
     &   7.9194E-02, 7.9022E-02, 7.8847E-02, 7.8669E-02, 7.8488E-02,
     &   7.8303E-02, 7.8115E-02, 7.7924E-02, 7.7729E-02, 7.7529E-02,
     &   7.7326E-02, 7.7119E-02, 7.6908E-02, 7.6692E-02, 7.6471E-02,
     &   7.6246E-02, 7.6016E-02, 7.5780E-02, 7.5540E-02, 7.5293E-02,
     &   7.5041E-02, 7.4782E-02, 7.4517E-02, 7.4245E-02, 7.3966E-02,
     &   7.3680E-02, 7.3386E-02, 7.3084E-02, 7.2773E-02, 7.2453E-02,
     &   7.2124E-02, 7.1784E-02, 7.1434E-02, 7.1072E-02, 7.0698E-02,
     &   7.0311E-02, 6.9911E-02, 6.9495E-02, 6.9064E-02, 6.8616E-02,
     &   6.8150E-02, 6.7664E-02, 6.7156E-02, 6.6625E-02, 6.6069E-02,
     &   6.5485E-02, 6.4870E-02, 6.4221E-02, 6.3534E-02, 6.2804E-02,
     &   6.2026E-02, 6.1194E-02, 6.0299E-02, 5.9331E-02, 5.8278E-02,
     &   5.7124E-02, 5.7002E-02, 5.6879E-02, 5.6755E-02, 5.6629E-02,
     &   5.6502E-02, 5.6374E-02, 5.6244E-02, 5.6113E-02, 5.5980E-02/

         DATA ((DGT  (I,J), I= 101, 200), J=1,1) /
     &   5.5846E-02, 5.5711E-02, 5.5574E-02, 5.5435E-02, 5.5295E-02,
     &   5.5153E-02, 5.5009E-02, 5.4864E-02, 5.4717E-02, 5.4568E-02,
     &   5.4417E-02, 5.4265E-02, 5.4110E-02, 5.3953E-02, 5.3794E-02,
     &   5.3634E-02, 5.3471E-02, 5.3305E-02, 5.3138E-02, 5.2968E-02,
     &   5.2796E-02, 5.2621E-02, 5.2444E-02, 5.2264E-02, 5.2081E-02,
     &   5.1895E-02, 5.1707E-02, 5.1516E-02, 5.1321E-02, 5.1124E-02,
     &   5.0923E-02, 5.0719E-02, 5.0511E-02, 5.0299E-02, 5.0084E-02,
     &   4.9865E-02, 4.9642E-02, 4.9415E-02, 4.9184E-02, 4.8948E-02,
     &   4.8707E-02, 4.8462E-02, 4.8211E-02, 4.7955E-02, 4.7694E-02,
     &   4.7427E-02, 4.7154E-02, 4.6875E-02, 4.6589E-02, 4.6296E-02,
     &   4.5997E-02, 4.5689E-02, 4.5374E-02, 4.5050E-02, 4.4718E-02,
     &   4.4377E-02, 4.4025E-02, 4.3664E-02, 4.3291E-02, 4.2906E-02,
     &   4.2510E-02, 4.2100E-02, 4.1676E-02, 4.1237E-02, 4.0782E-02,
     &   4.0309E-02, 3.9818E-02, 3.9306E-02, 3.8773E-02, 3.8215E-02,
     &   3.7631E-02, 3.7019E-02, 3.6376E-02, 3.5697E-02, 3.4980E-02,
     &   3.4219E-02, 3.3409E-02, 3.2544E-02, 3.1615E-02, 3.0612E-02,
     &   2.9523E-02, 2.9420E-02, 2.9316E-02, 2.9212E-02, 2.9106E-02,
     &   2.9000E-02, 2.8893E-02, 2.8785E-02, 2.8676E-02, 2.8566E-02,
     &   2.8455E-02, 2.8343E-02, 2.8230E-02, 2.8116E-02, 2.8001E-02,
     &   2.7885E-02, 2.7767E-02, 2.7649E-02, 2.7530E-02, 2.7409E-02/

         DATA ((DGT  (I,J), I= 201, 300), J=1,1) /
     &   2.7288E-02, 2.7165E-02, 2.7041E-02, 2.6915E-02, 2.6789E-02,
     &   2.6661E-02, 2.6531E-02, 2.6401E-02, 2.6269E-02, 2.6136E-02,
     &   2.6001E-02, 2.5865E-02, 2.5727E-02, 2.5588E-02, 2.5447E-02,
     &   2.5304E-02, 2.5160E-02, 2.5014E-02, 2.4867E-02, 2.4718E-02,
     &   2.4567E-02, 2.4414E-02, 2.4259E-02, 2.4102E-02, 2.3943E-02,
     &   2.3782E-02, 2.3619E-02, 2.3454E-02, 2.3287E-02, 2.3117E-02,
     &   2.2945E-02, 2.2771E-02, 2.2594E-02, 2.2415E-02, 2.2233E-02,
     &   2.2048E-02, 2.1860E-02, 2.1670E-02, 2.1476E-02, 2.1280E-02,
     &   2.1080E-02, 2.0877E-02, 2.0671E-02, 2.0461E-02, 2.0247E-02,
     &   2.0030E-02, 1.9809E-02, 1.9584E-02, 1.9354E-02, 1.9120E-02,
     &   1.8882E-02, 1.8639E-02, 1.8391E-02, 1.8138E-02, 1.7879E-02,
     &   1.7615E-02, 1.7345E-02, 1.7069E-02, 1.6787E-02, 1.6497E-02,
     &   1.6201E-02, 1.5896E-02, 1.5584E-02, 1.5263E-02, 1.4934E-02,
     &   1.4594E-02, 1.4245E-02, 1.3884E-02, 1.3511E-02, 1.3126E-02,
     &   1.2726E-02, 1.2311E-02, 1.1880E-02, 1.1430E-02, 1.0961E-02,
     &   1.0469E-02, 9.9525E-03, 9.4088E-03, 8.8348E-03, 8.2275E-03,
     &   7.5836E-03, 7.5171E-03, 7.4501E-03, 7.3828E-03, 7.3151E-03,
     &   7.2469E-03, 7.1784E-03, 7.1094E-03, 7.0400E-03, 6.9702E-03,
     &   6.9000E-03, 6.8294E-03, 6.7584E-03, 6.6869E-03, 6.6150E-03,
     &   6.5427E-03, 6.4699E-03, 6.3967E-03, 6.3231E-03, 6.2491E-03/

         DATA ((DGT  (I,J), I= 301, 400), J=1,1) /
     &   6.1746E-03, 6.0998E-03, 6.0245E-03, 5.9487E-03, 5.8726E-03,
     &   5.7960E-03, 5.7190E-03, 5.6416E-03, 5.5638E-03, 5.4856E-03,
     &   5.4069E-03, 5.3279E-03, 5.2485E-03, 5.1687E-03, 5.0885E-03,
     &   5.0079E-03, 4.9269E-03, 4.8456E-03, 4.7639E-03, 4.6819E-03,
     &   4.5996E-03, 4.5169E-03, 4.4340E-03, 4.3507E-03, 4.2672E-03,
     &   4.1834E-03, 4.0993E-03, 4.0150E-03, 3.9305E-03, 3.8458E-03,
     &   3.7609E-03, 3.6758E-03, 3.5907E-03, 3.5054E-03, 3.4200E-03,
     &   3.3346E-03, 3.2491E-03, 3.1637E-03, 3.0783E-03, 2.9929E-03,
     &   2.9076E-03, 2.8225E-03, 2.7376E-03, 2.6529E-03, 2.5684E-03,
     &   2.4842E-03, 2.4004E-03, 2.3169E-03, 2.2339E-03, 2.1514E-03,
     &   2.0694E-03, 1.9881E-03, 1.9073E-03, 1.8273E-03, 1.7488E-03,
     &   1.6703E-03, 1.5928E-03, 1.5162E-03, 1.4406E-03, 1.3661E-03,
     &   1.2928E-03, 1.2207E-03, 1.1499E-03, 1.0805E-03, 1.0126E-03,
     &   9.4613E-04, 8.8132E-04, 8.1819E-04, 7.5682E-04, 6.9730E-04,
     &   6.3970E-04, 5.8410E-04, 5.3057E-04, 4.7921E-04, 4.3007E-04,
     &   3.8325E-04, 3.3881E-04, 2.9683E-04, 2.5737E-04, 2.2051E-04,
     &   1.8630E-04, 1.8303E-04, 1.7979E-04, 1.7657E-04, 1.7338E-04,
     &   1.7022E-04, 1.6708E-04, 1.6398E-04, 1.6090E-04, 1.5784E-04,
     &   1.5482E-04, 1.5182E-04, 1.4886E-04, 1.4591E-04, 1.4300E-04,
     &   1.4012E-04, 1.3726E-04, 1.3443E-04, 1.3163E-04, 1.2886E-04/

         DATA ((DGT  (I,J), I= 401, 500), J=1,1) /
     &   1.2611E-04, 1.2340E-04, 1.2071E-04, 1.1805E-04, 1.1542E-04,
     &   1.1282E-04, 1.1025E-04, 1.0770E-04, 1.0518E-04, 1.0270E-04,
     &   1.0024E-04, 9.7808E-05, 9.5407E-05, 9.3035E-05, 9.0692E-05,
     &   8.8378E-05, 8.6093E-05, 8.3837E-05, 8.1610E-05, 7.9412E-05,
     &   7.7244E-05, 7.5104E-05, 7.2994E-05, 7.0914E-05, 6.8863E-05,
     &   6.6841E-05, 6.4849E-05, 6.2886E-05, 6.0952E-05, 5.9049E-05,
     &   5.7175E-05, 5.5330E-05, 5.3515E-05, 5.1730E-05, 4.9975E-05,
     &   4.8250E-05, 4.6554E-05, 4.4888E-05, 4.3252E-05, 4.1646E-05,
     &   4.0071E-05, 3.8525E-05, 3.7009E-05, 3.5523E-05, 3.4067E-05,
     &   3.2641E-05, 3.1246E-05, 2.9880E-05, 2.8545E-05, 2.7240E-05,
     &   2.5966E-05, 2.4721E-05, 2.3507E-05, 2.2323E-05, 2.1170E-05,
     &   2.0047E-05, 1.8954E-05, 1.7892E-05, 1.6861E-05, 1.5859E-05,
     &   1.4889E-05, 1.3948E-05, 1.3039E-05, 1.2159E-05, 1.1311E-05,
     &   1.0493E-05, 9.7052E-06, 8.9484E-06, 8.2222E-06, 7.5266E-06,
     &   6.8617E-06, 6.2275E-06, 5.6240E-06, 5.0512E-06, 4.5090E-06,
     &   3.9976E-06, 3.5170E-06, 3.0670E-06, 2.6479E-06, 2.2595E-06,
     &   1.9018E-06, 1.8677E-06, 1.8340E-06, 1.8005E-06, 1.7674E-06,
     &   1.7345E-06, 1.7020E-06, 1.6698E-06, 1.6379E-06, 1.6063E-06,
     &   1.5750E-06, 1.5440E-06, 1.5133E-06, 1.4829E-06, 1.4528E-06,
     &   1.4231E-06, 1.3936E-06, 1.3645E-06, 1.3356E-06, 1.3071E-06/

         DATA ((DGT  (I,J), I= 501, 600), J=1,1) /
     &   1.2789E-06, 1.2510E-06, 1.2234E-06, 1.1961E-06, 1.1691E-06,
     &   1.1424E-06, 1.1160E-06, 1.0899E-06, 1.0642E-06, 1.0387E-06,
     &   1.0136E-06, 9.8874E-07, 9.6422E-07, 9.4000E-07, 9.1609E-07,
     &   8.9248E-07, 8.6919E-07, 8.4620E-07, 8.2352E-07, 8.0115E-07,
     &   7.7908E-07, 7.5733E-07, 7.3588E-07, 7.1474E-07, 6.9391E-07,
     &   6.7338E-07, 6.5317E-07, 6.3326E-07, 6.1366E-07, 5.9437E-07,
     &   5.7539E-07, 5.5671E-07, 5.3834E-07, 5.2028E-07, 5.0253E-07,
     &   4.8509E-07, 4.6795E-07, 4.5113E-07, 4.3461E-07, 4.1840E-07,
     &   4.0249E-07, 3.8690E-07, 3.7161E-07, 3.5663E-07, 3.4196E-07,
     &   3.2760E-07, 3.1354E-07, 2.9980E-07, 2.8636E-07, 2.7323E-07,
     &   2.6041E-07, 2.4789E-07, 2.3569E-07, 2.2379E-07, 2.1220E-07,
     &   2.0092E-07, 1.8994E-07, 1.7928E-07, 1.6892E-07, 1.5887E-07,
     &   1.4913E-07, 1.3970E-07, 1.3057E-07, 1.2176E-07, 1.1325E-07,
     &   1.0505E-07, 9.7157E-08, 8.9573E-08, 8.2297E-08, 7.5329E-08,
     &   6.8670E-08, 6.2318E-08, 5.6275E-08, 5.0540E-08, 4.5113E-08,
     &   3.9994E-08, 3.5183E-08, 3.0681E-08, 2.6486E-08, 2.2600E-08,
     &   1.9022E-08, 1.8681E-08, 1.8344E-08, 1.8009E-08, 1.7677E-08,
     &   1.7349E-08, 1.7023E-08, 1.6701E-08, 1.6382E-08, 1.6065E-08,
     &   1.5752E-08, 1.5442E-08, 1.5135E-08, 1.4831E-08, 1.4531E-08,
     &   1.4233E-08, 1.3938E-08, 1.3647E-08, 1.3358E-08, 1.3073E-08/

         DATA ((DGT  (I,J), I= 601, 700), J=1,1) /
     &   1.2791E-08, 1.2511E-08, 1.2235E-08, 1.1962E-08, 1.1692E-08,
     &   1.1425E-08, 1.1161E-08, 1.0901E-08, 1.0643E-08, 1.0388E-08,
     &   1.0137E-08, 9.8885E-09, 9.6432E-09, 9.4010E-09, 9.1618E-09,
     &   8.9257E-09, 8.6927E-09, 8.4628E-09, 8.2359E-09, 8.0122E-09,
     &   7.7915E-09, 7.5739E-09, 7.3594E-09, 7.1480E-09, 6.9396E-09,
     &   6.7343E-09, 6.5322E-09, 6.3331E-09, 6.1370E-09, 5.9441E-09,
     &   5.7542E-09, 5.5674E-09, 5.3837E-09, 5.2031E-09, 5.0256E-09,
     &   4.8511E-09, 4.6798E-09, 4.5115E-09, 4.3463E-09, 4.1841E-09,
     &   4.0251E-09, 3.8691E-09, 3.7163E-09, 3.5665E-09, 3.4197E-09,
     &   3.2761E-09, 3.1355E-09, 2.9981E-09, 2.8637E-09, 2.7324E-09,
     &   2.6041E-09, 2.4790E-09, 2.3569E-09, 2.2379E-09, 2.1220E-09,
     &   2.0092E-09, 1.8995E-09, 1.7928E-09, 1.6893E-09, 1.5888E-09,
     &   1.4913E-09, 1.3970E-09, 1.3058E-09, 1.2176E-09, 1.1325E-09,
     &   1.0505E-09, 9.7158E-10, 8.9574E-10, 8.2298E-10, 7.5330E-10,
     &   6.8670E-10, 6.2319E-10, 5.6275E-10, 5.0540E-10, 4.5113E-10,
     &   3.9994E-10, 3.5184E-10, 3.0681E-10, 2.6487E-10, 2.2600E-10,
     &   1.9022E-10, 1.8681E-10, 1.8344E-10, 1.8009E-10, 1.7677E-10,
     &   1.7349E-10, 1.7023E-10, 1.6701E-10, 1.6382E-10, 1.6065E-10,
     &   1.5752E-10, 1.5442E-10, 1.5135E-10, 1.4831E-10, 1.4531E-10,
     &   1.4233E-10, 1.3938E-10, 1.3647E-10, 1.3358E-10, 1.3073E-10/

         DATA ((DGT  (I,J), I= 701, 800), J=1,1) /
     &   1.2791E-10, 1.2511E-10, 1.2235E-10, 1.1962E-10, 1.1692E-10,
     &   1.1425E-10, 1.1161E-10, 1.0901E-10, 1.0643E-10, 1.0388E-10,
     &   1.0137E-10, 9.8885E-11, 9.6432E-11, 9.4010E-11, 9.1618E-11,
     &   8.9257E-11, 8.6927E-11, 8.4628E-11, 8.2359E-11, 8.0122E-11,
     &   7.7915E-11, 7.5739E-11, 7.3594E-11, 7.1480E-11, 6.9396E-11,
     &   6.7343E-11, 6.5322E-11, 6.3331E-11, 6.1370E-11, 5.9441E-11,
     &   5.7542E-11, 5.5674E-11, 5.3838E-11, 5.2031E-11, 5.0256E-11,
     &   4.8511E-11, 4.6798E-11, 4.5115E-11, 4.3463E-11, 4.1842E-11,
     &   4.0251E-11, 3.8691E-11, 3.7163E-11, 3.5665E-11, 3.4197E-11,
     &   3.2761E-11, 3.1356E-11, 2.9981E-11, 2.8637E-11, 2.7324E-11,
     &   2.6041E-11, 2.4790E-11, 2.3569E-11, 2.2379E-11, 2.1220E-11,
     &   2.0092E-11, 1.8995E-11, 1.7928E-11, 1.6893E-11, 1.5888E-11,
     &   1.4913E-11, 1.3970E-11, 1.3058E-11, 1.2176E-11, 1.1325E-11,
     &   1.0505E-11, 9.7158E-12, 8.9574E-12, 8.2298E-12, 7.5330E-12,
     &   6.8670E-12, 6.2319E-12, 5.6275E-12, 5.0540E-12, 4.5113E-12,
     &   3.9994E-12, 3.5184E-12, 3.0681E-12, 2.6487E-12, 2.2600E-12,
     &   1.9022E-12, 1.8681E-12, 1.8344E-12, 1.8009E-12, 1.7677E-12,
     &   1.7349E-12, 1.7023E-12, 1.6701E-12, 1.6382E-12, 1.6065E-12,
     &   1.5752E-12, 1.5442E-12, 1.5135E-12, 1.4831E-12, 1.4531E-12,
     &   1.4233E-12, 1.3938E-12, 1.3647E-12, 1.3358E-12, 1.3073E-12/

         DATA ((DGT  (I,J), I= 801, 900), J=1,1) /
     &   1.2791E-12, 1.2511E-12, 1.2235E-12, 1.1962E-12, 1.1692E-12,
     &   1.1425E-12, 1.1161E-12, 1.0901E-12, 1.0643E-12, 1.0388E-12,
     &   1.0137E-12, 9.8885E-13, 9.6432E-13, 9.4010E-13, 9.1618E-13,
     &   8.9257E-13, 8.6927E-13, 8.4628E-13, 8.2359E-13, 8.0122E-13,
     &   7.7915E-13, 7.5739E-13, 7.3594E-13, 7.1480E-13, 6.9396E-13,
     &   6.7343E-13, 6.5322E-13, 6.3331E-13, 6.1370E-13, 5.9441E-13,
     &   5.7542E-13, 5.5674E-13, 5.3838E-13, 5.2031E-13, 5.0256E-13,
     &   4.8511E-13, 4.6798E-13, 4.5115E-13, 4.3463E-13, 4.1842E-13,
     &   4.0251E-13, 3.8691E-13, 3.7163E-13, 3.5665E-13, 3.4197E-13,
     &   3.2761E-13, 3.1356E-13, 2.9981E-13, 2.8637E-13, 2.7324E-13,
     &   2.6041E-13, 2.4790E-13, 2.3569E-13, 2.2379E-13, 2.1220E-13,
     &   2.0092E-13, 1.8995E-13, 1.7928E-13, 1.6893E-13, 1.5888E-13,
     &   1.4913E-13, 1.3970E-13, 1.3058E-13, 1.2176E-13, 1.1325E-13,
     &   1.0505E-13, 9.7158E-14, 8.9574E-14, 8.2298E-14, 7.5330E-14,
     &   6.8670E-14, 6.2319E-14, 5.6275E-14, 5.0540E-14, 4.5113E-14,
     &   3.9994E-14, 3.5184E-14, 3.0681E-14, 2.6487E-14, 2.2600E-14,
     &   1.9022E-14, 0.0000E+00,-1.9022E-14,-1.7132E-07,-6.8508E-07,
     &  -1.5414E-06,-2.7400E-06,-4.2821E-06,-6.1675E-06,-8.3967E-06,
     &  -1.0970E-05,-1.3889E-05,-1.7153E-05,-2.0764E-05,-2.4721E-05,
     &  -2.9027E-05,-3.3683E-05,-3.8688E-05,-4.4045E-05,-4.9755E-05/

         DATA ((DGT  (I,J), I= 901, 979), J=1,1) /
     &  -5.5819E-05,-6.2238E-05,-6.9015E-05,-7.6150E-05,-8.3646E-05,
     &  -9.1505E-05,-9.9728E-05,-1.0832E-04,-1.1727E-04,-1.2660E-04,
     &  -1.3631E-04,-1.4638E-04,-1.5684E-04,-1.6768E-04,-1.7890E-04,
     &  -1.9051E-04,-2.0251E-04,-2.1491E-04,-2.2770E-04,-2.4090E-04,
     &  -2.5450E-04,-2.6851E-04,-2.8221E-04,-2.9698E-04,-3.1218E-04,
     &  -3.2779E-04,-3.4383E-04,-3.6030E-04,-3.7721E-04,-3.9456E-04,
     &  -4.1235E-04,-4.3059E-04,-4.4929E-04,-4.6845E-04,-4.8808E-04,
     &  -5.0817E-04,-5.2879E-04,-5.4987E-04,-5.7144E-04,-5.9352E-04,
     &  -6.1611E-04,-6.3922E-04,-6.6286E-04,-6.8704E-04,-7.1177E-04,
     &  -7.3725E-04,-7.6312E-04,-7.8956E-04,-8.1660E-04,-8.4424E-04,
     &  -8.7250E-04,-9.0139E-04,-9.3092E-04,-9.6113E-04,-9.9201E-04,
     &  -1.0236E-03,-1.0559E-03,-1.0889E-03,-1.1227E-03,-1.1573E-03,
     &  -1.1927E-03,-1.2293E-03,-1.2664E-03,-1.3044E-03,-1.3434E-03,
     &  -1.3834E-03,-1.4245E-03,-1.4666E-03,-1.5099E-03,-1.5545E-03,
     &  -1.6005E-03,-1.6480E-03,-1.6972E-03,-1.7140E-03,-1.7483E-03,
     &  -1.76059557E-03,-1.80193155E-03,-1.80746030E-03,-1.82050832E-03/

         DATA ((DGT  (I,J), I=   1, 100), J=2,2) /
     &   8.8100E-05, 8.8100E-05, 8.8100E-05, 8.8100E-05, 8.8100E-05,
     &   8.8100E-05, 8.8100E-05, 8.8100E-05, 8.8100E-05, 8.8100E-05,
     &   8.8100E-05, 8.8100E-05, 8.8100E-05, 8.8100E-05, 8.8100E-05,
     &   8.8100E-05, 8.8100E-05, 8.8100E-05, 8.8100E-05, 8.8100E-05,
     &   8.8100E-05, 8.8100E-05, 8.8100E-05, 8.8099E-05, 8.8099E-05,
     &   8.8099E-05, 8.8099E-05, 8.8099E-05, 8.8099E-05, 8.8099E-05,
     &   8.8099E-05, 8.8099E-05, 8.8099E-05, 8.8099E-05, 8.8099E-05,
     &   8.8099E-05, 8.8098E-05, 8.8098E-05, 8.8098E-05, 8.8098E-05,
     &   8.8098E-05, 8.8098E-05, 8.8098E-05, 8.8098E-05, 8.8097E-05,
     &   8.8097E-05, 8.8097E-05, 8.8097E-05, 8.8097E-05, 8.8096E-05,
     &   8.8096E-05, 8.8096E-05, 8.8096E-05, 8.8096E-05, 8.8095E-05,
     &   8.8095E-05, 8.8095E-05, 8.8094E-05, 8.8094E-05, 8.8094E-05,
     &   8.8093E-05, 8.8093E-05, 8.8092E-05, 8.8092E-05, 8.8091E-05,
     &   8.8091E-05, 8.8090E-05, 8.8089E-05, 8.8088E-05, 8.8087E-05,
     &   8.8086E-05, 8.8085E-05, 8.8084E-05, 8.8083E-05, 8.8081E-05,
     &   8.8080E-05, 8.8078E-05, 8.8076E-05, 8.8073E-05, 8.8071E-05,
     &   8.8067E-05, 8.8064E-05, 8.8059E-05, 8.8054E-05, 8.8048E-05,
     &   8.8041E-05, 8.8032E-05, 8.8020E-05, 8.8006E-05, 8.7988E-05,
     &   8.7964E-05, 8.7962E-05, 8.7959E-05, 8.7956E-05, 8.7953E-05,
     &   8.7950E-05, 8.7946E-05, 8.7943E-05, 8.7940E-05, 8.7936E-05/

         DATA ((DGT  (I,J), I= 101, 200), J=2,2) /
     &   8.7932E-05, 8.7929E-05, 8.7925E-05, 8.7921E-05, 8.7916E-05,
     &   8.7912E-05, 8.7907E-05, 8.7903E-05, 8.7898E-05, 8.7893E-05,
     &   8.7888E-05, 8.7882E-05, 8.7877E-05, 8.7871E-05, 8.7865E-05,
     &   8.7859E-05, 8.7852E-05, 8.7845E-05, 8.7838E-05, 8.7831E-05,
     &   8.7823E-05, 8.7815E-05, 8.7806E-05, 8.7798E-05, 8.7789E-05,
     &   8.7779E-05, 8.7769E-05, 8.7758E-05, 8.7747E-05, 8.7736E-05,
     &   8.7724E-05, 8.7711E-05, 8.7698E-05, 8.7684E-05, 8.7669E-05,
     &   8.7653E-05, 8.7637E-05, 8.7619E-05, 8.7601E-05, 8.7581E-05,
     &   8.7561E-05, 8.7539E-05, 8.7516E-05, 8.7491E-05, 8.7465E-05,
     &   8.7437E-05, 8.7407E-05, 8.7376E-05, 8.7341E-05, 8.7305E-05,
     &   8.7266E-05, 8.7224E-05, 8.7179E-05, 8.7130E-05, 8.7077E-05,
     &   8.7020E-05, 8.6958E-05, 8.6891E-05, 8.6818E-05, 8.6738E-05,
     &   8.6650E-05, 8.6553E-05, 8.6447E-05, 8.6330E-05, 8.6200E-05,
     &   8.6056E-05, 8.5894E-05, 8.5713E-05, 8.5510E-05, 8.5279E-05,
     &   8.5017E-05, 8.4718E-05, 8.4374E-05, 8.3975E-05, 8.3511E-05,
     &   8.2964E-05, 8.2316E-05, 8.1538E-05, 8.0594E-05, 7.9433E-05,
     &   7.7983E-05, 7.7835E-05, 7.7683E-05, 7.7529E-05, 7.7371E-05,
     &   7.7209E-05, 7.7044E-05, 7.6875E-05, 7.6702E-05, 7.6525E-05,
     &   7.6344E-05, 7.6159E-05, 7.5969E-05, 7.5775E-05, 7.5576E-05,
     &   7.5372E-05, 7.5164E-05, 7.4950E-05, 7.4731E-05, 7.4506E-05/

         DATA ((DGT  (I,J), I= 201, 300), J=2,2) /
     &   7.4276E-05, 7.4040E-05, 7.3799E-05, 7.3550E-05, 7.3296E-05,
     &   7.3035E-05, 7.2767E-05, 7.2491E-05, 7.2209E-05, 7.1919E-05,
     &   7.1621E-05, 7.1315E-05, 7.1001E-05, 7.0678E-05, 7.0346E-05,
     &   7.0004E-05, 6.9653E-05, 6.9293E-05, 6.8921E-05, 6.8539E-05,
     &   6.8146E-05, 6.7742E-05, 6.7326E-05, 6.6897E-05, 6.6456E-05,
     &   6.6002E-05, 6.5534E-05, 6.5052E-05, 6.4555E-05, 6.4043E-05,
     &   6.3516E-05, 6.2972E-05, 6.2411E-05, 6.1834E-05, 6.1238E-05,
     &   6.0624E-05, 5.9990E-05, 5.9337E-05, 5.8663E-05, 5.7969E-05,
     &   5.7252E-05, 5.6513E-05, 5.5752E-05, 5.4966E-05, 5.4156E-05,
     &   5.3321E-05, 5.2460E-05, 5.1573E-05, 5.0659E-05, 4.9717E-05,
     &   4.8748E-05, 4.7750E-05, 4.6724E-05, 4.5668E-05, 4.4583E-05,
     &   4.3469E-05, 4.2325E-05, 4.1152E-05, 3.9949E-05, 3.8719E-05,
     &   3.7460E-05, 3.6175E-05, 3.4863E-05, 3.3528E-05, 3.2170E-05,
     &   3.0791E-05, 2.9394E-05, 2.7982E-05, 2.6558E-05, 2.5124E-05,
     &   2.3686E-05, 2.2247E-05, 2.0811E-05, 1.9383E-05, 1.7969E-05,
     &   1.6572E-05, 1.5198E-05, 1.3850E-05, 1.2533E-05, 1.1249E-05,
     &   1.0001E-05, 9.8781E-06, 9.7556E-06, 9.6336E-06, 9.5119E-06,
     &   9.3905E-06, 9.2696E-06, 9.1490E-06, 9.0288E-06, 8.9089E-06,
     &   8.7894E-06, 8.6703E-06, 8.5516E-06, 8.4332E-06, 8.3152E-06,
     &   8.1976E-06, 8.0804E-06, 7.9635E-06, 7.8470E-06, 7.7308E-06/

         DATA ((DGT  (I,J), I= 301, 400), J=2,2) /
     &   7.6150E-06, 7.4996E-06, 7.3846E-06, 7.2699E-06, 7.1556E-06,
     &   7.0416E-06, 6.9280E-06, 6.8148E-06, 6.7019E-06, 6.5894E-06,
     &   6.4773E-06, 6.3655E-06, 6.2541E-06, 6.1431E-06, 6.0324E-06,
     &   5.9221E-06, 5.8122E-06, 5.7026E-06, 5.5934E-06, 5.4846E-06,
     &   5.3761E-06, 5.2681E-06, 5.1604E-06, 5.0531E-06, 4.9462E-06,
     &   4.8396E-06, 4.7335E-06, 4.6278E-06, 4.5225E-06, 4.4176E-06,
     &   4.3131E-06, 4.2090E-06, 4.1054E-06, 4.0023E-06, 3.8996E-06,
     &   3.7973E-06, 3.6956E-06, 3.5944E-06, 3.4936E-06, 3.3934E-06,
     &   3.2938E-06, 3.1947E-06, 3.0963E-06, 2.9984E-06, 2.9011E-06,
     &   2.8046E-06, 2.7087E-06, 2.6135E-06, 2.5191E-06, 2.4255E-06,
     &   2.3327E-06, 2.2408E-06, 2.1497E-06, 2.0596E-06, 1.9705E-06,
     &   1.8824E-06, 1.7954E-06, 1.7096E-06, 1.6250E-06, 1.5416E-06,
     &   1.4595E-06, 1.3789E-06, 1.2996E-06, 1.2219E-06, 1.1458E-06,
     &   1.0714E-06, 9.9874E-07, 9.2790E-07, 8.5897E-07, 7.9205E-07,
     &   7.2721E-07, 6.6455E-07, 6.0416E-07, 5.4613E-07, 4.9054E-07,
     &   4.3749E-07, 3.8708E-07, 3.3938E-07, 2.9449E-07, 2.5249E-07,
     &   2.1347E-07, 2.0974E-07, 2.0603E-07, 2.0236E-07, 1.9872E-07,
     &   1.9511E-07, 1.9152E-07, 1.8797E-07, 1.8446E-07, 1.8097E-07,
     &   1.7751E-07, 1.7409E-07, 1.7069E-07, 1.6733E-07, 1.6400E-07,
     &   1.6070E-07, 1.5743E-07, 1.5420E-07, 1.5100E-07, 1.4782E-07/

         DATA ((DGT  (I,J), I= 401, 500), J=2,2) /
     &   1.4468E-07, 1.4158E-07, 1.3850E-07, 1.3546E-07, 1.3245E-07,
     &   1.2947E-07, 1.2652E-07, 1.2361E-07, 1.2073E-07, 1.1788E-07,
     &   1.1506E-07, 1.1228E-07, 1.0953E-07, 1.0681E-07, 1.0413E-07,
     &   1.0147E-07, 9.8855E-08, 9.6269E-08, 9.3716E-08, 9.1197E-08,
     &   8.8711E-08, 8.6258E-08, 8.3839E-08, 8.1452E-08, 7.9100E-08,
     &   7.6781E-08, 7.4496E-08, 7.2244E-08, 7.0026E-08, 6.7842E-08,
     &   6.5691E-08, 6.3574E-08, 6.1492E-08, 5.9443E-08, 5.7428E-08,
     &   5.5448E-08, 5.3501E-08, 5.1589E-08, 4.9710E-08, 4.7866E-08,
     &   4.6057E-08, 4.4281E-08, 4.2540E-08, 4.0834E-08, 3.9161E-08,
     &   3.7524E-08, 3.5921E-08, 3.4352E-08, 3.2818E-08, 3.1319E-08,
     &   2.9854E-08, 2.8424E-08, 2.7029E-08, 2.5668E-08, 2.4343E-08,
     &   2.3052E-08, 2.1796E-08, 2.0575E-08, 1.9389E-08, 1.8238E-08,
     &   1.7122E-08, 1.6041E-08, 1.4995E-08, 1.3984E-08, 1.3009E-08,
     &   1.2068E-08, 1.1163E-08, 1.0292E-08, 9.4572E-09, 8.6573E-09,
     &   7.8926E-09, 7.1632E-09, 6.4691E-09, 5.8103E-09, 5.1867E-09,
     &   4.5985E-09, 4.0457E-09, 3.5281E-09, 3.0460E-09, 2.5992E-09,
     &   2.1878E-09, 2.1486E-09, 2.1098E-09, 2.0713E-09, 2.0331E-09,
     &   1.9954E-09, 1.9579E-09, 1.9209E-09, 1.8842E-09, 1.8478E-09,
     &   1.8118E-09, 1.7761E-09, 1.7408E-09, 1.7059E-09, 1.6713E-09,
     &   1.6371E-09, 1.6032E-09, 1.5697E-09, 1.5365E-09, 1.5037E-09/

         DATA ((DGT  (I,J), I= 501, 600), J=2,2) /
     &   1.4712E-09, 1.4391E-09, 1.4073E-09, 1.3759E-09, 1.3449E-09,
     &   1.3142E-09, 1.2838E-09, 1.2538E-09, 1.2242E-09, 1.1949E-09,
     &   1.1660E-09, 1.1374E-09, 1.1092E-09, 1.0814E-09, 1.0539E-09,
     &   1.0267E-09, 9.9991E-10, 9.7346E-10, 9.4737E-10, 9.2164E-10,
     &   8.9626E-10, 8.7123E-10, 8.4655E-10, 8.2224E-10, 7.9827E-10,
     &   7.7466E-10, 7.5141E-10, 7.2850E-10, 7.0596E-10, 6.8376E-10,
     &   6.6193E-10, 6.4044E-10, 6.1931E-10, 5.9854E-10, 5.7812E-10,
     &   5.5805E-10, 5.3834E-10, 5.1898E-10, 4.9997E-10, 4.8133E-10,
     &   4.6303E-10, 4.4509E-10, 4.2750E-10, 4.1027E-10, 3.9340E-10,
     &   3.7687E-10, 3.6070E-10, 3.4489E-10, 3.2943E-10, 3.1433E-10,
     &   2.9958E-10, 2.8518E-10, 2.7114E-10, 2.5745E-10, 2.4412E-10,
     &   2.3114E-10, 2.1851E-10, 2.0625E-10, 1.9433E-10, 1.8277E-10,
     &   1.7156E-10, 1.6071E-10, 1.5021E-10, 1.4007E-10, 1.3028E-10,
     &   1.2085E-10, 1.1177E-10, 1.0305E-10, 9.4676E-11, 8.6660E-11,
     &   7.8999E-11, 7.1692E-11, 6.4740E-11, 5.8142E-11, 5.1899E-11,
     &   4.6010E-11, 4.0476E-11, 3.5296E-11, 3.0471E-11, 2.6000E-11,
     &   2.1883E-11, 2.1491E-11, 2.1103E-11, 2.0718E-11, 2.0336E-11,
     &   1.9958E-11, 1.9584E-11, 1.9213E-11, 1.8846E-11, 1.8482E-11,
     &   1.8122E-11, 1.7765E-11, 1.7412E-11, 1.7062E-11, 1.6716E-11,
     &   1.6374E-11, 1.6035E-11, 1.5699E-11, 1.5368E-11, 1.5039E-11/

         DATA ((DGT  (I,J), I= 601, 700), J=2,2) /
     &   1.4714E-11, 1.4393E-11, 1.4076E-11, 1.3761E-11, 1.3451E-11,
     &   1.3144E-11, 1.2840E-11, 1.2540E-11, 1.2244E-11, 1.1951E-11,
     &   1.1662E-11, 1.1376E-11, 1.1094E-11, 1.0815E-11, 1.0540E-11,
     &   1.0268E-11, 1.0000E-11, 9.7357E-12, 9.4748E-12, 9.2174E-12,
     &   8.9635E-12, 8.7132E-12, 8.4664E-12, 8.2231E-12, 7.9835E-12,
     &   7.7473E-12, 7.5147E-12, 7.2857E-12, 7.0601E-12, 6.8382E-12,
     &   6.6198E-12, 6.4049E-12, 6.1936E-12, 5.9858E-12, 5.7815E-12,
     &   5.5808E-12, 5.3837E-12, 5.1901E-12, 5.0000E-12, 4.8135E-12,
     &   4.6306E-12, 4.4511E-12, 4.2753E-12, 4.1029E-12, 3.9341E-12,
     &   3.7689E-12, 3.6072E-12, 3.4490E-12, 3.2944E-12, 3.1434E-12,
     &   2.9959E-12, 2.8519E-12, 2.7115E-12, 2.5746E-12, 2.4412E-12,
     &   2.3114E-12, 2.1852E-12, 2.0625E-12, 1.9433E-12, 1.8277E-12,
     &   1.7157E-12, 1.6071E-12, 1.5022E-12, 1.4007E-12, 1.3029E-12,
     &   1.2085E-12, 1.1177E-12, 1.0305E-12, 9.4677E-13, 8.6661E-13,
     &   7.9000E-13, 7.1693E-13, 6.4740E-13, 5.8142E-13, 5.1899E-13,
     &   4.6010E-13, 4.0476E-13, 3.5296E-13, 3.0471E-13, 2.6000E-13,
     &   2.1884E-13, 2.1491E-13, 2.1103E-13, 2.0718E-13, 2.0336E-13,
     &   1.9958E-13, 1.9584E-13, 1.9213E-13, 1.8846E-13, 1.8482E-13,
     &   1.8122E-13, 1.7765E-13, 1.7412E-13, 1.7062E-13, 1.6716E-13,
     &   1.6374E-13, 1.6035E-13, 1.5699E-13, 1.5368E-13, 1.5039E-13/

         DATA ((DGT  (I,J), I= 701, 800), J=2,2) /
     &   1.4714E-13, 1.4393E-13, 1.4076E-13, 1.3761E-13, 1.3451E-13,
     &   1.3144E-13, 1.2840E-13, 1.2540E-13, 1.2244E-13, 1.1951E-13,
     &   1.1662E-13, 1.1376E-13, 1.1094E-13, 1.0815E-13, 1.0540E-13,
     &   1.0268E-13, 1.0000E-13, 9.7357E-14, 9.4748E-14, 9.2174E-14,
     &   8.9635E-14, 8.7132E-14, 8.4664E-14, 8.2232E-14, 7.9835E-14,
     &   7.7473E-14, 7.5147E-14, 7.2857E-14, 7.0602E-14, 6.8382E-14,
     &   6.6198E-14, 6.4049E-14, 6.1936E-14, 5.9858E-14, 5.7815E-14,
     &   5.5808E-14, 5.3837E-14, 5.1901E-14, 5.0000E-14, 4.8135E-14,
     &   4.6306E-14, 4.4511E-14, 4.2753E-14, 4.1029E-14, 3.9341E-14,
     &   3.7689E-14, 3.6072E-14, 3.4490E-14, 3.2944E-14, 3.1434E-14,
     &   2.9959E-14, 2.8519E-14, 2.7115E-14, 2.5746E-14, 2.4412E-14,
     &   2.3114E-14, 2.1852E-14, 2.0625E-14, 1.9433E-14, 1.8277E-14,
     &   1.7157E-14, 1.6071E-14, 1.5022E-14, 1.4007E-14, 1.3029E-14,
     &   1.2085E-14, 1.1177E-14, 1.0305E-14, 9.4677E-15, 8.6661E-15,
     &   7.9000E-15, 7.1693E-15, 6.4740E-15, 5.8142E-15, 5.1899E-15,
     &   4.6010E-15, 4.0476E-15, 3.5296E-15, 3.0471E-15, 2.6000E-15,
     &   2.1884E-15, 2.1491E-15, 2.1103E-15, 2.0718E-15, 2.0336E-15,
     &   1.9958E-15, 1.9584E-15, 1.9213E-15, 1.8846E-15, 1.8482E-15,
     &   1.8122E-15, 1.7765E-15, 1.7412E-15, 1.7062E-15, 1.6716E-15,
     &   1.6374E-15, 1.6035E-15, 1.5699E-15, 1.5368E-15, 1.5039E-15/

         DATA ((DGT  (I,J), I= 801, 900), J=2,2) /
     &   1.4714E-15, 1.4393E-15, 1.4076E-15, 1.3761E-15, 1.3451E-15,
     &   1.3144E-15, 1.2840E-15, 1.2540E-15, 1.2244E-15, 1.1951E-15,
     &   1.1662E-15, 1.1376E-15, 1.1094E-15, 1.0815E-15, 1.0540E-15,
     &   1.0268E-15, 1.0000E-15, 9.7357E-16, 9.4748E-16, 9.2174E-16,
     &   8.9635E-16, 8.7132E-16, 8.4664E-16, 8.2232E-16, 7.9835E-16,
     &   7.7473E-16, 7.5147E-16, 7.2857E-16, 7.0602E-16, 6.8382E-16,
     &   6.6198E-16, 6.4049E-16, 6.1936E-16, 5.9858E-16, 5.7815E-16,
     &   5.5808E-16, 5.3837E-16, 5.1901E-16, 5.0000E-16, 4.8135E-16,
     &   4.6306E-16, 4.4511E-16, 4.2753E-16, 4.1029E-16, 3.9341E-16,
     &   3.7689E-16, 3.6072E-16, 3.4490E-16, 3.2944E-16, 3.1434E-16,
     &   2.9959E-16, 2.8519E-16, 2.7115E-16, 2.5746E-16, 2.4412E-16,
     &   2.3114E-16, 2.1852E-16, 2.0625E-16, 1.9433E-16, 1.8277E-16,
     &   1.7157E-16, 1.6071E-16, 1.5022E-16, 1.4007E-16, 1.3029E-16,
     &   1.2085E-16, 1.1177E-16, 1.0305E-16, 9.4677E-17, 8.6661E-17,
     &   7.9000E-17, 7.1693E-17, 6.4740E-17, 5.8142E-17, 5.1899E-17,
     &   4.6010E-17, 4.0476E-17, 3.5296E-17, 3.0471E-17, 2.6000E-17,
     &   2.1884E-17, 0.0000E+00, 2.1884E-17, 1.9709E-10, 7.8814E-10,
     &   1.7733E-09, 3.1524E-09, 4.9266E-09, 7.0962E-09, 9.6616E-09,
     &   1.2624E-08, 1.5983E-08, 1.9741E-08, 2.3898E-08, 2.8456E-08,
     &   3.3416E-08, 3.8779E-08, 4.4547E-08, 5.0721E-08, 5.7304E-08/

         DATA ((DGT  (I,J), I= 901, 979), J=2,2) /
     &   6.4297E-08, 7.1702E-08, 7.9521E-08, 8.7758E-08, 9.6413E-08,
     &   1.0549E-07, 1.1499E-07, 1.2492E-07, 1.3528E-07, 1.4607E-07,
     &   1.5731E-07, 1.6898E-07, 1.8109E-07, 1.9366E-07, 2.0667E-07,
     &   2.2015E-07, 2.3408E-07, 2.4848E-07, 2.6335E-07, 2.7870E-07,
     &   2.9453E-07, 3.1084E-07, 3.2765E-07, 3.4496E-07, 3.6278E-07,
     &   3.8111E-07, 3.9995E-07, 4.1933E-07, 4.3924E-07, 4.5969E-07,
     &   4.8070E-07, 5.0226E-07, 5.2440E-07, 5.4712E-07, 5.7043E-07,
     &   5.9434E-07, 6.1887E-07, 6.4402E-07, 6.6981E-07, 6.9625E-07,
     &   7.2336E-07, 7.5115E-07, 7.7964E-07, 8.0884E-07, 8.3878E-07,
     &   8.6946E-07, 9.0092E-07, 9.3318E-07, 9.6625E-07, 1.0002E-06,
     &   1.0349E-06, 1.0706E-06, 1.1072E-06, 1.1448E-06, 1.1834E-06,
     &   1.2230E-06, 1.2637E-06, 1.3055E-06, 1.3485E-06, 1.3927E-06,
     &   1.4382E-06, 1.4851E-06, 1.5334E-06, 1.5833E-06, 1.6348E-06,
     &   1.6880E-06, 1.7431E-06, 1.8003E-06, 1.8596E-06, 1.9213E-06,
     &   1.9857E-06, 2.0530E-06, 2.1237E-06, 2.1481E-06, 2.1982E-06,
     &   2.21621486E-06, 2.27718505E-06, 2.28536072E-06, 2.30465120E-06/

         DATA ((DGT  (I,J), I=   1, 100), J=3,3) /
     &   2.3062E-04, 2.3062E-04, 2.3061E-04, 2.3061E-04, 2.3061E-04,
     &   2.3061E-04, 2.3061E-04, 2.3061E-04, 2.3061E-04, 2.3061E-04,
     &   2.3061E-04, 2.3060E-04, 2.3060E-04, 2.3060E-04, 2.3060E-04,
     &   2.3060E-04, 2.3060E-04, 2.3060E-04, 2.3060E-04, 2.3059E-04,
     &   2.3059E-04, 2.3059E-04, 2.3059E-04, 2.3059E-04, 2.3059E-04,
     &   2.3059E-04, 2.3058E-04, 2.3058E-04, 2.3058E-04, 2.3058E-04,
     &   2.3058E-04, 2.3058E-04, 2.3057E-04, 2.3057E-04, 2.3057E-04,
     &   2.3057E-04, 2.3057E-04, 2.3057E-04, 2.3056E-04, 2.3056E-04,
     &   2.3056E-04, 2.3056E-04, 2.3055E-04, 2.3055E-04, 2.3055E-04,
     &   2.3055E-04, 2.3055E-04, 2.3054E-04, 2.3054E-04, 2.3054E-04,
     &   2.3053E-04, 2.3053E-04, 2.3053E-04, 2.3052E-04, 2.3052E-04,
     &   2.3052E-04, 2.3051E-04, 2.3051E-04, 2.3051E-04, 2.3050E-04,
     &   2.3050E-04, 2.3049E-04, 2.3049E-04, 2.3048E-04, 2.3048E-04,
     &   2.3047E-04, 2.3047E-04, 2.3046E-04, 2.3045E-04, 2.3045E-04,
     &   2.3044E-04, 2.3043E-04, 2.3042E-04, 2.3041E-04, 2.3040E-04,
     &   2.3039E-04, 2.3037E-04, 2.3036E-04, 2.3034E-04, 2.3033E-04,
     &   2.3031E-04, 2.3028E-04, 2.3026E-04, 2.3023E-04, 2.3019E-04,
     &   2.3015E-04, 2.3011E-04, 2.3005E-04, 2.2997E-04, 2.2988E-04,
     &   2.2977E-04, 2.2975E-04, 2.2974E-04, 2.2972E-04, 2.2971E-04,
     &   2.2969E-04, 2.2968E-04, 2.2966E-04, 2.2965E-04, 2.2963E-04/

         DATA ((DGT  (I,J), I= 101, 200), J=3,3) /
     &   2.2961E-04, 2.2959E-04, 2.2957E-04, 2.2955E-04, 2.2953E-04,
     &   2.2951E-04, 2.2949E-04, 2.2947E-04, 2.2945E-04, 2.2942E-04,
     &   2.2940E-04, 2.2937E-04, 2.2935E-04, 2.2932E-04, 2.2929E-04,
     &   2.2926E-04, 2.2923E-04, 2.2920E-04, 2.2916E-04, 2.2913E-04,
     &   2.2909E-04, 2.2906E-04, 2.2902E-04, 2.2898E-04, 2.2893E-04,
     &   2.2889E-04, 2.2884E-04, 2.2880E-04, 2.2874E-04, 2.2869E-04,
     &   2.2864E-04, 2.2858E-04, 2.2852E-04, 2.2845E-04, 2.2839E-04,
     &   2.2831E-04, 2.2824E-04, 2.2816E-04, 2.2808E-04, 2.2799E-04,
     &   2.2790E-04, 2.2780E-04, 2.2770E-04, 2.2759E-04, 2.2747E-04,
     &   2.2735E-04, 2.2722E-04, 2.2708E-04, 2.2693E-04, 2.2677E-04,
     &   2.2659E-04, 2.2641E-04, 2.2621E-04, 2.2600E-04, 2.2577E-04,
     &   2.2553E-04, 2.2526E-04, 2.2498E-04, 2.2466E-04, 2.2433E-04,
     &   2.2396E-04, 2.2355E-04, 2.2311E-04, 2.2263E-04, 2.2209E-04,
     &   2.2150E-04, 2.2085E-04, 2.2013E-04, 2.1932E-04, 2.1842E-04,
     &   2.1741E-04, 2.1627E-04, 2.1498E-04, 2.1351E-04, 2.1184E-04,
     &   2.0991E-04, 2.0768E-04, 2.0507E-04, 2.0202E-04, 1.9839E-04,
     &   1.9405E-04, 1.9362E-04, 1.9317E-04, 1.9273E-04, 1.9227E-04,
     &   1.9181E-04, 1.9133E-04, 1.9085E-04, 1.9036E-04, 1.8986E-04,
     &   1.8935E-04, 1.8883E-04, 1.8830E-04, 1.8777E-04, 1.8722E-04,
     &   1.8666E-04, 1.8609E-04, 1.8551E-04, 1.8492E-04, 1.8431E-04/

         DATA ((DGT  (I,J), I= 201, 300), J=3,3) /
     &   1.8370E-04, 1.8307E-04, 1.8243E-04, 1.8178E-04, 1.8111E-04,
     &   1.8043E-04, 1.7974E-04, 1.7903E-04, 1.7831E-04, 1.7757E-04,
     &   1.7682E-04, 1.7605E-04, 1.7526E-04, 1.7446E-04, 1.7364E-04,
     &   1.7281E-04, 1.7195E-04, 1.7108E-04, 1.7019E-04, 1.6928E-04,
     &   1.6835E-04, 1.6740E-04, 1.6642E-04, 1.6543E-04, 1.6441E-04,
     &   1.6338E-04, 1.6231E-04, 1.6123E-04, 1.6012E-04, 1.5898E-04,
     &   1.5782E-04, 1.5663E-04, 1.5542E-04, 1.5418E-04, 1.5291E-04,
     &   1.5161E-04, 1.5028E-04, 1.4892E-04, 1.4753E-04, 1.4611E-04,
     &   1.4466E-04, 1.4317E-04, 1.4165E-04, 1.4009E-04, 1.3850E-04,
     &   1.3687E-04, 1.3521E-04, 1.3351E-04, 1.3176E-04, 1.2998E-04,
     &   1.2816E-04, 1.2629E-04, 1.2438E-04, 1.2243E-04, 1.2043E-04,
     &   1.1838E-04, 1.1628E-04, 1.1413E-04, 1.1193E-04, 1.0967E-04,
     &   1.0736E-04, 1.0498E-04, 1.0253E-04, 1.0002E-04, 9.7440E-05,
     &   9.4781E-05, 9.2040E-05, 8.9213E-05, 8.6295E-05, 8.3279E-05,
     &   8.0158E-05, 7.6928E-05, 7.3581E-05, 7.0110E-05, 6.6511E-05,
     &   6.2777E-05, 5.8905E-05, 5.4892E-05, 5.0738E-05, 4.6446E-05,
     &   4.2025E-05, 4.1576E-05, 4.1126E-05, 4.0675E-05, 4.0223E-05,
     &   3.9769E-05, 3.9315E-05, 3.8859E-05, 3.8403E-05, 3.7945E-05,
     &   3.7487E-05, 3.7027E-05, 3.6566E-05, 3.6105E-05, 3.5643E-05,
     &   3.5180E-05, 3.4715E-05, 3.4251E-05, 3.3785E-05, 3.3319E-05/

         DATA ((DGT  (I,J), I= 301, 400), J=3,3) /
     &   3.2852E-05, 3.2384E-05, 3.1916E-05, 3.1447E-05, 3.0977E-05,
     &   3.0507E-05, 3.0037E-05, 2.9566E-05, 2.9095E-05, 2.8623E-05,
     &   2.8152E-05, 2.7680E-05, 2.7207E-05, 2.6735E-05, 2.6263E-05,
     &   2.5790E-05, 2.5318E-05, 2.4846E-05, 2.4374E-05, 2.3902E-05,
     &   2.3431E-05, 2.2960E-05, 2.2490E-05, 2.2020E-05, 2.1551E-05,
     &   2.1083E-05, 2.0615E-05, 2.0148E-05, 1.9683E-05, 1.9218E-05,
     &   1.8755E-05, 1.8293E-05, 1.7833E-05, 1.7374E-05, 1.6917E-05,
     &   1.6462E-05, 1.6008E-05, 1.5557E-05, 1.5108E-05, 1.4661E-05,
     &   1.4217E-05, 1.3775E-05, 1.3337E-05, 1.2901E-05, 1.2468E-05,
     &   1.2039E-05, 1.1613E-05, 1.1190E-05, 1.0772E-05, 1.0358E-05,
     &   9.9477E-06, 9.5421E-06, 9.1412E-06, 8.7451E-06, 8.3542E-06,
     &   7.9687E-06, 7.5887E-06, 7.2146E-06, 6.8466E-06, 6.4849E-06,
     &   6.1299E-06, 5.7818E-06, 5.4408E-06, 5.1074E-06, 4.7816E-06,
     &   4.4639E-06, 4.1545E-06, 3.8538E-06, 3.5620E-06, 3.2795E-06,
     &   3.0065E-06, 2.7434E-06, 2.4906E-06, 2.2482E-06, 2.0166E-06,
     &   1.7962E-06, 1.5872E-06, 1.3900E-06, 1.2048E-06, 1.0319E-06,
     &   8.7153E-07, 8.5620E-07, 8.4100E-07, 8.2593E-07, 8.1098E-07,
     &   7.9617E-07, 7.8149E-07, 7.6693E-07, 7.5251E-07, 7.3821E-07,
     &   7.2405E-07, 7.1001E-07, 6.9611E-07, 6.8234E-07, 6.6870E-07,
     &   6.5520E-07, 6.4182E-07, 6.2858E-07, 6.1547E-07, 6.0249E-07/

         DATA ((DGT  (I,J), I= 401, 500), J=3,3) /
     &   5.8965E-07, 5.7694E-07, 5.6436E-07, 5.5191E-07, 5.3960E-07,
     &   5.2743E-07, 5.1538E-07, 5.0348E-07, 4.9170E-07, 4.8006E-07,
     &   4.6856E-07, 4.5719E-07, 4.4596E-07, 4.3486E-07, 4.2390E-07,
     &   4.1308E-07, 4.0239E-07, 3.9184E-07, 3.8142E-07, 3.7115E-07,
     &   3.6100E-07, 3.5100E-07, 3.4113E-07, 3.3140E-07, 3.2181E-07,
     &   3.1236E-07, 3.0304E-07, 2.9387E-07, 2.8483E-07, 2.7593E-07,
     &   2.6716E-07, 2.5854E-07, 2.5006E-07, 2.4171E-07, 2.3351E-07,
     &   2.2544E-07, 2.1752E-07, 2.0973E-07, 2.0209E-07, 1.9458E-07,
     &   1.8721E-07, 1.7999E-07, 1.7290E-07, 1.6596E-07, 1.5916E-07,
     &   1.5249E-07, 1.4597E-07, 1.3959E-07, 1.3335E-07, 1.2726E-07,
     &   1.2130E-07, 1.1549E-07, 1.0981E-07, 1.0428E-07, 9.8894E-08,
     &   9.3647E-08, 8.8542E-08, 8.3580E-08, 7.8759E-08, 7.4082E-08,
     &   6.9547E-08, 6.5154E-08, 6.0904E-08, 5.6797E-08, 5.2832E-08,
     &   4.9011E-08, 4.5333E-08, 4.1797E-08, 3.8405E-08, 3.5156E-08,
     &   3.2050E-08, 2.9088E-08, 2.6268E-08, 2.3593E-08, 2.1061E-08,
     &   1.8672E-08, 1.6427E-08, 1.4325E-08, 1.2367E-08, 1.0553E-08,
     &   8.8827E-09, 8.7236E-09, 8.5659E-09, 8.4096E-09, 8.2548E-09,
     &   8.1014E-09, 7.9495E-09, 7.7990E-09, 7.6499E-09, 7.5022E-09,
     &   7.3560E-09, 7.2113E-09, 7.0680E-09, 6.9261E-09, 6.7856E-09,
     &   6.6466E-09, 6.5090E-09, 6.3729E-09, 6.2382E-09, 6.1050E-09/

         DATA ((DGT  (I,J), I= 501, 600), J=3,3) /
     &   5.9731E-09, 5.8428E-09, 5.7138E-09, 5.5863E-09, 5.4602E-09,
     &   5.3356E-09, 5.2124E-09, 5.0907E-09, 4.9704E-09, 4.8515E-09,
     &   4.7340E-09, 4.6180E-09, 4.5035E-09, 4.3904E-09, 4.2787E-09,
     &   4.1684E-09, 4.0596E-09, 3.9523E-09, 3.8463E-09, 3.7418E-09,
     &   3.6388E-09, 3.5372E-09, 3.4370E-09, 3.3383E-09, 3.2410E-09,
     &   3.1451E-09, 3.0507E-09, 2.9577E-09, 2.8662E-09, 2.7761E-09,
     &   2.6874E-09, 2.6002E-09, 2.5144E-09, 2.4300E-09, 2.3471E-09,
     &   2.2657E-09, 2.1856E-09, 2.1070E-09, 2.0299E-09, 1.9542E-09,
     &   1.8799E-09, 1.8070E-09, 1.7356E-09, 1.6657E-09, 1.5972E-09,
     &   1.5301E-09, 1.4644E-09, 1.4002E-09, 1.3375E-09, 1.2761E-09,
     &   1.2163E-09, 1.1578E-09, 1.1008E-09, 1.0452E-09, 9.9110E-10,
     &   9.3840E-10, 8.8715E-10, 8.3734E-10, 7.8896E-10, 7.4203E-10,
     &   6.9653E-10, 6.5248E-10, 6.0986E-10, 5.6868E-10, 5.2894E-10,
     &   4.9064E-10, 4.5378E-10, 4.1836E-10, 3.8438E-10, 3.5183E-10,
     &   3.2073E-10, 2.9106E-10, 2.6284E-10, 2.3605E-10, 2.1070E-10,
     &   1.8680E-10, 1.6433E-10, 1.4330E-10, 1.2371E-10, 1.0556E-10,
     &   8.8845E-11, 8.7253E-11, 8.5675E-11, 8.4112E-11, 8.2563E-11,
     &   8.1029E-11, 7.9509E-11, 7.8003E-11, 7.6512E-11, 7.5035E-11,
     &   7.3572E-11, 7.2124E-11, 7.0691E-11, 6.9271E-11, 6.7866E-11,
     &   6.6476E-11, 6.5100E-11, 6.3738E-11, 6.2391E-11, 6.1058E-11/

         DATA ((DGT  (I,J), I= 601, 700), J=3,3) /
     &   5.9739E-11, 5.8435E-11, 5.7145E-11, 5.5870E-11, 5.4609E-11,
     &   5.3362E-11, 5.2130E-11, 5.0912E-11, 4.9709E-11, 4.8520E-11,
     &   4.7345E-11, 4.6185E-11, 4.5039E-11, 4.3908E-11, 4.2791E-11,
     &   4.1688E-11, 4.0600E-11, 3.9526E-11, 3.8467E-11, 3.7422E-11,
     &   3.6391E-11, 3.5375E-11, 3.4373E-11, 3.3385E-11, 3.2412E-11,
     &   3.1453E-11, 3.0509E-11, 2.9579E-11, 2.8663E-11, 2.7762E-11,
     &   2.6876E-11, 2.6003E-11, 2.5145E-11, 2.4302E-11, 2.3472E-11,
     &   2.2658E-11, 2.1857E-11, 2.1071E-11, 2.0300E-11, 1.9542E-11,
     &   1.8800E-11, 1.8071E-11, 1.7357E-11, 1.6657E-11, 1.5972E-11,
     &   1.5301E-11, 1.4645E-11, 1.4003E-11, 1.3375E-11, 1.2762E-11,
     &   1.2163E-11, 1.1578E-11, 1.1008E-11, 1.0453E-11, 9.9112E-12,
     &   9.3842E-12, 8.8717E-12, 8.3735E-12, 7.8898E-12, 7.4204E-12,
     &   6.9654E-12, 6.5249E-12, 6.0987E-12, 5.6869E-12, 5.2895E-12,
     &   4.9065E-12, 4.5378E-12, 4.1836E-12, 3.8438E-12, 3.5183E-12,
     &   3.2073E-12, 2.9106E-12, 2.6284E-12, 2.3605E-12, 2.1070E-12,
     &   1.8680E-12, 1.6433E-12, 1.4330E-12, 1.2371E-12, 1.0556E-12,
     &   8.8845E-13, 8.7253E-13, 8.5675E-13, 8.4112E-13, 8.2563E-13,
     &   8.1029E-13, 7.9509E-13, 7.8003E-13, 7.6512E-13, 7.5035E-13,
     &   7.3572E-13, 7.2124E-13, 7.0691E-13, 6.9271E-13, 6.7866E-13,
     &   6.6476E-13, 6.5100E-13, 6.3738E-13, 6.2391E-13, 6.1058E-13/

         DATA ((DGT  (I,J), I= 701, 800), J=3,3) /
     &   5.9739E-13, 5.8435E-13, 5.7145E-13, 5.5870E-13, 5.4609E-13,
     &   5.3362E-13, 5.2130E-13, 5.0912E-13, 4.9709E-13, 4.8520E-13,
     &   4.7345E-13, 4.6185E-13, 4.5039E-13, 4.3908E-13, 4.2791E-13,
     &   4.1688E-13, 4.0600E-13, 3.9526E-13, 3.8467E-13, 3.7422E-13,
     &   3.6391E-13, 3.5375E-13, 3.4373E-13, 3.3385E-13, 3.2412E-13,
     &   3.1453E-13, 3.0509E-13, 2.9579E-13, 2.8663E-13, 2.7762E-13,
     &   2.6876E-13, 2.6003E-13, 2.5145E-13, 2.4302E-13, 2.3472E-13,
     &   2.2658E-13, 2.1857E-13, 2.1071E-13, 2.0300E-13, 1.9542E-13,
     &   1.8800E-13, 1.8071E-13, 1.7357E-13, 1.6657E-13, 1.5972E-13,
     &   1.5301E-13, 1.4645E-13, 1.4003E-13, 1.3375E-13, 1.2762E-13,
     &   1.2163E-13, 1.1578E-13, 1.1008E-13, 1.0453E-13, 9.9112E-14,
     &   9.3842E-14, 8.8717E-14, 8.3735E-14, 7.8898E-14, 7.4204E-14,
     &   6.9654E-14, 6.5249E-14, 6.0987E-14, 5.6869E-14, 5.2895E-14,
     &   4.9065E-14, 4.5378E-14, 4.1836E-14, 3.8438E-14, 3.5183E-14,
     &   3.2073E-14, 2.9106E-14, 2.6284E-14, 2.3605E-14, 2.1070E-14,
     &   1.8680E-14, 1.6433E-14, 1.4330E-14, 1.2371E-14, 1.0556E-14,
     &   8.8845E-15, 8.7253E-15, 8.5675E-15, 8.4112E-15, 8.2563E-15,
     &   8.1029E-15, 7.9509E-15, 7.8003E-15, 7.6512E-15, 7.5035E-15,
     &   7.3572E-15, 7.2124E-15, 7.0691E-15, 6.9271E-15, 6.7866E-15,
     &   6.6476E-15, 6.5100E-15, 6.3738E-15, 6.2391E-15, 6.1058E-15/

         DATA ((DGT  (I,J), I= 801, 900), J=3,3) /
     &   5.9739E-15, 5.8435E-15, 5.7145E-15, 5.5870E-15, 5.4609E-15,
     &   5.3362E-15, 5.2130E-15, 5.0912E-15, 4.9709E-15, 4.8520E-15,
     &   4.7345E-15, 4.6185E-15, 4.5039E-15, 4.3908E-15, 4.2791E-15,
     &   4.1688E-15, 4.0600E-15, 3.9526E-15, 3.8467E-15, 3.7422E-15,
     &   3.6391E-15, 3.5375E-15, 3.4373E-15, 3.3385E-15, 3.2412E-15,
     &   3.1453E-15, 3.0509E-15, 2.9579E-15, 2.8663E-15, 2.7762E-15,
     &   2.6876E-15, 2.6003E-15, 2.5145E-15, 2.4302E-15, 2.3472E-15,
     &   2.2658E-15, 2.1857E-15, 2.1071E-15, 2.0300E-15, 1.9542E-15,
     &   1.8800E-15, 1.8071E-15, 1.7357E-15, 1.6657E-15, 1.5972E-15,
     &   1.5301E-15, 1.4645E-15, 1.4003E-15, 1.3375E-15, 1.2762E-15,
     &   1.2163E-15, 1.1578E-15, 1.1008E-15, 1.0453E-15, 9.9112E-16,
     &   9.3842E-16, 8.8717E-16, 8.3735E-16, 7.8898E-16, 7.4204E-16,
     &   6.9654E-16, 6.5249E-16, 6.0987E-16, 5.6869E-16, 5.2895E-16,
     &   4.9065E-16, 4.5378E-16, 4.1836E-16, 3.8438E-16, 3.5183E-16,
     &   3.2073E-16, 2.9106E-16, 2.6284E-16, 2.3605E-16, 2.1070E-16,
     &   1.8680E-16, 1.6433E-16, 1.4330E-16, 1.2371E-16, 1.0556E-16,
     &   8.8845E-17, 0.0000E+00, 8.8845E-17, 8.0015E-10, 3.1997E-09,
     &   7.1992E-09, 1.2797E-08, 1.9999E-08, 2.8804E-08, 3.9215E-08,
     &   5.1233E-08, 6.4862E-08, 8.0104E-08, 9.6962E-08, 1.1544E-07,
     &   1.3554E-07, 1.5727E-07, 1.8064E-07, 2.0564E-07, 2.3229E-07/

         DATA ((DGT  (I,J), I= 901, 979), J=3,3) /
     &   2.6059E-07, 2.9054E-07, 3.2216E-07, 3.5545E-07, 3.9041E-07,
     &   4.2706E-07, 4.6541E-07, 5.0546E-07, 5.4722E-07, 5.9071E-07,
     &   6.3593E-07, 6.8289E-07, 7.3161E-07, 7.8210E-07, 8.3436E-07,
     &   8.8842E-07, 9.4429E-07, 1.0020E-06, 1.0615E-06, 1.1229E-06,
     &   1.1861E-06, 1.2513E-06, 1.3183E-06, 1.3873E-06, 1.4582E-06,
     &   1.5310E-06, 1.6059E-06, 1.6827E-06, 1.7616E-06, 1.8425E-06,
     &   1.9255E-06, 2.0107E-06, 2.0979E-06, 2.1873E-06, 2.2789E-06,
     &   2.3728E-06, 2.4688E-06, 2.5672E-06, 2.6679E-06, 2.7710E-06,
     &   2.8765E-06, 2.9844E-06, 3.0949E-06, 3.2079E-06, 3.3234E-06,
     &   3.4416E-06, 3.5626E-06, 3.6862E-06, 3.8128E-06, 3.9422E-06,
     &   4.0745E-06, 4.2099E-06, 4.3484E-06, 4.4901E-06, 4.6351E-06,
     &   4.7835E-06, 4.9355E-06, 5.0910E-06, 5.2502E-06, 5.4133E-06,
     &   5.5805E-06, 5.7518E-06, 5.9275E-06, 6.1077E-06, 6.2926E-06,
     &   6.4825E-06, 6.6777E-06, 6.8784E-06, 7.0849E-06, 7.2976E-06,
     &   7.5170E-06, 7.7434E-06, 7.9775E-06, 8.0573E-06, 8.2199E-06,
     &   8.27768940E-06, 8.47125227E-06, 8.49692114E-06, 8.55720122E-06/
       save
       RETURN
       END

c      ++++ dalhadthigh26 ++++

c update 03/19/26
       subroutine ralhad_spacelike1h26r
       IMPLICIT NONE
       INTEGER NC,I,J
       PARAMETER(NC=200)
       REAL XXX(NC),YGG(NC,3),Y3G(NC,3)
       COMMON /DATH26r/XXX,YGG,Y3G

       DATA  (XXX  (I), I=   1, 100) /
     &  -2.0000E+04,-1.9701E+04,-1.9407E+04,-1.9117E+04,-1.8831E+04,
     &  -1.8550E+04,-1.8273E+04,-1.8000E+04,-1.7731E+04,-1.7466E+04,
     &  -1.7205E+04,-1.6948E+04,-1.6695E+04,-1.6445E+04,-1.6199E+04,
     &  -1.5957E+04,-1.5719E+04,-1.5484E+04,-1.5253E+04,-1.5025E+04,
     &  -1.4800E+04,-1.4579E+04,-1.4361E+04,-1.4147E+04,-1.3935E+04,
     &  -1.3727E+04,-1.3522E+04,-1.3320E+04,-1.3121E+04,-1.2925E+04,
     &  -1.2732E+04,-1.2542E+04,-1.2354E+04,-1.2170E+04,-1.1988E+04,
     &  -1.1809E+04,-1.1632E+04,-1.1459E+04,-1.1287E+04,-1.1119E+04,
     &  -1.0953E+04,-1.0789E+04,-1.0628E+04,-1.0469E+04,-1.0313E+04,
     &  -1.0158E+04,-1.0007E+04,-9.8572E+03,-9.7099E+03,-9.5648E+03,
     &  -9.4219E+03,-9.2811E+03,-9.1424E+03,-9.0058E+03,-8.8713E+03,
     &  -8.7387E+03,-8.6082E+03,-8.4796E+03,-8.3529E+03,-8.2281E+03,
     &  -8.1051E+03,-7.9840E+03,-7.8647E+03,-7.7472E+03,-7.6315E+03,
     &  -7.5174E+03,-7.4051E+03,-7.2945E+03,-7.1855E+03,-7.0781E+03,
     &  -6.9724E+03,-6.8682E+03,-6.7656E+03,-6.6645E+03,-6.5649E+03,
     &  -6.4668E+03,-6.3702E+03,-6.2750E+03,-6.1813E+03,-6.0889E+03,
     &  -5.9980E+03,-5.9083E+03,-5.8201E+03,-5.7331E+03,-5.6474E+03,
     &  -5.5631E+03,-5.4799E+03,-5.3981E+03,-5.3174E+03,-5.2380E+03,
     &  -5.1597E+03,-5.0826E+03,-5.0067E+03,-4.9319E+03,-4.8582E+03,
     &  -4.7856E+03,-4.7141E+03,-4.6437E+03,-4.5743E+03,-4.5059E+03/

       DATA  (XXX  (I), I= 101, 200) /
     &  -4.4386E+03,-4.3723E+03,-4.3070E+03,-4.2426E+03,-4.1792E+03,
     &  -4.1168E+03,-4.0553E+03,-3.9947E+03,-3.9350E+03,-3.8762E+03,
     &  -3.8183E+03,-3.7612E+03,-3.7050E+03,-3.6497E+03,-3.5951E+03,
     &  -3.5414E+03,-3.4885E+03,-3.4364E+03,-3.3850E+03,-3.3345E+03,
     &  -3.2847E+03,-3.2356E+03,-3.1872E+03,-3.1396E+03,-3.0927E+03,
     &  -3.0465E+03,-3.0010E+03,-2.9561E+03,-2.9120E+03,-2.8685E+03,
     &  -2.8256E+03,-2.7834E+03,-2.7418E+03,-2.7008E+03,-2.6605E+03,
     &  -2.6207E+03,-2.5816E+03,-2.5430E+03,-2.5050E+03,-2.4676E+03,
     &  -2.4307E+03,-2.3944E+03,-2.3586E+03,-2.3234E+03,-2.2887E+03,
     &  -2.2545E+03,-2.2208E+03,-2.1876E+03,-2.1549E+03,-2.1227E+03,
     &  -2.0910E+03,-2.0598E+03,-2.0290E+03,-1.9987E+03,-1.9688E+03,
     &  -1.9394E+03,-1.9104E+03,-1.8819E+03,-1.8538E+03,-1.8261E+03,
     &  -1.7988E+03,-1.7719E+03,-1.7454E+03,-1.7193E+03,-1.6937E+03,
     &  -1.6683E+03,-1.6434E+03,-1.6189E+03,-1.5947E+03,-1.5709E+03,
     &  -1.5474E+03,-1.5243E+03,-1.5015E+03,-1.4791E+03,-1.4570E+03,
     &  -1.4352E+03,-1.4137E+03,-1.3926E+03,-1.3718E+03,-1.3513E+03,
     &  -1.3311E+03,-1.3112E+03,-1.2916E+03,-1.2723E+03,-1.2533E+03,
     &  -1.2346E+03,-1.2162E+03,-1.1980E+03,-1.1801E+03,-1.1625E+03,
     &  -1.1451E+03,-1.1280E+03,-1.1111E+03,-1.0945E+03,-1.0782E+03,
     &  -1.0621E+03,-1.0462E+03,-1.0306E+03,-1.0152E+03,-1.0000E+03/


         DATA ((YGG  (I,J), I=   1, 100), J=1,1) /
     &   5.7174E-02, 5.7088E-02, 5.7001E-02, 5.6915E-02, 5.6828E-02,
     &   5.6742E-02, 5.6656E-02, 5.6569E-02, 5.6483E-02, 5.6397E-02,
     &   5.6310E-02, 5.6224E-02, 5.6138E-02, 5.6052E-02, 5.5965E-02,
     &   5.5879E-02, 5.5793E-02, 5.5707E-02, 5.5621E-02, 5.5535E-02,
     &   5.5449E-02, 5.5363E-02, 5.5277E-02, 5.5191E-02, 5.5105E-02,
     &   5.5019E-02, 5.4933E-02, 5.4848E-02, 5.4762E-02, 5.4676E-02,
     &   5.4591E-02, 5.4505E-02, 5.4419E-02, 5.4334E-02, 5.4248E-02,
     &   5.4163E-02, 5.4077E-02, 5.3992E-02, 5.3907E-02, 5.3821E-02,
     &   5.3736E-02, 5.3651E-02, 5.3566E-02, 5.3481E-02, 5.3396E-02,
     &   5.3311E-02, 5.3226E-02, 5.3141E-02, 5.3056E-02, 5.2971E-02,
     &   5.2886E-02, 5.2802E-02, 5.2717E-02, 5.2632E-02, 5.2548E-02,
     &   5.2463E-02, 5.2379E-02, 5.2295E-02, 5.2210E-02, 5.2126E-02,
     &   5.2042E-02, 5.1958E-02, 5.1874E-02, 5.1790E-02, 5.1706E-02,
     &   5.1622E-02, 5.1539E-02, 5.1455E-02, 5.1371E-02, 5.1288E-02,
     &   5.1205E-02, 5.1121E-02, 5.1038E-02, 5.0955E-02, 5.0872E-02,
     &   5.0789E-02, 5.0706E-02, 5.0623E-02, 5.0540E-02, 5.0457E-02,
     &   5.0375E-02, 5.0292E-02, 5.0210E-02, 5.0127E-02, 5.0045E-02,
     &   4.9963E-02, 4.9881E-02, 4.9799E-02, 4.9717E-02, 4.9635E-02,
     &   4.9554E-02, 4.9472E-02, 4.9391E-02, 4.9309E-02, 4.9228E-02,
     &   4.9147E-02, 4.9066E-02, 4.8985E-02, 4.8904E-02, 4.8823E-02/

         DATA ((YGG  (I,J), I= 101, 200), J=1,1) /
     &   4.8742E-02, 4.8662E-02, 4.8581E-02, 4.8501E-02, 4.8421E-02,
     &   4.8341E-02, 4.8261E-02, 4.8181E-02, 4.8101E-02, 4.8021E-02,
     &   4.7942E-02, 4.7862E-02, 4.7783E-02, 4.7703E-02, 4.7624E-02,
     &   4.7545E-02, 4.7466E-02, 4.7387E-02, 4.7309E-02, 4.7230E-02,
     &   4.7152E-02, 4.7073E-02, 4.6995E-02, 4.6917E-02, 4.6839E-02,
     &   4.6761E-02, 4.6683E-02, 4.6605E-02, 4.6528E-02, 4.6450E-02,
     &   4.6373E-02, 4.6295E-02, 4.6218E-02, 4.6141E-02, 4.6064E-02,
     &   4.5987E-02, 4.5910E-02, 4.5833E-02, 4.5757E-02, 4.5680E-02,
     &   4.5604E-02, 4.5527E-02, 4.5451E-02, 4.5375E-02, 4.5299E-02,
     &   4.5223E-02, 4.5147E-02, 4.5071E-02, 4.4995E-02, 4.4919E-02,
     &   4.4843E-02, 4.4768E-02, 4.4692E-02, 4.4617E-02, 4.4541E-02,
     &   4.4466E-02, 4.4390E-02, 4.4315E-02, 4.4240E-02, 4.4164E-02,
     &   4.4089E-02, 4.4014E-02, 4.3939E-02, 4.3863E-02, 4.3788E-02,
     &   4.3713E-02, 4.3638E-02, 4.3563E-02, 4.3488E-02, 4.3413E-02,
     &   4.3337E-02, 4.3262E-02, 4.3187E-02, 4.3112E-02, 4.3037E-02,
     &   4.2962E-02, 4.2886E-02, 4.2811E-02, 4.2736E-02, 4.2660E-02,
     &   4.2585E-02, 4.2509E-02, 4.2434E-02, 4.2358E-02, 4.2283E-02,
     &   4.2207E-02, 4.2131E-02, 4.2055E-02, 4.1979E-02, 4.1903E-02,
     &   4.1827E-02, 4.1751E-02, 4.1675E-02, 4.1598E-02, 4.1522E-02,
     &   4.1445E-02, 4.1369E-02, 4.1292E-02, 4.1215E-02, 4.1138E-02/


         DATA ((YGG  (I,J), I=   1, 100), J=2,2) /
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05/

         DATA ((YGG  (I,J), I= 101, 200), J=2,2) /
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05, 5.2965E-05,
     &   5.2965E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05,
     &   5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05, 5.2964E-05/


         DATA ((YGG  (I,J), I=   1, 100), J=3,3) /
     &   1.3977E-04, 1.3977E-04, 1.3977E-04, 1.3977E-04, 1.3977E-04,
     &   1.3977E-04, 1.3977E-04, 1.3977E-04, 1.3977E-04, 1.3977E-04,
     &   1.3976E-04, 1.3976E-04, 1.3976E-04, 1.3976E-04, 1.3976E-04,
     &   1.3976E-04, 1.3976E-04, 1.3976E-04, 1.3976E-04, 1.3976E-04,
     &   1.3976E-04, 1.3976E-04, 1.3976E-04, 1.3976E-04, 1.3976E-04,
     &   1.3976E-04, 1.3976E-04, 1.3976E-04, 1.3976E-04, 1.3976E-04,
     &   1.3976E-04, 1.3976E-04, 1.3976E-04, 1.3976E-04, 1.3976E-04,
     &   1.3976E-04, 1.3976E-04, 1.3975E-04, 1.3975E-04, 1.3975E-04,
     &   1.3975E-04, 1.3975E-04, 1.3975E-04, 1.3975E-04, 1.3975E-04,
     &   1.3975E-04, 1.3975E-04, 1.3975E-04, 1.3975E-04, 1.3975E-04,
     &   1.3975E-04, 1.3975E-04, 1.3975E-04, 1.3975E-04, 1.3975E-04,
     &   1.3975E-04, 1.3975E-04, 1.3975E-04, 1.3975E-04, 1.3975E-04,
     &   1.3975E-04, 1.3975E-04, 1.3975E-04, 1.3974E-04, 1.3974E-04,
     &   1.3974E-04, 1.3974E-04, 1.3974E-04, 1.3974E-04, 1.3974E-04,
     &   1.3974E-04, 1.3974E-04, 1.3974E-04, 1.3974E-04, 1.3974E-04,
     &   1.3974E-04, 1.3974E-04, 1.3974E-04, 1.3974E-04, 1.3974E-04,
     &   1.3974E-04, 1.3974E-04, 1.3974E-04, 1.3974E-04, 1.3974E-04,
     &   1.3974E-04, 1.3974E-04, 1.3974E-04, 1.3974E-04, 1.3973E-04,
     &   1.3973E-04, 1.3973E-04, 1.3973E-04, 1.3973E-04, 1.3973E-04,
     &   1.3973E-04, 1.3973E-04, 1.3973E-04, 1.3973E-04, 1.3973E-04/

         DATA ((YGG  (I,J), I= 101, 200), J=3,3) /
     &   1.3973E-04, 1.3973E-04, 1.3973E-04, 1.3973E-04, 1.3973E-04,
     &   1.3973E-04, 1.3973E-04, 1.3973E-04, 1.3973E-04, 1.3973E-04,
     &   1.3973E-04, 1.3973E-04, 1.3973E-04, 1.3973E-04, 1.3972E-04,
     &   1.3972E-04, 1.3972E-04, 1.3972E-04, 1.3972E-04, 1.3972E-04,
     &   1.3972E-04, 1.3972E-04, 1.3972E-04, 1.3972E-04, 1.3972E-04,
     &   1.3972E-04, 1.3972E-04, 1.3972E-04, 1.3972E-04, 1.3972E-04,
     &   1.3972E-04, 1.3972E-04, 1.3972E-04, 1.3972E-04, 1.3972E-04,
     &   1.3972E-04, 1.3972E-04, 1.3972E-04, 1.3972E-04, 1.3971E-04,
     &   1.3971E-04, 1.3971E-04, 1.3971E-04, 1.3971E-04, 1.3971E-04,
     &   1.3971E-04, 1.3971E-04, 1.3971E-04, 1.3971E-04, 1.3971E-04,
     &   1.3971E-04, 1.3971E-04, 1.3971E-04, 1.3971E-04, 1.3971E-04,
     &   1.3971E-04, 1.3971E-04, 1.3971E-04, 1.3971E-04, 1.3971E-04,
     &   1.3971E-04, 1.3971E-04, 1.3971E-04, 1.3970E-04, 1.3970E-04,
     &   1.3970E-04, 1.3970E-04, 1.3970E-04, 1.3970E-04, 1.3970E-04,
     &   1.3970E-04, 1.3970E-04, 1.3970E-04, 1.3970E-04, 1.3970E-04,
     &   1.3970E-04, 1.3970E-04, 1.3970E-04, 1.3970E-04, 1.3970E-04,
     &   1.3970E-04, 1.3970E-04, 1.3970E-04, 1.3970E-04, 1.3970E-04,
     &   1.3969E-04, 1.3969E-04, 1.3969E-04, 1.3969E-04, 1.3969E-04,
     &   1.3969E-04, 1.3969E-04, 1.3969E-04, 1.3969E-04, 1.3969E-04,
     &   1.3969E-04, 1.3969E-04, 1.3969E-04, 1.3969E-04, 1.3969E-04/

c      ++++ deghadthigh26 ++++

         DATA ((Y3G  (I,J), I=   1, 100), J=1,1) /
     &   1.1691E-01, 1.1673E-01, 1.1655E-01, 1.1637E-01, 1.1619E-01,
     &   1.1602E-01, 1.1584E-01, 1.1566E-01, 1.1548E-01, 1.1530E-01,
     &   1.1513E-01, 1.1495E-01, 1.1477E-01, 1.1459E-01, 1.1442E-01,
     &   1.1424E-01, 1.1406E-01, 1.1388E-01, 1.1371E-01, 1.1353E-01,
     &   1.1335E-01, 1.1317E-01, 1.1300E-01, 1.1282E-01, 1.1264E-01,
     &   1.1247E-01, 1.1229E-01, 1.1211E-01, 1.1193E-01, 1.1176E-01,
     &   1.1158E-01, 1.1140E-01, 1.1123E-01, 1.1105E-01, 1.1088E-01,
     &   1.1070E-01, 1.1052E-01, 1.1035E-01, 1.1017E-01, 1.1000E-01,
     &   1.0982E-01, 1.0964E-01, 1.0947E-01, 1.0929E-01, 1.0912E-01,
     &   1.0894E-01, 1.0877E-01, 1.0859E-01, 1.0842E-01, 1.0824E-01,
     &   1.0807E-01, 1.0789E-01, 1.0772E-01, 1.0754E-01, 1.0737E-01,
     &   1.0720E-01, 1.0702E-01, 1.0685E-01, 1.0667E-01, 1.0650E-01,
     &   1.0633E-01, 1.0615E-01, 1.0598E-01, 1.0581E-01, 1.0564E-01,
     &   1.0546E-01, 1.0529E-01, 1.0512E-01, 1.0495E-01, 1.0477E-01,
     &   1.0460E-01, 1.0443E-01, 1.0426E-01, 1.0409E-01, 1.0391E-01,
     &   1.0374E-01, 1.0357E-01, 1.0340E-01, 1.0323E-01, 1.0306E-01,
     &   1.0289E-01, 1.0272E-01, 1.0255E-01, 1.0238E-01, 1.0221E-01,
     &   1.0204E-01, 1.0187E-01, 1.0170E-01, 1.0153E-01, 1.0137E-01,
     &   1.0120E-01, 1.0103E-01, 1.0086E-01, 1.0069E-01, 1.0053E-01,
     &   1.0036E-01, 1.0019E-01, 1.0002E-01, 9.9858E-02, 9.9692E-02/

         DATA ((Y3G  (I,J), I= 101, 200), J=1,1) /
     &   9.9525E-02, 9.9359E-02, 9.9193E-02, 9.9028E-02, 9.8862E-02,
     &   9.8697E-02, 9.8532E-02, 9.8367E-02, 9.8203E-02, 9.8038E-02,
     &   9.7874E-02, 9.7711E-02, 9.7547E-02, 9.7384E-02, 9.7220E-02,
     &   9.7057E-02, 9.6895E-02, 9.6732E-02, 9.6570E-02, 9.6408E-02,
     &   9.6246E-02, 9.6085E-02, 9.5923E-02, 9.5762E-02, 9.5601E-02,
     &   9.5440E-02, 9.5280E-02, 9.5120E-02, 9.4960E-02, 9.4800E-02,
     &   9.4640E-02, 9.4481E-02, 9.4322E-02, 9.4163E-02, 9.4004E-02,
     &   9.3845E-02, 9.3687E-02, 9.3529E-02, 9.3371E-02, 9.3213E-02,
     &   9.3055E-02, 9.2898E-02, 9.2740E-02, 9.2583E-02, 9.2426E-02,
     &   9.2270E-02, 9.2113E-02, 9.1956E-02, 9.1800E-02, 9.1644E-02,
     &   9.1488E-02, 9.1332E-02, 9.1176E-02, 9.1020E-02, 9.0865E-02,
     &   9.0709E-02, 9.0554E-02, 9.0398E-02, 9.0243E-02, 9.0088E-02,
     &   8.9933E-02, 8.9778E-02, 8.9623E-02, 8.9468E-02, 8.9313E-02,
     &   8.9158E-02, 8.9003E-02, 8.8848E-02, 8.8693E-02, 8.8538E-02,
     &   8.8383E-02, 8.8228E-02, 8.8073E-02, 8.7918E-02, 8.7763E-02,
     &   8.7608E-02, 8.7453E-02, 8.7298E-02, 8.7143E-02, 8.6987E-02,
     &   8.6832E-02, 8.6676E-02, 8.6521E-02, 8.6365E-02, 8.6209E-02,
     &   8.6053E-02, 8.5897E-02, 8.5740E-02, 8.5584E-02, 8.5427E-02,
     &   8.5270E-02, 8.5113E-02, 8.4956E-02, 8.4798E-02, 8.4641E-02,
     &   8.4483E-02, 8.4325E-02, 8.4167E-02, 8.4008E-02, 8.3849E-02/


         DATA ((Y3G  (I,J), I=   1, 100), J=2,2) /
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05/

         DATA ((Y3G  (I,J), I= 101, 200), J=2,2) /
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05, 8.8102E-05,
     &   8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05,
     &   8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05,
     &   8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05,
     &   8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05,
     &   8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05,
     &   8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05,
     &   8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05,
     &   8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05,
     &   8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8101E-05,
     &   8.8101E-05, 8.8101E-05, 8.8101E-05, 8.8100E-05, 8.8100E-05/


         DATA ((Y3G  (I,J), I=   1, 100), J=3,3) /
     &   2.3084E-04, 2.3084E-04, 2.3084E-04, 2.3084E-04, 2.3084E-04,
     &   2.3084E-04, 2.3084E-04, 2.3083E-04, 2.3083E-04, 2.3083E-04,
     &   2.3083E-04, 2.3083E-04, 2.3083E-04, 2.3083E-04, 2.3083E-04,
     &   2.3083E-04, 2.3082E-04, 2.3082E-04, 2.3082E-04, 2.3082E-04,
     &   2.3082E-04, 2.3082E-04, 2.3082E-04, 2.3082E-04, 2.3082E-04,
     &   2.3082E-04, 2.3081E-04, 2.3081E-04, 2.3081E-04, 2.3081E-04,
     &   2.3081E-04, 2.3081E-04, 2.3081E-04, 2.3081E-04, 2.3081E-04,
     &   2.3081E-04, 2.3080E-04, 2.3080E-04, 2.3080E-04, 2.3080E-04,
     &   2.3080E-04, 2.3080E-04, 2.3080E-04, 2.3080E-04, 2.3080E-04,
     &   2.3079E-04, 2.3079E-04, 2.3079E-04, 2.3079E-04, 2.3079E-04,
     &   2.3079E-04, 2.3079E-04, 2.3079E-04, 2.3079E-04, 2.3079E-04,
     &   2.3078E-04, 2.3078E-04, 2.3078E-04, 2.3078E-04, 2.3078E-04,
     &   2.3078E-04, 2.3078E-04, 2.3078E-04, 2.3078E-04, 2.3077E-04,
     &   2.3077E-04, 2.3077E-04, 2.3077E-04, 2.3077E-04, 2.3077E-04,
     &   2.3077E-04, 2.3077E-04, 2.3077E-04, 2.3076E-04, 2.3076E-04,
     &   2.3076E-04, 2.3076E-04, 2.3076E-04, 2.3076E-04, 2.3076E-04,
     &   2.3076E-04, 2.3076E-04, 2.3076E-04, 2.3075E-04, 2.3075E-04,
     &   2.3075E-04, 2.3075E-04, 2.3075E-04, 2.3075E-04, 2.3075E-04,
     &   2.3075E-04, 2.3075E-04, 2.3074E-04, 2.3074E-04, 2.3074E-04,
     &   2.3074E-04, 2.3074E-04, 2.3074E-04, 2.3074E-04, 2.3074E-04/

         DATA ((Y3G  (I,J), I= 101, 200), J=3,3) /
     &   2.3074E-04, 2.3073E-04, 2.3073E-04, 2.3073E-04, 2.3073E-04,
     &   2.3073E-04, 2.3073E-04, 2.3073E-04, 2.3073E-04, 2.3073E-04,
     &   2.3072E-04, 2.3072E-04, 2.3072E-04, 2.3072E-04, 2.3072E-04,
     &   2.3072E-04, 2.3072E-04, 2.3072E-04, 2.3072E-04, 2.3071E-04,
     &   2.3071E-04, 2.3071E-04, 2.3071E-04, 2.3071E-04, 2.3071E-04,
     &   2.3071E-04, 2.3071E-04, 2.3071E-04, 2.3070E-04, 2.3070E-04,
     &   2.3070E-04, 2.3070E-04, 2.3070E-04, 2.3070E-04, 2.3070E-04,
     &   2.3070E-04, 2.3070E-04, 2.3069E-04, 2.3069E-04, 2.3069E-04,
     &   2.3069E-04, 2.3069E-04, 2.3069E-04, 2.3069E-04, 2.3069E-04,
     &   2.3068E-04, 2.3068E-04, 2.3068E-04, 2.3068E-04, 2.3068E-04,
     &   2.3068E-04, 2.3068E-04, 2.3068E-04, 2.3068E-04, 2.3067E-04,
     &   2.3067E-04, 2.3067E-04, 2.3067E-04, 2.3067E-04, 2.3067E-04,
     &   2.3067E-04, 2.3067E-04, 2.3066E-04, 2.3066E-04, 2.3066E-04,
     &   2.3066E-04, 2.3066E-04, 2.3066E-04, 2.3066E-04, 2.3066E-04,
     &   2.3066E-04, 2.3065E-04, 2.3065E-04, 2.3065E-04, 2.3065E-04,
     &   2.3065E-04, 2.3065E-04, 2.3065E-04, 2.3064E-04, 2.3064E-04,
     &   2.3064E-04, 2.3064E-04, 2.3064E-04, 2.3064E-04, 2.3064E-04,
     &   2.3064E-04, 2.3063E-04, 2.3063E-04, 2.3063E-04, 2.3063E-04,
     &   2.3063E-04, 2.3063E-04, 2.3063E-04, 2.3062E-04, 2.3062E-04,
     &   2.3062E-04, 2.3062E-04, 2.3062E-04, 2.3062E-04, 2.3062E-04/

       save
       RETURN
       END

c      ++++ cdalhadslow26 ++++

c update 01/26/26
       subroutine calhad_timelike26c
       IMPLICIT NONE
       INTEGER NB,I,J
       PARAMETER(NB=2193)
       REAL ESA(NB)
       COMPLEX *8 CAS(NB,3),CGS(NB,3)
       COMMON /DATS26c/ESA,CAS,CGS


       DATA  (ESA  (I), I=   1, 100) /
     &   0.27914036D0, 0.28500000D0,
     &   0.29100000D0, 0.29700000D0,
     &   0.30300000D0, 0.30900000D0,
     &   0.31500000D0, 0.32600000D0,
     &   0.33100000D0, 0.33600000D0,
     &   0.34100000D0, 0.34600000D0,
     &   0.35200000D0, 0.35600000D0,
     &   0.36100000D0, 0.36600000D0,
     &   0.37100000D0, 0.37600000D0,
     &   0.38000000D0, 0.38500000D0,
     &   0.38900000D0, 0.39400000D0,
     &   0.39800000D0, 0.40300000D0,
     &   0.40700000D0, 0.41100000D0,
     &   0.41600000D0, 0.41871100D0,
     &   0.42000000D0, 0.42400000D0,
     &   0.42800000D0, 0.43200000D0,
     &   0.43600000D0, 0.44000000D0,
     &   0.44400000D0, 0.44800000D0,
     &   0.45200000D0, 0.45600000D0,
     &   0.46000000D0, 0.46400000D0,
     &   0.46700000D0, 0.47100000D0,
     &   0.47500000D0, 0.47800000D0,
     &   0.48200000D0, 0.48600000D0,
     &   0.48900000D0, 0.49300000D0,
     &   0.49600000D0, 0.50000000D0,
     &   0.52000000D0, 0.54000000D0,
     &   0.56600000D0, 0.58800000D0,
     &   0.60000000D0, 0.60200000D0,
     &   0.60800000D0, 0.61600000D0,
     &   0.62400000D0, 0.63200000D0,
     &   0.64000000D0, 0.64300000D0,
     &   0.64800000D0, 0.65600000D0,
     &   0.66300000D0, 0.67100000D0,
     &   0.67800000D0, 0.68600000D0,
     &   0.68800000D0, 0.69300000D0,
     &   0.69600000D0, 0.70000000D0,
     &   0.70700000D0, 0.71400000D0,
     &   0.72100000D0, 0.72800000D0,
     &   0.73500000D0, 0.74200000D0,
     &   0.74800000D0, 0.75000000D0,
     &   0.75500000D0, 0.75744000D0,
     &   0.76007300D0, 0.76207300D0,
     &   0.76507300D0,
     &      0.76851700D0,
     &   0.77060500D0, 0.77205400D0,
     &   0.77314300D0, 0.77400300D0,
     &   0.77470900D0, 0.77530500D0,
     &   0.77582000D0, 0.77627100D0,
     &   0.77667300D0, 0.77726600D0,
     &   0.77746600D0, 0.77766900D0,
     &   0.77795100D0, 0.77821500D0/
       DATA  (ESA  (I), I= 101, 200) /
     &   0.77846300D0, 0.77869800D0,
     &   0.77892200D0, 0.77913700D0,
     &   0.77934400D0, 0.77954500D0,
     &   0.77974200D0, 0.77993500D0,
     &   0.78012700D0, 0.78031800D0,
     &   0.78051000D0, 0.78070600D0,
     &   0.78090800D0, 0.78112100D0,
     &   0.78135100D0, 0.78161200D0,
     &   0.78193600D0, 0.78268000D0,
     &   0.78341500D0, 0.78373400D0,
     &   0.78399100D0, 0.78421700D0,
     &   0.78442600D0, 0.78462500D0,
     &   0.78481700D0, 0.78500500D0,
     &   0.78519100D0, 0.78537800D0,
     &   0.78556600D0, 0.78575600D0,
     &   0.78595100D0, 0.78615100D0,
     &   0.78635800D0, 0.78657300D0,
     &   0.78679800D0, 0.78703400D0,
     &   0.78728400D0, 0.78755000D0,
     &   0.78773500D0, 0.78793500D0,
     &   0.78814300D0, 0.78847900D0,
     &   0.78884800D0, 0.78925800D0,
     &   0.78971900D0, 0.79024600D0,
     &   0.79085900D0, 0.79158800D0,
     &   0.79248000D0, 0.79361500D0,
     &   0.79513900D0, 0.79736300D0,
     &   0.79800000D0, 0.80000000D0,
     &   0.80200000D0, 0.80400000D0,
     &   0.80600000D0, 0.80800000D0,
     &   0.81200000D0, 0.81400000D0,
     &   0.81600000D0, 0.82000000D0,
     &   0.82200000D0, 0.82400000D0,
     &   0.82600000D0, 0.82800000D0,
     &   0.83000000D0, 0.83100000D0,
     &   0.83700000D0, 0.84300000D0,
     &   0.84900000D0, 0.85400000D0,
     &   0.86000000D0, 0.86600000D0,
     &   0.87200000D0, 0.87700000D0,
     &   0.88300000D0, 0.88900000D0,
     &   0.89400000D0, 0.89700000D0,
     &   0.90250000D0, 0.90500000D0,
     &   0.91100000D0, 0.91600000D0,
     &   0.92200000D0, 0.92700000D0,
     &   0.93300000D0, 0.93800000D0,
     &   0.94300000D0, 0.94900000D0,
     &   0.95200000D0, 0.95400000D0,
     &   0.95800000D0, 0.96000000D0,
     &   0.96200000D0, 0.96400000D0,
     &   0.96600000D0, 0.96800000D0,
     &   0.97000000D0, 0.97400000D0/
       DATA  (ESA  (I), I= 201, 300) /
     &   0.97800000D0, 0.98000000D0,
     &   0.98070000D0, 0.98140000D0,
     &   0.98210000D0, 0.98280000D0,
     &   0.98350000D0, 0.98420000D0,
     &   0.98490000D0, 0.98560000D0,
     &   0.98630000D0, 0.98700000D0,
     &   0.98770000D0, 0.98840000D0,
     &   0.98910000D0, 0.98980000D0,
     &   0.99050000D0, 0.99120000D0,
     &   0.99190000D0, 0.99260000D0,
     &   0.99330000D0, 0.99400000D0,
     &   0.99470000D0, 0.99540000D0,
     &   0.99610000D0, 0.99680000D0,
     &   0.99750000D0, 0.99820000D0,
     &   0.99890000D0, 0.99960000D0,
     &   0.99990000D0, 1.00001000D0,
     &   1.00030000D0, 1.00100000D0,
     &   1.00170000D0, 1.00240000D0,
     &   1.00310000D0, 1.00380000D0,
     &   1.00450000D0, 1.00520000D0,
     &   1.00590000D0, 1.00660000D0,
     &   1.00730000D0, 1.00800000D0,
     &   1.00870000D0, 1.00940000D0,
     &   1.01010000D0, 1.01080000D0,
     &   1.01150000D0, 1.01220000D0,
     &   1.01290000D0, 1.01360000D0,
     &   1.01430000D0, 1.01500000D0,
     &   1.01520000D0, 1.01540000D0,
     &   1.01560000D0, 1.01580000D0,
     &   1.01600000D0, 1.01620000D0,
     &   1.01640000D0, 1.01660000D0,
     &   1.01680000D0, 1.01700000D0,
     &   1.01720000D0, 1.01740000D0,
     &   1.01770000D0, 1.01790000D0,
     &   1.01800000D0, 1.01820000D0,
     &   1.01840000D0, 1.01860000D0,
     &   1.01880000D0, 1.01900000D0,
     &   1.01920000D0, 1.01940000D0,
     &   1.01960000D0, 1.01980000D0,
     &   1.02000000D0, 1.02020000D0,
     &   1.02040000D0, 1.02060000D0,
     &   1.02080000D0, 1.02100000D0,
     &   1.02120000D0, 1.02140000D0,
     &   1.02160000D0, 1.02180000D0,
     &   1.02200000D0, 1.02220000D0,
     &   1.02240000D0, 1.02270000D0,
     &   1.02290000D0, 1.02300000D0,
     &   1.02320000D0, 1.02340000D0,
     &   1.02360000D0, 1.02380000D0,
     &   1.02400000D0, 1.02420000D0/
       DATA  (ESA  (I), I= 301, 400) /
     &   1.02440000D0, 1.02460000D0,
     &   1.02480000D0, 1.02500000D0,
     &   1.02570000D0, 1.02640000D0,
     &   1.02710000D0, 1.02780000D0,
     &   1.02850000D0, 1.02920000D0,
     &   1.02990000D0, 1.03060000D0,
     &   1.03130000D0, 1.03200000D0,
     &   1.03270000D0, 1.03340000D0,
     &   1.03410000D0, 1.03480000D0,
     &   1.03550000D0, 1.03620000D0,
     &   1.03690000D0, 1.03760000D0,
     &   1.03830000D0, 1.03900000D0,
     &   1.03970000D0, 1.03999000D0,
     &   1.04001000D0, 1.04040000D0,
     &   1.04110000D0, 1.04180000D0,
     &   1.04250000D0, 1.04320000D0,
     &   1.04390000D0, 1.04460000D0,
     &   1.04530000D0, 1.04600000D0,
     &   1.04670000D0, 1.04740000D0,
     &   1.04810000D0, 1.04880000D0,
     &   1.04950000D0, 1.05020000D0,
     &   1.05090000D0, 1.05160000D0,
     &   1.05230000D0, 1.05300000D0,
     &   1.05370000D0, 1.05440000D0,
     &   1.05510000D0, 1.05580000D0,
     &   1.05650000D0, 1.05720000D0,
     &   1.05790000D0, 1.05860000D0,
     &   1.05930000D0, 1.06000000D0,
     &   1.06200000D0, 1.06700000D0,
     &   1.07700000D0, 1.08700000D0,
     &   1.09700000D0, 1.10700000D0,
     &   1.11700000D0, 1.12700000D0,
     &   1.13700000D0, 1.13800000D0,
     &   1.15200000D0, 1.16300000D0,
     &   1.16700000D0, 1.17700000D0,
     &   1.18700000D0, 1.18800000D0,
     &   1.19700000D0, 1.20700000D0,
     &   1.21200000D0, 1.21700000D0,
     &   1.22700000D0, 1.23700000D0,
     &   1.24700000D0, 1.25700000D0,
     &   1.26300000D0, 1.26700000D0,
     &   1.27700000D0, 1.28700000D0,
     &   1.28800000D0, 1.29700000D0,
     &   1.30700000D0, 1.31200000D0,
     &   1.31700000D0, 1.32700000D0,
     &   1.33700000D0, 1.34700000D0,
     &   1.35000000D0, 1.35700000D0,
     &   1.36200000D0, 1.36700000D0,
     &   1.37700000D0, 1.38700000D0,
     &   1.38800000D0, 1.39500000D0/
       DATA  (ESA  (I), I= 401, 500) /
     &   1.41000000D0, 1.41900000D0,
     &   1.42700000D0, 1.43500000D0,
     &   1.43800000D0, 1.45200000D0,
     &   1.45700000D0, 1.46000000D0,
     &   1.46400000D0, 1.47200000D0,
     &   1.48100000D0, 1.49000000D0,
     &   1.49100000D0, 1.50000000D0,
     &   1.50100000D0, 1.50600000D0,
     &   1.51000000D0, 1.52300000D0,
     &   1.52500000D0, 1.53800000D0,
     &   1.53900000D0, 1.54000000D0,
     &   1.55000000D0, 1.56000000D0,
     &   1.56200000D0, 1.57400000D0,
     &   1.57500000D0, 1.58000000D0,
     &   1.58100000D0, 1.58700000D0,
     &   1.59000000D0, 1.59900000D0,
     &   1.60000000D0, 1.61000000D0,
     &   1.61900000D0, 1.62400000D0,
     &   1.62500000D0, 1.63800000D0,
     &   1.64000000D0, 1.65000000D0,
     &   1.65700000D0, 1.66000000D0,
     &   1.66200000D0, 1.66300000D0,
     &   1.67300000D0, 1.67500000D0,
     &   1.68100000D0, 1.68700000D0,
     &   1.69000000D0, 1.70000000D0,
     &   1.71000000D0, 1.71200000D0,
     &   1.71300000D0, 1.71900000D0,
     &   1.72200000D0, 1.72500000D0,
     &   1.73800000D0, 1.74000000D0,
     &   1.74600000D0, 1.75000000D0,
     &   1.75600000D0, 1.75700000D0,
     &   1.76000000D0, 1.76200000D0,
     &   1.76400000D0, 1.76900000D0,
     &   1.77500000D0, 1.78100000D0,
     &   1.79000000D0, 1.79900000D0,
     &   1.80000000D0, 1.81200000D0,
     &   1.81900000D0, 1.82500000D0,
     &   1.82600000D0, 1.83400000D0,
     &   1.83500000D0, 1.83800000D0,
     &   1.84500000D0, 1.85700000D0,
     &   1.85900000D0, 1.87400000D0,
     &   1.88100000D0, 1.88600000D0,
     &   1.90000000D0, 1.91900000D0,
     &   1.92500000D0, 1.93000000D0,
     &   1.93800000D0, 1.94000000D0,
     &   1.94500000D0, 1.94600000D0,
     &   1.95000000D0, 1.95500000D0,
     &   1.96000000D0, 1.96200000D0,
     &   1.98100000D0, 1.99050000D0,
     &   2.00500000D0, 2.05000000D0/
       DATA  (ESA  (I), I= 501, 600) /
     &   2.10000000D0, 2.15010000D0,
     &   2.22000000D0, 2.23240000D0,
     &   2.26000000D0, 2.30000000D0,
     &   2.40000000D0, 2.45000000D0,
     &   2.50000000D0, 2.55000000D0,
     &   2.60000000D0, 2.65000000D0,
     &   2.70000000D0, 2.75000000D0,
     &   2.80000000D0, 2.85000000D0,
     &   2.90000000D0, 2.91000000D0,
     &   2.92000000D0, 2.93000000D0,
     &   2.94000000D0, 2.95000000D0,
     &   2.96000000D0, 2.97000000D0,
     &   2.97200000D0, 2.97400000D0,
     &   2.97600000D0, 2.97800000D0,
     &   2.98000000D0, 2.98200000D0,
     &   2.98400000D0, 2.98600000D0,
     &   2.98800000D0, 2.99000000D0,
     &   2.99900000D0, 3.00500000D0,
     &   3.00800000D0, 3.01000000D0,
     &   3.01200000D0, 3.01400000D0,
     &   3.01600000D0, 3.01800000D0,
     &   3.02000000D0, 3.02100000D0,
     &   3.02200000D0, 3.02300000D0,
     &   3.02400000D0, 3.02500000D0,
     &   3.02600000D0, 3.02700000D0,
     &   3.02800000D0, 3.02900000D0,
     &   3.03000000D0, 3.03100000D0,
     &   3.03200000D0, 3.03300000D0,
     &   3.03400000D0, 3.03500000D0,
     &   3.03600000D0, 3.03700000D0,
     &   3.03800000D0, 3.03900000D0,
     &   3.04000000D0, 3.04100000D0,
     &   3.04200000D0, 3.04300000D0,
     &   3.04400000D0, 3.04500000D0,
     &   3.04600000D0, 3.04700000D0,
     &   3.04800000D0, 3.04900000D0,
     &   3.05000000D0, 3.05100000D0,
     &   3.05200000D0, 3.05300000D0,
     &   3.05400000D0, 3.05500000D0,
     &   3.05600000D0, 3.05700000D0,
     &   3.05800000D0, 3.05900000D0,
     &   3.06000000D0, 3.06050000D0,
     &   3.06100000D0, 3.06150000D0,
     &   3.06200000D0, 3.06250000D0,
     &   3.06300000D0, 3.06350000D0,
     &   3.06400000D0, 3.06450000D0,
     &   3.06500000D0, 3.06550000D0,
     &   3.06600000D0, 3.06650000D0,
     &   3.06700000D0, 3.06750000D0,
     &   3.06800000D0, 3.06850000D0/
       DATA  (ESA  (I), I= 601, 700) /
     &   3.06900000D0, 3.06950000D0,
     &   3.07000000D0, 3.07050000D0,
     &   3.07100000D0, 3.07150000D0,
     &   3.07200000D0, 3.07250000D0,
     &   3.07300000D0, 3.07350000D0,
     &   3.07400000D0, 3.07450000D0,
     &   3.07500000D0, 3.07550000D0,
     &   3.07600000D0, 3.07650000D0,
     &   3.07700000D0, 3.07750000D0,
     &   3.07800000D0, 3.07850000D0,
     &   3.07900000D0, 3.07970000D0,
     &   3.08000000D0, 3.08050000D0,
     &   3.08100000D0, 3.08150000D0,
     &   3.08200000D0, 3.08250000D0,
     &   3.08300000D0, 3.08350000D0,
     &   3.08400000D0, 3.08450000D0,
     &   3.08500000D0, 3.08550000D0,
     &   3.08587000D0, 3.08688300D0,
     &   3.08789600D0, 3.08890900D0,
     &   3.08992200D0, 3.09093500D0,
     &   3.09194800D0, 3.09296100D0,
     &   3.09397400D0, 3.09498700D0,
     &   3.09600000D0, 3.09605000D0,
     &   3.09610000D0, 3.09615000D0,
     &   3.09620000D0, 3.09625000D0,
     &   3.09630000D0, 3.09635000D0,
     &   3.09640000D0, 3.09645000D0,
     &   3.09650000D0, 3.09655000D0,
     &   3.09660000D0, 3.09665000D0,
     &   3.09665500D0, 3.09673500D0,
     &   3.09677100D0, 3.09679300D0,
     &   3.09680900D0, 3.09682000D0,
     &   3.09682900D0, 3.09683600D0,
     &   3.09684300D0, 3.09684800D0,
     &   3.09685300D0, 3.09685700D0,
     &   3.09686100D0, 3.09686400D0,
     &   3.09686800D0, 3.09687000D0,
     &   3.09687300D0, 3.09687600D0,
     &   3.09687800D0, 3.09688100D0,
     &   3.09688300D0, 3.09688500D0,
     &   3.09688700D0, 3.09688900D0,
     &   3.09689100D0, 3.09689300D0,
     &   3.09689500D0, 3.09689700D0,
     &   3.09689900D0, 3.09690100D0,
     &   3.09690400D0, 3.09690600D0,
     &   3.09690900D0, 3.09691200D0,
     &   3.09692000D0, 3.09692800D0,
     &   3.09693100D0, 3.09693400D0,
     &   3.09693600D0, 3.09693900D0,
     &   3.09694100D0, 3.09694300D0/
       DATA  (ESA  (I), I= 701, 800) /
     &   3.09694500D0, 3.09694700D0,
     &   3.09694900D0, 3.09695100D0,
     &   3.09695300D0, 3.09695500D0,
     &   3.09695700D0, 3.09695900D0,
     &   3.09696200D0, 3.09696400D0,
     &   3.09696700D0, 3.09697000D0,
     &   3.09697200D0, 3.09697600D0,
     &   3.09697900D0, 3.09698300D0,
     &   3.09698700D0, 3.09699200D0,
     &   3.09699700D0, 3.09700400D0,
     &   3.09701100D0, 3.09702000D0,
     &   3.09703100D0, 3.09704700D0,
     &   3.09706900D0, 3.09710500D0,
     &   3.09715000D0, 3.09720000D0,
     &   3.09725000D0, 3.09730000D0,
     &   3.09735000D0, 3.09740000D0,
     &   3.09745000D0, 3.09750000D0,
     &   3.09755000D0, 3.09760000D0,
     &   3.09765000D0, 3.09770000D0,
     &   3.09775000D0, 3.09780000D0,
     &   3.09785000D0, 3.09790000D0,
     &   3.09795000D0, 3.09800000D0,
     &   3.09898700D0, 3.09997400D0,
     &   3.10096100D0, 3.10194800D0,
     &   3.10293500D0, 3.10392200D0,
     &   3.10490900D0, 3.10589600D0,
     &   3.10688300D0, 3.10787000D0,
     &   3.10800000D0, 3.10900000D0,
     &   3.11000000D0, 3.11100000D0,
     &   3.11200000D0, 3.11300000D0,
     &   3.11400000D0, 3.11500000D0,
     &   3.11600000D0, 3.11700000D0,
     &   3.11800000D0, 3.11900000D0,
     &   3.12000000D0, 3.12100000D0,
     &   3.12200000D0, 3.12300000D0,
     &   3.12400000D0, 3.12500000D0,
     &   3.12600000D0, 3.12700000D0,
     &   3.12800000D0, 3.12900000D0,
     &   3.13000000D0, 3.13100000D0,
     &   3.13200000D0, 3.13300000D0,
     &   3.13400000D0, 3.13500000D0,
     &   3.13600000D0, 3.13700000D0,
     &   3.13800000D0, 3.13900000D0,
     &   3.14000000D0, 3.14100000D0,
     &   3.14200000D0, 3.14300000D0,
     &   3.14400000D0, 3.14500000D0,
     &   3.14600000D0, 3.14700000D0,
     &   3.14800000D0, 3.14900000D0,
     &   3.15000000D0, 3.15100000D0,
     &   3.15200000D0, 3.15300000D0/
       DATA  (ESA  (I), I= 801, 900) /
     &   3.15400000D0, 3.15500000D0,
     &   3.15600000D0, 3.15700000D0,
     &   3.15800000D0, 3.15900000D0,
     &   3.16000000D0, 3.16100000D0,
     &   3.16200000D0, 3.16300000D0,
     &   3.16400000D0, 3.16500000D0,
     &   3.16600000D0, 3.16700000D0,
     &   3.16800000D0, 3.16900000D0,
     &   3.17000000D0, 3.17100000D0,
     &   3.17200000D0, 3.17300000D0,
     &   3.17400000D0, 3.17500000D0,
     &   3.17600000D0, 3.17700000D0,
     &   3.17800000D0, 3.17900000D0,
     &   3.18000000D0, 3.18100000D0,
     &   3.18200000D0, 3.18300000D0,
     &   3.18400000D0, 3.18500000D0,
     &   3.18600000D0, 3.18700000D0,
     &   3.18800000D0, 3.18900000D0,
     &   3.19000000D0, 3.19100000D0,
     &   3.19200000D0, 3.19300000D0,
     &   3.19400000D0, 3.19500000D0,
     &   3.19600000D0, 3.19700000D0,
     &   3.19800000D0, 3.19900000D0,
     &   3.19990000D0, 3.20100000D0,
     &   3.20200000D0, 3.20300000D0,
     &   3.20400000D0, 3.20500000D0,
     &   3.20600000D0, 3.20700000D0,
     &   3.20800000D0, 3.20900000D0,
     &   3.21000000D0, 3.25000000D0,
     &   3.30000000D0, 3.37000000D0,
     &   3.40000000D0, 3.45000000D0,
     &   3.50000000D0, 3.52000000D0,
     &   3.54000000D0, 3.54240000D0,
     &   3.55380000D0, 3.56000000D0,
     &   3.56110000D0, 3.57500000D0,
     &   3.59000000D0, 3.59500000D0,
     &   3.60020000D0, 3.60500000D0,
     &   3.61000000D0, 3.61500000D0,
     &   3.62000000D0, 3.62500000D0,
     &   3.63000000D0, 3.63500000D0,
     &   3.64000000D0, 3.64500000D0,
     &   3.65000000D0, 3.65200000D0,
     &   3.65400000D0, 3.65600000D0,
     &   3.65800000D0, 3.66000000D0,
     &   3.66200000D0, 3.66300000D0,
     &   3.66400000D0, 3.66500000D0,
     &   3.66600000D0, 3.66700000D0,
     &   3.66800000D0, 3.66900000D0,
     &   3.67000000D0, 3.67100000D0,
     &   3.67200000D0, 3.67300000D0/
       DATA  (ESA  (I), I= 901,1000) /
     &   3.67400000D0, 3.67496000D0,
     &   3.67551000D0, 3.67606000D0,
     &   3.67661000D0, 3.67716000D0,
     &   3.67771000D0, 3.67826000D0,
     &   3.67881000D0, 3.67936000D0,
     &   3.67991000D0, 3.68046000D0,
     &   3.68101000D0, 3.68156000D0,
     &   3.68211000D0, 3.68266000D0,
     &   3.68321000D0, 3.68376000D0,
     &   3.68431000D0, 3.68486000D0,
     &   3.68527300D0, 3.68541000D0,
     &   3.68552000D0, 3.68569900D0,
     &   3.68574600D0, 3.68578100D0,
     &   3.68580900D0, 3.68583200D0,
     &   3.68585100D0, 3.68586800D0,
     &   3.68588300D0, 3.68589500D0,
     &   3.68590700D0, 3.68591800D0,
     &   3.68592800D0, 3.68593700D0,
     &   3.68594600D0, 3.68595300D0,
     &   3.68596100D0, 3.68596800D0,
     &   3.68597500D0, 3.68598200D0,
     &   3.68598800D0, 3.68599500D0,
     &   3.68600100D0, 3.68600700D0,
     &   3.68601300D0, 3.68602000D0,
     &   3.68602600D0, 3.68603300D0,
     &   3.68603900D0, 3.68604700D0,
     &   3.68605500D0, 3.68606600D0,
     &   3.68607500D0, 3.68608500D0,
     &   3.68609000D0, 3.68609500D0,
     &   3.68610000D0, 3.68611400D0,
     &   3.68612500D0, 3.68613300D0,
     &   3.68614100D0, 3.68614700D0,
     &   3.68615400D0, 3.68616000D0,
     &   3.68616700D0, 3.68617300D0,
     &   3.68617900D0, 3.68618500D0,
     &   3.68619200D0, 3.68619800D0,
     &   3.68620500D0, 3.68621200D0,
     &   3.68621900D0, 3.68622700D0,
     &   3.68623400D0, 3.68624300D0,
     &   3.68625200D0, 3.68626200D0,
     &   3.68627300D0, 3.68628500D0,
     &   3.68629700D0, 3.68631200D0,
     &   3.68632900D0, 3.68634800D0,
     &   3.68637100D0, 3.68639900D0,
     &   3.68643400D0, 3.68648100D0,
     &   3.68651000D0, 3.68654800D0,
     &   3.68660000D0, 3.68667000D0,
     &   3.68672000D0, 3.68685000D0,
     &   3.68690700D0, 3.68706000D0,
     &   3.68761000D0, 3.68816000D0/
       DATA  (ESA  (I), I=1001,1100) /
     &   3.68871000D0, 3.68926000D0,
     &   3.68981000D0, 3.69036000D0,
     &   3.69091000D0, 3.69146000D0,
     &   3.69201000D0, 3.69256000D0,
     &   3.69311000D0, 3.69366000D0,
     &   3.69421000D0, 3.69476000D0,
     &   3.69531000D0, 3.69586000D0,
     &   3.69641000D0, 3.69696000D0,
     &   3.69796000D0, 3.69950000D0,
     &   3.70050000D0, 3.70250000D0,
     &   3.70450000D0, 3.70700000D0,
     &   3.71200000D0, 3.72128100D0,
     &   3.73082800D0, 3.73660200D0,
     &   3.74060200D0, 3.74360300D0,
     &   3.74597300D0, 3.74791700D0,
     &   3.74955600D0, 3.75096800D0,
     &   3.75220600D0, 3.75330900D0,
     &   3.75430100D0, 3.75520500D0,
     &   3.75603600D0, 3.75680500D0,
     &   3.75752300D0, 3.75819800D0,
     &   3.75883700D0, 3.75944400D0,
     &   3.76002600D0, 3.76058600D0,
     &   3.76112800D0, 3.76165500D0,
     &   3.76217200D0, 3.76268100D0,
     &   3.76318700D0, 3.76369200D0,
     &   3.76420200D0, 3.76472200D0,
     &   3.76526100D0, 3.76582800D0,
     &   3.76644200D0, 3.76713800D0,
     &   3.76800500D0, 3.77000000D0,
     &   3.77199500D0, 3.77286200D0,
     &   3.77355800D0, 3.77417200D0,
     &   3.77474000D0, 3.77527800D0,
     &   3.77579800D0, 3.77630800D0,
     &   3.77681400D0, 3.77731900D0,
     &   3.77782800D0, 3.77834500D0,
     &   3.77887200D0, 3.77941400D0,
     &   3.77997400D0, 3.78055600D0,
     &   3.78116300D0, 3.78180200D0,
     &   3.78247700D0, 3.78319500D0,
     &   3.78396400D0, 3.78479500D0,
     &   3.78569900D0, 3.78669100D0,
     &   3.78779400D0, 3.78903200D0,
     &   3.79044400D0, 3.79208300D0,
     &   3.79402700D0, 3.79639700D0,
     &   3.79939800D0, 3.80339800D0,
     &   3.80917200D0, 3.81871900D0,
     &   3.82200000D0, 3.83200000D0,
     &   3.85000000D0, 3.85200000D0,
     &   3.86700000D0, 3.87300000D0,
     &   3.87800000D0, 3.88400000D0/
       DATA  (ESA  (I), I=1101,1200) /
     &   3.89000000D0, 3.89600000D0,
     &   3.90000000D0, 3.90200000D0,
     &   3.90800000D0, 3.91400000D0,
     &   3.92000000D0, 3.92600000D0,
     &   3.93200000D0, 3.93800000D0,
     &   3.94400000D0, 3.95000000D0,
     &   3.95600000D0, 3.96200000D0,
     &   3.96800000D0, 3.97400000D0,
     &   3.98000000D0, 3.98600000D0,
     &   3.99200000D0, 3.99800000D0,
     &   4.00000000D0, 4.00400000D0,
     &   4.01000000D0, 4.01600000D0,
     &   4.02000000D0, 4.02200000D0,
     &   4.02800000D0, 4.03000000D0,
     &   4.03400000D0, 4.04000000D0,
     &   4.04600000D0, 4.05000000D0,
     &   4.05200000D0, 4.05800000D0,
     &   4.06400000D0, 4.07000000D0,
     &   4.07600000D0, 4.08200000D0,
     &   4.08800000D0, 4.09000000D0,
     &   4.09400000D0, 4.10000000D0,
     &   4.10500000D0, 4.10900000D0,
     &   4.11000000D0, 4.11300000D0,
     &   4.11800000D0, 4.12100000D0,
     &   4.12500000D0, 4.12900000D0,
     &   4.13000000D0, 4.13300000D0,
     &   4.13600000D0, 4.14100000D0,
     &   4.14700000D0, 4.15000000D0,
     &   4.15300000D0, 4.15900000D0,
     &   4.16500000D0, 4.17100000D0,
     &   4.17700000D0, 4.18000000D0,
     &   4.18200000D0, 4.18500000D0,
     &   4.19000000D0, 4.19500000D0,
     &   4.19900000D0, 4.20100000D0,
     &   4.20800000D0, 4.21200000D0,
     &   4.21400000D0, 4.22000000D0,
     &   4.22600000D0, 4.23200000D0,
     &   4.23800000D0, 4.24000000D0,
     &   4.24400000D0, 4.25000000D0,
     &   4.25600000D0, 4.26200000D0,
     &   4.26800000D0, 4.27400000D0,
     &   4.28000000D0, 4.29200000D0,
     &   4.30000000D0, 4.30400000D0,
     &   4.31000000D0, 4.31600000D0,
     &   4.32800000D0, 4.33000000D0,
     &   4.34000000D0, 4.35000000D0,
     &   4.35200000D0, 4.36400000D0,
     &   4.37600000D0, 4.38000000D0,
     &   4.38200000D0, 4.38800000D0,
     &   4.39000000D0, 4.39400000D0/
       DATA  (ESA  (I), I=1201,1300) /
     &   4.40000000D0, 4.40600000D0,
     &   4.41000000D0, 4.41200000D0,
     &   4.41800000D0, 4.42400000D0,
     &   4.43000000D0, 4.43600000D0,
     &   4.44000000D0, 4.44200000D0,
     &   4.44800000D0, 4.45000000D0,
     &   4.46000000D0, 4.47200000D0,
     &   4.48400000D0, 4.49600000D0,
     &   4.50450000D0, 4.54000000D0,
     &   4.55000000D0, 4.57000000D0,
     &   4.60000000D0, 4.62000000D0,
     &   4.65000000D0, 4.66000000D0,
     &   4.70000000D0, 4.71000000D0,
     &   4.80000000D0, 4.90000000D0,
     &   4.98000000D0, 5.06500000D0,
     &   5.15000000D0, 5.22500000D0,
     &   5.25000000D0, 5.30000000D0,
     &   5.40000000D0, 5.45000000D0,
     &   5.50000000D0, 5.60000000D0,
     &   5.70000000D0, 5.75000000D0,
     &   5.80000000D0, 5.85000000D0,
     &   5.90000000D0, 5.95000000D0,
     &   6.00000000D0, 6.05000000D0,
     &   6.10000000D0, 6.15000000D0,
     &   6.20000000D0, 6.25000000D0,
     &   6.30000000D0, 6.35000000D0,
     &   6.40000000D0, 6.45000000D0,
     &   6.50000000D0, 6.55000000D0,
     &   6.60000000D0, 6.65000000D0,
     &   6.70000000D0, 6.75000000D0,
     &   6.80000000D0, 6.85000000D0,
     &   6.90000000D0, 6.95000000D0,
     &   7.00000000D0, 7.05000000D0,
     &   7.10000000D0, 7.15000000D0,
     &   7.20000000D0, 7.25000000D0,
     &   7.30000000D0, 7.35000000D0,
     &   7.40000000D0, 7.44000000D0,
     &   7.50000000D0, 7.60000000D0,
     &   7.70000000D0, 7.80000000D0,
     &   7.90000000D0, 8.00000000D0,
     &   8.10000000D0, 8.20000000D0,
     &   8.30000000D0, 8.40000000D0,
     &   8.50000000D0, 8.60000000D0,
     &   8.70000000D0, 8.80000000D0,
     &   8.90000000D0, 8.91000000D0,
     &   9.00000000D0, 9.10000000D0,
     &   9.20000000D0, 9.28000000D0,
     &   9.30000000D0, 9.35000000D0,
     &   9.39000000D0, 9.40000000D0,
     &   9.41000000D0, 9.41500000D0/
       DATA  (ESA  (I), I=1301,1400) /
     &   9.42000000D0, 9.42400000D0,
     &   9.42800000D0, 9.43000000D0,
     &   9.43200000D0, 9.43400000D0,
     &   9.43600000D0, 9.43800000D0,
     &   9.44000000D0, 9.44100000D0,
     &   9.44200000D0, 9.44300000D0,
     &   9.44400000D0, 9.44500000D0,
     &   9.44600000D0, 9.44700000D0,
     &   9.44800000D0, 9.44900000D0,
     &   9.44937000D0, 9.44959000D0,
     &   9.44981000D0, 9.45003000D0,
     &   9.45025000D0, 9.45047000D0,
     &   9.45069000D0, 9.45091000D0,
     &   9.45113000D0, 9.45135000D0,
     &   9.45157000D0, 9.45179000D0,
     &   9.45201000D0, 9.45223000D0,
     &   9.45245000D0, 9.45267000D0,
     &   9.45289000D0, 9.45311000D0,
     &   9.45333000D0, 9.45355000D0,
     &   9.45377000D0, 9.45399000D0,
     &   9.45421000D0, 9.45443000D0,
     &   9.45465000D0, 9.45487000D0,
     &   9.45509000D0, 9.45531000D0,
     &   9.45553000D0, 9.45575000D0,
     &   9.45597000D0, 9.45619000D0,
     &   9.45641000D0, 9.45663000D0,
     &   9.45685000D0, 9.45707000D0,
     &   9.45729000D0, 9.45751000D0,
     &   9.45773000D0, 9.45795000D0,
     &   9.45817000D0, 9.45839000D0,
     &   9.45861000D0, 9.45883000D0,
     &   9.45905000D0, 9.45927000D0,
     &   9.45949000D0, 9.45971000D0,
     &   9.45993000D0, 9.46000000D0,
     &   9.46019429D0, 9.46024164D0,
     &   9.46024905D0, 9.46025276D0,
     &   9.46026017D0, 9.46026757D0,
     &   9.46027498D0, 9.46028239D0,
     &   9.46028980D0, 9.46029721D0,
     &   9.46030462D0, 9.46031202D0,
     &   9.46031943D0, 9.46032684D0,
     &   9.46033425D0, 9.46034166D0,
     &   9.46034907D0, 9.46035648D0,
     &   9.46036018D0, 9.46036388D0,
     &   9.46036759D0, 9.46037129D0,
     &   9.46037500D0, 9.46037870D0,
     &   9.46038240D0, 9.46038611D0,
     &   9.46038981D0, 9.46039352D0,
     &   9.46039722D0, 9.46039722D0,
     &   9.46039776D0, 9.46039830D0/
       DATA  (ESA  (I), I=1401,1500) /
     &   9.46039884D0, 9.46039938D0,
     &   9.46039992D0, 9.46040100D0,
     &   9.46040208D0, 9.46040262D0,
     &   9.46040370D0, 9.46040478D0,
     &   9.46040587D0, 9.46040695D0,
     &   9.46040803D0, 9.46040911D0,
     &   9.46041019D0, 9.46041258D0,
     &   9.46041628D0, 9.46041999D0,
     &   9.46042369D0, 9.46042740D0,
     &   9.46043110D0, 9.46043480D0,
     &   9.46043851D0, 9.46044221D0,
     &   9.46044592D0, 9.46044962D0,
     &   9.46045703D0, 9.46046444D0,
     &   9.46047185D0, 9.46048666D0,
     &   9.46050148D0, 9.46051630D0,
     &   9.46052371D0, 9.46053111D0,
     &   9.46053852D0, 9.46054593D0,
     &   9.46055334D0, 9.46056075D0,
     &   9.46057186D0, 9.46059000D0,
     &   9.46081000D0, 9.46103000D0,
     &   9.46125000D0, 9.46147000D0,
     &   9.46169000D0, 9.46191000D0,
     &   9.46213000D0, 9.46235000D0,
     &   9.46257000D0, 9.46279000D0,
     &   9.46301000D0, 9.46323000D0,
     &   9.46345000D0, 9.46367000D0,
     &   9.46389000D0, 9.46411000D0,
     &   9.46433000D0, 9.46455000D0,
     &   9.46477000D0, 9.46499000D0,
     &   9.46521000D0, 9.46543000D0,
     &   9.46565000D0, 9.46587000D0,
     &   9.46609000D0, 9.46631000D0,
     &   9.46653000D0, 9.46675000D0,
     &   9.46697000D0, 9.46719000D0,
     &   9.46741000D0, 9.46763000D0,
     &   9.46785000D0, 9.46807000D0,
     &   9.46829000D0, 9.46851000D0,
     &   9.46873000D0, 9.46895000D0,
     &   9.46917000D0, 9.46939000D0,
     &   9.46961000D0, 9.46983000D0,
     &   9.47005000D0, 9.47027000D0,
     &   9.47049000D0, 9.47071000D0,
     &   9.47093000D0, 9.47115000D0,
     &   9.47137000D0, 9.47337000D0,
     &   9.47500000D0, 9.47700000D0,
     &   9.48000000D0, 9.48400000D0,
     &   9.49000000D0, 9.49500000D0,
     &   9.50500000D0, 9.51000000D0,
     &   9.51500000D0, 9.52000000D0,
     &   9.52500000D0, 9.53000000D0/
       DATA  (ESA  (I), I=1501,1600) /
     &   9.54000000D0, 9.55000000D0,
     &   9.60000000D0, 9.70000000D0,
     &   9.80000000D0, 9.90000000D0,
     &   9.95000000D0, 9.97500000D0,
     &   9.99000000D0,10.00000000D0,
     &  10.01000000D0,10.01100000D0,
     &  10.01200000D0,10.01226000D0,
     &  10.01281000D0,10.01336000D0,
     &  10.01391000D0,10.01446000D0,
     &  10.01501000D0,10.01556000D0,
     &  10.01611000D0,10.01666000D0,
     &  10.01721000D0,10.01776000D0,
     &  10.01831000D0,10.01886000D0,
     &  10.01941000D0,10.01996000D0,
     &  10.02051000D0,10.02106000D0,
     &  10.02161000D0,10.02216000D0,
     &  10.02250000D0,10.02253750D0,
     &  10.02257500D0,10.02261250D0,
     &  10.02265000D0,10.02268750D0,
     &  10.02272500D0,10.02276250D0,
     &  10.02330412D0,10.02330897D0,
     &  10.02331383D0,10.02331626D0,
     &  10.02331868D0,10.02332111D0,
     &  10.02332354D0,10.02332597D0,
     &  10.02332839D0,10.02333082D0,
     &  10.02333325D0,10.02333568D0,
     &  10.02333810D0,10.02334053D0,
     &  10.02334296D0,10.02334538D0,
     &  10.02334781D0,10.02335024D0,
     &  10.02335267D0,10.02335509D0,
     &  10.02335752D0,10.02335995D0,
     &  10.02336238D0,10.02336480D0,
     &  10.02336723D0,10.02336966D0,
     &  10.02337209D0,10.02337451D0,
     &  10.02337694D0,10.02337937D0,
     &  10.02338179D0,10.02338422D0,
     &  10.02338665D0,10.02338908D0,
     &  10.02339150D0,10.02339393D0,
     &  10.02339636D0,10.02339668D0,
     &  10.02339700D0,10.02339732D0,
     &  10.02339764D0,10.02339796D0,
     &  10.02339828D0,10.02339860D0,
     &  10.02339892D0,10.02339924D0,
     &  10.02339955D0,10.02339987D0,
     &  10.02340019D0,10.02340051D0,
     &  10.02340083D0,10.02340115D0,
     &  10.02340147D0,10.02340179D0,
     &  10.02340211D0,10.02340243D0,
     &  10.02340275D0,10.02340307D0,
     &  10.02340339D0,10.02340371D0/
       DATA  (ESA  (I), I=1601,1700) /
     &  10.02340403D0,10.02340435D0,
     &  10.02340678D0,10.02340920D0,
     &  10.02341163D0,10.02341406D0,
     &  10.02341649D0,10.02341891D0,
     &  10.02342134D0,10.02342377D0,
     &  10.02342620D0,10.02342862D0,
     &  10.02343105D0,10.02343348D0,
     &  10.02343590D0,10.02343833D0,
     &  10.02344076D0,10.02344319D0,
     &  10.02344561D0,10.02344804D0,
     &  10.02345047D0,10.02345290D0,
     &  10.02345532D0,10.02345775D0,
     &  10.02346018D0,10.02346261D0,
     &  10.02346503D0,10.02346746D0,
     &  10.02346989D0,10.02347231D0,
     &  10.02347474D0,10.02347717D0,
     &  10.02347960D0,10.02348202D0,
     &  10.02348445D0,10.02348688D0,
     &  10.02348931D0,10.02349173D0,
     &  10.02349416D0,10.02349902D0,
     &  10.02400000D0,10.02436000D0,
     &  10.02491000D0,10.02546000D0,
     &  10.02656000D0,10.02766000D0,
     &  10.02876000D0,10.02986000D0,
     &  10.03096000D0,10.03206000D0,
     &  10.03316000D0,10.03426000D0,
     &  10.03500000D0,10.03600000D0,
     &  10.03700000D0,10.03800000D0,
     &  10.03900000D0,10.04000000D0,
     &  10.04500000D0,10.05000000D0,
     &  10.05500000D0,10.06000000D0,
     &  10.06500000D0,10.07000000D0,
     &  10.07500000D0,10.08000000D0,
     &  10.20000000D0,10.25000000D0,
     &  10.26000000D0,10.27000000D0,
     &  10.28000000D0,10.29000000D0,
     &  10.29500000D0,10.30000000D0,
     &  10.31000000D0,10.32000000D0,
     &  10.33000000D0,10.34000000D0,
     &  10.34420000D0,10.34493333D0,
     &  10.34566667D0,10.34640000D0,
     &  10.34713333D0,10.34786667D0,
     &  10.34860000D0,10.34933333D0,
     &  10.35006667D0,10.35080000D0,
     &  10.35153333D0,10.35226667D0,
     &  10.35300000D0,10.35309167D0,
     &  10.35318333D0,10.35327500D0,
     &  10.35336667D0,10.35345833D0,
     &  10.35355000D0,10.35364167D0,
     &  10.35373333D0,10.35382500D0/
       DATA  (ESA  (I), I=1701,1800) /
     &  10.35391667D0,10.35400833D0,
     &  10.35410000D0,10.35419167D0,
     &  10.35428333D0,10.35437500D0,
     &  10.35440000D0,10.35446667D0,
     &  10.35455833D0,10.35465000D0,
     &  10.35474167D0,10.35483334D0,
     &  10.35492500D0,10.35501667D0,
     &  10.35502330D0,10.35503904D0,
     &  10.35504221D0,10.35504537D0,
     &  10.35504854D0,10.35505171D0,
     &  10.35505487D0,10.35505804D0,
     &  10.35506121D0,10.35506437D0,
     &  10.35506754D0,10.35507071D0,
     &  10.35507387D0,10.35507704D0,
     &  10.35507862D0,10.35508021D0,
     &  10.35508179D0,10.35508337D0,
     &  10.35508496D0,10.35508654D0,
     &  10.35508812D0,10.35508971D0,
     &  10.35509129D0,10.35509287D0,
     &  10.35509446D0,10.35509604D0,
     &  10.35509762D0,10.35509783D0,
     &  10.35509803D0,10.35509823D0,
     &  10.35509844D0,10.35509864D0,
     &  10.35509884D0,10.35509905D0,
     &  10.35509925D0,10.35509945D0,
     &  10.35509966D0,10.35509986D0,
     &  10.35510006D0,10.35510027D0,
     &  10.35510047D0,10.35510067D0,
     &  10.35510088D0,10.35510108D0,
     &  10.35510128D0,10.35510149D0,
     &  10.35510169D0,10.35510189D0,
     &  10.35510210D0,10.35510230D0,
     &  10.35510250D0,10.35510270D0,
     &  10.35510429D0,10.35510587D0,
     &  10.35510746D0,10.35510904D0,
     &  10.35511062D0,10.35511221D0,
     &  10.35511379D0,10.35511537D0,
     &  10.35511696D0,10.35511854D0,
     &  10.35512012D0,10.35512171D0,
     &  10.35512329D0,10.35512487D0,
     &  10.35512804D0,10.35513121D0,
     &  10.35513437D0,10.35513754D0,
     &  10.35514071D0,10.35514387D0,
     &  10.35514704D0,10.35515021D0,
     &  10.35515337D0,10.35515654D0,
     &  10.35515971D0,10.35538334D0,
     &  10.35547500D0,10.35556667D0,
     &  10.35565834D0,10.35575000D0,
     &  10.35584167D0,10.35593334D0,
     &  10.35602500D0,10.35611667D0/
       DATA  (ESA  (I), I=1801,1900) /
     &  10.35620834D0,10.35630000D0,
     &  10.35639167D0,10.35648334D0,
     &  10.35657500D0,10.35666667D0,
     &  10.35740000D0,10.35813333D0,
     &  10.35886667D0,10.35960000D0,
     &  10.36033333D0,10.36106667D0,
     &  10.36180000D0,10.36326667D0,
     &  10.36473333D0,10.36546667D0,
     &  10.36620000D0,10.37000000D0,
     &  10.37500000D0,10.38000000D0,
     &  10.38500000D0,10.39000000D0,
     &  10.39500000D0,10.40000000D0,
     &  10.40500000D0,10.41000000D0,
     &  10.41500000D0,10.42000000D0,
     &  10.42500000D0,10.43000000D0,
     &  10.43500000D0,10.44000000D0,
     &  10.44500000D0,10.45000000D0,
     &  10.45500000D0,10.46000000D0,
     &  10.46500000D0,10.47000000D0,
     &  10.47300000D0,10.52897000D0,
     &  10.54217000D0,10.54889000D0,
     &  10.55317000D0,10.55622000D0,
     &  10.55855000D0,10.56042000D0,
     &  10.56197000D0,10.56328000D0,
     &  10.56442000D0,10.56543000D0,
     &  10.56633000D0,10.56714000D0,
     &  10.56788000D0,10.56857000D0,
     &  10.56921000D0,10.56980000D0,
     &  10.57036000D0,10.57090000D0,
     &  10.57141000D0,10.57189000D0,
     &  10.57237000D0,10.57282000D0,
     &  10.57327000D0,10.57371000D0,
     &  10.57415000D0,10.57459000D0,
     &  10.57503000D0,10.57547000D0,
     &  10.57594000D0,10.57643000D0,
     &  10.57695000D0,10.57755000D0,
     &  10.57829000D0,10.58000000D0,
     &  10.58171000D0,10.58245000D0,
     &  10.58305000D0,10.58357000D0,
     &  10.58406000D0,10.58453000D0,
     &  10.58497000D0,10.58541000D0,
     &  10.58585000D0,10.58629000D0,
     &  10.58673000D0,10.58718000D0,
     &  10.58763000D0,10.58811000D0,
     &  10.58859000D0,10.58910000D0,
     &  10.58964000D0,10.59020000D0,
     &  10.59079000D0,10.59143000D0,
     &  10.59212000D0,10.59286000D0,
     &  10.59367000D0,10.59457000D0,
     &  10.59558000D0,10.59671000D0/
       DATA  (ESA  (I), I=1901,2000) /
     &  10.59803000D0,10.59958000D0,
     &  10.60145000D0,10.60378000D0,
     &  10.60683000D0,10.61111000D0,
     &  10.61783000D0,10.63103000D0,
     &  10.68700000D0,10.69000000D0,
     &  10.71309000D0,10.72975000D0,
     &  10.74256000D0,10.75286000D0,
     &  10.76141000D0,10.76869000D0,
     &  10.77500000D0,10.78057000D0,
     &  10.78554000D0,10.79004000D0,
     &  10.79414000D0,10.79791000D0,
     &  10.80141000D0,10.80468000D0,
     &  10.80775000D0,10.81065000D0,
     &  10.81341000D0,10.81604000D0,
     &  10.81858000D0,10.82102000D0,
     &  10.82339000D0,10.82570000D0,
     &  10.82796000D0,10.83019000D0,
     &  10.83240000D0,10.83460000D0,
     &  10.83681000D0,10.83906000D0,
     &  10.84135000D0,10.84374000D0,
     &  10.84626000D0,10.84900000D0,
     &  10.85212000D0,10.85601000D0,
     &  10.86500000D0,10.87288000D0,
     &  10.87627000D0,10.87895000D0,
     &  10.88128000D0,10.88340000D0,
     &  10.88539000D0,10.88728000D0,
     &  10.88910000D0,10.89088000D0,
     &  10.89262000D0,10.89434000D0,
     &  10.89605000D0,10.89775000D0,
     &  10.89946000D0,10.90119000D0,
     &  10.90292000D0,10.90468000D0,
     &  10.90648000D0,10.90830000D0,
     &  10.91017000D0,10.91208000D0,
     &  10.91406000D0,10.91609000D0,
     &  10.91820000D0,10.92038000D0,
     &  10.92266000D0,10.92504000D0,
     &  10.92754000D0,10.93017000D0,
     &  10.93295000D0,10.93590000D0,
     &  10.93905000D0,10.94242000D0,
     &  10.94606000D0,10.95000000D0,
     &  10.97500000D0,10.97638000D0,
     &  10.97771000D0,10.97900000D0,
     &  10.98025000D0,10.98146000D0,
     &  10.98263000D0,10.98377000D0,
     &  10.98489000D0,10.98598000D0,
     &  10.98705000D0,10.98810000D0,
     &  10.98913000D0,10.99014000D0,
     &  10.99114000D0,10.99213000D0,
     &  10.99310000D0,10.99407000D0,
     &  10.99504000D0,10.99600000D0/
       DATA  (ESA  (I), I=2001,2100) /
     &  10.99697000D0,10.99793000D0,
     &  10.99890000D0,10.99988000D0,
     &  11.00087000D0,11.00188000D0,
     &  11.00290000D0,11.00396000D0,
     &  11.00506000D0,11.00621000D0,
     &  11.00742000D0,11.00873000D0,
     &  11.01018000D0,11.01186000D0,
     &  11.01399000D0,11.01900000D0,
     &  11.02401000D0,11.02614000D0,
     &  11.02782000D0,11.02927000D0,
     &  11.03058000D0,11.03179000D0,
     &  11.03294000D0,11.03404000D0,
     &  11.03510000D0,11.03612000D0,
     &  11.03713000D0,11.03812000D0,
     &  11.03910000D0,11.04007000D0,
     &  11.04103000D0,11.04200000D0,
     &  11.04296000D0,11.04392000D0,
     &  11.04490000D0,11.04587000D0,
     &  11.04686000D0,11.04786000D0,
     &  11.04887000D0,11.04990000D0,
     &  11.05095000D0,11.05202000D0,
     &  11.05311000D0,11.05423000D0,
     &  11.05537000D0,11.05654000D0,
     &  11.05775000D0,11.05900000D0,
     &  11.06029000D0,11.06162000D0,
     &  11.06300000D0,11.07000000D0,
     &  11.09200000D0,11.11500000D0,
     &  11.13700000D0,11.16000000D0,
     &  11.18200000D0,11.20500000D0,
     &  11.22700000D0,11.25000000D0,
     &  11.27300000D0,11.29500000D0,
     &  11.31800000D0,11.34000000D0,
     &  11.36300000D0,11.38500000D0,
     &  11.40800000D0,11.43000000D0,
     &  11.45300000D0,11.47500000D0,
     &  11.49800000D0,11.52000000D0,
     &  11.54200000D0,11.56500000D0,
     &  11.58700000D0,11.61000000D0,
     &  11.63200000D0,11.65500000D0,
     &  11.67700000D0,11.70000000D0,
     &  11.72200000D0,11.74500000D0,
     &  11.76700000D0,11.79000000D0,
     &  11.81200000D0,11.83500000D0,
     &  11.85800000D0,11.88000000D0,
     &  11.90300000D0,11.92500000D0,
     &  11.94800000D0,11.97000000D0,
     &  11.99300000D0,12.01500000D0,
     &  12.03800000D0,12.06000000D0,
     &  12.08300000D0,12.10500000D0,
     &  12.12700000D0,12.15000000D0/
       DATA  (ESA  (I), I=2101,2193) /
     &  12.17200000D0,12.19500000D0,
     &  12.21700000D0,12.24000000D0,
     &  12.26200000D0,12.28500000D0,
     &  12.30700000D0,12.33000000D0,
     &  12.35200000D0,12.37500000D0,
     &  12.39800000D0,12.42000000D0,
     &  12.44300000D0,12.46500000D0,
     &  12.48800000D0,12.51000000D0,
     &  12.53300000D0,12.55500000D0,
     &  12.57800000D0,12.60000000D0,
     &  12.62300000D0,12.64500000D0,
     &  12.66700000D0,12.69000000D0,
     &  12.71200000D0,12.73500000D0,
     &  12.75700000D0,12.78000000D0,
     &  12.80200000D0,12.82500000D0,
     &  12.84700000D0,12.87000000D0,
     &  12.89200000D0,12.91500000D0,
     &  12.93800000D0,12.96000000D0,
     &  12.98300000D0,13.00500000D0,
     &  13.02800000D0,13.05000000D0,
     &  13.07300000D0,13.09500000D0,
     &  13.11800000D0,13.14000000D0,
     &  13.16300000D0,13.18500000D0,
     &  13.20800000D0,13.23000000D0,
     &  13.25200000D0,13.27500000D0,
     &  13.29700000D0,13.32000000D0,
     &  13.34200000D0,13.36500000D0,
     &  13.38700000D0,13.41000000D0,
     &  13.43200000D0,13.45500000D0,
     &  13.47700000D0,13.50000000D0,
     &  13.75000000D0,14.00000000D0,
     &  14.04000000D0,16.00000000D0,
     &  17.00000000D0,20.00000000D0,
     &  21.95000000D0,22.05000000D0,
     &  25.00000000D0,25.01000000D0,
     &  27.50000000D0,27.60000000D0,
     &  27.66000000D0,29.00000000D0,
     &  29.93000000D0,30.10000000D0,
     &  30.38000000D0,30.80000000D0,
     &  31.10000000D0,31.29000000D0,
     &  33.20000000D0,33.30000000D0,
     &  33.89000000D0,34.00000000D0,
     &  34.50000000D0,34.70000000D0,
     &  34.86000000D0,35.01000000D0,
     &  35.45000000D0,36.10000000D0,
     &  36.38000000D0,38.29000000D0,
     &  40.00000000D0/

         DATA ((CAS  (I,J), I=   1, 100), J=1,1) /
     &  (-9.1390E-04,-0.0000E+00),(-9.7183E-04,-5.3224E-06),
     &  (-1.0333E-03,-1.5273E-05),(-1.0949E-03,-2.8153E-05),
     &  (-1.1593E-03,-4.3420E-05),(-1.2240E-03,-6.0692E-05),
     &  (-1.2700E-03,-7.9766E-05),(-1.3699E-03,-1.2894E-04),
     &  (-1.4097E-03,-1.4649E-04),(-1.4459E-03,-1.6662E-04),
     &  (-1.5037E-03,-1.8674E-04),(-1.5587E-03,-2.0713E-04),
     &  (-1.6224E-03,-2.3283E-04),(-1.6649E-03,-2.5164E-04),
     &  (-1.7181E-03,-2.7891E-04),(-1.7703E-03,-2.9841E-04),
     &  (-1.8254E-03,-3.2571E-04),(-1.8795E-03,-3.4712E-04),
     &  (-1.9172E-03,-3.7090E-04),(-1.9819E-03,-4.0104E-04),
     &  (-2.0272E-03,-4.1620E-04),(-2.0840E-03,-4.3884E-04),
     &  (-2.1305E-03,-4.6646E-04),(-2.1887E-03,-5.0375E-04),
     &  (-2.2386E-03,-5.2695E-04),(-2.2881E-03,-5.4386E-04),
     &  (-2.3485E-03,-5.6739E-04),(-2.3821E-03,-5.8643E-04),
     &  (-2.3974E-03,-5.9549E-04),(-2.4490E-03,-6.2104E-04),
     &  (-2.5027E-03,-6.4655E-04),(-2.5556E-03,-6.7050E-04),
     &  (-2.6095E-03,-6.9482E-04),(-2.6647E-03,-7.2334E-04),
     &  (-2.7222E-03,-7.5101E-04),(-2.7813E-03,-7.7360E-04),
     &  (-2.8424E-03,-7.9364E-04),(-2.9053E-03,-8.1660E-04),
     &  (-2.9697E-03,-8.5094E-04),(-3.0348E-03,-8.8568E-04),
     &  (-3.0834E-03,-9.1221E-04),(-3.1525E-03,-9.5063E-04),
     &  (-3.2220E-03,-9.9723E-04),(-3.2733E-03,-1.0283E-03),
     &  (-3.3433E-03,-1.0663E-03),(-3.4135E-03,-1.1000E-03),
     &  (-3.4697E-03,-1.1223E-03),(-3.5451E-03,-1.1521E-03),
     &  (-3.6035E-03,-1.1729E-03),(-3.6860E-03,-1.1962E-03),
     &  (-4.1425E-03,-1.4137E-03),(-4.6253E-03,-1.7954E-03),
     &  (-5.3121E-03,-2.2529E-03),(-5.9875E-03,-2.8038E-03),
     &  (-6.4689E-03,-3.1238E-03),(-6.5579E-03,-3.1853E-03),
     &  (-6.8177E-03,-3.3716E-03),(-7.1673E-03,-3.7054E-03),
     &  (-7.5305E-03,-4.0885E-03),(-7.8973E-03,-4.5640E-03),
     &  (-8.2828E-03,-5.0070E-03),(-8.4180E-03,-5.2232E-03),
     &  (-8.6521E-03,-5.5791E-03),(-9.0521E-03,-6.1624E-03),
     &  (-9.3996E-03,-6.7498E-03),(-9.7807E-03,-7.6160E-03),
     &  (-1.0078E-02,-8.4584E-03),(-1.0349E-02,-9.4926E-03),
     &  (-1.0395E-02,-9.7483E-03),(-1.0512E-02,-1.0504E-02),
     &  (-1.0573E-02,-1.1055E-02),(-1.0589E-02,-1.1642E-02),
     &  (-1.0565E-02,-1.2869E-02),(-1.0344E-02,-1.4228E-02),
     &  (-1.0004E-02,-1.5624E-02),(-9.4068E-03,-1.6896E-02),
     &  (-8.5988E-03,-1.8207E-02),(-7.6613E-03,-1.9561E-02),
     &  (-6.8364E-03,-2.0489E-02),(-6.6022E-03,-2.0751E-02),
     &  (-6.1551E-03,-2.1366E-02),(-6.3521E-03,-2.2192E-02),
     &  (-5.7294E-03,-2.2636E-02),(-5.5108E-03,-2.2973E-02),
     &  (-5.3550E-03,-2.3485E-02),(-5.7749E-03,-2.4376E-02),
     &  (-6.1131E-03,-2.5651E-02),(-6.4715E-03,-2.6524E-02),
     &  (-6.6469E-03,-2.7491E-02),(-6.8331E-03,-2.8714E-02),
     &  (-6.9188E-03,-2.9712E-02),(-6.9976E-03,-3.0626E-02),
     &  (-7.0174E-03,-3.1689E-02),(-7.0176E-03,-3.2614E-02),
     &  (-7.0178E-03,-3.3442E-02),(-6.6370E-03,-3.4614E-02),
     &  (-6.6071E-03,-3.5094E-02),(-6.5767E-03,-3.5590E-02),
     &  (-6.2508E-03,-3.6275E-02),(-5.9456E-03,-3.7105E-02)/

         DATA ((CAS  (I,J), I= 101, 200), J=1,1) /
     &  (-5.6589E-03,-3.7984E-02),(-5.3887E-03,-3.8805E-02),
     &  (-4.9269E-03,-3.9621E-02),(-4.5155E-03,-4.0063E-02),
     &  (-4.0886E-03,-4.0882E-02),(-3.7493E-03,-4.1614E-02),
     &  (-3.2974E-03,-4.2395E-02),(-2.7406E-03,-4.3104E-02),
     &  (-2.1867E-03,-4.3845E-02),(-1.6356E-03,-4.4579E-02),
     &  (-1.0644E-03,-4.5321E-02),(-2.4109E-04,-4.6054E-02),
     &  ( 6.2332E-04,-4.6834E-02),( 1.7442E-03,-4.6307E-02),
     &  ( 2.9546E-03,-4.6445E-02),( 4.3281E-03,-4.6604E-02),
     &  ( 6.2546E-03,-4.6790E-02),( 1.0917E-02,-4.7244E-02),
     &  ( 1.5574E-02,-4.4397E-02),( 1.7294E-02,-4.2854E-02),
     &  ( 1.8559E-02,-4.1618E-02),( 1.9604E-02,-4.0536E-02),
     &  ( 2.0410E-02,-3.9526E-02),( 2.0996E-02,-3.8565E-02),
     &  ( 2.1531E-02,-3.7627E-02),( 2.2021E-02,-3.7545E-02),
     &  ( 2.2429E-02,-3.6740E-02),( 2.2745E-02,-3.5928E-02),
     &  ( 2.2943E-02,-3.5108E-02),( 2.3238E-02,-3.4273E-02),
     &  ( 2.3212E-02,-3.3398E-02),( 2.3525E-02,-3.2519E-02),
     &  ( 2.3525E-02,-3.1619E-02),( 2.3506E-02,-3.0657E-02),
     &  ( 2.3371E-02,-2.9684E-02),( 2.3236E-02,-3.0037E-02),
     &  ( 2.3046E-02,-2.9308E-02),( 2.2860E-02,-2.8543E-02),
     &  ( 2.2730E-02,-2.7990E-02),( 2.2610E-02,-2.7432E-02),
     &  ( 2.2352E-02,-2.6805E-02),( 2.2136E-02,-2.5835E-02),
     &  ( 2.1771E-02,-2.4762E-02),( 2.1439E-02,-2.4705E-02),
     &  ( 2.1063E-02,-2.4050E-02),( 2.0630E-02,-2.3308E-02),
     &  ( 2.0162E-02,-2.2436E-02),( 1.9475E-02,-2.1475E-02),
     &  ( 1.8867E-02,-2.0591E-02),( 1.8200E-02,-1.9572E-02),
     &  ( 1.7398E-02,-1.8772E-02),( 1.6517E-02,-1.7856E-02),
     &  ( 1.6316E-02,-1.7596E-02),( 1.5685E-02,-1.6768E-02),
     &  ( 1.5229E-02,-1.6378E-02),( 1.4831E-02,-1.5929E-02),
     &  ( 1.4602E-02,-1.5427E-02),( 1.4263E-02,-1.4889E-02),
     &  ( 1.4024E-02,-1.3330E-02),( 1.3812E-02,-1.3290E-02),
     &  ( 1.3600E-02,-1.3250E-02),( 1.3240E-02,-1.2571E-02),
     &  ( 1.3092E-02,-1.2377E-02),( 1.2968E-02,-1.2071E-02),
     &  ( 1.2867E-02,-1.1678E-02),( 1.2784E-02,-1.1513E-02),
     &  ( 1.2694E-02,-1.1201E-02),( 1.2650E-02,-1.1021E-02),
     &  ( 1.2374E-02,-1.0179E-02),( 1.2087E-02,-9.4004E-03),
     &  ( 1.1792E-02,-8.7734E-03),( 1.1515E-02,-8.3170E-03),
     &  ( 1.1188E-02,-7.7481E-03),( 1.0862E-02,-7.2181E-03),
     &  ( 1.0512E-02,-6.6766E-03),( 1.0219E-02,-6.2786E-03),
     &  ( 9.8597E-03,-5.8890E-03),( 9.4930E-03,-5.5192E-03),
     &  ( 9.1874E-03,-5.2923E-03),( 9.0099E-03,-5.1814E-03),
     &  ( 8.6714E-03,-4.9413E-03),( 8.5282E-03,-4.8308E-03),
     &  ( 8.1637E-03,-4.5540E-03),( 7.8604E-03,-4.3174E-03),
     &  ( 7.4820E-03,-4.0919E-03),( 7.1451E-03,-3.9128E-03),
     &  ( 6.7262E-03,-3.7253E-03),( 6.3608E-03,-3.5390E-03),
     &  ( 5.9834E-03,-3.4271E-03),( 5.4863E-03,-3.2814E-03),
     &  ( 5.2323E-03,-3.2427E-03),( 5.0357E-03,-3.1958E-03),
     &  ( 4.6556E-03,-3.1021E-03),( 4.4564E-03,-3.0515E-03),
     &  ( 4.2472E-03,-3.0389E-03),( 4.0404E-03,-3.0043E-03),
     &  ( 3.7984E-03,-2.9951E-03),( 3.5445E-03,-2.9608E-03),
     &  ( 3.2781E-03,-2.9445E-03),( 2.6853E-03,-2.8058E-03)/

         DATA ((CAS  (I,J), I= 201, 300), J=1,1) /
     &  ( 1.9522E-03,-2.5036E-03),( 1.5322E-03,-2.4625E-03),
     &  ( 1.3862E-03,-2.4523E-03),( 1.2216E-03,-2.4565E-03),
     &  ( 1.0570E-03,-2.4713E-03),( 8.8610E-04,-2.4862E-03),
     &  ( 7.0979E-04,-2.4770E-03),( 5.2691E-04,-2.4581E-03),
     &  ( 3.4724E-04,-2.4393E-03),( 1.4788E-04,-2.4539E-03),
     &  (-5.3818E-05,-2.4741E-03),(-2.5701E-04,-2.4942E-03),
     &  (-4.6762E-04,-2.5903E-03),(-6.8189E-04,-2.6045E-03),
     &  (-9.0319E-04,-2.5668E-03),(-1.1289E-03,-2.5853E-03),
     &  (-1.3337E-03,-2.6039E-03),(-1.5293E-03,-2.6180E-03),
     &  (-1.7389E-03,-2.6210E-03),(-1.9565E-03,-2.6239E-03),
     &  (-2.1894E-03,-2.6381E-03),(-2.4273E-03,-2.6672E-03),
     &  (-2.6827E-03,-2.6963E-03),(-2.9465E-03,-2.7223E-03),
     &  (-3.2225E-03,-2.7460E-03),(-3.5190E-03,-2.7697E-03),
     &  (-3.7959E-03,-2.8053E-03),(-4.0645E-03,-2.8506E-03),
     &  (-4.2684E-03,-2.9081E-03),(-4.1858E-03,-2.9657E-03),
     &  (-3.5214E-03,-2.9904E-03),(-3.8296E-03,-3.0309E-03),
     &  (-4.6422E-03,-3.0635E-03),(-6.1138E-03,-3.1422E-03),
     &  (-7.1288E-03,-3.2208E-03),(-8.0463E-03,-3.2997E-03),
     &  (-9.1428E-03,-3.3783E-03),(-9.9599E-03,-3.4536E-03),
     &  (-1.0815E-02,-3.7178E-03),(-1.1744E-02,-4.0362E-03),
     &  (-1.2744E-02,-4.3906E-03),(-1.3813E-02,-4.7449E-03),
     &  (-1.4979E-02,-5.1121E-03),(-1.6406E-02,-5.4960E-03),
     &  (-1.7832E-02,-5.8919E-03),(-1.9621E-02,-6.3827E-03),
     &  (-2.1621E-02,-6.8735E-03),(-2.3825E-02,-8.3020E-03),
     &  (-2.6287E-02,-1.0262E-02),(-2.9068E-02,-1.2223E-02),
     &  (-3.2069E-02,-1.4184E-02),(-3.5560E-02,-1.7726E-02),
     &  (-3.9876E-02,-2.1720E-02),(-4.4777E-02,-2.5838E-02),
     &  (-4.6138E-02,-2.7848E-02),(-4.7590E-02,-2.9858E-02),
     &  (-4.9103E-02,-3.2442E-02),(-5.0554E-02,-3.5506E-02),
     &  (-5.1969E-02,-3.9711E-02),(-5.3376E-02,-4.3916E-02),
     &  (-5.4626E-02,-4.8121E-02),(-5.5661E-02,-5.2326E-02),
     &  (-5.6420E-02,-5.6629E-02),(-5.6854E-02,-6.2675E-02),
     &  (-5.6790E-02,-6.8721E-02),(-5.5942E-02,-7.5675E-02),
     &  (-5.3102E-02,-8.6853E-02),(-4.9973E-02,-9.4302E-02),
     &  (-4.7897E-02,-9.8030E-02),(-4.2633E-02,-1.0512E-01),
     &  (-3.5817E-02,-1.1194E-01),(-2.7303E-02,-1.1834E-01),
     &  (-1.7420E-02,-1.2176E-01),(-6.6671E-03,-1.2451E-01),
     &  ( 4.9203E-03,-1.2546E-01),( 1.6436E-02,-1.2541E-01),
     &  ( 2.7295E-02,-1.2229E-01),( 3.7086E-02,-1.1608E-01),
     &  ( 4.5500E-02,-1.0930E-01),( 5.2331E-02,-1.0253E-01),
     &  ( 5.7587E-02,-9.5749E-02),( 6.1347E-02,-8.7967E-02),
     &  ( 6.3932E-02,-8.1168E-02),( 6.5362E-02,-7.4756E-02),
     &  ( 6.6038E-02,-6.8345E-02),( 6.6053E-02,-6.1933E-02),
     &  ( 6.5561E-02,-5.6857E-02),( 6.4747E-02,-5.2367E-02),
     &  ( 6.3699E-02,-4.8108E-02),( 6.2406E-02,-4.4315E-02),
     &  ( 6.1162E-02,-4.1190E-02),( 5.9032E-02,-3.7444E-02),
     &  ( 5.7367E-02,-3.4946E-02),( 5.6964E-02,-3.3697E-02),
     &  ( 5.5494E-02,-3.1199E-02),( 5.4162E-02,-2.9555E-02),
     &  ( 5.3148E-02,-2.8370E-02),( 5.1739E-02,-2.7186E-02),
     &  ( 5.0553E-02,-2.6001E-02),( 4.9396E-02,-2.4816E-02)/

         DATA ((CAS  (I,J), I= 301, 400), J=1,1) /
     &  ( 4.8306E-02,-2.3632E-02),( 4.7268E-02,-2.2447E-02),
     &  ( 4.6321E-02,-2.1262E-02),( 4.5372E-02,-2.0077E-02),
     &  ( 4.2522E-02,-1.7673E-02),( 4.0013E-02,-1.5268E-02),
     &  ( 3.7682E-02,-1.2863E-02),( 3.5583E-02,-1.0829E-02),
     &  ( 3.3600E-02,-9.8859E-03),( 3.1927E-02,-9.3256E-03),
     &  ( 3.0394E-02,-8.7653E-03),( 2.9147E-02,-8.2052E-03),
     &  ( 2.8092E-02,-7.6450E-03),( 2.7128E-02,-7.0847E-03),
     &  ( 2.6158E-02,-6.5246E-03),( 2.5227E-02,-5.9643E-03),
     &  ( 2.4398E-02,-5.5549E-03),( 2.3616E-02,-5.3677E-03),
     &  ( 2.2876E-02,-5.1939E-03),( 2.2228E-02,-5.0250E-03),
     &  ( 2.0768E-02,-4.8565E-03),( 2.0181E-02,-4.6879E-03),
     &  ( 1.9608E-02,-4.5134E-03),( 1.9003E-02,-4.3318E-03),
     &  ( 1.8228E-02,-4.1434E-03),( 1.7059E-02,-4.0438E-03),
     &  ( 1.7214E-02,-4.0296E-03),( 1.7932E-02,-3.9945E-03),
     &  ( 1.7872E-02,-3.9315E-03),( 1.7659E-02,-3.8685E-03),
     &  ( 1.7434E-02,-3.8055E-03),( 1.7208E-02,-3.7425E-03),
     &  ( 1.6983E-02,-3.6795E-03),( 1.6749E-02,-3.6165E-03),
     &  ( 1.6501E-02,-3.5512E-03),( 1.6304E-02,-3.4829E-03),
     &  ( 1.6100E-02,-3.4146E-03),( 1.5901E-02,-3.3462E-03),
     &  ( 1.5710E-02,-3.2779E-03),( 1.5525E-02,-3.2096E-03),
     &  ( 1.5340E-02,-3.1413E-03),( 1.5154E-02,-3.0565E-03),
     &  ( 1.4973E-02,-3.0287E-03),( 1.4777E-02,-3.0008E-03),
     &  ( 1.4611E-02,-2.9729E-03),( 1.4424E-02,-2.9451E-03),
     &  ( 1.4255E-02,-2.9172E-03),( 1.4098E-02,-2.8893E-03),
     &  ( 1.3935E-02,-2.8619E-03),( 1.3788E-02,-2.8370E-03),
     &  ( 1.3640E-02,-2.8120E-03),( 1.3498E-02,-2.7871E-03),
     &  ( 1.3357E-02,-2.7622E-03),( 1.3218E-02,-2.7373E-03),
     &  ( 1.3091E-02,-2.7123E-03),( 1.2965E-02,-2.6757E-03),
     &  ( 1.2611E-02,-2.5557E-03),( 1.1842E-02,-2.4491E-03),
     &  ( 1.0629E-02,-2.3038E-03),( 9.7325E-03,-2.2613E-03),
     &  ( 9.0395E-03,-2.2247E-03),( 8.4841E-03,-2.1493E-03),
     &  ( 8.0076E-03,-2.1184E-03),( 7.5923E-03,-2.0850E-03),
     &  ( 7.2302E-03,-2.1138E-03),( 7.1965E-03,-2.1200E-03),
     &  ( 6.7731E-03,-2.1656E-03),( 6.4853E-03,-2.1910E-03),
     &  ( 6.3873E-03,-2.1882E-03),( 6.1529E-03,-2.2184E-03),
     &  ( 5.9290E-03,-2.2362E-03),( 5.9071E-03,-2.2364E-03),
     &  ( 5.7162E-03,-2.2634E-03),( 5.5118E-03,-2.3017E-03),
     &  ( 5.4138E-03,-2.3271E-03),( 5.3178E-03,-2.3462E-03),
     &  ( 5.1417E-03,-2.4111E-03),( 4.9815E-03,-2.4916E-03),
     &  ( 4.8347E-03,-2.5601E-03),( 4.6996E-03,-2.5974E-03),
     &  ( 4.6203E-03,-2.6418E-03),( 4.5665E-03,-2.6692E-03),
     &  ( 4.4379E-03,-2.7165E-03),( 4.3115E-03,-2.7752E-03),
     &  ( 4.2993E-03,-2.7810E-03),( 4.1967E-03,-2.8853E-03),
     &  ( 4.0977E-03,-2.9786E-03),( 4.0522E-03,-3.0223E-03),
     &  ( 4.0052E-03,-3.0544E-03),( 3.9134E-03,-3.0985E-03),
     &  ( 3.8128E-03,-3.1990E-03),( 3.7132E-03,-3.2629E-03),
     &  ( 3.6856E-03,-3.2951E-03),( 3.6219E-03,-3.4027E-03),
     &  ( 3.5811E-03,-3.4647E-03),( 3.5467E-03,-3.5306E-03),
     &  ( 3.4800E-03,-3.6420E-03),( 3.4104E-03,-3.7041E-03),
     &  ( 3.4029E-03,-3.7098E-03),( 3.3520E-03,-3.7820E-03)/

         DATA ((CAS  (I,J), I= 401, 500), J=1,1) /
     &  ( 3.2623E-03,-4.0155E-03),( 3.2445E-03,-4.1595E-03),
     &  ( 3.2701E-03,-4.2981E-03),( 3.2446E-03,-4.3930E-03),
     &  ( 3.2351E-03,-4.4295E-03),( 3.3002E-03,-4.5706E-03),
     &  ( 3.3099E-03,-4.6192E-03),( 3.3174E-03,-4.6508E-03),
     &  ( 3.3283E-03,-4.6946E-03),( 3.3548E-03,-4.7895E-03),
     &  ( 3.3956E-03,-4.8965E-03),( 3.4476E-03,-4.9890E-03),
     &  ( 3.4539E-03,-4.9963E-03),( 3.5105E-03,-5.0546E-03),
     &  ( 3.5167E-03,-5.0619E-03),( 3.5479E-03,-5.0960E-03),
     &  ( 3.5704E-03,-5.1227E-03),( 3.6316E-03,-5.1617E-03),
     &  ( 3.6385E-03,-5.1665E-03),( 3.6722E-03,-5.2225E-03),
     &  ( 3.6741E-03,-5.2298E-03),( 3.6762E-03,-5.2346E-03),
     &  ( 3.6899E-03,-5.2979E-03),( 3.7020E-03,-5.3587E-03),
     &  ( 3.7043E-03,-5.3709E-03),( 3.7174E-03,-5.4633E-03),
     &  ( 3.7186E-03,-5.4706E-03),( 3.7241E-03,-5.5144E-03),
     &  ( 3.7257E-03,-5.5241E-03),( 3.7391E-03,-5.5752E-03),
     &  ( 3.7489E-03,-5.6141E-03),( 3.7839E-03,-5.7333E-03),
     &  ( 3.7911E-03,-5.7454E-03),( 3.8621E-03,-5.8768E-03),
     &  ( 3.9384E-03,-5.9327E-03),( 3.9825E-03,-5.9571E-03),
     &  ( 3.9928E-03,-5.9595E-03),( 4.1472E-03,-6.1711E-03),
     &  ( 4.1761E-03,-6.1906E-03),( 4.3483E-03,-6.2879E-03),
     &  ( 4.4934E-03,-6.3584E-03),( 4.5547E-03,-6.3876E-03),
     &  ( 4.5971E-03,-6.4071E-03),( 4.6181E-03,-6.4168E-03),
     &  ( 4.8338E-03,-6.3390E-03),( 4.8780E-03,-6.3219E-03),
     &  ( 5.0021E-03,-6.3000E-03),( 5.1154E-03,-6.2806E-03),
     &  ( 5.1689E-03,-6.2417E-03),( 5.3132E-03,-6.0641E-03),
     &  ( 5.4122E-03,-5.8890E-03),( 5.4327E-03,-5.8549E-03),
     &  ( 5.4420E-03,-5.8598E-03),( 5.5030E-03,-5.8865E-03),
     &  ( 5.5270E-03,-5.9011E-03),( 5.5513E-03,-5.9157E-03),
     &  ( 5.6640E-03,-5.6676E-03),( 5.6774E-03,-5.6336E-03),
     &  ( 5.7037E-03,-5.5290E-03),( 5.7135E-03,-5.4609E-03),
     &  ( 5.7131E-03,-5.3587E-03),( 5.7144E-03,-5.3417E-03),
     &  ( 5.7103E-03,-5.2906E-03),( 5.7059E-03,-5.2565E-03),
     &  ( 5.7040E-03,-5.2249E-03),( 5.6820E-03,-5.1592E-03),
     &  ( 5.6562E-03,-5.0765E-03),( 5.6274E-03,-5.0254E-03),
     &  ( 5.5839E-03,-4.9500E-03),( 5.5320E-03,-4.8795E-03),
     &  ( 5.5279E-03,-4.8722E-03),( 5.4398E-03,-4.7773E-03),
     &  ( 5.3635E-03,-4.6995E-03),( 5.2839E-03,-4.6338E-03),
     &  ( 5.2687E-03,-4.6363E-03),( 5.1499E-03,-4.6557E-03),
     &  ( 5.1362E-03,-4.6581E-03),( 5.0994E-03,-4.6508E-03),
     &  ( 5.0874E-03,-4.8333E-03),( 5.1042E-03,-4.7408E-03),
     &  ( 5.1027E-03,-4.7263E-03),( 5.0372E-03,-4.7141E-03),
     &  ( 4.9883E-03,-4.6898E-03),( 4.9522E-03,-4.6703E-03),
     &  ( 4.8475E-03,-4.7117E-03),( 4.7410E-03,-4.7749E-03),
     &  ( 4.7176E-03,-4.7871E-03),( 4.7029E-03,-4.8138E-03),
     &  ( 4.6823E-03,-4.8527E-03),( 4.6777E-03,-4.8552E-03),
     &  ( 4.6680E-03,-4.8625E-03),( 4.6654E-03,-4.8625E-03),
     &  ( 4.6564E-03,-4.8673E-03),( 4.6420E-03,-4.8746E-03),
     &  ( 4.6122E-03,-4.8795E-03),( 4.6071E-03,-4.8819E-03),
     &  ( 4.4768E-03,-4.9208E-03),( 4.3011E-03,-5.0461E-03),
     &  ( 4.3872E-03,-5.2322E-03),( 4.6378E-03,-5.4560E-03)/

         DATA ((CAS  (I,J), I= 501, 600), J=1,1) /
     &  ( 4.7823E-03,-5.5071E-03),( 4.8352E-03,-5.5240E-03),
     &  ( 4.9090E-03,-5.4329E-03),( 4.9036E-03,-5.5068E-03),
     &  ( 4.9269E-03,-5.4923E-03),( 4.9290E-03,-5.4747E-03),
     &  ( 4.8463E-03,-5.4317E-03),( 4.7632E-03,-5.4098E-03),
     &  ( 4.6430E-03,-5.3879E-03),( 4.4933E-03,-5.3933E-03),
     &  ( 4.3168E-03,-5.3952E-03),( 4.0918E-03,-5.3952E-03),
     &  ( 3.8061E-03,-5.3952E-03),( 3.4254E-03,-5.3806E-03),
     &  ( 2.9000E-03,-5.3660E-03),( 2.1492E-03,-5.3521E-03),
     &  ( 1.0111E-03,-5.3514E-03),( 7.1282E-04,-5.3524E-03),
     &  ( 3.8130E-04,-5.3533E-03),( 1.0672E-05,-5.3543E-03),
     &  (-4.0577E-04,-5.3553E-03),(-8.7955E-04,-5.3563E-03),
     &  (-1.4211E-03,-5.3572E-03),(-2.0472E-03,-5.3582E-03),
     &  (-2.1844E-03,-5.3584E-03),(-2.3261E-03,-5.3586E-03),
     &  (-2.4723E-03,-5.3588E-03),(-2.6235E-03,-5.3590E-03),
     &  (-2.7797E-03,-5.3592E-03),(-2.9413E-03,-5.3594E-03),
     &  (-3.1087E-03,-5.3596E-03),(-3.2817E-03,-5.3598E-03),
     &  (-3.4613E-03,-5.3600E-03),(-3.6475E-03,-5.3601E-03),
     &  (-4.5710E-03,-5.3610E-03),(-5.2935E-03,-5.3622E-03),
     &  (-5.6915E-03,-5.3628E-03),(-5.9714E-03,-5.3632E-03),
     &  (-6.2641E-03,-5.3636E-03),(-6.5707E-03,-5.3640E-03),
     &  (-6.8925E-03,-5.3645E-03),(-7.2305E-03,-5.3649E-03),
     &  (-7.5860E-03,-5.3653E-03),(-7.7707E-03,-5.3655E-03),
     &  (-7.9602E-03,-5.3657E-03),(-8.1549E-03,-5.3659E-03),
     &  (-8.3549E-03,-5.3661E-03),(-8.5606E-03,-5.3663E-03),
     &  (-8.7719E-03,-5.3665E-03),(-8.9892E-03,-5.3668E-03),
     &  (-9.2129E-03,-5.3670E-03),(-9.4431E-03,-5.3672E-03),
     &  (-9.6802E-03,-5.3674E-03),(-9.9244E-03,-5.3676E-03),
     &  (-1.0176E-02,-5.3678E-03),(-1.0436E-02,-5.3680E-03),
     &  (-1.0704E-02,-5.3682E-03),(-1.0980E-02,-5.3684E-03),
     &  (-1.1266E-02,-5.3684E-03),(-1.1561E-02,-5.3684E-03),
     &  (-1.1866E-02,-5.3684E-03),(-1.2181E-02,-5.3684E-03),
     &  (-1.2508E-02,-5.3684E-03),(-1.2846E-02,-5.3684E-03),
     &  (-1.3196E-02,-5.3684E-03),(-1.3560E-02,-5.3684E-03),
     &  (-1.3937E-02,-5.3684E-03),(-1.4329E-02,-5.3684E-03),
     &  (-1.4736E-02,-5.3684E-03),(-1.5160E-02,-5.3684E-03),
     &  (-1.5600E-02,-5.3684E-03),(-1.6060E-02,-5.3684E-03),
     &  (-1.6539E-02,-5.3684E-03),(-1.7038E-02,-5.3674E-03),
     &  (-1.7560E-02,-5.3665E-03),(-1.8106E-02,-5.3655E-03),
     &  (-1.8677E-02,-5.3645E-03),(-1.9275E-02,-5.3636E-03),
     &  (-1.9902E-02,-5.3626E-03),(-2.0561E-02,-5.3616E-03),
     &  (-2.1254E-02,-5.3606E-03),(-2.1983E-02,-5.3597E-03),
     &  (-2.2751E-02,-5.3587E-03),(-2.3151E-02,-5.3591E-03),
     &  (-2.3562E-02,-5.3595E-03),(-2.3985E-02,-5.3600E-03),
     &  (-2.4420E-02,-5.3604E-03),(-2.4867E-02,-5.3608E-03),
     &  (-2.5328E-02,-5.3612E-03),(-2.5803E-02,-5.3617E-03),
     &  (-2.6292E-02,-5.3621E-03),(-2.6795E-02,-5.3625E-03),
     &  (-2.7315E-02,-5.3629E-03),(-2.7852E-02,-5.3634E-03),
     &  (-2.8405E-02,-5.3638E-03),(-2.8978E-02,-5.3642E-03),
     &  (-2.9569E-02,-5.3646E-03),(-3.0180E-02,-5.3651E-03),
     &  (-3.0812E-02,-5.3655E-03),(-3.1467E-02,-5.3659E-03)/

         DATA ((CAS  (I,J), I= 601, 700), J=1,1) /
     &  (-3.2144E-02,-5.3664E-03),(-3.2847E-02,-5.3668E-03),
     &  (-3.3576E-02,-5.3672E-03),(-3.4331E-02,-5.3676E-03),
     &  (-3.5117E-02,-5.3681E-03),(-3.5933E-02,-5.3685E-03),
     &  (-3.6782E-02,-5.3689E-03),(-3.7667E-02,-5.3693E-03),
     &  (-3.8587E-02,-5.3698E-03),(-3.9547E-02,-5.3702E-03),
     &  (-4.0550E-02,-5.3706E-03),(-4.1596E-02,-5.3710E-03),
     &  (-4.2691E-02,-5.3715E-03),(-4.3837E-02,-5.3719E-03),
     &  (-4.5038E-02,-5.3723E-03),(-4.6298E-02,-5.3727E-03),
     &  (-4.7620E-02,-5.3732E-03),(-4.9012E-02,-5.3736E-03),
     &  (-5.0477E-02,-5.3740E-03),(-5.2022E-02,-5.3744E-03),
     &  (-5.3652E-02,-5.3749E-03),(-5.6095E-02,-5.3755E-03),
     &  (-5.7204E-02,-5.3757E-03),(-5.9142E-02,-5.3754E-03),
     &  (-6.1202E-02,-5.3750E-03),(-6.3397E-02,-5.3746E-03),
     &  (-6.5738E-02,-5.3743E-03),(-6.8243E-02,-5.3739E-03),
     &  (-7.0928E-02,-5.3735E-03),(-7.3813E-02,-5.3732E-03),
     &  (-7.6923E-02,-5.3728E-03),(-8.0284E-02,-5.3724E-03),
     &  (-8.3928E-02,-5.3721E-03),(-8.7893E-02,-5.3717E-03),
     &  (-9.1059E-02,-5.3714E-03),(-1.0093E-01,-5.3707E-03),
     &  (-1.1303E-01,-5.3700E-03),(-1.2821E-01,-5.3692E-03),
     &  (-1.4784E-01,-5.3685E-03),(-1.7423E-01,-5.3680E-03),
     &  (-2.1168E-01,-5.3675E-03),(-2.7141E-01,-5.3670E-03),
     &  (-3.6380E-01,-1.1494E-02),(-5.5866E-01,-1.9710E-02),
     &  (-1.1913E+00,-7.0103E-02),(-1.2613E+00,-7.7923E-02),
     &  (-1.3400E+00,-8.7249E-02),(-1.4317E+00,-9.8492E-02),
     &  (-1.5307E+00,-1.1222E-01),(-1.6478E+00,-1.2921E-01),
     &  (-1.7840E+00,-1.5059E-01),(-1.9445E+00,-1.7801E-01),
     &  (-2.1364E+00,-2.1396E-01),(-2.3697E+00,-2.6239E-01),
     &  (-2.6592E+00,-3.2978E-01),(-3.0289E+00,-4.2740E-01),
     &  (-3.5115E+00,-5.7628E-01),(-4.1722E+00,-8.1919E-01),
     &  (-4.2517E+00,-8.5160E-01),(-5.3824E+00,-1.7968E+00),
     &  (-7.4123E+00,-2.8063E+00),(-8.4988E+00,-3.8763E+00),
     &  (-9.1331E+00,-5.0527E+00),(-1.0106E+01,-6.1640E+00),
     &  (-1.0671E+01,-7.3290E+00),(-1.1083E+01,-8.4382E+00),
     &  (-1.1419E+01,-9.7627E+00),(-9.3235E+00,-1.0860E+01),
     &  (-1.1651E+01,-1.2094E+01),(-1.1618E+01,-1.3184E+01),
     &  (-1.1484E+01,-1.4364E+01),(-1.1300E+01,-1.5303E+01),
     &  (-1.0916E+01,-1.6617E+01),(-1.0460E+01,-1.7294E+01),
     &  (-9.7595E+00,-1.8323E+01),(-9.5438E+00,-1.9353E+01),
     &  (-9.0527E+00,-2.0031E+01),(-8.1958E+00,-2.1014E+01),
     &  (-7.5442E+00,-2.1636E+01),(-6.8299E+00,-2.2220E+01),
     &  (-6.0560E+00,-2.2758E+01),(-5.2268E+00,-2.3241E+01),
     &  (-4.3480E+00,-2.3659E+01),(-3.6618E+00,-2.4004E+01),
     &  (-2.4861E+00,-2.4269E+01),(-1.5007E+00,-2.4450E+01),
     &  (-4.9887E-01,-2.4541E+01),(-4.3396E-01,-2.4541E+01),
     &  ( 2.0059E+00,-2.4371E+01),( 2.9643E+00,-2.4147E+01),
     &  ( 4.3594E+00,-2.3659E+01),( 4.8907E+00,-2.3008E+01),
     &  ( 7.8179E+00,-2.0693E+01),( 1.0135E+01,-1.7980E+01),
     &  ( 1.0797E+01,-1.6955E+01),( 1.1333E+01,-1.5953E+01),
     &  ( 1.1311E+01,-1.5304E+01),( 1.1497E+01,-1.4365E+01),
     &  ( 1.1580E+01,-1.3764E+01),( 1.1634E+01,-1.3186E+01)/

         DATA ((CAS  (I,J), I= 701, 800), J=1,1) /
     &  ( 1.1662E+01,-1.2629E+01),( 9.0927E+00,-1.2095E+01),
     &  ( 9.4778E+00,-1.1585E+01),( 9.8555E+00,-1.1097E+01),
     &  ( 1.1568E+01,-1.0631E+01),( 1.1504E+01,-1.0187E+01),
     &  ( 1.1429E+01,-9.7639E+00),( 1.1342E+01,-9.3615E+00),
     &  ( 1.1196E+01,-8.7943E+00),( 1.1090E+01,-8.4393E+00),
     &  ( 1.0920E+01,-7.9396E+00),( 1.0742E+01,-7.4767E+00),
     &  ( 1.0620E+01,-7.1871E+00),( 1.0372E+01,-6.6503E+00),
     &  ( 1.0247E+01,-6.2818E+00),( 9.6306E+00,-5.8316E+00),
     &  ( 9.4301E+00,-5.4237E+00),( 9.3766E+00,-4.9666E+00),
     &  ( 9.0775E+00,-4.5608E+00),( 8.6759E+00,-4.0662E+00),
     &  ( 8.2967E+00,-3.6437E+00),( 7.8426E+00,-3.1865E+00),
     &  ( 7.3375E+00,-2.7316E+00),( 6.6017E+00,-2.2211E+00),
     &  ( 5.9526E+00,-1.7195E+00),( 5.0066E+00,-1.1970E+00),
     &  ( 4.1839E+00,-8.1959E-01),( 3.5236E+00,-5.7662E-01),
     &  ( 3.0399E+00,-4.2769E-01),( 2.6714E+00,-3.3003E-01),
     &  ( 2.3819E+00,-2.6262E-01),( 2.1486E+00,-2.1416E-01),
     &  ( 1.9567E+00,-1.7819E-01),( 1.7961E+00,-1.5076E-01),
     &  ( 1.6599E+00,-1.2936E-01),( 1.5429E+00,-1.1236E-01),
     &  ( 1.4412E+00,-9.8627E-02),( 1.3522E+00,-8.7375E-02),
     &  ( 1.2735E+00,-7.8042E-02),( 1.2035E+00,-7.0215E-02),
     &  ( 1.1408E+00,-6.3587E-02),( 1.0843E+00,-5.7925E-02),
     &  ( 1.0332E+00,-5.3050E-02),( 9.8666E-01,-4.8823E-02),
     &  ( 5.2376E-01,-1.7464E-02),( 3.5787E-01,-1.0948E-02),
     &  ( 2.7275E-01,-8.5662E-03),( 2.2227E-01,-7.4380E-03),
     &  ( 1.8526E-01,-5.3627E-03),( 1.5977E-01,-5.3624E-03),
     &  ( 1.4070E-01,-5.3621E-03),( 1.2587E-01,-5.3618E-03),
     &  ( 1.1400E-01,-5.3615E-03),( 1.0427E-01,-5.3613E-03),
     &  ( 1.0312E-01,-5.3612E-03),( 9.5096E-02,-5.3609E-03),
     &  ( 8.8300E-02,-5.3606E-03),( 8.2470E-02,-5.3603E-03),
     &  ( 7.7415E-02,-5.3601E-03),( 7.2989E-02,-5.3598E-03),
     &  ( 6.9082E-02,-5.3595E-03),( 6.5607E-02,-5.3592E-03),
     &  ( 6.2496E-02,-5.3589E-03),( 5.9695E-02,-5.3586E-03),
     &  ( 5.7159E-02,-5.3583E-03),( 5.4853E-02,-5.3580E-03),
     &  ( 5.2746E-02,-5.3577E-03),( 5.0815E-02,-5.3574E-03),
     &  ( 4.9038E-02,-5.3571E-03),( 4.7397E-02,-5.3568E-03),
     &  ( 4.5877E-02,-5.3565E-03),( 4.4465E-02,-5.3563E-03),
     &  ( 4.3150E-02,-5.3560E-03),( 4.1923E-02,-5.3557E-03),
     &  ( 4.0774E-02,-5.3554E-03),( 3.9697E-02,-5.3551E-03),
     &  ( 3.8685E-02,-5.3548E-03),( 3.7733E-02,-5.3545E-03),
     &  ( 3.6834E-02,-5.3542E-03),( 3.5985E-02,-5.3539E-03),
     &  ( 3.5182E-02,-5.3536E-03),( 3.4421E-02,-5.3533E-03),
     &  ( 3.3699E-02,-5.3530E-03),( 3.3013E-02,-5.3528E-03),
     &  ( 3.2360E-02,-5.3525E-03),( 3.1738E-02,-5.3522E-03),
     &  ( 3.1145E-02,-5.3519E-03),( 3.0578E-02,-5.3516E-03),
     &  ( 3.0037E-02,-5.3513E-03),( 2.9519E-02,-5.3510E-03),
     &  ( 2.9023E-02,-5.3507E-03),( 2.8548E-02,-5.3504E-03),
     &  ( 2.8092E-02,-5.3501E-03),( 2.7654E-02,-5.3498E-03),
     &  ( 2.7234E-02,-5.3495E-03),( 2.6829E-02,-5.3493E-03),
     &  ( 2.6439E-02,-5.3490E-03),( 2.6064E-02,-5.3487E-03),
     &  ( 2.5702E-02,-5.3484E-03),( 2.5353E-02,-5.3481E-03)/

         DATA ((CAS  (I,J), I= 801, 900), J=1,1) /
     &  ( 2.5017E-02,-5.3478E-03),( 2.4692E-02,-5.3475E-03),
     &  ( 2.4378E-02,-5.3472E-03),( 2.4075E-02,-5.3469E-03),
     &  ( 2.3782E-02,-5.3466E-03),( 2.3497E-02,-5.3463E-03),
     &  ( 2.3222E-02,-5.3460E-03),( 2.2956E-02,-5.3457E-03),
     &  ( 2.2698E-02,-5.3455E-03),( 2.2447E-02,-5.3452E-03),
     &  ( 2.2204E-02,-5.3449E-03),( 2.1968E-02,-5.3446E-03),
     &  ( 2.1739E-02,-5.3443E-03),( 2.1516E-02,-5.3440E-03),
     &  ( 2.1300E-02,-5.3437E-03),( 2.1090E-02,-5.3434E-03),
     &  ( 2.0886E-02,-5.3431E-03),( 2.0687E-02,-5.3428E-03),
     &  ( 2.0494E-02,-5.3425E-03),( 2.0305E-02,-5.3422E-03),
     &  ( 2.0122E-02,-5.3420E-03),( 1.9944E-02,-5.3417E-03),
     &  ( 1.9770E-02,-5.3414E-03),( 1.9601E-02,-5.3411E-03),
     &  ( 1.9437E-02,-5.3408E-03),( 1.9276E-02,-5.3405E-03),
     &  ( 1.9120E-02,-5.3402E-03),( 1.8968E-02,-5.3399E-03),
     &  ( 1.8820E-02,-5.3396E-03),( 1.8676E-02,-5.3393E-03),
     &  ( 1.8536E-02,-5.3390E-03),( 1.8400E-02,-5.3387E-03),
     &  ( 1.8268E-02,-5.3385E-03),( 1.8140E-02,-5.3382E-03),
     &  ( 1.8016E-02,-5.3379E-03),( 1.7897E-02,-5.3376E-03),
     &  ( 1.7783E-02,-5.3373E-03),( 1.7496E-02,-5.3370E-03),
     &  ( 1.7373E-02,-5.3367E-03),( 1.7253E-02,-5.3364E-03),
     &  ( 1.7134E-02,-5.3361E-03),( 1.7018E-02,-5.3358E-03),
     &  ( 1.6904E-02,-5.3355E-03),( 1.6792E-02,-5.3352E-03),
     &  ( 1.6682E-02,-5.3349E-03),( 1.6574E-02,-5.3347E-03),
     &  ( 1.6480E-02,-5.3344E-03),( 1.6363E-02,-5.3353E-03),
     &  ( 1.6260E-02,-5.3362E-03),( 1.6161E-02,-5.3371E-03),
     &  ( 1.6063E-02,-5.3381E-03),( 1.5968E-02,-5.3390E-03),
     &  ( 1.5874E-02,-5.3399E-03),( 1.5782E-02,-5.3408E-03),
     &  ( 1.5691E-02,-5.3418E-03),( 1.5603E-02,-5.3427E-03),
     &  ( 1.5516E-02,-5.3436E-03),( 1.2881E-02,-5.3806E-03),
     &  ( 1.1038E-02,-5.4268E-03),( 9.4180E-03,-5.4183E-03),
     &  ( 8.8804E-03,-5.4146E-03),( 7.9843E-03,-5.4098E-03),
     &  ( 7.0413E-03,-5.4122E-03),( 6.6035E-03,-5.4157E-03),
     &  ( 6.1017E-03,-5.4192E-03),( 6.0361E-03,-5.4199E-03),
     &  ( 5.7016E-03,-5.4314E-03),( 5.5016E-03,-5.4233E-03),
     &  ( 5.4646E-03,-5.4219E-03),( 4.9474E-03,-5.4243E-03),
     &  ( 4.2546E-03,-5.4268E-03),( 3.9834E-03,-5.4268E-03),
     &  ( 3.6704E-03,-5.4582E-03),( 3.3737E-03,-5.4536E-03),
     &  ( 3.0028E-03,-5.4497E-03),( 2.5840E-03,-5.4458E-03),
     &  ( 2.1099E-03,-5.4419E-03),( 1.5671E-03,-5.4380E-03),
     &  ( 9.3734E-04,-5.4341E-03),( 1.9456E-04,-5.4377E-03),
     &  (-6.9866E-04,-5.4414E-03),(-1.7966E-03,-5.4450E-03),
     &  (-3.1839E-03,-5.4487E-03),(-3.8484E-03,-5.4531E-03),
     &  (-4.5932E-03,-5.4574E-03),(-5.4341E-03,-5.4618E-03),
     &  (-6.3916E-03,-5.4662E-03),(-7.4926E-03,-5.4706E-03),
     &  (-8.7726E-03,-5.4754E-03),(-9.4945E-03,-5.4779E-03),
     &  (-1.0281E-02,-5.4803E-03),(-1.1141E-02,-5.4827E-03),
     &  (-1.2086E-02,-5.4852E-03),(-1.3128E-02,-5.4876E-03),
     &  (-1.4285E-02,-5.4900E-03),(-1.5575E-02,-5.4925E-03),
     &  (-1.7024E-02,-5.4949E-03),(-1.8663E-02,-5.4973E-03),
     &  (-2.0533E-02,-5.4910E-03),(-2.2686E-02,-5.4847E-03)/

         DATA ((CAS  (I,J), I= 901,1000), J=1,1) /
     &  (-2.5193E-02,-5.4784E-03),(-2.8018E-02,-5.4724E-03),
     &  (-2.9866E-02,-5.4689E-03),(-3.1916E-02,-5.4654E-03),
     &  (-3.4201E-02,-5.4620E-03),(-3.6766E-02,-5.4585E-03),
     &  (-3.9665E-02,-5.4551E-03),(-4.2866E-02,-5.4516E-03),
     &  (-4.6657E-02,-5.4481E-03),(-5.1063E-02,-5.4447E-03),
     &  (-5.6248E-02,-5.4412E-03),(-6.2581E-02,-5.4377E-03),
     &  (-7.0120E-02,-5.4343E-03),(-7.9478E-02,-5.4308E-03),
     &  (-9.1408E-02,-5.4273E-03),(-1.0715E-01,-5.4239E-03),
     &  (-1.2888E-01,-5.4204E-03),(-1.6089E-01,-5.4169E-03),
     &  (-2.1289E-01,-5.4135E-03),(-3.1306E-01,-5.4100E-03),
     &  (-4.8759E-01,-5.4074E-03),(-6.0542E-01,-5.4065E-03),
     &  (-7.7084E-01,-5.4058E-03),(-1.0943E+00,-3.9477E-01),
     &  (-1.1740E+00,-4.8954E-01),(-1.2454E+00,-5.8271E-01),
     &  (-1.3049E+00,-6.7624E-01),(-1.3605E+00,-7.6931E-01),
     &  (-1.4113E+00,-8.5980E-01),(-1.4532E+00,-9.5317E-01),
     &  (-1.4889E+00,-1.0468E+00),(-1.5157E+00,-1.1303E+00),
     &  (-1.5401E+00,-1.2223E+00),(-1.5593E+00,-1.3146E+00),
     &  (-1.5732E+00,-1.4057E+00),(-1.5820E+00,-1.4938E+00),
     &  (-1.5862E+00,-1.5879E+00),(-1.5860E+00,-1.6654E+00),
     &  (-1.5813E+00,-1.7584E+00),(-1.5726E+00,-1.8438E+00),
     &  (-1.5588E+00,-1.9327E+00),(-1.5395E+00,-2.0249E+00),
     &  (-1.5181E+00,-2.1063E+00),(-1.5309E+00,-2.2037E+00),
     &  (-1.4539E+00,-2.2888E+00),(-1.4152E+00,-2.3750E+00),
     &  (-1.3701E+00,-2.4618E+00),(-1.3088E+00,-2.5628E+00),
     &  (-1.2479E+00,-2.6485E+00),(-1.1682E+00,-2.7463E+00),
     &  (-1.0917E+00,-2.8271E+00),(-9.7807E-01,-2.9289E+00),
     &  (-8.5143E-01,-3.0216E+00),(-6.5779E-01,-3.1296E+00),
     &  (-4.8502E-01,-3.1975E+00),(-2.8184E-01,-3.2478E+00),
     &  (-1.7732E-01,-3.2621E+00),(-7.1790E-02,-3.2690E+00),
     &  ( 3.4035E-02,-3.2682E+00),( 3.2568E-01,-3.2263E+00),
     &  ( 5.4247E-01,-3.1547E+00),( 6.8939E-01,-3.0838E+00),
     &  ( 8.2518E-01,-2.9997E+00),( 9.0623E-01,-2.9292E+00),
     &  ( 1.0073E+00,-2.8406E+00),( 1.0864E+00,-2.7603E+00),
     &  ( 1.1695E+00,-2.6631E+00),( 1.2328E+00,-2.5776E+00),
     &  ( 1.2933E+00,-2.4911E+00),( 1.3406E+00,-2.4043E+00),
     &  ( 1.3893E+00,-2.3035E+00),( 1.4227E+00,-2.2182E+00),
     &  ( 1.4535E+00,-2.1205E+00),( 1.4788E+00,-2.0253E+00),
     &  ( 1.4978E+00,-1.9331E+00),( 1.5127E+00,-1.8318E+00),
     &  ( 1.5206E+00,-1.7470E+00),( 1.5244E+00,-1.6433E+00),
     &  ( 1.5223E+00,-1.5458E+00),( 1.5143E+00,-1.4445E+00),
     &  ( 1.4997E+00,-1.3416E+00),( 1.4791E+00,-1.2389E+00),
     &  ( 1.4544E+00,-1.1454E+00),( 1.4197E+00,-1.0406E+00),
     &  ( 1.3774E+00,-9.3614E-01),( 1.3282E+00,-8.3502E-01),
     &  ( 1.2684E+00,-7.3127E-01),( 1.1978E+00,-6.2737E-01),
     &  ( 1.1150E+00,-5.2437E-01),( 1.0155E+00,-4.2027E-01),
     &  ( 9.6070E-01,-3.7035E-01),( 8.9590E-01,-3.1707E-01),
     &  ( 8.1867E-01,-2.6075E-01),( 7.3204E-01,-2.0578E-01),
     &  ( 6.7999E-01,-1.7653E-01),( 5.7304E-01,-1.2452E-01),
     &  ( 5.3596E-01,-1.0886E-01),( 4.5693E-01,-7.9290E-02),
     &  ( 5.4976E-01,-5.3927E-03),( 2.1215E-01,-5.3892E-03)/

         DATA ((CAS  (I,J), I=1001,1100), J=1,1) /
     &  ( 1.6564E-01,-5.3857E-03),( 1.3677E-01,-5.3823E-03),
     &  ( 1.1691E-01,-5.3788E-03),( 1.0237E-01,-5.3753E-03),
     &  ( 9.1247E-02,-5.3719E-03),( 8.2455E-02,-5.3684E-03),
     &  ( 7.5327E-02,-5.3649E-03),( 6.9426E-02,-5.3615E-03),
     &  ( 6.4457E-02,-5.3588E-03),( 6.0202E-02,-5.3594E-03),
     &  ( 5.6538E-02,-5.4564E-03),( 5.3392E-02,-5.4583E-03),
     &  ( 5.0607E-02,-5.4602E-03),( 4.8133E-02,-5.4621E-03),
     &  ( 4.5923E-02,-5.4640E-03),( 4.3943E-02,-5.4660E-03),
     &  ( 4.0793E-02,-5.4696E-03),( 3.6869E-02,-5.4754E-03),
     &  ( 3.4767E-02,-5.4841E-03),( 3.1323E-02,-5.5116E-03),
     &  ( 2.8618E-02,-5.5395E-03),( 2.5948E-02,-5.5752E-03),
     &  ( 2.2138E-02,-5.6410E-03),( 1.7866E-02,-5.7542E-03),
     &  ( 1.5190E-02,-5.9152E-03),( 1.3929E-02,-6.1157E-03),
     &  ( 1.3310E-02,-6.2746E-03),( 1.2837E-02,-6.4089E-03),
     &  ( 1.2487E-02,-6.5269E-03),( 1.2214E-02,-6.6336E-03),
     &  ( 1.1991E-02,-6.7318E-03),( 1.1806E-02,-6.8047E-03),
     &  ( 1.1647E-02,-6.8673E-03),( 1.1509E-02,-6.9285E-03),
     &  ( 1.1398E-02,-6.9885E-03),( 1.1293E-02,-7.0476E-03),
     &  ( 1.1198E-02,-7.1061E-03),( 1.1111E-02,-7.1639E-03),
     &  ( 1.1031E-02,-7.2214E-03),( 1.0956E-02,-7.2788E-03),
     &  ( 1.0885E-02,-7.3362E-03),( 1.0806E-02,-7.3937E-03),
     &  ( 1.0746E-02,-7.4518E-03),( 1.0691E-02,-7.5103E-03),
     &  ( 1.0638E-02,-7.5697E-03),( 1.0589E-02,-7.6301E-03),
     &  ( 1.0543E-02,-7.6919E-03),( 1.0499E-02,-7.7553E-03),
     &  ( 1.0458E-02,-7.8209E-03),( 1.0419E-02,-7.8891E-03),
     &  ( 1.0382E-02,-7.9606E-03),( 1.0347E-02,-8.0364E-03),
     &  ( 1.0314E-02,-8.1179E-03),( 1.0284E-02,-8.2070E-03),
     &  ( 1.0257E-02,-8.3070E-03),( 1.0233E-02,-8.4249E-03),
     &  ( 1.0216E-02,-8.5777E-03),( 1.0238E-02,-8.9472E-03),
     &  ( 1.0367E-02,-9.3196E-03),( 1.0460E-02,-9.4724E-03),
     &  ( 1.0552E-02,-9.5869E-03),( 1.0644E-02,-9.6800E-03),
     &  ( 1.0739E-02,-9.7579E-03),( 1.0836E-02,-9.8234E-03),
     &  ( 1.0936E-02,-9.8778E-03),( 1.1041E-02,-9.9221E-03),
     &  ( 1.1149E-02,-9.9565E-03),( 1.1260E-02,-9.9807E-03),
     &  ( 1.1374E-02,-9.9946E-03),( 1.1492E-02,-9.9977E-03),
     &  ( 1.1613E-02,-9.9894E-03),( 1.1738E-02,-9.9690E-03),
     &  ( 1.1862E-02,-9.9357E-03),( 1.1990E-02,-9.8886E-03),
     &  ( 1.2109E-02,-9.8270E-03),( 1.2227E-02,-9.7498E-03),
     &  ( 1.2341E-02,-9.6563E-03),( 1.2448E-02,-9.5458E-03),
     &  ( 1.2547E-02,-9.4177E-03),( 1.2635E-02,-9.2713E-03),
     &  ( 1.2708E-02,-9.1068E-03),( 1.2765E-02,-8.9245E-03),
     &  ( 1.2800E-02,-8.7244E-03),( 1.2795E-02,-8.5083E-03),
     &  ( 1.2789E-02,-8.2774E-03),( 1.2734E-02,-8.0340E-03),
     &  ( 1.2638E-02,-7.7810E-03),( 1.2493E-02,-7.5218E-03),
     &  ( 1.2291E-02,-7.2607E-03),( 1.1999E-02,-7.0024E-03),
     &  ( 1.1609E-02,-6.7531E-03),( 1.1033E-02,-6.5615E-03),
     &  ( 1.0864E-02,-6.5268E-03),( 1.0412E-02,-6.4716E-03),
     &  ( 9.7472E-03,-6.4718E-03),( 9.6789E-03,-6.4814E-03),
     &  ( 9.2230E-03,-6.5595E-03),( 9.0383E-03,-6.5943E-03),
     &  ( 8.8915E-03,-6.6658E-03),( 8.7673E-03,-6.7530E-03)/

         DATA ((CAS  (I,J), I=1101,1200), J=1,1) /
     &  ( 8.5734E-03,-6.7314E-03),( 8.3676E-03,-6.9444E-03),
     &  ( 8.3239E-03,-7.0868E-03),( 8.3183E-03,-7.1270E-03),
     &  ( 8.2857E-03,-7.2480E-03),( 8.2213E-03,-7.3251E-03),
     &  ( 8.1865E-03,-7.4506E-03),( 8.1978E-03,-7.5761E-03),
     &  ( 8.3342E-03,-7.6175E-03),( 8.3201E-03,-7.4905E-03),
     &  ( 8.1721E-03,-7.4715E-03),( 8.1128E-03,-7.5065E-03),
     &  ( 7.9973E-03,-7.3942E-03),( 7.8983E-03,-7.4516E-03),
     &  ( 7.7992E-03,-7.8485E-03),( 7.7001E-03,-7.9186E-03),
     &  ( 7.6300E-03,-7.8252E-03),( 7.4556E-03,-7.8194E-03),
     &  ( 7.1940E-03,-7.8398E-03),( 6.8335E-03,-7.9128E-03),
     &  ( 6.6032E-03,-7.9371E-03),( 6.2503E-03,-8.4100E-03),
     &  ( 6.0197E-03,-9.1193E-03),( 6.1403E-03,-1.0176E-02),
     &  ( 6.6922E-03,-1.0880E-02),( 7.0697E-03,-1.0939E-02),
     &  ( 7.9208E-03,-1.1086E-02),( 8.2794E-03,-1.1090E-02),
     &  ( 8.5730E-03,-1.0630E-02),( 8.9004E-03,-1.0486E-02),
     &  ( 9.1543E-03,-1.0094E-02),( 9.1021E-03,-9.8320E-03),
     &  ( 9.0353E-03,-9.8616E-03),( 9.1666E-03,-9.9507E-03),
     &  ( 9.5490E-03,-9.6067E-03),( 9.2689E-03,-9.0463E-03),
     &  ( 8.9190E-03,-9.3032E-03),( 8.9806E-03,-9.5007E-03),
     &  ( 9.0991E-03,-9.5795E-03),( 9.1830E-03,-9.6057E-03),
     &  ( 9.3048E-03,-9.4841E-03),( 9.3202E-03,-9.3017E-03),
     &  ( 9.2368E-03,-9.1630E-03),( 9.0590E-03,-9.0521E-03),
     &  ( 8.9527E-03,-9.0244E-03),( 8.7493E-03,-9.2470E-03),
     &  ( 8.7241E-03,-9.6179E-03),( 8.8599E-03,-9.7962E-03),
     &  ( 9.0134E-03,-9.9159E-03),( 9.2050E-03,-1.0036E-02),
     &  ( 9.2895E-03,-1.0065E-02),( 9.4684E-03,-9.9677E-03),
     &  ( 9.5439E-03,-9.8699E-03),( 9.4406E-03,-9.7875E-03),
     &  ( 9.5395E-03,-1.0075E-02),( 9.7624E-03,-1.0219E-02),
     &  ( 9.9991E-03,-1.0125E-02),( 1.0239E-02,-9.9363E-03),
     &  ( 1.0382E-02,-9.7955E-03),( 1.0503E-02,-9.6724E-03),
     &  ( 1.0653E-02,-9.5907E-03),( 1.0767E-02,-9.5498E-03),
     &  ( 1.0849E-02,-9.4739E-03),( 1.0937E-02,-9.3601E-03),
     &  ( 1.1061E-02,-9.1703E-03),( 1.1169E-02,-8.9514E-03),
     &  ( 1.1263E-02,-8.7763E-03),( 1.1359E-02,-8.6318E-03),
     &  ( 1.1202E-02,-7.9269E-03),( 1.0713E-02,-7.8184E-03),
     &  ( 1.0606E-02,-7.9113E-03),( 1.0682E-02,-8.1901E-03),
     &  ( 1.0842E-02,-7.8529E-03),( 1.0653E-02,-7.6214E-03),
     &  ( 1.0651E-02,-7.6009E-03),( 1.0785E-02,-7.5941E-03),
     &  ( 1.0871E-02,-7.0512E-03),( 1.0133E-02,-6.2198E-03),
     &  ( 9.3481E-03,-6.7111E-03),( 9.0856E-03,-7.0468E-03),
     &  ( 8.8972E-03,-7.4803E-03),( 9.1943E-03,-7.6330E-03),
     &  ( 9.2008E-03,-7.5674E-03),( 9.0758E-03,-7.5776E-03),
     &  ( 8.9659E-03,-7.5844E-03),( 8.9019E-03,-7.6029E-03),
     &  ( 8.8110E-03,-7.6306E-03),( 8.6898E-03,-7.6335E-03),
     &  ( 8.3521E-03,-7.9838E-03),( 8.3749E-03,-8.0709E-03),
     &  ( 8.4035E-03,-8.2144E-03),( 8.3422E-03,-8.3506E-03),
     &  ( 8.3198E-03,-8.4002E-03),( 8.3062E-03,-8.6911E-03),
     &  ( 8.3573E-03,-8.9684E-03),( 8.3829E-03,-9.0609E-03),
     &  ( 8.3970E-03,-9.1090E-03),( 8.4351E-03,-9.2535E-03),
     &  ( 8.4221E-03,-9.3017E-03),( 8.4633E-03,-9.5420E-03)/

         DATA ((CAS  (I,J), I=1201,1300), J=1,1) /
     &  ( 8.8424E-03,-9.9025E-03),( 9.2472E-03,-9.7157E-03),
     &  ( 9.3611E-03,-9.5912E-03),( 9.3948E-03,-9.5391E-03),
     &  ( 9.4151E-03,-9.3829E-03),( 9.2849E-03,-9.5070E-03),
     &  ( 9.5521E-03,-9.7712E-03),( 9.8822E-03,-9.5975E-03),
     &  ( 1.0008E-02,-9.4817E-03),( 1.0061E-02,-9.4107E-03),
     &  ( 1.0151E-02,-9.1976E-03),( 1.0165E-02,-9.1266E-03),
     &  ( 1.0074E-02,-8.7763E-03),( 9.9152E-03,-8.7427E-03),
     &  ( 9.8601E-03,-8.7228E-03),( 9.9711E-03,-8.7301E-03),
     &  ( 9.9703E-03,-8.6624E-03),( 9.6459E-03,-8.5160E-03),
     &  ( 9.6611E-03,-8.7082E-03),( 9.8280E-03,-8.7276E-03),
     &  ( 9.7919E-03,-8.3141E-03),( 9.6176E-03,-8.3384E-03),
     &  ( 9.5320E-03,-8.6474E-03),( 9.5641E-03,-8.7447E-03),
     &  ( 9.6696E-03,-8.7374E-03),( 9.6761E-03,-8.7325E-03),
     &  ( 9.9131E-03,-9.0074E-03),( 1.0034E-02,-8.7057E-03),
     &  ( 1.0291E-02,-9.2020E-03),( 1.0563E-02,-8.8684E-03),
     &  ( 1.0602E-02,-8.6838E-03),( 1.0637E-02,-8.8020E-03),
     &  ( 1.0648E-02,-8.7991E-03),( 1.0693E-02,-8.7934E-03),
     &  ( 1.0801E-02,-8.7827E-03),( 1.0855E-02,-8.7776E-03),
     &  ( 1.0909E-02,-8.7728E-03),( 1.1014E-02,-8.7635E-03),
     &  ( 1.1116E-02,-8.7549E-03),( 1.1166E-02,-8.7508E-03),
     &  ( 1.1215E-02,-8.7469E-03),( 1.1264E-02,-8.7430E-03),
     &  ( 1.1312E-02,-8.7393E-03),( 1.1360E-02,-8.7357E-03),
     &  ( 1.1406E-02,-8.7322E-03),( 1.1453E-02,-8.7288E-03),
     &  ( 1.1498E-02,-8.7256E-03),( 1.1543E-02,-8.7224E-03),
     &  ( 1.1588E-02,-8.7193E-03),( 1.1632E-02,-8.7163E-03),
     &  ( 1.1675E-02,-8.7133E-03),( 1.1718E-02,-8.7105E-03),
     &  ( 1.1760E-02,-8.7077E-03),( 1.1802E-02,-8.7050E-03),
     &  ( 1.1844E-02,-8.7024E-03),( 1.1884E-02,-8.6998E-03),
     &  ( 1.1925E-02,-8.6973E-03),( 1.1965E-02,-8.6949E-03),
     &  ( 1.2004E-02,-8.6925E-03),( 1.2043E-02,-8.6902E-03),
     &  ( 1.2081E-02,-8.6879E-03),( 1.2119E-02,-8.6857E-03),
     &  ( 1.2157E-02,-8.6835E-03),( 1.2194E-02,-8.6814E-03),
     &  ( 1.2230E-02,-8.6794E-03),( 1.2267E-02,-8.6774E-03),
     &  ( 1.2302E-02,-8.6754E-03),( 1.2338E-02,-8.6734E-03),
     &  ( 1.2372E-02,-8.6716E-03),( 1.2407E-02,-8.6697E-03),
     &  ( 1.2440E-02,-8.6679E-03),( 1.2474E-02,-8.6661E-03),
     &  ( 1.2507E-02,-8.6644E-03),( 1.2533E-02,-8.6630E-03),
     &  ( 1.2571E-02,-8.6610E-03),( 1.2634E-02,-8.6577E-03),
     &  ( 1.2695E-02,-8.6546E-03),( 1.2753E-02,-8.6516E-03),
     &  ( 1.2810E-02,-8.6487E-03),( 1.2864E-02,-8.6459E-03),
     &  ( 1.2916E-02,-8.6431E-03),( 1.2965E-02,-8.6405E-03),
     &  ( 1.3011E-02,-8.6380E-03),( 1.3054E-02,-8.6355E-03),
     &  ( 1.3093E-02,-8.6331E-03),( 1.3127E-02,-8.6308E-03),
     &  ( 1.3154E-02,-8.6286E-03),( 1.3174E-02,-8.6264E-03),
     &  ( 1.3182E-02,-8.6243E-03),( 1.3182E-02,-8.6241E-03),
     &  ( 1.3173E-02,-8.6222E-03),( 1.3133E-02,-8.6202E-03),
     &  ( 1.3029E-02,-8.6182E-03),( 1.2829E-02,-8.6167E-03),
     &  ( 1.2741E-02,-8.6163E-03),( 1.2365E-02,-8.6154E-03),
     &  ( 1.1621E-02,-8.6147E-03),( 1.1264E-02,-8.6145E-03),
     &  ( 1.0750E-02,-8.6143E-03),( 1.0400E-02,-8.6142E-03)/

         DATA ((CAS  (I,J), I=1301,1400), J=1,1) /
     &  ( 9.9543E-03,-8.6141E-03),( 9.5017E-03,-8.6140E-03),
     &  ( 8.9272E-03,-8.6140E-03),( 8.5783E-03,-8.6139E-03),
     &  ( 8.1762E-03,-8.6139E-03),( 7.7082E-03,-8.6139E-03),
     &  ( 7.1573E-03,-8.6138E-03),( 6.5003E-03,-8.6138E-03),
     &  ( 5.7046E-03,-8.6137E-03),( 5.2409E-03,-8.6137E-03),
     &  ( 4.7232E-03,-8.6137E-03),( 4.1421E-03,-8.6137E-03),
     &  ( 3.4855E-03,-8.6137E-03),( 2.7381E-03,-8.6137E-03),
     &  ( 1.8806E-03,-8.6136E-03),( 8.8735E-04,-8.6136E-03),
     &  (-2.7526E-04,-8.6136E-03),(-1.6531E-03,-8.6136E-03),
     &  (-2.2294E-03,-8.6136E-03),(-2.5918E-03,-8.6136E-03),
     &  (-2.9698E-03,-8.6136E-03),(-3.3647E-03,-8.6136E-03),
     &  (-3.7775E-03,-8.6136E-03),(-4.2094E-03,-8.6136E-03),
     &  (-4.6618E-03,-8.6136E-03),(-5.1360E-03,-8.6136E-03),
     &  (-5.6338E-03,-8.6135E-03),(-6.1567E-03,-8.6135E-03),
     &  (-6.7069E-03,-8.6135E-03),(-7.2863E-03,-8.6135E-03),
     &  (-7.8973E-03,-8.6135E-03),(-8.5426E-03,-8.6135E-03),
     &  (-9.2250E-03,-8.6135E-03),(-9.9477E-03,-8.6135E-03),
     &  (-1.0714E-02,-8.6135E-03),(-1.1529E-02,-8.6135E-03),
     &  (-1.2396E-02,-8.6135E-03),(-1.3321E-02,-8.6135E-03),
     &  (-1.4309E-02,-8.6135E-03),(-1.5368E-02,-8.6135E-03),
     &  (-1.6504E-02,-8.6135E-03),(-1.7727E-02,-8.6135E-03),
     &  (-1.9046E-02,-8.6135E-03),(-2.0473E-02,-8.6135E-03),
     &  (-2.2022E-02,-8.6135E-03),(-2.3709E-02,-8.6135E-03),
     &  (-2.5552E-02,-8.6135E-03),(-2.7575E-02,-8.6135E-03),
     &  (-2.9803E-02,-8.6135E-03),(-3.2270E-02,-8.6135E-03),
     &  (-3.5016E-02,-8.6135E-03),(-3.8089E-02,-8.6134E-03),
     &  (-4.1552E-02,-8.6134E-03),(-4.5482E-02,-8.6134E-03),
     &  (-4.9979E-02,-8.6134E-03),(-5.5173E-02,-8.6134E-03),
     &  (-6.1239E-02,-8.6134E-03),(-6.8413E-02,-8.6134E-03),
     &  (-7.7025E-02,-8.6134E-03),(-8.7550E-02,-8.6134E-03),
     &  (-1.0070E-01,-8.6134E-03),(-1.1758E-01,-8.6134E-03),
     &  (-1.4004E-01,-8.6134E-03),(-1.7135E-01,-8.6134E-03),
     &  (-2.1799E-01,-8.6134E-03),(-2.9480E-01,-8.6134E-03),
     &  (-4.4450E-01,-8.6134E-03),(-5.3307E-01,-8.5647E-03),
     &  (-1.1328E+00,-8.5649E-03),(-1.6965E+00,-2.8630E-01),
     &  (-1.6927E+00,-3.1337E-01),(-1.7125E+00,-3.2842E-01),
     &  (-1.7692E+00,-3.6197E-01),(-1.8416E+00,-4.0095E-01),
     &  (-1.9273E+00,-4.4671E-01),(-2.0257E+00,-5.0080E-01),
     &  (-2.1379E+00,-5.6535E-01),(-2.2649E+00,-6.4315E-01),
     &  (-2.4097E+00,-7.3798E-01),(-2.5732E+00,-8.5483E-01),
     &  (-2.7593E+00,-1.0012E+00),(-2.9729E+00,-1.1871E+00),
     &  (-3.2104E+00,-1.4272E+00),(-3.4794E+00,-1.7428E+00),
     &  (-3.7751E+00,-2.1654E+00),(-4.0843E+00,-2.7408E+00),
     &  (-4.2339E+00,-3.1047E+00),(-4.3533E+00,-3.5323E+00),
     &  (-4.4577E+00,-4.0356E+00),(-4.5438E+00,-4.6218E+00),
     &  (-4.5357E+00,-5.3004E+00),(-4.5906E+00,-6.0666E+00),
     &  (-4.1609E+00,-6.9055E+00),(-3.6963E+00,-7.7790E+00),
     &  (-2.9963E+00,-8.6098E+00),(-2.0498E+00,-9.2993E+00),
     &  (-9.0587E-01,-9.7310E+00),(-9.0587E-01,-9.7310E+00),
     &  (-7.2762E-01,-9.7669E+00),(-3.6621E-01,-9.7953E+00)/

         DATA ((CAS  (I,J), I=1401,1500), J=1,1) /
     &  (-3.6621E-01,-9.8160E+00),(-1.0663E-03,-9.8289E+00),
     &  (-1.0663E-03,-9.8340E+00),( 3.6434E-01,-9.8206E+00),
     &  ( 9.0534E-01,-9.7761E+00),( 9.0534E-01,-9.7425E+00),
     &  ( 1.2564E+00,-9.6531E+00),( 1.5962E+00,-9.5357E+00),
     &  ( 1.9250E+00,-9.3909E+00),( 2.2344E+00,-9.2239E+00),
     &  ( 2.5257E+00,-9.0362E+00),( 2.7973E+00,-8.8305E+00),
     &  ( 3.0484E+00,-8.6099E+00),( 3.5289E+00,-8.0826E+00),
     &  ( 4.0730E+00,-7.2158E+00),( 4.4021E+00,-6.3569E+00),
     &  ( 4.5619E+00,-5.5620E+00),( 4.6028E+00,-4.8509E+00),
     &  ( 4.5395E+00,-4.2332E+00),( 4.4456E+00,-3.7024E+00),
     &  ( 4.3260E+00,-3.2483E+00),( 4.1904E+00,-2.8630E+00),
     &  ( 4.0365E+00,-2.5342E+00),( 3.8816E+00,-2.2545E+00),
     &  ( 3.5822E+00,-1.8087E+00),( 3.3081E+00,-1.4768E+00),
     &  ( 3.0662E+00,-1.2252E+00),( 2.6570E+00,-8.7856E-01),
     &  ( 2.3414E+00,-6.5859E-01),( 2.0970E+00,-5.1142E-01),
     &  ( 1.9962E+00,-4.5565E-01),( 1.9085E+00,-4.0860E-01),
     &  ( 1.8336E+00,-3.6847E-01),( 1.7737E+00,-3.3403E-01),
     &  ( 1.7375E+00,-3.0426E-01),( 1.8056E+00,-2.7836E-01),
     &  ( 1.5268E+00,-8.5653E-03),( 1.3108E+00,-8.5653E-03),
     &  ( 5.7122E-01,-8.5655E-03),( 3.7635E-01,-8.5657E-03),
     &  ( 2.8374E-01,-8.5660E-03),( 2.2940E-01,-8.5662E-03),
     &  ( 1.9360E-01,-8.5664E-03),( 1.6820E-01,-8.5666E-03),
     &  ( 1.4922E-01,-8.5669E-03),( 1.3450E-01,-8.5671E-03),
     &  ( 1.2273E-01,-8.5673E-03),( 1.1311E-01,-8.5675E-03),
     &  ( 1.0508E-01,-8.5678E-03),( 9.8283E-02,-8.5680E-03),
     &  ( 9.2450E-02,-8.5682E-03),( 8.7387E-02,-8.5685E-03),
     &  ( 8.2949E-02,-8.5687E-03),( 7.9025E-02,-8.5689E-03),
     &  ( 7.5530E-02,-8.5691E-03),( 7.2395E-02,-8.5694E-03),
     &  ( 6.9568E-02,-8.5696E-03),( 6.7003E-02,-8.5698E-03),
     &  ( 6.4665E-02,-8.5700E-03),( 6.2524E-02,-8.5703E-03),
     &  ( 6.0557E-02,-8.5705E-03),( 5.8741E-02,-8.5707E-03),
     &  ( 5.7061E-02,-8.5710E-03),( 5.5500E-02,-8.5712E-03),
     &  ( 5.4046E-02,-8.5714E-03),( 5.2688E-02,-8.5716E-03),
     &  ( 5.1416E-02,-8.5719E-03),( 5.0223E-02,-8.5721E-03),
     &  ( 4.9101E-02,-8.5723E-03),( 4.8043E-02,-8.5725E-03),
     &  ( 4.7043E-02,-8.5728E-03),( 4.6098E-02,-8.5730E-03),
     &  ( 4.5202E-02,-8.5732E-03),( 4.4351E-02,-8.5735E-03),
     &  ( 4.3543E-02,-8.5737E-03),( 4.2772E-02,-8.5739E-03),
     &  ( 4.2038E-02,-8.5741E-03),( 4.1337E-02,-8.5744E-03),
     &  ( 4.0666E-02,-8.5746E-03),( 4.0025E-02,-8.5748E-03),
     &  ( 3.9410E-02,-8.5750E-03),( 3.8820E-02,-8.5753E-03),
     &  ( 3.8253E-02,-8.5755E-03),( 3.7708E-02,-8.5757E-03),
     &  ( 3.7184E-02,-8.5760E-03),( 3.6679E-02,-8.5762E-03),
     &  ( 3.6192E-02,-8.5764E-03),( 3.2443E-02,-8.5785E-03),
     &  ( 3.0052E-02,-8.5802E-03),( 2.7656E-02,-8.5822E-03),
     &  ( 2.4788E-02,-8.5853E-03),( 2.1761E-02,-8.5895E-03),
     &  ( 1.7993E-02,-8.5957E-03),( 1.6491E-02,-8.6008E-03),
     &  ( 1.4368E-02,-8.6048E-03),( 1.3579E-02,-8.6036E-03),
     &  ( 1.4052E-02,-8.6013E-03),( 1.4255E-02,-8.5990E-03),
     &  ( 1.4356E-02,-8.5967E-03),( 1.4403E-02,-8.5944E-03)/

         DATA ((CAS  (I,J), I=1501,1600), J=1,1) /
     &  ( 1.4422E-02,-8.5898E-03),( 1.4397E-02,-8.5852E-03),
     &  ( 1.4175E-02,-8.5622E-03),( 1.3851E-02,-8.5403E-03),
     &  ( 1.3588E-02,-8.5574E-03),( 1.3113E-02,-8.5136E-03),
     &  ( 1.2475E-02,-8.5416E-03),( 1.1719E-02,-8.5555E-03),
     &  ( 1.0739E-02,-8.5639E-03),( 9.3948E-03,-8.5695E-03),
     &  ( 6.0480E-03,-8.5653E-03),( 5.4166E-03,-8.5648E-03),
     &  ( 4.6746E-03,-8.5644E-03),( 4.4598E-03,-8.5643E-03),
     &  ( 3.9708E-03,-8.5641E-03),( 3.4283E-03,-8.5638E-03),
     &  ( 2.8228E-03,-8.5636E-03),( 2.1429E-03,-8.5634E-03),
     &  ( 1.3738E-03,-8.5631E-03),( 4.9692E-04,-8.5629E-03),
     &  (-5.1230E-04,-8.5627E-03),(-1.6862E-03,-8.5624E-03),
     &  (-3.0687E-03,-8.5622E-03),(-4.7207E-03,-8.5620E-03),
     &  (-6.7298E-03,-8.5617E-03),(-9.2256E-03,-8.5615E-03),
     &  (-1.2410E-02,-8.5613E-03),(-1.6612E-02,-8.5610E-03),
     &  (-2.2414E-02,-8.5608E-03),(-3.0944E-02,-8.5606E-03),
     &  (-4.4719E-02,-8.5603E-03),(-7.0730E-02,-8.5601E-03),
     &  (-1.0275E-01,-8.5599E-03),(-1.0783E-01,-8.5599E-03),
     &  (-1.1338E-01,-8.5599E-03),(-1.1945E-01,-8.5599E-03),
     &  (-1.2614E-01,-8.5599E-03),(-1.3353E-01,-8.5599E-03),
     &  (-1.4175E-01,-8.5599E-03),(-1.5095E-01,-8.5598E-03),
     &  (-1.2924E+00,-2.2077E-01),(-1.3158E+00,-2.4330E-01),
     &  (-1.3631E+00,-2.6962E-01),(-1.3920E+00,-2.8445E-01),
     &  (-1.4237E+00,-3.0049E-01),(-1.4583E+00,-3.1803E-01),
     &  (-1.4958E+00,-3.3718E-01),(-1.5360E+00,-3.5813E-01),
     &  (-1.5789E+00,-3.8102E-01),(-1.6252E+00,-4.0630E-01),
     &  (-1.6746E+00,-4.3419E-01),(-1.7275E+00,-4.6505E-01),
     &  (-1.7835E+00,-4.9917E-01),(-1.8444E+00,-5.3732E-01),
     &  (-1.9106E+00,-5.7999E-01),(-1.9807E+00,-6.2766E-01),
     &  (-2.0533E+00,-6.8160E-01),(-2.1332E+00,-7.4265E-01),
     &  (-2.2190E+00,-8.1205E-01),(-2.3128E+00,-8.9098E-01),
     &  (-2.4093E+00,-9.8195E-01),(-2.5150E+00,-1.0869E+00),
     &  (-2.6279E+00,-1.2088E+00),(-2.7475E+00,-1.3503E+00),
     &  (-2.8744E+00,-1.5170E+00),(-3.0072E+00,-1.7138E+00),
     &  (-3.1439E+00,-1.9471E+00),(-3.2803E+00,-2.2239E+00),
     &  (-3.3984E+00,-2.5560E+00),(-3.5053E+00,-2.9531E+00),
     &  (-3.6096E+00,-3.4246E+00),(-3.6368E+00,-3.9841E+00),
     &  (-3.5784E+00,-4.6331E+00),(-3.3894E+00,-5.3612E+00),
     &  (-3.0149E+00,-6.1290E+00),(-2.4107E+00,-6.8706E+00),
     &  (-1.4407E+00,-7.4734E+00),(-1.4407E+00,-7.5358E+00),
     &  (-1.0417E+00,-7.5934E+00),(-1.0417E+00,-7.6459E+00),
     &  (-1.0417E+00,-7.6931E+00),(-6.2111E-01,-7.7348E+00),
     &  (-6.2111E-01,-7.7708E+00),(-6.2111E-01,-7.8009E+00),
     &  (-1.9166E-01,-7.8250E+00),(-1.9166E-01,-7.8430E+00),
     &  (-1.9166E-01,-7.8545E+00),( 2.4666E-01,-7.8602E+00),
     &  ( 2.4666E-01,-7.8596E+00),( 2.4666E-01,-7.8527E+00),
     &  ( 6.7999E-01,-7.8396E+00),( 6.7999E-01,-7.8203E+00),
     &  ( 6.7999E-01,-7.7948E+00),( 1.0993E+00,-7.7634E+00),
     &  ( 1.0993E+00,-7.7262E+00),( 1.0993E+00,-7.6833E+00),
     &  ( 1.4964E+00,-7.6349E+00),( 1.4964E+00,-7.5812E+00),
     &  ( 1.4964E+00,-7.5226E+00),( 1.8648E+00,-7.4591E+00)/

         DATA ((CAS  (I,J), I=1601,1700), J=1,1) /
     &  ( 1.8648E+00,-7.3912E+00),( 1.8648E+00,-7.3190E+00),
     &  ( 2.6401E+00,-6.6629E+00),( 3.1726E+00,-5.9060E+00),
     &  ( 3.4900E+00,-5.1418E+00),( 3.6343E+00,-4.4345E+00),
     &  ( 3.6638E+00,-3.8114E+00),( 3.5967E+00,-3.2799E+00),
     &  ( 3.5035E+00,-2.8297E+00),( 3.3920E+00,-2.4527E+00),
     &  ( 3.2683E+00,-2.1376E+00),( 3.1314E+00,-1.8747E+00),
     &  ( 2.9956E+00,-1.6529E+00),( 2.8644E+00,-1.4655E+00),
     &  ( 2.7399E+00,-1.3071E+00),( 2.7282E+00,-1.1713E+00),
     &  ( 2.5111E+00,-1.0547E+00),( 2.4075E+00,-9.5406E-01),
     &  ( 2.3112E+00,-8.6707E-01),( 2.2210E+00,-7.9085E-01),
     &  ( 2.1370E+00,-7.2403E-01),( 2.0587E+00,-6.6518E-01),
     &  ( 1.9878E+00,-6.1332E-01),( 1.9185E+00,-5.6704E-01),
     &  ( 1.8538E+00,-5.2576E-01),( 1.7944E+00,-4.8880E-01),
     &  ( 1.7395E+00,-4.5572E-01),( 1.6876E+00,-4.2576E-01),
     &  ( 1.6391E+00,-3.9867E-01),( 1.5939E+00,-3.7419E-01),
     &  ( 1.5516E+00,-3.5183E-01),( 1.5123E+00,-3.3142E-01),
     &  ( 1.5138E+00,-3.1277E-01),( 1.4420E+00,-2.9573E-01),
     &  ( 1.4110E+00,-2.8000E-01),( 1.3830E+00,-2.6552E-01),
     &  ( 1.3584E+00,-2.5215E-01),( 1.3589E+00,-2.3984E-01),
     &  ( 1.3240E+00,-2.2839E-01),( 1.3590E+00,-2.0788E-01),
     &  ( 1.8903E-01,-8.5593E-03),( 1.2318E-01,-8.5592E-03),
     &  ( 8.3320E-02,-8.5589E-03),( 6.4767E-02,-8.5587E-03),
     &  ( 4.7042E-02,-8.5582E-03),( 3.8473E-02,-8.5578E-03),
     &  ( 3.3421E-02,-8.5573E-03),( 3.0090E-02,-8.5568E-03),
     &  ( 2.7727E-02,-8.5563E-03),( 2.5965E-02,-8.5559E-03),
     &  ( 2.4599E-02,-8.5554E-03),( 2.3510E-02,-8.5549E-03),
     &  ( 2.2894E-02,-8.5546E-03),( 2.2176E-02,-8.5542E-03),
     &  ( 2.1563E-02,-8.5538E-03),( 2.1034E-02,-8.5533E-03),
     &  ( 2.0573E-02,-8.5529E-03),( 2.0167E-02,-8.5525E-03),
     &  ( 1.8701E-02,-8.5505E-03),( 1.7783E-02,-8.5484E-03),
     &  ( 1.7154E-02,-8.5464E-03),( 1.6695E-02,-8.5444E-03),
     &  ( 1.6344E-02,-8.5424E-03),( 1.6062E-02,-8.5403E-03),
     &  ( 1.5838E-02,-8.5383E-03),( 1.5653E-02,-8.5363E-03),
     &  ( 1.4111E-02,-8.5063E-03),( 1.3692E-02,-8.5124E-03),
     &  ( 1.3586E-02,-8.5136E-03),( 1.3462E-02,-8.5148E-03),
     &  ( 1.3314E-02,-8.5160E-03),( 1.3129E-02,-8.5172E-03),
     &  ( 1.3017E-02,-8.5178E-03),( 1.2888E-02,-8.5184E-03),
     &  ( 1.2554E-02,-8.5304E-03),( 1.2049E-02,-8.5423E-03),
     &  ( 1.1166E-02,-8.5542E-03),( 9.1499E-03,-8.5661E-03),
     &  ( 7.2130E-03,-8.5711E-03),( 6.7115E-03,-8.5720E-03),
     &  ( 6.1324E-03,-8.5729E-03),( 5.4558E-03,-8.5737E-03),
     &  ( 4.6551E-03,-8.5746E-03),( 3.6923E-03,-8.5755E-03),
     &  ( 2.5126E-03,-8.5764E-03),( 1.0333E-03,-8.5772E-03),
     &  (-8.7663E-04,-8.5781E-03),(-3.4374E-03,-8.5790E-03),
     &  (-7.0507E-03,-8.5799E-03),(-1.2534E-02,-8.5807E-03),
     &  (-2.1846E-02,-8.5816E-03),(-2.3488E-02,-8.5817E-03),
     &  (-2.5287E-02,-8.5818E-03),(-2.7267E-02,-8.5819E-03),
     &  (-2.9457E-02,-8.5821E-03),(-3.1891E-02,-8.5822E-03),
     &  (-3.4613E-02,-8.5823E-03),(-3.7677E-02,-8.5824E-03),
     &  (-4.1153E-02,-8.5825E-03),(-4.5129E-02,-8.5826E-03)/

         DATA ((CAS  (I,J), I=1701,1800), J=1,1) /
     &  (-4.9721E-02,-8.5827E-03),(-5.5084E-02,-8.5828E-03),
     &  (-6.1433E-02,-8.5829E-03),(-6.9064E-02,-8.5830E-03),
     &  (-7.8409E-02,-8.5831E-03),(-9.0123E-02,-8.5833E-03),
     &  (-9.3850E-02,-8.5833E-03),(-1.0523E-01,-8.5834E-03),
     &  (-1.2547E-01,-8.5835E-03),(-1.5400E-01,-8.5836E-03),
     &  (-1.9721E-01,-8.5837E-03),(-2.7047E-01,-8.5838E-03),
     &  (-4.2238E-01,-8.5839E-03),(-9.4942E-01,-8.5840E-03),
     &  (-1.0497E+00,-8.5840E-03),(-1.5376E+00,-8.5840E-03),
     &  (-1.5694E+00,-2.7728E-01),(-1.5933E+00,-3.0820E-01),
     &  (-1.6539E+00,-3.4482E-01),(-1.7334E+00,-3.8848E-01),
     &  (-1.8287E+00,-4.4089E-01),(-1.9403E+00,-5.0492E-01),
     &  (-2.0696E+00,-5.8394E-01),(-2.2185E+00,-6.8251E-01),
     &  (-2.3914E+00,-8.0825E-01),(-2.5912E+00,-9.7111E-01),
     &  (-2.8243E+00,-1.1856E+00),(-3.1867E+00,-1.4761E+00),
     &  (-3.2315E+00,-1.6596E+00),(-3.3850E+00,-1.8780E+00),
     &  (-3.5430E+00,-2.1361E+00),(-3.7030E+00,-2.4445E+00),
     &  (-3.8593E+00,-2.8169E+00),(-3.9856E+00,-3.2615E+00),
     &  (-4.0878E+00,-3.7945E+00),(-4.1537E+00,-4.4327E+00),
     &  (-4.1028E+00,-5.1743E+00),(-3.9043E+00,-6.0134E+00),
     &  (-3.4886E+00,-6.9167E+00),(-2.8054E+00,-7.7888E+00),
     &  (-1.3946E+00,-8.5045E+00),(-1.3946E+00,-8.5797E+00),
     &  (-1.3946E+00,-8.6460E+00),(-1.3946E+00,-8.7067E+00),
     &  (-7.5814E-01,-8.7643E+00),(-7.5814E-01,-8.8130E+00),
     &  (-7.5814E-01,-8.8554E+00),(-7.5814E-01,-8.8931E+00),
     &  ( 6.3289E-02,-8.9222E+00),( 6.3289E-02,-8.9445E+00),
     &  ( 6.3289E-02,-8.9607E+00),( 6.3289E-02,-8.9690E+00),
     &  ( 6.3289E-02,-8.9704E+00),( 8.8979E-01,-8.9644E+00),
     &  ( 8.8979E-01,-8.9516E+00),( 8.8979E-01,-8.9319E+00),
     &  ( 8.8979E-01,-8.9040E+00),( 8.8979E-01,-8.8706E+00),
     &  ( 1.5121E+00,-8.8307E+00),( 1.5121E+00,-8.7821E+00),
     &  ( 1.5121E+00,-8.7295E+00),( 1.5121E+00,-8.6710E+00),
     &  ( 2.0822E+00,-8.6036E+00),( 2.0822E+00,-8.5339E+00),
     &  ( 2.0822E+00,-8.4591E+00),( 2.0822E+00,-8.3796E+00),
     &  ( 3.0002E+00,-7.6147E+00),( 3.6241E+00,-6.7279E+00),
     &  ( 3.9893E+00,-5.8315E+00),( 4.1519E+00,-5.0107E+00),
     &  ( 4.1789E+00,-4.2914E+00),( 4.0977E+00,-3.6752E+00),
     &  ( 3.9885E+00,-3.1618E+00),( 3.8560E+00,-2.7339E+00),
     &  ( 3.6979E+00,-2.3754E+00),( 3.5379E+00,-2.0784E+00),
     &  ( 3.3808E+00,-1.8296E+00),( 3.2288E+00,-1.6188E+00),
     &  ( 3.0856E+00,-1.4415E+00),( 2.9509E+00,-1.2904E+00),
     &  ( 2.7066E+00,-1.0487E+00),( 2.4949E+00,-8.6734E-01),
     &  ( 2.3133E+00,-7.2880E-01),( 2.1539E+00,-6.2025E-01),
     &  ( 2.0173E+00,-5.3407E-01),( 1.8993E+00,-4.6481E-01),
     &  ( 1.7975E+00,-4.0804E-01),( 1.7115E+00,-3.6112E-01),
     &  ( 1.6428E+00,-3.2202E-01),( 1.5996E+00,-2.8893E-01),
     &  ( 1.6924E+00,-2.6077E-01),( 2.8180E-01,-8.5845E-03),
     &  ( 2.1600E-01,-8.5846E-03),( 1.7621E-01,-8.5847E-03),
     &  ( 1.4953E-01,-8.5848E-03),( 1.3041E-01,-8.5849E-03),
     &  ( 1.1601E-01,-8.5850E-03),( 1.0479E-01,-8.5851E-03),
     &  ( 9.5800E-02,-8.5852E-03),( 8.8429E-02,-8.5853E-03)/

         DATA ((CAS  (I,J), I=1801,1900), J=1,1) /
     &  ( 8.2279E-02,-8.5854E-03),( 7.7070E-02,-8.5855E-03),
     &  ( 7.2600E-02,-8.5857E-03),( 6.8723E-02,-8.5858E-03),
     &  ( 6.5328E-02,-8.5859E-03),( 6.2331E-02,-8.5860E-03),
     &  ( 4.6954E-02,-8.5869E-03),( 3.9012E-02,-8.5877E-03),
     &  ( 3.4162E-02,-8.5886E-03),( 3.0893E-02,-8.5895E-03),
     &  ( 2.8539E-02,-8.5904E-03),( 2.6764E-02,-8.5912E-03),
     &  ( 2.5377E-02,-8.5921E-03),( 2.3349E-02,-8.5939E-03),
     &  ( 2.1938E-02,-8.5956E-03),( 2.1382E-02,-8.5965E-03),
     &  ( 2.0899E-02,-8.5973E-03),( 1.9156E-02,-8.6019E-03),
     &  ( 1.7873E-02,-8.6078E-03),( 1.7101E-02,-8.6138E-03),
     &  ( 1.6584E-02,-8.6198E-03),( 1.6213E-02,-8.6257E-03),
     &  ( 1.5933E-02,-8.6317E-03),( 1.5713E-02,-8.6376E-03),
     &  ( 1.5535E-02,-8.6380E-03),( 1.5387E-02,-8.6384E-03),
     &  ( 1.5262E-02,-8.6388E-03),( 1.5153E-02,-8.6391E-03),
     &  ( 1.5057E-02,-8.6395E-03),( 1.4970E-02,-8.6399E-03),
     &  ( 1.4892E-02,-8.6403E-03),( 1.4820E-02,-8.6406E-03),
     &  ( 1.4753E-02,-8.6410E-03),( 1.4690E-02,-8.6414E-03),
     &  ( 1.4630E-02,-8.6417E-03),( 1.4571E-02,-8.6421E-03),
     &  ( 1.4514E-02,-8.6425E-03),( 1.4458E-02,-8.6429E-03),
     &  ( 1.4400E-02,-8.6431E-03),( 1.3331E-02,-8.8997E-03),
     &  ( 1.3079E-02,-9.0981E-03),( 1.2836E-02,-9.2975E-03),
     &  ( 1.2605E-02,-9.4975E-03),( 1.2414E-02,-9.6977E-03),
     &  ( 1.2254E-02,-9.8979E-03),( 1.2117E-02,-1.0099E-02),
     &  ( 1.2000E-02,-1.0299E-02),( 1.1903E-02,-1.0499E-02),
     &  ( 1.1826E-02,-1.0699E-02),( 1.1763E-02,-1.0899E-02),
     &  ( 1.1713E-02,-1.1098E-02),( 1.1673E-02,-1.1295E-02),
     &  ( 1.1629E-02,-1.1491E-02),( 1.1612E-02,-1.1689E-02),
     &  ( 1.1607E-02,-1.1886E-02),( 1.1612E-02,-1.2078E-02),
     &  ( 1.1628E-02,-1.2270E-02),( 1.1654E-02,-1.2464E-02),
     &  ( 1.1591E-02,-1.2654E-02),( 1.1737E-02,-1.2839E-02),
     &  ( 1.1797E-02,-1.3029E-02),( 1.1866E-02,-1.3211E-02),
     &  ( 1.1949E-02,-1.3394E-02),( 1.2045E-02,-1.3575E-02),
     &  ( 1.2155E-02,-1.3754E-02),( 1.2280E-02,-1.3931E-02),
     &  ( 1.2421E-02,-1.4104E-02),( 1.2579E-02,-1.4270E-02),
     &  ( 1.2764E-02,-1.4438E-02),( 1.2977E-02,-1.4599E-02),
     &  ( 1.3222E-02,-1.4751E-02),( 1.3528E-02,-1.4897E-02),
     &  ( 1.3932E-02,-1.5028E-02),( 1.4920E-02,-1.5085E-02),
     &  ( 1.5854E-02,-1.4799E-02),( 1.6206E-02,-1.4587E-02),
     &  ( 1.6461E-02,-1.4387E-02),( 1.6659E-02,-1.4198E-02),
     &  ( 1.6825E-02,-1.4009E-02),( 1.6966E-02,-1.3822E-02),
     &  ( 1.7081E-02,-1.3644E-02),( 1.7182E-02,-1.3465E-02),
     &  ( 1.7268E-02,-1.3286E-02),( 1.7341E-02,-1.3108E-02),
     &  ( 1.7401E-02,-1.2933E-02),( 1.7451E-02,-1.2758E-02),
     &  ( 1.7610E-02,-1.2587E-02),( 1.7521E-02,-1.2411E-02),
     &  ( 1.7542E-02,-1.2241E-02),( 1.7555E-02,-1.2068E-02),
     &  ( 1.7560E-02,-1.1893E-02),( 1.7556E-02,-1.1721E-02),
     &  ( 1.7544E-02,-1.1551E-02),( 1.7508E-02,-1.1377E-02),
     &  ( 1.7478E-02,-1.1203E-02),( 1.7440E-02,-1.1031E-02),
     &  ( 1.7393E-02,-1.0859E-02),( 1.7332E-02,-1.0685E-02),
     &  ( 1.7263E-02,-1.0510E-02),( 1.7186E-02,-1.0337E-02)/

         DATA ((CAS  (I,J), I=1901,2000), J=1,1) /
     &  ( 1.7089E-02,-1.0161E-02),( 1.6976E-02,-9.9844E-03),
     &  ( 1.6845E-02,-9.8072E-03),( 1.6692E-02,-9.6294E-03),
     &  ( 1.6514E-02,-9.4504E-03),( 1.6297E-02,-9.2697E-03),
     &  ( 1.6029E-02,-9.0874E-03),( 1.5683E-02,-8.9033E-03),
     &  ( 1.4908E-02,-8.6591E-03),( 1.4866E-02,-8.6593E-03),
     &  ( 1.4711E-02,-8.6611E-03),( 1.4610E-02,-8.6623E-03),
     &  ( 1.4530E-02,-8.6633E-03),( 1.4462E-02,-8.6640E-03),
     &  ( 1.4397E-02,-8.6647E-03),( 1.4326E-02,-8.6652E-03),
     &  ( 1.4226E-02,-8.7564E-03),( 1.4236E-02,-8.7666E-03),
     &  ( 1.4211E-02,-8.7770E-03),( 1.4183E-02,-8.7878E-03),
     &  ( 1.4153E-02,-8.7990E-03),( 1.4124E-02,-8.8105E-03),
     &  ( 1.4094E-02,-8.8226E-03),( 1.4064E-02,-8.8352E-03),
     &  ( 1.4035E-02,-8.8484E-03),( 1.4006E-02,-8.8622E-03),
     &  ( 1.3976E-02,-8.8768E-03),( 1.3946E-02,-8.8922E-03),
     &  ( 1.3893E-02,-8.9087E-03),( 1.3885E-02,-8.9262E-03),
     &  ( 1.3854E-02,-8.9450E-03),( 1.3822E-02,-8.9652E-03),
     &  ( 1.3789E-02,-8.9872E-03),( 1.3755E-02,-9.0111E-03),
     &  ( 1.3719E-02,-9.0375E-03),( 1.3682E-02,-9.0667E-03),
     &  ( 1.3642E-02,-9.0994E-03),( 1.3601E-02,-9.1368E-03),
     &  ( 1.3557E-02,-9.1797E-03),( 1.3508E-02,-9.2306E-03),
     &  ( 1.3454E-02,-9.2922E-03),( 1.3392E-02,-9.3703E-03),
     &  ( 1.3320E-02,-9.4764E-03),( 1.3229E-02,-9.6410E-03),
     &  ( 1.3062E-02,-1.0219E-02),( 1.3156E-02,-1.1027E-02),
     &  ( 1.3367E-02,-1.1432E-02),( 1.3638E-02,-1.1729E-02),
     &  ( 1.3948E-02,-1.1935E-02),( 1.4279E-02,-1.2052E-02),
     &  ( 1.4611E-02,-1.2086E-02),( 1.4925E-02,-1.2046E-02),
     &  ( 1.5208E-02,-1.1946E-02),( 1.5454E-02,-1.1799E-02),
     &  ( 1.5655E-02,-1.1622E-02),( 1.5815E-02,-1.1426E-02),
     &  ( 1.5935E-02,-1.1223E-02),( 1.6020E-02,-1.1022E-02),
     &  ( 1.6075E-02,-1.0826E-02),( 1.6105E-02,-1.0639E-02),
     &  ( 1.6115E-02,-1.0465E-02),( 1.6110E-02,-1.0304E-02),
     &  ( 1.6084E-02,-1.0154E-02),( 1.6055E-02,-1.0019E-02),
     &  ( 1.6019E-02,-9.8944E-03),( 1.5978E-02,-9.7817E-03),
     &  ( 1.5931E-02,-9.6786E-03),( 1.5879E-02,-9.5854E-03),
     &  ( 1.5822E-02,-9.5004E-03),( 1.5763E-02,-9.4235E-03),
     &  ( 1.5699E-02,-9.3532E-03),( 1.5630E-02,-9.2892E-03),
     &  ( 1.5536E-02,-9.2309E-03),( 1.5498E-02,-9.2401E-03),
     &  ( 1.5448E-02,-9.1966E-03),( 1.5391E-02,-9.1584E-03),
     &  ( 1.5329E-02,-9.1252E-03),( 1.5255E-02,-9.0974E-03),
     &  ( 1.5195E-02,-9.0753E-03),( 1.5119E-02,-9.0599E-03),
     &  ( 1.4577E-02,-9.2358E-03),( 1.4541E-02,-9.2715E-03),
     &  ( 1.4506E-02,-9.3111E-03),( 1.4471E-02,-9.3552E-03),
     &  ( 1.4438E-02,-9.4040E-03),( 1.4406E-02,-9.4578E-03),
     &  ( 1.4379E-02,-9.5167E-03),( 1.4354E-02,-9.5814E-03),
     &  ( 1.4332E-02,-9.6528E-03),( 1.4314E-02,-9.7305E-03),
     &  ( 1.4304E-02,-9.8151E-03),( 1.4289E-02,-9.9066E-03),
     &  ( 1.4292E-02,-1.0005E-02),( 1.4304E-02,-1.0109E-02),
     &  ( 1.4328E-02,-1.0218E-02),( 1.4367E-02,-1.0332E-02),
     &  ( 1.4423E-02,-1.0447E-02),( 1.4499E-02,-1.0561E-02),
     &  ( 1.4600E-02,-1.0672E-02),( 1.4752E-02,-1.0773E-02)/

         DATA ((CAS  (I,J), I=2001,2100), J=1,1) /
     &  ( 1.4836E-02,-1.0767E-02),( 1.4951E-02,-1.0837E-02),
     &  ( 1.5090E-02,-1.0883E-02),( 1.5243E-02,-1.0902E-02),
     &  ( 1.5400E-02,-1.0892E-02),( 1.5556E-02,-1.0851E-02),
     &  ( 1.5702E-02,-1.0782E-02),( 1.5836E-02,-1.0688E-02),
     &  ( 1.5952E-02,-1.0571E-02),( 1.6047E-02,-1.0438E-02),
     &  ( 1.6120E-02,-1.0293E-02),( 1.6170E-02,-1.0139E-02),
     &  ( 1.6198E-02,-9.9785E-03),( 1.6202E-02,-9.8107E-03),
     &  ( 1.6175E-02,-9.6287E-03),( 1.6069E-02,-9.3206E-03),
     &  ( 1.5942E-02,-9.1311E-03),( 1.5891E-02,-9.0738E-03),
     &  ( 1.5879E-02,-9.0357E-03),( 1.5821E-02,-9.0069E-03),
     &  ( 1.5794E-02,-8.9837E-03),( 1.5771E-02,-8.9643E-03),
     &  ( 1.5748E-02,-8.9475E-03),( 1.5728E-02,-8.9328E-03),
     &  ( 1.5709E-02,-8.9198E-03),( 1.5692E-02,-8.9082E-03),
     &  ( 1.5675E-02,-8.8975E-03),( 1.5659E-02,-8.8877E-03),
     &  ( 1.5645E-02,-8.8787E-03),( 1.5630E-02,-8.8703E-03),
     &  ( 1.5616E-02,-8.8626E-03),( 1.5602E-02,-8.8552E-03),
     &  ( 1.5589E-02,-8.8484E-03),( 1.5593E-02,-8.8419E-03),
     &  ( 1.5564E-02,-8.8358E-03),( 1.5552E-02,-8.8300E-03),
     &  ( 1.5540E-02,-8.8245E-03),( 1.5529E-02,-8.8192E-03),
     &  ( 1.5518E-02,-8.8142E-03),( 1.5506E-02,-8.8093E-03),
     &  ( 1.5495E-02,-8.8047E-03),( 1.5484E-02,-8.8002E-03),
     &  ( 1.5474E-02,-8.7959E-03),( 1.5463E-02,-8.7917E-03),
     &  ( 1.5453E-02,-8.7877E-03),( 1.5443E-02,-8.7838E-03),
     &  ( 1.5441E-02,-8.7801E-03),( 1.5422E-02,-8.7764E-03),
     &  ( 1.5412E-02,-8.7728E-03),( 1.5403E-02,-8.7694E-03),
     &  ( 1.5393E-02,-8.7661E-03),( 1.5363E-02,-8.7520E-03),
     &  ( 1.5190E-02,-8.6886E-03),( 1.5092E-02,-8.6898E-03),
     &  ( 1.5024E-02,-8.6910E-03),( 1.4968E-02,-8.6922E-03),
     &  ( 1.4924E-02,-8.6934E-03),( 1.4882E-02,-8.6947E-03),
     &  ( 1.4846E-02,-8.6958E-03),( 1.4810E-02,-8.6971E-03),
     &  ( 1.4776E-02,-8.6983E-03),( 1.4743E-02,-8.6995E-03),
     &  ( 1.4708E-02,-8.7008E-03),( 1.4673E-02,-8.7020E-03),
     &  ( 1.4675E-02,-8.7032E-03),( 1.4678E-02,-8.7044E-03),
     &  ( 1.4680E-02,-8.7056E-03),( 1.4683E-02,-8.7068E-03),
     &  ( 1.4686E-02,-8.7081E-03),( 1.4688E-02,-8.7093E-03),
     &  ( 1.4691E-02,-8.7105E-03),( 1.4693E-02,-9.5033E-03),
     &  ( 1.4696E-02,-9.5028E-03),( 1.4699E-02,-9.5022E-03),
     &  ( 1.4701E-02,-9.5017E-03),( 1.4704E-02,-9.5011E-03),
     &  ( 1.4707E-02,-9.5006E-03),( 1.4709E-02,-9.5001E-03),
     &  ( 1.4749E-02,-9.4995E-03),( 1.4787E-02,-9.4990E-03),
     &  ( 1.4819E-02,-9.4985E-03),( 1.4851E-02,-9.4979E-03),
     &  ( 1.4880E-02,-9.4974E-03),( 1.4908E-02,-9.4969E-03),
     &  ( 1.4933E-02,-9.4964E-03),( 1.4959E-02,-9.4958E-03),
     &  ( 1.4983E-02,-9.4953E-03),( 1.5006E-02,-9.4948E-03),
     &  ( 1.5028E-02,-9.4943E-03),( 1.5049E-02,-9.4938E-03),
     &  ( 1.5071E-02,-9.4933E-03),( 1.5090E-02,-9.4928E-03),
     &  ( 1.5111E-02,-9.4923E-03),( 1.5129E-02,-9.4918E-03),
     &  ( 1.5149E-02,-9.4913E-03),( 1.5167E-02,-9.4908E-03),
     &  ( 1.5185E-02,-9.4903E-03),( 1.5203E-02,-9.4898E-03),
     &  ( 1.5220E-02,-9.4893E-03),( 1.5238E-02,-9.4889E-03)/

         DATA ((CAS  (I,J), I=2101,2193), J=1,1) /
     &  ( 1.5254E-02,-9.4884E-03),( 1.5271E-02,-9.4879E-03),
     &  ( 1.5288E-02,-9.4874E-03),( 1.5304E-02,-9.4869E-03),
     &  ( 1.5320E-02,-9.4865E-03),( 1.5336E-02,-9.4860E-03),
     &  ( 1.5352E-02,-9.4855E-03),( 1.5368E-02,-9.4851E-03),
     &  ( 1.5383E-02,-9.4846E-03),( 1.5398E-02,-9.4841E-03),
     &  ( 1.5414E-02,-9.4837E-03),( 1.5428E-02,-9.4832E-03),
     &  ( 1.5444E-02,-9.4828E-03),( 1.5458E-02,-9.4823E-03),
     &  ( 1.5473E-02,-9.4819E-03),( 1.5487E-02,-9.4814E-03),
     &  ( 1.5502E-02,-9.4810E-03),( 1.5516E-02,-9.4805E-03),
     &  ( 1.5530E-02,-9.4801E-03),( 1.5544E-02,-9.4796E-03),
     &  ( 1.5558E-02,-9.4792E-03),( 1.5571E-02,-9.4788E-03),
     &  ( 1.5585E-02,-9.4783E-03),( 1.5599E-02,-9.4779E-03),
     &  ( 1.5612E-02,-9.4775E-03),( 1.5626E-02,-9.4770E-03),
     &  ( 1.5639E-02,-9.4766E-03),( 1.5650E-02,-9.4762E-03),
     &  ( 1.5663E-02,-9.4758E-03),( 1.5677E-02,-9.4753E-03),
     &  ( 1.5690E-02,-9.4749E-03),( 1.5703E-02,-9.4745E-03),
     &  ( 1.5716E-02,-9.4741E-03),( 1.5729E-02,-9.4737E-03),
     &  ( 1.5742E-02,-9.4732E-03),( 1.5755E-02,-9.4728E-03),
     &  ( 1.5768E-02,-9.4724E-03),( 1.5780E-02,-9.4720E-03),
     &  ( 1.5794E-02,-9.4716E-03),( 1.5808E-02,-9.4712E-03),
     &  ( 1.5822E-02,-9.4708E-03),( 1.5835E-02,-9.4704E-03),
     &  ( 1.5849E-02,-9.4700E-03),( 1.5863E-02,-9.4696E-03),
     &  ( 1.5877E-02,-9.4692E-03),( 1.5890E-02,-9.4688E-03),
     &  ( 1.5904E-02,-9.4684E-03),( 1.5918E-02,-9.4680E-03),
     &  ( 1.5931E-02,-9.4677E-03),( 1.5945E-02,-9.4673E-03),
     &  ( 1.5959E-02,-9.4669E-03),( 1.5973E-02,-9.4665E-03),
     &  ( 1.5986E-02,-9.4661E-03),( 1.6000E-02,-9.4657E-03),
     &  ( 1.6014E-02,-9.4654E-03),( 1.6028E-02,-9.4650E-03),
     &  ( 1.6041E-02,-9.4646E-03),( 1.6055E-02,-9.4642E-03),
     &  ( 1.6069E-02,-9.4639E-03),( 1.6083E-02,-9.4635E-03),
     &  ( 1.6190E-02,-9.4594E-03),( 1.6298E-02,-9.4556E-03),
     &  ( 1.6317E-02,-9.4550E-03),( 1.7176E-02,-9.4298E-03),
     &  ( 1.7562E-02,-9.4196E-03),( 1.8575E-02,-9.3955E-03),
     &  ( 1.9248E-02,-9.3836E-03),( 1.9276E-02,-9.3830E-03),
     &  ( 1.9937E-02,-9.3686E-03),( 1.9939E-02,-9.3686E-03),
     &  ( 2.0512E-02,-9.3587E-03),( 2.0533E-02,-9.3584E-03),
     &  ( 2.0547E-02,-9.3582E-03),( 2.0832E-02,-9.3535E-03),
     &  ( 2.1022E-02,-9.3505E-03),( 2.1056E-02,-9.3500E-03),
     &  ( 2.1111E-02,-9.3492E-03),( 2.1194E-02,-9.3479E-03),
     &  ( 2.1252E-02,-9.3470E-03),( 2.1288E-02,-9.3465E-03),
     &  ( 2.1644E-02,-9.3412E-03),( 2.1662E-02,-9.3409E-03),
     &  ( 2.1769E-02,-9.3394E-03),( 2.1789E-02,-9.3391E-03),
     &  ( 2.1890E-02,-9.3379E-03),( 2.1931E-02,-9.3374E-03),
     &  ( 2.1964E-02,-9.3370E-03),( 2.1993E-02,-9.3367E-03),
     &  ( 2.2053E-02,-9.3356E-03),( 2.2144E-02,-9.3341E-03),
     &  ( 2.2190E-02,-9.3335E-03),( 2.2496E-02,-9.3293E-03),
     &  ( 2.2757E-02,-9.3259E-03)/

         DATA ((CAS  (I,J), I=   1, 100), J=2,2) /
     &  ( 1.0396E-06, 0.0000E+00),( 1.1424E-06, 3.1386E-08),
     &  ( 1.2748E-06, 1.9729E-07),( 1.4554E-06, 4.6112E-07),
     &  ( 1.7230E-06, 8.7973E-07),( 1.9993E-06, 1.4178E-06),
     &  ( 2.5465E-06, 2.0754E-06),( 2.3115E-06, 5.8136E-06),
     &  ( 2.5512E-06, 6.3179E-06),( 2.9808E-06, 6.8936E-06),
     &  ( 2.8196E-06, 7.4692E-06),( 2.9695E-06, 8.0587E-06),
     &  ( 3.0863E-06, 8.8322E-06),( 3.1642E-06, 9.5790E-06),
     &  ( 3.2846E-06, 1.1102E-05),( 3.7121E-06, 1.1238E-05),
     &  ( 3.7858E-06, 1.0571E-05),( 3.9317E-06, 1.1145E-05),
     &  ( 4.0292E-06, 1.1651E-05),( 4.1825E-06, 1.2260E-05),
     &  ( 3.9583E-06, 1.2318E-05),( 4.0722E-06, 1.2274E-05),
     &  ( 4.1569E-06, 1.2420E-05),( 4.2629E-06, 1.2907E-05),
     &  ( 4.3542E-06, 1.3267E-05),( 4.7779E-06, 1.3476E-05),
     &  ( 4.9202E-06, 1.3802E-05),( 4.9493E-06, 1.4158E-05),
     &  ( 4.9573E-06, 1.4327E-05),( 5.0515E-06, 1.4716E-05),
     &  ( 5.2050E-06, 1.4799E-05),( 5.2524E-06, 1.4926E-05),
     &  ( 5.4300E-06, 1.5316E-05),( 5.6057E-06, 1.6030E-05),
     &  ( 5.7964E-06, 1.6730E-05),( 6.0102E-06, 1.7022E-05),
     &  ( 6.2425E-06, 1.7120E-05),( 6.5766E-06, 1.7309E-05),
     &  ( 6.8733E-06, 1.7951E-05),( 7.1761E-06, 1.8574E-05),
     &  ( 7.5045E-06, 1.9012E-05),( 7.9053E-06, 1.9688E-05),
     &  ( 8.3738E-06, 2.0700E-05),( 8.8236E-06, 2.1080E-05),
     &  ( 9.5697E-06, 2.1624E-05),( 1.0706E-05, 2.2109E-05),
     &  ( 1.1608E-05, 2.2247E-05),( 1.1888E-05, 2.2432E-05),
     &  ( 1.1820E-05, 2.3230E-05),( 1.1506E-05, 2.6052E-05),
     &  ( 1.3890E-05, 2.8399E-05),( 1.6540E-05, 3.1914E-05),
     &  ( 1.7950E-05, 3.7825E-05),( 2.0760E-05, 4.0768E-05),
     &  ( 1.9518E-05, 3.9089E-05),( 1.8616E-05, 3.6876E-05),
     &  ( 1.8732E-05, 3.8968E-05),( 1.7221E-05, 4.1279E-05),
     &  ( 1.6501E-05, 4.1741E-05),( 1.6460E-05, 4.2325E-05),
     &  ( 1.7030E-05, 4.2933E-05),( 1.6920E-05, 4.4417E-05),
     &  ( 1.7267E-05, 4.3273E-05),( 1.7352E-05, 4.2179E-05),
     &  ( 1.8109E-05, 3.9917E-05),( 1.8287E-05, 4.8746E-05),
     &  ( 1.8832E-05, 5.5971E-05),( 2.0525E-05, 6.2125E-05),
     &  ( 2.1310E-05, 6.1857E-05),( 2.1594E-05, 6.1979E-05),
     &  ( 2.3357E-05, 6.4898E-05),( 2.2235E-05, 6.6892E-05),
     &  ( 2.2560E-05, 7.0517E-05),( 2.3380E-05, 7.4384E-05),
     &  ( 2.4282E-05, 7.9055E-05),( 2.4843E-05, 8.4771E-05),
     &  ( 2.4659E-05, 8.9271E-05),( 2.4687E-05, 9.4209E-05),
     &  ( 2.4652E-05, 1.1423E-04),( 6.3240E-05, 1.1357E-04),
     &  ( 5.5309E-05, 1.1099E-04),( 7.9581E-05, 1.1525E-04),
     &  ( 5.3548E-05, 1.1250E-04),( 5.2876E-05, 1.0524E-04),
     &  ( 4.6135E-05, 9.7994E-05),( 4.6205E-05, 1.0310E-04),
     &  ( 4.6175E-05, 1.2759E-04),( 4.3110E-05, 1.2774E-04),
     &  ( 4.3337E-05, 1.2334E-04),( 4.3603E-05, 1.2604E-04),
     &  ( 4.2327E-05, 1.2891E-04),( 4.2606E-05, 1.3128E-04),
     &  ( 4.1851E-05, 1.3971E-04),( 4.1803E-05, 1.4832E-04),
     &  ( 4.1761E-05, 1.5681E-04),( 4.1970E-05, 1.6862E-04),
     &  ( 4.2461E-05, 1.7406E-04),( 4.2959E-05, 1.7974E-04),
     &  ( 4.4919E-05, 1.8802E-04),( 4.6755E-05, 1.9709E-04)/

         DATA ((CAS  (I,J), I= 101, 200), J=2,2) /
     &  ( 4.8479E-05, 2.0966E-04),( 5.0058E-05, 2.2184E-04),
     &  ( 5.1996E-05, 2.3413E-04),( 5.3979E-05, 2.4417E-04),
     &  ( 5.5762E-05, 2.4617E-04),( 5.6789E-05, 2.4818E-04),
     &  ( 5.7305E-05, 2.5013E-04),( 5.6735E-05, 2.5215E-04),
     &  ( 5.6169E-05, 2.5405E-04),( 5.5605E-05, 2.5594E-04),
     &  ( 5.5126E-05, 2.5784E-04),( 5.3162E-05, 2.5991E-04),
     &  ( 5.0332E-05, 2.6182E-04),( 4.7841E-05, 2.6205E-04),
     &  ( 4.5151E-05, 2.5286E-04),( 4.2099E-05, 2.4259E-04),
     &  ( 3.9103E-05, 2.3030E-04),( 3.4551E-05, 2.0304E-04),
     &  ( 3.7508E-05, 1.7407E-04),( 4.1611E-05, 1.7788E-04),
     &  ( 4.5404E-05, 1.8111E-04),( 4.9238E-05, 1.8417E-04),
     &  ( 5.1836E-05, 1.8701E-04),( 5.4640E-05, 1.8976E-04),
     &  ( 5.6473E-05, 1.9267E-04),( 5.6592E-05, 2.0497E-04),
     &  ( 5.7092E-05, 2.0129E-04),( 5.7612E-05, 1.9760E-04),
     &  ( 5.8056E-05, 1.9412E-04),( 5.7071E-05, 1.9040E-04),
     &  ( 5.6089E-05, 1.8639E-04),( 5.4794E-05, 1.8271E-04),
     &  ( 5.3342E-05, 1.7868E-04),( 5.1454E-05, 1.7452E-04),
     &  ( 4.9702E-05, 1.7036E-04),( 4.6714E-05, 1.6223E-04),
     &  ( 4.4204E-05, 1.5565E-04),( 4.2302E-05, 1.4897E-04),
     &  ( 4.0905E-05, 1.4395E-04),( 3.9577E-05, 1.3906E-04),
     &  ( 3.8761E-05, 1.3359E-04),( 3.7178E-05, 1.2521E-04),
     &  ( 3.6342E-05, 1.1608E-04),( 3.6235E-05, 1.2688E-04),
     &  ( 3.5723E-05, 1.2394E-04),( 3.5245E-05, 1.2158E-04),
     &  ( 3.4336E-05, 1.2045E-04),( 3.4770E-05, 9.9108E-05),
     &  ( 3.4399E-05, 9.5757E-05),( 3.3931E-05, 8.5184E-05),
     &  ( 3.2240E-05, 8.4240E-05),( 3.3155E-05, 8.4430E-05),
     &  ( 3.3662E-05, 8.4554E-05),( 3.5256E-05, 8.0188E-05),
     &  ( 2.1534E-05, 7.9053E-05),( 2.4715E-05, 8.2187E-05),
     &  ( 2.9496E-05, 7.5895E-05),( 3.9167E-05, 7.2725E-05),
     &  ( 2.1842E-05, 7.3484E-05),( 2.1040E-05, 7.1052E-05),
     &  ( 2.0238E-05, 6.9896E-05),( 1.8873E-05, 6.1809E-05),
     &  ( 1.8312E-05, 6.0252E-05),( 1.7803E-05, 6.2611E-05),
     &  ( 1.8630E-05, 6.0860E-05),( 1.9790E-05, 5.9571E-05),
     &  ( 1.8886E-05, 5.7783E-05),( 1.8896E-05, 5.8379E-05),
     &  ( 1.7926E-05, 5.5387E-05),( 1.8131E-05, 5.3684E-05),
     &  ( 1.7379E-05, 5.0595E-05),( 1.6728E-05, 5.1300E-05),
     &  ( 1.6446E-05, 4.8406E-05),( 1.6164E-05, 4.6800E-05),
     &  ( 1.7171E-05, 4.5608E-05),( 1.7785E-05, 4.2568E-05),
     &  ( 1.6533E-05, 4.4027E-05),( 1.5627E-05, 4.3881E-05),
     &  ( 1.5647E-05, 4.5025E-05),( 1.5380E-05, 4.4125E-05),
     &  ( 1.5159E-05, 4.2519E-05),( 1.5083E-05, 4.2665E-05),
     &  ( 1.4524E-05, 4.1619E-05),( 1.4117E-05, 3.9454E-05),
     &  ( 1.3911E-05, 3.9576E-05),( 1.3531E-05, 4.1206E-05),
     &  ( 1.3654E-05, 3.9819E-05),( 1.3037E-05, 3.5684E-05),
     &  ( 1.3437E-05, 3.4930E-05),( 1.2892E-05, 3.5562E-05),
     &  ( 1.2955E-05, 3.5611E-05),( 1.3009E-05, 3.5344E-05),
     &  ( 1.3550E-05, 3.4492E-05),( 1.3925E-05, 3.3130E-05),
     &  ( 1.3132E-05, 3.4614E-05),( 1.2577E-05, 3.3787E-05),
     &  ( 1.1804E-05, 4.1619E-05),( 1.2874E-05, 3.8384E-05),
     &  ( 1.5408E-05, 3.8919E-05),( 3.5561E-05, 5.9607E-05)/

         DATA ((CAS  (I,J), I= 201, 300), J=2,2) /
     &  ( 2.1520E-05, 4.7871E-05),( 1.3158E-05, 4.4465E-05),
     &  ( 1.2158E-05, 4.3699E-05),( 1.1677E-05, 4.2957E-05),
     &  ( 1.1722E-05, 4.2233E-05),( 1.2240E-05, 4.1510E-05),
     &  ( 1.2925E-05, 4.2240E-05),( 1.3221E-05, 4.3551E-05),
     &  ( 1.3290E-05, 4.4862E-05),( 1.3262E-05, 4.4246E-05),
     &  ( 1.3278E-05, 4.3310E-05),( 1.3382E-05, 4.2373E-05),
     &  ( 1.3571E-05, 4.1965E-05),( 1.3540E-05, 4.1342E-05),
     &  ( 1.3458E-05, 4.0765E-05),( 1.3477E-05, 4.1430E-05),
     &  ( 1.3484E-05, 4.2094E-05),( 1.3519E-05, 4.2215E-05),
     &  ( 1.3619E-05, 4.0981E-05),( 1.3775E-05, 3.9746E-05),
     &  ( 1.3972E-05, 3.9128E-05),( 1.4195E-05, 3.9333E-05),
     &  ( 1.4422E-05, 3.9537E-05),( 1.4645E-05, 4.0087E-05),
     &  ( 1.4871E-05, 4.0896E-05),( 1.5155E-05, 4.1704E-05),
     &  ( 1.5635E-05, 4.3480E-05),( 1.6729E-05, 4.6205E-05),
     &  ( 1.9840E-05, 5.0336E-05),( 3.1626E-05, 5.4468E-05),
     &  ( 5.2904E-05, 5.6238E-05),( 4.8797E-05, 5.4773E-05),
     &  ( 3.7968E-05, 5.4675E-05),( 2.1632E-05, 5.4621E-05),
     &  ( 1.6214E-05, 5.4815E-05),( 1.4927E-05, 5.5186E-05),
     &  ( 2.4395E-05, 5.5850E-05),( 2.5230E-05, 5.6732E-05),
     &  ( 2.6162E-05, 5.8042E-05),( 2.7168E-05, 6.0319E-05),
     &  ( 2.8259E-05, 6.4520E-05),( 2.9426E-05, 6.9073E-05),
     &  ( 3.0641E-05, 7.4554E-05),( 3.1828E-05, 8.0985E-05),
     &  ( 3.3015E-05, 8.7572E-05),( 3.4183E-05, 9.2380E-05),
     &  ( 3.5688E-05, 9.7300E-05),( 3.7825E-05, 9.5464E-05),
     &  ( 4.0997E-05, 9.0418E-05),( 4.5282E-05, 8.5506E-05),
     &  ( 4.9755E-05, 8.0754E-05),( 5.3374E-05, 1.0802E-04),
     &  ( 6.1986E-05, 1.4511E-04),( 7.7028E-05, 1.8464E-04),
     &  ( 8.3053E-05, 1.9166E-04),( 8.9781E-05, 1.9869E-04),
     &  ( 9.6249E-05, 2.1069E-04),( 1.0480E-04, 2.2582E-04),
     &  ( 1.1434E-04, 2.4743E-04),( 1.2310E-04, 2.6936E-04),
     &  ( 1.3264E-04, 2.9112E-04),( 1.4226E-04, 3.1293E-04),
     &  ( 1.5353E-04, 3.4153E-04),( 1.6653E-04, 3.9237E-04),
     &  ( 1.7756E-04, 4.4333E-04),( 1.9033E-04, 4.7427E-04),
     &  ( 2.0276E-04, 5.0839E-04),( 2.0610E-04, 5.2367E-04),
     &  ( 2.0504E-04, 5.1570E-04),( 1.9741E-04, 5.2614E-04),
     &  ( 1.8081E-04, 5.3537E-04),( 1.5478E-04, 5.4266E-04),
     &  ( 1.2452E-04, 5.3706E-04),( 9.2031E-05, 5.3245E-04),
     &  ( 7.3522E-05, 5.6464E-04),( 8.7855E-05, 6.1768E-04),
     &  ( 1.1974E-04, 6.0629E-04),( 1.5217E-04, 5.6538E-04),
     &  ( 1.7800E-04, 5.4429E-04),( 1.9503E-04, 5.2295E-04),
     &  ( 2.0175E-04, 5.0187E-04),( 2.0470E-04, 4.7813E-04),
     &  ( 2.0005E-04, 4.5560E-04),( 1.8975E-04, 4.3357E-04),
     &  ( 1.8002E-04, 4.1130E-04),( 1.6756E-04, 3.8930E-04),
     &  ( 1.5475E-04, 3.5359E-04),( 1.4253E-04, 3.1915E-04),
     &  ( 1.3125E-04, 2.8647E-04),( 1.2086E-04, 2.6393E-04),
     &  ( 1.1152E-04, 2.4980E-04),( 9.9498E-05, 2.3473E-04),
     &  ( 9.2379E-05, 2.2471E-04),( 8.8957E-05, 2.1970E-04),
     &  ( 8.3000E-05, 2.0970E-04),( 7.7829E-05, 2.0234E-04),
     &  ( 7.3774E-05, 1.9617E-04),( 7.0835E-05, 1.9002E-04),
     &  ( 6.7289E-05, 1.8411E-04),( 6.2447E-05, 1.7797E-04)/

         DATA ((CAS  (I,J), I= 301, 400), J=2,2) /
     &  ( 5.9076E-05, 1.7209E-04),( 5.6939E-05, 1.6599E-04),
     &  ( 5.3923E-05, 1.6013E-04),( 5.1224E-05, 1.5407E-04),
     &  ( 4.4426E-05, 1.3117E-04),( 4.0516E-05, 1.0889E-04),
     &  ( 3.9725E-05, 8.7698E-05),( 3.7483E-05, 7.0596E-05),
     &  ( 3.4829E-05, 6.4736E-05),( 3.2240E-05, 6.2352E-05),
     &  ( 3.0168E-05, 6.0271E-05),( 2.8596E-05, 5.8345E-05),
     &  ( 2.7362E-05, 5.6590E-05),( 2.6353E-05, 5.4912E-05),
     &  ( 2.5512E-05, 5.3562E-05),( 2.4794E-05, 5.2432E-05),
     &  ( 2.4163E-05, 5.1687E-05),( 2.3609E-05, 5.1454E-05),
     &  ( 2.3127E-05, 5.1141E-05),( 2.2709E-05, 5.0791E-05),
     &  ( 1.5948E-05, 5.0522E-05),( 1.5168E-05, 5.0246E-05),
     &  ( 1.5146E-05, 5.0001E-05),( 1.6436E-05, 4.9805E-05),
     &  ( 2.1868E-05, 4.9617E-05),( 4.1757E-05, 4.9555E-05),
     &  ( 3.8263E-05, 5.1081E-05),( 2.1243E-05, 5.0439E-05),
     &  ( 1.7346E-05, 4.9286E-05),( 1.5931E-05, 4.8132E-05),
     &  ( 1.5216E-05, 4.6979E-05),( 1.4718E-05, 4.5826E-05),
     &  ( 1.4420E-05, 4.4672E-05),( 1.4229E-05, 4.3519E-05),
     &  ( 1.4196E-05, 4.2523E-05),( 1.4064E-05, 4.1739E-05),
     &  ( 1.4063E-05, 4.0954E-05),( 1.4107E-05, 4.0169E-05),
     &  ( 1.4192E-05, 3.9385E-05),( 1.4316E-05, 3.8600E-05),
     &  ( 1.4478E-05, 3.7815E-05),( 1.4622E-05, 3.7560E-05),
     &  ( 1.4693E-05, 3.7740E-05),( 1.4848E-05, 3.7921E-05),
     &  ( 1.4917E-05, 3.8101E-05),( 1.4805E-05, 3.8282E-05),
     &  ( 1.4740E-05, 3.8462E-05),( 1.4731E-05, 3.8643E-05),
     &  ( 1.4788E-05, 3.8790E-05),( 1.4924E-05, 3.8733E-05),
     &  ( 1.5153E-05, 3.8677E-05),( 1.5296E-05, 3.8620E-05),
     &  ( 1.5010E-05, 3.8563E-05),( 1.4735E-05, 3.8507E-05),
     &  ( 1.4476E-05, 3.8450E-05),( 1.4235E-05, 4.0038E-05),
     &  ( 1.3684E-05, 4.6727E-05),( 1.4073E-05, 4.6581E-05),
     &  ( 1.4613E-05, 4.4198E-05),( 1.6593E-05, 3.8408E-05),
     &  ( 1.6630E-05, 3.6730E-05),( 1.6514E-05, 3.5489E-05),
     &  ( 1.6259E-05, 3.5952E-05),( 1.6433E-05, 3.5052E-05),
     &  ( 1.5403E-05, 3.3008E-05),( 1.5021E-05, 3.2935E-05),
     &  ( 1.3720E-05, 3.6487E-05),( 1.5237E-05, 3.2206E-05),
     &  ( 1.5102E-05, 3.2303E-05),( 1.4378E-05, 3.0819E-05),
     &  ( 1.4482E-05, 3.1841E-05),( 1.4048E-05, 3.1792E-05),
     &  ( 1.3966E-05, 2.9700E-05),( 1.4263E-05, 2.9773E-05),
     &  ( 1.3268E-05, 2.9968E-05),( 1.4224E-05, 2.9238E-05),
     &  ( 1.3403E-05, 2.9554E-05),( 1.3760E-05, 2.9141E-05),
     &  ( 1.3480E-05, 2.9652E-05),( 1.4178E-05, 2.9870E-05),
     &  ( 1.3150E-05, 3.0698E-05),( 1.4075E-05, 3.0600E-05),
     &  ( 1.3035E-05, 2.9846E-05),( 1.3933E-05, 2.8898E-05),
     &  ( 1.3553E-05, 2.8800E-05),( 1.3627E-05, 2.8873E-05),
     &  ( 1.4165E-05, 2.9846E-05),( 1.3304E-05, 3.0284E-05),
     &  ( 1.4395E-05, 3.0260E-05),( 1.3783E-05, 2.9408E-05),
     &  ( 1.3838E-05, 3.0333E-05),( 1.4526E-05, 3.0989E-05),
     &  ( 1.4182E-05, 3.0795E-05),( 1.5878E-05, 3.0138E-05),
     &  ( 1.4873E-05, 3.0819E-05),( 1.5937E-05, 3.2279E-05),
     &  ( 1.5974E-05, 3.2960E-05),( 1.8183E-05, 3.7557E-05),
     &  ( 1.7807E-05, 3.7508E-05),( 1.7363E-05, 3.8433E-05)/

         DATA ((CAS  (I,J), I= 401, 500), J=2,2) /
     &  ( 1.8330E-05, 4.5320E-05),( 2.0561E-05, 5.1081E-05),
     &  ( 2.1696E-05, 5.1081E-05),( 2.0213E-05, 5.1081E-05),
     &  ( 1.9657E-05, 5.1081E-05),( 2.0366E-05, 5.3514E-05),
     &  ( 2.1796E-05, 5.3514E-05),( 2.3021E-05, 5.5946E-05),
     &  ( 2.3130E-05, 5.5946E-05),( 2.1976E-05, 5.5946E-05),
     &  ( 2.2990E-05, 5.5946E-05),( 2.2844E-05, 5.8379E-05),
     &  ( 2.3553E-05, 5.8379E-05),( 2.6195E-05, 5.8379E-05),
     &  ( 2.5441E-05, 5.8379E-05),( 2.3609E-05, 5.8379E-05),
     &  ( 2.4467E-05, 5.8379E-05),( 2.2558E-05, 5.8379E-05),
     &  ( 2.2796E-05, 5.8379E-05),( 2.5081E-05, 6.0811E-05),
     &  ( 2.5469E-05, 6.0811E-05),( 2.6161E-05, 6.0811E-05),
     &  ( 2.7153E-05, 6.3244E-05),( 2.6209E-05, 6.5676E-05),
     &  ( 2.5210E-05, 6.5676E-05),( 2.6446E-05, 6.8109E-05),
     &  ( 2.6485E-05, 6.8109E-05),( 2.9601E-05, 7.0541E-05),
     &  ( 2.9629E-05, 7.0541E-05),( 2.8908E-05, 7.0541E-05),
     &  ( 3.0565E-05, 7.2974E-05),( 2.9174E-05, 7.2974E-05),
     &  ( 2.9895E-05, 7.2974E-05),( 3.1328E-05, 7.5406E-05),
     &  ( 3.3308E-05, 8.0271E-05),( 3.0980E-05, 8.2703E-05),
     &  ( 3.1086E-05, 8.2703E-05),( 3.0339E-05, 9.2433E-05),
     &  ( 3.1923E-05, 9.2433E-05),( 3.5564E-05, 9.4866E-05),
     &  ( 3.4921E-05, 9.4866E-05),( 3.5779E-05, 9.7298E-05),
     &  ( 3.4531E-05, 9.7298E-05),( 3.4769E-05, 9.7298E-05),
     &  ( 3.3807E-05, 9.4866E-05),( 3.3314E-05, 9.4866E-05),
     &  ( 3.8015E-05, 9.7298E-05),( 3.5162E-05, 9.9730E-05),
     &  ( 3.7075E-05, 9.9730E-05),( 3.3566E-05, 9.7298E-05),
     &  ( 3.8674E-05, 9.7298E-05),( 3.8527E-05, 9.4866E-05),
     &  ( 3.8706E-05, 9.7298E-05),( 3.9220E-05, 9.9730E-05),
     &  ( 3.6385E-05, 9.9730E-05),( 3.3413E-05, 1.0216E-04),
     &  ( 3.2314E-05, 9.9730E-05),( 3.3827E-05, 9.7298E-05),
     &  ( 3.7319E-05, 9.7298E-05),( 3.7808E-05, 9.4866E-05),
     &  ( 3.7671E-05, 9.2433E-05),( 3.7071E-05, 9.2433E-05),
     &  ( 3.7246E-05, 9.2433E-05),( 3.6211E-05, 9.2433E-05),
     &  ( 3.6832E-05, 9.2433E-05),( 3.6920E-05, 9.4866E-05),
     &  ( 3.5528E-05, 9.4866E-05),( 3.6879E-05, 9.7298E-05),
     &  ( 3.9393E-05, 9.9730E-05),( 3.8221E-05, 9.4866E-05),
     &  ( 3.9099E-05, 9.4866E-05),( 3.9780E-05, 9.0001E-05),
     &  ( 4.3115E-05, 9.2433E-05),( 4.5962E-05, 9.4866E-05),
     &  ( 4.6609E-05, 9.4866E-05),( 5.1851E-05, 9.2433E-05),
     &  ( 5.4123E-05, 9.0001E-05),( 5.1795E-05, 9.0001E-05),
     &  ( 5.0576E-05, 1.4351E-04),( 4.8009E-05, 1.3865E-04),
     &  ( 4.7435E-05, 1.3865E-04),( 5.5538E-05, 1.3622E-04),
     &  ( 6.0255E-05, 1.3378E-04),( 5.9920E-05, 1.3135E-04),
     &  ( 5.0456E-05, 1.2892E-04),( 5.2791E-05, 1.2162E-04),
     &  ( 5.5471E-05, 1.1919E-04),( 5.7963E-05, 1.1919E-04),
     &  ( 5.3060E-05, 1.1433E-04),( 5.3837E-05, 1.1433E-04),
     &  ( 5.3825E-05, 1.1433E-04),( 5.4152E-05, 1.1433E-04),
     &  ( 5.6176E-05, 1.1433E-04),( 5.6010E-05, 1.1433E-04),
     &  ( 5.2039E-05, 1.1189E-04),( 5.0437E-05, 1.1189E-04),
     &  ( 5.6516E-05, 1.1189E-04),( 6.5520E-05, 9.9730E-05),
     &  ( 6.3560E-05, 9.0129E-05),( 7.5052E-05, 9.7298E-05)/

         DATA ((CAS  (I,J), I= 501, 600), J=2,2) /
     &  ( 8.0361E-05, 9.9730E-05),( 7.6811E-05, 9.9730E-05),
     &  ( 7.1858E-05, 9.7298E-05),( 7.0309E-05, 4.8649E-05),
     &  ( 5.2028E-05, 4.8975E-05),( 5.1882E-05, 4.9741E-05),
     &  ( 5.1303E-05, 5.3514E-05),( 4.3393E-05, 4.6217E-05),
     &  ( 3.8632E-05, 3.8919E-05),( 3.6415E-05, 3.8919E-05),
     &  ( 3.5665E-05, 3.8919E-05),( 3.5247E-05, 3.8919E-05),
     &  ( 3.4953E-05, 3.8919E-05),( 3.4690E-05, 3.8919E-05),
     &  ( 3.4342E-05, 3.8919E-05),( 3.3477E-05, 3.8919E-05),
     &  ( 2.9014E-05, 3.8919E-05),( 3.0202E-05, 3.8676E-05),
     &  ( 2.6600E-05, 3.8433E-05),( 2.4845E-05, 3.8189E-05),
     &  ( 2.3692E-05, 3.7946E-05),( 2.2677E-05, 3.7703E-05),
     &  ( 2.1066E-05, 3.7460E-05),( 2.0901E-05, 3.7216E-05),
     &  ( 2.0482E-05, 3.7168E-05),( 2.0403E-05, 3.7119E-05),
     &  ( 2.0556E-05, 3.7071E-05),( 2.0887E-05, 3.7022E-05),
     &  ( 2.1378E-05, 3.6973E-05),( 2.0565E-05, 3.6925E-05),
     &  ( 1.9914E-05, 3.6876E-05),( 1.9438E-05, 3.6827E-05),
     &  ( 1.9194E-05, 3.6779E-05),( 1.8933E-05, 3.6730E-05),
     &  ( 1.7801E-05, 3.6511E-05),( 1.7880E-05, 3.6834E-05),
     &  ( 1.8354E-05, 3.7043E-05),( 1.8268E-05, 3.7182E-05),
     &  ( 1.8100E-05, 3.7321E-05),( 1.8172E-05, 3.7460E-05),
     &  ( 1.8081E-05, 3.7599E-05),( 1.7961E-05, 3.7738E-05),
     &  ( 1.7752E-05, 3.7877E-05),( 1.7631E-05, 3.7946E-05),
     &  ( 1.7592E-05, 3.8016E-05),( 1.7487E-05, 3.8085E-05),
     &  ( 1.7464E-05, 3.8155E-05),( 1.7372E-05, 3.8224E-05),
     &  ( 1.7360E-05, 3.8294E-05),( 1.7278E-05, 3.8363E-05),
     &  ( 1.7274E-05, 3.8433E-05),( 1.7198E-05, 3.8502E-05),
     &  ( 1.7201E-05, 3.8572E-05),( 1.7130E-05, 3.8641E-05),
     &  ( 1.7067E-05, 3.8711E-05),( 1.7010E-05, 3.8780E-05),
     &  ( 1.6959E-05, 3.8850E-05),( 1.6912E-05, 3.8919E-05),
     &  ( 1.6869E-05, 3.9081E-05),( 1.6830E-05, 3.9244E-05),
     &  ( 1.6792E-05, 3.9406E-05),( 1.6757E-05, 3.9568E-05),
     &  ( 1.6723E-05, 3.9730E-05),( 1.6691E-05, 3.9892E-05),
     &  ( 1.6660E-05, 4.0054E-05),( 1.6630E-05, 4.0217E-05),
     &  ( 1.6600E-05, 4.0379E-05),( 1.6571E-05, 4.0541E-05),
     &  ( 1.6542E-05, 4.0703E-05),( 1.6513E-05, 4.0865E-05),
     &  ( 1.6482E-05, 4.1027E-05),( 1.6450E-05, 4.1190E-05),
     &  ( 1.6415E-05, 4.1352E-05),( 1.6405E-05, 4.1352E-05),
     &  ( 1.6396E-05, 4.1352E-05),( 1.6388E-05, 4.1352E-05),
     &  ( 1.6381E-05, 4.1352E-05),( 1.6376E-05, 4.1352E-05),
     &  ( 1.6372E-05, 4.1352E-05),( 1.6368E-05, 4.1352E-05),
     &  ( 1.6366E-05, 4.1352E-05),( 1.6365E-05, 4.1352E-05),
     &  ( 1.6364E-05, 4.1352E-05),( 1.6352E-05, 4.1291E-05),
     &  ( 1.6365E-05, 4.1230E-05),( 1.6353E-05, 4.1169E-05),
     &  ( 1.6366E-05, 4.1108E-05),( 1.6354E-05, 4.1048E-05),
     &  ( 1.6368E-05, 4.0987E-05),( 1.6357E-05, 4.0926E-05),
     &  ( 1.6371E-05, 4.0865E-05),( 1.6360E-05, 4.0804E-05),
     &  ( 1.6375E-05, 4.0744E-05),( 1.6364E-05, 4.0683E-05),
     &  ( 1.6380E-05, 4.0622E-05),( 1.6370E-05, 4.0561E-05),
     &  ( 1.6386E-05, 4.0500E-05),( 1.6376E-05, 4.0439E-05),
     &  ( 1.6393E-05, 4.0379E-05),( 1.6384E-05, 4.0318E-05)/

         DATA ((CAS  (I,J), I= 601, 700), J=2,2) /
     &  ( 1.6401E-05, 4.0257E-05),( 1.6384E-05, 4.0196E-05),
     &  ( 1.6407E-05, 4.0135E-05),( 1.6400E-05, 4.0075E-05),
     &  ( 1.6394E-05, 4.0014E-05),( 1.6390E-05, 3.9953E-05),
     &  ( 1.6386E-05, 3.9892E-05),( 1.6384E-05, 3.9831E-05),
     &  ( 1.6384E-05, 3.9771E-05),( 1.6384E-05, 3.9710E-05),
     &  ( 1.6386E-05, 3.9649E-05),( 1.6389E-05, 3.9588E-05),
     &  ( 1.6393E-05, 3.9527E-05),( 1.6399E-05, 3.9467E-05),
     &  ( 1.6400E-05, 3.9406E-05),( 1.6390E-05, 3.9345E-05),
     &  ( 1.6393E-05, 3.9284E-05),( 1.6383E-05, 3.9223E-05),
     &  ( 1.6387E-05, 3.9162E-05),( 1.6377E-05, 3.9102E-05),
     &  ( 1.6381E-05, 3.9041E-05),( 1.6370E-05, 3.8956E-05),
     &  ( 1.6377E-05, 3.8919E-05),( 1.6366E-05, 3.8919E-05),
     &  ( 1.6372E-05, 3.8919E-05),( 1.6361E-05, 3.8919E-05),
     &  ( 1.6368E-05, 3.8919E-05),( 1.6357E-05, 3.8919E-05),
     &  ( 1.6364E-05, 3.8919E-05),( 1.6351E-05, 3.8919E-05),
     &  ( 1.6359E-05, 3.8919E-05),( 1.6345E-05, 3.8919E-05),
     &  ( 1.6353E-05, 3.8919E-05),( 1.6338E-05, 3.8919E-05),
     &  ( 1.6338E-05, 3.8919E-05),( 1.6375E-05, 3.8919E-05),
     &  ( 1.6421E-05, 3.8919E-05),( 1.6429E-05, 3.8919E-05),
     &  ( 1.6441E-05, 3.8919E-05),( 1.6449E-05, 3.8919E-05),
     &  ( 1.6458E-05, 3.8919E-05),( 1.6466E-05, 3.8919E-05),
     &  ( 1.6475E-05, 3.5142E-04),( 1.6485E-05, 8.1854E-04),
     &  ( 1.6491E-05, 3.6902E-03),( 1.6490E-05, 4.1360E-03),
     &  ( 1.6489E-05, 4.6675E-03),( 1.6488E-05, 5.3084E-03),
     &  ( 1.6488E-05, 6.0906E-03),( 1.6489E-05, 7.0591E-03),
     &  ( 1.6489E-05, 8.2777E-03),( 1.6491E-05, 9.8405E-03),
     &  ( 1.6492E-05, 1.1890E-02),( 1.6494E-05, 1.4651E-02),
     &  ( 1.6497E-05, 1.8491E-02),( 1.6500E-05, 2.4056E-02),
     &  ( 1.6503E-05, 3.2542E-02),( 1.6507E-05, 4.6388E-02),
     &  ( 1.6507E-05, 4.8235E-02),( 1.6514E-05, 1.0211E-01),
     &  ( 1.6518E-05, 1.5965E-01),( 1.6520E-05, 2.2064E-01),
     &  ( 1.6522E-05, 2.8770E-01),( 1.6523E-05, 3.5104E-01),
     &  ( 1.6524E-05, 4.1744E-01),( 1.6525E-05, 4.8067E-01),
     &  ( 1.6526E-05, 5.5617E-01),( 1.6526E-05, 6.1870E-01),
     &  ( 1.6527E-05, 6.8906E-01),( 1.6527E-05, 7.5120E-01),
     &  ( 1.6528E-05, 8.1843E-01),( 1.6528E-05, 8.7197E-01),
     &  ( 1.6528E-05, 9.4685E-01),( 1.6529E-05, 9.8543E-01),
     &  ( 1.6529E-05, 1.0441E+00),( 1.6529E-05, 1.1028E+00),
     &  ( 1.6530E-05, 1.1414E+00),( 1.6530E-05, 1.1975E+00),
     &  ( 1.6530E-05, 1.2329E+00),( 1.6530E-05, 1.2663E+00),
     &  ( 1.6530E-05, 1.2969E+00),( 1.6530E-05, 1.3244E+00),
     &  ( 1.6530E-05, 1.3482E+00),( 1.6530E-05, 1.3679E+00),
     &  ( 1.6530E-05, 1.3831E+00),( 1.6529E-05, 1.3933E+00),
     &  ( 1.6529E-05, 1.3985E+00),( 1.6529E-05, 1.3985E+00),
     &  ( 1.6529E-05, 1.3888E+00),( 1.6529E-05, 1.3761E+00),
     &  ( 1.6529E-05, 1.3483E+00),( 1.6529E-05, 1.3111E+00),
     &  ( 1.6528E-05, 1.1792E+00),( 1.6528E-05, 1.0245E+00),
     &  ( 1.6528E-05, 9.6613E-01),( 1.6528E-05, 9.0904E-01),
     &  ( 1.6527E-05, 8.7204E-01),( 1.6527E-05, 8.1851E-01),
     &  ( 1.6527E-05, 7.8427E-01),( 1.6527E-05, 7.5127E-01)/

         DATA ((CAS  (I,J), I= 701, 800), J=2,2) /
     &  ( 1.6527E-05, 7.1955E-01),( 1.6527E-05, 6.8914E-01),
     &  ( 1.6527E-05, 6.6002E-01),( 1.6527E-05, 6.3220E-01),
     &  ( 1.6527E-05, 6.0565E-01),( 1.6527E-05, 5.8034E-01),
     &  ( 1.6526E-05, 5.5624E-01),( 1.6526E-05, 5.3330E-01),
     &  ( 1.6526E-05, 5.0097E-01),( 1.6526E-05, 4.8074E-01),
     &  ( 1.6526E-05, 4.5225E-01),( 1.6526E-05, 4.2587E-01),
     &  ( 1.6526E-05, 4.0936E-01),( 1.6526E-05, 3.7876E-01),
     &  ( 1.6526E-05, 3.5776E-01),( 1.6525E-05, 3.3209E-01),
     &  ( 1.6525E-05, 3.0884E-01),( 1.6525E-05, 2.8279E-01),
     &  ( 1.6525E-05, 2.5966E-01),( 1.6525E-05, 2.3147E-01),
     &  ( 1.6524E-05, 2.0739E-01),( 1.6524E-05, 1.8133E-01),
     &  ( 1.6524E-05, 1.5539E-01),( 1.6523E-05, 1.2630E-01),
     &  ( 1.6523E-05, 9.7703E-02),( 1.6522E-05, 6.7922E-02),
     &  ( 1.6521E-05, 4.6411E-02),( 1.6521E-05, 3.2561E-02),
     &  ( 1.6521E-05, 2.4072E-02),( 1.6522E-05, 1.8506E-02),
     &  ( 1.6523E-05, 1.4663E-02),( 1.6524E-05, 1.1902E-02),
     &  ( 1.6526E-05, 9.8511E-03),( 1.6528E-05, 8.2874E-03),
     &  ( 1.6531E-05, 7.0680E-03),( 1.6534E-05, 6.0989E-03),
     &  ( 1.6538E-05, 5.3161E-03),( 1.6542E-05, 4.6748E-03),
     &  ( 1.6547E-05, 4.1428E-03),( 1.6552E-05, 3.6967E-03),
     &  ( 1.6557E-05, 3.3189E-03),( 1.6562E-05, 2.9962E-03),
     &  ( 1.6563E-05, 2.7183E-03),( 1.6565E-05, 2.4774E-03),
     &  ( 1.6593E-05, 6.9080E-04),( 1.6620E-05, 3.2066E-04),
     &  ( 1.6646E-05, 1.8668E-04),( 1.6672E-05, 1.2453E-04),
     &  ( 1.6694E-05, 3.8991E-05),( 1.6716E-05, 3.9015E-05),
     &  ( 1.6739E-05, 3.9039E-05),( 1.6761E-05, 3.9063E-05),
     &  ( 1.6751E-05, 3.9087E-05),( 1.6740E-05, 3.9111E-05),
     &  ( 1.6745E-05, 3.9114E-05),( 1.6779E-05, 3.9138E-05),
     &  ( 1.6811E-05, 3.9162E-05),( 1.6842E-05, 3.9187E-05),
     &  ( 1.6872E-05, 3.9211E-05),( 1.6901E-05, 3.9235E-05),
     &  ( 1.6930E-05, 3.9260E-05),( 1.6959E-05, 3.9284E-05),
     &  ( 1.6989E-05, 3.9308E-05),( 1.7018E-05, 3.9333E-05),
     &  ( 1.7047E-05, 3.9357E-05),( 1.7079E-05, 3.9381E-05),
     &  ( 1.7111E-05, 3.9406E-05),( 1.7143E-05, 3.9430E-05),
     &  ( 1.7176E-05, 3.9454E-05),( 1.7209E-05, 3.9479E-05),
     &  ( 1.7243E-05, 3.9503E-05),( 1.7277E-05, 3.9527E-05),
     &  ( 1.7312E-05, 3.9552E-05),( 1.7347E-05, 3.9576E-05),
     &  ( 1.7384E-05, 3.9600E-05),( 1.7421E-05, 3.9625E-05),
     &  ( 1.7459E-05, 3.9649E-05),( 1.7497E-05, 3.9673E-05),
     &  ( 1.7537E-05, 3.9698E-05),( 1.7578E-05, 3.9722E-05),
     &  ( 1.7619E-05, 3.9746E-05),( 1.7662E-05, 3.9771E-05),
     &  ( 1.7706E-05, 3.9795E-05),( 1.7750E-05, 3.9819E-05),
     &  ( 1.7796E-05, 3.9844E-05),( 1.7843E-05, 3.9868E-05),
     &  ( 1.7891E-05, 3.9892E-05),( 1.7941E-05, 3.9917E-05),
     &  ( 1.7992E-05, 3.9941E-05),( 1.8044E-05, 3.9965E-05),
     &  ( 1.8097E-05, 3.9989E-05),( 1.8152E-05, 4.0014E-05),
     &  ( 1.8209E-05, 4.0038E-05),( 1.8267E-05, 4.0062E-05),
     &  ( 1.8326E-05, 4.0087E-05),( 1.8388E-05, 4.0111E-05),
     &  ( 1.8451E-05, 4.0135E-05),( 1.8516E-05, 4.0160E-05),
     &  ( 1.8582E-05, 4.0184E-05),( 1.8651E-05, 4.0208E-05)/

         DATA ((CAS  (I,J), I= 801, 900), J=2,2) /
     &  ( 1.8722E-05, 4.0233E-05),( 1.8795E-05, 4.0257E-05),
     &  ( 1.8870E-05, 4.0281E-05),( 1.8947E-05, 4.0306E-05),
     &  ( 1.9027E-05, 4.0330E-05),( 1.9110E-05, 4.0354E-05),
     &  ( 1.9195E-05, 4.0379E-05),( 1.9283E-05, 4.0403E-05),
     &  ( 1.9374E-05, 4.0427E-05),( 1.9468E-05, 4.0452E-05),
     &  ( 1.9565E-05, 4.0476E-05),( 1.9666E-05, 4.0500E-05),
     &  ( 1.9770E-05, 4.0525E-05),( 1.9878E-05, 4.0549E-05),
     &  ( 1.9990E-05, 4.0573E-05),( 2.0107E-05, 4.0598E-05),
     &  ( 2.0228E-05, 4.0622E-05),( 2.0353E-05, 4.0646E-05),
     &  ( 2.0484E-05, 4.0671E-05),( 2.0620E-05, 4.0695E-05),
     &  ( 2.0763E-05, 4.0719E-05),( 2.0911E-05, 4.0744E-05),
     &  ( 2.1066E-05, 4.0768E-05),( 2.1228E-05, 4.0792E-05),
     &  ( 2.1398E-05, 4.0817E-05),( 2.1575E-05, 4.0841E-05),
     &  ( 2.1762E-05, 4.0865E-05),( 2.1958E-05, 4.0889E-05),
     &  ( 2.2165E-05, 4.0914E-05),( 2.2383E-05, 4.0938E-05),
     &  ( 2.2613E-05, 4.0962E-05),( 2.2856E-05, 4.0987E-05),
     &  ( 2.3114E-05, 4.1011E-05),( 2.3388E-05, 4.1035E-05),
     &  ( 2.3680E-05, 4.1060E-05),( 2.3991E-05, 4.1084E-05),
     &  ( 2.4324E-05, 4.1108E-05),( 2.4681E-05, 4.1133E-05),
     &  ( 2.5066E-05, 4.1157E-05),( 2.5480E-05, 4.1181E-05),
     &  ( 2.5930E-05, 4.1206E-05),( 2.6419E-05, 4.1230E-05),
     &  ( 2.6954E-05, 4.1254E-05),( 2.7541E-05, 4.1279E-05),
     &  ( 2.8192E-05, 4.1303E-05),( 2.8918E-05, 4.1327E-05),
     &  ( 2.9648E-05, 4.1349E-05),( 2.9639E-05, 4.1449E-05),
     &  ( 2.9538E-05, 4.1546E-05),( 2.9436E-05, 4.1644E-05),
     &  ( 2.9335E-05, 4.1741E-05),( 2.9233E-05, 4.1838E-05),
     &  ( 2.9131E-05, 4.1935E-05),( 2.9031E-05, 4.2033E-05),
     &  ( 2.8931E-05, 4.2130E-05),( 2.8832E-05, 4.2227E-05),
     &  ( 2.8730E-05, 4.2325E-05),( 3.7565E-05, 4.6217E-05),
     &  ( 4.4320E-05, 5.1081E-05),( 4.4037E-05, 5.1081E-05),
     &  ( 4.3278E-05, 5.1081E-05),( 4.2013E-05, 4.8649E-05),
     &  ( 3.7141E-05, 4.8649E-05),( 3.3715E-05, 4.8649E-05),
     &  ( 3.1162E-05, 4.8649E-05),( 3.1468E-05, 4.8771E-05),
     &  ( 3.1661E-05, 5.1081E-05),( 3.0323E-05, 5.1081E-05),
     &  ( 3.0437E-05, 5.1081E-05),( 2.7359E-05, 5.1081E-05),
     &  ( 2.7594E-05, 5.1081E-05),( 2.8214E-05, 5.1081E-05),
     &  ( 2.9341E-05, 4.3784E-05),( 2.8105E-05, 4.4045E-05),
     &  ( 2.7363E-05, 4.4479E-05),( 2.6788E-05, 4.4913E-05),
     &  ( 2.6473E-05, 4.5348E-05),( 2.6270E-05, 4.5782E-05),
     &  ( 2.6104E-05, 4.6217E-05),( 2.5900E-05, 4.6825E-05),
     &  ( 2.5503E-05, 4.7433E-05),( 2.5542E-05, 4.8041E-05),
     &  ( 2.5675E-05, 4.8649E-05),( 2.5477E-05, 4.8649E-05),
     &  ( 2.5681E-05, 4.8649E-05),( 2.5761E-05, 4.8649E-05),
     &  ( 2.5848E-05, 4.8649E-05),( 2.6193E-05, 4.8649E-05),
     &  ( 2.6117E-05, 4.8649E-05),( 2.6064E-05, 4.8649E-05),
     &  ( 2.6107E-05, 4.8649E-05),( 2.6078E-05, 4.8649E-05),
     &  ( 2.6164E-05, 4.8649E-05),( 2.6175E-05, 4.8649E-05),
     &  ( 2.6282E-05, 4.8649E-05),( 2.6316E-05, 4.8649E-05),
     &  ( 2.6444E-05, 4.8649E-05),( 2.6500E-05, 4.8649E-05),
     &  ( 2.6643E-05, 4.9312E-05),( 2.6714E-05, 4.9976E-05)/

         DATA ((CAS  (I,J), I= 901,1000), J=2,2) /
     &  ( 2.6803E-05, 5.0639E-05),( 2.6905E-05, 5.1276E-05),
     &  ( 2.6970E-05, 5.1641E-05),( 2.7064E-05, 5.2006E-05),
     &  ( 2.7151E-05, 5.2371E-05),( 2.7247E-05, 5.2736E-05),
     &  ( 2.7332E-05, 5.3100E-05),( 2.7426E-05, 5.3465E-05),
     &  ( 2.7526E-05, 5.3830E-05),( 2.7626E-05, 5.4195E-05),
     &  ( 2.7742E-05, 5.4560E-05),( 2.7850E-05, 5.4925E-05),
     &  ( 2.7981E-05, 5.5290E-05),( 2.8099E-05, 5.5654E-05),
     &  ( 2.8240E-05, 5.6019E-05),( 2.8377E-05, 5.6384E-05),
     &  ( 2.8528E-05, 5.6749E-05),( 2.8686E-05, 5.7114E-05),
     &  ( 2.8851E-05, 5.7479E-05),( 2.9032E-05, 5.7844E-05),
     &  ( 2.9166E-05, 5.8118E-05),( 2.9211E-05, 5.8209E-05),
     &  ( 2.9248E-05, 5.8282E-05),( 2.9307E-05, 4.3609E-02),
     &  ( 2.9323E-05, 5.4223E-02),( 2.9336E-05, 6.4658E-02),
     &  ( 2.9347E-05, 7.5134E-02),( 2.9356E-05, 8.5558E-02),
     &  ( 2.9363E-05, 9.5692E-02),( 2.9369E-05, 1.0615E-01),
     &  ( 2.9374E-05, 1.1664E-01),( 2.9378E-05, 1.2599E-01),
     &  ( 2.9379E-05, 1.3629E-01),( 2.9385E-05, 1.4663E-01),
     &  ( 2.9389E-05, 1.5683E-01),( 2.9392E-05, 1.6670E-01),
     &  ( 2.9395E-05, 1.7724E-01),( 2.9398E-05, 1.8592E-01),
     &  ( 2.9401E-05, 1.9634E-01),( 2.9403E-05, 2.0590E-01),
     &  ( 2.9405E-05, 2.1585E-01),( 2.9408E-05, 2.2618E-01),
     &  ( 2.9410E-05, 2.3530E-01),( 2.9413E-05, 2.4620E-01),
     &  ( 2.9415E-05, 2.5574E-01),( 2.9417E-05, 2.6539E-01),
     &  ( 2.9419E-05, 2.7511E-01),( 2.9420E-05, 2.8643E-01),
     &  ( 2.9424E-05, 2.9603E-01),( 2.9423E-05, 3.0698E-01),
     &  ( 2.9428E-05, 3.1603E-01),( 2.9431E-05, 3.2743E-01),
     &  ( 2.9434E-05, 3.3781E-01),( 2.9438E-05, 3.4991E-01),
     &  ( 2.9440E-05, 3.5752E-01),( 2.9441E-05, 3.6315E-01),
     &  ( 2.9446E-05, 3.6475E-01),( 2.9448E-05, 3.6552E-01),
     &  ( 2.9449E-05, 3.6544E-01),( 2.9451E-05, 3.6074E-01),
     &  ( 2.9458E-05, 3.5272E-01),( 2.9461E-05, 3.4478E-01),
     &  ( 2.9463E-05, 3.3536E-01),( 2.9465E-05, 3.2747E-01),
     &  ( 2.9468E-05, 3.1754E-01),( 2.9470E-05, 3.0855E-01),
     &  ( 2.9472E-05, 2.9766E-01),( 2.9474E-05, 2.8809E-01),
     &  ( 2.9477E-05, 2.7840E-01),( 2.9476E-05, 2.6868E-01),
     &  ( 2.9481E-05, 2.5739E-01),( 2.9480E-05, 2.4783E-01),
     &  ( 2.9486E-05, 2.3689E-01),( 2.9488E-05, 2.2623E-01),
     &  ( 2.9489E-05, 2.1590E-01),( 2.9491E-05, 2.0456E-01),
     &  ( 2.9497E-05, 1.9506E-01),( 2.9500E-05, 1.8345E-01),
     &  ( 2.9503E-05, 1.7252E-01),( 2.9507E-05, 1.6118E-01),
     &  ( 2.9511E-05, 1.4966E-01),( 2.9516E-05, 1.3815E-01),
     &  ( 2.9517E-05, 1.2769E-01),( 2.9520E-05, 1.1594E-01),
     &  ( 2.9527E-05, 1.0424E-01),( 2.9534E-05, 9.2918E-02),
     &  ( 2.9547E-05, 8.1297E-02),( 2.9555E-05, 6.9661E-02),
     &  ( 2.9567E-05, 5.8125E-02),( 2.9588E-05, 4.6466E-02),
     &  ( 2.9599E-05, 4.0874E-02),( 2.9609E-05, 3.4907E-02),
     &  ( 2.9629E-05, 2.8599E-02),( 2.9653E-05, 2.2442E-02),
     &  ( 2.9672E-05, 1.9167E-02),( 2.9727E-05, 1.3342E-02),
     &  ( 2.9746E-05, 1.1588E-02),( 2.9801E-05, 8.2763E-03),
     &  ( 3.0000E-05, 5.9668E-05),( 3.0214E-05, 6.0033E-05)/

         DATA ((CAS  (I,J), I=1001,1100), J=2,2) /
     &  ( 3.0406E-05, 6.0398E-05),( 3.0648E-05, 6.0763E-05),
     &  ( 3.0906E-05, 6.1127E-05),( 3.1187E-05, 6.1492E-05),
     &  ( 3.1419E-05, 6.1857E-05),( 3.1656E-05, 6.2222E-05),
     &  ( 3.1948E-05, 6.2587E-05),( 3.2288E-05, 6.2952E-05),
     &  ( 3.2537E-05, 6.3244E-05),( 3.2844E-05, 6.3244E-05),
     &  ( 3.3218E-05, 6.4193E-05),( 3.3566E-05, 6.4218E-05),
     &  ( 3.3861E-05, 6.4244E-05),( 3.4195E-05, 6.4271E-05),
     &  ( 3.4607E-05, 6.4299E-05),( 3.5100E-05, 6.4328E-05),
     &  ( 3.5325E-05, 6.4382E-05),( 3.5990E-05, 6.4474E-05),
     &  ( 3.6640E-05, 6.5969E-05),( 3.8004E-05, 7.1830E-05),
     &  ( 3.7309E-05, 7.7705E-05),( 3.6616E-05, 8.5065E-05),
     &  ( 3.7786E-05, 9.7217E-05),( 3.6182E-05, 1.1280E-04),
     &  ( 3.8532E-05, 1.2896E-04),( 3.8105E-05, 1.3434E-04),
     &  ( 4.1608E-05, 1.3917E-04),( 4.0182E-05, 1.4376E-04),
     &  ( 4.0980E-05, 1.4824E-04),( 4.0455E-05, 1.5268E-04),
     &  ( 4.0402E-05, 1.5711E-04),( 4.0561E-05, 1.6138E-04),
     &  ( 4.0181E-05, 1.6565E-04),( 4.0377E-05, 1.6998E-04),
     &  ( 4.0183E-05, 1.7437E-04),( 4.0133E-05, 1.7882E-04),
     &  ( 4.0306E-05, 1.8334E-04),( 4.0087E-05, 1.8793E-04),
     &  ( 4.0125E-05, 1.9260E-04),( 4.0058E-05, 1.9735E-04),
     &  ( 3.9661E-05, 2.0220E-04),( 3.9604E-05, 2.0714E-04),
     &  ( 3.9519E-05, 2.1220E-04),( 3.9170E-05, 2.1739E-04),
     &  ( 3.8974E-05, 2.2272E-04),( 3.8812E-05, 2.2822E-04),
     &  ( 3.8840E-05, 2.3392E-04),( 3.8712E-05, 2.3983E-04),
     &  ( 3.8711E-05, 2.4602E-04),( 3.8665E-05, 2.5252E-04),
     &  ( 3.8694E-05, 2.5941E-04),( 3.8661E-05, 2.6678E-04),
     &  ( 3.8705E-05, 2.7479E-04),( 3.8701E-05, 2.8361E-04),
     &  ( 3.8720E-05, 2.9363E-04),( 3.8774E-05, 3.0555E-04),
     &  ( 3.8873E-05, 3.2116E-04),( 3.9210E-05, 3.5955E-04),
     &  ( 3.9631E-05, 3.9895E-04),( 3.9869E-05, 4.1527E-04),
     &  ( 4.0088E-05, 4.2755E-04),( 4.0314E-05, 4.3756E-04),
     &  ( 4.0547E-05, 4.4596E-04),( 4.0720E-05, 4.5301E-04),
     &  ( 4.0968E-05, 4.5889E-04),( 4.1150E-05, 4.6367E-04),
     &  ( 4.1403E-05, 4.6738E-04),( 4.1642E-05, 4.6999E-04),
     &  ( 4.1984E-05, 4.7147E-04),( 4.2193E-05, 4.7179E-04),
     &  ( 4.2623E-05, 4.7086E-04),( 4.3151E-05, 4.6861E-04),
     &  ( 4.3493E-05, 4.6497E-04),( 4.3850E-05, 4.5984E-04),
     &  ( 4.3936E-05, 4.5314E-04),( 4.4470E-05, 4.4476E-04),
     &  ( 4.4741E-05, 4.3466E-04),( 4.4954E-05, 4.2276E-04),
     &  ( 4.5475E-05, 4.0903E-04),( 4.5605E-05, 3.9343E-04),
     &  ( 4.6020E-05, 3.7602E-04),( 4.6633E-05, 3.5690E-04),
     &  ( 4.6874E-05, 3.3617E-04),( 4.7510E-05, 3.1412E-04),
     &  ( 4.8236E-05, 2.9106E-04),( 4.9007E-05, 2.6746E-04),
     &  ( 5.0454E-05, 2.4392E-04),( 5.0698E-05, 2.2123E-04),
     &  ( 5.3865E-05, 2.0036E-04),( 5.1747E-05, 1.8235E-04),
     &  ( 5.5955E-05, 1.6852E-04),( 6.2908E-05, 1.5990E-04),
     &  ( 6.8484E-05, 1.5880E-04),( 6.2117E-05, 1.6069E-04),
     &  ( 6.2603E-05, 1.6626E-04),( 6.3094E-05, 1.6618E-04),
     &  ( 6.5519E-05, 1.6822E-04),( 6.9278E-05, 1.7056E-04),
     &  ( 7.0931E-05, 1.7051E-04),( 6.6068E-05, 1.7046E-04)/

         DATA ((CAS  (I,J), I=1101,1200), J=2,2) /
     &  ( 6.4877E-05, 1.6800E-04),( 6.4415E-05, 1.7234E-04),
     &  ( 6.5843E-05, 1.7525E-04),( 6.4050E-05, 1.7654E-04),
     &  ( 6.3938E-05, 1.8041E-04),( 6.2060E-05, 1.8422E-04),
     &  ( 6.2917E-05, 1.8811E-04),( 6.3249E-05, 1.9200E-04),
     &  ( 6.4056E-05, 1.9216E-04),( 6.4709E-05, 1.8487E-04),
     &  ( 6.4990E-05, 1.8341E-04),( 6.5503E-05, 1.8487E-04),
     &  ( 6.5985E-05, 1.8049E-04),( 6.6104E-05, 1.8049E-04),
     &  ( 6.6223E-05, 1.8924E-04),( 6.6342E-05, 1.9411E-04),
     &  ( 6.6299E-05, 1.9703E-04),( 6.5771E-05, 1.9995E-04),
     &  ( 6.8806E-05, 2.0141E-04),( 6.9295E-05, 1.9995E-04),
     &  ( 7.1614E-05, 1.9946E-04),( 6.9253E-05, 2.0238E-04),
     &  ( 7.2368E-05, 2.0676E-04),( 7.0050E-05, 2.0676E-04),
     &  ( 7.7751E-05, 2.0676E-04),( 7.7608E-05, 2.1649E-04),
     &  ( 7.7437E-05, 2.4811E-04),( 7.7382E-05, 2.6270E-04),
     &  ( 7.1984E-05, 2.3699E-04),( 7.8243E-05, 2.4325E-04),
     &  ( 7.7880E-05, 2.4325E-04),( 8.2452E-05, 2.4325E-04),
     &  ( 8.0465E-05, 2.4665E-04),( 8.1637E-05, 2.5687E-04),
     &  ( 7.8644E-05, 2.6222E-04),( 7.9521E-05, 2.6514E-04),
     &  ( 7.8356E-05, 2.7243E-04),( 8.2728E-05, 2.7146E-04),
     &  ( 8.3071E-05, 2.5395E-04),( 8.4961E-05, 2.4811E-04),
     &  ( 8.2723E-05, 2.4714E-04),( 8.5232E-05, 2.4568E-04),
     &  ( 8.2352E-05, 2.4811E-04),( 8.5088E-05, 2.5006E-04),
     &  ( 8.7971E-05, 2.5054E-04),( 8.8703E-05, 2.7170E-04),
     &  ( 8.3819E-05, 3.0698E-04),( 8.1690E-05, 3.1476E-04),
     &  ( 8.8441E-05, 2.8946E-04),( 9.0011E-05, 2.6416E-04),
     &  ( 8.8988E-05, 2.5784E-04),( 8.5726E-05, 2.6003E-04),
     &  ( 8.5594E-05, 2.6222E-04),( 8.8452E-05, 2.6879E-04),
     &  ( 8.6117E-05, 2.9068E-04),( 8.7675E-05, 3.0162E-04),
     &  ( 8.6543E-05, 2.9433E-04),( 8.8920E-05, 2.7973E-04),
     &  ( 8.3922E-05, 2.8216E-04),( 8.9709E-05, 2.8970E-04),
     &  ( 9.1574E-05, 3.0576E-04),( 9.4841E-05, 3.1379E-04),
     &  ( 9.2403E-05, 3.1038E-04),( 9.4487E-05, 3.0527E-04),
     &  ( 9.6684E-05, 2.9676E-04),( 8.9184E-05, 3.0041E-04),
     &  ( 8.9792E-05, 3.0333E-04),( 8.9925E-05, 3.0284E-04),
     &  ( 9.1383E-05, 2.9433E-04),( 8.9819E-05, 2.8703E-04),
     &  ( 8.9777E-05, 2.8216E-04),( 9.2939E-05, 2.6757E-04),
     &  ( 8.7717E-05, 2.5881E-04),( 9.1756E-05, 2.5200E-04),
     &  ( 9.3165E-05, 2.4908E-04),( 9.6103E-05, 2.4811E-04),
     &  ( 9.4644E-05, 2.3838E-04),( 9.6755E-05, 2.4325E-04),
     &  ( 9.6674E-05, 2.4957E-04),( 1.0297E-04, 2.6903E-04),
     &  ( 1.0483E-04, 2.9092E-04),( 1.0164E-04, 2.9579E-04),
     &  ( 9.7372E-05, 3.0162E-04),( 9.6568E-05, 2.9141E-04),
     &  ( 1.1373E-04, 2.8460E-04),( 1.1700E-04, 2.6027E-04),
     &  ( 1.1442E-04, 2.2379E-04),( 1.0297E-04, 2.2670E-04),
     &  ( 1.0070E-04, 2.4422E-04),( 1.0389E-04, 2.4811E-04),
     &  ( 1.0771E-04, 2.5297E-04),( 1.0983E-04, 2.3352E-04),
     &  ( 1.0792E-04, 2.3546E-04),( 9.7137E-05, 2.5395E-04),
     &  ( 1.0035E-04, 2.8606E-04),( 1.0210E-04, 2.9676E-04),
     &  ( 1.0466E-04, 2.8995E-04),( 1.0792E-04, 2.6952E-04),
     &  ( 1.0813E-04, 2.6270E-04),( 1.0029E-04, 2.5103E-04)/

         DATA ((CAS  (I,J), I=1201,1300), J=2,2) /
     &  ( 1.0242E-04, 2.3352E-04),( 1.0005E-04, 2.1162E-04),
     &  ( 1.0161E-04, 1.9703E-04),( 9.9833E-05, 2.0043E-04),
     &  ( 1.0137E-04, 2.1065E-04),( 1.0113E-04, 2.3060E-04),
     &  ( 1.0568E-04, 2.5541E-04),( 1.0731E-04, 2.7730E-04),
     &  ( 1.1623E-04, 2.9189E-04),( 1.1283E-04, 2.8703E-04),
     &  ( 1.1447E-04, 2.7243E-04),( 1.1988E-04, 2.6757E-04),
     &  ( 1.1275E-04, 2.8460E-04),( 1.1887E-04, 2.6270E-04),
     &  ( 1.2753E-04, 2.3789E-04),( 1.5546E-04, 2.0724E-04),
     &  ( 1.4111E-04, 2.0031E-04),( 1.5052E-04, 2.4811E-04),
     &  ( 1.5776E-04, 2.3838E-04),( 1.4167E-04, 2.1892E-04),
     &  ( 1.4665E-04, 1.9460E-04),( 1.5091E-04, 1.9216E-04),
     &  ( 1.7946E-04, 2.1162E-04),( 1.8320E-04, 2.1892E-04),
     &  ( 2.3197E-04, 2.3595E-04),( 2.3658E-04, 2.4081E-04),
     &  ( 3.2170E-04, 2.5541E-04),( 4.1312E-04, 4.7190E-04),
     &  ( 5.5968E-04, 3.0406E-04),( 7.1540E-04, 5.5715E-04),
     &  ( 4.7144E-04, 6.5676E-04),( 2.5619E-04, 0.0000E+00),
     &  ( 1.8444E-04, 0.0000E+00),( 1.3310E-04, 0.0000E+00),
     &  ( 9.0918E-05, 0.0000E+00),( 7.9617E-05, 0.0000E+00),
     &  ( 7.1239E-05, 0.0000E+00),( 5.9561E-05, 0.0000E+00),
     &  ( 5.1756E-05, 0.0000E+00),( 4.8740E-05, 0.0000E+00),
     &  ( 4.6147E-05, 0.0000E+00),( 4.3891E-05, 0.0000E+00),
     &  ( 4.1911E-05, 0.0000E+00),( 4.0158E-05, 0.0000E+00),
     &  ( 3.8595E-05, 0.0000E+00),( 3.7193E-05, 0.0000E+00),
     &  ( 3.5928E-05, 0.0000E+00),( 3.4781E-05, 0.0000E+00),
     &  ( 3.3736E-05, 0.0000E+00),( 3.2781E-05, 0.0000E+00),
     &  ( 3.1903E-05, 0.0000E+00),( 3.1095E-05, 0.0000E+00),
     &  ( 3.0348E-05, 0.0000E+00),( 2.9655E-05, 0.0000E+00),
     &  ( 2.9012E-05, 0.0000E+00),( 2.8413E-05, 0.0000E+00),
     &  ( 2.7853E-05, 0.0000E+00),( 2.7330E-05, 0.0000E+00),
     &  ( 2.6839E-05, 0.0000E+00),( 2.6378E-05, 0.0000E+00),
     &  ( 2.5944E-05, 0.0000E+00),( 2.5536E-05, 0.0000E+00),
     &  ( 2.5151E-05, 0.0000E+00),( 2.4787E-05, 0.0000E+00),
     &  ( 2.4442E-05, 0.0000E+00),( 2.4116E-05, 0.0000E+00),
     &  ( 2.3807E-05, 0.0000E+00),( 2.3513E-05, 0.0000E+00),
     &  ( 2.3235E-05, 0.0000E+00),( 2.2970E-05, 0.0000E+00),
     &  ( 2.2718E-05, 0.0000E+00),( 2.2478E-05, 0.0000E+00),
     &  ( 2.2249E-05, 0.0000E+00),( 2.2074E-05, 0.0000E+00),
     &  ( 2.1824E-05, 0.0000E+00),( 2.1438E-05, 0.0000E+00),
     &  ( 2.1087E-05, 0.0000E+00),( 2.0769E-05, 0.0000E+00),
     &  ( 2.0481E-05, 0.0000E+00),( 2.0221E-05, 0.0000E+00),
     &  ( 1.9990E-05, 0.0000E+00),( 1.9787E-05, 0.0000E+00),
     &  ( 1.9612E-05, 0.0000E+00),( 1.9467E-05, 0.0000E+00),
     &  ( 1.9356E-05, 0.0000E+00),( 1.9284E-05, 0.0000E+00),
     &  ( 1.9259E-05, 0.0000E+00),( 1.9295E-05, 0.0000E+00),
     &  ( 1.9414E-05, 0.0000E+00),( 1.9432E-05, 0.0000E+00),
     &  ( 1.9656E-05, 0.0000E+00),( 2.0091E-05, 0.0000E+00),
     &  ( 2.0865E-05, 0.0000E+00),( 2.1948E-05, 0.0000E+00),
     &  ( 2.2328E-05, 0.0000E+00),( 2.3589E-05, 0.0000E+00),
     &  ( 2.5105E-05, 0.0000E+00),( 2.5595E-05, 0.0000E+00),
     &  ( 2.6147E-05, 0.0000E+00),( 2.6450E-05, 0.0000E+00)/

         DATA ((CAS  (I,J), I=1301,1400), J=2,2) /
     &  ( 2.6773E-05, 0.0000E+00),( 2.7048E-05, 0.0000E+00),
     &  ( 2.7339E-05, 0.0000E+00),( 2.7491E-05, 0.0000E+00),
     &  ( 2.7648E-05, 0.0000E+00),( 2.7810E-05, 0.0000E+00),
     &  ( 2.7976E-05, 0.0000E+00),( 2.8149E-05, 0.0000E+00),
     &  ( 2.8327E-05, 0.0000E+00),( 2.8418E-05, 0.0000E+00),
     &  ( 2.8511E-05, 0.0000E+00),( 2.8606E-05, 0.0000E+00),
     &  ( 2.8702E-05, 0.0000E+00),( 2.8800E-05, 0.0000E+00),
     &  ( 2.8900E-05, 0.0000E+00),( 2.9001E-05, 0.0000E+00),
     &  ( 2.9105E-05, 0.0000E+00),( 2.9210E-05, 0.0000E+00),
     &  ( 2.9250E-05, 0.0000E+00),( 2.9274E-05, 0.0000E+00),
     &  ( 2.9297E-05, 0.0000E+00),( 2.9321E-05, 0.0000E+00),
     &  ( 2.9345E-05, 0.0000E+00),( 2.9369E-05, 0.0000E+00),
     &  ( 2.9393E-05, 0.0000E+00),( 2.9418E-05, 0.0000E+00),
     &  ( 2.9442E-05, 0.0000E+00),( 2.9467E-05, 0.0000E+00),
     &  ( 2.9491E-05, 0.0000E+00),( 2.9516E-05, 0.0000E+00),
     &  ( 2.9541E-05, 0.0000E+00),( 2.9566E-05, 0.0000E+00),
     &  ( 2.9591E-05, 0.0000E+00),( 2.9616E-05, 0.0000E+00),
     &  ( 2.9641E-05, 0.0000E+00),( 2.9667E-05, 0.0000E+00),
     &  ( 2.9692E-05, 0.0000E+00),( 2.9718E-05, 0.0000E+00),
     &  ( 2.9744E-05, 0.0000E+00),( 2.9769E-05, 0.0000E+00),
     &  ( 2.9795E-05, 0.0000E+00),( 2.9822E-05, 0.0000E+00),
     &  ( 2.9848E-05, 0.0000E+00),( 2.9874E-05, 0.0000E+00),
     &  ( 2.9901E-05, 0.0000E+00),( 2.9927E-05, 0.0000E+00),
     &  ( 2.9954E-05, 0.0000E+00),( 2.9981E-05, 0.0000E+00),
     &  ( 3.0008E-05, 0.0000E+00),( 3.0035E-05, 0.0000E+00),
     &  ( 3.0062E-05, 0.0000E+00),( 3.0090E-05, 0.0000E+00),
     &  ( 3.0117E-05, 0.0000E+00),( 3.0145E-05, 0.0000E+00),
     &  ( 3.0173E-05, 0.0000E+00),( 3.0201E-05, 0.0000E+00),
     &  ( 3.0229E-05, 0.0000E+00),( 3.0257E-05, 0.0000E+00),
     &  ( 3.0285E-05, 0.0000E+00),( 3.0314E-05, 0.0000E+00),
     &  ( 3.0342E-05, 0.0000E+00),( 3.0371E-05, 0.0000E+00),
     &  ( 3.0400E-05, 0.0000E+00),( 3.0429E-05, 0.0000E+00),
     &  ( 3.0459E-05, 0.0000E+00),( 3.0488E-05, 0.0000E+00),
     &  ( 3.0518E-05, 0.0000E+00),( 3.0527E-05, 7.2974E-05),
     &  ( 3.0553E-05, 7.3021E-05),( 3.0560E-05, 9.4434E-03),
     &  ( 3.0561E-05, 1.0364E-02),( 3.0561E-05, 1.0875E-02),
     &  ( 3.0562E-05, 1.2016E-02),( 3.0563E-05, 1.3341E-02),
     &  ( 3.0564E-05, 1.4897E-02),( 3.0565E-05, 1.6736E-02),
     &  ( 3.0566E-05, 1.8931E-02),( 3.0567E-05, 2.1576E-02),
     &  ( 3.0568E-05, 2.4800E-02),( 3.0569E-05, 2.8773E-02),
     &  ( 3.0570E-05, 3.3750E-02),( 3.0571E-05, 4.0071E-02),
     &  ( 3.0572E-05, 4.8234E-02),( 3.0573E-05, 5.8966E-02),
     &  ( 3.0574E-05, 7.3332E-02),( 3.0575E-05, 9.2894E-02),
     &  ( 3.0576E-05, 1.0527E-01),( 3.0576E-05, 1.1981E-01),
     &  ( 3.0577E-05, 1.3692E-01),( 3.0577E-05, 1.5685E-01),
     &  ( 3.0578E-05, 1.7992E-01),( 3.0578E-05, 2.0597E-01),
     &  ( 3.0579E-05, 2.3450E-01),( 3.0579E-05, 2.6420E-01),
     &  ( 3.0580E-05, 2.9244E-01),( 3.0580E-05, 3.1588E-01),
     &  ( 3.0581E-05, 3.3056E-01),( 3.0581E-05, 3.3056E-01),
     &  ( 3.0581E-05, 3.3178E-01),( 3.0581E-05, 3.3275E-01)/

         DATA ((CAS  (I,J), I=1401,1500), J=2,2) /
     &  ( 3.0581E-05, 3.3345E-01),( 3.0581E-05, 3.3389E-01),
     &  ( 3.0581E-05, 3.3406E-01),( 3.0581E-05, 3.3361E-01),
     &  ( 3.0582E-05, 3.3210E-01),( 3.0582E-05, 3.3095E-01),
     &  ( 3.0582E-05, 3.2791E-01),( 3.0582E-05, 3.2392E-01),
     &  ( 3.0582E-05, 3.1900E-01),( 3.0582E-05, 3.1332E-01),
     &  ( 3.0582E-05, 3.0694E-01),( 3.0583E-05, 2.9995E-01),
     &  ( 3.0583E-05, 2.9244E-01),( 3.0583E-05, 2.7452E-01),
     &  ( 3.0584E-05, 2.4504E-01),( 3.0584E-05, 2.1584E-01),
     &  ( 3.0585E-05, 1.8882E-01),( 3.0585E-05, 1.6464E-01),
     &  ( 3.0586E-05, 1.4364E-01),( 3.0586E-05, 1.2559E-01),
     &  ( 3.0587E-05, 1.1015E-01),( 3.0587E-05, 9.7052E-02),
     &  ( 3.0588E-05, 8.5871E-02),( 3.0588E-05, 7.6361E-02),
     &  ( 3.0589E-05, 6.1206E-02),( 3.0590E-05, 4.9922E-02),
     &  ( 3.0591E-05, 4.1365E-02),( 3.0593E-05, 2.9580E-02),
     &  ( 3.0595E-05, 2.2101E-02),( 3.0597E-05, 1.7097E-02),
     &  ( 3.0598E-05, 1.5201E-02),( 3.0599E-05, 1.3601E-02),
     &  ( 3.0600E-05, 1.2237E-02),( 3.0601E-05, 1.1066E-02),
     &  ( 3.0602E-05, 1.0054E-02),( 3.0603E-05, 9.1733E-03),
     &  ( 3.0605E-05, 7.3113E-05),( 3.0607E-05, 7.3117E-05),
     &  ( 3.0637E-05, 7.3171E-05),( 3.0668E-05, 7.3224E-05),
     &  ( 3.0698E-05, 7.3278E-05),( 3.0729E-05, 7.3331E-05),
     &  ( 3.0760E-05, 7.3385E-05),( 3.0791E-05, 7.3438E-05),
     &  ( 3.0822E-05, 7.3492E-05),( 3.0854E-05, 7.3545E-05),
     &  ( 3.0885E-05, 7.3599E-05),( 3.0917E-05, 7.3652E-05),
     &  ( 3.0949E-05, 7.3706E-05),( 3.0981E-05, 7.3759E-05),
     &  ( 3.1013E-05, 7.3813E-05),( 3.1046E-05, 7.3866E-05),
     &  ( 3.1079E-05, 7.3920E-05),( 3.1111E-05, 7.3973E-05),
     &  ( 3.1144E-05, 7.4027E-05),( 3.1178E-05, 7.4080E-05),
     &  ( 3.1211E-05, 7.4134E-05),( 3.1245E-05, 7.4187E-05),
     &  ( 3.1279E-05, 7.4241E-05),( 3.1313E-05, 7.4294E-05),
     &  ( 3.1347E-05, 7.4348E-05),( 3.1382E-05, 7.4401E-05),
     &  ( 3.1416E-05, 7.4455E-05),( 3.1451E-05, 7.4508E-05),
     &  ( 3.1486E-05, 7.4562E-05),( 3.1522E-05, 7.4615E-05),
     &  ( 3.1557E-05, 7.4669E-05),( 3.1593E-05, 7.4722E-05),
     &  ( 3.1629E-05, 7.4776E-05),( 3.1666E-05, 7.4829E-05),
     &  ( 3.1702E-05, 7.4883E-05),( 3.1739E-05, 7.4937E-05),
     &  ( 3.1776E-05, 7.4990E-05),( 3.1813E-05, 7.5044E-05),
     &  ( 3.1851E-05, 7.5097E-05),( 3.1889E-05, 7.5151E-05),
     &  ( 3.1927E-05, 7.5204E-05),( 3.1965E-05, 7.5258E-05),
     &  ( 3.2004E-05, 7.5311E-05),( 3.2043E-05, 7.5365E-05),
     &  ( 3.2082E-05, 7.5418E-05),( 3.2121E-05, 7.5472E-05),
     &  ( 3.2161E-05, 7.5525E-05),( 3.2201E-05, 7.5579E-05),
     &  ( 3.2242E-05, 7.5632E-05),( 3.2282E-05, 7.5686E-05),
     &  ( 3.2323E-05, 7.5739E-05),( 3.2710E-05, 7.6226E-05),
     &  ( 3.3048E-05, 7.6622E-05),( 3.3495E-05, 7.7109E-05),
     &  ( 3.4247E-05, 7.7838E-05),( 3.5469E-05, 7.8811E-05),
     &  ( 3.8120E-05, 8.0271E-05),( 3.9039E-05, 8.1487E-05),
     &  ( 4.1391E-05, 8.2703E-05),( 4.2948E-05, 8.2703E-05),
     &  ( 4.6265E-05, 8.2974E-05),( 4.9532E-05, 8.3244E-05),
     &  ( 5.0714E-05, 8.3514E-05),( 5.4506E-05, 8.3784E-05)/

         DATA ((CAS  (I,J), I=1501,1600), J=2,2) /
     &  ( 6.3507E-05, 8.4325E-05),( 6.3257E-05, 8.4866E-05),
     &  ( 8.4274E-05, 8.7568E-05),( 9.8077E-05, 9.0001E-05),
     &  ( 9.9598E-05, 9.0001E-05),( 9.1428E-05, 9.2433E-05),
     &  ( 7.6213E-05, 9.7298E-05),( 6.7243E-05, 9.9730E-05),
     &  ( 6.5487E-05, 1.0119E-04),( 6.2862E-05, 1.0216E-04),
     &  ( 6.1427E-05, 1.0277E-04),( 6.0785E-05, 1.0283E-04),
     &  ( 6.0409E-05, 1.0289E-04),( 6.0354E-05, 1.0291E-04),
     &  ( 6.0289E-05, 1.0294E-04),( 6.0267E-05, 1.0298E-04),
     &  ( 6.0297E-05, 1.0301E-04),( 6.0372E-05, 1.0304E-04),
     &  ( 6.0481E-05, 1.0308E-04),( 6.0619E-05, 1.0311E-04),
     &  ( 6.0753E-05, 1.0314E-04),( 6.0949E-05, 1.0318E-04),
     &  ( 6.1137E-05, 1.0321E-04),( 6.1382E-05, 1.0324E-04),
     &  ( 6.1614E-05, 1.0328E-04),( 6.1898E-05, 1.0331E-04),
     &  ( 6.2167E-05, 1.0334E-04),( 6.2486E-05, 1.0338E-04),
     &  ( 6.2216E-05, 1.0341E-04),( 6.2013E-05, 1.0344E-04),
     &  ( 6.1782E-05, 1.0348E-04),( 6.1641E-05, 1.0351E-04),
     &  ( 6.1518E-05, 1.0353E-04),( 6.1507E-05, 1.0353E-04),
     &  ( 6.1497E-05, 1.0354E-04),( 6.1487E-05, 1.0354E-04),
     &  ( 6.1478E-05, 1.0354E-04),( 6.1470E-05, 1.0354E-04),
     &  ( 6.1462E-05, 1.0354E-04),( 6.1455E-05, 1.0355E-04),
     &  ( 6.1347E-05, 3.3742E-02),( 6.1346E-05, 3.7323E-02),
     &  ( 6.1345E-05, 4.1508E-02),( 6.1344E-05, 4.3866E-02),
     &  ( 6.1344E-05, 4.6417E-02),( 6.1343E-05, 4.9207E-02),
     &  ( 6.1343E-05, 5.2251E-02),( 6.1342E-05, 5.5582E-02),
     &  ( 6.1342E-05, 5.9221E-02),( 6.1341E-05, 6.3240E-02),
     &  ( 6.1340E-05, 6.7675E-02),( 6.1340E-05, 7.2582E-02),
     &  ( 6.1339E-05, 7.8006E-02),( 6.1339E-05, 8.4074E-02),
     &  ( 6.1338E-05, 9.0857E-02),( 6.1338E-05, 9.8438E-02),
     &  ( 6.1337E-05, 1.0701E-01),( 6.1337E-05, 1.1672E-01),
     &  ( 6.1336E-05, 1.2776E-01),( 6.1336E-05, 1.4031E-01),
     &  ( 6.1335E-05, 1.5477E-01),( 6.1335E-05, 1.7146E-01),
     &  ( 6.1334E-05, 1.9083E-01),( 6.1333E-05, 2.1334E-01),
     &  ( 6.1333E-05, 2.3985E-01),( 6.1332E-05, 2.7113E-01),
     &  ( 6.1331E-05, 3.0823E-01),( 6.1331E-05, 3.5224E-01),
     &  ( 6.1330E-05, 4.0504E-01),( 6.1329E-05, 4.6818E-01),
     &  ( 6.1328E-05, 5.4316E-01),( 6.1328E-05, 6.3211E-01),
     &  ( 6.1327E-05, 7.3530E-01),( 6.1326E-05, 8.5106E-01),
     &  ( 6.1326E-05, 9.7315E-01),( 6.1325E-05, 1.0911E+00),
     &  ( 6.1324E-05, 1.1869E+00),( 6.1324E-05, 1.1968E+00),
     &  ( 6.1324E-05, 1.2060E+00),( 6.1324E-05, 1.2143E+00),
     &  ( 6.1324E-05, 1.2218E+00),( 6.1324E-05, 1.2285E+00),
     &  ( 6.1324E-05, 1.2342E+00),( 6.1324E-05, 1.2390E+00),
     &  ( 6.1323E-05, 1.2428E+00),( 6.1323E-05, 1.2457E+00),
     &  ( 6.1323E-05, 1.2475E+00),( 6.1323E-05, 1.2484E+00),
     &  ( 6.1323E-05, 1.2483E+00),( 6.1323E-05, 1.2472E+00),
     &  ( 6.1323E-05, 1.2451E+00),( 6.1323E-05, 1.2421E+00),
     &  ( 6.1323E-05, 1.2380E+00),( 6.1323E-05, 1.2330E+00),
     &  ( 6.1323E-05, 1.2271E+00),( 6.1323E-05, 1.2203E+00),
     &  ( 6.1322E-05, 1.2126E+00),( 6.1322E-05, 1.2041E+00),
     &  ( 6.1322E-05, 1.1947E+00),( 6.1322E-05, 1.1846E+00)/

         DATA ((CAS  (I,J), I=1601,1700), J=2,2) /
     &  ( 6.1322E-05, 1.1738E+00),( 6.1322E-05, 1.1624E+00),
     &  ( 6.1321E-05, 1.0580E+00),( 6.1321E-05, 9.3770E-01),
     &  ( 6.1320E-05, 8.1619E-01),( 6.1319E-05, 7.0372E-01),
     &  ( 6.1319E-05, 6.0465E-01),( 6.1318E-05, 5.2014E-01),
     &  ( 6.1317E-05, 4.4856E-01),( 6.1317E-05, 3.8863E-01),
     &  ( 6.1316E-05, 3.3852E-01),( 6.1315E-05, 2.9672E-01),
     &  ( 6.1315E-05, 2.6144E-01),( 6.1314E-05, 2.3165E-01),
     &  ( 6.1313E-05, 2.0647E-01),( 6.1313E-05, 1.8487E-01),
     &  ( 6.1312E-05, 1.6633E-01),( 6.1312E-05, 1.5033E-01),
     &  ( 6.1311E-05, 1.3650E-01),( 6.1310E-05, 1.2438E-01),
     &  ( 6.1310E-05, 1.1376E-01),( 6.1309E-05, 1.0440E-01),
     &  ( 6.1308E-05, 9.6156E-02),( 6.1308E-05, 8.8798E-02),
     &  ( 6.1307E-05, 8.2234E-02),( 6.1307E-05, 7.6358E-02),
     &  ( 6.1306E-05, 7.1098E-02),( 6.1305E-05, 6.6336E-02),
     &  ( 6.1305E-05, 6.2028E-02),( 6.1304E-05, 5.8136E-02),
     &  ( 6.1303E-05, 5.4580E-02),( 6.1303E-05, 5.1336E-02),
     &  ( 6.1302E-05, 4.8369E-02),( 6.1302E-05, 4.5660E-02),
     &  ( 6.1301E-05, 4.3159E-02),( 6.1300E-05, 4.0857E-02),
     &  ( 6.1300E-05, 3.8732E-02),( 6.1299E-05, 3.6775E-02),
     &  ( 6.1299E-05, 3.4953E-02),( 6.1298E-05, 3.1692E-02),
     &  ( 6.1223E-05, 1.0362E-04),( 6.1196E-05, 1.0364E-04),
     &  ( 6.1170E-05, 1.0368E-04),( 6.1142E-05, 1.0371E-04),
     &  ( 6.1185E-05, 1.0378E-04),( 6.1323E-05, 1.0384E-04),
     &  ( 6.1560E-05, 1.0391E-04),( 6.1903E-05, 1.0398E-04),
     &  ( 6.1764E-05, 1.0405E-04),( 6.1676E-05, 1.0411E-04),
     &  ( 6.1753E-05, 1.0418E-04),( 6.2067E-05, 1.0425E-04),
     &  ( 6.2444E-05, 1.0429E-04),( 6.2391E-05, 1.0435E-04),
     &  ( 6.2493E-05, 1.0441E-04),( 6.2734E-05, 1.0447E-04),
     &  ( 6.3149E-05, 1.0453E-04),( 6.3781E-05, 1.0460E-04),
     &  ( 6.5692E-05, 1.0480E-04),( 6.8287E-05, 1.0500E-04),
     &  ( 7.2793E-05, 1.0520E-04),( 7.7963E-05, 1.0541E-04),
     &  ( 8.4822E-05, 1.0561E-04),( 9.5041E-05, 1.0581E-04),
     &  ( 9.3908E-05, 1.0601E-04),( 9.2714E-05, 1.0622E-04),
     &  ( 1.0654E-04, 1.0703E-04),( 8.3366E-05, 1.1554E-04),
     &  ( 8.6433E-05, 1.1724E-04),( 7.5521E-05, 1.1895E-04),
     &  ( 6.8831E-05, 1.2065E-04),( 6.8185E-05, 1.2235E-04),
     &  ( 6.3345E-05, 1.2320E-04),( 6.5679E-05, 1.2405E-04),
     &  ( 6.0650E-05, 1.2089E-04),( 5.9926E-05, 1.1773E-04),
     &  ( 5.5359E-05, 1.1457E-04),( 5.3741E-05, 1.1141E-04),
     &  ( 5.1684E-05, 1.1008E-04),( 5.1786E-05, 1.0985E-04),
     &  ( 5.1971E-05, 1.0961E-04),( 5.2231E-05, 1.0938E-04),
     &  ( 5.2510E-05, 1.0915E-04),( 5.2835E-05, 1.0892E-04),
     &  ( 5.3205E-05, 1.0869E-04),( 5.3613E-05, 1.0845E-04),
     &  ( 5.3948E-05, 1.0822E-04),( 5.3337E-05, 1.0799E-04),
     &  ( 5.2930E-05, 1.0776E-04),( 5.2630E-05, 1.0753E-04),
     &  ( 5.2496E-05, 1.0730E-04),( 5.2496E-05, 1.0727E-04),
     &  ( 5.2500E-05, 1.0724E-04),( 5.2506E-05, 1.0721E-04),
     &  ( 5.2491E-05, 1.0718E-04),( 5.2479E-05, 1.0715E-04),
     &  ( 5.2470E-05, 1.0712E-04),( 5.2465E-05, 1.0709E-04),
     &  ( 5.2463E-05, 1.0706E-04),( 5.2463E-05, 1.0703E-04)/

         DATA ((CAS  (I,J), I=1701,1800), J=2,2) /
     &  ( 5.2468E-05, 1.0701E-04),( 5.2475E-05, 1.0698E-04),
     &  ( 5.2485E-05, 1.0695E-04),( 5.2499E-05, 1.0692E-04),
     &  ( 5.2448E-05, 1.0689E-04),( 5.2394E-05, 1.0686E-04),
     &  ( 5.2381E-05, 1.0685E-04),( 5.2346E-05, 1.0683E-04),
     &  ( 5.2303E-05, 1.0680E-04),( 5.2265E-05, 1.0677E-04),
     &  ( 5.2231E-05, 1.0674E-04),( 5.2189E-05, 1.0672E-04),
     &  ( 5.2152E-05, 1.0669E-04),( 5.2105E-05, 1.0666E-04),
     &  ( 5.2102E-05, 1.0666E-04),( 5.2094E-05, 1.0665E-04),
     &  ( 5.2093E-05, 3.5737E-02),( 5.2091E-05, 3.9849E-02),
     &  ( 5.2090E-05, 4.4720E-02),( 5.2088E-05, 5.0527E-02),
     &  ( 5.2087E-05, 5.7497E-02),( 5.2085E-05, 6.6013E-02),
     &  ( 5.2084E-05, 7.6523E-02),( 5.2082E-05, 8.9632E-02),
     &  ( 5.2081E-05, 1.0636E-01),( 5.2080E-05, 1.2802E-01),
     &  ( 5.2078E-05, 1.5654E-01),( 5.2077E-05, 1.9518E-01),
     &  ( 5.2076E-05, 2.1959E-01),( 5.2075E-05, 2.4863E-01),
     &  ( 5.2074E-05, 2.8296E-01),( 5.2074E-05, 3.2398E-01),
     &  ( 5.2073E-05, 3.7350E-01),( 5.2072E-05, 4.3264E-01),
     &  ( 5.2072E-05, 5.0352E-01),( 5.2071E-05, 5.8840E-01),
     &  ( 5.2070E-05, 6.8704E-01),( 5.2069E-05, 7.9864E-01),
     &  ( 5.2069E-05, 9.1879E-01),( 5.2068E-05, 1.0348E+00),
     &  ( 5.2067E-05, 1.1300E+00),( 5.2067E-05, 1.1400E+00),
     &  ( 5.2067E-05, 1.1488E+00),( 5.2067E-05, 1.1569E+00),
     &  ( 5.2067E-05, 1.1645E+00),( 5.2067E-05, 1.1710E+00),
     &  ( 5.2067E-05, 1.1766E+00),( 5.2067E-05, 1.1816E+00),
     &  ( 5.2066E-05, 1.1855E+00),( 5.2066E-05, 1.1885E+00),
     &  ( 5.2066E-05, 1.1906E+00),( 5.2066E-05, 1.1917E+00),
     &  ( 5.2066E-05, 1.1919E+00),( 5.2066E-05, 1.1911E+00),
     &  ( 5.2066E-05, 1.1894E+00),( 5.2066E-05, 1.1868E+00),
     &  ( 5.2066E-05, 1.1831E+00),( 5.2066E-05, 1.1786E+00),
     &  ( 5.2065E-05, 1.1733E+00),( 5.2065E-05, 1.1669E+00),
     &  ( 5.2065E-05, 1.1599E+00),( 5.2065E-05, 1.1521E+00),
     &  ( 5.2065E-05, 1.1431E+00),( 5.2065E-05, 1.1339E+00),
     &  ( 5.2065E-05, 1.1239E+00),( 5.2065E-05, 1.1133E+00),
     &  ( 5.2064E-05, 1.0116E+00),( 5.2064E-05, 8.9366E-01),
     &  ( 5.2063E-05, 7.7445E-01),( 5.2062E-05, 6.6528E-01),
     &  ( 5.2062E-05, 5.6961E-01),( 5.2061E-05, 4.8766E-01),
     &  ( 5.2060E-05, 4.1938E-01),( 5.2060E-05, 3.6246E-01),
     &  ( 5.2059E-05, 3.1479E-01),( 5.2058E-05, 2.7529E-01),
     &  ( 5.2057E-05, 2.4219E-01),( 5.2057E-05, 2.1415E-01),
     &  ( 5.2056E-05, 1.9057E-01),( 5.2055E-05, 1.7048E-01),
     &  ( 5.2054E-05, 1.3833E-01),( 5.2053E-05, 1.1422E-01),
     &  ( 5.2051E-05, 9.5789E-02),( 5.2050E-05, 8.1352E-02),
     &  ( 5.2049E-05, 6.9890E-02),( 5.2047E-05, 6.0678E-02),
     &  ( 5.2046E-05, 5.3128E-02),( 5.2045E-05, 4.6887E-02),
     &  ( 5.2043E-05, 4.1687E-02),( 5.2042E-05, 3.7286E-02),
     &  ( 5.2041E-05, 3.3541E-02),( 5.1964E-05, 1.0654E-04),
     &  ( 5.1940E-05, 1.0651E-04),( 5.1908E-05, 1.0648E-04),
     &  ( 5.1881E-05, 1.0645E-04),( 5.1845E-05, 1.0643E-04),
     &  ( 5.1812E-05, 1.0640E-04),( 5.1785E-05, 1.0637E-04),
     &  ( 5.1762E-05, 1.0634E-04),( 5.1744E-05, 1.0631E-04)/

         DATA ((CAS  (I,J), I=1801,1900), J=2,2) /
     &  ( 5.1726E-05, 1.0628E-04),( 5.1656E-05, 1.0625E-04),
     &  ( 5.1589E-05, 1.0622E-04),( 5.1512E-05, 1.0619E-04),
     &  ( 5.1437E-05, 1.0616E-04),( 5.1366E-05, 1.0614E-04),
     &  ( 5.0880E-05, 1.0590E-04),( 5.0506E-05, 1.0567E-04),
     &  ( 5.0261E-05, 1.0544E-04),( 5.0162E-05, 1.0521E-04),
     &  ( 4.9942E-05, 1.0498E-04),( 4.9470E-05, 1.0474E-04),
     &  ( 4.9073E-05, 1.0451E-04),( 4.8546E-05, 1.0405E-04),
     &  ( 4.8404E-05, 1.0359E-04),( 4.8159E-05, 1.0335E-04),
     &  ( 4.7759E-05, 1.0312E-04),( 4.7354E-05, 1.0192E-04),
     &  ( 4.6855E-05, 1.0034E-04),( 4.7262E-05, 9.8758E-05),
     &  ( 4.8018E-05, 9.7176E-05),( 4.8475E-05, 9.5595E-05),
     &  ( 4.8874E-05, 9.4014E-05),( 4.9264E-05, 9.2433E-05),
     &  ( 4.9694E-05, 9.3799E-05),( 5.0200E-05, 9.5165E-05),
     &  ( 5.0857E-05, 9.6531E-05),( 5.1713E-05, 9.7897E-05),
     &  ( 5.2773E-05, 9.9263E-05),( 5.4072E-05, 1.0063E-04),
     &  ( 5.5672E-05, 1.0199E-04),( 5.7669E-05, 1.0336E-04),
     &  ( 6.0216E-05, 1.0473E-04),( 6.3562E-05, 1.0609E-04),
     &  ( 6.8150E-05, 1.0746E-04),( 7.4847E-05, 1.0882E-04),
     &  ( 8.0525E-05, 1.1019E-04),( 7.8598E-05, 1.1156E-04),
     &  ( 7.8594E-05, 1.1238E-04),( 7.8520E-05, 1.2976E-04),
     &  ( 7.8502E-05, 1.3764E-04),( 7.3393E-05, 1.4588E-04),
     &  ( 7.1845E-05, 1.5531E-04),( 6.9287E-05, 1.6600E-04),
     &  ( 6.8906E-05, 1.7781E-04),( 6.7524E-05, 1.9062E-04),
     &  ( 6.6911E-05, 2.0424E-04),( 6.6767E-05, 2.1844E-04),
     &  ( 6.6060E-05, 2.3321E-04),( 6.5814E-05, 2.4848E-04),
     &  ( 6.5738E-05, 2.6404E-04),( 6.5364E-05, 2.7979E-04),
     &  ( 6.5207E-05, 2.9573E-04),( 6.5119E-05, 3.1200E-04),
     &  ( 6.4721E-05, 3.2835E-04),( 6.4578E-05, 3.4452E-04),
     &  ( 6.4458E-05, 3.6082E-04),( 6.4169E-05, 3.7741E-04),
     &  ( 6.4033E-05, 3.9380E-04),( 6.4012E-05, 4.0982E-04),
     &  ( 6.3895E-05, 4.2633E-04),( 6.3825E-05, 4.4217E-04),
     &  ( 6.3832E-05, 4.5826E-04),( 6.3750E-05, 4.7411E-04),
     &  ( 6.3734E-05, 4.8994E-04),( 6.3726E-05, 5.0560E-04),
     &  ( 6.3701E-05, 5.2091E-04),( 6.3730E-05, 5.3567E-04),
     &  ( 6.3710E-05, 5.5061E-04),( 6.3744E-05, 5.6499E-04),
     &  ( 6.3766E-05, 5.7859E-04),( 6.3816E-05, 5.9170E-04),
     &  ( 6.3897E-05, 6.0341E-04),( 6.4182E-05, 6.0861E-04),
     &  ( 6.4587E-05, 5.8316E-04),( 6.4805E-05, 5.6435E-04),
     &  ( 6.4999E-05, 5.4657E-04),( 6.5188E-05, 5.2980E-04),
     &  ( 6.5351E-05, 5.1317E-04),( 6.5564E-05, 4.9672E-04),
     &  ( 6.5712E-05, 4.8107E-04),( 6.5918E-05, 4.6537E-04),
     &  ( 6.6105E-05, 4.4974E-04),( 6.6301E-05, 4.3431E-04),
     &  ( 6.6565E-05, 4.1919E-04),( 6.6738E-05, 4.0412E-04),
     &  ( 6.6993E-05, 3.8953E-04),( 6.7311E-05, 3.7455E-04),
     &  ( 6.7524E-05, 3.6022E-04),( 6.7869E-05, 3.4573E-04),
     &  ( 6.8382E-05, 3.3125E-04),( 6.8721E-05, 3.1717E-04),
     &  ( 6.9110E-05, 3.0335E-04),( 6.9782E-05, 2.8951E-04),
     &  ( 7.0145E-05, 2.7586E-04),( 7.0617E-05, 2.6263E-04),
     &  ( 7.1358E-05, 2.4967E-04),( 7.2059E-05, 2.3700E-04),
     &  ( 7.2845E-05, 2.2469E-04),( 7.3724E-05, 2.1304E-04)/

         DATA ((CAS  (I,J), I=1901,2000), J=2,2) /
     &  ( 7.4428E-05, 2.0181E-04),( 7.5744E-05, 1.9133E-04),
     &  ( 7.8052E-05, 1.8173E-04),( 7.9426E-05, 1.7322E-04),
     &  ( 8.3601E-05, 1.6602E-04),( 8.7088E-05, 1.6046E-04),
     &  ( 9.6071E-05, 1.5709E-04),( 1.0153E-04, 1.5722E-04),
     &  ( 1.1519E-04, 1.7084E-04),( 1.1592E-04, 1.7166E-04),
     &  ( 9.7639E-05, 1.7796E-04),( 9.1931E-05, 1.8252E-04),
     &  ( 9.0548E-05, 1.8601E-04),( 8.8356E-05, 1.8883E-04),
     &  ( 8.2749E-05, 1.9116E-04),( 7.8573E-05, 1.9315E-04),
     &  ( 7.6410E-05, 1.9517E-04),( 7.4831E-05, 1.9676E-04),
     &  ( 7.3637E-05, 1.9819E-04),( 7.2187E-05, 1.9950E-04),
     &  ( 7.0516E-05, 2.0071E-04),( 6.9482E-05, 2.0184E-04),
     &  ( 6.8425E-05, 2.0292E-04),( 6.7996E-05, 2.0394E-04),
     &  ( 6.7747E-05, 2.0493E-04),( 6.6991E-05, 2.0589E-04),
     &  ( 6.6628E-05, 2.0683E-04),( 6.6166E-05, 2.0777E-04),
     &  ( 6.6004E-05, 2.0871E-04),( 6.6094E-05, 2.0965E-04),
     &  ( 6.6351E-05, 2.1062E-04),( 6.6268E-05, 2.1162E-04),
     &  ( 6.6377E-05, 2.1267E-04),( 6.6679E-05, 2.1378E-04),
     &  ( 6.7149E-05, 2.1498E-04),( 6.7826E-05, 2.1628E-04),
     &  ( 6.8778E-05, 2.1773E-04),( 7.0180E-05, 2.1939E-04),
     &  ( 7.1007E-05, 2.2131E-04),( 7.2241E-05, 2.2363E-04),
     &  ( 7.4978E-05, 2.2653E-04),( 7.1110E-05, 2.3037E-04),
     &  ( 6.8364E-05, 2.3591E-04),( 6.9273E-05, 2.4530E-04),
     &  ( 6.3281E-05, 2.8542E-04),( 6.9606E-05, 3.5535E-04),
     &  ( 7.1718E-05, 3.9433E-04),( 7.1649E-05, 4.2411E-04),
     &  ( 7.3971E-05, 4.4520E-04),( 7.5371E-05, 4.5747E-04),
     &  ( 7.3807E-05, 4.6124E-04),( 7.2828E-05, 4.5739E-04),
     &  ( 7.2439E-05, 4.4736E-04),( 7.1660E-05, 4.3274E-04),
     &  ( 7.1076E-05, 4.1529E-04),( 7.0732E-05, 3.9644E-04),
     &  ( 7.0542E-05, 3.7734E-04),( 7.0483E-05, 3.5896E-04),
     &  ( 7.0514E-05, 3.4174E-04),( 7.0656E-05, 3.2600E-04),
     &  ( 7.0893E-05, 3.1212E-04),( 7.1259E-05, 2.9992E-04),
     &  ( 7.1766E-05, 2.8933E-04),( 7.2452E-05, 2.8037E-04),
     &  ( 7.3030E-05, 2.7278E-04),( 7.3639E-05, 2.6646E-04),
     &  ( 7.4506E-05, 2.6119E-04),( 7.5672E-05, 2.5689E-04),
     &  ( 7.7218E-05, 2.5339E-04),( 7.8968E-05, 2.5060E-04),
     &  ( 8.0607E-05, 2.4839E-04),( 8.2482E-05, 2.4668E-04),
     &  ( 8.5136E-05, 2.4541E-04),( 8.8828E-05, 2.4483E-04),
     &  ( 9.3575E-05, 2.4430E-04),( 9.9789E-05, 2.4406E-04),
     &  ( 1.0824E-04, 2.4410E-04),( 1.0830E-04, 2.4440E-04),
     &  ( 1.0158E-04, 2.4497E-04),( 9.3088E-05, 2.4583E-04),
     &  ( 9.3259E-05, 2.6361E-04),( 9.6511E-05, 2.6657E-04),
     &  ( 9.9646E-05, 2.7000E-04),( 1.0268E-04, 2.7400E-04),
     &  ( 1.0553E-04, 2.7866E-04),( 1.0821E-04, 2.8407E-04),
     &  ( 1.1078E-04, 2.9031E-04),( 1.1326E-04, 2.9754E-04),
     &  ( 1.1567E-04, 3.0595E-04),( 1.1194E-04, 3.1557E-04),
     &  ( 1.0826E-04, 3.2658E-04),( 1.0519E-04, 3.3905E-04),
     &  ( 1.0263E-04, 3.5300E-04),( 1.0041E-04, 3.6837E-04),
     &  ( 9.8439E-05, 3.8518E-04),( 9.6771E-05, 4.0319E-04),
     &  ( 9.5378E-05, 4.2182E-04),( 9.4206E-05, 4.4090E-04),
     &  ( 9.3231E-05, 4.5971E-04),( 9.2339E-05, 4.7718E-04)/

         DATA ((CAS  (I,J), I=2001,2100), J=2,2) /
     &  ( 9.1543E-05, 4.9256E-04),( 9.0919E-05, 5.0476E-04),
     &  ( 9.0523E-05, 5.1299E-04),( 9.0130E-05, 5.1646E-04),
     &  ( 8.9795E-05, 5.1474E-04),( 8.9942E-05, 5.0775E-04),
     &  ( 8.9517E-05, 4.9599E-04),( 9.0052E-05, 4.7986E-04),
     &  ( 8.8135E-05, 4.6033E-04),( 8.6469E-05, 4.3844E-04),
     &  ( 8.5533E-05, 4.1536E-04),( 8.5848E-05, 3.9170E-04),
     &  ( 8.3763E-05, 3.6824E-04),( 8.1423E-05, 3.4530E-04),
     &  ( 8.0848E-05, 3.2270E-04),( 8.0192E-05, 2.9144E-04),
     &  ( 8.2355E-05, 2.7796E-04),( 8.3555E-05, 2.7497E-04),
     &  ( 8.6305E-05, 2.7330E-04),( 8.8736E-05, 2.7223E-04),
     &  ( 8.8793E-05, 2.7149E-04),( 9.0036E-05, 2.7097E-04),
     &  ( 9.1964E-05, 2.7059E-04),( 9.4107E-05, 2.7032E-04),
     &  ( 9.3834E-05, 2.7012E-04),( 9.4480E-05, 2.6999E-04),
     &  ( 9.4547E-05, 2.6991E-04),( 9.5066E-05, 2.6987E-04),
     &  ( 9.5621E-05, 2.6986E-04),( 9.6152E-05, 2.6988E-04),
     &  ( 9.6882E-05, 2.6993E-04),( 9.7752E-05, 2.7000E-04),
     &  ( 9.8675E-05, 2.7008E-04),( 9.9622E-05, 2.7019E-04),
     &  ( 1.0075E-04, 2.7031E-04),( 1.0202E-04, 2.7044E-04),
     &  ( 1.0350E-04, 2.7059E-04),( 1.0520E-04, 2.7075E-04),
     &  ( 1.0705E-04, 2.7093E-04),( 1.0909E-04, 2.7112E-04),
     &  ( 1.1149E-04, 2.7124E-04),( 1.1431E-04, 2.7138E-04),
     &  ( 1.1729E-04, 2.7152E-04),( 1.1775E-04, 2.7167E-04),
     &  ( 1.1881E-04, 2.7183E-04),( 1.2067E-04, 2.7200E-04),
     &  ( 1.2359E-04, 2.7219E-04),( 1.2787E-04, 2.7238E-04),
     &  ( 1.3203E-04, 2.7259E-04),( 1.3009E-04, 2.7280E-04),
     &  ( 1.2818E-04, 2.7303E-04),( 1.1992E-04, 2.7426E-04),
     &  ( 1.3972E-04, 2.7829E-04),( 1.5288E-04, 2.8283E-04),
     &  ( 1.5844E-04, 2.8717E-04),( 1.6248E-04, 2.9170E-04),
     &  ( 1.6567E-04, 2.9605E-04),( 1.6870E-04, 3.0058E-04),
     &  ( 1.7158E-04, 3.0492E-04),( 1.7417E-04, 3.0946E-04),
     &  ( 1.7660E-04, 3.1400E-04),( 1.7855E-04, 3.1834E-04),
     &  ( 1.8068E-04, 3.2288E-04),( 1.8259E-04, 3.2722E-04),
     &  ( 1.7233E-04, 3.3176E-04),( 1.6251E-04, 3.3610E-04),
     &  ( 1.5226E-04, 3.4064E-04),( 1.4244E-04, 3.4498E-04),
     &  ( 1.3218E-04, 3.4951E-04),( 1.2237E-04, 3.5385E-04),
     &  ( 1.1211E-04, 3.5839E-04),( 1.0201E-04, 0.0000E+00),
     &  ( 9.1880E-05, 0.0000E+00),( 8.1290E-05, 0.0000E+00),
     &  ( 7.1160E-05, 0.0000E+00),( 6.0570E-05, 0.0000E+00),
     &  ( 5.0440E-05, 0.0000E+00),( 3.9850E-05, 0.0000E+00),
     &  ( 3.7250E-05, 0.0000E+00),( 3.5036E-05, 0.0000E+00),
     &  ( 3.3275E-05, 0.0000E+00),( 3.1719E-05, 0.0000E+00),
     &  ( 3.0444E-05, 0.0000E+00),( 2.9289E-05, 0.0000E+00),
     &  ( 2.8323E-05, 0.0000E+00),( 2.7431E-05, 0.0000E+00),
     &  ( 2.6641E-05, 0.0000E+00),( 2.5965E-05, 0.0000E+00),
     &  ( 2.5330E-05, 0.0000E+00),( 2.4780E-05, 0.0000E+00),
     &  ( 2.4258E-05, 0.0000E+00),( 2.3803E-05, 0.0000E+00),
     &  ( 2.3367E-05, 0.0000E+00),( 2.2984E-05, 0.0000E+00),
     &  ( 2.2615E-05, 0.0000E+00),( 2.2289E-05, 0.0000E+00),
     &  ( 2.1973E-05, 0.0000E+00),( 2.1692E-05, 0.0000E+00),
     &  ( 2.1429E-05, 0.0000E+00),( 2.1173E-05, 0.0000E+00)/

         DATA ((CAS  (I,J), I=2101,2193), J=2,2) /
     &  ( 2.0944E-05, 0.0000E+00),( 2.0720E-05, 0.0000E+00),
     &  ( 2.0518E-05, 0.0000E+00),( 2.0319E-05, 0.0000E+00),
     &  ( 2.0140E-05, 0.0000E+00),( 1.9964E-05, 0.0000E+00),
     &  ( 1.9804E-05, 0.0000E+00),( 1.9646E-05, 0.0000E+00),
     &  ( 1.9502E-05, 0.0000E+00),( 1.9360E-05, 0.0000E+00),
     &  ( 1.9224E-05, 0.0000E+00),( 1.9101E-05, 0.0000E+00),
     &  ( 1.8978E-05, 0.0000E+00),( 1.8866E-05, 0.0000E+00),
     &  ( 1.8754E-05, 0.0000E+00),( 1.8652E-05, 0.0000E+00),
     &  ( 1.8550E-05, 0.0000E+00),( 1.8456E-05, 0.0000E+00),
     &  ( 1.8362E-05, 0.0000E+00),( 1.8275E-05, 0.0000E+00),
     &  ( 1.8188E-05, 0.0000E+00),( 1.8109E-05, 0.0000E+00),
     &  ( 1.8032E-05, 0.0000E+00),( 1.7954E-05, 0.0000E+00),
     &  ( 1.7883E-05, 0.0000E+00),( 1.7811E-05, 0.0000E+00),
     &  ( 1.7745E-05, 0.0000E+00),( 1.7678E-05, 0.0000E+00),
     &  ( 1.7616E-05, 0.0000E+00),( 1.7553E-05, 0.0000E+00),
     &  ( 1.7496E-05, 0.0000E+00),( 1.7437E-05, 0.0000E+00),
     &  ( 1.7383E-05, 0.0000E+00),( 1.7328E-05, 0.0000E+00),
     &  ( 1.7274E-05, 0.0000E+00),( 1.7225E-05, 0.0000E+00),
     &  ( 1.7175E-05, 0.0000E+00),( 1.7128E-05, 0.0000E+00),
     &  ( 1.7091E-05, 0.0000E+00),( 1.7056E-05, 0.0000E+00),
     &  ( 1.7020E-05, 0.0000E+00),( 1.6985E-05, 0.0000E+00),
     &  ( 1.6948E-05, 0.0000E+00),( 1.6913E-05, 0.0000E+00),
     &  ( 1.6876E-05, 0.0000E+00),( 1.6841E-05, 0.0000E+00),
     &  ( 1.6804E-05, 0.0000E+00),( 1.6769E-05, 0.0000E+00),
     &  ( 1.6734E-05, 0.0000E+00),( 1.6698E-05, 0.0000E+00),
     &  ( 1.6663E-05, 0.0000E+00),( 1.6626E-05, 0.0000E+00),
     &  ( 1.6591E-05, 0.0000E+00),( 1.6554E-05, 0.0000E+00),
     &  ( 1.6519E-05, 0.0000E+00),( 1.6482E-05, 0.0000E+00),
     &  ( 1.6447E-05, 0.0000E+00),( 1.6411E-05, 0.0000E+00),
     &  ( 1.6376E-05, 0.0000E+00),( 1.6339E-05, 0.0000E+00),
     &  ( 1.6089E-05, 0.0000E+00),( 1.5840E-05, 0.0000E+00),
     &  ( 1.5812E-05, 0.0000E+00),( 1.4855E-05, 0.0000E+00),
     &  ( 1.4595E-05, 0.0000E+00),( 1.4128E-05, 0.0000E+00),
     &  ( 1.3949E-05, 0.0000E+00),( 1.3942E-05, 0.0000E+00),
     &  ( 1.3763E-05, 0.0000E+00),( 1.3763E-05, 0.0000E+00),
     &  ( 1.3660E-05, 0.0000E+00),( 1.3657E-05, 0.0000E+00),
     &  ( 1.3655E-05, 0.0000E+00),( 1.3612E-05, 0.0000E+00),
     &  ( 1.3586E-05, 0.0000E+00),( 1.3581E-05, 0.0000E+00),
     &  ( 1.3575E-05, 0.0000E+00),( 1.3564E-05, 0.0000E+00),
     &  ( 1.3557E-05, 0.0000E+00),( 1.3553E-05, 0.0000E+00),
     &  ( 1.3513E-05, 0.0000E+00),( 1.3511E-05, 0.0000E+00),
     &  ( 1.3500E-05, 0.0000E+00),( 1.3498E-05, 0.0000E+00),
     &  ( 1.3490E-05, 0.0000E+00),( 1.3487E-05, 0.0000E+00),
     &  ( 1.3484E-05, 0.0000E+00),( 1.3482E-05, 0.0000E+00),
     &  ( 1.3475E-05, 0.0000E+00),( 1.3465E-05, 0.0000E+00),
     &  ( 1.3461E-05, 0.0000E+00),( 1.3437E-05, 0.0000E+00),
     &  ( 1.3417E-05, 0.0000E+00)/

         DATA ((CAS  (I,J), I=   1, 100), J=3,3) /
     &  ( 6.5237E-06, 0.0000E+00),( 6.9001E-06, 5.1507E-12),
     &  ( 7.3147E-06, 3.4316E-10),( 7.7699E-06, 1.2926E-09),
     &  ( 8.2866E-06, 3.5116E-09),( 8.8790E-06, 7.7238E-09),
     &  ( 9.6504E-06, 1.4769E-08),( 1.0632E-05, 2.8641E-06),
     &  ( 1.0952E-05, 2.6700E-06),( 1.1252E-05, 3.0751E-06),
     &  ( 1.1058E-05, 3.4895E-06),( 1.0844E-05, 3.9134E-06),
     &  ( 1.0805E-05, 4.4326E-06),( 1.0779E-05, 4.3660E-06),
     &  ( 1.0865E-05, 2.8677E-06),( 1.1029E-05, 2.9178E-06),
     &  ( 1.1421E-05, 2.6310E-06),( 1.1854E-05, 2.6187E-06),
     &  ( 1.2210E-05, 2.7892E-06),( 1.2702E-05, 3.4088E-06),
     &  ( 1.3076E-05, 3.3612E-06),( 1.3414E-05, 3.3431E-06),
     &  ( 1.3628E-05, 3.8651E-06),( 1.3896E-05, 4.6032E-06),
     &  ( 1.4182E-05, 4.6656E-06),( 1.4414E-05, 4.2236E-06),
     &  ( 1.4703E-05, 3.6767E-06),( 1.4899E-05, 3.7524E-06),
     &  ( 1.5002E-05, 3.7873E-06),( 1.5366E-05, 3.3983E-06),
     &  ( 1.5765E-05, 3.4370E-06),( 1.6156E-05, 3.6395E-06),
     &  ( 1.6582E-05, 3.8748E-06),( 1.7004E-05, 4.0507E-06),
     &  ( 1.7417E-05, 4.2537E-06),( 1.7824E-05, 4.3941E-06),
     &  ( 1.8228E-05, 4.4888E-06),( 1.8646E-05, 4.5893E-06),
     &  ( 1.9091E-05, 4.7823E-06),( 1.9563E-05, 4.7933E-06),
     &  ( 1.9927E-05, 4.7946E-06),( 2.0421E-05, 4.8368E-06),
     &  ( 2.0945E-05, 5.0260E-06),( 2.1360E-05, 5.1454E-06),
     &  ( 2.1945E-05, 5.2605E-06),( 2.2557E-05, 5.3921E-06),
     &  ( 2.3006E-05, 5.4748E-06),( 2.3584E-05, 5.5833E-06),
     &  ( 2.4027E-05, 5.8116E-06),( 2.4627E-05, 6.5254E-06),
     &  ( 2.7541E-05, 7.9662E-06),( 3.0282E-05, 9.9644E-06),
     &  ( 3.3923E-05, 1.1636E-05),( 3.3873E-05, 1.3921E-05),
     &  ( 3.8391E-05, 1.4026E-05),( 3.9829E-05, 1.2168E-05),
     &  ( 4.1368E-05, 1.5509E-05),( 4.3578E-05, 1.3487E-05),
     &  ( 4.6628E-05, 1.4269E-05),( 4.9812E-05, 1.5700E-05),
     &  ( 5.3025E-05, 1.7224E-05),( 5.4299E-05, 1.8072E-05),
     &  ( 5.6484E-05, 1.8801E-05),( 6.0493E-05, 2.0151E-05),
     &  ( 6.4341E-05, 2.0992E-05),( 6.8661E-05, 2.5437E-05),
     &  ( 7.1629E-05, 3.1211E-05),( 7.5832E-05, 3.9110E-05),
     &  ( 7.6263E-05, 3.4704E-05),( 7.7712E-05, 3.4872E-05),
     &  ( 7.9265E-05, 4.8146E-05),( 8.1262E-05, 4.3542E-05),
     &  ( 8.5272E-05, 5.0702E-05),( 9.0016E-05, 4.7805E-05),
     &  ( 9.6294E-05, 5.2185E-05),( 1.0433E-04, 5.4067E-05),
     &  ( 1.1446E-04, 5.7535E-05),( 1.3002E-04, 5.8684E-05),
     &  ( 1.5139E-04, 6.3311E-05),( 1.6072E-04, 6.3085E-05),
     &  ( 1.9745E-04, 6.8157E-05),( 2.5291E-04, 1.0527E-04),
     &  ( 2.2720E-04, 1.0774E-04),( 2.3916E-04, 1.1512E-04),
     &  ( 2.6954E-04, 1.2749E-04),( 3.2092E-04, 1.6123E-04),
     &  ( 3.5961E-04, 1.9386E-04),( 3.9378E-04, 2.2674E-04),
     &  ( 4.2807E-04, 2.5875E-04),( 4.5219E-04, 2.9824E-04),
     &  ( 4.7045E-04, 3.3270E-04),( 4.8582E-04, 3.9287E-04),
     &  ( 4.9381E-04, 4.3706E-04),( 4.9551E-04, 4.7732E-04),
     &  ( 4.9703E-04, 5.1472E-04),( 4.8887E-04, 5.9587E-04),
     &  ( 4.8316E-04, 6.1921E-04),( 4.7737E-04, 6.4363E-04),
     &  ( 4.6299E-04, 6.7810E-04),( 4.4954E-04, 7.1614E-04)/

         DATA ((CAS  (I,J), I= 101, 200), J=3,3) /
     &  ( 4.3689E-04, 7.5654E-04),( 4.2047E-04, 7.9547E-04),
     &  ( 4.0119E-04, 8.3491E-04),( 3.8037E-04, 8.5805E-04),
     &  ( 3.6236E-04, 8.8681E-04),( 3.4533E-04, 9.1293E-04),
     &  ( 3.2815E-04, 9.4058E-04),( 3.0972E-04, 9.6609E-04),
     &  ( 2.9138E-04, 9.9267E-04),( 2.7313E-04, 1.0191E-03),
     &  ( 2.5221E-04, 1.0460E-03),( 2.2917E-04, 1.0728E-03),
     &  ( 2.0344E-04, 1.1013E-03),( 1.7485E-04, 1.0484E-03),
     &  ( 1.4399E-04, 1.0507E-03),( 1.0896E-04, 1.0533E-03),
     &  ( 7.1357E-05, 1.0559E-03),( 4.1211E-05, 1.0611E-03),
     &  ( 1.4355E-04, 1.0127E-03),( 1.9199E-04, 9.7391E-04),
     &  ( 2.2970E-04, 9.4297E-04),( 2.6174E-04, 9.1593E-04),
     &  ( 2.9069E-04, 8.9065E-04),( 3.1769E-04, 8.6663E-04),
     &  ( 3.4343E-04, 8.4317E-04),( 3.6942E-04, 8.9456E-04),
     &  ( 3.9251E-04, 8.7479E-04),( 4.1098E-04, 8.5499E-04),
     &  ( 4.2674E-04, 8.3516E-04),( 4.4029E-04, 8.1510E-04),
     &  ( 4.5191E-04, 7.9413E-04),( 4.6161E-04, 7.7349E-04),
     &  ( 4.6959E-04, 7.5269E-04),( 4.7584E-04, 7.3048E-04),
     &  ( 4.8033E-04, 7.0865E-04),( 4.8295E-04, 6.2791E-04),
     &  ( 4.8614E-04, 5.9882E-04),( 4.8959E-04, 5.6908E-04),
     &  ( 4.9132E-04, 5.4817E-04),( 4.9263E-04, 5.2743E-04),
     &  ( 4.9337E-04, 5.0469E-04),( 4.9337E-04, 4.7060E-04),
     &  ( 4.9169E-04, 4.3440E-04),( 4.8715E-04, 4.0877E-04),
     &  ( 4.7875E-04, 3.7694E-04),( 4.6780E-04, 3.4201E-04),
     &  ( 4.5273E-04, 3.0264E-04),( 4.3346E-04, 2.7586E-04),
     &  ( 4.1165E-04, 2.4025E-04),( 3.8407E-04, 2.0817E-04),
     &  ( 3.5323E-04, 1.7914E-04),( 3.1700E-04, 1.5338E-04),
     &  ( 3.0851E-04, 1.4602E-04),( 2.8185E-04, 1.2151E-04),
     &  ( 2.4598E-04, 1.1128E-04),( 2.3555E-04, 1.0507E-04),
     &  ( 2.2698E-04, 9.6151E-05),( 2.2634E-04, 8.8037E-05),
     &  ( 2.1216E-04, 4.2524E-05),( 1.9781E-04, 4.7445E-05),
     &  ( 1.8346E-04, 5.6311E-05),( 1.5502E-04, 5.3805E-05),
     &  ( 1.4092E-04, 4.9942E-05),( 1.3450E-04, 4.9611E-05),
     &  ( 1.2919E-04, 4.8814E-05),( 1.2483E-04, 4.8583E-05),
     &  ( 1.2056E-04, 4.5868E-05),( 1.1850E-04, 4.5075E-05),
     &  ( 1.0737E-04, 3.7460E-05),( 9.8157E-05, 3.3184E-05),
     &  ( 9.0381E-05, 3.0970E-05),( 8.4650E-05, 3.0024E-05),
     &  ( 7.8764E-05, 3.1070E-05),( 7.2878E-05, 2.7356E-05),
     &  ( 6.8381E-05, 2.5638E-05),( 6.4253E-05, 2.3796E-05),
     &  ( 5.9697E-05, 2.2849E-05),( 5.5958E-05, 2.1525E-05),
     &  ( 5.3046E-05, 2.1857E-05),( 5.1499E-05, 2.7254E-05),
     &  ( 4.9143E-05, 2.4138E-05),( 4.8164E-05, 2.3478E-05),
     &  ( 4.6516E-05, 2.3681E-05),( 4.5570E-05, 2.4350E-05),
     &  ( 4.5080E-05, 2.5206E-05),( 4.5266E-05, 2.6568E-05),
     &  ( 4.6389E-05, 2.7418E-05),( 4.8025E-05, 3.0506E-05),
     &  ( 5.0318E-05, 3.3997E-05),( 5.3865E-05, 3.6784E-05),
     &  ( 5.5948E-05, 3.8783E-05),( 5.7413E-05, 3.9436E-05),
     &  ( 6.1336E-05, 4.0948E-05),( 6.3497E-05, 4.2050E-05),
     &  ( 6.5761E-05, 4.3972E-05),( 6.8077E-05, 4.5606E-05),
     &  ( 7.1719E-05, 2.9831E-05),( 7.7136E-05, 4.0207E-05),
     &  ( 8.4063E-05, 4.2371E-05),( 1.1293E-04, 4.8891E-05)/

         DATA ((CAS  (I,J), I= 201, 300), J=3,3) /
     &  ( 1.1004E-04, 5.3201E-05),( 1.0747E-04, 4.0435E-05),
     &  ( 1.0865E-04, 4.0199E-05),( 1.1030E-04, 4.0296E-05),
     &  ( 1.1237E-04, 4.0643E-05),( 1.1481E-04, 4.0992E-05),
     &  ( 1.1760E-04, 4.2189E-05),( 1.2071E-04, 4.3701E-05),
     &  ( 1.2399E-04, 4.5184E-05),( 1.2825E-04, 4.7181E-05),
     &  ( 1.3258E-04, 4.9292E-05),( 1.3679E-04, 5.1431E-05),
     &  ( 1.4074E-04, 5.3846E-05),( 1.4468E-04, 5.6913E-05),
     &  ( 1.4833E-04, 6.0250E-05),( 1.5178E-04, 6.3093E-05),
     &  ( 1.5471E-04, 6.5970E-05),( 1.5695E-04, 6.8043E-05),
     &  ( 1.5895E-04, 6.8027E-05),( 1.6076E-04, 6.8012E-05),
     &  ( 1.6251E-04, 6.8235E-05),( 1.6426E-04, 6.8773E-05),
     &  ( 1.6614E-04, 6.9306E-05),( 1.6825E-04, 7.0197E-05),
     &  ( 1.7061E-04, 7.1366E-05),( 1.7322E-04, 7.2545E-05),
     &  ( 1.7593E-04, 7.4060E-05),( 1.7818E-04, 7.5301E-05),
     &  ( 1.7827E-04, 7.5462E-05),( 1.6862E-04, 7.5568E-05),
     &  ( 1.4585E-04, 7.5597E-05),( 1.5310E-04, 5.9347E-05),
     &  ( 1.7219E-04, 6.0256E-05),( 2.0582E-04, 6.2524E-05),
     &  ( 2.2573E-04, 6.4790E-05),( 2.4120E-04, 6.7101E-05),
     &  ( 2.8880E-04, 6.9459E-05),( 3.0616E-04, 7.1518E-05),
     &  ( 3.2533E-04, 7.3390E-05),( 3.4632E-04, 7.6496E-05),
     &  ( 3.6954E-04, 8.3166E-05),( 3.9545E-04, 8.9849E-05),
     &  ( 4.2465E-04, 9.6451E-05),( 4.6139E-04, 1.0289E-04),
     &  ( 4.9813E-04, 1.1006E-04),( 5.4553E-04, 1.2421E-04),
     &  ( 5.9606E-04, 1.3903E-04),( 6.4643E-04, 2.0238E-04),
     &  ( 6.9421E-04, 2.8453E-04),( 7.3208E-04, 3.7909E-04),
     &  ( 7.6140E-04, 4.8611E-04),( 7.8952E-04, 5.7916E-04),
     &  ( 8.3058E-04, 6.4434E-04),( 8.9763E-04, 6.7861E-04),
     &  ( 9.1773E-04, 6.8113E-04),( 9.3767E-04, 6.7653E-04),
     &  ( 9.5803E-04, 7.0412E-04),( 9.8032E-04, 7.5010E-04),
     &  ( 1.0021E-03, 8.4274E-04),( 1.0223E-03, 9.3586E-04),
     &  ( 1.0402E-03, 1.0295E-03),( 1.0528E-03, 1.1236E-03),
     &  ( 1.0523E-03, 1.1885E-03),( 1.0340E-03, 1.3292E-03),
     &  ( 1.0057E-03, 1.4729E-03),( 9.6083E-04, 1.6347E-03),
     &  ( 8.4385E-04, 1.9525E-03),( 7.4108E-04, 2.3893E-03),
     &  ( 6.8505E-04, 2.4002E-03),( 5.6752E-04, 2.5150E-03),
     &  ( 4.4460E-04, 2.7103E-03),( 3.1580E-04, 3.0495E-03),
     &  ( 1.7544E-04, 3.1558E-03),( 7.9477E-05, 3.0230E-03),
     &  ( 2.0409E-04, 2.7265E-03),( 3.6872E-04, 2.3277E-03),
     &  ( 5.3592E-04, 2.1299E-03),( 7.0113E-04, 1.9553E-03),
     &  ( 8.4816E-04, 1.8263E-03),( 9.6436E-04, 1.6995E-03),
     &  ( 1.0442E-03, 1.5749E-03),( 1.0920E-03, 1.4983E-03),
     &  ( 1.1201E-03, 1.4391E-03),( 1.1378E-03, 1.3769E-03),
     &  ( 1.1496E-03, 1.3057E-03),( 1.1541E-03, 1.2255E-03),
     &  ( 1.1517E-03, 1.1786E-03),( 1.1438E-03, 1.0968E-03),
     &  ( 1.1316E-03, 1.1193E-03),( 1.1151E-03, 1.0916E-03),
     &  ( 1.0963E-03, 1.0044E-03),( 1.0686E-03, 8.0714E-04),
     &  ( 1.0508E-03, 6.8726E-04),( 1.0430E-03, 6.3081E-04),
     &  ( 1.0304E-03, 5.2489E-04),( 1.0186E-03, 4.8878E-04),
     &  ( 1.0045E-03, 4.8573E-04),( 9.8643E-04, 4.8129E-04),
     &  ( 9.6517E-04, 4.7548E-04),( 9.4139E-04, 4.6827E-04)/

         DATA ((CAS  (I,J), I= 301, 400), J=3,3) /
     &  ( 9.1648E-04, 4.5968E-04),( 8.9383E-04, 4.4972E-04),
     &  ( 8.7355E-04, 4.3836E-04),( 8.5588E-04, 4.2561E-04),
     &  ( 8.0578E-04, 3.6968E-04),( 7.6347E-04, 3.1468E-04),
     &  ( 7.1930E-04, 2.6061E-04),( 6.7664E-04, 1.9758E-04),
     &  ( 6.3625E-04, 1.8640E-04),( 5.9744E-04, 1.8365E-04),
     &  ( 5.6575E-04, 1.7992E-04),( 5.4042E-04, 1.7526E-04),
     &  ( 5.1929E-04, 1.6965E-04),( 5.0074E-04, 1.6308E-04),
     &  ( 4.8372E-04, 1.5556E-04),( 4.6980E-04, 1.4706E-04),
     &  ( 4.5722E-04, 1.5534E-04),( 4.4580E-04, 1.4915E-04),
     &  ( 4.3698E-04, 1.4400E-04),( 4.2858E-04, 1.3927E-04),
     &  ( 3.7677E-04, 1.3454E-04),( 3.6371E-04, 1.2981E-04),
     &  ( 3.4846E-04, 1.2667E-04),( 3.2942E-04, 1.2536E-04),
     &  ( 2.9453E-04, 1.1977E-04),( 2.1031E-04, 1.2917E-04),
     &  ( 2.2388E-04, 1.3137E-04),( 3.0678E-04, 1.2861E-04),
     &  ( 3.1827E-04, 1.2374E-04),( 3.2537E-04, 1.1895E-04),
     &  ( 3.2804E-04, 1.1426E-04),( 3.2964E-04, 1.0966E-04),
     &  ( 3.2977E-04, 1.0515E-04),( 3.2942E-04, 1.0073E-04),
     &  ( 3.2861E-04, 9.6903E-05),( 3.2748E-04, 9.3798E-05),
     &  ( 3.2614E-04, 9.0743E-05),( 3.2463E-04, 8.7736E-05),
     &  ( 3.2302E-04, 8.4777E-05),( 3.2136E-04, 8.1867E-05),
     &  ( 3.1966E-04, 7.9006E-05),( 3.0561E-04, 1.0343E-04),
     &  ( 3.0297E-04, 1.0196E-04),( 3.0035E-04, 1.0050E-04),
     &  ( 2.9774E-04, 9.9043E-05),( 2.9518E-04, 9.7600E-05),
     &  ( 2.9265E-04, 9.6166E-05),( 2.9014E-04, 9.4741E-05),
     &  ( 2.8768E-04, 9.3315E-05),( 2.8526E-04, 9.1830E-05),
     &  ( 2.8289E-04, 9.0357E-05),( 2.8056E-04, 8.8896E-05),
     &  ( 2.7829E-04, 8.7446E-05),( 2.7606E-04, 8.6008E-05),
     &  ( 2.7387E-04, 8.4583E-05),( 2.7185E-04, 8.7140E-05),
     &  ( 2.6067E-04, 9.8750E-05),( 2.3727E-04, 1.0054E-04),
     &  ( 2.0515E-04, 9.8419E-05),( 1.8400E-04, 8.8913E-05),
     &  ( 1.6893E-04, 8.5118E-05),( 1.5781E-04, 9.3172E-05),
     &  ( 1.4933E-04, 8.9462E-05),( 1.4277E-04, 8.5692E-05),
     &  ( 1.3782E-04, 8.9308E-05),( 1.3739E-04, 8.9504E-05),
     &  ( 1.3250E-04, 9.1975E-05),( 1.2996E-04, 8.9786E-05),
     &  ( 1.2927E-04, 9.0130E-05),( 1.2807E-04, 9.9763E-05),
     &  ( 1.2768E-04, 9.5418E-05),( 1.2768E-04, 9.5160E-05),
     &  ( 1.2797E-04, 8.4787E-05),( 1.2858E-04, 7.9295E-05),
     &  ( 1.2900E-04, 7.4791E-05),( 1.2957E-04, 7.1653E-05),
     &  ( 1.3111E-04, 8.4557E-05),( 1.3316E-04, 8.5189E-05),
     &  ( 1.3574E-04, 7.8237E-05),( 1.3871E-04, 7.7922E-05),
     &  ( 1.4079E-04, 8.1551E-05),( 1.4228E-04, 8.6643E-05),
     &  ( 1.4640E-04, 8.3803E-05),( 1.5109E-04, 8.0369E-05),
     &  ( 1.5159E-04, 8.0538E-05),( 1.5642E-04, 8.5463E-05),
     &  ( 1.6273E-04, 9.6447E-05),( 1.6629E-04, 1.0110E-04),
     &  ( 1.7012E-04, 1.0012E-04),( 1.7859E-04, 9.8006E-05),
     &  ( 1.8830E-04, 1.0007E-04),( 2.0020E-04, 1.1694E-04),
     &  ( 2.0421E-04, 1.2403E-04),( 2.1455E-04, 1.2008E-04),
     &  ( 2.2285E-04, 1.1704E-04),( 2.3196E-04, 1.0853E-04),
     &  ( 2.5369E-04, 1.1439E-04),( 2.8320E-04, 1.2898E-04),
     &  ( 2.8700E-04, 1.2821E-04),( 3.2192E-04, 1.2866E-04)/

         DATA ((CAS  (I,J), I= 401, 500), J=3,3) /
     &  ( 3.8773E-04, 2.3480E-04),( 4.0115E-04, 2.4125E-04),
     &  ( 3.5599E-04, 2.4929E-04),( 3.2161E-04, 2.5479E-04),
     &  ( 3.0872E-04, 2.5691E-04),( 2.7398E-04, 2.6509E-04),
     &  ( 2.6526E-04, 2.6792E-04),( 2.6058E-04, 2.6975E-04),
     &  ( 2.5489E-04, 2.7698E-04),( 2.4433E-04, 2.8258E-04),
     &  ( 2.3266E-04, 2.9379E-04),( 2.2147E-04, 2.9934E-04),
     &  ( 2.2017E-04, 2.9978E-04),( 2.0915E-04, 3.0833E-04),
     &  ( 2.0800E-04, 3.0878E-04),( 2.0214E-04, 3.1086E-04),
     &  ( 1.9730E-04, 3.1249E-04),( 1.8152E-04, 3.2518E-04),
     &  ( 1.7895E-04, 3.2549E-04),( 1.6113E-04, 3.3946E-04),
     &  ( 1.5979E-04, 3.3994E-04),( 1.5845E-04, 3.4025E-04),
     &  ( 1.4545E-04, 3.3906E-04),( 1.3475E-04, 3.3760E-04),
     &  ( 1.3304E-04, 3.3836E-04),( 1.2485E-04, 3.3326E-04),
     &  ( 1.2428E-04, 3.3371E-04),( 1.2173E-04, 3.3638E-04),
     &  ( 1.2126E-04, 3.3697E-04),( 1.1836E-04, 3.4009E-04),
     &  ( 1.1663E-04, 3.4246E-04),( 1.1081E-04, 3.5546E-04),
     &  ( 1.1011E-04, 3.5622E-04),( 1.0223E-04, 3.6436E-04),
     &  ( 9.4617E-05, 3.6783E-04),( 9.0583E-05, 3.6934E-04),
     &  ( 8.9839E-05, 3.7545E-04),( 8.1427E-05, 3.7027E-04),
     &  ( 8.0352E-05, 3.7144E-04),( 7.6349E-05, 3.7099E-04),
     &  ( 7.4527E-05, 3.6879E-04),( 7.3976E-05, 3.7048E-04),
     &  ( 7.3670E-05, 3.7161E-04),( 7.3536E-05, 3.6576E-04),
     &  ( 7.2754E-05, 3.6766E-04),( 7.2713E-05, 3.6667E-04),
     &  ( 7.2929E-05, 3.7170E-04),( 7.3700E-05, 3.8312E-04),
     &  ( 7.4387E-05, 3.8074E-04),( 7.9136E-05, 3.8810E-04),
     &  ( 8.7420E-05, 3.9456E-04),( 8.9617E-05, 3.9228E-04),
     &  ( 9.0778E-05, 3.9260E-04),( 9.8135E-05, 3.9440E-04),
     &  ( 1.0206E-04, 3.9538E-04),( 1.0606E-04, 3.9044E-04),
     &  ( 1.2393E-04, 3.7973E-04),( 1.2621E-04, 3.7745E-04),
     &  ( 1.3207E-04, 3.6491E-04),( 1.3527E-04, 3.5496E-04),
     &  ( 1.3793E-04, 3.4296E-04),( 1.3829E-04, 3.4187E-04),
     &  ( 1.3885E-04, 3.3860E-04),( 1.3910E-04, 3.3116E-04),
     &  ( 1.3915E-04, 3.2917E-04),( 1.3866E-04, 3.3019E-04),
     &  ( 1.3755E-04, 3.2490E-04),( 1.3674E-04, 3.2665E-04),
     &  ( 1.3482E-04, 3.2670E-04),( 1.3313E-04, 3.2205E-04),
     &  ( 1.3285E-04, 3.2644E-04),( 1.2852E-04, 3.2008E-04),
     &  ( 1.2624E-04, 3.2427E-04),( 1.2526E-04, 3.2437E-04),
     &  ( 1.2527E-04, 3.2917E-04),( 1.2537E-04, 3.3521E-04),
     &  ( 1.2535E-04, 3.3539E-04),( 1.2544E-04, 3.3951E-04),
     &  ( 1.1893E-04, 3.3833E-04),( 1.1420E-04, 3.8875E-04),
     &  ( 1.1600E-04, 3.9701E-04),( 1.5197E-04, 4.2898E-04),
     &  ( 1.7821E-04, 4.4084E-04),( 1.9794E-04, 4.5302E-04),
     &  ( 2.5316E-04, 4.4290E-04),( 3.0807E-04, 4.2019E-04),
     &  ( 3.1800E-04, 4.1169E-04),( 3.2296E-04, 3.9473E-04),
     &  ( 3.3014E-04, 3.6881E-04),( 3.3179E-04, 3.7385E-04),
     &  ( 3.3642E-04, 3.8414E-04),( 3.3757E-04, 3.8414E-04),
     &  ( 3.4324E-04, 3.8939E-04),( 3.5532E-04, 3.9972E-04),
     &  ( 3.7358E-04, 4.0988E-04),( 3.8292E-04, 4.1008E-04),
     &  ( 5.4080E-04, 4.3796E-04),( 6.4287E-04, 2.9267E-04),
     &  ( 5.4977E-04, 1.3025E-04),( 3.6829E-04, 9.8208E-05)/

         DATA ((CAS  (I,J), I= 501, 600), J=3,3) /
     &  ( 2.9336E-04, 9.3620E-05),( 2.6334E-04, 8.8384E-05),
     &  ( 2.2147E-04, 8.6926E-05),( 2.1725E-04, 5.5068E-05),
     &  ( 2.0741E-04, 5.5658E-05),( 1.9672E-04, 5.7204E-05),
     &  ( 1.7820E-04, 5.9748E-05),( 1.7182E-04, 5.6803E-05),
     &  ( 1.6654E-04, 5.3879E-05),( 1.6226E-04, 5.3933E-05),
     &  ( 1.5898E-04, 5.3952E-05),( 1.5654E-04, 5.3952E-05),
     &  ( 1.5487E-04, 5.3952E-05),( 1.5390E-04, 5.3806E-05),
     &  ( 1.5362E-04, 5.3660E-05),( 1.5403E-04, 5.3521E-05),
     &  ( 1.5517E-04, 5.3514E-05),( 1.5550E-04, 5.3524E-05),
     &  ( 1.5586E-04, 5.3533E-05),( 1.5625E-04, 5.3543E-05),
     &  ( 1.5669E-04, 5.3553E-05),( 1.5715E-04, 5.3563E-05),
     &  ( 1.5766E-04, 5.3572E-05),( 1.5821E-04, 5.3582E-05),
     &  ( 1.5833E-04, 5.3584E-05),( 1.5844E-04, 5.3586E-05),
     &  ( 1.5856E-04, 5.3588E-05),( 1.5868E-04, 5.3590E-05),
     &  ( 1.5880E-04, 5.3592E-05),( 1.5893E-04, 5.3594E-05),
     &  ( 1.5905E-04, 5.3596E-05),( 1.5918E-04, 5.3598E-05),
     &  ( 1.5931E-04, 5.3600E-05),( 1.5944E-04, 5.3601E-05),
     &  ( 1.6014E-04, 5.3610E-05),( 1.6054E-04, 5.3622E-05),
     &  ( 1.6075E-04, 5.3628E-05),( 1.6091E-04, 5.3632E-05),
     &  ( 1.6107E-04, 5.3636E-05),( 1.6123E-04, 5.3640E-05),
     &  ( 1.6139E-04, 5.3645E-05),( 1.6156E-04, 5.3649E-05),
     &  ( 1.6173E-04, 5.3653E-05),( 1.6181E-04, 5.3655E-05),
     &  ( 1.6190E-04, 5.3657E-05),( 1.6198E-04, 5.3659E-05),
     &  ( 1.6207E-04, 5.3661E-05),( 1.6216E-04, 5.3663E-05),
     &  ( 1.6225E-04, 5.3665E-05),( 1.6233E-04, 5.3668E-05),
     &  ( 1.6242E-04, 5.3670E-05),( 1.6251E-04, 5.3672E-05),
     &  ( 1.6260E-04, 5.3674E-05),( 1.6270E-04, 5.3676E-05),
     &  ( 1.6279E-04, 5.3678E-05),( 1.6288E-04, 5.3680E-05),
     &  ( 1.6297E-04, 5.3682E-05),( 1.6306E-04, 5.3684E-05),
     &  ( 1.6316E-04, 5.3684E-05),( 1.6325E-04, 5.3684E-05),
     &  ( 1.6335E-04, 5.3684E-05),( 1.6345E-04, 5.3684E-05),
     &  ( 1.6354E-04, 5.3684E-05),( 1.6364E-04, 5.3684E-05),
     &  ( 1.6374E-04, 5.3684E-05),( 1.6384E-04, 5.3684E-05),
     &  ( 1.6394E-04, 5.3684E-05),( 1.6404E-04, 5.3684E-05),
     &  ( 1.6414E-04, 5.3684E-05),( 1.6424E-04, 5.3684E-05),
     &  ( 1.6434E-04, 5.3684E-05),( 1.6444E-04, 5.3684E-05),
     &  ( 1.6454E-04, 5.3684E-05),( 1.6465E-04, 5.3674E-05),
     &  ( 1.6475E-04, 5.3665E-05),( 1.6486E-04, 5.3655E-05),
     &  ( 1.6496E-04, 5.3645E-05),( 1.6507E-04, 5.3636E-05),
     &  ( 1.6518E-04, 5.3626E-05),( 1.6528E-04, 5.3616E-05),
     &  ( 1.6539E-04, 5.3606E-05),( 1.6550E-04, 5.3597E-05),
     &  ( 1.6561E-04, 5.3587E-05),( 1.6567E-04, 5.3591E-05),
     &  ( 1.6573E-04, 5.3595E-05),( 1.6578E-04, 5.3600E-05),
     &  ( 1.6584E-04, 5.3604E-05),( 1.6589E-04, 5.3608E-05),
     &  ( 1.6595E-04, 5.3612E-05),( 1.6601E-04, 5.3617E-05),
     &  ( 1.6606E-04, 5.3621E-05),( 1.6612E-04, 5.3625E-05),
     &  ( 1.6618E-04, 5.3629E-05),( 1.6624E-04, 5.3634E-05),
     &  ( 1.6629E-04, 5.3638E-05),( 1.6635E-04, 5.3642E-05),
     &  ( 1.6641E-04, 5.3646E-05),( 1.6647E-04, 5.3651E-05),
     &  ( 1.6653E-04, 5.3655E-05),( 1.6659E-04, 5.3659E-05)/

         DATA ((CAS  (I,J), I= 601, 700), J=3,3) /
     &  ( 1.6665E-04, 5.3664E-05),( 1.6671E-04, 5.3668E-05),
     &  ( 1.6677E-04, 5.3672E-05),( 1.6683E-04, 5.3676E-05),
     &  ( 1.6689E-04, 5.3681E-05),( 1.6695E-04, 5.3685E-05),
     &  ( 1.6701E-04, 5.3689E-05),( 1.6707E-04, 5.3693E-05),
     &  ( 1.6713E-04, 5.3698E-05),( 1.6719E-04, 5.3702E-05),
     &  ( 1.6725E-04, 5.3706E-05),( 1.6731E-04, 5.3710E-05),
     &  ( 1.6738E-04, 5.3715E-05),( 1.6744E-04, 5.3719E-05),
     &  ( 1.6750E-04, 5.3723E-05),( 1.6756E-04, 5.3727E-05),
     &  ( 1.6763E-04, 5.3732E-05),( 1.6769E-04, 5.3736E-05),
     &  ( 1.6775E-04, 5.3740E-05),( 1.6782E-04, 5.3744E-05),
     &  ( 1.6788E-04, 5.3749E-05),( 1.6797E-04, 5.3755E-05),
     &  ( 1.6801E-04, 5.3757E-05),( 1.6808E-04, 5.3754E-05),
     &  ( 1.6814E-04, 5.3750E-05),( 1.6821E-04, 5.3746E-05),
     &  ( 1.6827E-04, 5.3743E-05),( 1.6834E-04, 5.3739E-05),
     &  ( 1.6840E-04, 5.3735E-05),( 1.6847E-04, 5.3732E-05),
     &  ( 1.6854E-04, 5.3728E-05),( 1.6860E-04, 5.3724E-05),
     &  ( 1.6867E-04, 5.3721E-05),( 1.6874E-04, 5.3717E-05),
     &  ( 1.6879E-04, 5.3714E-05),( 1.6892E-04, 5.3707E-05),
     &  ( 1.6906E-04, 5.3700E-05),( 1.6920E-04, 5.3692E-05),
     &  ( 1.6934E-04, 5.3685E-05),( 1.6948E-04, 5.3680E-05),
     &  ( 1.6963E-04, 5.3675E-05),( 1.6977E-04, 5.3670E-05),
     &  ( 1.6992E-04, 3.1102E-04),( 1.7006E-04, 6.5612E-04),
     &  ( 1.7021E-04, 2.7726E-03),( 1.7022E-04, 3.1011E-03),
     &  ( 1.7023E-04, 3.4928E-03),( 1.7023E-04, 3.9650E-03),
     &  ( 1.7024E-04, 4.5414E-03),( 1.7025E-04, 5.2550E-03),
     &  ( 1.7026E-04, 6.1530E-03),( 1.7026E-04, 7.3045E-03),
     &  ( 1.7027E-04, 8.8147E-03),( 1.7028E-04, 1.0849E-02),
     &  ( 1.7029E-04, 1.3679E-02),( 1.7029E-04, 1.7779E-02),
     &  ( 1.7030E-04, 2.4032E-02),( 1.7031E-04, 3.4234E-02),
     &  ( 1.7031E-04, 3.5595E-02),( 1.7032E-04, 7.5295E-02),
     &  ( 1.7033E-04, 1.1769E-01),( 1.7033E-04, 1.6263E-01),
     &  ( 1.7033E-04, 2.1204E-01),( 1.7033E-04, 2.5872E-01),
     &  ( 1.7033E-04, 3.0764E-01),( 1.7034E-04, 3.5423E-01),
     &  ( 1.7034E-04, 4.0986E-01),( 1.7034E-04, 4.5594E-01),
     &  ( 1.7034E-04, 5.0778E-01),( 1.7034E-04, 5.5357E-01),
     &  ( 1.7034E-04, 6.0311E-01),( 1.7034E-04, 6.4256E-01),
     &  ( 1.7034E-04, 6.9773E-01),( 1.7034E-04, 7.2616E-01),
     &  ( 1.7034E-04, 7.6938E-01),( 1.7034E-04, 8.1266E-01),
     &  ( 1.7034E-04, 8.4112E-01),( 1.7034E-04, 8.8242E-01),
     &  ( 1.7034E-04, 9.0854E-01),( 1.7034E-04, 9.3309E-01),
     &  ( 1.7034E-04, 9.5568E-01),( 1.7034E-04, 9.7594E-01),
     &  ( 1.7034E-04, 9.9349E-01),( 1.7034E-04, 1.0080E+00),
     &  ( 1.7034E-04, 1.0191E+00),( 1.7034E-04, 1.0267E+00),
     &  ( 1.7034E-04, 1.0306E+00),( 1.7034E-04, 1.0306E+00),
     &  ( 1.7035E-04, 1.0234E+00),( 1.7035E-04, 1.0140E+00),
     &  ( 1.7035E-04, 9.9351E-01),( 1.7035E-04, 9.6616E-01),
     &  ( 1.7035E-04, 8.6894E-01),( 1.7035E-04, 7.5498E-01),
     &  ( 1.7035E-04, 7.1194E-01),( 1.7035E-04, 6.6987E-01),
     &  ( 1.7035E-04, 6.4261E-01),( 1.7035E-04, 6.0316E-01),
     &  ( 1.7035E-04, 5.7793E-01),( 1.7035E-04, 5.5362E-01)/

         DATA ((CAS  (I,J), I= 701, 800), J=3,3) /
     &  ( 1.7035E-04, 5.3025E-01),( 1.7035E-04, 5.0784E-01),
     &  ( 1.7035E-04, 4.8639E-01),( 1.7035E-04, 4.6589E-01),
     &  ( 1.7035E-04, 4.4632E-01),( 1.7035E-04, 4.2768E-01),
     &  ( 1.7035E-04, 4.0991E-01),( 1.7035E-04, 3.9301E-01),
     &  ( 1.7035E-04, 3.6919E-01),( 1.7035E-04, 3.5428E-01),
     &  ( 1.7035E-04, 3.3329E-01),( 1.7036E-04, 3.1385E-01),
     &  ( 1.7036E-04, 3.0169E-01),( 1.7036E-04, 2.7914E-01),
     &  ( 1.7036E-04, 2.6366E-01),( 1.7036E-04, 2.4475E-01),
     &  ( 1.7036E-04, 2.2762E-01),( 1.7036E-04, 2.0842E-01),
     &  ( 1.7036E-04, 1.9138E-01),( 1.7036E-04, 1.7061E-01),
     &  ( 1.7036E-04, 1.5286E-01),( 1.7036E-04, 1.3366E-01),
     &  ( 1.7036E-04, 1.1455E-01),( 1.7037E-04, 9.3114E-02),
     &  ( 1.7037E-04, 7.2045E-02),( 1.7038E-04, 5.0102E-02),
     &  ( 1.7038E-04, 3.4251E-02),( 1.7039E-04, 2.4046E-02),
     &  ( 1.7040E-04, 1.7791E-02),( 1.7040E-04, 1.3690E-02),
     &  ( 1.7041E-04, 1.0858E-02),( 1.7042E-04, 8.8232E-03),
     &  ( 1.7043E-04, 7.3123E-03),( 1.7043E-04, 6.1601E-03),
     &  ( 1.7044E-04, 5.2616E-03),( 1.7045E-04, 4.5475E-03),
     &  ( 1.7046E-04, 3.9707E-03),( 1.7046E-04, 3.4981E-03),
     &  ( 1.7047E-04, 3.1061E-03),( 1.7048E-04, 2.7774E-03),
     &  ( 1.7049E-04, 2.4990E-03),( 1.7049E-04, 2.2612E-03),
     &  ( 1.7050E-04, 2.0564E-03),( 1.7051E-04, 1.8789E-03),
     &  ( 1.7066E-04, 5.6184E-04),( 1.7081E-04, 2.8817E-04),
     &  ( 1.7096E-04, 1.8821E-04),( 1.7112E-04, 1.4088E-04),
     &  ( 1.7127E-04, 5.3784E-05),( 1.7143E-04, 5.3834E-05),
     &  ( 1.7159E-04, 5.3884E-05),( 1.7175E-04, 5.3934E-05),
     &  ( 1.7191E-04, 5.3984E-05),( 1.7208E-04, 5.4035E-05),
     &  ( 1.7210E-04, 5.4041E-05),( 1.7227E-04, 5.4092E-05),
     &  ( 1.7244E-04, 5.4142E-05),( 1.7261E-04, 5.4193E-05),
     &  ( 1.7279E-04, 5.4244E-05),( 1.7297E-04, 5.4294E-05),
     &  ( 1.7315E-04, 5.4345E-05),( 1.7333E-04, 5.4396E-05),
     &  ( 1.7352E-04, 5.4446E-05),( 1.7371E-04, 5.4497E-05),
     &  ( 1.7390E-04, 5.4547E-05),( 1.7410E-04, 5.4598E-05),
     &  ( 1.7430E-04, 5.4649E-05),( 1.7450E-04, 5.4699E-05),
     &  ( 1.7470E-04, 5.4750E-05),( 1.7491E-04, 5.4800E-05),
     &  ( 1.7512E-04, 5.4851E-05),( 1.7533E-04, 5.4902E-05),
     &  ( 1.7555E-04, 5.4952E-05),( 1.7577E-04, 5.5003E-05),
     &  ( 1.7599E-04, 5.5053E-05),( 1.7622E-04, 5.5104E-05),
     &  ( 1.7645E-04, 5.5154E-05),( 1.7669E-04, 5.5205E-05),
     &  ( 1.7692E-04, 5.5255E-05),( 1.7717E-04, 5.5306E-05),
     &  ( 1.7741E-04, 5.5357E-05),( 1.7766E-04, 5.5407E-05),
     &  ( 1.7791E-04, 5.5458E-05),( 1.7817E-04, 5.5508E-05),
     &  ( 1.7844E-04, 5.5559E-05),( 1.7870E-04, 5.5609E-05),
     &  ( 1.7897E-04, 5.5660E-05),( 1.7925E-04, 5.5710E-05),
     &  ( 1.7953E-04, 5.5760E-05),( 1.7982E-04, 5.5811E-05),
     &  ( 1.8011E-04, 5.5861E-05),( 1.8041E-04, 5.5912E-05),
     &  ( 1.8071E-04, 5.5962E-05),( 1.8102E-04, 5.6013E-05),
     &  ( 1.8134E-04, 5.6063E-05),( 1.8166E-04, 5.6114E-05),
     &  ( 1.8199E-04, 5.6164E-05),( 1.8233E-04, 5.6214E-05),
     &  ( 1.8267E-04, 5.6265E-05),( 1.8302E-04, 5.6315E-05)/

         DATA ((CAS  (I,J), I= 801, 900), J=3,3) /
     &  ( 1.8338E-04, 5.6366E-05),( 1.8374E-04, 5.6416E-05),
     &  ( 1.8412E-04, 5.6467E-05),( 1.8450E-04, 5.6517E-05),
     &  ( 1.8489E-04, 5.6567E-05),( 1.8530E-04, 5.6618E-05),
     &  ( 1.8571E-04, 5.6668E-05),( 1.8613E-04, 5.6718E-05),
     &  ( 1.8657E-04, 5.6769E-05),( 1.8701E-04, 5.6819E-05),
     &  ( 1.8747E-04, 5.6869E-05),( 1.8794E-04, 5.6920E-05),
     &  ( 1.8843E-04, 5.6970E-05),( 1.8893E-04, 5.7020E-05),
     &  ( 1.8945E-04, 5.7071E-05),( 1.8998E-04, 5.7121E-05),
     &  ( 1.9053E-04, 5.7171E-05),( 1.9110E-04, 5.7222E-05),
     &  ( 1.9169E-04, 5.7272E-05),( 1.9230E-04, 5.7322E-05),
     &  ( 1.9293E-04, 5.7373E-05),( 1.9359E-04, 5.7423E-05),
     &  ( 1.9428E-04, 5.7473E-05),( 1.9499E-04, 5.7523E-05),
     &  ( 1.9574E-04, 5.7574E-05),( 1.9652E-04, 5.7624E-05),
     &  ( 1.9734E-04, 5.7674E-05),( 1.9820E-04, 5.7724E-05),
     &  ( 1.9911E-04, 5.7775E-05),( 2.0007E-04, 5.7825E-05),
     &  ( 2.0109E-04, 5.7875E-05),( 2.0217E-04, 5.7925E-05),
     &  ( 2.0332E-04, 5.7976E-05),( 2.0456E-04, 5.8026E-05),
     &  ( 2.0590E-04, 5.8076E-05),( 2.0734E-04, 5.8126E-05),
     &  ( 2.0892E-04, 5.8176E-05),( 2.1066E-04, 5.8227E-05),
     &  ( 2.1082E-04, 5.8277E-05),( 2.1097E-04, 5.8327E-05),
     &  ( 2.1111E-04, 5.8377E-05),( 2.1124E-04, 5.8427E-05),
     &  ( 2.1135E-04, 5.8477E-05),( 2.1144E-04, 5.8528E-05),
     &  ( 2.1151E-04, 5.8578E-05),( 2.1155E-04, 5.8628E-05),
     &  ( 2.1155E-04, 5.8673E-05),( 2.1336E-04, 5.8955E-05),
     &  ( 2.1361E-04, 5.9232E-05),( 2.1377E-04, 5.9509E-05),
     &  ( 2.1394E-04, 5.9786E-05),( 2.1402E-04, 6.0064E-05),
     &  ( 2.1412E-04, 6.0341E-05),( 2.1421E-04, 6.0618E-05),
     &  ( 2.1431E-04, 6.0896E-05),( 2.1439E-04, 6.1174E-05),
     &  ( 2.1447E-04, 6.1451E-05),( 1.9601E-04, 7.2638E-05),
     &  ( 1.9234E-04, 8.6829E-05),( 1.9853E-04, 9.4278E-05),
     &  ( 2.0607E-04, 9.7463E-05),( 2.1863E-04, 9.7376E-05),
     &  ( 2.3995E-04, 9.2007E-05),( 2.5116E-04, 8.9488E-05),
     &  ( 2.6480E-04, 8.6965E-05),( 2.6674E-04, 8.6989E-05),
     &  ( 2.7713E-04, 9.7494E-05),( 2.8376E-04, 9.2971E-05),
     &  ( 2.8505E-04, 9.2173E-05),( 3.0451E-04, 9.2213E-05),
     &  ( 3.4051E-04, 9.2256E-05),( 3.4411E-04, 9.2256E-05),
     &  ( 3.4338E-04, 8.1873E-05),( 3.4713E-04, 8.2973E-05),
     &  ( 3.5205E-04, 8.4860E-05),( 3.4399E-04, 8.6744E-05),
     &  ( 3.3850E-04, 8.8625E-05),( 3.3453E-04, 9.0504E-05),
     &  ( 3.3152E-04, 9.2380E-05),( 3.2920E-04, 9.2442E-05),
     &  ( 3.2747E-04, 9.2504E-05),( 3.2632E-04, 9.2566E-05),
     &  ( 3.2560E-04, 9.2628E-05),( 3.2540E-04, 9.3793E-05),
     &  ( 3.2520E-04, 9.4960E-05),( 3.2498E-04, 9.6128E-05),
     &  ( 3.2474E-04, 9.7298E-05),( 3.2445E-04, 9.8470E-05),
     &  ( 3.2414E-04, 1.0075E-04),( 3.2401E-04, 1.0189E-04),
     &  ( 3.2392E-04, 1.0303E-04),( 3.2385E-04, 1.0417E-04),
     &  ( 3.2381E-04, 1.0532E-04),( 3.2381E-04, 1.0646E-04),
     &  ( 3.2385E-04, 1.0760E-04),( 3.2392E-04, 1.0875E-04),
     &  ( 3.2404E-04, 1.0990E-04),( 3.2419E-04, 1.0995E-04),
     &  ( 3.2437E-04, 1.0907E-04),( 3.2459E-04, 1.0820E-04)/

         DATA ((CAS  (I,J), I= 901,1000), J=3,3) /
     &  ( 3.2483E-04, 1.0733E-04),( 3.2515E-04, 1.0649E-04),
     &  ( 3.2531E-04, 1.0601E-04),( 3.2551E-04, 1.0554E-04),
     &  ( 3.2572E-04, 1.0506E-04),( 3.2594E-04, 1.0459E-04),
     &  ( 3.2619E-04, 1.0411E-04),( 3.2644E-04, 1.0363E-04),
     &  ( 3.2672E-04, 1.0316E-04),( 3.2702E-04, 1.0269E-04),
     &  ( 3.2733E-04, 1.0221E-04),( 3.2767E-04, 1.0174E-04),
     &  ( 3.2804E-04, 1.0127E-04),( 3.2844E-04, 1.0080E-04),
     &  ( 3.2888E-04, 1.0032E-04),( 3.2937E-04, 9.9853E-05),
     &  ( 3.2989E-04, 9.9383E-05),( 3.3044E-04, 9.8913E-05),
     &  ( 3.3103E-04, 9.8444E-05),( 3.3165E-04, 9.7975E-05),
     &  ( 3.3214E-04, 9.7623E-05),( 3.3230E-04, 9.7507E-05),
     &  ( 3.3244E-04, 9.7413E-05),( 3.3266E-04, 5.7723E-02),
     &  ( 3.3272E-04, 7.1749E-02),( 3.3276E-04, 8.5539E-02),
     &  ( 3.3280E-04, 9.9381E-02),( 3.3283E-04, 1.1316E-01),
     &  ( 3.3285E-04, 1.2655E-01),( 3.3287E-04, 1.4037E-01),
     &  ( 3.3289E-04, 1.5423E-01),( 3.3290E-04, 1.6658E-01),
     &  ( 3.3292E-04, 1.8019E-01),( 3.3293E-04, 1.9386E-01),
     &  ( 3.3295E-04, 2.0734E-01),( 3.3296E-04, 2.2038E-01),
     &  ( 3.3297E-04, 2.3431E-01),( 3.3298E-04, 2.4577E-01),
     &  ( 3.3299E-04, 2.5954E-01),( 3.3300E-04, 2.7218E-01),
     &  ( 3.3301E-04, 2.8533E-01),( 3.3302E-04, 2.9898E-01),
     &  ( 3.3302E-04, 3.1102E-01),( 3.3303E-04, 3.2544E-01),
     &  ( 3.3304E-04, 3.3804E-01),( 3.3305E-04, 3.5080E-01),
     &  ( 3.3306E-04, 3.6364E-01),( 3.3306E-04, 3.7860E-01),
     &  ( 3.3307E-04, 3.9128E-01),( 3.3308E-04, 4.0575E-01),
     &  ( 3.3309E-04, 4.1771E-01),( 3.3310E-04, 4.3277E-01),
     &  ( 3.3311E-04, 4.4649E-01),( 3.3312E-04, 4.6248E-01),
     &  ( 3.3314E-04, 4.7253E-01),( 3.3315E-04, 4.7997E-01),
     &  ( 3.3316E-04, 4.8209E-01),( 3.3316E-04, 4.8311E-01),
     &  ( 3.3317E-04, 4.8300E-01),( 3.3319E-04, 4.7679E-01),
     &  ( 3.3320E-04, 4.6619E-01),( 3.3321E-04, 4.5570E-01),
     &  ( 3.3322E-04, 4.4325E-01),( 3.3323E-04, 4.3282E-01),
     &  ( 3.3324E-04, 4.1971E-01),( 3.3325E-04, 4.0783E-01),
     &  ( 3.3326E-04, 3.9343E-01),( 3.3326E-04, 3.8078E-01),
     &  ( 3.3327E-04, 3.6798E-01),( 3.3328E-04, 3.5514E-01),
     &  ( 3.3329E-04, 3.4022E-01),( 3.3330E-04, 3.2759E-01),
     &  ( 3.3330E-04, 3.1313E-01),( 3.3331E-04, 2.9904E-01),
     &  ( 3.3332E-04, 2.8540E-01),( 3.3333E-04, 2.7041E-01),
     &  ( 3.3334E-04, 2.5785E-01),( 3.3335E-04, 2.4251E-01),
     &  ( 3.3337E-04, 2.2807E-01),( 3.3338E-04, 2.1309E-01),
     &  ( 3.3339E-04, 1.9786E-01),( 3.3341E-04, 1.8265E-01),
     &  ( 3.3343E-04, 1.6882E-01),( 3.3345E-04, 1.5331E-01),
     &  ( 3.3347E-04, 1.3785E-01),( 3.3349E-04, 1.2288E-01),
     &  ( 3.3352E-04, 1.0752E-01),( 3.3356E-04, 9.2149E-02),
     &  ( 3.3361E-04, 7.6904E-02),( 3.3367E-04, 6.1498E-02),
     &  ( 3.3371E-04, 5.4109E-02),( 3.3376E-04, 4.6224E-02),
     &  ( 3.3383E-04, 3.7888E-02),( 3.3393E-04, 2.9752E-02),
     &  ( 3.3399E-04, 2.5424E-02),( 3.3417E-04, 1.7726E-02),
     &  ( 3.3425E-04, 1.5409E-02),( 3.3447E-04, 1.1032E-02),
     &  ( 3.3526E-04, 9.5639E-05),( 3.3609E-04, 9.5173E-05)/

         DATA ((CAS  (I,J), I=1001,1100), J=3,3) /
     &  ( 3.3695E-04, 9.4708E-05),( 3.3786E-04, 9.4243E-05),
     &  ( 3.3880E-04, 9.3779E-05),( 3.3978E-04, 9.3316E-05),
     &  ( 3.4078E-04, 9.2853E-05),( 3.4179E-04, 9.2390E-05),
     &  ( 3.4283E-04, 9.1928E-05),( 3.4387E-04, 9.1467E-05),
     &  ( 3.4494E-04, 9.1100E-05),( 3.4602E-04, 9.1109E-05),
     &  ( 3.4712E-04, 1.0578E-04),( 3.4822E-04, 1.0599E-04),
     &  ( 3.4939E-04, 1.0620E-04),( 3.5052E-04, 1.0641E-04),
     &  ( 3.5170E-04, 1.0663E-04),( 3.5289E-04, 1.0685E-04),
     &  ( 3.5512E-04, 1.0726E-04),( 3.5866E-04, 1.0792E-04),
     &  ( 3.6134E-04, 1.0980E-04),( 3.6727E-04, 1.1648E-04),
     &  ( 3.7334E-04, 1.2328E-04),( 3.8241E-04, 1.3195E-04),
     &  ( 3.8939E-04, 1.5634E-04),( 3.7805E-04, 2.2251E-04),
     &  ( 3.6174E-04, 2.8993E-04),( 3.4916E-04, 2.9089E-04),
     &  ( 3.4002E-04, 2.9419E-04),( 3.3412E-04, 2.9875E-04),
     &  ( 3.3027E-04, 3.0404E-04),( 3.2753E-04, 3.0979E-04),
     &  ( 3.2547E-04, 3.1583E-04),( 3.2386E-04, 3.2435E-04),
     &  ( 3.2256E-04, 3.3368E-04),( 3.2149E-04, 3.4282E-04),
     &  ( 3.2058E-04, 3.5179E-04),( 3.1981E-04, 3.6064E-04),
     &  ( 3.1913E-04, 3.6940E-04),( 3.1853E-04, 3.7807E-04),
     &  ( 3.1801E-04, 3.8671E-04),( 3.1753E-04, 3.9533E-04),
     &  ( 3.1710E-04, 4.0396E-04),( 3.1669E-04, 4.1262E-04),
     &  ( 3.1635E-04, 4.2135E-04),( 3.1599E-04, 4.3017E-04),
     &  ( 3.1563E-04, 4.3911E-04),( 3.1531E-04, 4.4820E-04),
     &  ( 3.1498E-04, 4.5752E-04),( 3.1462E-04, 4.6709E-04),
     &  ( 3.1428E-04, 4.7699E-04),( 3.1393E-04, 4.8727E-04),
     &  ( 3.1357E-04, 4.9807E-04),( 3.1320E-04, 5.0951E-04),
     &  ( 3.1282E-04, 5.2182E-04),( 3.1240E-04, 5.3527E-04),
     &  ( 3.1195E-04, 5.5039E-04),( 3.1143E-04, 5.6821E-04),
     &  ( 3.1078E-04, 5.9130E-04),( 3.0923E-04, 6.4716E-04),
     &  ( 3.0672E-04, 7.0348E-04),( 3.0559E-04, 7.2657E-04),
     &  ( 3.0465E-04, 7.4388E-04),( 3.0380E-04, 7.5793E-04),
     &  ( 3.0299E-04, 7.6969E-04),( 3.0220E-04, 7.7955E-04),
     &  ( 3.0141E-04, 7.8776E-04),( 3.0058E-04, 7.9441E-04),
     &  ( 2.9971E-04, 7.9956E-04),( 2.9842E-04, 8.0317E-04),
     &  ( 2.9767E-04, 8.0520E-04),( 2.9637E-04, 8.0560E-04),
     &  ( 2.9463E-04, 8.0426E-04),( 2.9182E-04, 8.0108E-04),
     &  ( 2.9214E-04, 7.9593E-04),( 2.9248E-04, 7.8868E-04),
     &  ( 2.9562E-04, 7.7923E-04),( 2.9766E-04, 7.6739E-04),
     &  ( 2.9913E-04, 7.5309E-04),( 3.0033E-04, 7.3618E-04),
     &  ( 3.0133E-04, 7.1659E-04),( 3.0221E-04, 6.9423E-04),
     &  ( 3.0300E-04, 6.6909E-04),( 3.0372E-04, 6.4122E-04),
     &  ( 3.0439E-04, 6.1065E-04),( 3.0486E-04, 5.7761E-04),
     &  ( 3.0541E-04, 5.4231E-04),( 3.0535E-04, 5.0507E-04),
     &  ( 3.0533E-04, 4.6631E-04),( 3.0536E-04, 4.2657E-04),
     &  ( 3.0550E-04, 3.8642E-04),( 3.0588E-04, 3.4660E-04),
     &  ( 3.0699E-04, 3.0787E-04),( 3.0985E-04, 2.7258E-04),
     &  ( 3.1096E-04, 2.6503E-04),( 3.1671E-04, 2.4975E-04),
     &  ( 3.2787E-04, 2.5009E-04),( 3.2784E-04, 2.5592E-04),
     &  ( 3.2177E-04, 2.6054E-04),( 3.1845E-04, 2.6055E-04),
     &  ( 3.1871E-04, 2.5337E-04),( 3.3285E-04, 2.4468E-04)/

         DATA ((CAS  (I,J), I=1101,1200), J=3,3) /
     &  ( 3.4769E-04, 2.6310E-04),( 3.4975E-04, 2.8290E-04),
     &  ( 3.4340E-04, 2.9661E-04),( 3.3850E-04, 2.9761E-04),
     &  ( 3.3230E-04, 3.0062E-04),( 3.2923E-04, 2.9691E-04),
     &  ( 3.2770E-04, 3.0051E-04),( 3.2785E-04, 3.0405E-04),
     &  ( 3.3237E-04, 3.1079E-04),( 3.3056E-04, 3.2359E-04),
     &  ( 3.2422E-04, 3.2277E-04),( 3.5412E-04, 3.1527E-04),
     &  ( 3.5854E-04, 4.0816E-04),( 3.3300E-04, 4.3368E-04),
     &  ( 3.0746E-04, 3.2022E-04),( 2.8193E-04, 2.9299E-04),
     &  ( 3.0117E-04, 3.1301E-04),( 3.0769E-04, 3.2216E-04),
     &  ( 3.0688E-04, 3.2300E-04),( 3.3116E-04, 3.0702E-04),
     &  ( 3.5644E-04, 3.0161E-04),( 3.9103E-04, 3.5658E-04),
     &  ( 3.6105E-04, 4.4684E-04),( 3.0841E-04, 4.3146E-04),
     &  ( 3.0455E-04, 4.1345E-04),( 3.0887E-04, 4.1567E-04),
     &  ( 3.0965E-04, 4.2497E-04),( 3.0083E-04, 4.3249E-04),
     &  ( 2.9286E-04, 4.1002E-04),( 3.2730E-04, 3.7751E-04),
     &  ( 3.9562E-04, 3.8760E-04),( 5.0875E-04, 3.9328E-04),
     &  ( 5.7782E-04, 5.0886E-04),( 4.8758E-04, 8.5974E-04),
     &  ( 1.3356E-04, 8.5308E-04),( 1.1342E-04, 6.7847E-04),
     &  ( 1.2169E-04, 6.1959E-04),( 1.5638E-04, 5.3394E-04),
     &  ( 1.4754E-04, 4.0042E-04),( 1.2648E-04, 3.5541E-04),
     &  ( 1.1133E-04, 3.5091E-04),( 1.2830E-04, 3.4416E-04),
     &  ( 1.4816E-04, 3.8027E-04),( 1.4786E-04, 4.0825E-04),
     &  ( 1.4377E-04, 4.1512E-04),( 1.3612E-04, 4.1149E-04),
     &  ( 1.3344E-04, 4.0395E-04),( 1.3476E-04, 3.9969E-04),
     &  ( 1.3704E-04, 3.9664E-04),( 1.4215E-04, 3.9339E-04),
     &  ( 1.4579E-04, 3.9255E-04),( 1.5129E-04, 4.0967E-04),
     &  ( 1.4814E-04, 4.2638E-04),( 1.2429E-04, 4.4141E-04),
     &  ( 1.1559E-04, 3.9998E-04),( 1.1657E-04, 3.7809E-04),
     &  ( 1.1988E-04, 3.6246E-04),( 1.3594E-04, 3.3187E-04),
     &  ( 1.7385E-04, 3.3794E-04),( 2.3485E-04, 3.6755E-04),
     &  ( 2.4615E-04, 4.7953E-04),( 2.1883E-04, 5.3479E-04),
     &  ( 1.9461E-04, 5.4759E-04),( 1.6868E-04, 5.6628E-04),
     &  ( 1.2650E-04, 5.9607E-04),( 1.1009E-04, 5.9079E-04),
     &  ( 1.3386E-04, 5.8626E-04),( 1.7702E-04, 5.5502E-04),
     &  ( 1.7886E-04, 3.5988E-04),( 1.1155E-04, 3.4088E-04),
     &  ( 1.0945E-04, 3.7341E-04),( 1.2529E-04, 4.7502E-04),
     &  ( 1.7231E-04, 3.5652E-04),( 1.2715E-04, 2.8199E-04),
     &  ( 1.1127E-04, 2.8123E-04),( 1.0939E-04, 2.8098E-04),
     &  ( 1.0953E-04, 2.9474E-04),( 1.1040E-04, 3.1721E-04),
     &  ( 1.1115E-04, 3.2750E-04),( 1.0892E-04, 2.7060E-04),
     &  ( 1.1554E-04, 2.7378E-04),( 1.1553E-04, 2.8242E-04),
     &  ( 1.1711E-04, 2.7999E-04),( 1.3015E-04, 2.5309E-04),
     &  ( 1.6355E-04, 2.3512E-04),( 1.9142E-04, 2.4785E-04),
     &  ( 2.4997E-04, 2.6707E-04),( 2.8076E-04, 3.9542E-04),
     &  ( 1.4082E-04, 4.9659E-04),( 1.1946E-04, 5.0039E-04),
     &  ( 1.0823E-04, 3.3679E-04),( 1.5058E-04, 2.8392E-04),
     &  ( 1.7117E-04, 2.9401E-04),( 2.6104E-04, 3.8589E-04),
     &  ( 2.6328E-04, 5.4349E-04),( 2.5988E-04, 5.9802E-04),
     &  ( 2.5498E-04, 6.5585E-04),( 1.3282E-04, 8.3282E-04),
     &  ( 1.2499E-04, 8.9296E-04),( 2.9349E-04, 6.9848E-04)/

         DATA ((CAS  (I,J), I=1201,1300), J=3,3) /
     &  ( 2.6906E-04, 3.8620E-04),( 1.6350E-04, 3.8474E-04),
     &  ( 1.4475E-04, 3.8365E-04),( 1.3896E-04, 3.8347E-04),
     &  ( 1.2911E-04, 3.8282E-04),( 1.2532E-04, 3.8218E-04),
     &  ( 1.2772E-04, 3.8108E-04),( 1.2888E-04, 3.5703E-04),
     &  ( 1.2369E-04, 3.4134E-04),( 1.2041E-04, 3.3878E-04),
     &  ( 1.1469E-04, 3.3111E-04),( 1.1317E-04, 3.2856E-04),
     &  ( 1.0703E-04, 3.1595E-04),( 1.0843E-04, 3.3047E-04),
     &  ( 1.1082E-04, 3.3670E-04),( 1.0630E-04, 3.2650E-04),
     &  ( 1.1428E-04, 3.7508E-04),( 1.3445E-04, 6.5573E-04),
     &  ( 1.6396E-04, 3.8316E-04),( 1.3647E-04, 3.1419E-04),
     &  ( 1.0791E-04, 3.1594E-04),( 1.0590E-04, 3.1686E-04),
     &  ( 1.0700E-04, 4.1507E-04),( 1.0497E-04, 4.8096E-04),
     &  ( 1.1198E-04, 3.4076E-04),( 1.0678E-04, 3.4057E-04),
     &  ( 1.0514E-04, 4.6838E-04),( 1.4798E-04, 5.9199E-04),
     &  ( 1.3023E-04, 4.1409E-04),( 1.1137E-04, 9.1078E-04),
     &  ( 4.1803E-04, 1.1289E-03),( 6.8861E-04, 1.4602E-05),
     &  ( 7.7880E-04, 1.4486E-05),( 6.1873E-04, 1.4265E-05),
     &  ( 4.7471E-04, 1.3860E-05),( 4.3339E-04, 1.3674E-05),
     &  ( 4.0173E-04, 1.3499E-05),( 3.5581E-04, 1.3177E-05),
     &  ( 3.2367E-04, 1.2888E-05),( 3.1089E-04, 1.2754E-05),
     &  ( 2.9971E-04, 1.2627E-05),( 2.8984E-04, 1.2507E-05),
     &  ( 2.8106E-04, 1.2392E-05),( 2.7318E-04, 1.2283E-05),
     &  ( 2.6607E-04, 1.2179E-05),( 2.5963E-04, 1.2080E-05),
     &  ( 2.5375E-04, 1.1985E-05),( 2.4837E-04, 1.1895E-05),
     &  ( 2.4343E-04, 1.1808E-05),( 2.3887E-04, 1.1725E-05),
     &  ( 2.3465E-04, 1.1646E-05),( 2.3074E-04, 1.1570E-05),
     &  ( 2.2710E-04, 1.1497E-05),( 2.2371E-04, 1.1427E-05),
     &  ( 2.2054E-04, 1.1360E-05),( 2.1757E-04, 1.1295E-05),
     &  ( 2.1478E-04, 1.1233E-05),( 2.1216E-04, 1.1173E-05),
     &  ( 2.0969E-04, 1.1115E-05),( 2.0737E-04, 1.1059E-05),
     &  ( 2.0518E-04, 1.1005E-05),( 2.0310E-04, 1.0953E-05),
     &  ( 2.0114E-04, 1.0903E-05),( 1.9928E-04, 1.0854E-05),
     &  ( 1.9752E-04, 1.0807E-05),( 1.9585E-04, 1.0761E-05),
     &  ( 1.9426E-04, 1.0717E-05),( 1.9275E-04, 1.0674E-05),
     &  ( 1.9132E-04, 1.0632E-05),( 1.8995E-04, 1.0591E-05),
     &  ( 1.8866E-04, 1.0552E-05),( 1.8742E-04, 1.0513E-05),
     &  ( 1.8625E-04, 1.0476E-05),( 1.8535E-04, 1.0447E-05),
     &  ( 1.8407E-04, 1.0404E-05),( 1.8211E-04, 1.0336E-05),
     &  ( 1.8034E-04, 1.0270E-05),( 1.7875E-04, 1.0208E-05),
     &  ( 1.7735E-04, 1.0148E-05),( 1.7611E-04, 1.0091E-05),
     &  ( 1.7506E-04, 1.0036E-05),( 1.7419E-04, 9.9826E-06),
     &  ( 1.7350E-04, 9.9314E-06),( 1.7303E-04, 9.8819E-06),
     &  ( 1.7279E-04, 9.8340E-06),( 1.7283E-04, 9.7875E-06),
     &  ( 1.7321E-04, 9.7425E-06),( 1.7400E-04, 9.6986E-06),
     &  ( 1.7536E-04, 9.6560E-06),( 1.7554E-04, 9.6518E-06),
     &  ( 1.7751E-04, 9.6145E-06),( 1.8083E-04, 9.5740E-06),
     &  ( 1.8609E-04, 9.5345E-06),( 1.9281E-04, 9.5035E-06),
     &  ( 1.9507E-04, 9.4958E-06),( 2.0237E-04, 9.4768E-06),
     &  ( 2.1098E-04, 9.4618E-06),( 2.1375E-04, 9.4581E-06),
     &  ( 2.1690E-04, 9.4543E-06),( 2.1863E-04, 9.4525E-06)/

         DATA ((CAS  (I,J), I=1301,1400), J=3,3) /
     &  ( 2.2049E-04, 9.4506E-06),( 2.2208E-04, 9.4491E-06),
     &  ( 2.2377E-04, 9.4476E-06),( 2.2466E-04, 9.4469E-06),
     &  ( 2.2558E-04, 9.4461E-06),( 2.2654E-04, 9.4454E-06),
     &  ( 2.2752E-04, 9.4447E-06),( 2.2855E-04, 9.4439E-06),
     &  ( 2.2961E-04, 9.4432E-06),( 2.3016E-04, 9.4428E-06),
     &  ( 2.3071E-04, 9.4424E-06),( 2.3128E-04, 9.4421E-06),
     &  ( 2.3187E-04, 9.4417E-06),( 2.3246E-04, 9.4413E-06),
     &  ( 2.3307E-04, 9.4409E-06),( 2.3369E-04, 9.4406E-06),
     &  ( 2.3432E-04, 9.4402E-06),( 2.3497E-04, 9.4398E-06),
     &  ( 2.3521E-04, 9.4397E-06),( 2.3536E-04, 9.4396E-06),
     &  ( 2.3550E-04, 9.4395E-06),( 2.3565E-04, 9.4395E-06),
     &  ( 2.3580E-04, 9.4394E-06),( 2.3595E-04, 9.4393E-06),
     &  ( 2.3610E-04, 9.4392E-06),( 2.3625E-04, 9.4391E-06),
     &  ( 2.3640E-04, 9.4390E-06),( 2.3655E-04, 9.4390E-06),
     &  ( 2.3670E-04, 9.4389E-06),( 2.3686E-04, 9.4388E-06),
     &  ( 2.3701E-04, 9.4387E-06),( 2.3717E-04, 9.4386E-06),
     &  ( 2.3732E-04, 9.4386E-06),( 2.3748E-04, 9.4385E-06),
     &  ( 2.3764E-04, 9.4384E-06),( 2.3780E-04, 9.4383E-06),
     &  ( 2.3796E-04, 9.4382E-06),( 2.3812E-04, 9.4382E-06),
     &  ( 2.3828E-04, 9.4381E-06),( 2.3844E-04, 9.4380E-06),
     &  ( 2.3860E-04, 9.4379E-06),( 2.3877E-04, 9.4378E-06),
     &  ( 2.3893E-04, 9.4377E-06),( 2.3910E-04, 9.4377E-06),
     &  ( 2.3927E-04, 9.4376E-06),( 2.3944E-04, 9.4375E-06),
     &  ( 2.3961E-04, 9.4374E-06),( 2.3978E-04, 9.4373E-06),
     &  ( 2.3995E-04, 9.4373E-06),( 2.4012E-04, 9.4372E-06),
     &  ( 2.4030E-04, 9.4371E-06),( 2.4047E-04, 9.4370E-06),
     &  ( 2.4065E-04, 9.4369E-06),( 2.4083E-04, 9.4369E-06),
     &  ( 2.4100E-04, 9.4368E-06),( 2.4119E-04, 9.4367E-06),
     &  ( 2.4137E-04, 9.4366E-06),( 2.4155E-04, 9.4365E-06),
     &  ( 2.4174E-04, 9.4364E-06),( 2.4192E-04, 9.4364E-06),
     &  ( 2.4211E-04, 9.4363E-06),( 2.4231E-04, 9.4362E-06),
     &  ( 2.4250E-04, 9.4361E-06),( 2.4270E-04, 9.4360E-06),
     &  ( 2.4291E-04, 9.4360E-06),( 2.4314E-04, 9.4359E-06),
     &  ( 2.4343E-04, 9.4358E-06),( 2.4341E-04, 1.4560E-04),
     &  ( 2.4358E-04, 1.4560E-04),( 2.4361E-04, 1.8754E-02),
     &  ( 2.4361E-04, 2.0568E-02),( 2.4361E-04, 2.1576E-02),
     &  ( 2.4362E-04, 2.3824E-02),( 2.4362E-04, 2.6435E-02),
     &  ( 2.4363E-04, 2.9501E-02),( 2.4363E-04, 3.3126E-02),
     &  ( 2.4363E-04, 3.7450E-02),( 2.4364E-04, 4.2663E-02),
     &  ( 2.4364E-04, 4.9016E-02),( 2.4365E-04, 5.6845E-02),
     &  ( 2.4365E-04, 6.6652E-02),( 2.4366E-04, 7.9109E-02),
     &  ( 2.4366E-04, 9.5196E-02),( 2.4367E-04, 1.1634E-01),
     &  ( 2.4367E-04, 1.4465E-01),( 2.4368E-04, 1.8320E-01),
     &  ( 2.4368E-04, 2.0758E-01),( 2.4368E-04, 2.3624E-01),
     &  ( 2.4369E-04, 2.6996E-01),( 2.4369E-04, 3.0923E-01),
     &  ( 2.4369E-04, 3.5470E-01),( 2.4369E-04, 4.0603E-01),
     &  ( 2.4370E-04, 4.6224E-01),( 2.4370E-04, 5.2077E-01),
     &  ( 2.4370E-04, 5.7643E-01),( 2.4370E-04, 6.2262E-01),
     &  ( 2.4371E-04, 6.5155E-01),( 2.4371E-04, 6.5155E-01),
     &  ( 2.4371E-04, 6.5396E-01),( 2.4371E-04, 6.5585E-01)/

         DATA ((CAS  (I,J), I=1401,1500), J=3,3) /
     &  ( 2.4371E-04, 6.5724E-01),( 2.4371E-04, 6.5811E-01),
     &  ( 2.4371E-04, 6.5845E-01),( 2.4371E-04, 6.5755E-01),
     &  ( 2.4371E-04, 6.5457E-01),( 2.4371E-04, 6.5232E-01),
     &  ( 2.4371E-04, 6.4633E-01),( 2.4371E-04, 6.3846E-01),
     &  ( 2.4371E-04, 6.2876E-01),( 2.4371E-04, 6.1758E-01),
     &  ( 2.4371E-04, 6.0500E-01),( 2.4371E-04, 5.9122E-01),
     &  ( 2.4372E-04, 5.7643E-01),( 2.4372E-04, 5.4111E-01),
     &  ( 2.4372E-04, 4.8303E-01),( 2.4372E-04, 4.2548E-01),
     &  ( 2.4372E-04, 3.7223E-01),( 2.4373E-04, 3.2458E-01),
     &  ( 2.4373E-04, 2.8320E-01),( 2.4373E-04, 2.4763E-01),
     &  ( 2.4374E-04, 2.1721E-01),( 2.4374E-04, 1.9139E-01),
     &  ( 2.4374E-04, 1.6936E-01),( 2.4374E-04, 1.5062E-01),
     &  ( 2.4375E-04, 1.2076E-01),( 2.4375E-04, 9.8521E-02),
     &  ( 2.4376E-04, 8.1659E-02),( 2.4377E-04, 5.8435E-02),
     &  ( 2.4378E-04, 4.3697E-02),( 2.4379E-04, 3.3837E-02),
     &  ( 2.4380E-04, 3.0100E-02),( 2.4380E-04, 2.6948E-02),
     &  ( 2.4381E-04, 2.4259E-02),( 2.4381E-04, 2.1952E-02),
     &  ( 2.4382E-04, 1.9957E-02),( 2.4383E-04, 1.8222E-02),
     &  ( 2.4383E-04, 1.4561E-04),( 2.4385E-04, 1.4561E-04),
     &  ( 2.4402E-04, 1.4561E-04),( 2.4420E-04, 1.4562E-04),
     &  ( 2.4438E-04, 1.4562E-04),( 2.4457E-04, 1.4563E-04),
     &  ( 2.4476E-04, 1.4563E-04),( 2.4495E-04, 1.4563E-04),
     &  ( 2.4515E-04, 1.4564E-04),( 2.4534E-04, 1.4564E-04),
     &  ( 2.4554E-04, 1.4564E-04),( 2.4574E-04, 1.4565E-04),
     &  ( 2.4594E-04, 1.4565E-04),( 2.4614E-04, 1.4566E-04),
     &  ( 2.4635E-04, 1.4566E-04),( 2.4656E-04, 1.4566E-04),
     &  ( 2.4676E-04, 1.4567E-04),( 2.4697E-04, 1.4567E-04),
     &  ( 2.4719E-04, 1.4568E-04),( 2.4740E-04, 1.4568E-04),
     &  ( 2.4761E-04, 1.4568E-04),( 2.4783E-04, 1.4569E-04),
     &  ( 2.4805E-04, 1.4569E-04),( 2.4827E-04, 1.4569E-04),
     &  ( 2.4849E-04, 1.4570E-04),( 2.4871E-04, 1.4570E-04),
     &  ( 2.4894E-04, 1.4571E-04),( 2.4916E-04, 1.4571E-04),
     &  ( 2.4939E-04, 1.4571E-04),( 2.4962E-04, 1.4572E-04),
     &  ( 2.4985E-04, 1.4572E-04),( 2.5009E-04, 1.4573E-04),
     &  ( 2.5032E-04, 1.4573E-04),( 2.5056E-04, 1.4573E-04),
     &  ( 2.5080E-04, 1.4574E-04),( 2.5104E-04, 1.4574E-04),
     &  ( 2.5128E-04, 1.4574E-04),( 2.5153E-04, 1.4575E-04),
     &  ( 2.5178E-04, 1.4575E-04),( 2.5203E-04, 1.4576E-04),
     &  ( 2.5228E-04, 1.4576E-04),( 2.5253E-04, 1.4576E-04),
     &  ( 2.5279E-04, 1.4577E-04),( 2.5304E-04, 1.4577E-04),
     &  ( 2.5330E-04, 1.4578E-04),( 2.5356E-04, 1.4578E-04),
     &  ( 2.5383E-04, 1.4578E-04),( 2.5409E-04, 1.4579E-04),
     &  ( 2.5436E-04, 1.4579E-04),( 2.5463E-04, 1.4580E-04),
     &  ( 2.5491E-04, 1.4580E-04),( 2.5750E-04, 1.4583E-04),
     &  ( 2.5978E-04, 1.4586E-04),( 2.6282E-04, 1.4590E-04),
     &  ( 2.6797E-04, 1.4595E-04),( 2.7634E-04, 1.4602E-04),
     &  ( 2.9389E-04, 1.4613E-04),( 2.9364E-04, 1.4621E-04),
     &  ( 2.9303E-04, 1.4628E-04),( 2.9273E-04, 1.4626E-04),
     &  ( 2.7623E-04, 1.4574E-04),( 2.6512E-04, 1.4523E-04),
     &  ( 2.5661E-04, 1.4471E-04),( 2.4978E-04, 1.4419E-04)/

         DATA ((CAS  (I,J), I=1501,1600), J=3,3) /
     &  ( 2.3926E-04, 1.4316E-04),( 2.3137E-04, 1.4213E-04),
     &  ( 2.0968E-04, 1.3700E-04),( 1.9164E-04, 1.3665E-04),
     &  ( 1.8189E-04, 1.3692E-04),( 1.7587E-04, 1.3622E-04),
     &  ( 1.7380E-04, 1.3666E-04),( 1.7283E-04, 1.3689E-04),
     &  ( 1.7226E-04, 1.3702E-04),( 1.7189E-04, 1.3711E-04),
     &  ( 1.7154E-04, 1.3704E-04),( 1.7150E-04, 1.3704E-04),
     &  ( 1.7147E-04, 1.3703E-04),( 1.7146E-04, 1.3703E-04),
     &  ( 1.7144E-04, 1.3703E-04),( 1.7142E-04, 1.3702E-04),
     &  ( 1.7140E-04, 1.3702E-04),( 1.7139E-04, 1.3701E-04),
     &  ( 1.7137E-04, 1.3701E-04),( 1.7135E-04, 1.3701E-04),
     &  ( 1.7133E-04, 1.3700E-04),( 1.7131E-04, 1.3700E-04),
     &  ( 1.7130E-04, 1.3700E-04),( 1.7128E-04, 1.3699E-04),
     &  ( 1.7126E-04, 1.3699E-04),( 1.7124E-04, 1.3698E-04),
     &  ( 1.7122E-04, 1.3698E-04),( 1.7121E-04, 1.3698E-04),
     &  ( 1.7119E-04, 1.3697E-04),( 1.7117E-04, 1.3697E-04),
     &  ( 1.7116E-04, 1.3697E-04),( 1.7114E-04, 1.3696E-04),
     &  ( 1.7113E-04, 1.3696E-04),( 1.7113E-04, 1.3696E-04),
     &  ( 1.7113E-04, 1.3696E-04),( 1.7112E-04, 1.3696E-04),
     &  ( 1.7112E-04, 1.3696E-04),( 1.7112E-04, 1.3696E-04),
     &  ( 1.7112E-04, 1.3696E-04),( 1.7112E-04, 1.3696E-04),
     &  ( 1.7110E-04, 3.4091E-02),( 1.7110E-04, 3.7695E-02),
     &  ( 1.7110E-04, 4.1906E-02),( 1.7110E-04, 4.4279E-02),
     &  ( 1.7110E-04, 4.6846E-02),( 1.7110E-04, 4.9653E-02),
     &  ( 1.7110E-04, 5.2716E-02),( 1.7110E-04, 5.6069E-02),
     &  ( 1.7110E-04, 5.9731E-02),( 1.7110E-04, 6.3775E-02),
     &  ( 1.7110E-04, 6.8237E-02),( 1.7110E-04, 7.3175E-02),
     &  ( 1.7110E-04, 7.8634E-02),( 1.7110E-04, 8.4739E-02),
     &  ( 1.7110E-04, 9.1565E-02),( 1.7110E-04, 9.9194E-02),
     &  ( 1.7110E-04, 1.0782E-01),( 1.7110E-04, 1.1759E-01),
     &  ( 1.7110E-04, 1.2870E-01),( 1.7110E-04, 1.4132E-01),
     &  ( 1.7110E-04, 1.5588E-01),( 1.7110E-04, 1.7268E-01),
     &  ( 1.7110E-04, 1.9217E-01),( 1.7110E-04, 2.1482E-01),
     &  ( 1.7110E-04, 2.4149E-01),( 1.7110E-04, 2.7297E-01),
     &  ( 1.7110E-04, 3.1031E-01),( 1.7110E-04, 3.5459E-01),
     &  ( 1.7110E-04, 4.0772E-01),( 1.7110E-04, 4.7127E-01),
     &  ( 1.7110E-04, 5.4671E-01),( 1.7110E-04, 6.3622E-01),
     &  ( 1.7110E-04, 7.4006E-01),( 1.7110E-04, 8.5655E-01),
     &  ( 1.7110E-04, 9.7941E-01),( 1.7110E-04, 1.0981E+00),
     &  ( 1.7110E-04, 1.1945E+00),( 1.7110E-04, 1.2045E+00),
     &  ( 1.7110E-04, 1.2137E+00),( 1.7110E-04, 1.2221E+00),
     &  ( 1.7110E-04, 1.2297E+00),( 1.7110E-04, 1.2363E+00),
     &  ( 1.7110E-04, 1.2421E+00),( 1.7110E-04, 1.2469E+00),
     &  ( 1.7110E-04, 1.2508E+00),( 1.7110E-04, 1.2536E+00),
     &  ( 1.7110E-04, 1.2555E+00),( 1.7110E-04, 1.2564E+00),
     &  ( 1.7110E-04, 1.2563E+00),( 1.7110E-04, 1.2552E+00),
     &  ( 1.7110E-04, 1.2531E+00),( 1.7110E-04, 1.2500E+00),
     &  ( 1.7110E-04, 1.2459E+00),( 1.7110E-04, 1.2409E+00),
     &  ( 1.7110E-04, 1.2350E+00),( 1.7110E-04, 1.2281E+00),
     &  ( 1.7110E-04, 1.2203E+00),( 1.7110E-04, 1.2118E+00),
     &  ( 1.7110E-04, 1.2024E+00),( 1.7110E-04, 1.1922E+00)/

         DATA ((CAS  (I,J), I=1601,1700), J=3,3) /
     &  ( 1.7110E-04, 1.1814E+00),( 1.7110E-04, 1.1698E+00),
     &  ( 1.7110E-04, 1.0648E+00),( 1.7110E-04, 9.4373E-01),
     &  ( 1.7110E-04, 8.2146E-01),( 1.7110E-04, 7.0829E-01),
     &  ( 1.7110E-04, 6.0859E-01),( 1.7110E-04, 5.2355E-01),
     &  ( 1.7110E-04, 4.5152E-01),( 1.7110E-04, 3.9121E-01),
     &  ( 1.7110E-04, 3.4079E-01),( 1.7110E-04, 2.9873E-01),
     &  ( 1.7110E-04, 2.6322E-01),( 1.7110E-04, 2.3325E-01),
     &  ( 1.7110E-04, 2.0790E-01),( 1.7110E-04, 1.8617E-01),
     &  ( 1.7110E-04, 1.6752E-01),( 1.7110E-04, 1.5142E-01),
     &  ( 1.7110E-04, 1.3750E-01),( 1.7110E-04, 1.2530E-01),
     &  ( 1.7110E-04, 1.1461E-01),( 1.7110E-04, 1.0520E-01),
     &  ( 1.7110E-04, 9.6898E-02),( 1.7110E-04, 8.9493E-02),
     &  ( 1.7110E-04, 8.2888E-02),( 1.7110E-04, 7.6975E-02),
     &  ( 1.7110E-04, 7.1682E-02),( 1.7110E-04, 6.6890E-02),
     &  ( 1.7110E-04, 6.2555E-02),( 1.7110E-04, 5.8638E-02),
     &  ( 1.7110E-04, 5.5060E-02),( 1.7110E-04, 5.1795E-02),
     &  ( 1.7110E-04, 4.8810E-02),( 1.7110E-04, 4.6084E-02),
     &  ( 1.7110E-04, 4.3568E-02),( 1.7110E-04, 4.1251E-02),
     &  ( 1.7110E-04, 3.9112E-02),( 1.7110E-04, 3.7143E-02),
     &  ( 1.7110E-04, 3.5310E-02),( 1.7110E-04, 3.2028E-02),
     &  ( 1.7108E-04, 1.3695E-04),( 1.7107E-04, 1.3695E-04),
     &  ( 1.7105E-04, 1.3694E-04),( 1.7104E-04, 1.3694E-04),
     &  ( 1.7100E-04, 1.3693E-04),( 1.7097E-04, 1.3692E-04),
     &  ( 1.7094E-04, 1.3692E-04),( 1.7091E-04, 1.3691E-04),
     &  ( 1.7087E-04, 1.3690E-04),( 1.7084E-04, 1.3689E-04),
     &  ( 1.7081E-04, 1.3689E-04),( 1.7078E-04, 1.3688E-04),
     &  ( 1.7076E-04, 1.3687E-04),( 1.7073E-04, 1.3687E-04),
     &  ( 1.7070E-04, 1.3686E-04),( 1.7067E-04, 1.3685E-04),
     &  ( 1.7065E-04, 1.3685E-04),( 1.7062E-04, 1.3684E-04),
     &  ( 1.7049E-04, 1.3681E-04),( 1.7036E-04, 1.3678E-04),
     &  ( 1.7024E-04, 1.3674E-04),( 1.7012E-04, 1.3671E-04),
     &  ( 1.7001E-04, 1.3668E-04),( 1.6994E-04, 1.3665E-04),
     &  ( 1.6983E-04, 1.3661E-04),( 1.6973E-04, 1.3658E-04),
     &  ( 1.6875E-04, 1.3610E-04),( 1.6961E-04, 1.3620E-04),
     &  ( 1.6994E-04, 1.3622E-04),( 1.7036E-04, 1.3624E-04),
     &  ( 1.7091E-04, 1.3626E-04),( 1.7166E-04, 1.3628E-04),
     &  ( 1.7211E-04, 1.3629E-04),( 1.7257E-04, 1.3630E-04),
     &  ( 1.7349E-04, 1.3904E-04),( 1.7425E-04, 1.4180E-04),
     &  ( 1.7477E-04, 1.4457E-04),( 1.7514E-04, 1.4734E-04),
     &  ( 1.7525E-04, 1.4850E-04),( 1.7527E-04, 1.4871E-04),
     &  ( 1.7529E-04, 1.4891E-04),( 1.7530E-04, 1.4911E-04),
     &  ( 1.7532E-04, 1.4932E-04),( 1.7533E-04, 1.4952E-04),
     &  ( 1.7535E-04, 1.4973E-04),( 1.7536E-04, 1.4993E-04),
     &  ( 1.7537E-04, 1.5013E-04),( 1.7539E-04, 1.5034E-04),
     &  ( 1.7540E-04, 1.5054E-04),( 1.7541E-04, 1.5075E-04),
     &  ( 1.7542E-04, 1.5095E-04),( 1.7542E-04, 1.5098E-04),
     &  ( 1.7542E-04, 1.5100E-04),( 1.7542E-04, 1.5103E-04),
     &  ( 1.7542E-04, 1.5105E-04),( 1.7543E-04, 1.5108E-04),
     &  ( 1.7543E-04, 1.5110E-04),( 1.7543E-04, 1.5113E-04),
     &  ( 1.7543E-04, 1.5115E-04),( 1.7543E-04, 1.5118E-04)/

         DATA ((CAS  (I,J), I=1701,1800), J=3,3) /
     &  ( 1.7543E-04, 1.5121E-04),( 1.7543E-04, 1.5123E-04),
     &  ( 1.7543E-04, 1.5126E-04),( 1.7544E-04, 1.5128E-04),
     &  ( 1.7544E-04, 1.5131E-04),( 1.7544E-04, 1.5133E-04),
     &  ( 1.7544E-04, 1.5134E-04),( 1.7544E-04, 1.5136E-04),
     &  ( 1.7544E-04, 1.5138E-04),( 1.7544E-04, 1.5141E-04),
     &  ( 1.7544E-04, 1.5144E-04),( 1.7544E-04, 1.5146E-04),
     &  ( 1.7544E-04, 1.5149E-04),( 1.7545E-04, 1.5151E-04),
     &  ( 1.7545E-04, 1.5151E-04),( 1.7545E-04, 1.5152E-04),
     &  ( 1.7545E-04, 2.5141E-02),( 1.7545E-04, 2.8016E-02),
     &  ( 1.7545E-04, 3.1422E-02),( 1.7545E-04, 3.5482E-02),
     &  ( 1.7545E-04, 4.0356E-02),( 1.7545E-04, 4.6311E-02),
     &  ( 1.7545E-04, 5.3660E-02),( 1.7545E-04, 6.2827E-02),
     &  ( 1.7545E-04, 7.4520E-02),( 1.7545E-04, 8.9667E-02),
     &  ( 1.7545E-04, 1.0961E-01),( 1.7545E-04, 1.3663E-01),
     &  ( 1.7545E-04, 1.5370E-01),( 1.7545E-04, 1.7401E-01),
     &  ( 1.7545E-04, 1.9801E-01),( 1.7545E-04, 2.2669E-01),
     &  ( 1.7545E-04, 2.6132E-01),( 1.7545E-04, 3.0267E-01),
     &  ( 1.7545E-04, 3.5224E-01),( 1.7545E-04, 4.1159E-01),
     &  ( 1.7545E-04, 4.8056E-01),( 1.7545E-04, 5.5860E-01),
     &  ( 1.7545E-04, 6.4261E-01),( 1.7545E-04, 7.2371E-01),
     &  ( 1.7545E-04, 7.9027E-01),( 1.7545E-04, 7.9727E-01),
     &  ( 1.7545E-04, 8.0343E-01),( 1.7545E-04, 8.0908E-01),
     &  ( 1.7545E-04, 8.1443E-01),( 1.7545E-04, 8.1896E-01),
     &  ( 1.7545E-04, 8.2291E-01),( 1.7545E-04, 8.2641E-01),
     &  ( 1.7545E-04, 8.2911E-01),( 1.7545E-04, 8.3120E-01),
     &  ( 1.7545E-04, 8.3270E-01),( 1.7545E-04, 8.3347E-01),
     &  ( 1.7545E-04, 8.3360E-01),( 1.7545E-04, 8.3304E-01),
     &  ( 1.7545E-04, 8.3185E-01),( 1.7545E-04, 8.3002E-01),
     &  ( 1.7545E-04, 8.2743E-01),( 1.7545E-04, 8.2432E-01),
     &  ( 1.7545E-04, 8.2061E-01),( 1.7545E-04, 8.1608E-01),
     &  ( 1.7545E-04, 8.1119E-01),( 1.7545E-04, 8.0575E-01),
     &  ( 1.7545E-04, 7.9948E-01),( 1.7545E-04, 7.9300E-01),
     &  ( 1.7545E-04, 7.8605E-01),( 1.7545E-04, 7.7865E-01),
     &  ( 1.7545E-04, 7.0752E-01),( 1.7545E-04, 6.2504E-01),
     &  ( 1.7545E-04, 5.4168E-01),( 1.7545E-04, 4.6535E-01),
     &  ( 1.7545E-04, 3.9845E-01),( 1.7545E-04, 3.4115E-01),
     &  ( 1.7545E-04, 2.9340E-01),( 1.7545E-04, 2.5360E-01),
     &  ( 1.7545E-04, 2.2027E-01),( 1.7545E-04, 1.9265E-01),
     &  ( 1.7545E-04, 1.6950E-01),( 1.7545E-04, 1.4990E-01),
     &  ( 1.7545E-04, 1.3341E-01),( 1.7545E-04, 1.1936E-01),
     &  ( 1.7545E-04, 9.6881E-02),( 1.7545E-04, 8.0016E-02),
     &  ( 1.7545E-04, 6.7132E-02),( 1.7545E-04, 5.7037E-02),
     &  ( 1.7545E-04, 4.9022E-02),( 1.7545E-04, 4.2581E-02),
     &  ( 1.7545E-04, 3.7301E-02),( 1.7545E-04, 3.2937E-02),
     &  ( 1.7545E-04, 2.9301E-02),( 1.7545E-04, 2.6224E-02),
     &  ( 1.7545E-04, 2.3605E-02),( 1.7545E-04, 1.5161E-04),
     &  ( 1.7545E-04, 1.5164E-04),( 1.7545E-04, 1.5167E-04),
     &  ( 1.7545E-04, 1.5169E-04),( 1.7545E-04, 1.5172E-04),
     &  ( 1.7545E-04, 1.5174E-04),( 1.7546E-04, 1.5177E-04),
     &  ( 1.7546E-04, 1.5179E-04),( 1.7546E-04, 1.5182E-04)/

         DATA ((CAS  (I,J), I=1801,1900), J=3,3) /
     &  ( 1.7546E-04, 1.5184E-04),( 1.7546E-04, 1.5187E-04),
     &  ( 1.7546E-04, 1.5190E-04),( 1.7546E-04, 1.5192E-04),
     &  ( 1.7546E-04, 1.5195E-04),( 1.7546E-04, 1.5197E-04),
     &  ( 1.7547E-04, 1.5218E-04),( 1.7548E-04, 1.5238E-04),
     &  ( 1.7548E-04, 1.5259E-04),( 1.7549E-04, 1.5279E-04),
     &  ( 1.7549E-04, 1.5299E-04),( 1.7550E-04, 1.5320E-04),
     &  ( 1.7550E-04, 1.5340E-04),( 1.7550E-04, 1.5381E-04),
     &  ( 1.7551E-04, 1.5422E-04),( 1.7551E-04, 1.5443E-04),
     &  ( 1.7551E-04, 1.5463E-04),( 1.7550E-04, 1.5569E-04),
     &  ( 1.7546E-04, 1.5709E-04),( 1.7539E-04, 1.5849E-04),
     &  ( 1.7529E-04, 1.5990E-04),( 1.7515E-04, 1.6130E-04),
     &  ( 1.7499E-04, 1.6271E-04),( 1.7482E-04, 1.6412E-04),
     &  ( 1.7463E-04, 1.6512E-04),( 1.7443E-04, 1.6612E-04),
     &  ( 1.7423E-04, 1.6713E-04),( 1.7404E-04, 1.6813E-04),
     &  ( 1.7386E-04, 1.6913E-04),( 1.7368E-04, 1.7014E-04),
     &  ( 1.7350E-04, 1.7114E-04),( 1.7332E-04, 1.7215E-04),
     &  ( 1.7315E-04, 1.7315E-04),( 1.7296E-04, 1.7416E-04),
     &  ( 1.7278E-04, 1.7516E-04),( 1.7260E-04, 1.7617E-04),
     &  ( 1.7241E-04, 1.7717E-04),( 1.7222E-04, 1.7818E-04),
     &  ( 1.7209E-04, 1.7878E-04),( 1.6967E-04, 2.4253E-04),
     &  ( 1.6910E-04, 2.8626E-04),( 1.6878E-04, 3.2899E-04),
     &  ( 1.6857E-04, 3.7138E-04),( 1.6842E-04, 4.1357E-04),
     &  ( 1.6831E-04, 4.5565E-04),( 1.6821E-04, 4.9774E-04),
     &  ( 1.6814E-04, 5.3980E-04),( 1.6807E-04, 5.8153E-04),
     &  ( 1.6801E-04, 6.2328E-04),( 1.6796E-04, 6.6511E-04),
     &  ( 1.6792E-04, 7.0667E-04),( 1.6788E-04, 7.4786E-04),
     &  ( 1.6784E-04, 7.8885E-04),( 1.6780E-04, 8.3010E-04),
     &  ( 1.6777E-04, 8.7106E-04),( 1.6774E-04, 9.1113E-04),
     &  ( 1.6771E-04, 9.5121E-04),( 1.6769E-04, 9.9166E-04),
     &  ( 1.6766E-04, 1.0314E-03),( 1.6764E-04, 1.0700E-03),
     &  ( 1.6761E-04, 1.1096E-03),( 1.6759E-04, 1.1474E-03),
     &  ( 1.6757E-04, 1.1857E-03),( 1.6754E-04, 1.2232E-03),
     &  ( 1.6752E-04, 1.2606E-03),( 1.6750E-04, 1.2975E-03),
     &  ( 1.6748E-04, 1.3335E-03),( 1.6745E-04, 1.3682E-03),
     &  ( 1.6743E-04, 1.4031E-03),( 1.6740E-04, 1.4368E-03),
     &  ( 1.6738E-04, 1.4685E-03),( 1.6735E-04, 1.4991E-03),
     &  ( 1.6731E-04, 1.5264E-03),( 1.6722E-04, 1.5385E-03),
     &  ( 1.6713E-04, 1.4794E-03),( 1.6709E-04, 1.4355E-03),
     &  ( 1.6706E-04, 1.3940E-03),( 1.6703E-04, 1.3546E-03),
     &  ( 1.6701E-04, 1.3156E-03),( 1.6698E-04, 1.2768E-03),
     &  ( 1.6696E-04, 1.2398E-03),( 1.6694E-04, 1.2026E-03),
     &  ( 1.6691E-04, 1.1654E-03),( 1.6689E-04, 1.1285E-03),
     &  ( 1.6687E-04, 1.0922E-03),( 1.6684E-04, 1.0558E-03),
     &  ( 1.6682E-04, 1.0204E-03),( 1.6680E-04, 9.8383E-04),
     &  ( 1.6677E-04, 9.4858E-04),( 1.6674E-04, 9.1267E-04),
     &  ( 1.6672E-04, 8.7644E-04),( 1.6669E-04, 8.4082E-04),
     &  ( 1.6665E-04, 8.0544E-04),( 1.6662E-04, 7.6949E-04),
     &  ( 1.6658E-04, 7.3345E-04),( 1.6655E-04, 6.9778E-04),
     &  ( 1.6650E-04, 6.6204E-04),( 1.6645E-04, 6.2604E-04),
     &  ( 1.6640E-04, 5.8986E-04),( 1.6634E-04, 5.5406E-04)/

         DATA ((CAS  (I,J), I=1901,2000), J=3,3) /
     &  ( 1.6627E-04, 5.1767E-04),( 1.6619E-04, 4.8126E-04),
     &  ( 1.6609E-04, 4.4476E-04),( 1.6596E-04, 4.0822E-04),
     &  ( 1.6580E-04, 3.7154E-04),( 1.6556E-04, 3.3476E-04),
     &  ( 1.6520E-04, 2.9809E-04),( 1.6447E-04, 2.6225E-04),
     &  ( 1.6125E-04, 2.2187E-04),( 1.6107E-04, 2.2248E-04),
     &  ( 1.5972E-04, 2.2714E-04),( 1.5875E-04, 2.3050E-04),
     &  ( 1.5801E-04, 2.3309E-04),( 1.5741E-04, 2.3517E-04),
     &  ( 1.5693E-04, 2.3689E-04),( 1.5652E-04, 2.3837E-04),
     &  ( 1.5616E-04, 2.6231E-04),( 1.5585E-04, 2.6588E-04),
     &  ( 1.5558E-04, 2.6940E-04),( 1.5534E-04, 2.7293E-04),
     &  ( 1.5511E-04, 2.7647E-04),( 1.5491E-04, 2.8005E-04),
     &  ( 1.5473E-04, 2.8371E-04),( 1.5455E-04, 2.8745E-04),
     &  ( 1.5439E-04, 2.9131E-04),( 1.5424E-04, 2.9530E-04),
     &  ( 1.5410E-04, 2.9946E-04),( 1.5397E-04, 3.0379E-04),
     &  ( 1.5384E-04, 3.0838E-04),( 1.5372E-04, 3.1320E-04),
     &  ( 1.5360E-04, 3.1834E-04),( 1.5348E-04, 3.2382E-04),
     &  ( 1.5337E-04, 3.2972E-04),( 1.5326E-04, 3.3612E-04),
     &  ( 1.5316E-04, 3.4312E-04),( 1.5305E-04, 3.5082E-04),
     &  ( 1.5295E-04, 3.5941E-04),( 1.5284E-04, 3.6917E-04),
     &  ( 1.5274E-04, 3.8032E-04),( 1.5263E-04, 3.9348E-04),
     &  ( 1.5251E-04, 4.0935E-04),( 1.5239E-04, 4.2938E-04),
     &  ( 1.5225E-04, 4.5647E-04),( 1.5208E-04, 4.9833E-04),
     &  ( 1.5171E-04, 6.4447E-04),( 1.5139E-04, 8.4793E-04),
     &  ( 1.5126E-04, 9.4981E-04),( 1.5116E-04, 1.0246E-03),
     &  ( 1.5108E-04, 1.0764E-03),( 1.5100E-04, 1.1061E-03),
     &  ( 1.5093E-04, 1.1150E-03),( 1.5087E-04, 1.1054E-03),
     &  ( 1.5081E-04, 1.0806E-03),( 1.5075E-04, 1.0442E-03),
     &  ( 1.5069E-04, 1.0002E-03),( 1.5064E-04, 9.5165E-04),
     &  ( 1.5058E-04, 9.0122E-04),( 1.5053E-04, 8.5115E-04),
     &  ( 1.5048E-04, 8.0247E-04),( 1.5042E-04, 7.5601E-04),
     &  ( 1.5037E-04, 7.1296E-04),( 1.5032E-04, 6.7292E-04),
     &  ( 1.5027E-04, 6.3590E-04),( 1.5022E-04, 6.0234E-04),
     &  ( 1.5018E-04, 5.7162E-04),( 1.5013E-04, 5.4382E-04),
     &  ( 1.5008E-04, 5.1839E-04),( 1.5003E-04, 4.9547E-04),
     &  ( 1.4998E-04, 4.7460E-04),( 1.4993E-04, 4.5577E-04),
     &  ( 1.4988E-04, 4.3862E-04),( 1.4983E-04, 4.2307E-04),
     &  ( 1.4978E-04, 4.0894E-04),( 1.4974E-04, 4.1567E-04),
     &  ( 1.4969E-04, 4.0564E-04),( 1.4964E-04, 3.9700E-04),
     &  ( 1.4960E-04, 3.8977E-04),( 1.4956E-04, 3.8403E-04),
     &  ( 1.4952E-04, 3.7994E-04),( 1.4948E-04, 3.7784E-04),
     &  ( 1.4947E-04, 4.4490E-04),( 1.4948E-04, 4.5657E-04),
     &  ( 1.4949E-04, 4.6944E-04),( 1.4950E-04, 4.8370E-04),
     &  ( 1.4952E-04, 4.9941E-04),( 1.4953E-04, 5.1665E-04),
     &  ( 1.4954E-04, 5.3548E-04),( 1.4956E-04, 5.5611E-04),
     &  ( 1.4957E-04, 5.7882E-04),( 1.4959E-04, 6.0347E-04),
     &  ( 1.4961E-04, 6.3029E-04),( 1.4962E-04, 6.5926E-04),
     &  ( 1.4964E-04, 6.9029E-04),( 1.4966E-04, 7.2313E-04),
     &  ( 1.4968E-04, 7.5777E-04),( 1.4970E-04, 7.9372E-04),
     &  ( 1.4971E-04, 8.2986E-04),( 1.4973E-04, 8.6599E-04),
     &  ( 1.4975E-04, 9.0087E-04),( 1.4978E-04, 9.3272E-04)/

         DATA ((CAS  (I,J), I=2001,2100), J=3,3) /
     &  ( 1.4980E-04, 9.3707E-04),( 1.4982E-04, 9.5904E-04),
     &  ( 1.4984E-04, 9.7375E-04),( 1.4987E-04, 9.7992E-04),
     &  ( 1.4989E-04, 9.7680E-04),( 1.4992E-04, 9.6424E-04),
     &  ( 1.4995E-04, 9.4297E-04),( 1.4998E-04, 9.1349E-04),
     &  ( 1.5001E-04, 8.7722E-04),( 1.5005E-04, 8.3570E-04),
     &  ( 1.5008E-04, 7.9062E-04),( 1.5013E-04, 7.4265E-04),
     &  ( 1.5017E-04, 6.9266E-04),( 1.5023E-04, 6.4043E-04),
     &  ( 1.5031E-04, 5.8384E-04),( 1.5051E-04, 4.8831E-04),
     &  ( 1.5074E-04, 4.2991E-04),( 1.5084E-04, 4.1235E-04),
     &  ( 1.5092E-04, 4.0071E-04),( 1.5100E-04, 3.9195E-04),
     &  ( 1.5107E-04, 3.8492E-04),( 1.5114E-04, 3.7908E-04),
     &  ( 1.5120E-04, 3.7405E-04),( 1.5127E-04, 3.6964E-04),
     &  ( 1.5133E-04, 3.6575E-04),( 1.5139E-04, 3.6229E-04),
     &  ( 1.5146E-04, 3.5912E-04),( 1.5152E-04, 3.5624E-04),
     &  ( 1.5158E-04, 3.5359E-04),( 1.5165E-04, 3.5115E-04),
     &  ( 1.5171E-04, 3.4890E-04),( 1.5178E-04, 3.4677E-04),
     &  ( 1.5184E-04, 3.4480E-04),( 1.5191E-04, 3.4296E-04),
     &  ( 1.5198E-04, 3.4120E-04),( 1.5205E-04, 3.3958E-04),
     &  ( 1.5213E-04, 3.3802E-04),( 1.5220E-04, 3.3655E-04),
     &  ( 1.5228E-04, 3.3516E-04),( 1.5236E-04, 3.3383E-04),
     &  ( 1.5244E-04, 3.3250E-04),( 1.5253E-04, 3.3123E-04),
     &  ( 1.5261E-04, 3.3001E-04),( 1.5271E-04, 3.2884E-04),
     &  ( 1.5280E-04, 3.2772E-04),( 1.5290E-04, 3.2665E-04),
     &  ( 1.5301E-04, 3.2562E-04),( 1.5312E-04, 3.2462E-04),
     &  ( 1.5323E-04, 3.2366E-04),( 1.5335E-04, 3.2275E-04),
     &  ( 1.5348E-04, 3.2187E-04),( 1.5414E-04, 3.1829E-04),
     &  ( 1.5652E-04, 3.0109E-04),( 1.5955E-04, 3.0424E-04),
     &  ( 1.6302E-04, 3.0726E-04),( 1.6729E-04, 3.1041E-04),
     &  ( 1.7208E-04, 3.1343E-04),( 1.7788E-04, 3.1658E-04),
     &  ( 1.8430E-04, 3.1960E-04),( 1.9204E-04, 3.2276E-04),
     &  ( 2.0097E-04, 3.2592E-04),( 2.1083E-04, 3.2894E-04),
     &  ( 2.2278E-04, 3.3210E-04),( 2.3614E-04, 3.3512E-04),
     &  ( 2.3955E-04, 3.3828E-04),( 2.4281E-04, 3.4131E-04),
     &  ( 2.4622E-04, 3.4447E-04),( 2.4948E-04, 3.4750E-04),
     &  ( 2.5289E-04, 3.5066E-04),( 2.5615E-04, 3.5369E-04),
     &  ( 2.5956E-04, 3.5686E-04),( 2.6292E-04, 1.4629E-05),
     &  ( 2.6629E-04, 1.4576E-05),( 2.6981E-04, 1.4521E-05),
     &  ( 2.7318E-04, 1.4468E-05),( 2.7670E-04, 1.4415E-05),
     &  ( 2.8006E-04, 1.4364E-05),( 2.8358E-04, 1.4311E-05),
     &  ( 2.7319E-04, 1.4261E-05),( 2.6394E-04, 1.4210E-05),
     &  ( 2.5631E-04, 1.4161E-05),( 2.4932E-04, 1.4111E-05),
     &  ( 2.4342E-04, 1.4063E-05),( 2.3791E-04, 1.4014E-05),
     &  ( 2.3318E-04, 1.3968E-05),( 2.2871E-04, 1.3920E-05),
     &  ( 2.2465E-04, 1.3872E-05),( 2.2110E-04, 1.3827E-05),
     &  ( 2.1770E-04, 1.3781E-05),( 2.1470E-04, 1.3737E-05),
     &  ( 2.1181E-04, 1.3691E-05),( 2.0924E-04, 1.3649E-05),
     &  ( 2.0673E-04, 1.3604E-05),( 2.0450E-04, 1.3562E-05),
     &  ( 2.0232E-04, 1.3519E-05),( 2.0037E-04, 1.3478E-05),
     &  ( 1.9845E-04, 1.3435E-05),( 1.9672E-04, 1.3395E-05),
     &  ( 1.9508E-04, 1.3355E-05),( 1.9347E-04, 1.3314E-05)/

         DATA ((CAS  (I,J), I=2101,2193), J=3,3) /
     &  ( 1.9201E-04, 1.3275E-05),( 1.9057E-04, 1.3235E-05),
     &  ( 1.8926E-04, 1.3197E-05),( 1.8795E-04, 1.3157E-05),
     &  ( 1.8677E-04, 1.3120E-05),( 1.8559E-04, 1.3081E-05),
     &  ( 1.8451E-04, 1.3044E-05),( 1.8343E-04, 1.3007E-05),
     &  ( 1.8245E-04, 1.2971E-05),( 1.8147E-04, 1.2934E-05),
     &  ( 1.8053E-04, 1.2897E-05),( 1.7966E-04, 1.2862E-05),
     &  ( 1.7880E-04, 1.2826E-05),( 1.7800E-04, 1.2792E-05),
     &  ( 1.7720E-04, 1.2757E-05),( 1.7647E-04, 1.2723E-05),
     &  ( 1.7573E-04, 1.2689E-05),( 1.7505E-04, 1.2656E-05),
     &  ( 1.7436E-04, 1.2622E-05),( 1.7372E-04, 1.2590E-05),
     &  ( 1.7309E-04, 1.2557E-05),( 1.7249E-04, 1.2525E-05),
     &  ( 1.7192E-04, 1.2494E-05),( 1.7134E-04, 1.2462E-05),
     &  ( 1.7081E-04, 1.2431E-05),( 1.7027E-04, 1.2400E-05),
     &  ( 1.6977E-04, 1.2370E-05),( 1.6926E-04, 1.2339E-05),
     &  ( 1.6879E-04, 1.2309E-05),( 1.6831E-04, 1.2279E-05),
     &  ( 1.6787E-04, 1.2250E-05),( 1.6741E-04, 1.2220E-05),
     &  ( 1.6700E-04, 1.2191E-05),( 1.6657E-04, 1.2162E-05),
     &  ( 1.6616E-04, 1.2133E-05),( 1.6577E-04, 1.2105E-05),
     &  ( 1.6538E-04, 1.2077E-05),( 1.6502E-04, 1.2050E-05),
     &  ( 1.6473E-04, 1.2022E-05),( 1.6445E-04, 1.1995E-05),
     &  ( 1.6416E-04, 1.1967E-05),( 1.6388E-04, 1.1941E-05),
     &  ( 1.6359E-04, 1.1914E-05),( 1.6331E-04, 1.1888E-05),
     &  ( 1.6302E-04, 1.1862E-05),( 1.6274E-04, 1.1837E-05),
     &  ( 1.6244E-04, 1.1811E-05),( 1.6217E-04, 1.1786E-05),
     &  ( 1.6189E-04, 1.1761E-05),( 1.6159E-04, 1.1736E-05),
     &  ( 1.6132E-04, 1.1712E-05),( 1.6102E-04, 1.1687E-05),
     &  ( 1.6074E-04, 1.1663E-05),( 1.6045E-04, 1.1638E-05),
     &  ( 1.6017E-04, 1.1615E-05),( 1.5988E-04, 1.1591E-05),
     &  ( 1.5960E-04, 1.1568E-05),( 1.5931E-04, 1.1544E-05),
     &  ( 1.5903E-04, 1.1521E-05),( 1.5874E-04, 1.1498E-05),
     &  ( 1.5672E-04, 1.1256E-05),( 1.5470E-04, 1.1035E-05),
     &  ( 1.5447E-04, 1.1002E-05),( 1.4681E-04, 9.7742E-06),
     &  ( 1.4480E-04, 9.3563E-06),( 1.4132E-04, 8.5071E-06),
     &  ( 1.4003E-04, 8.1330E-06),( 1.3997E-04, 8.1162E-06),
     &  ( 1.3870E-04, 7.6901E-06),( 1.3870E-04, 7.6888E-06),
     &  ( 1.3798E-04, 7.4059E-06),( 1.3796E-04, 7.3956E-06),
     &  ( 1.3794E-04, 7.3894E-06),( 1.3764E-04, 7.2584E-06),
     &  ( 1.3746E-04, 7.1738E-06),( 1.3743E-04, 7.1589E-06),
     &  ( 1.3739E-04, 7.1346E-06),( 1.3731E-04, 7.0989E-06),
     &  ( 1.3726E-04, 7.0739E-06),( 1.3723E-04, 7.0583E-06),
     &  ( 1.3696E-04, 6.9099E-06),( 1.3695E-04, 6.9025E-06),
     &  ( 1.3687E-04, 6.8598E-06),( 1.3686E-04, 6.8520E-06),
     &  ( 1.3680E-04, 6.8169E-06),( 1.3678E-04, 6.8031E-06),
     &  ( 1.3677E-04, 6.7921E-06),( 1.3675E-04, 6.7819E-06),
     &  ( 1.3670E-04, 6.7524E-06),( 1.3663E-04, 6.7099E-06),
     &  ( 1.3660E-04, 6.6920E-06),( 1.3644E-04, 6.5753E-06),
     &  ( 1.3630E-04, 6.4783E-06)/

c      ++++ cdeghadslow26 ++++


         DATA ((CGS  (I,J), I=   1, 100), J=1,1) /
     &  (-1.8734E-03,-0.0000E+00),(-1.9933E-03,-1.1494E-05),
     &  (-2.1207E-03,-3.2982E-05),(-2.2479E-03,-6.0797E-05),
     &  (-2.3808E-03,-9.3767E-05),(-2.5139E-03,-1.3107E-04),
     &  (-2.6082E-03,-1.7226E-04),(-2.8105E-03,-2.7337E-04),
     &  (-2.8915E-03,-3.1085E-04),(-2.9649E-03,-3.5382E-04),
     &  (-3.0831E-03,-3.9679E-04),(-3.1973E-03,-4.4033E-04),
     &  (-3.3289E-03,-4.9529E-04),(-3.4166E-03,-5.3551E-04),
     &  (-3.5241E-03,-5.9376E-04),(-3.6337E-03,-6.3553E-04),
     &  (-3.7432E-03,-6.9390E-04),(-3.8540E-03,-7.3973E-04),
     &  (-3.9435E-03,-7.9058E-04),(-4.0601E-03,-8.5508E-04),
     &  (-4.1540E-03,-8.8752E-04),(-4.2648E-03,-9.3606E-04),
     &  (-4.3613E-03,-9.9515E-04),(-4.4819E-03,-1.0750E-03),
     &  (-4.5821E-03,-1.1246E-03),(-4.6828E-03,-1.1608E-03),
     &  (-4.8051E-03,-1.2113E-03),(-4.8747E-03,-1.2520E-03),
     &  (-4.9050E-03,-1.2714E-03),(-5.0093E-03,-1.3261E-03),
     &  (-5.1158E-03,-1.3808E-03),(-5.2230E-03,-1.4321E-03),
     &  (-5.3312E-03,-1.4842E-03),(-5.4429E-03,-1.5453E-03),
     &  (-5.5606E-03,-1.6046E-03),(-5.6800E-03,-1.6530E-03),
     &  (-5.8028E-03,-1.6959E-03),(-5.9297E-03,-1.7451E-03),
     &  (-6.0590E-03,-1.8187E-03),(-6.1917E-03,-1.8931E-03),
     &  (-6.2893E-03,-1.9499E-03),(-6.4255E-03,-2.0322E-03),
     &  (-6.5647E-03,-2.1320E-03),(-6.6679E-03,-2.1984E-03),
     &  (-6.8110E-03,-2.2799E-03),(-6.9521E-03,-2.3521E-03),
     &  (-7.0622E-03,-2.4000E-03),(-7.2172E-03,-2.4639E-03),
     &  (-7.3332E-03,-2.5083E-03),(-7.5011E-03,-2.5584E-03),
     &  (-8.4180E-03,-3.0243E-03),(-9.3849E-03,-3.8417E-03),
     &  (-1.0742E-02,-4.8219E-03),(-1.2110E-02,-6.0019E-03),
     &  (-1.2990E-02,-6.7070E-03),(-1.3160E-02,-6.8383E-03),
     &  (-1.3664E-02,-7.2360E-03),(-1.4338E-02,-7.9488E-03),
     &  (-1.5047E-02,-8.7667E-03),(-1.5752E-02,-9.7826E-03),
     &  (-1.6464E-02,-1.0726E-02),(-1.6727E-02,-1.1187E-02),
     &  (-1.7168E-02,-1.1944E-02),(-1.7900E-02,-1.3182E-02),
     &  (-1.8506E-02,-1.4429E-02),(-1.9137E-02,-1.6268E-02),
     &  (-1.9625E-02,-1.8053E-02),(-1.9992E-02,-2.0237E-02),
     &  (-2.0047E-02,-2.0774E-02),(-2.0117E-02,-2.2365E-02),
     &  (-2.0146E-02,-2.3531E-02),(-2.0050E-02,-2.4757E-02),
     &  (-1.9681E-02,-2.7322E-02),(-1.8857E-02,-3.0152E-02),
     &  (-1.7675E-02,-3.3037E-02),(-1.5909E-02,-3.5622E-02),
     &  (-1.3492E-02,-3.8244E-02),(-1.0574E-02,-4.0901E-02),
     &  (-7.6099E-03,-4.2608E-02),(-6.4709E-03,-4.3057E-02),
     &  (-3.6348E-03,-4.4032E-02),(-2.2720E-03,-4.4025E-02),
     &  (-6.4465E-04,-4.4446E-02),( 5.9367E-04,-4.4598E-02),
     &  ( 2.4422E-03,-4.4400E-02),( 5.0732E-03,-4.4143E-02),
     &  ( 5.6948E-03,-4.4361E-02),( 6.5925E-03,-4.3910E-02),
     &  ( 7.1787E-03,-4.3898E-02),( 7.6828E-03,-4.3849E-02),
     &  ( 8.2367E-03,-4.3808E-02),( 8.6917E-03,-4.3405E-02),
     &  ( 9.1214E-03,-4.3293E-02),( 9.4716E-03,-4.3195E-02),
     &  ( 9.7837E-03,-4.3108E-02),( 1.0265E-02,-4.2784E-02),
     &  ( 1.0379E-02,-4.2724E-02),( 1.0495E-02,-4.2662E-02),
     &  ( 1.0642E-02,-4.2576E-02),( 1.0779E-02,-4.2556E-02)/

         DATA ((CGS  (I,J), I= 101, 200), J=1,1) /
     &  ( 1.0908E-02,-4.2493E-02),( 1.1043E-02,-4.2433E-02),
     &  ( 1.1064E-02,-4.2376E-02),( 1.1168E-02,-4.1878E-02),
     &  ( 1.1254E-02,-4.1744E-02),( 1.1280E-02,-4.1615E-02),
     &  ( 1.1314E-02,-4.1488E-02),( 1.1341E-02,-4.1364E-02),
     &  ( 1.1368E-02,-4.1240E-02),( 1.1395E-02,-4.1117E-02),
     &  ( 1.1396E-02,-4.1067E-02),( 1.1397E-02,-4.1000E-02),
     &  ( 1.1401E-02,-4.0993E-02),( 1.1415E-02,-4.0977E-02),
     &  ( 1.1430E-02,-4.0968E-02),( 1.1448E-02,-4.0928E-02),
     &  ( 1.1517E-02,-4.0870E-02),( 1.1671E-02,-4.0861E-02),
     &  ( 1.1806E-02,-4.0906E-02),( 1.1974E-02,-4.0896E-02),
     &  ( 1.2173E-02,-4.0887E-02),( 1.2268E-02,-4.0878E-02),
     &  ( 1.2434E-02,-4.0869E-02),( 1.2571E-02,-4.0860E-02),
     &  ( 1.2806E-02,-4.0858E-02),( 1.2856E-02,-4.0852E-02),
     &  ( 1.2906E-02,-4.0844E-02),( 1.2966E-02,-4.0836E-02),
     &  ( 1.3053E-02,-4.0736E-02),( 1.3082E-02,-4.0733E-02),
     &  ( 1.3202E-02,-4.0723E-02),( 1.3304E-02,-4.0716E-02),
     &  ( 1.3514E-02,-4.0710E-02),( 1.3575E-02,-4.0563E-02),
     &  ( 1.3687E-02,-4.0213E-02),( 1.3799E-02,-4.0035E-02),
     &  ( 1.3914E-02,-3.9938E-02),( 1.4108E-02,-3.9834E-02),
     &  ( 1.4209E-02,-3.9762E-02),( 1.4337E-02,-3.9684E-02),
     &  ( 1.4505E-02,-3.9603E-02),( 1.4729E-02,-3.9472E-02),
     &  ( 1.4954E-02,-3.9419E-02),( 1.5151E-02,-3.9328E-02),
     &  ( 1.5440E-02,-3.9291E-02),( 1.5591E-02,-3.9144E-02),
     &  ( 1.5787E-02,-3.8973E-02),( 1.6128E-02,-3.8081E-02),
     &  ( 1.6393E-02,-3.7595E-02),( 1.6767E-02,-3.7263E-02),
     &  ( 1.7155E-02,-3.6745E-02),( 1.7722E-02,-3.5779E-02),
     &  ( 1.7866E-02,-3.5504E-02),( 1.8316E-02,-3.4682E-02),
     &  ( 1.8715E-02,-3.3879E-02),( 1.9076E-02,-3.3081E-02),
     &  ( 1.9368E-02,-3.2242E-02),( 1.9514E-02,-3.1335E-02),
     &  ( 1.9200E-02,-3.0344E-02),( 1.9608E-02,-3.0124E-02),
     &  ( 2.0016E-02,-2.9903E-02),( 2.0774E-02,-2.8258E-02),
     &  ( 2.1123E-02,-2.7756E-02),( 2.1365E-02,-2.7025E-02),
     &  ( 2.1572E-02,-2.6111E-02),( 2.1722E-02,-2.5696E-02),
     &  ( 2.1768E-02,-2.4969E-02),( 2.1785E-02,-2.4556E-02),
     &  ( 2.1651E-02,-2.2609E-02),( 2.1378E-02,-2.0827E-02),
     &  ( 2.1035E-02,-1.9392E-02),( 2.0725E-02,-1.8353E-02),
     &  ( 2.0254E-02,-1.7071E-02),( 1.9783E-02,-1.5880E-02),
     &  ( 1.9235E-02,-1.4674E-02),( 1.8702E-02,-1.3789E-02),
     &  ( 1.7983E-02,-1.2921E-02),( 1.7241E-02,-1.2099E-02),
     &  ( 1.6597E-02,-1.1593E-02),( 1.6261E-02,-1.1344E-02),
     &  ( 1.5620E-02,-1.0812E-02),( 1.5340E-02,-1.0566E-02),
     &  ( 1.4623E-02,-9.9560E-03),( 1.4078E-02,-9.4354E-03),
     &  ( 1.3324E-02,-8.9380E-03),( 1.2601E-02,-8.5440E-03),
     &  ( 1.1647E-02,-8.1306E-03),( 1.0779E-02,-7.7224E-03),
     &  ( 9.8463E-03,-7.4755E-03),( 8.6760E-03,-7.1546E-03),
     &  ( 8.1286E-03,-7.0684E-03),( 7.7410E-03,-6.9655E-03),
     &  ( 6.9365E-03,-6.7601E-03),( 6.5527E-03,-6.6487E-03),
     &  ( 6.1579E-03,-6.6203E-03),( 5.7681E-03,-6.5442E-03),
     &  ( 5.2550E-03,-6.5232E-03),( 4.8463E-03,-6.4475E-03),
     &  ( 4.2527E-03,-6.4108E-03),( 3.1174E-03,-6.1092E-03)/

         DATA ((CGS  (I,J), I= 201, 300), J=1,1) /
     &  ( 2.1999E-04,-4.5436E-03),(-3.8304E-04,-4.4167E-03),
     &  (-7.6300E-04,-4.3797E-03),(-1.1806E-03,-4.3749E-03),
     &  (-1.6203E-03,-4.3944E-03),(-2.0677E-03,-4.4139E-03),
     &  (-2.5145E-03,-4.3733E-03),(-2.9980E-03,-4.3088E-03),
     &  (-3.4851E-03,-4.2442E-03),(-4.0691E-03,-4.2509E-03),
     &  (-4.5240E-03,-4.2696E-03),(-5.1738E-03,-4.2882E-03),
     &  (-5.6783E-03,-4.2395E-03),(-6.2988E-03,-4.1966E-03),
     &  (-6.9254E-03,-4.1683E-03),(-7.5807E-03,-4.2021E-03),
     &  (-8.1950E-03,-4.2359E-03),(-8.8052E-03,-4.2571E-03),
     &  (-9.4542E-03,-4.2468E-03),(-1.0112E-02,-4.2365E-03),
     &  (-1.0814E-02,-4.2468E-03),(-1.1530E-02,-4.2848E-03),
     &  (-1.2277E-02,-4.3228E-03),(-1.3060E-02,-4.3504E-03),
     &  (-1.3841E-02,-4.3701E-03),(-1.4641E-02,-4.3899E-03),
     &  (-1.5523E-02,-4.4425E-03),(-1.6393E-02,-4.5160E-03),
     &  (-1.7233E-02,-4.6085E-03),(-1.8030E-02,-4.7011E-03),
     &  (-1.8131E-02,-4.7407E-03),(-1.8337E-02,-8.0276E-03),
     &  (-1.8880E-02,-8.0844E-03),(-2.0130E-02,-8.2216E-03),
     &  (-2.1229E-02,-8.3588E-03),(-2.2281E-02,-8.4966E-03),
     &  (-2.8769E-02,-8.6338E-03),(-3.0632E-02,-8.7620E-03),
     &  (-3.2613E-02,-9.3853E-03),(-3.4802E-02,-1.0151E-02),
     &  (-3.7204E-02,-1.1012E-02),(-3.9732E-02,-1.1873E-02),
     &  (-4.2560E-02,-1.2768E-02),(-4.5973E-02,-1.3706E-02),
     &  (-4.9386E-02,-1.4677E-02),(-5.3688E-02,-1.5895E-02),
     &  (-5.8429E-02,-1.7113E-02),(-6.3558E-02,-2.0778E-02),
     &  (-6.9186E-02,-2.5834E-02),(-7.5422E-02,-3.0890E-02),
     &  (-8.1753E-02,-3.5946E-02),(-8.8569E-02,-4.5164E-02),
     &  (-9.6500E-02,-5.5570E-02),(-1.0429E-01,-6.6304E-02),
     &  (-1.0611E-01,-7.1568E-02),(-1.0770E-01,-7.6832E-02),
     &  (-1.0908E-01,-8.3602E-02),(-1.1029E-01,-9.1631E-02),
     &  (-1.1105E-01,-1.0264E-01),(-1.1138E-01,-1.1366E-01),
     &  (-1.1090E-01,-1.2467E-01),(-1.0957E-01,-1.3568E-01),
     &  (-1.0722E-01,-1.4694E-01),(-1.0384E-01,-1.6278E-01),
     &  (-9.8902E-02,-1.7861E-01),(-9.2724E-02,-1.9685E-01),
     &  (-8.0947E-02,-2.2616E-01),(-7.1755E-02,-2.4563E-01),
     &  (-6.6709E-02,-2.5538E-01),(-5.5859E-02,-2.7392E-01),
     &  (-4.3670E-02,-2.9173E-01),(-3.0606E-02,-3.0847E-01),
     &  (-1.7491E-02,-3.1746E-01),(-3.9538E-03,-3.2465E-01),
     &  ( 9.6512E-03,-3.2710E-01),( 2.3191E-02,-3.2693E-01),
     &  ( 3.6503E-02,-3.1865E-01),( 4.9412E-02,-3.0231E-01),
     &  ( 6.1903E-02,-2.8459E-01),( 7.3706E-02,-2.6686E-01),
     &  ( 8.4227E-02,-2.4913E-01),( 9.4381E-02,-2.2875E-01),
     &  ( 1.0263E-01,-2.1093E-01),( 1.0939E-01,-1.9411E-01),
     &  ( 1.1500E-01,-1.7729E-01),( 1.1938E-01,-1.6048E-01),
     &  ( 1.2271E-01,-1.4717E-01),( 1.2494E-01,-1.3538E-01),
     &  ( 1.2651E-01,-1.2419E-01),( 1.2674E-01,-1.1423E-01),
     &  ( 1.2681E-01,-1.0603E-01),( 1.2566E-01,-9.6175E-02),
     &  ( 1.2467E-01,-8.9608E-02),( 1.2403E-01,-8.6323E-02),
     &  ( 1.2236E-01,-7.9756E-02),( 1.2094E-01,-7.5425E-02),
     &  ( 1.1993E-01,-7.2298E-02),( 1.1809E-01,-6.9172E-02),
     &  ( 1.1585E-01,-6.6044E-02),( 1.1403E-01,-6.2918E-02)/

         DATA ((CGS  (I,J), I= 301, 400), J=1,1) /
     &  ( 1.1219E-01,-5.9790E-02),( 1.1040E-01,-5.6664E-02),
     &  ( 1.0877E-01,-5.3536E-02),( 1.0700E-01,-5.0410E-02),
     &  ( 1.0163E-01,-4.4040E-02),( 9.6340E-02,-3.7671E-02),
     &  ( 9.1204E-02,-3.1302E-02),( 8.6365E-02,-2.5903E-02),
     &  ( 8.1703E-02,-2.3357E-02),( 7.7624E-02,-2.1816E-02),
     &  ( 7.3994E-02,-2.0274E-02),( 7.0785E-02,-1.8734E-02),
     &  ( 6.8088E-02,-1.7193E-02),( 6.5526E-02,-1.5652E-02),
     &  ( 6.3016E-02,-1.4111E-02),( 6.0657E-02,-1.2570E-02),
     &  ( 5.8384E-02,-1.1425E-02),( 5.6217E-02,-1.0864E-02),
     &  ( 5.4139E-02,-1.0340E-02),( 5.2251E-02,-9.8290E-03),
     &  ( 4.4007E-02,-9.3188E-03),( 4.2625E-02,-8.8086E-03),
     &  ( 4.1050E-02,-8.2823E-03),( 3.9066E-02,-7.7363E-03),
     &  ( 3.5571E-02,-7.1725E-03),( 2.7273E-02,-6.8819E-03),
     &  ( 2.8634E-02,-1.1082E-02),( 2.2474E-02,-1.0970E-02),
     &  ( 3.7626E-02,-1.0771E-02),( 3.8105E-02,-1.0572E-02),
     &  ( 3.8228E-02,-1.0372E-02),( 3.8209E-02,-1.0173E-02),
     &  ( 3.8044E-02,-9.9736E-03),( 3.7780E-02,-9.7743E-03),
     &  ( 3.7486E-02,-9.5678E-03),( 3.7149E-02,-9.3518E-03),
     &  ( 3.6830E-02,-9.1359E-03),( 3.6489E-02,-8.9199E-03),
     &  ( 3.6293E-02,-8.7039E-03),( 3.5787E-02,-8.4879E-03),
     &  ( 3.5419E-02,-8.2720E-03),( 3.5004E-02,-7.9994E-03),
     &  ( 3.4560E-02,-7.9078E-03),( 3.4195E-02,-7.8163E-03),
     &  ( 3.3759E-02,-7.7248E-03),( 3.3361E-02,-7.6332E-03),
     &  ( 3.2995E-02,-7.5417E-03),( 3.2607E-02,-7.4502E-03),
     &  ( 3.2234E-02,-7.3599E-03),( 3.1861E-02,-7.2771E-03),
     &  ( 3.1527E-02,-7.1943E-03),( 3.1203E-02,-7.1116E-03),
     &  ( 3.0874E-02,-7.0288E-03),( 3.0551E-02,-6.9460E-03),
     &  ( 3.0233E-02,-6.8632E-03),( 2.9926E-02,-6.7395E-03),
     &  ( 2.9074E-02,-6.3327E-03),( 2.7216E-02,-5.9600E-03),
     &  ( 2.4252E-02,-5.4540E-03),( 2.2052E-02,-5.2669E-03),
     &  ( 2.0372E-02,-5.0872E-03),( 1.9027E-02,-4.8434E-03),
     &  ( 1.7886E-02,-4.7218E-03),( 1.6906E-02,-4.6154E-03),
     &  ( 1.6068E-02,-4.6696E-03),( 1.5990E-02,-4.6826E-03),
     &  ( 1.5024E-02,-4.7249E-03),( 1.4369E-02,-4.7356E-03),
     &  ( 1.4145E-02,-4.7212E-03),( 1.3610E-02,-4.7569E-03),
     &  ( 1.3098E-02,-4.7601E-03),( 1.3049E-02,-4.7580E-03),
     &  ( 1.2615E-02,-4.8222E-03),( 1.2156E-02,-4.8869E-03),
     &  ( 1.1937E-02,-4.9390E-03),( 1.1723E-02,-4.9673E-03),
     &  ( 1.1329E-02,-5.0915E-03),( 1.0979E-02,-5.2608E-03),
     &  ( 1.0660E-02,-5.3859E-03),( 1.0367E-02,-5.4299E-03),
     &  ( 1.0193E-02,-5.5043E-03),( 1.0076E-02,-5.5578E-03),
     &  ( 9.7941E-03,-5.6391E-03),( 9.5220E-03,-5.7599E-03),
     &  ( 9.4946E-03,-5.7713E-03),( 9.2764E-03,-5.9691E-03),
     &  ( 9.0586E-03,-6.1249E-03),( 8.9570E-03,-6.1966E-03),
     &  ( 8.8528E-03,-6.2662E-03),( 8.6460E-03,-6.3632E-03),
     &  ( 8.4340E-03,-6.5859E-03),( 8.2265E-03,-6.6945E-03),
     &  ( 8.1689E-03,-6.7532E-03),( 8.0321E-03,-6.9666E-03),
     &  ( 7.9466E-03,-7.0821E-03),( 7.8745E-03,-7.2113E-03),
     &  ( 7.7383E-03,-7.4719E-03),( 7.6045E-03,-7.5918E-03),
     &  ( 7.5904E-03,-7.6033E-03),( 7.4889E-03,-7.6934E-03)/

         DATA ((CGS  (I,J), I= 401, 500), J=1,1) /
     &  ( 7.2648E-03,-8.0505E-03),( 7.1986E-03,-8.3661E-03),
     &  ( 7.1968E-03,-8.6656E-03),( 7.2094E-03,-8.8972E-03),
     &  ( 7.2141E-03,-8.9841E-03),( 7.2609E-03,-9.2543E-03),
     &  ( 7.2835E-03,-9.3508E-03),( 7.2974E-03,-9.4087E-03),
     &  ( 7.3223E-03,-9.4963E-03),( 7.3753E-03,-9.6922E-03),
     &  ( 7.4630E-03,-9.9201E-03),( 7.5714E-03,-1.0112E-02),
     &  ( 7.5835E-03,-1.0125E-02),( 7.7066E-03,-1.0238E-02),
     &  ( 7.7195E-03,-1.0251E-02),( 7.7842E-03,-1.0314E-02),
     &  ( 7.8330E-03,-1.0365E-02),( 7.9719E-03,-1.0447E-02),
     &  ( 7.9902E-03,-1.0456E-02),( 8.0904E-03,-1.0562E-02),
     &  ( 8.0967E-03,-1.0571E-02),( 8.1035E-03,-1.0579E-02),
     &  ( 8.1613E-03,-1.0664E-02),( 8.2157E-03,-1.0750E-02),
     &  ( 8.2265E-03,-1.0767E-02),( 8.3044E-03,-1.0967E-02),
     &  ( 8.3116E-03,-1.0984E-02),( 8.3549E-03,-1.1054E-02),
     &  ( 8.3645E-03,-1.1068E-02),( 8.4260E-03,-1.1153E-02),
     &  ( 8.4580E-03,-1.1189E-02),( 8.5707E-03,-1.1294E-02),
     &  ( 8.5826E-03,-1.1306E-02),( 8.7215E-03,-1.1423E-02),
     &  ( 8.8356E-03,-1.1436E-02),( 8.9019E-03,-1.1429E-02),
     &  ( 8.9151E-03,-1.1428E-02),( 9.0764E-03,-1.1577E-02),
     &  ( 9.1055E-03,-1.1605E-02),( 9.2765E-03,-1.1743E-02),
     &  ( 9.4301E-03,-1.1840E-02),( 9.4999E-03,-1.1882E-02),
     &  ( 9.5483E-03,-1.1910E-02),( 9.5733E-03,-1.1924E-02),
     &  ( 9.8264E-03,-1.1896E-02),( 9.8777E-03,-1.1891E-02),
     &  ( 1.0019E-02,-1.1819E-02),( 1.0151E-02,-1.1747E-02),
     &  ( 1.0210E-02,-1.1713E-02),( 1.0391E-02,-1.1601E-02),
     &  ( 1.0546E-02,-1.1489E-02),( 1.0581E-02,-1.1467E-02),
     &  ( 1.0598E-02,-1.1467E-02),( 1.0702E-02,-1.1471E-02),
     &  ( 1.0752E-02,-1.1473E-02),( 1.0804E-02,-1.1475E-02),
     &  ( 1.1010E-02,-1.1169E-02),( 1.1036E-02,-1.1117E-02),
     &  ( 1.1093E-02,-1.0962E-02),( 1.1120E-02,-1.0859E-02),
     &  ( 1.1140E-02,-1.0703E-02),( 1.1142E-02,-1.0678E-02),
     &  ( 1.1143E-02,-1.0600E-02),( 1.1140E-02,-1.0548E-02),
     &  ( 1.1133E-02,-1.0499E-02),( 1.1110E-02,-1.0380E-02),
     &  ( 1.1067E-02,-1.0238E-02),( 1.1011E-02,-1.0150E-02),
     &  ( 1.0905E-02,-1.0028E-02),( 1.0793E-02,-9.9354E-03),
     &  ( 1.0780E-02,-9.9251E-03),( 1.0611E-02,-9.8021E-03),
     &  ( 1.0494E-02,-9.7046E-03),( 1.0389E-02,-9.6211E-03),
     &  ( 1.0372E-02,-9.6210E-03),( 1.0225E-02,-9.6209E-03),
     &  ( 1.0200E-02,-9.6209E-03),( 1.0122E-02,-9.6386E-03),
     &  ( 9.8994E-03,-9.7626E-03),( 9.8935E-03,-9.9753E-03),
     &  ( 9.9065E-03,-1.0011E-02),( 9.9620E-03,-9.9854E-03),
     &  ( 9.9312E-03,-9.9628E-03),( 9.8914E-03,-9.9493E-03),
     &  ( 9.7680E-03,-9.9455E-03),( 9.5988E-03,-9.9708E-03),
     &  ( 9.5329E-03,-9.9942E-03),( 9.4705E-03,-1.0007E-02),
     &  ( 9.3709E-03,-1.0026E-02),( 9.3473E-03,-1.0049E-02),
     &  ( 9.2826E-03,-1.0105E-02),( 9.2706E-03,-1.0116E-02),
     &  ( 9.2236E-03,-1.0162E-02),( 9.1733E-03,-1.0218E-02),
     &  ( 9.1256E-03,-1.0274E-02),( 9.1156E-03,-1.0297E-02),
     &  ( 8.9633E-03,-1.0518E-02),( 8.6744E-03,-1.0650E-02),
     &  ( 8.6608E-03,-1.1033E-02),( 9.3589E-03,-1.1724E-02)/

         DATA ((CGS  (I,J), I= 501, 600), J=1,1) /
     &  ( 9.8245E-03,-1.1898E-02),( 1.0043E-02,-1.1929E-02),
     &  ( 1.0348E-02,-1.1733E-02),( 1.0358E-02,-1.1892E-02),
     &  ( 1.0457E-02,-1.1861E-02),( 1.0534E-02,-1.1823E-02),
     &  ( 1.0540E-02,-1.1730E-02),( 1.0463E-02,-1.1683E-02),
     &  ( 1.0315E-02,-1.1635E-02),( 1.0115E-02,-1.1647E-02),
     &  ( 9.8777E-03,-1.1651E-02),( 9.5610E-03,-1.1651E-02),
     &  ( 9.1460E-03,-1.1651E-02),( 8.5763E-03,-1.1620E-02),
     &  ( 7.7657E-03,-1.1588E-02),( 6.5849E-03,-1.1558E-02),
     &  ( 4.7713E-03,-1.1557E-02),( 4.2947E-03,-1.1559E-02),
     &  ( 3.7642E-03,-1.1561E-02),( 3.1705E-03,-1.1563E-02),
     &  ( 2.5029E-03,-1.1565E-02),( 1.7420E-03,-1.1567E-02),
     &  ( 8.7149E-04,-1.1569E-02),(-1.3600E-04,-1.1571E-02),
     &  (-3.5696E-04,-1.1572E-02),(-5.8517E-04,-1.1572E-02),
     &  (-8.1913E-04,-1.1573E-02),(-1.0626E-03,-1.1573E-02),
     &  (-1.3142E-03,-1.1573E-02),(-1.5744E-03,-1.1574E-02),
     &  (-1.8442E-03,-1.1574E-02),(-2.1231E-03,-1.1575E-02),
     &  (-2.4127E-03,-1.1575E-02),(-2.7129E-03,-1.1575E-02),
     &  (-4.2000E-03,-1.1577E-02),(-5.3667E-03,-1.1580E-02),
     &  (-6.0098E-03,-1.1581E-02),(-6.4618E-03,-1.1582E-02),
     &  (-6.9343E-03,-1.1583E-02),(-7.4294E-03,-1.1584E-02),
     &  (-7.9490E-03,-1.1585E-02),(-8.4958E-03,-1.1586E-02),
     &  (-9.0701E-03,-1.1587E-02),(-9.3685E-03,-1.1587E-02),
     &  (-9.6746E-03,-1.1588E-02),(-9.9891E-03,-1.1588E-02),
     &  (-1.0312E-02,-1.1588E-02),(-1.0645E-02,-1.1589E-02),
     &  (-1.0986E-02,-1.1589E-02),(-1.1337E-02,-1.1590E-02),
     &  (-1.1699E-02,-1.1590E-02),(-1.2071E-02,-1.1591E-02),
     &  (-1.2454E-02,-1.1591E-02),(-1.2849E-02,-1.1592E-02),
     &  (-1.3255E-02,-1.1592E-02),(-1.3675E-02,-1.1592E-02),
     &  (-1.4108E-02,-1.1593E-02),(-1.4556E-02,-1.1593E-02),
     &  (-1.5017E-02,-1.1593E-02),(-1.5494E-02,-1.1593E-02),
     &  (-1.5987E-02,-1.1593E-02),(-1.6497E-02,-1.1593E-02),
     &  (-1.7025E-02,-1.1593E-02),(-1.7572E-02,-1.1593E-02),
     &  (-1.8139E-02,-1.1593E-02),(-1.8727E-02,-1.1593E-02),
     &  (-1.9338E-02,-1.1593E-02),(-1.9971E-02,-1.1593E-02),
     &  (-2.0630E-02,-1.1593E-02),(-2.1316E-02,-1.1593E-02),
     &  (-2.2028E-02,-1.1593E-02),(-2.2771E-02,-1.1593E-02),
     &  (-2.3546E-02,-1.1593E-02),(-2.4355E-02,-1.1591E-02),
     &  (-2.5199E-02,-1.1589E-02),(-2.6083E-02,-1.1587E-02),
     &  (-2.7007E-02,-1.1585E-02),(-2.7975E-02,-1.1583E-02),
     &  (-2.8991E-02,-1.1581E-02),(-3.0057E-02,-1.1579E-02),
     &  (-3.1177E-02,-1.1577E-02),(-3.2357E-02,-1.1574E-02),
     &  (-3.3601E-02,-1.1572E-02),(-3.4249E-02,-1.1573E-02),
     &  (-3.4914E-02,-1.1574E-02),(-3.5599E-02,-1.1575E-02),
     &  (-3.6303E-02,-1.1576E-02),(-3.7027E-02,-1.1577E-02),
     &  (-3.7773E-02,-1.1578E-02),(-3.8541E-02,-1.1579E-02),
     &  (-3.9332E-02,-1.1580E-02),(-4.0148E-02,-1.1581E-02),
     &  (-4.0990E-02,-1.1582E-02),(-4.1858E-02,-1.1582E-02),
     &  (-4.2755E-02,-1.1583E-02),(-4.3680E-02,-1.1584E-02),
     &  (-4.4639E-02,-1.1585E-02),(-4.5628E-02,-1.1586E-02),
     &  (-4.6652E-02,-1.1587E-02),(-4.7712E-02,-1.1588E-02)/

         DATA ((CGS  (I,J), I= 601, 700), J=1,1) /
     &  (-4.8809E-02,-1.1589E-02),(-4.9947E-02,-1.1590E-02),
     &  (-5.1124E-02,-1.1591E-02),(-5.2349E-02,-1.1592E-02),
     &  (-5.3621E-02,-1.1593E-02),(-5.4943E-02,-1.1593E-02),
     &  (-5.6318E-02,-1.1594E-02),(-5.7749E-02,-1.1595E-02),
     &  (-5.9240E-02,-1.1596E-02),(-6.0795E-02,-1.1597E-02),
     &  (-6.2417E-02,-1.1598E-02),(-6.4113E-02,-1.1599E-02),
     &  (-6.5885E-02,-1.1600E-02),(-6.7741E-02,-1.1601E-02),
     &  (-6.9685E-02,-1.1602E-02),(-7.1725E-02,-1.1603E-02),
     &  (-7.3867E-02,-1.1604E-02),(-7.6120E-02,-1.1605E-02),
     &  (-7.8492E-02,-1.1605E-02),(-8.0994E-02,-1.1606E-02),
     &  (-8.3636E-02,-1.1607E-02),(-8.7591E-02,-1.1609E-02),
     &  (-8.9387E-02,-1.1609E-02),(-9.2526E-02,-1.1608E-02),
     &  (-9.5862E-02,-1.1608E-02),(-9.9416E-02,-1.1607E-02),
     &  (-1.0321E-01,-1.1606E-02),(-1.0726E-01,-1.1605E-02),
     &  (-1.1161E-01,-1.1604E-02),(-1.1629E-01,-1.1604E-02),
     &  (-1.2132E-01,-1.1603E-02),(-1.2677E-01,-1.1602E-02),
     &  (-1.3267E-01,-1.1601E-02),(-1.3909E-01,-1.1600E-02),
     &  (-1.4422E-01,-1.1600E-02),(-1.6020E-01,-1.1598E-02),
     &  (-1.7979E-01,-1.1597E-02),(-2.0439E-01,-1.1595E-02),
     &  (-2.3618E-01,-1.1593E-02),(-2.7891E-01,-1.1592E-02),
     &  (-3.3958E-01,-1.1591E-02),(-4.3631E-01,-1.1590E-02),
     &  (-5.8595E-01,-2.4822E-02),(-9.0156E-01,-4.2565E-02),
     &  (-1.9262E+00,-1.5139E-01),(-2.0396E+00,-1.6828E-01),
     &  (-2.1671E+00,-1.8842E-01),(-2.3156E+00,-2.1270E-01),
     &  (-2.4759E+00,-2.4234E-01),(-2.6655E+00,-2.7903E-01),
     &  (-2.8862E+00,-3.2520E-01),(-3.1462E+00,-3.8441E-01),
     &  (-3.4570E+00,-4.6206E-01),(-3.8348E+00,-5.6665E-01),
     &  (-4.3038E+00,-7.1217E-01),(-4.9026E+00,-9.2299E-01),
     &  (-5.6842E+00,-1.2445E+00),(-6.7543E+00,-1.7691E+00),
     &  (-6.8830E+00,-1.8391E+00),(-8.7144E+00,-3.8803E+00),
     &  (-1.2002E+01,-6.0604E+00),(-1.3762E+01,-8.3710E+00),
     &  (-1.4789E+01,-1.0912E+01),(-1.6365E+01,-1.3311E+01),
     &  (-1.7281E+01,-1.5827E+01),(-1.7947E+01,-1.8223E+01),
     &  (-1.8492E+01,-2.1083E+01),(-1.5098E+01,-2.3452E+01),
     &  (-1.8867E+01,-2.6118E+01),(-1.8814E+01,-2.8472E+01),
     &  (-1.8597E+01,-3.1019E+01),(-1.8299E+01,-3.3048E+01),
     &  (-1.7677E+01,-3.5885E+01),(-1.6938E+01,-3.7346E+01),
     &  (-1.5804E+01,-3.9569E+01),(-1.5454E+01,-4.1794E+01),
     &  (-1.4659E+01,-4.3257E+01),(-1.3271E+01,-4.5381E+01),
     &  (-1.2216E+01,-4.6724E+01),(-1.1059E+01,-4.7986E+01),
     &  (-9.8054E+00,-4.9148E+01),(-8.4623E+00,-5.0190E+01),
     &  (-7.0391E+00,-5.1092E+01),(-5.9276E+00,-5.1837E+01),
     &  (-4.0233E+00,-5.2411E+01),(-2.4274E+00,-5.2801E+01),
     &  (-8.0472E-01,-5.2998E+01),(-6.9959E-01,-5.2998E+01),
     &  ( 3.2521E+00,-5.2630E+01),( 4.8044E+00,-5.2147E+01),
     &  ( 7.0641E+00,-5.1093E+01),( 7.9246E+00,-4.9687E+01),
     &  ( 1.2666E+01,-4.4688E+01),( 1.6418E+01,-3.8828E+01),
     &  ( 1.7490E+01,-3.6615E+01),( 1.8359E+01,-3.4452E+01),
     &  ( 1.8323E+01,-3.3051E+01),( 1.8625E+01,-3.1022E+01),
     &  ( 1.8759E+01,-2.9725E+01),( 1.8846E+01,-2.8475E+01)/

         DATA ((CGS  (I,J), I= 701, 800), J=1,1) /
     &  ( 1.8891E+01,-2.7273E+01),( 1.4730E+01,-2.6121E+01),
     &  ( 1.5354E+01,-2.5018E+01),( 1.5966E+01,-2.3964E+01),
     &  ( 1.8739E+01,-2.2958E+01),( 1.8636E+01,-2.1999E+01),
     &  ( 1.8514E+01,-2.1086E+01),( 1.8374E+01,-2.0217E+01),
     &  ( 1.8137E+01,-1.8992E+01),( 1.7965E+01,-1.8225E+01),
     &  ( 1.7691E+01,-1.7146E+01),( 1.7402E+01,-1.6146E+01),
     &  ( 1.7205E+01,-1.5521E+01),( 1.6803E+01,-1.4362E+01),
     &  ( 1.6600E+01,-1.3566E+01),( 1.5602E+01,-1.2594E+01),
     &  ( 1.5277E+01,-1.1713E+01),( 1.5190E+01,-1.0726E+01),
     &  ( 1.4706E+01,-9.8492E+00),( 1.4055E+01,-8.7812E+00),
     &  ( 1.3441E+01,-7.8688E+00),( 1.2706E+01,-6.8814E+00),
     &  ( 1.1887E+01,-5.8990E+00),( 1.0696E+01,-4.7965E+00),
     &  ( 9.6444E+00,-3.7132E+00),( 8.1122E+00,-2.5849E+00),
     &  ( 6.7798E+00,-1.7699E+00),( 5.7104E+00,-1.2452E+00),
     &  ( 4.9268E+00,-9.2361E-01),( 4.3300E+00,-7.1271E-01),
     &  ( 3.8611E+00,-5.6713E-01),( 3.4832E+00,-4.6250E-01),
     &  ( 3.1724E+00,-3.8481E-01),( 2.9124E+00,-3.2556E-01),
     &  ( 2.6918E+00,-2.7936E-01),( 2.5022E+00,-2.4265E-01),
     &  ( 2.3376E+00,-2.1299E-01),( 2.1933E+00,-1.8869E-01),
     &  ( 2.0659E+00,-1.6854E-01),( 1.9525E+00,-1.5163E-01),
     &  ( 1.8509E+00,-1.3732E-01),( 1.7595E+00,-1.2509E-01),
     &  ( 1.6766E+00,-1.1456E-01),( 1.6013E+00,-1.0544E-01),
     &  ( 8.5160E-01,-3.7714E-02),( 5.8292E-01,-2.3642E-02),
     &  ( 4.4505E-01,-1.8499E-02),( 3.6329E-01,-1.6063E-02),
     &  ( 3.0335E-01,-1.1581E-02),( 2.6205E-01,-1.1580E-02),
     &  ( 2.3117E-01,-1.1580E-02),( 2.0716E-01,-1.1579E-02),
     &  ( 1.8792E-01,-1.1579E-02),( 1.7218E-01,-1.1578E-02),
     &  ( 1.7031E-01,-1.1578E-02),( 1.5731E-01,-1.1577E-02),
     &  ( 1.4631E-01,-1.1577E-02),( 1.3687E-01,-1.1576E-02),
     &  ( 1.2868E-01,-1.1575E-02),( 1.2151E-01,-1.1575E-02),
     &  ( 1.1518E-01,-1.1574E-02),( 1.0955E-01,-1.1573E-02),
     &  ( 1.0452E-01,-1.1573E-02),( 9.9981E-02,-1.1572E-02),
     &  ( 9.5875E-02,-1.1572E-02),( 9.2140E-02,-1.1571E-02),
     &  ( 8.8729E-02,-1.1570E-02),( 8.5602E-02,-1.1570E-02),
     &  ( 8.2725E-02,-1.1569E-02),( 8.0067E-02,-1.1568E-02),
     &  ( 7.7607E-02,-1.1568E-02),( 7.5321E-02,-1.1567E-02),
     &  ( 7.3192E-02,-1.1566E-02),( 7.1205E-02,-1.1566E-02),
     &  ( 6.9345E-02,-1.1565E-02),( 6.7601E-02,-1.1565E-02),
     &  ( 6.5964E-02,-1.1564E-02),( 6.4421E-02,-1.1563E-02),
     &  ( 6.2967E-02,-1.1563E-02),( 6.1592E-02,-1.1562E-02),
     &  ( 6.0292E-02,-1.1561E-02),( 5.9060E-02,-1.1561E-02),
     &  ( 5.7892E-02,-1.1560E-02),( 5.6781E-02,-1.1560E-02),
     &  ( 5.5724E-02,-1.1559E-02),( 5.4718E-02,-1.1558E-02),
     &  ( 5.3758E-02,-1.1558E-02),( 5.2842E-02,-1.1557E-02),
     &  ( 5.1966E-02,-1.1556E-02),( 5.1128E-02,-1.1556E-02),
     &  ( 5.0326E-02,-1.1555E-02),( 4.9557E-02,-1.1554E-02),
     &  ( 4.8819E-02,-1.1554E-02),( 4.8111E-02,-1.1553E-02),
     &  ( 4.7430E-02,-1.1553E-02),( 4.6776E-02,-1.1552E-02),
     &  ( 4.6146E-02,-1.1551E-02),( 4.5539E-02,-1.1551E-02),
     &  ( 4.4953E-02,-1.1550E-02),( 4.4390E-02,-1.1549E-02)/

         DATA ((CGS  (I,J), I= 801, 900), J=1,1) /
     &  ( 4.3846E-02,-1.1549E-02),( 4.3321E-02,-1.1548E-02),
     &  ( 4.2813E-02,-1.1548E-02),( 4.2323E-02,-1.1547E-02),
     &  ( 4.1849E-02,-1.1546E-02),( 4.1389E-02,-1.1546E-02),
     &  ( 4.0945E-02,-1.1545E-02),( 4.0514E-02,-1.1544E-02),
     &  ( 4.0097E-02,-1.1544E-02),( 3.9692E-02,-1.1543E-02),
     &  ( 3.9299E-02,-1.1543E-02),( 3.8918E-02,-1.1542E-02),
     &  ( 3.8549E-02,-1.1541E-02),( 3.8189E-02,-1.1541E-02),
     &  ( 3.7841E-02,-1.1540E-02),( 3.7501E-02,-1.1539E-02),
     &  ( 3.7172E-02,-1.1539E-02),( 3.6851E-02,-1.1538E-02),
     &  ( 3.6540E-02,-1.1537E-02),( 3.6236E-02,-1.1537E-02),
     &  ( 3.5941E-02,-1.1536E-02),( 3.5654E-02,-1.1536E-02),
     &  ( 3.5375E-02,-1.1535E-02),( 3.5103E-02,-1.1534E-02),
     &  ( 3.4838E-02,-1.1534E-02),( 3.4581E-02,-1.1533E-02),
     &  ( 3.4330E-02,-1.1532E-02),( 3.4087E-02,-1.1532E-02),
     &  ( 3.3850E-02,-1.1531E-02),( 3.3619E-02,-1.1531E-02),
     &  ( 3.3396E-02,-1.1530E-02),( 3.3179E-02,-1.1529E-02),
     &  ( 3.2970E-02,-1.1529E-02),( 3.2767E-02,-1.1528E-02),
     &  ( 3.2573E-02,-1.1527E-02),( 3.2386E-02,-1.1527E-02),
     &  ( 3.2209E-02,-1.1526E-02),( 3.1658E-02,-1.1525E-02),
     &  ( 3.1459E-02,-1.1525E-02),( 3.1265E-02,-1.1524E-02),
     &  ( 3.1073E-02,-1.1524E-02),( 3.0885E-02,-1.1523E-02),
     &  ( 3.0699E-02,-1.1522E-02),( 3.0518E-02,-1.1522E-02),
     &  ( 3.0340E-02,-1.1521E-02),( 3.0165E-02,-1.1520E-02),
     &  ( 3.0012E-02,-1.1520E-02),( 2.9821E-02,-1.1268E-02),
     &  ( 2.9654E-02,-1.1270E-02),( 2.9494E-02,-1.1271E-02),
     &  ( 2.9335E-02,-1.1273E-02),( 2.9181E-02,-1.1274E-02),
     &  ( 2.9030E-02,-1.1276E-02),( 2.8881E-02,-1.1277E-02),
     &  ( 2.8735E-02,-1.1279E-02),( 2.8592E-02,-1.1280E-02),
     &  ( 2.8451E-02,-1.1282E-02),( 2.4187E-02,-1.1342E-02),
     &  ( 2.1255E-02,-1.1417E-02),( 1.8700E-02,-1.1403E-02),
     &  ( 1.7852E-02,-1.1397E-02),( 1.6440E-02,-1.1389E-02),
     &  ( 1.4950E-02,-1.1393E-02),( 1.4257E-02,-1.1399E-02),
     &  ( 1.3464E-02,-1.1404E-02),( 1.3360E-02,-1.1405E-02),
     &  ( 1.2832E-02,-1.1424E-02),( 1.2516E-02,-1.1411E-02),
     &  ( 1.2457E-02,-1.1409E-02),( 1.1639E-02,-1.1412E-02),
     &  ( 1.0544E-02,-1.1417E-02),( 9.5019E-03,-1.1417E-02),
     &  ( 6.0915E-03,-1.1467E-02),( 8.5187E-03,-1.1460E-02),
     &  ( 8.5487E-03,-1.1454E-02),( 7.8735E-03,-1.1447E-02),
     &  ( 7.0964E-03,-1.1441E-02),( 6.2113E-03,-1.1435E-02),
     &  ( 5.1874E-03,-1.1428E-02),( 3.9816E-03,-1.1434E-02),
     &  ( 2.5330E-03,-1.1440E-02),( 7.5340E-04,-1.1446E-02),
     &  (-1.4943E-03,-1.1452E-02),(-2.5709E-03,-1.1459E-02),
     &  (-3.7772E-03,-1.1466E-02),(-5.1393E-03,-1.1473E-02),
     &  (-6.6903E-03,-1.1480E-02),(-8.4735E-03,-1.1487E-02),
     &  (-1.0547E-02,-1.1495E-02),(-1.1716E-02,-1.1499E-02),
     &  (-1.2990E-02,-1.1503E-02),(-1.4383E-02,-1.1507E-02),
     &  (-1.5913E-02,-1.1511E-02),(-1.7601E-02,-1.1515E-02),
     &  (-1.9474E-02,-1.1519E-02),(-2.1564E-02,-1.1523E-02),
     &  (-2.3911E-02,-1.1527E-02),(-2.6566E-02,-1.1531E-02),
     &  (-2.9595E-02,-1.1521E-02),(-3.3082E-02,-1.1510E-02)/

         DATA ((CGS  (I,J), I= 901,1000), J=1,1) /
     &  (-3.7141E-02,-1.1500E-02),(-4.1717E-02,-1.1490E-02),
     &  (-4.4711E-02,-1.1485E-02),(-4.8030E-02,-1.1479E-02),
     &  (-5.1731E-02,-1.1474E-02),(-5.5885E-02,-1.1468E-02),
     &  (-6.0580E-02,-1.1462E-02),(-6.5765E-02,-1.1457E-02),
     &  (-7.1905E-02,-1.1451E-02),(-7.9042E-02,-1.1445E-02),
     &  (-8.7440E-02,-1.1440E-02),(-9.7697E-02,-1.1434E-02),
     &  (-1.0991E-01,-1.1429E-02),(-1.2506E-01,-1.1423E-02),
     &  (-1.4439E-01,-1.1417E-02),(-1.6988E-01,-1.1412E-02),
     &  (-2.0508E-01,-1.1406E-02),(-2.5693E-01,-1.1401E-02),
     &  (-3.4115E-01,-1.1395E-02),(-5.0339E-01,-1.1389E-02),
     &  (-7.8606E-01,-1.1385E-02),(-9.7691E-01,-1.1384E-02),
     &  (-1.2448E+00,-1.1383E-02),(-1.7687E+00,-6.4202E-01),
     &  (-1.8978E+00,-7.9551E-01),(-2.0135E+00,-9.4642E-01),
     &  (-2.1099E+00,-1.0979E+00),(-2.1998E+00,-1.2487E+00),
     &  (-2.2821E+00,-1.3952E+00),(-2.3501E+00,-1.5464E+00),
     &  (-2.4079E+00,-1.6981E+00),(-2.4513E+00,-1.8334E+00),
     &  (-2.4907E+00,-1.9823E+00),(-2.5218E+00,-2.1318E+00),
     &  (-2.5444E+00,-2.2793E+00),(-2.5587E+00,-2.4220E+00),
     &  (-2.5654E+00,-2.5745E+00),(-2.5652E+00,-2.7000E+00),
     &  (-2.5575E+00,-2.8507E+00),(-2.5435E+00,-2.9889E+00),
     &  (-2.5211E+00,-3.1329E+00),(-2.4899E+00,-3.2822E+00),
     &  (-2.4551E+00,-3.4141E+00),(-2.4758E+00,-3.5718E+00),
     &  (-2.3512E+00,-3.7097E+00),(-2.2885E+00,-3.8493E+00),
     &  (-2.2154E+00,-3.9898E+00),(-2.1161E+00,-4.1536E+00),
     &  (-2.0175E+00,-4.2924E+00),(-1.8885E+00,-4.4507E+00),
     &  (-1.7645E+00,-4.5816E+00),(-1.5805E+00,-4.7464E+00),
     &  (-1.3754E+00,-4.8965E+00),(-1.0617E+00,-5.0715E+00),
     &  (-7.8190E-01,-5.1815E+00),(-4.5282E-01,-5.2630E+00),
     &  (-2.8354E-01,-5.2862E+00),(-1.1261E-01,-5.2973E+00),
     &  ( 5.8790E-02,-5.2961E+00),( 5.3116E-01,-5.2281E+00),
     &  ( 8.8228E-01,-5.1121E+00),( 1.1202E+00,-4.9974E+00),
     &  ( 1.3402E+00,-4.8611E+00),( 1.4715E+00,-4.7469E+00),
     &  ( 1.6352E+00,-4.6034E+00),( 1.7632E+00,-4.4734E+00),
     &  ( 1.8978E+00,-4.3159E+00),( 2.0004E+00,-4.1775E+00),
     &  ( 2.0984E+00,-4.0374E+00),( 2.1750E+00,-3.8968E+00),
     &  ( 2.2539E+00,-3.7336E+00),( 2.3079E+00,-3.5953E+00),
     &  ( 2.3579E+00,-3.4371E+00),( 2.3988E+00,-3.2829E+00),
     &  ( 2.4296E+00,-3.1336E+00),( 2.4538E+00,-2.9696E+00),
     &  ( 2.4664E+00,-2.8322E+00),( 2.4727E+00,-2.6642E+00),
     &  ( 2.4693E+00,-2.5063E+00),( 2.4562E+00,-2.3423E+00),
     &  ( 2.4327E+00,-2.1756E+00),( 2.3993E+00,-2.0092E+00),
     &  ( 2.3593E+00,-1.8579E+00),( 2.3031E+00,-1.6881E+00),
     &  ( 2.2345E+00,-1.5188E+00),( 2.1549E+00,-1.3551E+00),
     &  ( 2.0581E+00,-1.1870E+00),( 1.9437E+00,-1.0188E+00),
     &  ( 1.8097E+00,-8.5193E-01),( 1.6484E+00,-6.8333E-01),
     &  ( 1.5597E+00,-6.0246E-01),( 1.4547E+00,-5.1617E-01),
     &  ( 1.3296E+00,-4.2495E-01),( 1.1893E+00,-3.3591E-01),
     &  ( 1.1050E+00,-2.8854E-01),( 9.3180E-01,-2.0431E-01),
     &  ( 8.7174E-01,-1.7895E-01),( 7.4374E-01,-1.3105E-01),
     &  ( 8.9409E-01,-1.1361E-02),( 3.4728E-01,-1.1356E-02)/

         DATA ((CGS  (I,J), I=1001,1100), J=1,1) /
     &  ( 2.7194E-01,-1.1350E-02),( 2.2518E-01,-1.1344E-02),
     &  ( 1.9302E-01,-1.1339E-02),( 1.6947E-01,-1.1333E-02),
     &  ( 1.5145E-01,-1.1328E-02),( 1.3722E-01,-1.1322E-02),
     &  ( 1.2567E-01,-1.1316E-02),( 1.1611E-01,-1.1311E-02),
     &  ( 1.0806E-01,-1.1306E-02),( 1.0117E-01,-1.1307E-02),
     &  ( 9.5237E-02,-1.1465E-02),( 9.0143E-02,-1.1468E-02),
     &  ( 8.5632E-02,-1.1471E-02),( 8.1626E-02,-1.1474E-02),
     &  ( 7.8046E-02,-1.1477E-02),( 7.4839E-02,-1.1480E-02),
     &  ( 6.9738E-02,-1.1486E-02),( 6.3382E-02,-1.1495E-02),
     &  ( 5.9978E-02,-1.1509E-02),( 5.4400E-02,-1.1554E-02),
     &  ( 5.0019E-02,-1.1599E-02),( 4.5695E-02,-1.1657E-02),
     &  ( 3.9527E-02,-1.1764E-02),( 3.2609E-02,-1.1947E-02),
     &  ( 2.8277E-02,-1.2208E-02),( 2.6237E-02,-1.2532E-02),
     &  ( 2.5236E-02,-1.2790E-02),( 2.4470E-02,-1.3007E-02),
     &  ( 2.3905E-02,-1.3198E-02),( 2.3462E-02,-1.3371E-02),
     &  ( 2.3103E-02,-1.3530E-02),( 2.2803E-02,-1.3648E-02),
     &  ( 2.2546E-02,-1.3750E-02),( 2.2323E-02,-1.3849E-02),
     &  ( 2.2142E-02,-1.3946E-02),( 2.1973E-02,-1.4042E-02),
     &  ( 2.1820E-02,-1.4136E-02),( 2.1680E-02,-1.4230E-02),
     &  ( 2.1549E-02,-1.4323E-02),( 2.1428E-02,-1.4416E-02),
     &  ( 2.1313E-02,-1.4509E-02),( 2.1185E-02,-1.4602E-02),
     &  ( 2.1089E-02,-1.4696E-02),( 2.1000E-02,-1.4791E-02),
     &  ( 2.0915E-02,-1.4887E-02),( 2.0836E-02,-1.4985E-02),
     &  ( 2.0761E-02,-1.5085E-02),( 2.0690E-02,-1.5188E-02),
     &  ( 2.0623E-02,-1.5294E-02),( 2.0560E-02,-1.5405E-02),
     &  ( 2.0500E-02,-1.5521E-02),( 2.0444E-02,-1.5643E-02),
     &  ( 2.0391E-02,-1.5775E-02),( 2.0343E-02,-1.5919E-02),
     &  ( 2.0298E-02,-1.6082E-02),( 2.0261E-02,-1.6273E-02),
     &  ( 2.0233E-02,-1.6520E-02),( 2.0270E-02,-1.7118E-02),
     &  ( 2.0480E-02,-1.7722E-02),( 2.0631E-02,-1.7969E-02),
     &  ( 2.0778E-02,-1.8155E-02),( 2.0928E-02,-1.8305E-02),
     &  ( 2.1082E-02,-1.8432E-02),( 2.1240E-02,-1.8538E-02),
     &  ( 2.1403E-02,-1.8626E-02),( 2.1572E-02,-1.8697E-02),
     &  ( 2.1747E-02,-1.8753E-02),( 2.1928E-02,-1.8792E-02),
     &  ( 2.2111E-02,-1.8815E-02),( 2.2304E-02,-1.8820E-02),
     &  ( 2.2499E-02,-1.8806E-02),( 2.2703E-02,-1.8773E-02),
     &  ( 2.2903E-02,-1.8719E-02),( 2.3110E-02,-1.8643E-02),
     &  ( 2.3304E-02,-1.8543E-02),( 2.3495E-02,-1.8418E-02),
     &  ( 2.3679E-02,-1.8267E-02),( 2.3854E-02,-1.8088E-02),
     &  ( 2.4014E-02,-1.7880E-02),( 2.4157E-02,-1.7643E-02),
     &  ( 2.4276E-02,-1.7377E-02),( 2.4367E-02,-1.7082E-02),
     &  ( 2.4425E-02,-1.6758E-02),( 2.4417E-02,-1.6408E-02),
     &  ( 2.4408E-02,-1.6034E-02),( 2.4320E-02,-1.5639E-02),
     &  ( 2.4165E-02,-1.5230E-02),( 2.3932E-02,-1.4810E-02),
     &  ( 2.3604E-02,-1.4387E-02),( 2.3133E-02,-1.3969E-02),
     &  ( 2.2504E-02,-1.3565E-02),( 2.1574E-02,-1.3254E-02),
     &  ( 2.1302E-02,-1.3198E-02),( 2.0573E-02,-1.3109E-02),
     &  ( 1.9500E-02,-1.3109E-02),( 1.9390E-02,-1.3125E-02),
     &  ( 1.8657E-02,-1.3251E-02),( 1.8360E-02,-1.3307E-02),
     &  ( 1.8124E-02,-1.3423E-02),( 1.7925E-02,-1.3565E-02)/

         DATA ((CGS  (I,J), I=1101,1200), J=1,1) /
     &  ( 1.7614E-02,-1.3530E-02),( 1.7283E-02,-1.3874E-02),
     &  ( 1.7213E-02,-1.4105E-02),( 1.7205E-02,-1.4170E-02),
     &  ( 1.7155E-02,-1.4366E-02),( 1.7053E-02,-1.4491E-02),
     &  ( 1.6999E-02,-1.4694E-02),( 1.7019E-02,-1.4898E-02),
     &  ( 1.7242E-02,-1.4965E-02),( 1.7222E-02,-1.4759E-02),
     &  ( 1.6984E-02,-1.4728E-02),( 1.6891E-02,-1.4785E-02),
     &  ( 1.6706E-02,-1.4603E-02),( 1.6548E-02,-1.4696E-02),
     &  ( 1.6390E-02,-1.5339E-02),( 1.6231E-02,-1.5452E-02),
     &  ( 1.6120E-02,-1.5301E-02),( 1.5840E-02,-1.5292E-02),
     &  ( 1.5419E-02,-1.5325E-02),( 1.4837E-02,-1.5443E-02),
     &  ( 1.4465E-02,-1.5482E-02),( 1.3895E-02,-1.6248E-02),
     &  ( 1.3524E-02,-1.7397E-02),( 1.3721E-02,-1.9109E-02),
     &  ( 1.4617E-02,-2.0249E-02),( 1.5229E-02,-2.0344E-02),
     &  ( 1.6610E-02,-2.0583E-02),( 1.7191E-02,-2.0588E-02),
     &  ( 1.7668E-02,-1.9844E-02),( 1.8201E-02,-1.9611E-02),
     &  ( 1.8615E-02,-1.8975E-02),( 1.8532E-02,-1.8551E-02),
     &  ( 1.8424E-02,-1.8600E-02),( 1.8639E-02,-1.8744E-02),
     &  ( 1.9261E-02,-1.8187E-02),( 1.8809E-02,-1.7279E-02),
     &  ( 1.8245E-02,-1.7695E-02),( 1.8347E-02,-1.8015E-02),
     &  ( 1.8541E-02,-1.8143E-02),( 1.8678E-02,-1.8185E-02),
     &  ( 1.8877E-02,-1.7988E-02),( 1.8904E-02,-1.7693E-02),
     &  ( 1.8771E-02,-1.7468E-02),( 1.8484E-02,-1.7288E-02),
     &  ( 1.8313E-02,-1.7243E-02),( 1.7984E-02,-1.7604E-02),
     &  ( 1.7946E-02,-1.8205E-02),( 1.8167E-02,-1.8494E-02),
     &  ( 1.8417E-02,-1.8687E-02),( 1.8729E-02,-1.8881E-02),
     &  ( 1.8866E-02,-1.8930E-02),( 1.9157E-02,-1.8771E-02),
     &  ( 1.9280E-02,-1.8613E-02),( 1.9115E-02,-1.8479E-02),
     &  ( 1.9277E-02,-1.8945E-02),( 1.9639E-02,-1.9178E-02),
     &  ( 2.0024E-02,-1.9025E-02),( 2.0415E-02,-1.8720E-02),
     &  ( 2.0649E-02,-1.8492E-02),( 2.0847E-02,-1.8293E-02),
     &  ( 2.1092E-02,-1.8161E-02),( 2.1278E-02,-1.8094E-02),
     &  ( 2.1412E-02,-1.7972E-02),( 2.1555E-02,-1.7787E-02),
     &  ( 2.1758E-02,-1.7480E-02),( 2.1934E-02,-1.7125E-02),
     &  ( 2.2088E-02,-1.6842E-02),( 2.2245E-02,-1.6608E-02),
     &  ( 2.1994E-02,-1.5466E-02),( 2.1202E-02,-1.5290E-02),
     &  ( 2.1029E-02,-1.5441E-02),( 2.1155E-02,-1.5892E-02),
     &  ( 2.1417E-02,-1.5346E-02),( 2.1113E-02,-1.4971E-02),
     &  ( 2.1111E-02,-1.4938E-02),( 2.1330E-02,-1.4927E-02),
     &  ( 2.1470E-02,-1.4048E-02),( 2.0276E-02,-1.2701E-02),
     &  ( 1.9008E-02,-1.3497E-02),( 1.8585E-02,-1.4040E-02),
     &  ( 1.8282E-02,-1.4743E-02),( 1.8766E-02,-1.4990E-02),
     &  ( 1.8778E-02,-1.4884E-02),( 1.8580E-02,-1.4900E-02),
     &  ( 1.8405E-02,-1.4911E-02),( 1.8303E-02,-1.4941E-02),
     &  ( 1.8158E-02,-1.4986E-02),( 1.7964E-02,-1.4991E-02),
     &  ( 1.7421E-02,-1.5558E-02),( 1.7459E-02,-1.5699E-02),
     &  ( 1.7509E-02,-1.5932E-02),( 1.7413E-02,-1.6152E-02),
     &  ( 1.7378E-02,-1.6233E-02),( 1.7360E-02,-1.6704E-02),
     &  ( 1.7447E-02,-1.7153E-02),( 1.7490E-02,-1.7303E-02),
     &  ( 1.7514E-02,-1.7381E-02),( 1.7577E-02,-1.7615E-02),
     &  ( 1.7557E-02,-1.7693E-02),( 1.7625E-02,-1.8082E-02)/

         DATA ((CGS  (I,J), I=1201,1300), J=1,1) /
     &  ( 1.8241E-02,-1.8666E-02),( 1.8899E-02,-1.8363E-02),
     &  ( 1.9085E-02,-1.8161E-02),( 1.9140E-02,-1.8077E-02),
     &  ( 1.9175E-02,-1.7824E-02),( 1.8967E-02,-1.8025E-02),
     &  ( 1.9402E-02,-1.8453E-02),( 1.9938E-02,-1.8172E-02),
     &  ( 2.0144E-02,-1.7984E-02),( 2.0230E-02,-1.7869E-02),
     &  ( 2.0379E-02,-1.7524E-02),( 2.0401E-02,-1.7409E-02),
     &  ( 2.0258E-02,-1.6842E-02),( 2.0004E-02,-1.6787E-02),
     &  ( 1.9919E-02,-1.6755E-02),( 2.0103E-02,-1.6767E-02),
     &  ( 2.0105E-02,-1.6657E-02),( 1.9592E-02,-1.6420E-02),
     &  ( 1.9620E-02,-1.6731E-02),( 1.9897E-02,-1.6763E-02),
     &  ( 1.9849E-02,-1.6093E-02),( 1.9573E-02,-1.6132E-02),
     &  ( 1.9444E-02,-1.6633E-02),( 1.9500E-02,-1.6790E-02),
     &  ( 1.9684E-02,-1.6779E-02),( 1.9698E-02,-1.6771E-02),
     &  ( 2.0110E-02,-1.7216E-02),( 2.0337E-02,-1.6727E-02),
     &  ( 2.0777E-02,-1.7531E-02),( 2.1244E-02,-1.6991E-02),
     &  ( 2.1331E-02,-1.6692E-02),( 2.1408E-02,-1.7071E-02),
     &  ( 2.1434E-02,-1.7066E-02),( 2.1520E-02,-1.7056E-02),
     &  ( 2.1721E-02,-1.7038E-02),( 2.1822E-02,-1.7029E-02),
     &  ( 2.1921E-02,-1.7021E-02),( 2.2115E-02,-1.7005E-02),
     &  ( 2.2304E-02,-1.6990E-02),( 2.2397E-02,-1.6983E-02),
     &  ( 2.2488E-02,-1.6976E-02),( 2.2578E-02,-1.6969E-02),
     &  ( 2.2667E-02,-1.6963E-02),( 2.2754E-02,-1.6957E-02),
     &  ( 2.2840E-02,-1.6951E-02),( 2.2925E-02,-1.6945E-02),
     &  ( 2.3009E-02,-1.6939E-02),( 2.3092E-02,-1.6934E-02),
     &  ( 2.3173E-02,-1.6928E-02),( 2.3254E-02,-1.6923E-02),
     &  ( 2.3333E-02,-1.6918E-02),( 2.3411E-02,-1.6913E-02),
     &  ( 2.3488E-02,-1.6908E-02),( 2.3564E-02,-1.6903E-02),
     &  ( 2.3639E-02,-1.6899E-02),( 2.3713E-02,-1.6894E-02),
     &  ( 2.3786E-02,-1.6890E-02),( 2.3858E-02,-1.6885E-02),
     &  ( 2.3929E-02,-1.6881E-02),( 2.3999E-02,-1.6877E-02),
     &  ( 2.4068E-02,-1.6873E-02),( 2.4136E-02,-1.6869E-02),
     &  ( 2.4202E-02,-1.6865E-02),( 2.4268E-02,-1.6862E-02),
     &  ( 2.4333E-02,-1.6858E-02),( 2.4397E-02,-1.6854E-02),
     &  ( 2.4459E-02,-1.6851E-02),( 2.4521E-02,-1.6847E-02),
     &  ( 2.4582E-02,-1.6844E-02),( 2.4641E-02,-1.6841E-02),
     &  ( 2.4700E-02,-1.6838E-02),( 2.4757E-02,-1.6834E-02),
     &  ( 2.4814E-02,-1.6831E-02),( 2.4858E-02,-1.6829E-02),
     &  ( 2.4923E-02,-1.6825E-02),( 2.5028E-02,-1.6819E-02),
     &  ( 2.5128E-02,-1.6814E-02),( 2.5223E-02,-1.6808E-02),
     &  ( 2.5312E-02,-1.6803E-02),( 2.5395E-02,-1.6798E-02),
     &  ( 2.5472E-02,-1.6793E-02),( 2.5541E-02,-1.6788E-02),
     &  ( 2.5602E-02,-1.6784E-02),( 2.5653E-02,-1.6779E-02),
     &  ( 2.5693E-02,-1.6775E-02),( 2.5717E-02,-1.6771E-02),
     &  ( 2.5723E-02,-1.6766E-02),( 2.5704E-02,-1.6762E-02),
     &  ( 2.5649E-02,-1.6759E-02),( 2.5640E-02,-1.6758E-02),
     &  ( 2.5537E-02,-1.6755E-02),( 2.5327E-02,-1.6751E-02),
     &  ( 2.4912E-02,-1.6748E-02),( 2.4201E-02,-1.6745E-02),
     &  ( 2.3903E-02,-1.6744E-02),( 2.2644E-02,-1.6742E-02),
     &  ( 2.0206E-02,-1.6741E-02),( 1.9041E-02,-1.6741E-02),
     &  ( 1.7368E-02,-1.6740E-02),( 1.6230E-02,-1.6740E-02)/

         DATA ((CGS  (I,J), I=1301,1400), J=1,1) /
     &  ( 1.4783E-02,-1.6740E-02),( 1.3314E-02,-1.6740E-02),
     &  ( 1.1450E-02,-1.6740E-02),( 1.0319E-02,-1.6740E-02),
     &  ( 9.0146E-03,-1.6740E-02),( 7.4970E-03,-1.6739E-02),
     &  ( 5.7110E-03,-1.6739E-02),( 3.5813E-03,-1.6739E-02),
     &  ( 1.0024E-03,-1.6739E-02),(-5.0056E-04,-1.6739E-02),
     &  (-2.1781E-03,-1.6739E-02),(-4.0613E-03,-1.6739E-02),
     &  (-6.1891E-03,-1.6739E-02),(-8.6107E-03,-1.6739E-02),
     &  (-1.1389E-02,-1.6739E-02),(-1.4607E-02,-1.6739E-02),
     &  (-1.8374E-02,-1.6739E-02),(-2.2838E-02,-1.6739E-02),
     &  (-2.4705E-02,-1.6739E-02),(-2.5879E-02,-1.6739E-02),
     &  (-2.7104E-02,-1.6739E-02),(-2.8383E-02,-1.6739E-02),
     &  (-2.9721E-02,-1.6739E-02),(-3.1120E-02,-1.6739E-02),
     &  (-3.2585E-02,-1.6739E-02),(-3.4122E-02,-1.6739E-02),
     &  (-3.5734E-02,-1.6739E-02),(-3.7429E-02,-1.6739E-02),
     &  (-3.9211E-02,-1.6739E-02),(-4.1088E-02,-1.6739E-02),
     &  (-4.3067E-02,-1.6739E-02),(-4.5158E-02,-1.6739E-02),
     &  (-4.7368E-02,-1.6739E-02),(-4.9710E-02,-1.6739E-02),
     &  (-5.2193E-02,-1.6739E-02),(-5.4832E-02,-1.6739E-02),
     &  (-5.7642E-02,-1.6739E-02),(-6.0638E-02,-1.6739E-02),
     &  (-6.3839E-02,-1.6739E-02),(-6.7268E-02,-1.6739E-02),
     &  (-7.0949E-02,-1.6739E-02),(-7.4910E-02,-1.6739E-02),
     &  (-7.9183E-02,-1.6739E-02),(-8.3806E-02,-1.6739E-02),
     &  (-8.8824E-02,-1.6739E-02),(-9.4288E-02,-1.6739E-02),
     &  (-1.0026E-01,-1.6739E-02),(-1.0681E-01,-1.6739E-02),
     &  (-1.1403E-01,-1.6739E-02),(-1.2202E-01,-1.6739E-02),
     &  (-1.3092E-01,-1.6739E-02),(-1.4087E-01,-1.6739E-02),
     &  (-1.5209E-01,-1.6739E-02),(-1.6482E-01,-1.6739E-02),
     &  (-1.7939E-01,-1.6739E-02),(-1.9621E-01,-1.6739E-02),
     &  (-2.1586E-01,-1.6739E-02),(-2.3910E-01,-1.6739E-02),
     &  (-2.6700E-01,-1.6739E-02),(-3.0109E-01,-1.6739E-02),
     &  (-3.4368E-01,-1.6739E-02),(-3.9837E-01,-1.6739E-02),
     &  (-4.7112E-01,-1.6739E-02),(-5.7253E-01,-1.6739E-02),
     &  (-7.2362E-01,-1.6739E-02),(-9.7244E-01,-1.6739E-02),
     &  (-1.4574E+00,-1.6739E-02),(-1.7443E+00,-1.6660E-02),
     &  (-3.6868E+00,-1.6660E-02),(-5.5131E+00,-4.6650E-01),
     &  (-5.5006E+00,-5.1035E-01),(-5.5648E+00,-5.3472E-01),
     &  (-5.7486E+00,-5.8906E-01),(-5.9830E+00,-6.5219E-01),
     &  (-6.2605E+00,-7.2630E-01),(-6.5793E+00,-8.1392E-01),
     &  (-6.9428E+00,-9.1846E-01),(-7.3542E+00,-1.0445E+00),
     &  (-7.8232E+00,-1.1981E+00),(-8.3529E+00,-1.3873E+00),
     &  (-8.9559E+00,-1.6244E+00),(-9.6476E+00,-1.9255E+00),
     &  (-1.0417E+01,-2.3144E+00),(-1.1288E+01,-2.8256E+00),
     &  (-1.2246E+01,-3.5100E+00),(-1.3248E+01,-4.4419E+00),
     &  (-1.3732E+01,-5.0313E+00),(-1.4119E+01,-5.7239E+00),
     &  (-1.4458E+01,-6.5392E+00),(-1.4736E+01,-7.4885E+00),
     &  (-1.4710E+01,-8.5877E+00),(-1.4888E+01,-9.8286E+00),
     &  (-1.3496E+01,-1.1187E+01),(-1.1991E+01,-1.2602E+01),
     &  (-9.7234E+00,-1.3948E+01),(-6.6575E+00,-1.5064E+01),
     &  (-2.9519E+00,-1.5764E+01),(-2.9519E+00,-1.5764E+01),
     &  (-2.3745E+00,-1.5822E+01),(-1.2038E+00,-1.5868E+01)/

         DATA ((CGS  (I,J), I=1401,1500), J=1,1) /
     &  (-1.2038E+00,-1.5901E+01),(-2.0945E-02,-1.5922E+01),
     &  (-2.0945E-02,-1.5930E+01),( 1.1627E+00,-1.5909E+01),
     &  ( 2.9152E+00,-1.5837E+01),( 2.9152E+00,-1.5782E+01),
     &  ( 4.0524E+00,-1.5638E+01),( 5.1532E+00,-1.5447E+01),
     &  ( 6.2182E+00,-1.5213E+01),( 7.2205E+00,-1.4942E+01),
     &  ( 8.1639E+00,-1.4638E+01),( 9.0439E+00,-1.4305E+01),
     &  ( 9.8572E+00,-1.3948E+01),( 1.1414E+01,-1.3094E+01),
     &  ( 1.3176E+01,-1.1690E+01),( 1.4242E+01,-1.0299E+01),
     &  ( 1.4760E+01,-9.0114E+00),( 1.4892E+01,-7.8596E+00),
     &  ( 1.4688E+01,-6.8591E+00),( 1.4383E+01,-5.9994E+00),
     &  ( 1.3996E+01,-5.2640E+00),( 1.3557E+01,-4.6399E+00),
     &  ( 1.3058E+01,-4.1073E+00),( 1.2556E+01,-3.6543E+00),
     &  ( 1.1586E+01,-2.9323E+00),( 1.0699E+01,-2.3948E+00),
     &  ( 9.9148E+00,-1.9872E+00),( 8.5894E+00,-1.4258E+00),
     &  ( 7.5671E+00,-1.0695E+00),( 6.7753E+00,-8.3112E-01),
     &  ( 6.4490E+00,-7.4078E-01),( 6.1646E+00,-6.6458E-01),
     &  ( 5.9222E+00,-5.9959E-01),( 5.7282E+00,-5.4380E-01),
     &  ( 5.6109E+00,-4.9559E-01),( 5.8315E+00,-4.5364E-01),
     &  ( 4.9283E+00,-1.6661E-02),( 4.2285E+00,-1.6661E-02),
     &  ( 1.8329E+00,-1.6661E-02),( 1.2016E+00,-1.6661E-02),
     &  ( 9.0162E-01,-1.6662E-02),( 7.2560E-01,-1.6662E-02),
     &  ( 6.0963E-01,-1.6662E-02),( 5.2736E-01,-1.6663E-02),
     &  ( 4.6589E-01,-1.6663E-02),( 4.1820E-01,-1.6664E-02),
     &  ( 3.8008E-01,-1.6664E-02),( 3.4889E-01,-1.6664E-02),
     &  ( 3.2289E-01,-1.6665E-02),( 3.0088E-01,-1.6665E-02),
     &  ( 2.8198E-01,-1.6665E-02),( 2.6558E-01,-1.6666E-02),
     &  ( 2.5120E-01,-1.6666E-02),( 2.3849E-01,-1.6667E-02),
     &  ( 2.2717E-01,-1.6667E-02),( 2.1702E-01,-1.6667E-02),
     &  ( 2.0786E-01,-1.6668E-02),( 1.9955E-01,-1.6668E-02),
     &  ( 1.9197E-01,-1.6668E-02),( 1.8504E-01,-1.6669E-02),
     &  ( 1.7867E-01,-1.6669E-02),( 1.7279E-01,-1.6669E-02),
     &  ( 1.6734E-01,-1.6670E-02),( 1.6229E-01,-1.6670E-02),
     &  ( 1.5758E-01,-1.6671E-02),( 1.5318E-01,-1.6671E-02),
     &  ( 1.4906E-01,-1.6671E-02),( 1.4519E-01,-1.6672E-02),
     &  ( 1.4156E-01,-1.6672E-02),( 1.3813E-01,-1.6672E-02),
     &  ( 1.3489E-01,-1.6673E-02),( 1.3183E-01,-1.6673E-02),
     &  ( 1.2893E-01,-1.6673E-02),( 1.2617E-01,-1.6674E-02),
     &  ( 1.2355E-01,-1.6674E-02),( 1.2106E-01,-1.6675E-02),
     &  ( 1.1868E-01,-1.6675E-02),( 1.1640E-01,-1.6675E-02),
     &  ( 1.1423E-01,-1.6676E-02),( 1.1215E-01,-1.6676E-02),
     &  ( 1.1016E-01,-1.6676E-02),( 1.0825E-01,-1.6677E-02),
     &  ( 1.0641E-01,-1.6677E-02),( 1.0465E-01,-1.6678E-02),
     &  ( 1.0295E-01,-1.6678E-02),( 1.0131E-01,-1.6678E-02),
     &  ( 9.9738E-02,-1.6679E-02),( 8.7591E-02,-1.6682E-02),
     &  ( 7.9844E-02,-1.6685E-02),( 7.2081E-02,-1.6688E-02),
     &  ( 6.2788E-02,-1.6693E-02),( 5.2980E-02,-1.6700E-02),
     &  ( 4.0772E-02,-1.6710E-02),( 3.5901E-02,-1.6718E-02),
     &  ( 2.9018E-02,-1.6724E-02),( 2.6457E-02,-1.6722E-02),
     &  ( 2.7984E-02,-1.6719E-02),( 2.8639E-02,-1.6715E-02),
     &  ( 2.8961E-02,-1.6711E-02),( 2.9112E-02,-1.6708E-02)/

         DATA ((CGS  (I,J), I=1501,1600), J=1,1) /
     &  ( 2.9165E-02,-1.6700E-02),( 2.9077E-02,-1.6693E-02),
     &  ( 2.8327E-02,-1.6556E-02),( 2.7195E-02,-1.6488E-02),
     &  ( 2.6269E-02,-1.6545E-02),( 2.4656E-02,-1.6406E-02),
     &  ( 2.2552E-02,-1.6497E-02),( 2.0086E-02,-1.6543E-02),
     &  ( 1.6901E-02,-1.6571E-02),( 1.2538E-02,-1.6589E-02),
     &  ( 1.6893E-03,-1.6575E-02),(-3.5650E-04,-1.6574E-02),
     &  (-2.7610E-03,-1.6573E-02),(-3.4568E-03,-1.6572E-02),
     &  (-5.0413E-03,-1.6572E-02),(-6.7993E-03,-1.6571E-02),
     &  (-8.7609E-03,-1.6570E-02),(-1.0964E-02,-1.6569E-02),
     &  (-1.3455E-02,-1.6569E-02),(-1.6296E-02,-1.6568E-02),
     &  (-1.9566E-02,-1.6567E-02),(-2.3369E-02,-1.6566E-02),
     &  (-2.7848E-02,-1.6566E-02),(-3.3200E-02,-1.6565E-02),
     &  (-3.9708E-02,-1.6564E-02),(-4.7793E-02,-1.6563E-02),
     &  (-5.8107E-02,-1.6563E-02),(-7.1720E-02,-1.6562E-02),
     &  (-9.0514E-02,-1.6561E-02),(-1.1815E-01,-1.6560E-02),
     &  (-1.6277E-01,-1.6560E-02),(-2.4703E-01,-1.6559E-02),
     &  (-3.5075E-01,-1.6559E-02),(-3.6721E-01,-1.6558E-02),
     &  (-3.8517E-01,-1.6558E-02),(-4.0486E-01,-1.6558E-02),
     &  (-4.2652E-01,-1.6558E-02),(-4.5047E-01,-1.6558E-02),
     &  (-4.7709E-01,-1.6558E-02),(-5.0687E-01,-1.6558E-02),
     &  (-4.2045E+00,-7.0399E-01),(-4.2801E+00,-7.7694E-01),
     &  (-4.4334E+00,-8.6220E-01),(-4.5271E+00,-9.1025E-01),
     &  (-4.6297E+00,-9.6222E-01),(-4.7419E+00,-1.0190E+00),
     &  (-4.8632E+00,-1.0811E+00),(-4.9934E+00,-1.1489E+00),
     &  (-5.1326E+00,-1.2231E+00),(-5.2823E+00,-1.3050E+00),
     &  (-5.4426E+00,-1.3953E+00),(-5.6139E+00,-1.4953E+00),
     &  (-5.7952E+00,-1.6058E+00),(-5.9926E+00,-1.7294E+00),
     &  (-6.2069E+00,-1.8676E+00),(-6.4341E+00,-2.0220E+00),
     &  (-6.6691E+00,-2.1968E+00),(-6.9281E+00,-2.3945E+00),
     &  (-7.2060E+00,-2.6193E+00),(-7.5098E+00,-2.8750E+00),
     &  (-7.8225E+00,-3.1697E+00),(-8.1647E+00,-3.5098E+00),
     &  (-8.5304E+00,-3.9044E+00),(-8.9178E+00,-4.3629E+00),
     &  (-9.3290E+00,-4.9030E+00),(-9.7592E+00,-5.5403E+00),
     &  (-1.0202E+01,-6.2962E+00),(-1.0644E+01,-7.1928E+00),
     &  (-1.1026E+01,-8.2684E+00),(-1.1373E+01,-9.5549E+00),
     &  (-1.1711E+01,-1.1082E+01),(-1.1799E+01,-1.2894E+01),
     &  (-1.1609E+01,-1.4997E+01),(-1.0997E+01,-1.7355E+01),
     &  (-9.7841E+00,-1.9843E+01),(-7.8270E+00,-2.2245E+01),
     &  (-4.6848E+00,-2.4198E+01),(-4.6848E+00,-2.4400E+01),
     &  (-3.3923E+00,-2.4586E+01),(-3.3923E+00,-2.4756E+01),
     &  (-3.3923E+00,-2.4909E+01),(-2.0299E+00,-2.5044E+01),
     &  (-2.0299E+00,-2.5161E+01),(-2.0299E+00,-2.5258E+01),
     &  (-6.3876E-01,-2.5337E+01),(-6.3876E-01,-2.5395E+01),
     &  (-6.3876E-01,-2.5432E+01),( 7.8110E-01,-2.5451E+01),
     &  ( 7.8110E-01,-2.5449E+01),( 7.8110E-01,-2.5426E+01),
     &  ( 2.1848E+00,-2.5384E+01),( 2.1848E+00,-2.5321E+01),
     &  ( 2.1848E+00,-2.5239E+01),( 3.5430E+00,-2.5137E+01),
     &  ( 3.5430E+00,-2.5016E+01),( 3.5430E+00,-2.4877E+01),
     &  ( 4.8295E+00,-2.4721E+01),( 4.8295E+00,-2.4547E+01),
     &  ( 4.8295E+00,-2.4357E+01),( 6.0227E+00,-2.4151E+01)/

         DATA ((CGS  (I,J), I=1601,1700), J=1,1) /
     &  ( 6.0227E+00,-2.3931E+01),( 6.0227E+00,-2.3697E+01),
     &  ( 8.5341E+00,-2.1572E+01),( 1.0259E+01,-1.9120E+01),
     &  ( 1.1287E+01,-1.6645E+01),( 1.1755E+01,-1.4354E+01),
     &  ( 1.1850E+01,-1.2335E+01),( 1.1633E+01,-1.0613E+01),
     &  ( 1.1331E+01,-9.1552E+00),( 1.0970E+01,-7.9341E+00),
     &  ( 1.0569E+01,-6.9133E+00),( 1.0126E+01,-6.0617E+00),
     &  ( 9.6859E+00,-5.3429E+00),( 9.2607E+00,-4.7361E+00),
     &  ( 8.8574E+00,-4.2229E+00),( 8.8195E+00,-3.7830E+00),
     &  ( 8.1163E+00,-3.4053E+00),( 7.7808E+00,-3.0793E+00),
     &  ( 7.4689E+00,-2.7975E+00),( 7.1768E+00,-2.5506E+00),
     &  ( 6.9045E+00,-2.3342E+00),( 6.6508E+00,-2.1436E+00),
     &  ( 6.4212E+00,-1.9756E+00),( 6.1967E+00,-1.8256E+00),
     &  ( 5.9872E+00,-1.6919E+00),( 5.7946E+00,-1.5722E+00),
     &  ( 5.6169E+00,-1.4650E+00),( 5.4486E+00,-1.3680E+00),
     &  ( 5.2915E+00,-1.2803E+00),( 5.1454E+00,-1.2010E+00),
     &  ( 5.0083E+00,-1.1285E+00),( 4.8809E+00,-1.0624E+00),
     &  ( 4.8856E+00,-1.0020E+00),( 4.6531E+00,-9.4678E-01),
     &  ( 4.5528E+00,-8.9584E-01),( 4.4620E+00,-8.4893E-01),
     &  ( 4.3824E+00,-8.0564E-01),( 4.3840E+00,-7.6576E-01),
     &  ( 4.2708E+00,-7.2866E-01),( 4.3844E+00,-6.6221E-01),
     &  ( 5.9440E-01,-1.6556E-02),( 3.8109E-01,-1.6556E-02),
     &  ( 2.5199E-01,-1.6555E-02),( 1.9189E-01,-1.6554E-02),
     &  ( 1.3447E-01,-1.6553E-02),( 1.0671E-01,-1.6552E-02),
     &  ( 9.0347E-02,-1.6550E-02),( 7.9553E-02,-1.6549E-02),
     &  ( 7.1900E-02,-1.6547E-02),( 6.6190E-02,-1.6546E-02),
     &  ( 6.1767E-02,-1.6544E-02),( 5.8238E-02,-1.6543E-02),
     &  ( 5.6241E-02,-1.6542E-02),( 5.3914E-02,-1.6540E-02),
     &  ( 5.1929E-02,-1.6539E-02),( 5.0215E-02,-1.6537E-02),
     &  ( 4.8720E-02,-1.6536E-02),( 4.7405E-02,-1.6535E-02),
     &  ( 4.2650E-02,-1.6528E-02),( 3.9675E-02,-1.6522E-02),
     &  ( 3.7634E-02,-1.6515E-02),( 3.6142E-02,-1.6509E-02),
     &  ( 3.5001E-02,-1.6502E-02),( 3.4083E-02,-1.6496E-02),
     &  ( 3.3356E-02,-1.6490E-02),( 3.2751E-02,-1.6483E-02),
     &  ( 2.7673E-02,-1.6388E-02),( 2.6280E-02,-1.6409E-02),
     &  ( 2.5929E-02,-1.6413E-02),( 2.5521E-02,-1.6417E-02),
     &  ( 2.5034E-02,-1.6422E-02),( 2.4428E-02,-1.6426E-02),
     &  ( 2.4062E-02,-1.6428E-02),( 2.3640E-02,-1.6430E-02),
     &  ( 2.2551E-02,-1.6469E-02),( 2.0908E-02,-1.6507E-02),
     &  ( 1.8042E-02,-1.6546E-02),( 1.1503E-02,-1.6585E-02),
     &  ( 5.2255E-03,-1.6601E-02),( 3.6006E-03,-1.6604E-02),
     &  ( 1.7240E-03,-1.6607E-02),(-4.6801E-04,-1.6610E-02),
     &  (-3.0625E-03,-1.6613E-02),(-6.1818E-03,-1.6616E-02),
     &  (-1.0004E-02,-1.6618E-02),(-1.4796E-02,-1.6621E-02),
     &  (-2.0983E-02,-1.6624E-02),(-2.9279E-02,-1.6627E-02),
     &  (-4.0984E-02,-1.6630E-02),(-5.8746E-02,-1.6633E-02),
     &  (-8.8911E-02,-1.6636E-02),(-9.4231E-02,-1.6636E-02),
     &  (-1.0006E-01,-1.6636E-02),(-1.0647E-01,-1.6637E-02),
     &  (-1.1357E-01,-1.6637E-02),(-1.2145E-01,-1.6637E-02),
     &  (-1.3027E-01,-1.6638E-02),(-1.4020E-01,-1.6638E-02),
     &  (-1.5145E-01,-1.6638E-02),(-1.6433E-01,-1.6639E-02)/

         DATA ((CGS  (I,J), I=1701,1800), J=1,1) /
     &  (-1.7921E-01,-1.6639E-02),(-1.9658E-01,-1.6639E-02),
     &  (-2.1715E-01,-1.6640E-02),(-2.4187E-01,-1.6640E-02),
     &  (-2.7214E-01,-1.6641E-02),(-3.1008E-01,-1.6641E-02),
     &  (-3.2216E-01,-1.6641E-02),(-3.5904E-01,-1.6641E-02),
     &  (-4.2460E-01,-1.6642E-02),(-5.1699E-01,-1.6642E-02),
     &  (-6.5697E-01,-1.6642E-02),(-8.9427E-01,-1.6643E-02),
     &  (-1.3864E+00,-1.6643E-02),(-3.0936E+00,-1.6643E-02),
     &  (-3.4183E+00,-1.6643E-02),(-4.9991E+00,-1.6643E-02),
     &  (-5.1020E+00,-8.8705E-01),(-5.1793E+00,-9.8719E-01),
     &  (-5.3755E+00,-1.1058E+00),(-5.6332E+00,-1.2473E+00),
     &  (-5.9418E+00,-1.4170E+00),(-6.3034E+00,-1.6244E+00),
     &  (-6.7221E+00,-1.8804E+00),(-7.2047E+00,-2.1997E+00),
     &  (-7.7645E+00,-2.6070E+00),(-8.4120E+00,-3.1346E+00),
     &  (-9.1670E+00,-3.8293E+00),(-1.0341E+01,-4.7705E+00),
     &  (-1.0486E+01,-5.3648E+00),(-1.0983E+01,-6.0723E+00),
     &  (-1.1495E+01,-6.9084E+00),(-1.2013E+01,-7.9074E+00),
     &  (-1.2520E+01,-9.1135E+00),(-1.2929E+01,-1.0554E+01),
     &  (-1.3260E+01,-1.2280E+01),(-1.3473E+01,-1.4348E+01),
     &  (-1.3309E+01,-1.6750E+01),(-1.2666E+01,-1.9468E+01),
     &  (-1.1319E+01,-2.2394E+01),(-9.1056E+00,-2.5219E+01),
     &  (-4.5356E+00,-2.7538E+01),(-4.5356E+00,-2.7781E+01),
     &  (-4.5356E+00,-2.7996E+01),(-4.5356E+00,-2.8193E+01),
     &  (-2.4740E+00,-2.8379E+01),(-2.4740E+00,-2.8537E+01),
     &  (-2.4740E+00,-2.8674E+01),(-2.4740E+00,-2.8796E+01),
     &  ( 1.8687E-01,-2.8891E+01),( 1.8687E-01,-2.8963E+01),
     &  ( 1.8687E-01,-2.9015E+01),( 1.8687E-01,-2.9042E+01),
     &  ( 1.8687E-01,-2.9047E+01),( 2.8642E+00,-2.9027E+01),
     &  ( 2.8642E+00,-2.8986E+01),( 2.8642E+00,-2.8922E+01),
     &  ( 2.8642E+00,-2.8832E+01),( 2.8642E+00,-2.8724E+01),
     &  ( 4.8800E+00,-2.8594E+01),( 4.8800E+00,-2.8437E+01),
     &  ( 4.8800E+00,-2.8266E+01),( 4.8800E+00,-2.8077E+01),
     &  ( 6.7266E+00,-2.7859E+01),( 6.7266E+00,-2.7633E+01),
     &  ( 6.7266E+00,-2.7391E+01),( 6.7266E+00,-2.7133E+01),
     &  ( 9.7005E+00,-2.4655E+01),( 1.1721E+01,-2.1783E+01),
     &  ( 1.2904E+01,-1.8879E+01),( 1.3431E+01,-1.6220E+01),
     &  ( 1.3519E+01,-1.3890E+01),( 1.3256E+01,-1.1894E+01),
     &  ( 1.2902E+01,-1.0231E+01),( 1.2473E+01,-8.8447E+00),
     &  ( 1.1961E+01,-7.6837E+00),( 1.1442E+01,-6.7215E+00),
     &  ( 1.0933E+01,-5.9154E+00),( 1.0441E+01,-5.2325E+00),
     &  ( 9.9770E+00,-4.6582E+00),( 9.5407E+00,-4.1688E+00),
     &  ( 8.7495E+00,-3.3858E+00),( 8.0638E+00,-2.7984E+00),
     &  ( 7.4753E+00,-2.3497E+00),( 6.9590E+00,-1.9980E+00),
     &  ( 6.5166E+00,-1.7189E+00),( 6.1342E+00,-1.4945E+00),
     &  ( 5.8046E+00,-1.3106E+00),( 5.5260E+00,-1.1586E+00),
     &  ( 5.3035E+00,-1.0320E+00),( 5.1635E+00,-9.2477E-01),
     &  ( 5.4641E+00,-8.3355E-01),( 8.9470E-01,-1.6645E-02),
     &  ( 6.8156E-01,-1.6645E-02),( 5.5265E-01,-1.6645E-02),
     &  ( 4.6624E-01,-1.6646E-02),( 4.0428E-01,-1.6646E-02),
     &  ( 3.5766E-01,-1.6647E-02),( 3.2131E-01,-1.6647E-02),
     &  ( 2.9218E-01,-1.6647E-02),( 2.6830E-01,-1.6648E-02)/

         DATA ((CGS  (I,J), I=1801,1900), J=1,1) /
     &  ( 2.4838E-01,-1.6648E-02),( 2.3151E-01,-1.6648E-02),
     &  ( 2.1703E-01,-1.6649E-02),( 2.0447E-01,-1.6649E-02),
     &  ( 1.9347E-01,-1.6649E-02),( 1.8376E-01,-1.6650E-02),
     &  ( 1.3395E-01,-1.6653E-02),( 1.0822E-01,-1.6655E-02),
     &  ( 9.2513E-02,-1.6658E-02),( 8.1922E-02,-1.6661E-02),
     &  ( 7.4297E-02,-1.6664E-02),( 6.8546E-02,-1.6667E-02),
     &  ( 6.4052E-02,-1.6670E-02),( 5.7483E-02,-1.6675E-02),
     &  ( 5.2911E-02,-1.6681E-02),( 5.1109E-02,-1.6684E-02),
     &  ( 4.9544E-02,-1.6687E-02),( 4.3895E-02,-1.6701E-02),
     &  ( 3.9734E-02,-1.6721E-02),( 3.7230E-02,-1.6740E-02),
     &  ( 3.5553E-02,-1.6760E-02),( 3.4348E-02,-1.6779E-02),
     &  ( 3.3438E-02,-1.6799E-02),( 3.2722E-02,-1.6818E-02),
     &  ( 3.2141E-02,-1.6819E-02),( 3.1659E-02,-1.6821E-02),
     &  ( 3.1249E-02,-1.6822E-02),( 3.0892E-02,-1.6823E-02),
     &  ( 3.0577E-02,-1.6824E-02),( 3.0295E-02,-1.6826E-02),
     &  ( 3.0038E-02,-1.6827E-02),( 2.9801E-02,-1.6828E-02),
     &  ( 2.9581E-02,-1.6830E-02),( 2.9372E-02,-1.6831E-02),
     &  ( 2.9173E-02,-1.6832E-02),( 2.8981E-02,-1.6834E-02),
     &  ( 2.8792E-02,-1.6835E-02),( 2.8606E-02,-1.6836E-02),
     &  ( 2.8418E-02,-1.6837E-02),( 2.4916E-02,-1.7669E-02),
     &  ( 2.4090E-02,-1.8312E-02),( 2.3299E-02,-1.8958E-02),
     &  ( 2.2549E-02,-1.9606E-02),( 2.1928E-02,-2.0255E-02),
     &  ( 2.1406E-02,-2.0903E-02),( 2.0961E-02,-2.1554E-02),
     &  ( 2.0583E-02,-2.2204E-02),( 2.0266E-02,-2.2850E-02),
     &  ( 2.0016E-02,-2.3497E-02),( 1.9812E-02,-2.4146E-02),
     &  ( 1.9649E-02,-2.4790E-02),( 1.9521E-02,-2.5429E-02),
     &  ( 1.9377E-02,-2.6066E-02),( 1.9322E-02,-2.6706E-02),
     &  ( 1.9303E-02,-2.7342E-02),( 1.9320E-02,-2.7965E-02),
     &  ( 1.9370E-02,-2.8587E-02),( 1.9455E-02,-2.9215E-02),
     &  ( 1.9252E-02,-2.9833E-02),( 1.9724E-02,-3.0432E-02),
     &  ( 1.9917E-02,-3.1047E-02),( 2.0141E-02,-3.1635E-02),
     &  ( 2.0410E-02,-3.2230E-02),( 2.0719E-02,-3.2814E-02),
     &  ( 2.1075E-02,-3.3395E-02),( 2.1481E-02,-3.3968E-02),
     &  ( 2.1938E-02,-3.4528E-02),( 2.2447E-02,-3.5066E-02),
     &  ( 2.3049E-02,-3.5609E-02),( 2.3737E-02,-3.6131E-02),
     &  ( 2.4531E-02,-3.6624E-02),( 2.5522E-02,-3.7099E-02),
     &  ( 2.6830E-02,-3.7521E-02),( 3.0028E-02,-3.7706E-02),
     &  ( 3.3052E-02,-3.6780E-02),( 3.4193E-02,-3.6095E-02),
     &  ( 3.5020E-02,-3.5446E-02),( 3.5660E-02,-3.4832E-02),
     &  ( 3.6197E-02,-3.4222E-02),( 3.6652E-02,-3.3617E-02),
     &  ( 3.7026E-02,-3.3040E-02),( 3.7352E-02,-3.2458E-02),
     &  ( 3.7631E-02,-3.1878E-02),( 3.7868E-02,-3.1302E-02),
     &  ( 3.8061E-02,-3.0735E-02),( 3.8222E-02,-3.0168E-02),
     &  ( 3.8737E-02,-2.9615E-02),( 3.8448E-02,-2.9044E-02),
     &  ( 3.8516E-02,-2.8494E-02),( 3.8558E-02,-2.7933E-02),
     &  ( 3.8573E-02,-2.7367E-02),( 3.8560E-02,-2.6811E-02),
     &  ( 3.8520E-02,-2.6258E-02),( 3.8405E-02,-2.5696E-02),
     &  ( 3.8305E-02,-2.5133E-02),( 3.8182E-02,-2.4576E-02),
     &  ( 3.8032E-02,-2.4017E-02),( 3.7832E-02,-2.3453E-02),
     &  ( 3.7609E-02,-2.2887E-02),( 3.7359E-02,-2.2326E-02)/

         DATA ((CGS  (I,J), I=1901,2000), J=1,1) /
     &  ( 3.7041E-02,-2.1756E-02),( 3.6674E-02,-2.1184E-02),
     &  ( 3.6248E-02,-2.0610E-02),( 3.5753E-02,-2.0035E-02),
     &  ( 3.5174E-02,-1.9455E-02),( 3.4468E-02,-1.8869E-02),
     &  ( 3.3596E-02,-1.8279E-02),( 3.2465E-02,-1.7683E-02),
     &  ( 2.9916E-02,-1.6893E-02),( 2.9780E-02,-1.6894E-02),
     &  ( 2.9261E-02,-1.6900E-02),( 2.8922E-02,-1.6904E-02),
     &  ( 2.8657E-02,-1.6907E-02),( 2.8427E-02,-1.6910E-02),
     &  ( 2.8211E-02,-1.6912E-02),( 2.7978E-02,-1.6914E-02),
     &  ( 2.7649E-02,-1.7210E-02),( 2.7678E-02,-1.7243E-02),
     &  ( 2.7594E-02,-1.7277E-02),( 2.7498E-02,-1.7312E-02),
     &  ( 2.7400E-02,-1.7348E-02),( 2.7302E-02,-1.7386E-02),
     &  ( 2.7203E-02,-1.7425E-02),( 2.7105E-02,-1.7465E-02),
     &  ( 2.7008E-02,-1.7508E-02),( 2.6911E-02,-1.7553E-02),
     &  ( 2.6813E-02,-1.7600E-02),( 2.6716E-02,-1.7650E-02),
     &  ( 2.6541E-02,-1.7704E-02),( 2.6514E-02,-1.7761E-02),
     &  ( 2.6410E-02,-1.7821E-02),( 2.6306E-02,-1.7887E-02),
     &  ( 2.6198E-02,-1.7958E-02),( 2.6086E-02,-1.8036E-02),
     &  ( 2.5970E-02,-1.8121E-02),( 2.5848E-02,-1.8216E-02),
     &  ( 2.5715E-02,-1.8322E-02),( 2.5583E-02,-1.8443E-02),
     &  ( 2.5436E-02,-1.8582E-02),( 2.5276E-02,-1.8747E-02),
     &  ( 2.5100E-02,-1.8947E-02),( 2.4899E-02,-1.9200E-02),
     &  ( 2.4662E-02,-1.9544E-02),( 2.4364E-02,-2.0077E-02),
     &  ( 2.3818E-02,-2.1949E-02),( 2.4117E-02,-2.4567E-02),
     &  ( 2.4798E-02,-2.5879E-02),( 2.5674E-02,-2.6842E-02),
     &  ( 2.6679E-02,-2.7507E-02),( 2.7748E-02,-2.7886E-02),
     &  ( 2.8823E-02,-2.7997E-02),( 2.9839E-02,-2.7869E-02),
     &  ( 3.0755E-02,-2.7544E-02),( 3.1548E-02,-2.7068E-02),
     &  ( 3.2201E-02,-2.6493E-02),( 3.2716E-02,-2.5860E-02),
     &  ( 3.3105E-02,-2.5202E-02),( 3.3379E-02,-2.4550E-02),
     &  ( 3.3555E-02,-2.3915E-02),( 3.3652E-02,-2.3309E-02),
     &  ( 3.3684E-02,-2.2747E-02),( 3.3664E-02,-2.2224E-02),
     &  ( 3.3580E-02,-2.1740E-02),( 3.3484E-02,-2.1301E-02),
     &  ( 3.3367E-02,-2.0898E-02),( 3.3232E-02,-2.0534E-02),
     &  ( 3.3081E-02,-2.0199E-02),( 3.2909E-02,-1.9898E-02),
     &  ( 3.2724E-02,-1.9622E-02),( 3.2531E-02,-1.9373E-02),
     &  ( 3.2324E-02,-1.9146E-02),( 3.2097E-02,-1.8938E-02),
     &  ( 3.1791E-02,-1.8749E-02),( 3.1667E-02,-1.8779E-02),
     &  ( 3.1503E-02,-1.8639E-02),( 3.1316E-02,-1.8515E-02),
     &  ( 3.1113E-02,-1.8407E-02),( 3.0872E-02,-1.8317E-02),
     &  ( 3.0674E-02,-1.8246E-02),( 3.0426E-02,-1.8196E-02),
     &  ( 2.8655E-02,-1.8766E-02),( 2.8536E-02,-1.8882E-02),
     &  ( 2.8421E-02,-1.9010E-02),( 2.8308E-02,-1.9153E-02),
     &  ( 2.8199E-02,-1.9311E-02),( 2.8096E-02,-1.9485E-02),
     &  ( 2.8007E-02,-1.9676E-02),( 2.7926E-02,-1.9886E-02),
     &  ( 2.7854E-02,-2.0117E-02),( 2.7794E-02,-2.0369E-02),
     &  ( 2.7760E-02,-2.0643E-02),( 2.7714E-02,-2.0939E-02),
     &  ( 2.7720E-02,-2.1257E-02),( 2.7759E-02,-2.1594E-02),
     &  ( 2.7837E-02,-2.1949E-02),( 2.7963E-02,-2.2318E-02),
     &  ( 2.8143E-02,-2.2690E-02),( 2.8388E-02,-2.3061E-02),
     &  ( 2.8716E-02,-2.3419E-02),( 2.9207E-02,-2.3745E-02)/

         DATA ((CGS  (I,J), I=2001,2100), J=1,1) /
     &  ( 2.9478E-02,-2.3727E-02),( 2.9850E-02,-2.3952E-02),
     &  ( 3.0301E-02,-2.4103E-02),( 3.0794E-02,-2.4165E-02),
     &  ( 3.1303E-02,-2.4131E-02),( 3.1808E-02,-2.3999E-02),
     &  ( 3.2280E-02,-2.3777E-02),( 3.2713E-02,-2.3470E-02),
     &  ( 3.3089E-02,-2.3092E-02),( 3.3397E-02,-2.2660E-02),
     &  ( 3.3631E-02,-2.2192E-02),( 3.3793E-02,-2.1693E-02),
     &  ( 3.3881E-02,-2.1173E-02),( 3.3895E-02,-2.0629E-02),
     &  ( 3.3806E-02,-2.0040E-02),( 3.3458E-02,-1.9042E-02),
     &  ( 3.3042E-02,-1.8428E-02),( 3.2876E-02,-1.8242E-02),
     &  ( 3.2838E-02,-1.8119E-02),( 3.2649E-02,-1.8026E-02),
     &  ( 3.2560E-02,-1.7950E-02),( 3.2483E-02,-1.7888E-02),
     &  ( 3.2411E-02,-1.7833E-02),( 3.2344E-02,-1.7786E-02),
     &  ( 3.2282E-02,-1.7744E-02),( 3.2225E-02,-1.7706E-02),
     &  ( 3.2170E-02,-1.7671E-02),( 3.2119E-02,-1.7640E-02),
     &  ( 3.2070E-02,-1.7610E-02),( 3.2023E-02,-1.7583E-02),
     &  ( 3.1977E-02,-1.7558E-02),( 3.1932E-02,-1.7534E-02),
     &  ( 3.1888E-02,-1.7512E-02),( 3.1899E-02,-1.7492E-02),
     &  ( 3.1806E-02,-1.7472E-02),( 3.1767E-02,-1.7453E-02),
     &  ( 3.1728E-02,-1.7435E-02),( 3.1690E-02,-1.7418E-02),
     &  ( 3.1652E-02,-1.7402E-02),( 3.1615E-02,-1.7386E-02),
     &  ( 3.1579E-02,-1.7371E-02),( 3.1543E-02,-1.7356E-02),
     &  ( 3.1508E-02,-1.7342E-02),( 3.1473E-02,-1.7329E-02),
     &  ( 3.1438E-02,-1.7316E-02),( 3.1404E-02,-1.7304E-02),
     &  ( 3.1400E-02,-1.7291E-02),( 3.1337E-02,-1.7280E-02),
     &  ( 3.1304E-02,-1.7268E-02),( 3.1272E-02,-1.7257E-02),
     &  ( 3.1241E-02,-1.7246E-02),( 3.1139E-02,-1.7201E-02),
     &  ( 3.0564E-02,-1.6995E-02),( 3.0230E-02,-1.7000E-02),
     &  ( 2.9997E-02,-1.7004E-02),( 2.9801E-02,-1.7009E-02),
     &  ( 2.9642E-02,-1.7013E-02),( 2.9491E-02,-1.7017E-02),
     &  ( 2.9361E-02,-1.7021E-02),( 2.9231E-02,-1.7026E-02),
     &  ( 2.9105E-02,-1.7030E-02),( 2.8985E-02,-1.7034E-02),
     &  ( 2.8856E-02,-1.7039E-02),( 2.8728E-02,-1.7043E-02),
     &  ( 2.8722E-02,-1.7047E-02),( 2.8717E-02,-1.7052E-02),
     &  ( 2.8712E-02,-1.7056E-02),( 2.8706E-02,-1.7060E-02),
     &  ( 2.8701E-02,-1.7065E-02),( 2.8696E-02,-1.7069E-02),
     &  ( 2.8690E-02,-1.7073E-02),( 2.8685E-02,-1.9642E-02),
     &  ( 2.8680E-02,-1.9640E-02),( 2.8674E-02,-1.9639E-02),
     &  ( 2.8668E-02,-1.9638E-02),( 2.8663E-02,-1.9636E-02),
     &  ( 2.8657E-02,-1.9635E-02),( 2.8652E-02,-1.9633E-02),
     &  ( 2.8767E-02,-1.9632E-02),( 2.8874E-02,-1.9630E-02),
     &  ( 2.8967E-02,-1.9629E-02),( 2.9056E-02,-1.9628E-02),
     &  ( 2.9135E-02,-1.9626E-02),( 2.9212E-02,-1.9625E-02),
     &  ( 2.9281E-02,-1.9624E-02),( 2.9349E-02,-1.9622E-02),
     &  ( 2.9414E-02,-1.9621E-02),( 2.9473E-02,-1.9620E-02),
     &  ( 2.9533E-02,-1.9618E-02),( 2.9587E-02,-1.9617E-02),
     &  ( 2.9642E-02,-1.9616E-02),( 2.9693E-02,-1.9614E-02),
     &  ( 2.9745E-02,-1.9613E-02),( 2.9793E-02,-1.9612E-02),
     &  ( 2.9842E-02,-1.9611E-02),( 2.9887E-02,-1.9609E-02),
     &  ( 2.9934E-02,-1.9608E-02),( 2.9977E-02,-1.9607E-02),
     &  ( 3.0020E-02,-1.9605E-02),( 3.0063E-02,-1.9604E-02)/

         DATA ((CGS  (I,J), I=2101,2193), J=1,1) /
     &  ( 3.0104E-02,-1.9603E-02),( 3.0146E-02,-1.9602E-02),
     &  ( 3.0185E-02,-1.9601E-02),( 3.0226E-02,-1.9599E-02),
     &  ( 3.0264E-02,-1.9598E-02),( 3.0303E-02,-1.9597E-02),
     &  ( 3.0340E-02,-1.9596E-02),( 3.0379E-02,-1.9594E-02),
     &  ( 3.0415E-02,-1.9593E-02),( 3.0452E-02,-1.9592E-02),
     &  ( 3.0489E-02,-1.9591E-02),( 3.0523E-02,-1.9590E-02),
     &  ( 3.0559E-02,-1.9588E-02),( 3.0593E-02,-1.9587E-02),
     &  ( 3.0628E-02,-1.9586E-02),( 3.0661E-02,-1.9585E-02),
     &  ( 3.0696E-02,-1.9584E-02),( 3.0728E-02,-1.9583E-02),
     &  ( 3.0762E-02,-1.9582E-02),( 3.0794E-02,-1.9580E-02),
     &  ( 3.0827E-02,-1.9579E-02),( 3.0859E-02,-1.9578E-02),
     &  ( 3.0890E-02,-1.9577E-02),( 3.0922E-02,-1.9576E-02),
     &  ( 3.0953E-02,-1.9575E-02),( 3.0985E-02,-1.9574E-02),
     &  ( 3.1015E-02,-1.9573E-02),( 3.1039E-02,-1.9571E-02),
     &  ( 3.1071E-02,-1.9570E-02),( 3.1102E-02,-1.9569E-02),
     &  ( 3.1132E-02,-1.9568E-02),( 3.1162E-02,-1.9567E-02),
     &  ( 3.1191E-02,-1.9566E-02),( 3.1222E-02,-1.9565E-02),
     &  ( 3.1252E-02,-1.9564E-02),( 3.1280E-02,-1.9563E-02),
     &  ( 3.1310E-02,-1.9562E-02),( 3.1338E-02,-1.9561E-02),
     &  ( 3.1369E-02,-1.9560E-02),( 3.1399E-02,-1.9559E-02),
     &  ( 3.1431E-02,-1.9558E-02),( 3.1461E-02,-1.9557E-02),
     &  ( 3.1492E-02,-1.9556E-02),( 3.1522E-02,-1.9555E-02),
     &  ( 3.1553E-02,-1.9554E-02),( 3.1583E-02,-1.9553E-02),
     &  ( 3.1614E-02,-1.9552E-02),( 3.1644E-02,-1.9551E-02),
     &  ( 3.1674E-02,-1.9550E-02),( 3.1706E-02,-1.9549E-02),
     &  ( 3.1736E-02,-1.9548E-02),( 3.1767E-02,-1.9547E-02),
     &  ( 3.1797E-02,-1.9546E-02),( 3.1828E-02,-1.9545E-02),
     &  ( 3.1858E-02,-1.9544E-02),( 3.1889E-02,-1.9543E-02),
     &  ( 3.1919E-02,-1.9542E-02),( 3.1951E-02,-1.9541E-02),
     &  ( 3.1981E-02,-1.9540E-02),( 3.2012E-02,-1.9539E-02),
     &  ( 3.2251E-02,-1.9529E-02),( 3.2491E-02,-1.9519E-02),
     &  ( 3.2532E-02,-1.9517E-02),( 3.4388E-02,-1.9454E-02),
     &  ( 3.5209E-02,-1.9429E-02),( 3.7345E-02,-1.9370E-02),
     &  ( 3.8753E-02,-1.9342E-02),( 3.8811E-02,-1.9341E-02),
     &  ( 4.0187E-02,-1.9308E-02),( 4.0192E-02,-1.9308E-02),
     &  ( 4.1382E-02,-1.9286E-02),( 4.1427E-02,-1.9285E-02),
     &  ( 4.1454E-02,-1.9285E-02),( 4.2047E-02,-1.9275E-02),
     &  ( 4.2440E-02,-1.9268E-02),( 4.2511E-02,-1.9267E-02),
     &  ( 4.2625E-02,-1.9265E-02),( 4.2796E-02,-1.9263E-02),
     &  ( 4.2917E-02,-1.9261E-02),( 4.2993E-02,-1.9260E-02),
     &  ( 4.3729E-02,-1.9249E-02),( 4.3767E-02,-1.9248E-02),
     &  ( 4.3990E-02,-1.9245E-02),( 4.4031E-02,-1.9245E-02),
     &  ( 4.4241E-02,-1.9242E-02),( 4.4324E-02,-1.9241E-02),
     &  ( 4.4391E-02,-1.9240E-02),( 4.4453E-02,-1.9240E-02),
     &  ( 4.4576E-02,-1.9238E-02),( 4.4765E-02,-1.9235E-02),
     &  ( 4.4860E-02,-1.9233E-02),( 4.5492E-02,-1.9226E-02),
     &  ( 4.6033E-02,-1.9219E-02)/

         DATA ((CGS  (I,J), I=   1, 100), J=2,2) /
     &  ( 2.2440E-06, 0.0000E+00),( 2.4662E-06, 6.7781E-08),
     &  ( 2.7523E-06, 4.2607E-07),( 3.1425E-06, 9.9581E-07),
     &  ( 3.7208E-06, 1.8998E-06),( 4.3182E-06, 3.0618E-06),
     &  ( 5.5010E-06, 4.4820E-06),( 4.9926E-06, 1.2607E-05),
     &  ( 5.5102E-06, 1.3693E-05),( 6.4385E-06, 1.4918E-05),
     &  ( 6.0907E-06, 1.6144E-05),( 6.4119E-06, 1.7408E-05),
     &  ( 6.6637E-06, 1.9110E-05),( 6.8316E-06, 2.0718E-05),
     &  ( 7.0905E-06, 2.3933E-05),( 8.0171E-06, 2.4269E-05),
     &  ( 8.1746E-06, 2.2819E-05),( 8.4886E-06, 2.4017E-05),
     &  ( 8.7002E-06, 2.5109E-05),( 9.0318E-06, 2.6475E-05),
     &  ( 8.5446E-06, 2.6559E-05),( 8.7885E-06, 2.6496E-05),
     &  ( 8.9719E-06, 2.6853E-05),( 9.2011E-06, 2.7862E-05),
     &  ( 9.3990E-06, 2.8618E-05),( 1.0316E-05, 2.9102E-05),
     &  ( 1.0623E-05, 2.9816E-05),( 1.0686E-05, 3.0613E-05),
     &  ( 1.0703E-05, 3.0993E-05),( 1.0907E-05, 3.1749E-05),
     &  ( 1.1237E-05, 3.1938E-05),( 1.1339E-05, 3.2232E-05),
     &  ( 1.1721E-05, 3.3094E-05),( 1.2101E-05, 3.4670E-05),
     &  ( 1.2514E-05, 3.6099E-05),( 1.2977E-05, 3.6708E-05),
     &  ( 1.3480E-05, 3.6918E-05),( 1.4201E-05, 3.7338E-05),
     &  ( 1.4839E-05, 3.8767E-05),( 1.5492E-05, 4.0112E-05),
     &  ( 1.6202E-05, 4.1078E-05),( 1.7070E-05, 4.2549E-05),
     &  ( 1.8081E-05, 4.4650E-05),( 1.9053E-05, 4.5470E-05),
     &  ( 2.0665E-05, 4.6717E-05),( 2.3119E-05, 4.7792E-05),
     &  ( 2.5067E-05, 4.8075E-05),( 2.5672E-05, 4.8454E-05),
     &  ( 2.5525E-05, 5.0166E-05),( 2.4848E-05, 5.6260E-05),
     &  ( 2.9994E-05, 6.1355E-05),( 3.5720E-05, 6.8919E-05),
     &  ( 3.8761E-05, 8.1684E-05),( 3.7135E-05, 8.8040E-05),
     &  ( 4.1686E-05, 8.4416E-05),( 4.0208E-05, 7.9635E-05),
     &  ( 4.0459E-05, 8.4153E-05),( 3.7197E-05, 8.9143E-05),
     &  ( 3.5632E-05, 9.0141E-05),( 3.5532E-05, 9.1402E-05),
     &  ( 3.6758E-05, 9.2715E-05),( 3.6523E-05, 9.5920E-05),
     &  ( 3.7287E-05, 9.3451E-05),( 3.7519E-05, 9.1087E-05),
     &  ( 3.9224E-05, 8.6202E-05),( 3.9724E-05, 1.0527E-04),
     &  ( 4.1010E-05, 1.2087E-04),( 4.4757E-05, 1.3416E-04),
     &  ( 4.6463E-05, 1.3358E-04),( 4.7123E-05, 1.3385E-04),
     &  ( 5.0913E-05, 1.4015E-04),( 4.8534E-05, 1.4446E-04),
     &  ( 4.9236E-05, 1.5228E-04),( 5.0962E-05, 1.6064E-04),
     &  ( 5.2853E-05, 1.7072E-04),( 5.4008E-05, 1.8307E-04),
     &  ( 5.3558E-05, 1.9278E-04),( 5.3523E-05, 2.0345E-04),
     &  ( 5.2676E-05, 2.4668E-04),( 1.3637E-04, 2.4526E-04),
     &  ( 1.1900E-04, 2.3969E-04),( 1.2268E-04, 2.4879E-04),
     &  ( 1.1492E-04, 2.4288E-04),( 1.1254E-04, 2.2716E-04),
     &  ( 9.8273E-05, 2.1150E-04),( 9.4917E-05, 2.2145E-04),
     &  ( 9.6468E-05, 2.7422E-04),( 8.7769E-05, 2.7195E-04),
     &  ( 8.7161E-05, 2.5784E-04),( 8.7047E-05, 2.5674E-04),
     &  ( 8.3380E-05, 2.5583E-04),( 8.3113E-05, 2.4683E-04),
     &  ( 7.9529E-05, 2.4432E-04),( 7.7789E-05, 2.4213E-04),
     &  ( 7.6238E-05, 2.4018E-04),( 7.3974E-05, 2.2807E-04),
     &  ( 7.3224E-05, 2.2629E-04),( 7.2462E-05, 2.2447E-04),
     &  ( 7.1745E-05, 2.2196E-04),( 7.1073E-05, 2.0383E-04)/

         DATA ((CGS  (I,J), I= 101, 200), J=2,2) /
     &  ( 7.0442E-05, 1.9840E-04),( 6.9871E-05, 1.9325E-04),
     &  ( 6.9394E-05, 1.8835E-04),( 6.9163E-05, 2.1135E-04),
     &  ( 6.9531E-05, 2.1186E-04),( 6.9095E-05, 2.1236E-04),
     &  ( 6.8395E-05, 2.1284E-04),( 6.7091E-05, 2.1332E-04),
     &  ( 6.5794E-05, 2.1380E-04),( 6.4503E-05, 2.1427E-04),
     &  ( 6.4145E-05, 2.1474E-04),( 6.2492E-05, 2.1522E-04),
     &  ( 6.0855E-05, 2.1572E-04),( 6.0355E-05, 2.4093E-04),
     &  ( 5.9816E-05, 2.4417E-04),( 5.9203E-05, 2.4785E-04),
     &  ( 5.8795E-05, 2.5242E-04),( 5.8661E-05, 2.6292E-04),
     &  ( 6.2821E-05, 1.6774E-04),( 6.6155E-05, 1.5829E-04),
     &  ( 6.9292E-05, 1.5069E-04),( 7.2868E-05, 1.4400E-04),
     &  ( 7.8033E-05, 1.3781E-04),( 8.6669E-05, 1.3192E-04),
     &  ( 1.0412E-04, 1.2624E-04),( 2.2323E-04, 1.8034E-04),
     &  ( 7.3583E-05, 1.8037E-04),( 6.0739E-05, 1.8039E-04),
     &  ( 6.4663E-05, 1.8042E-04),( 7.0268E-05, 1.8045E-04),
     &  ( 7.8738E-05, 1.8049E-04),( 7.8561E-05, 1.8052E-04),
     &  ( 8.0602E-05, 1.8055E-04),( 8.1217E-05, 1.8058E-04),
     &  ( 8.0892E-05, 1.8062E-04),( 7.9575E-05, 1.6580E-04),
     &  ( 7.5472E-05, 1.6402E-04),( 7.1113E-05, 1.6212E-04),
     &  ( 6.8400E-05, 1.6080E-04),( 6.6114E-05, 1.5937E-04),
     &  ( 6.4827E-05, 1.5788E-04),( 6.2105E-05, 1.5548E-04),
     &  ( 6.1057E-05, 1.5284E-04),( 6.0573E-05, 2.0904E-04),
     &  ( 6.0820E-05, 2.1782E-04),( 6.1727E-05, 2.2786E-04),
     &  ( 6.1558E-05, 2.3953E-04),( 6.4323E-05, 1.9591E-04),
     &  ( 6.5321E-05, 1.9307E-04),( 6.6873E-05, 1.7552E-04),
     &  ( 6.5188E-05, 1.7944E-04),( 6.8309E-05, 1.8051E-04),
     &  ( 6.9715E-05, 1.8099E-04),( 7.4130E-05, 1.7240E-04),
     &  ( 4.1891E-05, 1.7051E-04),( 3.9940E-05, 1.7729E-04),
     &  ( 3.8335E-05, 1.6368E-04),( 3.8648E-05, 1.5685E-04),
     &  ( 4.6385E-05, 1.5869E-04),( 4.4891E-05, 1.5344E-04),
     &  ( 4.3397E-05, 1.5094E-04),( 4.1706E-05, 1.3348E-04),
     &  ( 4.1510E-05, 1.3012E-04),( 3.9815E-05, 1.3521E-04),
     &  ( 4.0996E-05, 1.3143E-04),( 4.3110E-05, 1.2865E-04),
     &  ( 4.0957E-05, 1.2478E-04),( 4.0905E-05, 1.2607E-04),
     &  ( 3.8705E-05, 1.1961E-04),( 3.9295E-05, 1.1593E-04),
     &  ( 3.7865E-05, 1.0926E-04),( 3.6506E-05, 1.1079E-04),
     &  ( 3.5765E-05, 1.0453E-04),( 3.5023E-05, 1.0107E-04),
     &  ( 3.7093E-05, 9.8494E-05),( 3.8391E-05, 9.1927E-05),
     &  ( 3.5692E-05, 9.5079E-05),( 3.3770E-05, 9.4764E-05),
     &  ( 3.3851E-05, 9.7233E-05),( 3.3299E-05, 9.5289E-05),
     &  ( 3.2858E-05, 9.1822E-05),( 3.2704E-05, 9.2137E-05),
     &  ( 3.1520E-05, 8.9879E-05),( 3.0661E-05, 8.5204E-05),
     &  ( 3.0258E-05, 8.5466E-05),( 2.9509E-05, 8.8986E-05),
     &  ( 2.9880E-05, 8.5991E-05),( 2.8638E-05, 7.7061E-05),
     &  ( 2.9486E-05, 7.5433E-05),( 2.8180E-05, 7.6799E-05),
     &  ( 2.8252E-05, 7.6904E-05),( 2.8373E-05, 7.6326E-05),
     &  ( 2.9720E-05, 7.4487E-05),( 3.0712E-05, 7.1546E-05),
     &  ( 2.9289E-05, 7.4750E-05),( 2.8397E-05, 7.2964E-05),
     &  ( 2.6852E-05, 8.9879E-05),( 2.6981E-05, 8.2892E-05),
     &  ( 2.6070E-05, 8.4048E-05),( 2.4925E-05, 1.2872E-04)/

         DATA ((CGS  (I,J), I= 201, 300), J=2,2) /
     &  ( 4.8102E-05, 1.0065E-04),( 2.5945E-05, 9.2873E-05),
     &  ( 2.6042E-05, 9.1255E-05),( 2.6391E-05, 8.9721E-05),
     &  ( 2.7131E-05, 8.8250E-05),( 2.8361E-05, 8.6779E-05),
     &  ( 2.9644E-05, 8.8434E-05),( 2.9991E-05, 9.1339E-05),
     &  ( 2.9776E-05, 9.4244E-05),( 2.9747E-05, 9.2768E-05),
     &  ( 2.9873E-05, 9.0562E-05),( 3.0144E-05, 8.8355E-05),
     &  ( 3.0578E-05, 8.7399E-05),( 3.0543E-05, 8.5981E-05),
     &  ( 3.0386E-05, 8.4678E-05),( 3.0438E-05, 8.6149E-05),
     &  ( 3.0465E-05, 8.7620E-05),( 3.0475E-05, 8.7967E-05),
     &  ( 3.0546E-05, 8.5503E-05),( 3.0685E-05, 8.3039E-05),
     &  ( 3.0914E-05, 8.1978E-05),( 3.1283E-05, 8.2787E-05),
     &  ( 3.1873E-05, 8.3596E-05),( 3.2777E-05, 8.5183E-05),
     &  ( 3.4070E-05, 8.7352E-05),( 3.5712E-05, 8.9522E-05),
     &  ( 3.7545E-05, 9.5762E-05),( 3.8235E-05, 1.0617E-04),
     &  ( 3.6718E-05, 1.2293E-04),( 3.4422E-05, 1.3969E-04),
     &  ( 5.1271E-05, 1.4687E-04),( 4.9840E-05, 9.0944E-05),
     &  ( 4.6069E-05, 9.0894E-05),( 3.9085E-05, 9.1532E-05),
     &  ( 3.8153E-05, 9.3176E-05),( 3.8283E-05, 9.5503E-05),
     &  ( 5.3384E-05, 9.8930E-05),( 5.5644E-05, 1.0312E-04),
     &  ( 5.8312E-05, 1.0901E-04),( 6.1252E-05, 1.1789E-04),
     &  ( 6.4457E-05, 1.3236E-04),( 6.7859E-05, 1.4737E-04),
     &  ( 7.1324E-05, 1.6480E-04),( 7.4564E-05, 1.8459E-04),
     &  ( 7.7803E-05, 2.0433E-04),( 8.0756E-05, 2.1849E-04),
     &  ( 8.4462E-05, 2.3279E-04),( 8.9623E-05, 2.2736E-04),
     &  ( 9.7168E-05, 2.1240E-04),( 1.0693E-04, 1.9761E-04),
     &  ( 1.1548E-04, 1.8302E-04),( 1.1768E-04, 2.6289E-04),
     &  ( 1.2733E-04, 3.6624E-04),( 1.4608E-04, 4.7374E-04),
     &  ( 1.5360E-04, 4.9267E-04),( 1.6150E-04, 5.1162E-04),
     &  ( 1.6686E-04, 5.4390E-04),( 1.7516E-04, 5.8447E-04),
     &  ( 1.8479E-04, 6.4225E-04),( 1.8906E-04, 7.0076E-04),
     &  ( 1.8739E-04, 7.5870E-04),( 1.8210E-04, 8.1668E-04),
     &  ( 1.8091E-04, 8.9257E-04),( 1.8408E-04, 1.0273E-03),
     &  ( 1.8466E-04, 1.1621E-03),( 1.8525E-04, 1.2439E-03),
     &  ( 1.8784E-04, 1.3341E-03),( 1.8984E-04, 1.3744E-03),
     &  ( 1.8963E-04, 1.3533E-03),( 1.9135E-04, 1.3808E-03),
     &  ( 1.9098E-04, 1.4051E-03),( 1.9008E-04, 1.4243E-03),
     &  ( 1.9925E-04, 1.4095E-03),( 1.9744E-04, 1.3974E-03),
     &  ( 1.9161E-04, 1.4824E-03),( 1.9079E-04, 1.6225E-03),
     &  ( 1.9008E-04, 1.5924E-03),( 1.8929E-04, 1.4843E-03),
     &  ( 1.8800E-04, 1.4287E-03),( 1.8664E-04, 1.3724E-03),
     &  ( 1.8693E-04, 1.3167E-03),( 1.8947E-04, 1.2540E-03),
     &  ( 1.9129E-04, 1.1945E-03),( 1.9125E-04, 1.1363E-03),
     &  ( 1.9037E-04, 1.0775E-03),( 1.8802E-04, 1.0193E-03),
     &  ( 1.8428E-04, 9.2476E-04),( 1.8110E-04, 8.3346E-04),
     &  ( 1.7832E-04, 7.4668E-04),( 1.7479E-04, 6.8674E-04),
     &  ( 1.7107E-04, 6.4914E-04),( 1.6566E-04, 6.0900E-04),
     &  ( 1.6089E-04, 5.8226E-04),( 1.5783E-04, 5.6890E-04),
     &  ( 1.5301E-04, 5.4218E-04),( 1.4863E-04, 5.2247E-04),
     &  ( 1.4505E-04, 5.0594E-04),( 1.4550E-04, 4.8942E-04),
     &  ( 1.4151E-04, 4.7355E-04),( 1.3271E-04, 4.5705E-04)/

         DATA ((CGS  (I,J), I= 301, 400), J=2,2) /
     &  ( 1.2735E-04, 4.4119E-04),( 1.2507E-04, 4.2471E-04),
     &  ( 1.1969E-04, 4.0889E-04),( 1.1449E-04, 3.9244E-04),
     &  ( 1.0248E-04, 3.2965E-04),( 9.5375E-05, 2.6747E-04),
     &  ( 9.5241E-05, 2.0643E-04),( 9.0019E-05, 1.5420E-04),
     &  ( 8.3086E-05, 1.3484E-04),( 7.6072E-05, 1.2645E-04),
     &  ( 7.0286E-05, 1.1886E-04),( 6.5805E-05, 1.1159E-04),
     &  ( 6.2219E-05, 1.0469E-04),( 5.9243E-05, 9.7828E-05),
     &  ( 5.6736E-05, 9.1985E-05),( 5.4591E-05, 8.6816E-05),
     &  ( 5.2734E-05, 8.3091E-05),( 5.1149E-05, 8.1497E-05),
     &  ( 4.9850E-05, 7.9941E-05),( 4.8868E-05, 7.8374E-05),
     &  ( 4.1756E-05, 7.7152E-05),( 4.2738E-05, 7.5886E-05),
     &  ( 4.4602E-05, 7.4803E-05),( 4.8501E-05, 7.4010E-05),
     &  ( 6.0256E-05, 7.3215E-05),( 1.0269E-04, 7.2845E-05),
     &  ( 9.4953E-05, 1.4341E-04),( 5.2303E-05, 1.4107E-04),
     &  ( 4.5151E-05, 1.3689E-04),( 4.0715E-05, 1.3270E-04),
     &  ( 3.8352E-05, 1.2852E-04),( 3.6725E-05, 1.2433E-04),
     &  ( 3.5759E-05, 1.2015E-04),( 3.5168E-05, 1.1596E-04),
     &  ( 3.4843E-05, 1.1232E-04),( 3.4719E-05, 1.0939E-04),
     &  ( 3.4756E-05, 1.0646E-04),( 3.4926E-05, 1.0354E-04),
     &  ( 3.5210E-05, 1.0061E-04),( 3.5598E-05, 9.7687E-05),
     &  ( 3.6082E-05, 9.4762E-05),( 3.6536E-05, 9.3970E-05),
     &  ( 3.6842E-05, 9.4867E-05),( 3.7368E-05, 9.5764E-05),
     &  ( 3.7615E-05, 9.6661E-05),( 3.7311E-05, 9.7559E-05),
     &  ( 3.7140E-05, 9.8456E-05),( 3.7131E-05, 9.9353E-05),
     &  ( 3.7312E-05, 1.0006E-04),( 3.7721E-05, 9.9601E-05),
     &  ( 3.8393E-05, 9.9146E-05),( 3.8813E-05, 9.8690E-05),
     &  ( 3.7973E-05, 9.8235E-05),( 3.7161E-05, 9.7779E-05),
     &  ( 3.6386E-05, 9.7324E-05),( 3.5656E-05, 1.0334E-04),
     &  ( 3.3941E-05, 1.2901E-04),( 3.4663E-05, 1.2660E-04),
     &  ( 3.5903E-05, 1.2040E-04),( 4.1704E-05, 9.5604E-05),
     &  ( 4.0900E-05, 9.0141E-05),( 3.9899E-05, 8.4573E-05),
     &  ( 3.8769E-05, 8.4258E-05),( 3.8589E-05, 8.1947E-05),
     &  ( 3.5890E-05, 7.7219E-05),( 3.4968E-05, 7.7009E-05),
     &  ( 3.1693E-05, 8.4258E-05),( 3.5001E-05, 7.3542E-05),
     &  ( 3.4547E-05, 7.4277E-05),( 3.2657E-05, 7.0390E-05),
     &  ( 3.2693E-05, 7.1966E-05),( 3.1687E-05, 7.1861E-05),
     &  ( 3.1352E-05, 6.6398E-05),( 3.1778E-05, 6.5242E-05),
     &  ( 2.9470E-05, 6.5662E-05),( 3.1420E-05, 6.3981E-05),
     &  ( 2.9343E-05, 6.4927E-05),( 2.9941E-05, 6.3351E-05),
     &  ( 2.9221E-05, 6.3456E-05),( 3.0474E-05, 6.2931E-05),
     &  ( 2.8207E-05, 6.4507E-05),( 3.0044E-05, 6.4297E-05),
     &  ( 2.7672E-05, 6.2406E-05),( 2.9333E-05, 6.0199E-05),
     &  ( 2.8539E-05, 5.9989E-05),( 2.8588E-05, 5.9464E-05),
     &  ( 2.9483E-05, 6.0304E-05),( 2.7731E-05, 6.0725E-05),
     &  ( 2.9820E-05, 6.0725E-05),( 2.8523E-05, 5.8623E-05),
     &  ( 2.8613E-05, 6.0514E-05),( 3.0005E-05, 6.1985E-05),
     &  ( 2.9388E-05, 6.1565E-05),( 3.2864E-05, 6.0409E-05),
     &  ( 3.0968E-05, 6.1880E-05),( 3.3184E-05, 6.5032E-05),
     &  ( 3.3162E-05, 6.9340E-05),( 3.7824E-05, 7.9740E-05),
     &  ( 3.7057E-05, 7.9635E-05),( 3.6222E-05, 7.8795E-05)/

         DATA ((CGS  (I,J), I= 401, 500), J=2,2) /
     &  ( 3.7934E-05, 9.5402E-05),( 4.2814E-05, 1.0186E-04),
     &  ( 4.5147E-05, 1.0449E-04),( 4.1769E-05, 1.0597E-04),
     &  ( 4.0502E-05, 1.0653E-04),( 4.2151E-05, 1.1021E-04),
     &  ( 4.5189E-05, 1.1152E-04),( 4.7724E-05, 1.1231E-04),
     &  ( 4.7947E-05, 1.1329E-04),( 4.5479E-05, 1.1510E-04),
     &  ( 4.7591E-05, 1.1625E-04),( 4.7768E-05, 1.1758E-04),
     &  ( 4.9269E-05, 1.1787E-04),( 5.4974E-05, 1.2045E-04),
     &  ( 5.3433E-05, 1.2074E-04),( 4.9563E-05, 1.2217E-04),
     &  ( 5.1258E-05, 1.2332E-04),( 4.7469E-05, 1.2619E-04),
     &  ( 4.8000E-05, 1.2660E-04),( 5.3015E-05, 1.3122E-04),
     &  ( 5.3865E-05, 1.3162E-04),( 5.5378E-05, 1.3203E-04),
     &  ( 5.7547E-05, 1.3605E-04),( 5.5305E-05, 1.4008E-04),
     &  ( 5.3020E-05, 1.4089E-04),( 5.5120E-05, 1.4622E-04),
     &  ( 5.5148E-05, 1.4666E-04),( 6.1607E-05, 1.4785E-04),
     &  ( 6.1706E-05, 1.4808E-04),( 5.9998E-05, 1.4950E-04),
     &  ( 6.3260E-05, 1.5040E-04),( 5.9287E-05, 1.5308E-04),
     &  ( 6.0655E-05, 1.5338E-04),( 6.2515E-05, 1.5636E-04),
     &  ( 6.6107E-05, 1.5928E-04),( 6.1446E-05, 1.6094E-04),
     &  ( 6.1629E-05, 1.6127E-04),( 5.9623E-05, 1.7219E-04),
     &  ( 6.2432E-05, 1.7301E-04),( 6.8780E-05, 1.7708E-04),
     &  ( 6.7400E-05, 1.7994E-04),( 6.8798E-05, 1.8116E-04),
     &  ( 6.6489E-05, 1.8198E-04),( 6.6946E-05, 1.8238E-04),
     &  ( 6.5029E-05, 1.8317E-04),( 6.4135E-05, 1.8333E-04),
     &  ( 7.3089E-05, 1.8537E-04),( 6.7913E-05, 1.8740E-04),
     &  ( 7.1578E-05, 1.8763E-04),( 6.4553E-05, 1.8706E-04),
     &  ( 7.3957E-05, 1.8649E-04),( 7.3601E-05, 1.8638E-04),
     &  ( 7.3918E-05, 1.8666E-04),( 7.5199E-05, 1.8836E-04),
     &  ( 7.0038E-05, 1.8920E-04),( 6.4545E-05, 1.9005E-04),
     &  ( 6.2381E-05, 1.8710E-04),( 6.5134E-05, 1.8623E-04),
     &  ( 7.1202E-05, 1.8364E-04),( 7.2041E-05, 1.8191E-04),
     &  ( 7.1766E-05, 1.7932E-04),( 7.0613E-05, 1.7888E-04),
     &  ( 7.0905E-05, 1.7759E-04),( 6.8950E-05, 1.7672E-04),
     &  ( 7.0097E-05, 1.7635E-04),( 7.0159E-05, 1.7666E-04),
     &  ( 6.7589E-05, 1.7703E-04),( 7.0135E-05, 1.7809E-04),
     &  ( 7.4967E-05, 1.7879E-04),( 7.2007E-05, 1.7630E-04),
     &  ( 7.3454E-05, 1.7603E-04),( 7.3683E-05, 1.7272E-04),
     &  ( 7.9392E-05, 1.7357E-04),( 8.3230E-05, 1.7429E-04),
     &  ( 8.3898E-05, 1.7413E-04),( 9.1305E-05, 1.7280E-04),
     &  ( 9.4290E-05, 1.7263E-04),( 9.0750E-05, 1.7582E-04),
     &  ( 9.6258E-05, 2.0044E-04),( 9.1374E-05, 2.4265E-04),
     &  ( 8.9679E-05, 2.4968E-04),( 1.0646E-04, 2.5868E-04),
     &  ( 1.1708E-04, 2.5812E-04),( 1.1757E-04, 2.5775E-04),
     &  ( 1.0190E-04, 2.5791E-04),( 1.0946E-04, 2.5782E-04),
     &  ( 1.1542E-04, 2.5740E-04),( 1.2140E-04, 2.5659E-04),
     &  ( 1.1202E-04, 2.5530E-04),( 1.1390E-04, 2.5339E-04),
     &  ( 1.1428E-04, 2.4862E-04),( 1.1512E-04, 2.4766E-04),
     &  ( 1.1945E-04, 2.4384E-04),( 1.1938E-04, 2.3907E-04),
     &  ( 1.1225E-04, 2.3430E-04),( 1.0953E-04, 2.3239E-04),
     &  ( 1.2784E-04, 2.1007E-04),( 1.4979E-04, 1.9755E-04),
     &  ( 1.5324E-04, 2.1200E-04),( 1.8554E-04, 2.4452E-04)/

         DATA ((CGS  (I,J), I= 501, 600), J=2,2) /
     &  ( 1.9249E-04, 2.4689E-04),( 1.7759E-04, 2.1537E-04),
     &  ( 1.5679E-04, 2.1012E-04),( 1.5320E-04, 1.0506E-04),
     &  ( 1.1364E-04, 1.0576E-04),( 1.1287E-04, 1.0742E-04),
     &  ( 1.1113E-04, 1.1557E-04),( 9.3972E-05, 9.9807E-05),
     &  ( 8.3605E-05, 8.4048E-05),( 7.8733E-05, 8.4048E-05),
     &  ( 7.7034E-05, 8.4048E-05),( 7.6057E-05, 8.4048E-05),
     &  ( 7.5354E-05, 8.4048E-05),( 7.4717E-05, 8.4048E-05),
     &  ( 7.3898E-05, 8.4048E-05),( 7.1952E-05, 8.4048E-05),
     &  ( 6.2173E-05, 8.4048E-05),( 6.4742E-05, 8.3523E-05),
     &  ( 5.6878E-05, 8.2997E-05),( 5.3025E-05, 8.2472E-05),
     &  ( 5.0482E-05, 8.1947E-05),( 4.8234E-05, 8.1421E-05),
     &  ( 4.4671E-05, 8.0896E-05),( 4.4280E-05, 8.0371E-05),
     &  ( 4.3351E-05, 8.0266E-05),( 4.3170E-05, 8.0161E-05),
     &  ( 4.3503E-05, 8.0056E-05),( 4.4226E-05, 7.9951E-05),
     &  ( 4.5301E-05, 7.9845E-05),( 4.3506E-05, 7.9740E-05),
     &  ( 4.2064E-05, 7.9635E-05),( 4.1005E-05, 7.9530E-05),
     &  ( 4.0460E-05, 7.9425E-05),( 3.9876E-05, 7.9320E-05),
     &  ( 3.7335E-05, 7.8847E-05),( 3.7488E-05, 7.9545E-05),
     &  ( 3.8533E-05, 7.9996E-05),( 3.8335E-05, 8.0296E-05),
     &  ( 3.7953E-05, 8.0596E-05),( 3.8108E-05, 8.0896E-05),
     &  ( 3.7897E-05, 8.1196E-05),( 3.7623E-05, 8.1496E-05),
     &  ( 3.7151E-05, 8.1797E-05),( 3.6876E-05, 8.1947E-05),
     &  ( 3.6785E-05, 8.2097E-05),( 3.6549E-05, 8.2247E-05),
     &  ( 3.6493E-05, 8.2397E-05),( 3.6285E-05, 8.2547E-05),
     &  ( 3.6254E-05, 8.2697E-05),( 3.6066E-05, 8.2847E-05),
     &  ( 3.6054E-05, 8.2997E-05),( 3.5880E-05, 8.3147E-05),
     &  ( 3.5883E-05, 8.3297E-05),( 3.5720E-05, 8.3448E-05),
     &  ( 3.5575E-05, 8.3598E-05),( 3.5444E-05, 8.3748E-05),
     &  ( 3.5326E-05, 8.3898E-05),( 3.5218E-05, 8.4048E-05),
     &  ( 3.5118E-05, 8.4398E-05),( 3.5024E-05, 8.4748E-05),
     &  ( 3.4936E-05, 8.5098E-05),( 3.4853E-05, 8.5449E-05),
     &  ( 3.4773E-05, 8.5799E-05),( 3.4697E-05, 8.6149E-05),
     &  ( 3.4623E-05, 8.6499E-05),( 3.4552E-05, 8.6849E-05),
     &  ( 3.4482E-05, 8.7200E-05),( 3.4412E-05, 8.7550E-05),
     &  ( 3.4343E-05, 8.7900E-05),( 3.4272E-05, 8.8250E-05),
     &  ( 3.4200E-05, 8.8600E-05),( 3.4123E-05, 8.8951E-05),
     &  ( 3.4040E-05, 8.9301E-05),( 3.4013E-05, 8.9301E-05),
     &  ( 3.3989E-05, 8.9301E-05),( 3.3967E-05, 8.9301E-05),
     &  ( 3.3948E-05, 8.9301E-05),( 3.3931E-05, 8.9301E-05),
     &  ( 3.3917E-05, 8.9301E-05),( 3.3905E-05, 8.9301E-05),
     &  ( 3.3895E-05, 8.9301E-05),( 3.3888E-05, 8.9301E-05),
     &  ( 3.3883E-05, 8.9301E-05),( 3.3853E-05, 8.9170E-05),
     &  ( 3.3880E-05, 8.9038E-05),( 3.3850E-05, 8.8907E-05),
     &  ( 3.3879E-05, 8.8776E-05),( 3.3850E-05, 8.8644E-05),
     &  ( 3.3879E-05, 8.8513E-05),( 3.3851E-05, 8.8382E-05),
     &  ( 3.3881E-05, 8.8250E-05),( 3.3854E-05, 8.8119E-05),
     &  ( 3.3885E-05, 8.7988E-05),( 3.3859E-05, 8.7856E-05),
     &  ( 3.3892E-05, 8.7725E-05),( 3.3867E-05, 8.7594E-05),
     &  ( 3.3901E-05, 8.7462E-05),( 3.3878E-05, 8.7331E-05),
     &  ( 3.3913E-05, 8.7200E-05),( 3.3891E-05, 8.7068E-05)/

         DATA ((CGS  (I,J), I= 601, 700), J=2,2) /
     &  ( 3.3928E-05, 8.6937E-05),( 3.3887E-05, 8.6806E-05),
     &  ( 3.3936E-05, 8.6674E-05),( 3.3917E-05, 8.6543E-05),
     &  ( 3.3902E-05, 8.6412E-05),( 3.3890E-05, 8.6280E-05),
     &  ( 3.3880E-05, 8.6149E-05),( 3.3874E-05, 8.6018E-05),
     &  ( 3.3870E-05, 8.5886E-05),( 3.3869E-05, 8.5755E-05),
     &  ( 3.3871E-05, 8.5624E-05),( 3.3875E-05, 8.5492E-05),
     &  ( 3.3883E-05, 8.5361E-05),( 3.3893E-05, 8.5230E-05),
     &  ( 3.3894E-05, 8.5098E-05),( 3.3869E-05, 8.4967E-05),
     &  ( 3.3873E-05, 8.4836E-05),( 3.3848E-05, 8.4705E-05),
     &  ( 3.3854E-05, 8.4573E-05),( 3.3829E-05, 8.4442E-05),
     &  ( 3.3837E-05, 8.4311E-05),( 3.3809E-05, 8.4127E-05),
     &  ( 3.3822E-05, 8.4048E-05),( 3.3796E-05, 8.4048E-05),
     &  ( 3.3808E-05, 8.4048E-05),( 3.3781E-05, 8.4048E-05),
     &  ( 3.3794E-05, 8.4048E-05),( 3.3766E-05, 8.4048E-05),
     &  ( 3.3780E-05, 8.4048E-05),( 3.3750E-05, 8.4048E-05),
     &  ( 3.3764E-05, 8.4048E-05),( 3.3731E-05, 8.4048E-05),
     &  ( 3.3745E-05, 8.4048E-05),( 3.3710E-05, 8.4048E-05),
     &  ( 3.3709E-05, 8.4048E-05),( 3.3788E-05, 8.4048E-05),
     &  ( 3.3886E-05, 8.4048E-05),( 3.3899E-05, 8.4048E-05),
     &  ( 3.3923E-05, 8.4048E-05),( 3.3935E-05, 8.4048E-05),
     &  ( 3.3952E-05, 8.4048E-05),( 3.3966E-05, 8.4048E-05),
     &  ( 3.3982E-05, 7.5892E-04),( 3.3999E-05, 1.7677E-03),
     &  ( 3.4008E-05, 7.9692E-03),( 3.4005E-05, 8.9318E-03),
     &  ( 3.4002E-05, 1.0080E-02),( 3.4001E-05, 1.1464E-02),
     &  ( 3.4000E-05, 1.3153E-02),( 3.4001E-05, 1.5244E-02),
     &  ( 3.4002E-05, 1.7876E-02),( 3.4005E-05, 2.1251E-02),
     &  ( 3.4008E-05, 2.5677E-02),( 3.4013E-05, 3.1638E-02),
     &  ( 3.4018E-05, 3.9933E-02),( 3.4025E-05, 5.1950E-02),
     &  ( 3.4032E-05, 7.0276E-02),( 3.4040E-05, 1.0018E-01),
     &  ( 3.4041E-05, 1.0417E-01),( 3.4056E-05, 2.2052E-01),
     &  ( 3.4064E-05, 3.4478E-01),( 3.4069E-05, 4.7649E-01),
     &  ( 3.4073E-05, 6.2130E-01),( 3.4076E-05, 7.5809E-01),
     &  ( 3.4078E-05, 9.0149E-01),( 3.4080E-05, 1.0380E+00),
     &  ( 3.4081E-05, 1.2011E+00),( 3.4083E-05, 1.3361E+00),
     &  ( 3.4084E-05, 1.4881E+00),( 3.4085E-05, 1.6222E+00),
     &  ( 3.4086E-05, 1.7674E+00),( 3.4087E-05, 1.8831E+00),
     &  ( 3.4088E-05, 2.0448E+00),( 3.4088E-05, 2.1281E+00),
     &  ( 3.4089E-05, 2.2548E+00),( 3.4090E-05, 2.3816E+00),
     &  ( 3.4091E-05, 2.4650E+00),( 3.4091E-05, 2.5861E+00),
     &  ( 3.4092E-05, 2.6626E+00),( 3.4092E-05, 2.7346E+00),
     &  ( 3.4091E-05, 2.8008E+00),( 3.4091E-05, 2.8601E+00),
     &  ( 3.4091E-05, 2.9116E+00),( 3.4091E-05, 2.9541E+00),
     &  ( 3.4090E-05, 2.9868E+00),( 3.4090E-05, 3.0090E+00),
     &  ( 3.4090E-05, 3.0202E+00),( 3.4090E-05, 3.0202E+00),
     &  ( 3.4089E-05, 2.9993E+00),( 3.4089E-05, 2.9717E+00),
     &  ( 3.4089E-05, 2.9116E+00),( 3.4088E-05, 2.8315E+00),
     &  ( 3.4087E-05, 2.5465E+00),( 3.4086E-05, 2.2125E+00),
     &  ( 3.4086E-05, 2.0864E+00),( 3.4086E-05, 1.9631E+00),
     &  ( 3.4085E-05, 1.8832E+00),( 3.4085E-05, 1.7676E+00),
     &  ( 3.4085E-05, 1.6937E+00),( 3.4085E-05, 1.6224E+00)/

         DATA ((CGS  (I,J), I= 701, 800), J=2,2) /
     &  ( 3.4085E-05, 1.5539E+00),( 3.4084E-05, 1.4882E+00),
     &  ( 3.4084E-05, 1.4254E+00),( 3.4084E-05, 1.3653E+00),
     &  ( 3.4083E-05, 1.3079E+00),( 3.4083E-05, 1.2533E+00),
     &  ( 3.4083E-05, 1.2012E+00),( 3.4083E-05, 1.1517E+00),
     &  ( 3.4083E-05, 1.0819E+00),( 3.4083E-05, 1.0382E+00),
     &  ( 3.4082E-05, 9.7666E-01),( 3.4082E-05, 9.1968E-01),
     &  ( 3.4082E-05, 8.8403E-01),( 3.4081E-05, 8.1795E-01),
     &  ( 3.4081E-05, 7.7259E-01),( 3.4080E-05, 7.1717E-01),
     &  ( 3.4080E-05, 6.6696E-01),( 3.4080E-05, 6.1069E-01),
     &  ( 3.4079E-05, 5.6074E-01),( 3.4079E-05, 4.9987E-01),
     &  ( 3.4078E-05, 4.4786E-01),( 3.4077E-05, 3.9158E-01),
     &  ( 3.4076E-05, 3.3558E-01),( 3.4075E-05, 2.7274E-01),
     &  ( 3.4074E-05, 2.1099E-01),( 3.4072E-05, 1.4668E-01),
     &  ( 3.4070E-05, 1.0023E-01),( 3.4069E-05, 7.0318E-02),
     &  ( 3.4070E-05, 5.1985E-02),( 3.4071E-05, 3.9964E-02),
     &  ( 3.4073E-05, 3.1666E-02),( 3.4076E-05, 2.5702E-02),
     &  ( 3.4080E-05, 2.1274E-02),( 3.4085E-05, 1.7897E-02),
     &  ( 3.4091E-05, 1.5264E-02),( 3.4098E-05, 1.3171E-02),
     &  ( 3.4106E-05, 1.1480E-02),( 3.4115E-05, 1.0095E-02),
     &  ( 3.4125E-05, 8.9465E-03),( 3.4136E-05, 7.9831E-03),
     &  ( 3.4148E-05, 7.1673E-03),( 3.4159E-05, 6.4704E-03),
     &  ( 3.4162E-05, 5.8704E-03),( 3.4165E-05, 5.3501E-03),
     &  ( 3.4225E-05, 1.4918E-03),( 3.4281E-05, 6.9249E-04),
     &  ( 3.4336E-05, 4.0313E-04),( 3.4388E-05, 2.6892E-04),
     &  ( 3.4434E-05, 8.4202E-05),( 3.4480E-05, 8.4254E-05),
     &  ( 3.4525E-05, 8.4306E-05),( 3.4571E-05, 8.4358E-05),
     &  ( 3.4545E-05, 8.4409E-05),( 3.4515E-05, 8.4461E-05),
     &  ( 3.4524E-05, 8.4468E-05),( 3.4598E-05, 8.4521E-05),
     &  ( 3.4666E-05, 8.4573E-05),( 3.4731E-05, 8.4626E-05),
     &  ( 3.4794E-05, 8.4678E-05),( 3.4855E-05, 8.4731E-05),
     &  ( 3.4916E-05, 8.4783E-05),( 3.4977E-05, 8.4836E-05),
     &  ( 3.5038E-05, 8.4888E-05),( 3.5100E-05, 8.4941E-05),
     &  ( 3.5162E-05, 8.4993E-05),( 3.5229E-05, 8.5046E-05),
     &  ( 3.5296E-05, 8.5098E-05),( 3.5364E-05, 8.5151E-05),
     &  ( 3.5433E-05, 8.5204E-05),( 3.5503E-05, 8.5256E-05),
     &  ( 3.5574E-05, 8.5309E-05),( 3.5647E-05, 8.5361E-05),
     &  ( 3.5721E-05, 8.5414E-05),( 3.5797E-05, 8.5466E-05),
     &  ( 3.5874E-05, 8.5519E-05),( 3.5953E-05, 8.5571E-05),
     &  ( 3.6034E-05, 8.5624E-05),( 3.6117E-05, 8.5676E-05),
     &  ( 3.6202E-05, 8.5729E-05),( 3.6289E-05, 8.5781E-05),
     &  ( 3.6378E-05, 8.5834E-05),( 3.6469E-05, 8.5886E-05),
     &  ( 3.6563E-05, 8.5939E-05),( 3.6659E-05, 8.5991E-05),
     &  ( 3.6758E-05, 8.6044E-05),( 3.6859E-05, 8.6097E-05),
     &  ( 3.6963E-05, 8.6149E-05),( 3.7070E-05, 8.6202E-05),
     &  ( 3.7180E-05, 8.6254E-05),( 3.7293E-05, 8.6307E-05),
     &  ( 3.7409E-05, 8.6359E-05),( 3.7528E-05, 8.6412E-05),
     &  ( 3.7651E-05, 8.6464E-05),( 3.7777E-05, 8.6517E-05),
     &  ( 3.7907E-05, 8.6569E-05),( 3.8040E-05, 8.6622E-05),
     &  ( 3.8177E-05, 8.6674E-05),( 3.8319E-05, 8.6727E-05),
     &  ( 3.8464E-05, 8.6779E-05),( 3.8614E-05, 8.6832E-05)/

         DATA ((CGS  (I,J), I= 801, 900), J=2,2) /
     &  ( 3.8769E-05, 8.6885E-05),( 3.8928E-05, 8.6937E-05),
     &  ( 3.9093E-05, 8.6990E-05),( 3.9263E-05, 8.7042E-05),
     &  ( 3.9438E-05, 8.7095E-05),( 3.9618E-05, 8.7147E-05),
     &  ( 3.9805E-05, 8.7200E-05),( 3.9998E-05, 8.7252E-05),
     &  ( 4.0198E-05, 8.7305E-05),( 4.0404E-05, 8.7357E-05),
     &  ( 4.0618E-05, 8.7410E-05),( 4.0840E-05, 8.7462E-05),
     &  ( 4.1069E-05, 8.7515E-05),( 4.1307E-05, 8.7567E-05),
     &  ( 4.1554E-05, 8.7620E-05),( 4.1811E-05, 8.7672E-05),
     &  ( 4.2077E-05, 8.7725E-05),( 4.2355E-05, 8.7778E-05),
     &  ( 4.2643E-05, 8.7830E-05),( 4.2944E-05, 8.7883E-05),
     &  ( 4.3258E-05, 8.7935E-05),( 4.3585E-05, 8.7988E-05),
     &  ( 4.3927E-05, 8.8040E-05),( 4.4285E-05, 8.8093E-05),
     &  ( 4.4659E-05, 8.8145E-05),( 4.5052E-05, 8.8198E-05),
     &  ( 4.5464E-05, 8.8250E-05),( 4.5897E-05, 8.8303E-05),
     &  ( 4.6353E-05, 8.8355E-05),( 4.6834E-05, 8.8408E-05),
     &  ( 4.7342E-05, 8.8460E-05),( 4.7879E-05, 8.8513E-05),
     &  ( 4.8448E-05, 8.8565E-05),( 4.9052E-05, 8.8618E-05),
     &  ( 4.9696E-05, 8.8671E-05),( 5.0382E-05, 8.8723E-05),
     &  ( 5.1116E-05, 8.8776E-05),( 5.1916E-05, 8.8828E-05),
     &  ( 5.2764E-05, 8.8881E-05),( 5.3679E-05, 8.8933E-05),
     &  ( 5.4669E-05, 8.8986E-05),( 5.5747E-05, 8.9038E-05),
     &  ( 5.6925E-05, 8.9091E-05),( 5.8218E-05, 8.9143E-05),
     &  ( 5.9651E-05, 8.9196E-05),( 6.1247E-05, 8.9248E-05),
     &  ( 6.2850E-05, 8.9296E-05),( 6.2826E-05, 8.2189E-05),
     &  ( 6.2600E-05, 8.2379E-05),( 6.2374E-05, 8.2569E-05),
     &  ( 6.2146E-05, 8.2759E-05),( 6.1919E-05, 8.2949E-05),
     &  ( 6.1692E-05, 8.3139E-05),( 6.1467E-05, 8.3329E-05),
     &  ( 6.1243E-05, 8.3519E-05),( 6.1023E-05, 8.3709E-05),
     &  ( 6.0794E-05, 8.3899E-05),( 8.0059E-05, 9.1490E-05),
     &  ( 9.4677E-05, 1.0097E-04),( 9.3827E-05, 1.0079E-04),
     &  ( 9.2025E-05, 1.0072E-04),( 8.9020E-05, 9.5818E-05),
     &  ( 7.7901E-05, 9.5727E-05),( 7.0050E-05, 9.5693E-05),
     &  ( 6.4024E-05, 9.5660E-05),( 6.4679E-05, 9.5895E-05),
     &  ( 6.4917E-05, 1.0042E-04),( 6.1732E-05, 1.0041E-04),
     &  ( 6.1967E-05, 1.0041E-04),( 5.4383E-05, 1.0039E-04),
     &  ( 5.3608E-05, 1.0036E-04),( 5.4917E-05, 1.0036E-04),
     &  ( 5.7340E-05, 8.6012E-05),( 5.4361E-05, 8.6518E-05),
     &  ( 5.2481E-05, 8.7365E-05),( 5.0340E-05, 8.8212E-05),
     &  ( 4.9047E-05, 8.9058E-05),( 4.8174E-05, 8.9905E-05),
     &  ( 4.7501E-05, 9.0751E-05),( 4.6867E-05, 9.1939E-05),
     &  ( 4.6013E-05, 9.3127E-05),( 4.5839E-05, 9.4314E-05),
     &  ( 4.5837E-05, 9.5501E-05),( 4.5476E-05, 9.5499E-05),
     &  ( 4.5709E-05, 9.5496E-05),( 4.5765E-05, 9.5494E-05),
     &  ( 4.5834E-05, 9.5491E-05),( 4.6289E-05, 9.5489E-05),
     &  ( 4.6123E-05, 9.5486E-05),( 4.6018E-05, 9.5485E-05),
     &  ( 4.6057E-05, 9.5484E-05),( 4.5989E-05, 9.5482E-05),
     &  ( 4.6093E-05, 9.5481E-05),( 4.6087E-05, 9.5480E-05),
     &  ( 4.6223E-05, 9.5479E-05),( 4.6251E-05, 9.5477E-05),
     &  ( 4.6421E-05, 9.5476E-05),( 4.6482E-05, 9.5475E-05),
     &  ( 4.6675E-05, 9.6775E-05),( 4.6762E-05, 9.8076E-05)/

         DATA ((CGS  (I,J), I= 901,1000), J=2,2) /
     &  ( 4.6875E-05, 9.9377E-05),( 4.7009E-05, 1.0063E-04),
     &  ( 4.7097E-05, 1.0134E-04),( 4.7228E-05, 1.0206E-04),
     &  ( 4.7348E-05, 1.0277E-04),( 4.7483E-05, 1.0349E-04),
     &  ( 4.7601E-05, 1.0420E-04),( 4.7732E-05, 1.0492E-04),
     &  ( 4.7873E-05, 1.0563E-04),( 4.8015E-05, 1.0635E-04),
     &  ( 4.8180E-05, 1.0706E-04),( 4.8334E-05, 1.0778E-04),
     &  ( 4.8523E-05, 1.0849E-04),( 4.8693E-05, 1.0921E-04),
     &  ( 4.8897E-05, 1.0992E-04),( 4.9095E-05, 1.1064E-04),
     &  ( 4.9316E-05, 1.1135E-04),( 4.9547E-05, 1.1207E-04),
     &  ( 4.9790E-05, 1.1278E-04),( 5.0057E-05, 1.1350E-04),
     &  ( 5.0255E-05, 1.1404E-04),( 5.0321E-05, 1.1421E-04),
     &  ( 5.0376E-05, 1.1436E-04),( 5.0462E-05, 8.5567E-02),
     &  ( 5.0487E-05, 1.0639E-01),( 5.0506E-05, 1.2687E-01),
     &  ( 5.0522E-05, 1.4742E-01),( 5.0535E-05, 1.6788E-01),
     &  ( 5.0546E-05, 1.8776E-01),( 5.0554E-05, 2.0828E-01),
     &  ( 5.0563E-05, 2.2886E-01),( 5.0568E-05, 2.4721E-01),
     &  ( 5.0570E-05, 2.6742E-01),( 5.0578E-05, 2.8771E-01),
     &  ( 5.0585E-05, 3.0772E-01),( 5.0589E-05, 3.2709E-01),
     &  ( 5.0594E-05, 3.4777E-01),( 5.0598E-05, 3.6479E-01),
     &  ( 5.0602E-05, 3.8525E-01),( 5.0605E-05, 4.0400E-01),
     &  ( 5.0609E-05, 4.2353E-01),( 5.0613E-05, 4.4379E-01),
     &  ( 5.0616E-05, 4.6168E-01),( 5.0619E-05, 4.8309E-01),
     &  ( 5.0623E-05, 5.0180E-01),( 5.0626E-05, 5.2074E-01),
     &  ( 5.0629E-05, 5.3981E-01),( 5.0631E-05, 5.6202E-01),
     &  ( 5.0636E-05, 5.8086E-01),( 5.0635E-05, 6.0234E-01),
     &  ( 5.0643E-05, 6.2010E-01),( 5.0647E-05, 6.4247E-01),
     &  ( 5.0652E-05, 6.6283E-01),( 5.0657E-05, 6.8657E-01),
     &  ( 5.0660E-05, 7.0150E-01),( 5.0662E-05, 7.1255E-01),
     &  ( 5.0669E-05, 7.1570E-01),( 5.0672E-05, 7.1720E-01),
     &  ( 5.0674E-05, 7.1704E-01),( 5.0676E-05, 7.0782E-01),
     &  ( 5.0686E-05, 6.9208E-01),( 5.0691E-05, 6.7652E-01),
     &  ( 5.0695E-05, 6.5802E-01),( 5.0698E-05, 6.4253E-01),
     &  ( 5.0701E-05, 6.2306E-01),( 5.0704E-05, 6.0542E-01),
     &  ( 5.0708E-05, 5.8405E-01),( 5.0711E-05, 5.6527E-01),
     &  ( 5.0714E-05, 5.4626E-01),( 5.0713E-05, 5.2718E-01),
     &  ( 5.0721E-05, 5.0504E-01),( 5.0720E-05, 4.8628E-01),
     &  ( 5.0728E-05, 4.6481E-01),( 5.0732E-05, 4.4389E-01),
     &  ( 5.0733E-05, 4.2363E-01),( 5.0735E-05, 4.0137E-01),
     &  ( 5.0744E-05, 3.8273E-01),( 5.0749E-05, 3.5995E-01),
     &  ( 5.0754E-05, 3.3851E-01),( 5.0760E-05, 3.1626E-01),
     &  ( 5.0766E-05, 2.9364E-01),( 5.0773E-05, 2.7107E-01),
     &  ( 5.0775E-05, 2.5054E-01),( 5.0779E-05, 2.2750E-01),
     &  ( 5.0789E-05, 2.0454E-01),( 5.0800E-05, 1.8232E-01),
     &  ( 5.0820E-05, 1.5952E-01),( 5.0830E-05, 1.3668E-01),
     &  ( 5.0849E-05, 1.1405E-01),( 5.0879E-05, 9.1172E-02),
     &  ( 5.0896E-05, 8.0201E-02),( 5.0910E-05, 6.8493E-02),
     &  ( 5.0940E-05, 5.6116E-02),( 5.0977E-05, 4.4035E-02),
     &  ( 5.1004E-05, 3.7607E-02),( 5.1087E-05, 2.6178E-02),
     &  ( 5.1115E-05, 2.2737E-02),( 5.1196E-05, 1.6239E-02),
     &  ( 5.1492E-05, 1.1707E-04),( 5.1812E-05, 1.1779E-04)/

         DATA ((CGS  (I,J), I=1001,1100), J=2,2) /
     &  ( 5.2098E-05, 1.1850E-04),( 5.2463E-05, 1.1922E-04),
     &  ( 5.2851E-05, 1.1994E-04),( 5.3275E-05, 1.2065E-04),
     &  ( 5.3624E-05, 1.2137E-04),( 5.3981E-05, 1.2208E-04),
     &  ( 5.4424E-05, 1.2280E-04),( 5.4942E-05, 1.2351E-04),
     &  ( 5.5318E-05, 1.2408E-04),( 5.5787E-05, 1.2408E-04),
     &  ( 5.6359E-05, 1.2594E-04),( 5.6889E-05, 1.2599E-04),
     &  ( 5.7340E-05, 1.2604E-04),( 5.7852E-05, 1.2609E-04),
     &  ( 5.8485E-05, 1.2615E-04),( 5.9245E-05, 1.2620E-04),
     &  ( 5.9584E-05, 1.2631E-04),( 6.0605E-05, 1.2649E-04),
     &  ( 6.1608E-05, 1.2942E-04),( 6.3720E-05, 1.4091E-04),
     &  ( 6.2617E-05, 1.5243E-04),( 6.1511E-05, 1.6687E-04),
     &  ( 6.3299E-05, 1.9069E-04),( 6.0720E-05, 2.2124E-04),
     &  ( 6.4339E-05, 2.5289E-04),( 6.3634E-05, 2.6343E-04),
     &  ( 6.9130E-05, 2.7289E-04),( 6.6864E-05, 2.8188E-04),
     &  ( 6.8111E-05, 2.9066E-04),( 6.7273E-05, 2.9935E-04),
     &  ( 6.7182E-05, 3.0803E-04),( 6.7426E-05, 3.1641E-04),
     &  ( 6.6820E-05, 3.2477E-04),( 6.7124E-05, 3.3326E-04),
     &  ( 6.6815E-05, 3.4185E-04),( 6.6732E-05, 3.5058E-04),
     &  ( 6.7001E-05, 3.5945E-04),( 6.6651E-05, 3.6844E-04),
     &  ( 6.6708E-05, 3.7758E-04),( 6.6598E-05, 3.8690E-04),
     &  ( 6.5969E-05, 3.9640E-04),( 6.5878E-05, 4.0608E-04),
     &  ( 6.5740E-05, 4.1600E-04),( 6.5189E-05, 4.2617E-04),
     &  ( 6.4876E-05, 4.3663E-04),( 6.4619E-05, 4.4740E-04),
     &  ( 6.4661E-05, 4.5856E-04),( 6.4457E-05, 4.7016E-04),
     &  ( 6.4453E-05, 4.8229E-04),( 6.4378E-05, 4.9502E-04),
     &  ( 6.4422E-05, 5.0853E-04),( 6.4367E-05, 5.2297E-04),
     &  ( 6.4434E-05, 5.3866E-04),( 6.4426E-05, 5.5596E-04),
     &  ( 6.4454E-05, 5.7560E-04),( 6.4536E-05, 5.9895E-04),
     &  ( 6.4687E-05, 6.2954E-04),( 6.5211E-05, 7.0479E-04),
     &  ( 6.5867E-05, 7.8201E-04),( 6.6240E-05, 8.1398E-04),
     &  ( 6.6583E-05, 8.3806E-04),( 6.6937E-05, 8.5767E-04),
     &  ( 6.7303E-05, 8.7412E-04),( 6.7574E-05, 8.8794E-04),
     &  ( 6.7965E-05, 8.9946E-04),( 6.8250E-05, 9.0883E-04),
     &  ( 6.8649E-05, 9.1609E-04),( 6.9025E-05, 9.2120E-04),
     &  ( 6.9565E-05, 9.2410E-04),( 6.9894E-05, 9.2471E-04),
     &  ( 7.0574E-05, 9.2289E-04),( 7.1408E-05, 9.1848E-04),
     &  ( 7.1949E-05, 9.1134E-04),( 7.2512E-05, 9.0127E-04),
     &  ( 7.2648E-05, 8.8813E-04),( 7.3492E-05, 8.7172E-04),
     &  ( 7.3920E-05, 8.5191E-04),( 7.4256E-05, 8.2858E-04),
     &  ( 7.5081E-05, 8.0166E-04),( 7.5286E-05, 7.7108E-04),
     &  ( 7.5942E-05, 7.3695E-04),( 7.6914E-05, 6.9946E-04),
     &  ( 7.7293E-05, 6.5882E-04),( 7.8303E-05, 6.1561E-04),
     &  ( 7.9455E-05, 5.7042E-04),( 8.0678E-05, 5.2415E-04),
     &  ( 8.2980E-05, 4.7800E-04),( 8.3363E-05, 4.3353E-04),
     &  ( 8.8414E-05, 3.9262E-04),( 8.5020E-05, 3.5732E-04),
     &  ( 9.1734E-05, 3.3020E-04),( 1.0286E-04, 3.1327E-04),
     &  ( 1.1180E-04, 3.1112E-04),( 1.0157E-04, 3.1479E-04),
     &  ( 1.0232E-04, 3.2563E-04),( 1.0310E-04, 3.2546E-04),
     &  ( 1.0698E-04, 3.2942E-04),( 1.1301E-04, 3.3399E-04),
     &  ( 1.1567E-04, 3.3388E-04),( 1.0784E-04, 3.3376E-04)/

         DATA ((CGS  (I,J), I=1101,1200), J=2,2) /
     &  ( 1.0592E-04, 3.2892E-04),( 1.0517E-04, 3.3741E-04),
     &  ( 1.0746E-04, 3.4308E-04),( 1.0458E-04, 3.4560E-04),
     &  ( 1.0439E-04, 3.5316E-04),( 1.0137E-04, 3.6060E-04),
     &  ( 1.0274E-04, 3.6820E-04),( 1.0327E-04, 3.7580E-04),
     &  ( 1.0456E-04, 3.7609E-04),( 1.0560E-04, 3.6179E-04),
     &  ( 1.0605E-04, 3.5892E-04),( 1.0687E-04, 3.6176E-04),
     &  ( 1.0764E-04, 3.5317E-04),( 1.0783E-04, 3.5316E-04),
     &  ( 1.0801E-04, 3.7027E-04),( 1.0820E-04, 3.7977E-04),
     &  ( 1.0812E-04, 3.8547E-04),( 1.0727E-04, 3.9116E-04),
     &  ( 1.1215E-04, 3.9400E-04),( 1.1293E-04, 3.9112E-04),
     &  ( 1.1667E-04, 3.9017E-04),( 1.1286E-04, 3.9586E-04),
     &  ( 1.1787E-04, 4.0441E-04),( 1.1414E-04, 4.0439E-04),
     &  ( 1.2654E-04, 4.0438E-04),( 1.2631E-04, 4.2340E-04),
     &  ( 1.2603E-04, 4.8523E-04),( 1.2594E-04, 5.1376E-04),
     &  ( 1.1724E-04, 4.6346E-04),( 1.2733E-04, 4.7567E-04),
     &  ( 1.2674E-04, 4.7565E-04),( 1.3411E-04, 4.7564E-04),
     &  ( 1.3090E-04, 4.8229E-04),( 1.3279E-04, 5.0225E-04),
     &  ( 1.2796E-04, 5.1269E-04),( 1.2937E-04, 5.1837E-04),
     &  ( 1.2749E-04, 5.3262E-04),( 1.3454E-04, 5.3070E-04),
     &  ( 1.3509E-04, 4.9644E-04),( 1.3814E-04, 4.8502E-04),
     &  ( 1.3453E-04, 4.8310E-04),( 1.3857E-04, 4.8023E-04),
     &  ( 1.3393E-04, 4.8497E-04),( 1.3834E-04, 4.8876E-04),
     &  ( 1.4299E-04, 4.8971E-04),( 1.4417E-04, 5.3107E-04),
     &  ( 1.3629E-04, 5.9998E-04),( 1.3285E-04, 6.1519E-04),
     &  ( 1.4374E-04, 5.6573E-04),( 1.4628E-04, 5.1627E-04),
     &  ( 1.4463E-04, 5.0391E-04),( 1.3936E-04, 5.0818E-04),
     &  ( 1.3915E-04, 5.1245E-04),( 1.4376E-04, 5.2527E-04),
     &  ( 1.3999E-04, 5.6803E-04),( 1.4250E-04, 5.8941E-04),
     &  ( 1.4067E-04, 5.7514E-04),( 1.4451E-04, 5.4660E-04),
     &  ( 1.3644E-04, 5.5133E-04),( 1.4578E-04, 5.6605E-04),
     &  ( 1.4879E-04, 5.9739E-04),( 1.5406E-04, 6.1307E-04),
     &  ( 1.5012E-04, 6.0641E-04),( 1.5349E-04, 5.9642E-04),
     &  ( 1.5703E-04, 5.7977E-04),( 1.4492E-04, 5.8688E-04),
     &  ( 1.4590E-04, 5.9257E-04),( 1.4612E-04, 5.9161E-04),
     &  ( 1.4847E-04, 5.7496E-04),( 1.4594E-04, 5.6069E-04),
     &  ( 1.4587E-04, 5.5118E-04),( 1.5098E-04, 5.2265E-04),
     &  ( 1.4255E-04, 5.0553E-04),( 1.4907E-04, 4.9221E-04),
     &  ( 1.5134E-04, 4.8650E-04),( 1.5609E-04, 4.8459E-04),
     &  ( 1.5373E-04, 4.6558E-04),( 1.5714E-04, 4.7506E-04),
     &  ( 1.5700E-04, 4.8740E-04),( 1.6718E-04, 5.2539E-04),
     &  ( 1.7018E-04, 5.6812E-04),( 1.6503E-04, 5.7761E-04),
     &  ( 1.5813E-04, 5.8899E-04),( 1.5683E-04, 5.6900E-04),
     &  ( 1.8455E-04, 5.5568E-04),( 1.8984E-04, 5.0818E-04),
     &  ( 1.8566E-04, 4.3693E-04),( 1.6716E-04, 4.4261E-04),
     &  ( 1.6350E-04, 4.7678E-04),( 1.6865E-04, 4.8437E-04),
     &  ( 1.7482E-04, 4.9385E-04),( 1.7825E-04, 4.5584E-04),
     &  ( 1.7516E-04, 4.5963E-04),( 1.5773E-04, 4.9569E-04),
     &  ( 1.6293E-04, 5.5834E-04),( 1.6575E-04, 5.7922E-04),
     &  ( 1.6988E-04, 5.6592E-04),( 1.7515E-04, 5.2602E-04),
     &  ( 1.7549E-04, 5.1273E-04),( 1.6282E-04, 4.8993E-04)/

         DATA ((CGS  (I,J), I=1201,1300), J=2,2) /
     &  ( 1.6626E-04, 4.5574E-04),( 1.6244E-04, 4.1300E-04),
     &  ( 1.6495E-04, 3.8451E-04),( 1.6208E-04, 3.9115E-04),
     &  ( 1.6456E-04, 4.1108E-04),( 1.6417E-04, 4.4999E-04),
     &  ( 1.7153E-04, 4.9840E-04),( 1.7416E-04, 5.4111E-04),
     &  ( 1.8859E-04, 5.6958E-04),( 1.8308E-04, 5.6008E-04),
     &  ( 1.8573E-04, 5.3159E-04),( 1.9448E-04, 5.2209E-04),
     &  ( 1.8295E-04, 5.5529E-04),( 1.9285E-04, 5.1255E-04),
     &  ( 2.0684E-04, 4.6412E-04),( 2.5203E-04, 4.0431E-04),
     &  ( 2.2881E-04, 3.9077E-04),( 2.4404E-04, 4.8396E-04),
     &  ( 2.5575E-04, 4.6496E-04),( 2.2972E-04, 4.2698E-04),
     &  ( 2.3777E-04, 3.7950E-04),( 2.4467E-04, 3.7473E-04),
     &  ( 2.9087E-04, 4.1263E-04),( 2.9692E-04, 4.2685E-04),
     &  ( 3.7587E-04, 4.5999E-04),( 3.8333E-04, 4.6947E-04),
     &  ( 5.2115E-04, 4.9780E-04),( 6.6919E-04, 9.1951E-04),
     &  ( 9.0655E-04, 5.9236E-04),( 1.1587E-03, 1.0853E-03),
     &  ( 7.6369E-04, 1.2791E-03),( 4.1510E-04, 0.0000E+00),
     &  ( 2.9890E-04, 0.0000E+00),( 2.1582E-04, 0.0000E+00),
     &  ( 1.4761E-04, 0.0000E+00),( 1.2935E-04, 0.0000E+00),
     &  ( 1.1583E-04, 0.0000E+00),( 9.6996E-05, 0.0000E+00),
     &  ( 8.4431E-05, 0.0000E+00),( 7.9582E-05, 0.0000E+00),
     &  ( 7.5417E-05, 0.0000E+00),( 7.1797E-05, 0.0000E+00),
     &  ( 6.8623E-05, 0.0000E+00),( 6.5817E-05, 0.0000E+00),
     &  ( 6.3317E-05, 0.0000E+00),( 6.1078E-05, 0.0000E+00),
     &  ( 5.9060E-05, 0.0000E+00),( 5.7232E-05, 0.0000E+00),
     &  ( 5.5569E-05, 0.0000E+00),( 5.4051E-05, 0.0000E+00),
     &  ( 5.2659E-05, 0.0000E+00),( 5.1379E-05, 0.0000E+00),
     &  ( 5.0198E-05, 0.0000E+00),( 4.9106E-05, 0.0000E+00),
     &  ( 4.8093E-05, 0.0000E+00),( 4.7152E-05, 0.0000E+00),
     &  ( 4.6275E-05, 0.0000E+00),( 4.5458E-05, 0.0000E+00),
     &  ( 4.4693E-05, 0.0000E+00),( 4.3978E-05, 0.0000E+00),
     &  ( 4.3308E-05, 0.0000E+00),( 4.2678E-05, 0.0000E+00),
     &  ( 4.2087E-05, 0.0000E+00),( 4.1532E-05, 0.0000E+00),
     &  ( 4.1009E-05, 0.0000E+00),( 4.0517E-05, 0.0000E+00),
     &  ( 4.0053E-05, 0.0000E+00),( 3.9617E-05, 0.0000E+00),
     &  ( 3.9205E-05, 0.0000E+00),( 3.8818E-05, 0.0000E+00),
     &  ( 3.8454E-05, 0.0000E+00),( 3.8111E-05, 0.0000E+00),
     &  ( 3.7789E-05, 0.0000E+00),( 3.7545E-05, 0.0000E+00),
     &  ( 3.7203E-05, 0.0000E+00),( 3.6693E-05, 0.0000E+00),
     &  ( 3.6253E-05, 0.0000E+00),( 3.5883E-05, 0.0000E+00),
     &  ( 3.5582E-05, 0.0000E+00),( 3.5352E-05, 0.0000E+00),
     &  ( 3.5198E-05, 0.0000E+00),( 3.5125E-05, 0.0000E+00),
     &  ( 3.5145E-05, 0.0000E+00),( 3.5272E-05, 0.0000E+00),
     &  ( 3.5527E-05, 0.0000E+00),( 3.5942E-05, 0.0000E+00),
     &  ( 3.6560E-05, 0.0000E+00),( 3.7451E-05, 0.0000E+00),
     &  ( 3.8718E-05, 0.0000E+00),( 3.8871E-05, 0.0000E+00),
     &  ( 4.0536E-05, 0.0000E+00),( 4.3207E-05, 0.0000E+00),
     &  ( 4.7321E-05, 0.0000E+00),( 5.2497E-05, 0.0000E+00),
     &  ( 5.4218E-05, 0.0000E+00),( 5.9709E-05, 0.0000E+00),
     &  ( 6.5984E-05, 0.0000E+00),( 6.7957E-05, 0.0000E+00),
     &  ( 7.0150E-05, 0.0000E+00),( 7.1343E-05, 0.0000E+00)/

         DATA ((CGS  (I,J), I=1301,1400), J=2,2) /
     &  ( 7.2609E-05, 0.0000E+00),( 7.3680E-05, 0.0000E+00),
     &  ( 7.4808E-05, 0.0000E+00),( 7.5395E-05, 0.0000E+00),
     &  ( 7.5999E-05, 0.0000E+00),( 7.6619E-05, 0.0000E+00),
     &  ( 7.7259E-05, 0.0000E+00),( 7.7917E-05, 0.0000E+00),
     &  ( 7.8596E-05, 0.0000E+00),( 7.8943E-05, 0.0000E+00),
     &  ( 7.9296E-05, 0.0000E+00),( 7.9655E-05, 0.0000E+00),
     &  ( 8.0019E-05, 0.0000E+00),( 8.0390E-05, 0.0000E+00),
     &  ( 8.0767E-05, 0.0000E+00),( 8.1150E-05, 0.0000E+00),
     &  ( 8.1540E-05, 0.0000E+00),( 8.1937E-05, 0.0000E+00),
     &  ( 8.2086E-05, 0.0000E+00),( 8.2175E-05, 0.0000E+00),
     &  ( 8.2264E-05, 0.0000E+00),( 8.2354E-05, 0.0000E+00),
     &  ( 8.2444E-05, 0.0000E+00),( 8.2534E-05, 0.0000E+00),
     &  ( 8.2625E-05, 0.0000E+00),( 8.2716E-05, 0.0000E+00),
     &  ( 8.2807E-05, 0.0000E+00),( 8.2899E-05, 0.0000E+00),
     &  ( 8.2992E-05, 0.0000E+00),( 8.3084E-05, 0.0000E+00),
     &  ( 8.3177E-05, 0.0000E+00),( 8.3270E-05, 0.0000E+00),
     &  ( 8.3364E-05, 0.0000E+00),( 8.3458E-05, 0.0000E+00),
     &  ( 8.3553E-05, 0.0000E+00),( 8.3648E-05, 0.0000E+00),
     &  ( 8.3743E-05, 0.0000E+00),( 8.3839E-05, 0.0000E+00),
     &  ( 8.3935E-05, 0.0000E+00),( 8.4032E-05, 0.0000E+00),
     &  ( 8.4129E-05, 0.0000E+00),( 8.4227E-05, 0.0000E+00),
     &  ( 8.4324E-05, 0.0000E+00),( 8.4423E-05, 0.0000E+00),
     &  ( 8.4522E-05, 0.0000E+00),( 8.4621E-05, 0.0000E+00),
     &  ( 8.4720E-05, 0.0000E+00),( 8.4821E-05, 0.0000E+00),
     &  ( 8.4921E-05, 0.0000E+00),( 8.5022E-05, 0.0000E+00),
     &  ( 8.5124E-05, 0.0000E+00),( 8.5226E-05, 0.0000E+00),
     &  ( 8.5328E-05, 0.0000E+00),( 8.5431E-05, 0.0000E+00),
     &  ( 8.5534E-05, 0.0000E+00),( 8.5638E-05, 0.0000E+00),
     &  ( 8.5742E-05, 0.0000E+00),( 8.5847E-05, 0.0000E+00),
     &  ( 8.5953E-05, 0.0000E+00),( 8.6058E-05, 0.0000E+00),
     &  ( 8.6165E-05, 0.0000E+00),( 8.6272E-05, 0.0000E+00),
     &  ( 8.6379E-05, 0.0000E+00),( 8.6487E-05, 0.0000E+00),
     &  ( 8.6595E-05, 0.0000E+00),( 8.6704E-05, 0.0000E+00),
     &  ( 8.6814E-05, 0.0000E+00),( 8.6849E-05, 1.4177E-04),
     &  ( 8.6946E-05, 1.4186E-04),( 8.6970E-05, 1.8346E-02),
     &  ( 8.6974E-05, 2.0135E-02),( 8.6975E-05, 2.1128E-02),
     &  ( 8.6979E-05, 2.3344E-02),( 8.6983E-05, 2.5919E-02),
     &  ( 8.6987E-05, 2.8942E-02),( 8.6990E-05, 3.2515E-02),
     &  ( 8.6994E-05, 3.6778E-02),( 8.6998E-05, 4.1917E-02),
     &  ( 8.7002E-05, 4.8181E-02),( 8.7005E-05, 5.5900E-02),
     &  ( 8.7009E-05, 6.5568E-02),( 8.7013E-05, 7.7849E-02),
     &  ( 8.7016E-05, 9.3709E-02),( 8.7020E-05, 1.1456E-01),
     &  ( 8.7024E-05, 1.4247E-01),( 8.7028E-05, 1.8047E-01),
     &  ( 8.7030E-05, 2.0451E-01),( 8.7031E-05, 2.3276E-01),
     &  ( 8.7033E-05, 2.6601E-01),( 8.7035E-05, 3.0472E-01),
     &  ( 8.7037E-05, 3.4955E-01),( 8.7039E-05, 4.0016E-01),
     &  ( 8.7041E-05, 4.5558E-01),( 8.7043E-05, 5.1327E-01),
     &  ( 8.7044E-05, 5.6815E-01),( 8.7046E-05, 6.1369E-01),
     &  ( 8.7048E-05, 6.4221E-01),( 8.7048E-05, 6.4221E-01),
     &  ( 8.7048E-05, 6.4458E-01),( 8.7049E-05, 6.4645E-01)/

         DATA ((CGS  (I,J), I=1401,1500), J=2,2) /
     &  ( 8.7049E-05, 6.4782E-01),( 8.7050E-05, 6.4867E-01),
     &  ( 8.7050E-05, 6.4901E-01),( 8.7050E-05, 6.4813E-01),
     &  ( 8.7051E-05, 6.4519E-01),( 8.7051E-05, 6.4297E-01),
     &  ( 8.7051E-05, 6.3706E-01),( 8.7052E-05, 6.2931E-01),
     &  ( 8.7053E-05, 6.1975E-01),( 8.7053E-05, 6.0872E-01),
     &  ( 8.7054E-05, 5.9631E-01),( 8.7054E-05, 5.8273E-01),
     &  ( 8.7055E-05, 5.6815E-01),( 8.7056E-05, 5.3333E-01),
     &  ( 8.7058E-05, 4.7607E-01),( 8.7060E-05, 4.1933E-01),
     &  ( 8.7062E-05, 3.6683E-01),( 8.7063E-05, 3.1986E-01),
     &  ( 8.7065E-05, 2.7906E-01),( 8.7067E-05, 2.4399E-01),
     &  ( 8.7069E-05, 2.1400E-01),( 8.7071E-05, 1.8855E-01),
     &  ( 8.7073E-05, 1.6683E-01),( 8.7075E-05, 1.4835E-01),
     &  ( 8.7078E-05, 1.1891E-01),( 8.7082E-05, 9.6987E-02),
     &  ( 8.7086E-05, 8.0363E-02),( 8.7093E-05, 5.7467E-02),
     &  ( 8.7101E-05, 4.2937E-02),( 8.7108E-05, 3.3216E-02),
     &  ( 8.7112E-05, 2.9532E-02),( 8.7116E-05, 2.6424E-02),
     &  ( 8.7120E-05, 2.3774E-02),( 8.7123E-05, 2.1499E-02),
     &  ( 8.7127E-05, 1.9532E-02),( 8.7131E-05, 1.7822E-02),
     &  ( 8.7136E-05, 1.4204E-04),( 8.7146E-05, 1.4205E-04),
     &  ( 8.7257E-05, 1.4215E-04),( 8.7370E-05, 1.4226E-04),
     &  ( 8.7483E-05, 1.4236E-04),( 8.7596E-05, 1.4247E-04),
     &  ( 8.7710E-05, 1.4257E-04),( 8.7825E-05, 1.4267E-04),
     &  ( 8.7940E-05, 1.4278E-04),( 8.8056E-05, 1.4288E-04),
     &  ( 8.8172E-05, 1.4299E-04),( 8.8289E-05, 1.4309E-04),
     &  ( 8.8407E-05, 1.4319E-04),( 8.8526E-05, 1.4330E-04),
     &  ( 8.8645E-05, 1.4340E-04),( 8.8764E-05, 1.4351E-04),
     &  ( 8.8885E-05, 1.4361E-04),( 8.9006E-05, 1.4371E-04),
     &  ( 8.9127E-05, 1.4382E-04),( 8.9250E-05, 1.4392E-04),
     &  ( 8.9373E-05, 1.4403E-04),( 8.9497E-05, 1.4413E-04),
     &  ( 8.9621E-05, 1.4423E-04),( 8.9746E-05, 1.4434E-04),
     &  ( 8.9872E-05, 1.4444E-04),( 8.9999E-05, 1.4455E-04),
     &  ( 9.0126E-05, 1.4465E-04),( 9.0255E-05, 1.4475E-04),
     &  ( 9.0384E-05, 1.4486E-04),( 9.0513E-05, 1.4496E-04),
     &  ( 9.0644E-05, 1.4507E-04),( 9.0775E-05, 1.4517E-04),
     &  ( 9.0907E-05, 1.4527E-04),( 9.1040E-05, 1.4538E-04),
     &  ( 9.1174E-05, 1.4548E-04),( 9.1309E-05, 1.4558E-04),
     &  ( 9.1444E-05, 1.4569E-04),( 9.1581E-05, 1.4579E-04),
     &  ( 9.1718E-05, 1.4590E-04),( 9.1856E-05, 1.4600E-04),
     &  ( 9.1995E-05, 1.4610E-04),( 9.2135E-05, 1.4621E-04),
     &  ( 9.2276E-05, 1.4631E-04),( 9.2418E-05, 1.4642E-04),
     &  ( 9.2561E-05, 1.4652E-04),( 9.2705E-05, 1.4662E-04),
     &  ( 9.2850E-05, 1.4673E-04),( 9.2996E-05, 1.4683E-04),
     &  ( 9.3143E-05, 1.4694E-04),( 9.3291E-05, 1.4704E-04),
     &  ( 9.3440E-05, 1.4714E-04),( 9.4847E-05, 1.4809E-04),
     &  ( 9.6070E-05, 1.4886E-04),( 9.7683E-05, 1.4981E-04),
     &  ( 1.0039E-04, 1.5122E-04),( 1.0475E-04, 1.5311E-04),
     &  ( 1.1412E-04, 1.5595E-04),( 1.1734E-04, 1.5831E-04),
     &  ( 1.2552E-04, 1.6067E-04),( 1.3090E-04, 1.6067E-04),
     &  ( 1.4227E-04, 1.6120E-04),( 1.5339E-04, 1.6173E-04),
     &  ( 1.5740E-04, 1.6225E-04),( 1.7018E-04, 1.6278E-04)/

         DATA ((CGS  (I,J), I=1501,1600), J=2,2) /
     &  ( 2.0028E-04, 1.6383E-04),( 1.9945E-04, 1.6488E-04),
     &  ( 2.6895E-04, 1.8147E-04),( 3.1428E-04, 1.8647E-04),
     &  ( 3.1931E-04, 1.8643E-04),( 2.9259E-04, 1.9144E-04),
     &  ( 2.4260E-04, 2.0150E-04),( 2.1298E-04, 2.0653E-04),
     &  ( 2.0717E-04, 2.0955E-04),( 1.9846E-04, 2.1156E-04),
     &  ( 1.9369E-04, 2.1282E-04),( 1.9155E-04, 2.1294E-04),
     &  ( 1.9030E-04, 2.1307E-04),( 1.9012E-04, 2.1310E-04),
     &  ( 1.8990E-04, 2.1317E-04),( 1.8983E-04, 2.1324E-04),
     &  ( 1.8993E-04, 2.1331E-04),( 1.9018E-04, 2.1338E-04),
     &  ( 1.9055E-04, 2.1345E-04),( 1.9100E-04, 2.1351E-04),
     &  ( 1.9145E-04, 2.1358E-04),( 1.9210E-04, 2.1365E-04),
     &  ( 1.9273E-04, 2.1372E-04),( 1.9354E-04, 2.1379E-04),
     &  ( 1.9432E-04, 2.1386E-04),( 1.9526E-04, 2.1393E-04),
     &  ( 1.9616E-04, 2.1400E-04),( 1.9722E-04, 2.1407E-04),
     &  ( 1.9632E-04, 2.1414E-04),( 1.9565E-04, 2.1421E-04),
     &  ( 1.9488E-04, 2.1427E-04),( 1.9441E-04, 2.1434E-04),
     &  ( 1.9400E-04, 2.1439E-04),( 1.9397E-04, 2.1439E-04),
     &  ( 1.9393E-04, 2.1440E-04),( 1.9390E-04, 2.1440E-04),
     &  ( 1.9387E-04, 2.1441E-04),( 1.9384E-04, 2.1441E-04),
     &  ( 1.9381E-04, 2.1441E-04),( 1.9379E-04, 2.1442E-04),
     &  ( 1.9343E-04, 6.9871E-02),( 1.9343E-04, 7.7287E-02),
     &  ( 1.9342E-04, 8.5953E-02),( 1.9342E-04, 9.0836E-02),
     &  ( 1.9342E-04, 9.6118E-02),( 1.9342E-04, 1.0189E-01),
     &  ( 1.9342E-04, 1.0820E-01),( 1.9342E-04, 1.1510E-01),
     &  ( 1.9341E-04, 1.2263E-01),( 1.9341E-04, 1.3095E-01),
     &  ( 1.9341E-04, 1.4014E-01),( 1.9341E-04, 1.5030E-01),
     &  ( 1.9341E-04, 1.6153E-01),( 1.9341E-04, 1.7409E-01),
     &  ( 1.9340E-04, 1.8814E-01),( 1.9340E-04, 2.0384E-01),
     &  ( 1.9340E-04, 2.2160E-01),( 1.9340E-04, 2.4170E-01),
     &  ( 1.9340E-04, 2.6455E-01),( 1.9340E-04, 2.9054E-01),
     &  ( 1.9339E-04, 3.2049E-01),( 1.9339E-04, 3.5506E-01),
     &  ( 1.9339E-04, 3.9517E-01),( 1.9339E-04, 4.4177E-01),
     &  ( 1.9338E-04, 4.9666E-01),( 1.9338E-04, 5.6144E-01),
     &  ( 1.9338E-04, 6.3827E-01),( 1.9338E-04, 7.2940E-01),
     &  ( 1.9338E-04, 8.3872E-01),( 1.9337E-04, 9.6949E-01),
     &  ( 1.9337E-04, 1.1247E+00),( 1.9337E-04, 1.3089E+00),
     &  ( 1.9337E-04, 1.5226E+00),( 1.9336E-04, 1.7623E+00),
     &  ( 1.9336E-04, 2.0151E+00),( 1.9336E-04, 2.2593E+00),
     &  ( 1.9336E-04, 2.4578E+00),( 1.9336E-04, 2.4783E+00),
     &  ( 1.9336E-04, 2.4973E+00),( 1.9336E-04, 2.5146E+00),
     &  ( 1.9336E-04, 2.5301E+00),( 1.9335E-04, 2.5438E+00),
     &  ( 1.9335E-04, 2.5557E+00),( 1.9335E-04, 2.5656E+00),
     &  ( 1.9335E-04, 2.5736E+00),( 1.9335E-04, 2.5795E+00),
     &  ( 1.9335E-04, 2.5833E+00),( 1.9335E-04, 2.5851E+00),
     &  ( 1.9335E-04, 2.5849E+00),( 1.9335E-04, 2.5827E+00),
     &  ( 1.9335E-04, 2.5784E+00),( 1.9335E-04, 2.5720E+00),
     &  ( 1.9335E-04, 2.5636E+00),( 1.9335E-04, 2.5533E+00),
     &  ( 1.9335E-04, 2.5410E+00),( 1.9335E-04, 2.5269E+00),
     &  ( 1.9335E-04, 2.5109E+00),( 1.9335E-04, 2.4933E+00),
     &  ( 1.9335E-04, 2.4740E+00),( 1.9335E-04, 2.4531E+00)/

         DATA ((CGS  (I,J), I=1601,1700), J=2,2) /
     &  ( 1.9335E-04, 2.4307E+00),( 1.9335E-04, 2.4070E+00),
     &  ( 1.9335E-04, 2.1909E+00),( 1.9335E-04, 1.9417E+00),
     &  ( 1.9334E-04, 1.6901E+00),( 1.9334E-04, 1.4572E+00),
     &  ( 1.9334E-04, 1.2521E+00),( 1.9334E-04, 1.0771E+00),
     &  ( 1.9333E-04, 9.2886E-01),( 1.9333E-04, 8.0474E-01),
     &  ( 1.9333E-04, 7.0099E-01),( 1.9333E-04, 6.1444E-01),
     &  ( 1.9333E-04, 5.4138E-01),( 1.9332E-04, 4.7970E-01),
     &  ( 1.9332E-04, 4.2754E-01),( 1.9332E-04, 3.8282E-01),
     &  ( 1.9332E-04, 3.4444E-01),( 1.9331E-04, 3.1130E-01),
     &  ( 1.9331E-04, 2.8266E-01),( 1.9331E-04, 2.5757E-01),
     &  ( 1.9331E-04, 2.3557E-01),( 1.9331E-04, 2.1619E-01),
     &  ( 1.9330E-04, 1.9911E-01),( 1.9330E-04, 1.8388E-01),
     &  ( 1.9330E-04, 1.7029E-01),( 1.9330E-04, 1.5812E-01),
     &  ( 1.9330E-04, 1.4723E-01),( 1.9329E-04, 1.3736E-01),
     &  ( 1.9329E-04, 1.2844E-01),( 1.9329E-04, 1.2038E-01),
     &  ( 1.9329E-04, 1.1302E-01),( 1.9329E-04, 1.0630E-01),
     &  ( 1.9328E-04, 1.0016E-01),( 1.9328E-04, 9.4549E-02),
     &  ( 1.9328E-04, 8.9372E-02),( 1.9328E-04, 8.4604E-02),
     &  ( 1.9328E-04, 8.0203E-02),( 1.9327E-04, 7.6150E-02),
     &  ( 1.9327E-04, 7.2379E-02),( 1.9327E-04, 6.5625E-02),
     &  ( 1.9302E-04, 2.1458E-04),( 1.9293E-04, 2.1462E-04),
     &  ( 1.9284E-04, 2.1469E-04),( 1.9275E-04, 2.1476E-04),
     &  ( 1.9289E-04, 2.1490E-04),( 1.9336E-04, 2.1503E-04),
     &  ( 1.9415E-04, 2.1517E-04),( 1.9529E-04, 2.1531E-04),
     &  ( 1.9483E-04, 2.1545E-04),( 1.9453E-04, 2.1559E-04),
     &  ( 1.9479E-04, 2.1573E-04),( 1.9584E-04, 2.1586E-04),
     &  ( 1.9709E-04, 2.1596E-04),( 1.9691E-04, 2.1608E-04),
     &  ( 1.9725E-04, 2.1621E-04),( 1.9806E-04, 2.1633E-04),
     &  ( 1.9943E-04, 2.1646E-04),( 2.0154E-04, 2.1659E-04),
     &  ( 2.0788E-04, 2.1700E-04),( 2.1648E-04, 2.1742E-04),
     &  ( 2.3138E-04, 2.1784E-04),( 2.4843E-04, 2.1826E-04),
     &  ( 2.7098E-04, 2.1868E-04),( 3.0450E-04, 2.1910E-04),
     &  ( 3.0079E-04, 2.1951E-04),( 2.9688E-04, 2.1993E-04),
     &  ( 3.4217E-04, 2.2158E-04),( 2.6628E-04, 2.3919E-04),
     &  ( 2.7636E-04, 2.4271E-04),( 2.4048E-04, 2.4624E-04),
     &  ( 2.1840E-04, 2.4976E-04),( 2.1627E-04, 2.5328E-04),
     &  ( 2.0023E-04, 2.5504E-04),( 2.0798E-04, 2.5680E-04),
     &  ( 1.9129E-04, 2.5025E-04),( 1.8888E-04, 2.4370E-04),
     &  ( 1.7365E-04, 2.3716E-04),( 1.6823E-04, 2.3061E-04),
     &  ( 1.6133E-04, 2.2786E-04),( 1.6168E-04, 2.2738E-04),
     &  ( 1.6230E-04, 2.2690E-04),( 1.6317E-04, 2.2642E-04),
     &  ( 1.6411E-04, 2.2594E-04),( 1.6520E-04, 2.2546E-04),
     &  ( 1.6644E-04, 2.2498E-04),( 1.6781E-04, 2.2450E-04),
     &  ( 1.6894E-04, 2.2402E-04),( 1.6689E-04, 2.2354E-04),
     &  ( 1.6552E-04, 2.2306E-04),( 1.6452E-04, 2.2258E-04),
     &  ( 1.6407E-04, 2.2210E-04),( 1.6407E-04, 2.2204E-04),
     &  ( 1.6408E-04, 2.2198E-04),( 1.6410E-04, 2.2192E-04),
     &  ( 1.6405E-04, 2.2186E-04),( 1.6401E-04, 2.2180E-04),
     &  ( 1.6398E-04, 2.2174E-04),( 1.6396E-04, 2.2168E-04),
     &  ( 1.6396E-04, 2.2162E-04),( 1.6396E-04, 2.2156E-04)/

         DATA ((CGS  (I,J), I=1701,1800), J=2,2) /
     &  ( 1.6397E-04, 2.2150E-04),( 1.6400E-04, 2.2144E-04),
     &  ( 1.6403E-04, 2.2138E-04),( 1.6408E-04, 2.2132E-04),
     &  ( 1.6391E-04, 2.2126E-04),( 1.6373E-04, 2.2120E-04),
     &  ( 1.6368E-04, 2.2118E-04),( 1.6357E-04, 2.2114E-04),
     &  ( 1.6342E-04, 2.2108E-04),( 1.6329E-04, 2.2102E-04),
     &  ( 1.6318E-04, 2.2096E-04),( 1.6304E-04, 2.2090E-04),
     &  ( 1.6291E-04, 2.2084E-04),( 1.6276E-04, 2.2078E-04),
     &  ( 1.6275E-04, 2.2077E-04),( 1.6272E-04, 2.2076E-04),
     &  ( 1.6271E-04, 7.3974E-02),( 1.6271E-04, 8.2485E-02),
     &  ( 1.6270E-04, 9.2567E-02),( 1.6270E-04, 1.0459E-01),
     &  ( 1.6269E-04, 1.1902E-01),( 1.6269E-04, 1.3664E-01),
     &  ( 1.6268E-04, 1.5840E-01),( 1.6268E-04, 1.8553E-01),
     &  ( 1.6267E-04, 2.2015E-01),( 1.6267E-04, 2.6499E-01),
     &  ( 1.6267E-04, 3.2403E-01),( 1.6266E-04, 4.0402E-01),
     &  ( 1.6266E-04, 4.5453E-01),( 1.6266E-04, 5.1466E-01),
     &  ( 1.6265E-04, 5.8572E-01),( 1.6265E-04, 6.7061E-01),
     &  ( 1.6265E-04, 7.7312E-01),( 1.6265E-04, 8.9554E-01),
     &  ( 1.6264E-04, 1.0423E+00),( 1.6264E-04, 1.2180E+00),
     &  ( 1.6264E-04, 1.4221E+00),( 1.6264E-04, 1.6531E+00),
     &  ( 1.6263E-04, 1.9018E+00),( 1.6263E-04, 2.1419E+00),
     &  ( 1.6263E-04, 2.3390E+00),( 1.6263E-04, 2.3597E+00),
     &  ( 1.6263E-04, 2.3779E+00),( 1.6263E-04, 2.3946E+00),
     &  ( 1.6263E-04, 2.4105E+00),( 1.6263E-04, 2.4239E+00),
     &  ( 1.6263E-04, 2.4356E+00),( 1.6263E-04, 2.4459E+00),
     &  ( 1.6263E-04, 2.4539E+00),( 1.6263E-04, 2.4601E+00),
     &  ( 1.6263E-04, 2.4645E+00),( 1.6263E-04, 2.4668E+00),
     &  ( 1.6263E-04, 2.4672E+00),( 1.6262E-04, 2.4656E+00),
     &  ( 1.6262E-04, 2.4620E+00),( 1.6262E-04, 2.4566E+00),
     &  ( 1.6262E-04, 2.4489E+00),( 1.6262E-04, 2.4397E+00),
     &  ( 1.6262E-04, 2.4288E+00),( 1.6262E-04, 2.4154E+00),
     &  ( 1.6262E-04, 2.4009E+00),( 1.6262E-04, 2.3848E+00),
     &  ( 1.6262E-04, 2.3662E+00),( 1.6262E-04, 2.3470E+00),
     &  ( 1.6262E-04, 2.3264E+00),( 1.6262E-04, 2.3046E+00),
     &  ( 1.6262E-04, 2.0940E+00),( 1.6262E-04, 1.8498E+00),
     &  ( 1.6261E-04, 1.6031E+00),( 1.6261E-04, 1.3771E+00),
     &  ( 1.6261E-04, 1.1791E+00),( 1.6261E-04, 1.0094E+00),
     &  ( 1.6261E-04, 8.6809E-01),( 1.6260E-04, 7.5027E-01),
     &  ( 1.6260E-04, 6.5160E-01),( 1.6260E-04, 5.6983E-01),
     &  ( 1.6260E-04, 5.0132E-01),( 1.6259E-04, 4.4329E-01),
     &  ( 1.6259E-04, 3.9447E-01),( 1.6259E-04, 3.5288E-01),
     &  ( 1.6258E-04, 2.8634E-01),( 1.6258E-04, 2.3642E-01),
     &  ( 1.6258E-04, 1.9828E-01),( 1.6257E-04, 1.6839E-01),
     &  ( 1.6257E-04, 1.4467E-01),( 1.6256E-04, 1.2560E-01),
     &  ( 1.6256E-04, 1.0997E-01),( 1.6255E-04, 9.7053E-02),
     &  ( 1.6255E-04, 8.6291E-02),( 1.6254E-04, 7.7180E-02),
     &  ( 1.6254E-04, 6.9427E-02),( 1.6228E-04, 2.2054E-04),
     &  ( 1.6220E-04, 2.2048E-04),( 1.6210E-04, 2.2042E-04),
     &  ( 1.6200E-04, 2.2036E-04),( 1.6188E-04, 2.2030E-04),
     &  ( 1.6177E-04, 2.2024E-04),( 1.6168E-04, 2.2018E-04),
     &  ( 1.6160E-04, 2.2012E-04),( 1.6154E-04, 2.2006E-04)/

         DATA ((CGS  (I,J), I=1801,1900), J=2,2) /
     &  ( 1.6148E-04, 2.2000E-04),( 1.6125E-04, 2.1994E-04),
     &  ( 1.6102E-04, 2.1988E-04),( 1.6076E-04, 2.1982E-04),
     &  ( 1.6051E-04, 2.1976E-04),( 1.6027E-04, 2.1969E-04),
     &  ( 1.5864E-04, 2.1921E-04),( 1.5738E-04, 2.1873E-04),
     &  ( 1.5655E-04, 2.1825E-04),( 1.5622E-04, 2.1777E-04),
     &  ( 1.5548E-04, 2.1729E-04),( 1.5389E-04, 2.1681E-04),
     &  ( 1.5255E-04, 2.1633E-04),( 1.5077E-04, 2.1537E-04),
     &  ( 1.5029E-04, 2.1441E-04),( 1.4947E-04, 2.1393E-04),
     &  ( 1.4811E-04, 2.1345E-04),( 1.4675E-04, 2.1096E-04),
     &  ( 1.4506E-04, 2.0769E-04),( 1.4644E-04, 2.0442E-04),
     &  ( 1.4900E-04, 2.0114E-04),( 1.5055E-04, 1.9787E-04),
     &  ( 1.5190E-04, 1.9460E-04),( 1.5322E-04, 1.9132E-04),
     &  ( 1.5468E-04, 1.9415E-04),( 1.5638E-04, 1.9698E-04),
     &  ( 1.5860E-04, 1.9980E-04),( 1.6148E-04, 2.0263E-04),
     &  ( 1.6504E-04, 2.0545E-04),( 1.6940E-04, 2.0828E-04),
     &  ( 1.7476E-04, 2.1111E-04),( 1.8143E-04, 2.1393E-04),
     &  ( 1.8991E-04, 2.1676E-04),( 2.0103E-04, 2.1958E-04),
     &  ( 2.1623E-04, 2.2241E-04),( 2.3834E-04, 2.2524E-04),
     &  ( 2.5703E-04, 2.2806E-04),( 2.5070E-04, 2.3089E-04),
     &  ( 2.5068E-04, 2.3258E-04),( 2.5046E-04, 2.6855E-04),
     &  ( 2.5041E-04, 2.8486E-04),( 2.3358E-04, 3.0190E-04),
     &  ( 2.2848E-04, 3.2143E-04),( 2.2004E-04, 3.4355E-04),
     &  ( 2.1878E-04, 3.6799E-04),( 2.1421E-04, 3.9449E-04),
     &  ( 2.1218E-04, 4.2268E-04),( 2.1171E-04, 4.5207E-04),
     &  ( 2.0937E-04, 4.8263E-04),( 2.0855E-04, 5.1423E-04),
     &  ( 2.0830E-04, 5.4644E-04),( 2.0706E-04, 5.7903E-04),
     &  ( 2.0654E-04, 6.1201E-04),( 2.0625E-04, 6.4569E-04),
     &  ( 2.0493E-04, 6.7953E-04),( 2.0446E-04, 7.1299E-04),
     &  ( 2.0406E-04, 7.4673E-04),( 2.0310E-04, 7.8105E-04),
     &  ( 2.0266E-04, 8.1497E-04),( 2.0259E-04, 8.4812E-04),
     &  ( 2.0220E-04, 8.8229E-04),( 2.0196E-04, 9.1508E-04),
     &  ( 2.0199E-04, 9.4838E-04),( 2.0172E-04, 9.8118E-04),
     &  ( 2.0166E-04, 1.0139E-03),( 2.0164E-04, 1.0463E-03),
     &  ( 2.0156E-04, 1.0780E-03),( 2.0165E-04, 1.1086E-03),
     &  ( 2.0159E-04, 1.1395E-03),( 2.0170E-04, 1.1692E-03),
     &  ( 2.0177E-04, 1.1974E-03),( 2.0194E-04, 1.2245E-03),
     &  ( 2.0221E-04, 1.2488E-03),( 2.0315E-04, 1.2595E-03),
     &  ( 2.0450E-04, 1.2069E-03),( 2.0522E-04, 1.1679E-03),
     &  ( 2.0586E-04, 1.1311E-03),( 2.0649E-04, 1.0964E-03),
     &  ( 2.0703E-04, 1.0620E-03),( 2.0773E-04, 1.0279E-03),
     &  ( 2.0822E-04, 9.9558E-04),( 2.0891E-04, 9.6308E-04),
     &  ( 2.0952E-04, 9.3073E-04),( 2.1017E-04, 8.9880E-04),
     &  ( 2.1105E-04, 8.6750E-04),( 2.1162E-04, 8.3632E-04),
     &  ( 2.1247E-04, 8.0612E-04),( 2.1352E-04, 7.7512E-04),
     &  ( 2.1422E-04, 7.4546E-04),( 2.1536E-04, 7.1549E-04),
     &  ( 2.1706E-04, 6.8552E-04),( 2.1818E-04, 6.5638E-04),
     &  ( 2.1947E-04, 6.2778E-04),( 2.2169E-04, 5.9913E-04),
     &  ( 2.2289E-04, 5.7089E-04),( 2.2444E-04, 5.4350E-04),
     &  ( 2.2689E-04, 5.1669E-04),( 2.2920E-04, 4.9046E-04),
     &  ( 2.3180E-04, 4.6500E-04),( 2.3470E-04, 4.4087E-04)/

         DATA ((CGS  (I,J), I=1901,2000), J=2,2) /
     &  ( 2.3702E-04, 4.1764E-04),( 2.4135E-04, 3.9595E-04),
     &  ( 2.4895E-04, 3.7609E-04),( 2.5347E-04, 3.5848E-04),
     &  ( 2.6719E-04, 3.4356E-04),( 2.7863E-04, 3.3205E-04),
     &  ( 3.0806E-04, 3.2508E-04),( 3.2593E-04, 3.2534E-04),
     &  ( 3.7053E-04, 3.5351E-04),( 3.7292E-04, 3.5521E-04),
     &  ( 3.1322E-04, 3.6825E-04),( 2.9454E-04, 3.7767E-04),
     &  ( 2.9002E-04, 3.8490E-04),( 2.8283E-04, 3.9072E-04),
     &  ( 2.6444E-04, 3.9555E-04),( 2.5072E-04, 3.9966E-04),
     &  ( 2.4361E-04, 4.0384E-04),( 2.3841E-04, 4.0712E-04),
     &  ( 2.3448E-04, 4.1007E-04),( 2.2970E-04, 4.1278E-04),
     &  ( 2.2419E-04, 4.1529E-04),( 2.2078E-04, 4.1764E-04),
     &  ( 2.1729E-04, 4.1986E-04),( 2.1587E-04, 4.2198E-04),
     &  ( 2.1505E-04, 4.2402E-04),( 2.1255E-04, 4.2600E-04),
     &  ( 2.1136E-04, 4.2796E-04),( 2.0983E-04, 4.2989E-04),
     &  ( 2.0929E-04, 4.3183E-04),( 2.0959E-04, 4.3379E-04),
     &  ( 2.1044E-04, 4.3579E-04),( 2.1017E-04, 4.3786E-04),
     &  ( 2.1053E-04, 4.4003E-04),( 2.1153E-04, 4.4233E-04),
     &  ( 2.1309E-04, 4.4480E-04),( 2.1532E-04, 4.4750E-04),
     &  ( 2.1847E-04, 4.5050E-04),( 2.2310E-04, 4.5393E-04),
     &  ( 2.2583E-04, 4.5790E-04),( 2.2990E-04, 4.6270E-04),
     &  ( 2.3892E-04, 4.6870E-04),( 2.2617E-04, 4.7664E-04),
     &  ( 2.1711E-04, 4.8811E-04),( 2.2011E-04, 5.0753E-04),
     &  ( 2.0029E-04, 5.9054E-04),( 2.2122E-04, 7.3521E-04),
     &  ( 2.2819E-04, 8.1586E-04),( 2.2796E-04, 8.7748E-04),
     &  ( 2.3562E-04, 9.2110E-04),( 2.4023E-04, 9.4649E-04),
     &  ( 2.3508E-04, 9.5430E-04),( 2.3185E-04, 9.4633E-04),
     &  ( 2.3057E-04, 9.2558E-04),( 2.2800E-04, 8.9531E-04),
     &  ( 2.2608E-04, 8.5922E-04),( 2.2494E-04, 8.2021E-04),
     &  ( 2.2432E-04, 7.8070E-04),( 2.2412E-04, 7.4267E-04),
     &  ( 2.2423E-04, 7.0704E-04),( 2.2470E-04, 6.7448E-04),
     &  ( 2.2548E-04, 6.4576E-04),( 2.2669E-04, 6.2052E-04),
     &  ( 2.2836E-04, 5.9860E-04),( 2.3062E-04, 5.8007E-04),
     &  ( 2.3253E-04, 5.6436E-04),( 2.3453E-04, 5.5128E-04),
     &  ( 2.3739E-04, 5.4038E-04),( 2.4123E-04, 5.3149E-04),
     &  ( 2.4632E-04, 5.2425E-04),( 2.5207E-04, 5.1847E-04),
     &  ( 2.5746E-04, 5.1389E-04),( 2.6362E-04, 5.1037E-04),
     &  ( 2.7233E-04, 5.0772E-04),( 2.8443E-04, 5.0652E-04),
     &  ( 2.9998E-04, 5.0542E-04),( 3.2031E-04, 5.0494E-04),
     &  ( 3.4792E-04, 5.0502E-04),( 3.4811E-04, 5.0564E-04),
     &  ( 3.2615E-04, 5.0680E-04),( 2.9839E-04, 5.0858E-04),
     &  ( 2.9896E-04, 5.4536E-04),( 3.0960E-04, 5.5149E-04),
     &  ( 3.1985E-04, 5.5858E-04),( 3.2976E-04, 5.6686E-04),
     &  ( 3.3908E-04, 5.7650E-04),( 3.4781E-04, 5.8768E-04),
     &  ( 3.5620E-04, 6.0059E-04),( 3.6430E-04, 6.1556E-04),
     &  ( 3.7217E-04, 6.3295E-04),( 3.6001E-04, 6.5286E-04),
     &  ( 3.4799E-04, 6.7563E-04),( 3.3796E-04, 7.0143E-04),
     &  ( 3.2960E-04, 7.3029E-04),( 3.2235E-04, 7.6209E-04),
     &  ( 3.1591E-04, 7.9686E-04),( 3.1046E-04, 8.3412E-04),
     &  ( 3.0590E-04, 8.7266E-04),( 3.0207E-04, 9.1213E-04),
     &  ( 2.9887E-04, 9.5104E-04),( 2.9595E-04, 9.8720E-04)/

         DATA ((CGS  (I,J), I=2001,2100), J=2,2) /
     &  ( 2.9335E-04, 1.0190E-03),( 2.9130E-04, 1.0442E-03),
     &  ( 2.9001E-04, 1.0613E-03),( 2.8872E-04, 1.0684E-03),
     &  ( 2.8762E-04, 1.0649E-03),( 2.8810E-04, 1.0504E-03),
     &  ( 2.8671E-04, 1.0261E-03),( 2.8847E-04, 9.9272E-04),
     &  ( 2.8219E-04, 9.5231E-04),( 2.7672E-04, 9.0704E-04),
     &  ( 2.7365E-04, 8.5928E-04),( 2.7469E-04, 8.1034E-04),
     &  ( 2.6785E-04, 7.6179E-04),( 2.6017E-04, 7.1435E-04),
     &  ( 2.5828E-04, 6.6758E-04),( 2.5613E-04, 6.0292E-04),
     &  ( 2.6323E-04, 5.7504E-04),( 2.6717E-04, 5.6884E-04),
     &  ( 2.7619E-04, 5.6539E-04),( 2.8416E-04, 5.6317E-04),
     &  ( 2.8435E-04, 5.6165E-04),( 2.8842E-04, 5.6056E-04),
     &  ( 2.9474E-04, 5.5978E-04),( 3.0175E-04, 5.5921E-04),
     &  ( 3.0086E-04, 5.5881E-04),( 3.0297E-04, 5.5854E-04),
     &  ( 3.0319E-04, 5.5837E-04),( 3.0489E-04, 5.5828E-04),
     &  ( 3.0671E-04, 5.5827E-04),( 3.0844E-04, 5.5831E-04),
     &  ( 3.1083E-04, 5.5841E-04),( 3.1368E-04, 5.5855E-04),
     &  ( 3.1669E-04, 5.5873E-04),( 3.1979E-04, 5.5894E-04),
     &  ( 3.2347E-04, 5.5919E-04),( 3.2764E-04, 5.5947E-04),
     &  ( 3.3248E-04, 5.5978E-04),( 3.3803E-04, 5.6011E-04),
     &  ( 3.4404E-04, 5.6047E-04),( 3.5073E-04, 5.6086E-04),
     &  ( 3.5856E-04, 5.6113E-04),( 3.6773E-04, 5.6140E-04),
     &  ( 3.7747E-04, 5.6169E-04),( 3.7896E-04, 5.6200E-04),
     &  ( 3.8244E-04, 5.6233E-04),( 3.8848E-04, 5.6269E-04),
     &  ( 3.9801E-04, 5.6307E-04),( 4.1196E-04, 5.6347E-04),
     &  ( 4.2548E-04, 5.6390E-04),( 4.1919E-04, 5.6435E-04),
     &  ( 4.1296E-04, 5.6482E-04),( 3.8604E-04, 5.6735E-04),
     &  ( 4.5054E-04, 5.7568E-04),( 4.9335E-04, 5.8506E-04),
     &  ( 5.1143E-04, 5.9403E-04),( 5.2457E-04, 6.0340E-04),
     &  ( 5.3493E-04, 6.1237E-04),( 5.4477E-04, 6.2175E-04),
     &  ( 5.5415E-04, 6.3072E-04),( 5.6257E-04, 6.4009E-04),
     &  ( 5.7045E-04, 6.4947E-04),( 5.7679E-04, 6.5844E-04),
     &  ( 5.8371E-04, 6.6781E-04),( 5.8991E-04, 6.7678E-04),
     &  ( 5.5627E-04, 6.8616E-04),( 5.2410E-04, 6.9512E-04),
     &  ( 4.9047E-04, 7.0450E-04),( 4.5830E-04, 7.1346E-04),
     &  ( 4.2466E-04, 7.2284E-04),( 3.9249E-04, 7.3180E-04),
     &  ( 3.5886E-04, 7.4118E-04),( 3.2574E-04, 0.0000E+00),
     &  ( 2.9253E-04, 0.0000E+00),( 2.5782E-04, 0.0000E+00),
     &  ( 2.2461E-04, 0.0000E+00),( 1.8989E-04, 0.0000E+00),
     &  ( 1.5668E-04, 0.0000E+00),( 1.2196E-04, 0.0000E+00),
     &  ( 1.1302E-04, 0.0000E+00),( 1.0534E-04, 0.0000E+00),
     &  ( 9.9184E-05, 0.0000E+00),( 9.3696E-05, 0.0000E+00),
     &  ( 8.9163E-05, 0.0000E+00),( 8.5022E-05, 0.0000E+00),
     &  ( 8.1529E-05, 0.0000E+00),( 7.8282E-05, 0.0000E+00),
     &  ( 7.5382E-05, 0.0000E+00),( 7.2882E-05, 0.0000E+00),
     &  ( 7.0514E-05, 0.0000E+00),( 6.8452E-05, 0.0000E+00),
     &  ( 6.6481E-05, 0.0000E+00),( 6.4750E-05, 0.0000E+00),
     &  ( 6.3082E-05, 0.0000E+00),( 6.1608E-05, 0.0000E+00),
     &  ( 6.0178E-05, 0.0000E+00),( 5.8907E-05, 0.0000E+00),
     &  ( 5.7668E-05, 0.0000E+00),( 5.6561E-05, 0.0000E+00),
     &  ( 5.5523E-05, 0.0000E+00),( 5.4505E-05, 0.0000E+00)/

         DATA ((CGS  (I,J), I=2101,2193), J=2,2) /
     &  ( 5.3589E-05, 0.0000E+00),( 5.2687E-05, 0.0000E+00),
     &  ( 5.1873E-05, 0.0000E+00),( 5.1069E-05, 0.0000E+00),
     &  ( 5.0341E-05, 0.0000E+00),( 4.9620E-05, 0.0000E+00),
     &  ( 4.8966E-05, 0.0000E+00),( 4.8315E-05, 0.0000E+00),
     &  ( 4.7724E-05, 0.0000E+00),( 4.7134E-05, 0.0000E+00),
     &  ( 4.6573E-05, 0.0000E+00),( 4.6060E-05, 0.0000E+00),
     &  ( 4.5548E-05, 0.0000E+00),( 4.5080E-05, 0.0000E+00),
     &  ( 4.4611E-05, 0.0000E+00),( 4.4181E-05, 0.0000E+00),
     &  ( 4.3750E-05, 0.0000E+00),( 4.3354E-05, 0.0000E+00),
     &  ( 4.2957E-05, 0.0000E+00),( 4.2592E-05, 0.0000E+00),
     &  ( 4.2224E-05, 0.0000E+00),( 4.1886E-05, 0.0000E+00),
     &  ( 4.1559E-05, 0.0000E+00),( 4.1231E-05, 0.0000E+00),
     &  ( 4.0927E-05, 0.0000E+00),( 4.0621E-05, 0.0000E+00),
     &  ( 4.0338E-05, 0.0000E+00),( 4.0053E-05, 0.0000E+00),
     &  ( 3.9788E-05, 0.0000E+00),( 3.9521E-05, 0.0000E+00),
     &  ( 3.9274E-05, 0.0000E+00),( 3.9024E-05, 0.0000E+00),
     &  ( 3.8792E-05, 0.0000E+00),( 3.8556E-05, 0.0000E+00),
     &  ( 3.8329E-05, 0.0000E+00),( 3.8117E-05, 0.0000E+00),
     &  ( 3.7903E-05, 0.0000E+00),( 3.7703E-05, 0.0000E+00),
     &  ( 3.7547E-05, 0.0000E+00),( 3.7399E-05, 0.0000E+00),
     &  ( 3.7243E-05, 0.0000E+00),( 3.7094E-05, 0.0000E+00),
     &  ( 3.6938E-05, 0.0000E+00),( 3.6790E-05, 0.0000E+00),
     &  ( 3.6634E-05, 0.0000E+00),( 3.6485E-05, 0.0000E+00),
     &  ( 3.6330E-05, 0.0000E+00),( 3.6181E-05, 0.0000E+00),
     &  ( 3.6032E-05, 0.0000E+00),( 3.5876E-05, 0.0000E+00),
     &  ( 3.5727E-05, 0.0000E+00),( 3.5572E-05, 0.0000E+00),
     &  ( 3.5423E-05, 0.0000E+00),( 3.5267E-05, 0.0000E+00),
     &  ( 3.5119E-05, 0.0000E+00),( 3.4963E-05, 0.0000E+00),
     &  ( 3.4814E-05, 0.0000E+00),( 3.4658E-05, 0.0000E+00),
     &  ( 3.4510E-05, 0.0000E+00),( 3.4354E-05, 0.0000E+00),
     &  ( 3.3325E-05, 0.0000E+00),( 3.2296E-05, 0.0000E+00),
     &  ( 3.2185E-05, 0.0000E+00),( 2.8581E-05, 0.0000E+00),
     &  ( 2.7715E-05, 0.0000E+00),( 2.6308E-05, 0.0000E+00),
     &  ( 2.5818E-05, 0.0000E+00),( 2.5798E-05, 0.0000E+00),
     &  ( 2.5331E-05, 0.0000E+00),( 2.5330E-05, 0.0000E+00),
     &  ( 2.5075E-05, 0.0000E+00),( 2.5066E-05, 0.0000E+00),
     &  ( 2.5061E-05, 0.0000E+00),( 2.4955E-05, 0.0000E+00),
     &  ( 2.4893E-05, 0.0000E+00),( 2.4882E-05, 0.0000E+00),
     &  ( 2.4865E-05, 0.0000E+00),( 2.4840E-05, 0.0000E+00),
     &  ( 2.4823E-05, 0.0000E+00),( 2.4812E-05, 0.0000E+00),
     &  ( 2.4717E-05, 0.0000E+00),( 2.4713E-05, 0.0000E+00),
     &  ( 2.4687E-05, 0.0000E+00),( 2.4682E-05, 0.0000E+00),
     &  ( 2.4662E-05, 0.0000E+00),( 2.4654E-05, 0.0000E+00),
     &  ( 2.4648E-05, 0.0000E+00),( 2.4642E-05, 0.0000E+00),
     &  ( 2.4626E-05, 0.0000E+00),( 2.4604E-05, 0.0000E+00),
     &  ( 2.4594E-05, 0.0000E+00),( 2.4536E-05, 0.0000E+00),
     &  ( 2.4491E-05, 0.0000E+00)/

         DATA ((CGS  (I,J), I=   1, 100), J=3,3) /
     &  ( 1.0463E-05, 0.0000E+00),( 1.1101E-05, 1.1123E-11),
     &  ( 1.1811E-05, 7.4107E-10),( 1.2605E-05, 2.7914E-09),
     &  ( 1.3530E-05, 7.5836E-09),( 1.4620E-05, 1.6680E-08),
     &  ( 1.6109E-05, 3.1895E-08),( 1.7771E-05, 6.0724E-06),
     &  ( 1.8273E-05, 5.6656E-06),( 1.8734E-05, 6.5301E-06),
     &  ( 1.8113E-05, 7.4144E-06),( 1.7448E-05, 8.3195E-06),
     &  ( 1.7109E-05, 9.4294E-06),( 1.6884E-05, 9.2911E-06),
     &  ( 1.6850E-05, 6.1050E-06),( 1.6977E-05, 6.2142E-06),
     &  ( 1.7587E-05, 5.6053E-06),( 1.8279E-05, 5.5805E-06),
     &  ( 1.8849E-05, 5.9451E-06),( 1.9657E-05, 7.2682E-06),
     &  ( 2.0253E-05, 7.1676E-06),( 2.0716E-05, 7.1309E-06),
     &  ( 2.0957E-05, 8.2458E-06),( 2.1259E-05, 9.8229E-06),
     &  ( 2.1647E-05, 9.9574E-06),( 2.1910E-05, 9.0150E-06),
     &  ( 2.2234E-05, 7.8489E-06),( 2.2487E-05, 8.0114E-06),
     &  ( 2.2629E-05, 8.0863E-06),( 2.3158E-05, 7.2567E-06),
     &  ( 2.3756E-05, 7.3403E-06),( 2.4331E-05, 7.7735E-06),
     &  ( 2.4973E-05, 8.2768E-06),( 2.5600E-05, 8.6538E-06),
     &  ( 2.6200E-05, 9.0883E-06),( 2.6781E-05, 9.3890E-06),
     &  ( 2.7349E-05, 9.5922E-06),( 2.7939E-05, 9.8077E-06),
     &  ( 2.8579E-05, 1.0221E-05),( 2.9267E-05, 1.0245E-05),
     &  ( 2.9800E-05, 1.0249E-05),( 3.0521E-05, 1.0340E-05),
     &  ( 3.1296E-05, 1.0745E-05),( 3.1919E-05, 1.1001E-05),
     &  ( 3.2808E-05, 1.1248E-05),( 3.3741E-05, 1.1530E-05),
     &  ( 3.4420E-05, 1.1707E-05),( 3.5263E-05, 1.1940E-05),
     &  ( 3.5910E-05, 1.2429E-05),( 3.6782E-05, 1.3956E-05),
     &  ( 4.0756E-05, 1.7042E-05),( 4.3978E-05, 2.1322E-05),
     &  ( 4.7588E-05, 2.4905E-05),( 5.0831E-05, 2.9799E-05),
     &  ( 5.1831E-05, 3.0115E-05),( 5.2417E-05, 2.6122E-05),
     &  ( 5.4056E-05, 3.3286E-05),( 5.6504E-05, 2.8934E-05),
     &  ( 6.0636E-05, 3.0596E-05),( 6.4962E-05, 3.3652E-05),
     &  ( 6.9213E-05, 3.6896E-05),( 7.0924E-05, 3.8706E-05),
     &  ( 7.3807E-05, 4.0252E-05),( 7.9222E-05, 4.3106E-05),
     &  ( 8.4266E-05, 4.4874E-05),( 8.9190E-05, 5.4335E-05),
     &  ( 9.0903E-05, 6.6615E-05),( 9.3397E-05, 8.3375E-05),
     &  ( 9.2463E-05, 7.3955E-05),( 9.0375E-05, 7.4252E-05),
     &  ( 9.0154E-05, 1.0248E-04),( 8.9195E-05, 9.2591E-05),
     &  ( 8.6970E-05, 1.0765E-04),( 8.3852E-05, 1.0131E-04),
     &  ( 8.0897E-05, 1.1034E-04),( 7.7672E-05, 1.1399E-04),
     &  ( 7.3347E-05, 1.2085E-04),( 7.1324E-05, 1.2270E-04),
     &  ( 7.0051E-05, 1.3166E-04),( 7.1070E-05, 1.3089E-04),
     &  ( 7.1230E-05, 1.4046E-04),( 6.8559E-05, 1.4581E-04),
     &  ( 6.5853E-05, 1.4350E-04),( 6.4987E-05, 1.4481E-04),
     &  ( 6.5542E-05, 1.4345E-04),( 7.0406E-05, 1.4350E-04),
     &  ( 5.2680E-05, 1.4675E-04),( 6.5754E-05, 1.4315E-04),
     &  ( 1.0447E-04, 1.4123E-04),( 1.2773E-04, 1.4031E-04),
     &  ( 1.3755E-04, 1.3956E-04),( 1.3606E-04, 1.8379E-04),
     &  ( 1.2767E-04, 1.9312E-04),( 1.1597E-04, 2.0126E-04),
     &  ( 1.0554E-04, 2.0847E-04),( 8.5388E-05, 2.6218E-04),
     &  ( 7.7736E-05, 2.6946E-04),( 6.9969E-05, 2.7682E-04),
     &  ( 6.1120E-05, 2.8701E-04),( 5.2835E-05, 2.9150E-04)/

         DATA ((CGS  (I,J), I= 101, 200), J=3,3) /
     &  ( 4.5053E-05, 2.9940E-04),( 4.1410E-05, 3.0685E-04),
     &  ( 4.0656E-05, 3.1394E-04),( 4.1467E-05, 3.0498E-04),
     &  ( 4.3430E-05, 3.0859E-04),( 4.5727E-05, 3.1206E-04),
     &  ( 4.8178E-05, 3.1544E-04),( 5.0477E-05, 3.1873E-04),
     &  ( 5.2765E-05, 3.2197E-04),( 5.5040E-05, 3.2517E-04),
     &  ( 5.6630E-05, 3.2837E-04),( 5.7825E-05, 3.3160E-04),
     &  ( 5.8600E-05, 3.3490E-04),( 5.8317E-05, 2.1360E-04),
     &  ( 5.8012E-05, 2.0425E-04),( 5.7666E-05, 1.9371E-04),
     &  ( 5.5221E-05, 1.8073E-04),( 4.6859E-05, 1.5136E-04),
     &  ( 4.1585E-05, 1.4012E-04),( 4.1517E-05, 1.2978E-04),
     &  ( 4.2212E-05, 1.2144E-04),( 4.3130E-05, 1.1412E-04),
     &  ( 4.4324E-05, 1.0734E-04),( 4.6563E-05, 1.0089E-04),
     &  ( 5.3552E-05, 9.4670E-05),( 1.3947E-04, 2.7998E-04),
     &  ( 4.1666E-05, 2.9174E-04),( 5.4384E-05, 3.0356E-04),
     &  ( 6.9054E-05, 3.1545E-04),( 8.0433E-05, 3.2747E-04),
     &  ( 8.9060E-05, 3.3981E-04),( 9.5473E-05, 3.5247E-04),
     &  ( 9.9988E-05, 3.6558E-04),( 1.0210E-04, 3.7921E-04),
     &  ( 1.0421E-04, 3.9347E-04),( 1.0364E-04, 2.1113E-04),
     &  ( 1.0580E-04, 2.0288E-04),( 1.0708E-04, 1.9414E-04),
     &  ( 1.0873E-04, 1.8809E-04),( 1.1043E-04, 1.8157E-04),
     &  ( 1.1226E-04, 1.7481E-04),( 1.1541E-04, 1.6396E-04),
     &  ( 1.1910E-04, 1.5211E-04),( 1.2085E-04, 1.5240E-04),
     &  ( 1.1457E-04, 1.4040E-04),( 1.0774E-04, 1.2678E-04),
     &  ( 9.9018E-05, 1.1105E-04),( 9.1162E-05, 1.1306E-04),
     &  ( 8.2806E-05, 9.7868E-05),( 7.4090E-05, 1.0841E-04),
     &  ( 6.5577E-05, 1.1270E-04),( 6.1163E-05, 1.1033E-04),
     &  ( 6.0554E-05, 1.0971E-04),( 5.8641E-05, 1.0474E-04),
     &  ( 5.7397E-05, 1.0232E-04),( 5.4601E-05, 1.0288E-04),
     &  ( 5.2421E-05, 9.7049E-05),( 5.1375E-05, 9.3691E-05),
     &  ( 7.8875E-05, 9.6797E-05),( 7.5733E-05, 1.0754E-04),
     &  ( 7.2591E-05, 1.2709E-04),( 6.2888E-05, 1.2094E-04),
     &  ( 5.6326E-05, 1.1200E-04),( 5.8919E-05, 1.1107E-04),
     &  ( 6.1090E-05, 1.0914E-04),( 6.2916E-05, 1.0844E-04),
     &  ( 6.3509E-05, 1.0225E-04),( 6.3485E-05, 1.0043E-04),
     &  ( 6.1124E-05, 8.3203E-05),( 5.8567E-05, 7.3518E-05),
     &  ( 5.7340E-05, 6.8455E-05),( 5.7194E-05, 6.6254E-05),
     &  ( 5.7853E-05, 6.8453E-05),( 5.8512E-05, 6.0186E-05),
     &  ( 5.9920E-05, 5.6347E-05),( 6.1713E-05, 5.2261E-05),
     &  ( 6.5233E-05, 5.0133E-05),( 6.9934E-05, 4.7187E-05),
     &  ( 7.4929E-05, 4.7881E-05),( 7.8189E-05, 5.9671E-05),
     &  ( 8.4296E-05, 5.2818E-05),( 8.7349E-05, 5.1353E-05),
     &  ( 9.4309E-05, 5.1771E-05),( 1.0082E-04, 5.3216E-05),
     &  ( 1.0981E-04, 5.5058E-05),( 1.1905E-04, 5.8014E-05),
     &  ( 1.3149E-04, 5.9841E-05),( 1.4257E-04, 6.6567E-05),
     &  ( 1.5457E-04, 7.4157E-05),( 1.6881E-04, 8.0203E-05),
     &  ( 1.7542E-04, 8.4538E-05),( 1.7948E-04, 8.5954E-05),
     &  ( 1.8976E-04, 8.9233E-05),( 1.9462E-04, 9.1619E-05),
     &  ( 1.9925E-04, 9.5796E-05),( 2.0357E-04, 9.9341E-05),
     &  ( 2.0864E-04, 6.4971E-05),( 2.1421E-04, 8.7557E-05),
     &  ( 2.2120E-04, 9.2251E-05),( 2.4006E-04, 1.0645E-04)/

         DATA ((CGS  (I,J), I= 201, 300), J=3,3) /
     &  ( 3.4772E-04, 9.7870E-05),( 2.8290E-04, 6.9607E-05),
     &  ( 2.8993E-04, 6.8686E-05),( 2.9660E-04, 6.7776E-05),
     &  ( 3.0435E-04, 6.6863E-05),( 3.1289E-04, 6.5939E-05),
     &  ( 3.2227E-04, 6.6125E-05),( 3.3239E-04, 6.6717E-05),
     &  ( 3.4299E-04, 6.7262E-05),( 3.5421E-04, 6.8215E-05),
     &  ( 3.6573E-04, 6.9246E-05),( 3.7736E-04, 7.0284E-05),
     &  ( 3.8899E-04, 7.1474E-05),( 4.0085E-04, 7.3911E-05),
     &  ( 4.1269E-04, 7.7129E-05),( 4.2478E-04, 7.9622E-05),
     &  ( 4.3617E-04, 8.2145E-05),( 4.4676E-04, 8.3576E-05),
     &  ( 4.5720E-04, 8.2214E-05),( 4.6770E-04, 8.0857E-05),
     &  ( 4.7849E-04, 8.0303E-05),( 4.8982E-04, 8.0812E-05),
     &  ( 5.0205E-04, 8.1316E-05),( 5.1545E-04, 8.2587E-05),
     &  ( 5.3023E-04, 8.4446E-05),( 5.4660E-04, 8.6318E-05),
     &  ( 5.6475E-04, 8.8650E-05),( 5.8455E-04, 9.0697E-05),
     &  ( 6.0510E-04, 9.1486E-05),( 6.2274E-04, 9.2232E-05),
     &  ( 6.2412E-04, 9.2539E-05),( 6.2737E-04, 1.6186E-04),
     &  ( 6.3594E-04, 1.6373E-04),( 6.6004E-04, 1.6844E-04),
     &  ( 6.8115E-04, 1.7315E-04),( 6.9927E-04, 1.7798E-04),
     &  ( 8.3740E-04, 1.8295E-04),( 8.7524E-04, 1.8713E-04),
     &  ( 9.1862E-04, 1.9062E-04),( 9.6719E-04, 1.9729E-04),
     &  ( 1.0218E-03, 2.1325E-04),( 1.0833E-03, 2.2921E-04),
     &  ( 1.1530E-03, 2.4491E-04),( 1.2416E-03, 2.6012E-04),
     &  ( 1.3301E-03, 2.7713E-04),( 1.4449E-03, 3.1183E-04),
     &  ( 1.5665E-03, 3.4819E-04),( 1.6861E-03, 5.0897E-04),
     &  ( 1.7963E-03, 7.1800E-04),( 1.8772E-03, 9.5925E-04),
     &  ( 1.9307E-03, 1.2328E-03),( 1.9729E-03, 1.4689E-03),
     &  ( 2.0351E-03, 1.6310E-03),( 2.1473E-03, 1.7113E-03),
     &  ( 2.1769E-03, 1.7150E-03),( 2.2036E-03, 1.7000E-03),
     &  ( 2.2286E-03, 1.7675E-03),( 2.2557E-03, 1.8815E-03),
     &  ( 2.2782E-03, 2.1131E-03),( 2.2930E-03, 2.3457E-03),
     &  ( 2.2984E-03, 2.5791E-03),( 2.2870E-03, 2.8135E-03),
     &  ( 2.2390E-03, 2.9701E-03),( 2.1435E-03, 3.3265E-03),
     &  ( 2.0240E-03, 3.6905E-03),( 1.8665E-03, 4.0987E-03),
     &  ( 1.5216E-03, 4.9093E-03),( 1.2503E-03, 6.0408E-03),
     &  ( 1.1119E-03, 6.0592E-03),( 8.4464E-04, 6.3422E-03),
     &  ( 6.0537E-04, 6.8355E-03),( 3.8169E-04, 7.7053E-03),
     &  ( 1.8954E-04, 7.9641E-03),( 2.2535E-04, 7.6131E-03),
     &  ( 4.5598E-04, 6.8298E-03),( 7.0217E-04, 5.7757E-03),
     &  ( 9.6307E-04, 5.2602E-03),( 1.2448E-03, 4.8324E-03),
     &  ( 1.5140E-03, 4.5055E-03),( 1.7405E-03, 4.1841E-03),
     &  ( 1.9072E-03, 3.8683E-03),( 2.0200E-03, 3.6843E-03),
     &  ( 2.1048E-03, 3.5485E-03),( 2.1798E-03, 3.4050E-03),
     &  ( 2.2493E-03, 3.2370E-03),( 2.3065E-03, 3.0445E-03),
     &  ( 2.3458E-03, 2.9408E-03),( 2.3708E-03, 2.7396E-03),
     &  ( 2.3829E-03, 2.8082E-03),( 2.3809E-03, 2.7441E-03),
     &  ( 2.3700E-03, 2.5218E-03),( 2.3489E-03, 2.0090E-03),
     &  ( 2.3328E-03, 1.6977E-03),( 2.3262E-03, 1.5512E-03),
     &  ( 2.3188E-03, 1.2766E-03),( 2.3110E-03, 1.1833E-03),
     &  ( 2.2946E-03, 1.1757E-03),( 2.2654E-03, 1.1645E-03),
     &  ( 2.2257E-03, 1.1496E-03),( 2.1775E-03, 1.1311E-03)/

         DATA ((CGS  (I,J), I= 301, 400), J=3,3) /
     &  ( 2.1249E-03, 1.1088E-03),( 2.0761E-03, 1.0830E-03),
     &  ( 2.0337E-03, 1.0535E-03),( 1.9962E-03, 1.0203E-03),
     &  ( 1.8892E-03, 8.7847E-04),( 1.7953E-03, 7.3917E-04),
     &  ( 1.6924E-03, 6.0243E-04),( 1.5904E-03, 4.4122E-04),
     &  ( 1.4921E-03, 4.1280E-04),( 1.3962E-03, 4.0542E-04),
     &  ( 1.3172E-03, 3.9554E-04),( 1.2535E-03, 3.8329E-04),
     &  ( 1.1997E-03, 3.6860E-04),( 1.1519E-03, 3.5148E-04),
     &  ( 1.1075E-03, 3.3193E-04),( 1.0706E-03, 3.0987E-04),
     &  ( 1.0367E-03, 3.3156E-04),( 1.0052E-03, 3.1497E-04),
     &  ( 9.7951E-04, 2.9995E-04),( 9.5380E-04, 2.8558E-04),
     &  ( 8.1774E-04, 2.7121E-04),( 7.8869E-04, 2.5684E-04),
     &  ( 7.5375E-04, 2.4665E-04),( 7.0971E-04, 2.4133E-04),
     &  ( 6.2960E-04, 2.2466E-04),( 4.3635E-04, 2.4866E-04),
     &  ( 4.6759E-04, 3.6491E-04),( 6.6046E-04, 3.5585E-04),
     &  ( 6.8779E-04, 3.3987E-04),( 7.0466E-04, 3.2424E-04),
     &  ( 7.1080E-04, 3.0895E-04),( 7.1450E-04, 2.9403E-04),
     &  ( 7.1471E-04, 2.7945E-04),( 7.1378E-04, 2.6523E-04),
     &  ( 7.0714E-04, 2.5289E-04),( 7.0894E-04, 2.4286E-04),
     &  ( 7.0554E-04, 2.3302E-04),( 7.0173E-04, 2.2339E-04),
     &  ( 6.9896E-04, 2.1395E-04),( 6.9332E-04, 2.0472E-04),
     &  ( 6.8890E-04, 1.9568E-04),( 6.5689E-04, 2.7392E-04),
     &  ( 6.5163E-04, 2.6922E-04),( 6.4623E-04, 2.6455E-04),
     &  ( 6.4071E-04, 2.5991E-04),( 6.3508E-04, 2.5532E-04),
     &  ( 6.2942E-04, 2.5076E-04),( 6.2373E-04, 2.4623E-04),
     &  ( 6.1801E-04, 2.4167E-04),( 6.1232E-04, 2.3672E-04),
     &  ( 6.0667E-04, 2.3182E-04),( 6.0108E-04, 2.2697E-04),
     &  ( 5.9554E-04, 2.2218E-04),( 5.9008E-04, 2.1743E-04),
     &  ( 5.8467E-04, 2.1273E-04),( 5.7973E-04, 2.2051E-04),
     &  ( 5.5153E-04, 2.5521E-04),( 4.9282E-04, 2.5926E-04),
     &  ( 4.1264E-04, 2.4068E-04),( 3.6067E-04, 2.1104E-04),
     &  ( 3.2366E-04, 1.9947E-04),( 2.9587E-04, 2.2488E-04),
     &  ( 2.7428E-04, 2.0922E-04),( 2.5720E-04, 1.9246E-04),
     &  ( 2.4396E-04, 1.9836E-04),( 2.4279E-04, 1.9873E-04),
     &  ( 2.2877E-04, 1.9934E-04),( 2.2041E-04, 2.0003E-04),
     &  ( 2.1791E-04, 2.0292E-04),( 2.1312E-04, 2.2405E-04),
     &  ( 2.1038E-04, 2.0325E-04),( 2.1022E-04, 2.0278E-04),
     &  ( 2.0887E-04, 1.8334E-04),( 2.0697E-04, 1.7588E-04),
     &  ( 2.0604E-04, 1.6442E-04),( 2.0565E-04, 1.5478E-04),
     &  ( 2.0593E-04, 1.9256E-04),( 2.0704E-04, 1.8334E-04),
     &  ( 2.0885E-04, 1.5721E-04),( 2.1000E-04, 1.5263E-04),
     &  ( 2.1146E-04, 1.6331E-04),( 2.1260E-04, 1.7940E-04),
     &  ( 2.1603E-04, 1.7047E-04),( 2.2033E-04, 1.5886E-04),
     &  ( 2.2078E-04, 1.5929E-04),( 2.2539E-04, 1.7376E-04),
     &  ( 2.3239E-04, 1.9710E-04),( 2.3681E-04, 2.0418E-04),
     &  ( 2.4175E-04, 2.0998E-04),( 2.5276E-04, 2.0731E-04),
     &  ( 2.6583E-04, 2.0548E-04),( 2.8404E-04, 2.5058E-04),
     &  ( 2.9033E-04, 2.6966E-04),( 3.0701E-04, 2.5707E-04),
     &  ( 3.2080E-04, 2.4724E-04),( 3.3570E-04, 2.2665E-04),
     &  ( 3.6957E-04, 2.4179E-04),( 4.1532E-04, 2.5949E-04),
     &  ( 4.2101E-04, 2.5722E-04),( 4.7030E-04, 2.5442E-04)/

         DATA ((CGS  (I,J), I= 401, 500), J=3,3) /
     &  ( 5.4110E-04, 2.6710E-04),( 5.5615E-04, 2.8202E-04),
     &  ( 5.0633E-04, 2.9948E-04),( 4.6295E-04, 3.2030E-04),
     &  ( 4.4668E-04, 3.2828E-04),( 4.0359E-04, 3.3454E-04),
     &  ( 3.9175E-04, 3.3672E-04),( 3.8542E-04, 3.3802E-04),
     &  ( 3.7772E-04, 3.4161E-04),( 3.6440E-04, 3.5266E-04),
     &  ( 3.5130E-04, 3.6382E-04),( 3.3924E-04, 3.7478E-04),
     &  ( 3.3797E-04, 3.7609E-04),( 3.2693E-04, 3.8804E-04),
     &  ( 3.2574E-04, 3.8938E-04),( 3.1987E-04, 3.9610E-04),
     &  ( 3.1544E-04, 4.0151E-04),( 3.0180E-04, 4.1430E-04),
     &  ( 2.9938E-04, 4.1605E-04),( 2.8194E-04, 4.5471E-04),
     &  ( 2.8046E-04, 4.5564E-04),( 2.7894E-04, 4.5657E-04),
     &  ( 2.6211E-04, 4.6593E-04),( 2.4624E-04, 4.7538E-04),
     &  ( 2.4356E-04, 4.7728E-04),( 2.2970E-04, 4.7219E-04),
     &  ( 2.2862E-04, 4.7175E-04),( 2.2349E-04, 4.8146E-04),
     &  ( 2.2252E-04, 4.8342E-04),( 2.1695E-04, 4.9521E-04),
     &  ( 2.1388E-04, 4.9990E-04),( 2.0337E-04, 5.1409E-04),
     &  ( 2.0211E-04, 5.1567E-04),( 1.8932E-04, 5.3166E-04),
     &  ( 1.7799E-04, 5.4175E-04),( 1.7190E-04, 5.4664E-04),
     &  ( 1.7073E-04, 5.4761E-04),( 1.5678E-04, 5.5985E-04),
     &  ( 1.5482E-04, 5.6215E-04),( 1.4587E-04, 5.7371E-04),
     &  ( 1.4061E-04, 5.8187E-04),( 1.3875E-04, 5.8539E-04),
     &  ( 1.3766E-04, 5.8773E-04),( 1.3716E-04, 5.8891E-04),
     &  ( 1.3428E-04, 5.9559E-04),( 1.3423E-04, 5.9692E-04),
     &  ( 1.3537E-04, 6.0379E-04),( 1.3850E-04, 6.1053E-04),
     &  ( 1.4084E-04, 6.1186E-04),( 1.5242E-04, 6.1288E-04),
     &  ( 1.6884E-04, 6.1376E-04),( 1.7279E-04, 6.1392E-04),
     &  ( 1.7486E-04, 6.1484E-04),( 1.8846E-04, 6.2040E-04),
     &  ( 1.9572E-04, 6.2318E-04),( 2.0334E-04, 6.2596E-04),
     &  ( 2.3920E-04, 6.1110E-04),( 2.4451E-04, 6.0679E-04),
     &  ( 2.5952E-04, 5.9394E-04),( 2.6862E-04, 5.8545E-04),
     &  ( 2.8020E-04, 5.7280E-04),( 2.8192E-04, 5.7071E-04),
     &  ( 2.8698E-04, 5.6444E-04),( 2.9012E-04, 5.6029E-04),
     &  ( 2.9308E-04, 5.5684E-04),( 2.9982E-04, 5.4999E-04),
     &  ( 3.0693E-04, 5.4178E-04),( 3.1352E-04, 5.3696E-04),
     &  ( 3.2379E-04, 5.3111E-04),( 3.3608E-04, 5.3003E-04),
     &  ( 3.3759E-04, 5.2990E-04),( 3.6119E-04, 5.2833E-04),
     &  ( 3.8097E-04, 5.3154E-04),( 4.0357E-04, 5.3416E-04),
     &  ( 4.0807E-04, 5.3480E-04),( 4.4958E-04, 5.3993E-04),
     &  ( 4.5643E-04, 5.4057E-04),( 4.8343E-04, 5.3169E-04),
     &  ( 5.6394E-04, 4.5948E-04),( 5.4462E-04, 3.3102E-04),
     &  ( 5.3256E-04, 3.0904E-04),( 4.5623E-04, 2.7508E-04),
     &  ( 4.3924E-04, 2.7448E-04),( 4.3309E-04, 2.7403E-04),
     &  ( 4.2522E-04, 2.7576E-04),( 4.2668E-04, 2.7779E-04),
     &  ( 4.3130E-04, 2.7774E-04),( 4.3674E-04, 2.7685E-04),
     &  ( 4.4717E-04, 2.7542E-04),( 4.4998E-04, 2.7356E-04),
     &  ( 4.5708E-04, 2.6887E-04),( 4.5851E-04, 2.6792E-04),
     &  ( 4.6428E-04, 2.6410E-04),( 4.7134E-04, 2.5926E-04),
     &  ( 4.7846E-04, 2.5436E-04),( 4.8143E-04, 2.5238E-04),
     &  ( 5.2061E-04, 2.3172E-04),( 5.5478E-04, 2.2006E-04),
     &  ( 5.5419E-04, 1.8831E-04),( 4.1624E-04, 1.5804E-04)/

         DATA ((CGS  (I,J), I= 501, 600), J=3,3) /
     &  ( 3.4755E-04, 1.4278E-04),( 3.1643E-04, 1.9087E-04),
     &  ( 2.7302E-04, 1.8772E-04),( 2.6936E-04, 1.1892E-04),
     &  ( 2.5834E-04, 1.2020E-04),( 2.4775E-04, 1.2353E-04),
     &  ( 2.3006E-04, 1.2903E-04),( 2.2458E-04, 1.2267E-04),
     &  ( 2.2005E-04, 1.1635E-04),( 2.1660E-04, 1.1647E-04),
     &  ( 2.1456E-04, 1.1651E-04),( 2.1369E-04, 1.1651E-04),
     &  ( 2.1396E-04, 1.1651E-04),( 2.1533E-04, 1.1620E-04),
     &  ( 2.1780E-04, 1.1588E-04),( 2.2144E-04, 1.1558E-04),
     &  ( 2.2636E-04, 1.1557E-04),( 2.2753E-04, 1.1559E-04),
     &  ( 2.2877E-04, 1.1561E-04),( 2.3008E-04, 1.1563E-04),
     &  ( 2.3146E-04, 1.1565E-04),( 2.3291E-04, 1.1567E-04),
     &  ( 2.3444E-04, 1.1569E-04),( 2.3606E-04, 1.1571E-04),
     &  ( 2.3639E-04, 1.1572E-04),( 2.3673E-04, 1.1572E-04),
     &  ( 2.3707E-04, 1.1573E-04),( 2.3741E-04, 1.1573E-04),
     &  ( 2.3776E-04, 1.1573E-04),( 2.3811E-04, 1.1574E-04),
     &  ( 2.3847E-04, 1.1574E-04),( 2.3882E-04, 1.1575E-04),
     &  ( 2.3919E-04, 1.1575E-04),( 2.3956E-04, 1.1575E-04),
     &  ( 2.4153E-04, 1.1577E-04),( 2.4261E-04, 1.1580E-04),
     &  ( 2.4319E-04, 1.1581E-04),( 2.4361E-04, 1.1582E-04),
     &  ( 2.4404E-04, 1.1583E-04),( 2.4448E-04, 1.1584E-04),
     &  ( 2.4492E-04, 1.1585E-04),( 2.4537E-04, 1.1586E-04),
     &  ( 2.4583E-04, 1.1587E-04),( 2.4605E-04, 1.1587E-04),
     &  ( 2.4628E-04, 1.1588E-04),( 2.4652E-04, 1.1588E-04),
     &  ( 2.4675E-04, 1.1588E-04),( 2.4698E-04, 1.1589E-04),
     &  ( 2.4722E-04, 1.1589E-04),( 2.4745E-04, 1.1590E-04),
     &  ( 2.4769E-04, 1.1590E-04),( 2.4793E-04, 1.1591E-04),
     &  ( 2.4817E-04, 1.1591E-04),( 2.4841E-04, 1.1592E-04),
     &  ( 2.4866E-04, 1.1592E-04),( 2.4890E-04, 1.1592E-04),
     &  ( 2.4915E-04, 1.1593E-04),( 2.4939E-04, 1.1593E-04),
     &  ( 2.4964E-04, 1.1593E-04),( 2.4990E-04, 1.1593E-04),
     &  ( 2.5015E-04, 1.1593E-04),( 2.5040E-04, 1.1593E-04),
     &  ( 2.5065E-04, 1.1593E-04),( 2.5091E-04, 1.1593E-04),
     &  ( 2.5117E-04, 1.1593E-04),( 2.5143E-04, 1.1593E-04),
     &  ( 2.5169E-04, 1.1593E-04),( 2.5195E-04, 1.1593E-04),
     &  ( 2.5221E-04, 1.1593E-04),( 2.5248E-04, 1.1593E-04),
     &  ( 2.5274E-04, 1.1593E-04),( 2.5301E-04, 1.1593E-04),
     &  ( 2.5328E-04, 1.1593E-04),( 2.5355E-04, 1.1591E-04),
     &  ( 2.5382E-04, 1.1589E-04),( 2.5409E-04, 1.1587E-04),
     &  ( 2.5437E-04, 1.1585E-04),( 2.5465E-04, 1.1583E-04),
     &  ( 2.5493E-04, 1.1581E-04),( 2.5521E-04, 1.1579E-04),
     &  ( 2.5549E-04, 1.1577E-04),( 2.5577E-04, 1.1574E-04),
     &  ( 2.5606E-04, 1.1572E-04),( 2.5620E-04, 1.1573E-04),
     &  ( 2.5635E-04, 1.1574E-04),( 2.5649E-04, 1.1575E-04),
     &  ( 2.5664E-04, 1.1576E-04),( 2.5678E-04, 1.1577E-04),
     &  ( 2.5693E-04, 1.1578E-04),( 2.5708E-04, 1.1579E-04),
     &  ( 2.5722E-04, 1.1580E-04),( 2.5737E-04, 1.1581E-04),
     &  ( 2.5752E-04, 1.1582E-04),( 2.5767E-04, 1.1582E-04),
     &  ( 2.5782E-04, 1.1583E-04),( 2.5797E-04, 1.1584E-04),
     &  ( 2.5812E-04, 1.1585E-04),( 2.5827E-04, 1.1586E-04),
     &  ( 2.5842E-04, 1.1587E-04),( 2.5857E-04, 1.1588E-04)/

         DATA ((CGS  (I,J), I= 601, 700), J=3,3) /
     &  ( 2.5872E-04, 1.1589E-04),( 2.5888E-04, 1.1590E-04),
     &  ( 2.5903E-04, 1.1591E-04),( 2.5919E-04, 1.1592E-04),
     &  ( 2.5934E-04, 1.1593E-04),( 2.5950E-04, 1.1593E-04),
     &  ( 2.5965E-04, 1.1594E-04),( 2.5981E-04, 1.1595E-04),
     &  ( 2.5997E-04, 1.1596E-04),( 2.6012E-04, 1.1597E-04),
     &  ( 2.6028E-04, 1.1598E-04),( 2.6044E-04, 1.1599E-04),
     &  ( 2.6060E-04, 1.1600E-04),( 2.6076E-04, 1.1601E-04),
     &  ( 2.6092E-04, 1.1602E-04),( 2.6108E-04, 1.1603E-04),
     &  ( 2.6124E-04, 1.1604E-04),( 2.6141E-04, 1.1605E-04),
     &  ( 2.6157E-04, 1.1605E-04),( 2.6173E-04, 1.1606E-04),
     &  ( 2.6190E-04, 1.1607E-04),( 2.6213E-04, 1.1609E-04),
     &  ( 2.6223E-04, 1.1609E-04),( 2.6239E-04, 1.1608E-04),
     &  ( 2.6256E-04, 1.1608E-04),( 2.6273E-04, 1.1607E-04),
     &  ( 2.6289E-04, 1.1606E-04),( 2.6306E-04, 1.1605E-04),
     &  ( 2.6323E-04, 1.1604E-04),( 2.6340E-04, 1.1604E-04),
     &  ( 2.6357E-04, 1.1603E-04),( 2.6374E-04, 1.1602E-04),
     &  ( 2.6391E-04, 1.1601E-04),( 2.6408E-04, 1.1600E-04),
     &  ( 2.6421E-04, 1.1600E-04),( 2.6456E-04, 1.1598E-04),
     &  ( 2.6492E-04, 1.1597E-04),( 2.6527E-04, 1.1595E-04),
     &  ( 2.6563E-04, 1.1593E-04),( 2.6599E-04, 1.1592E-04),
     &  ( 2.6635E-04, 1.1591E-04),( 2.6672E-04, 1.1590E-04),
     &  ( 2.6709E-04, 6.7165E-04),( 2.6746E-04, 1.4169E-03),
     &  ( 2.6784E-04, 5.9876E-03),( 2.6786E-04, 6.6969E-03),
     &  ( 2.6788E-04, 7.5428E-03),( 2.6790E-04, 8.5626E-03),
     &  ( 2.6792E-04, 9.8073E-03),( 2.6794E-04, 1.1348E-02),
     &  ( 2.6795E-04, 1.3288E-02),( 2.6797E-04, 1.5774E-02),
     &  ( 2.6799E-04, 1.9036E-02),( 2.6801E-04, 2.3428E-02),
     &  ( 2.6803E-04, 2.9540E-02),( 2.6805E-04, 3.8395E-02),
     &  ( 2.6807E-04, 5.1899E-02),( 2.6809E-04, 7.3931E-02),
     &  ( 2.6809E-04, 7.6870E-02),( 2.6812E-04, 1.6260E-01),
     &  ( 2.6813E-04, 2.5416E-01),( 2.6814E-04, 3.5121E-01),
     &  ( 2.6815E-04, 4.5791E-01),( 2.6815E-04, 5.5871E-01),
     &  ( 2.6815E-04, 6.6437E-01),( 2.6816E-04, 7.6498E-01),
     &  ( 2.6816E-04, 8.8512E-01),( 2.6816E-04, 9.8462E-01),
     &  ( 2.6816E-04, 1.0966E+00),( 2.6816E-04, 1.1955E+00),
     &  ( 2.6817E-04, 1.3024E+00),( 2.6817E-04, 1.3876E+00),
     &  ( 2.6817E-04, 1.5068E+00),( 2.6817E-04, 1.5682E+00),
     &  ( 2.6817E-04, 1.6615E+00),( 2.6817E-04, 1.7550E+00),
     &  ( 2.6817E-04, 1.8164E+00),( 2.6817E-04, 1.9056E+00),
     &  ( 2.6817E-04, 1.9620E+00),( 2.6818E-04, 2.0150E+00),
     &  ( 2.6818E-04, 2.0638E+00),( 2.6818E-04, 2.1076E+00),
     &  ( 2.6818E-04, 2.1455E+00),( 2.6818E-04, 2.1768E+00),
     &  ( 2.6818E-04, 2.2009E+00),( 2.6818E-04, 2.2173E+00),
     &  ( 2.6818E-04, 2.2255E+00),( 2.6818E-04, 2.2255E+00),
     &  ( 2.6818E-04, 2.2101E+00),( 2.6818E-04, 2.1898E+00),
     &  ( 2.6818E-04, 2.1455E+00),( 2.6819E-04, 2.0865E+00),
     &  ( 2.6819E-04, 1.8765E+00),( 2.6819E-04, 1.6304E+00),
     &  ( 2.6819E-04, 1.5375E+00),( 2.6819E-04, 1.4466E+00),
     &  ( 2.6819E-04, 1.3878E+00),( 2.6820E-04, 1.3026E+00),
     &  ( 2.6820E-04, 1.2481E+00),( 2.6820E-04, 1.1956E+00)/

         DATA ((CGS  (I,J), I= 701, 800), J=3,3) /
     &  ( 2.6820E-04, 1.1451E+00),( 2.6820E-04, 1.0967E+00),
     &  ( 2.6820E-04, 1.0504E+00),( 2.6820E-04, 1.0061E+00),
     &  ( 2.6820E-04, 9.6386E-01),( 2.6820E-04, 9.2359E-01),
     &  ( 2.6820E-04, 8.8523E-01),( 2.6820E-04, 8.4872E-01),
     &  ( 2.6820E-04, 7.9728E-01),( 2.6821E-04, 7.6509E-01),
     &  ( 2.6821E-04, 7.1976E-01),( 2.6821E-04, 6.7777E-01),
     &  ( 2.6821E-04, 6.5151E-01),( 2.6821E-04, 6.0282E-01),
     &  ( 2.6821E-04, 5.6940E-01),( 2.6821E-04, 5.2856E-01),
     &  ( 2.6821E-04, 4.9156E-01),( 2.6822E-04, 4.5010E-01),
     &  ( 2.6822E-04, 4.1329E-01),( 2.6822E-04, 3.6844E-01),
     &  ( 2.6822E-04, 3.3012E-01),( 2.6823E-04, 2.8865E-01),
     &  ( 2.6823E-04, 2.4739E-01),( 2.6824E-04, 2.0108E-01),
     &  ( 2.6825E-04, 1.5559E-01),( 2.6826E-04, 1.0820E-01),
     &  ( 2.6828E-04, 7.3967E-02),( 2.6829E-04, 5.1929E-02),
     &  ( 2.6831E-04, 3.8421E-02),( 2.6833E-04, 2.9563E-02),
     &  ( 2.6835E-04, 2.3449E-02),( 2.6837E-04, 1.9054E-02),
     &  ( 2.6839E-04, 1.5791E-02),( 2.6841E-04, 1.3303E-02),
     &  ( 2.6843E-04, 1.1363E-02),( 2.6845E-04, 9.8205E-03),
     &  ( 2.6847E-04, 8.5748E-03),( 2.6849E-04, 7.5543E-03),
     &  ( 2.6850E-04, 6.7077E-03),( 2.6852E-04, 5.9978E-03),
     &  ( 2.6854E-04, 5.3966E-03),( 2.6856E-04, 4.8831E-03),
     &  ( 2.6858E-04, 4.4410E-03),( 2.6860E-04, 4.0576E-03),
     &  ( 2.6898E-04, 1.2133E-03),( 2.6936E-04, 6.2231E-04),
     &  ( 2.6975E-04, 4.0644E-04),( 2.7014E-04, 3.0424E-04),
     &  ( 2.7054E-04, 1.1615E-04),( 2.7094E-04, 1.1626E-04),
     &  ( 2.7135E-04, 1.1637E-04),( 2.7176E-04, 1.1647E-04),
     &  ( 2.7217E-04, 1.1658E-04),( 2.7259E-04, 1.1669E-04),
     &  ( 2.7265E-04, 1.1670E-04),( 2.7308E-04, 1.1681E-04),
     &  ( 2.7352E-04, 1.1692E-04),( 2.7396E-04, 1.1703E-04),
     &  ( 2.7441E-04, 1.1714E-04),( 2.7486E-04, 1.1725E-04),
     &  ( 2.7533E-04, 1.1736E-04),( 2.7580E-04, 1.1747E-04),
     &  ( 2.7628E-04, 1.1758E-04),( 2.7676E-04, 1.1769E-04),
     &  ( 2.7726E-04, 1.1780E-04),( 2.7776E-04, 1.1791E-04),
     &  ( 2.7826E-04, 1.1802E-04),( 2.7878E-04, 1.1813E-04),
     &  ( 2.7930E-04, 1.1823E-04),( 2.7983E-04, 1.1834E-04),
     &  ( 2.8037E-04, 1.1845E-04),( 2.8092E-04, 1.1856E-04),
     &  ( 2.8148E-04, 1.1867E-04),( 2.8204E-04, 1.1878E-04),
     &  ( 2.8262E-04, 1.1889E-04),( 2.8320E-04, 1.1900E-04),
     &  ( 2.8379E-04, 1.1911E-04),( 2.8440E-04, 1.1922E-04),
     &  ( 2.8501E-04, 1.1933E-04),( 2.8563E-04, 1.1944E-04),
     &  ( 2.8626E-04, 1.1955E-04),( 2.8691E-04, 1.1965E-04),
     &  ( 2.8756E-04, 1.1976E-04),( 2.8823E-04, 1.1987E-04),
     &  ( 2.8890E-04, 1.1998E-04),( 2.8959E-04, 1.2009E-04),
     &  ( 2.9029E-04, 1.2020E-04),( 2.9101E-04, 1.2031E-04),
     &  ( 2.9174E-04, 1.2042E-04),( 2.9248E-04, 1.2053E-04),
     &  ( 2.9324E-04, 1.2064E-04),( 2.9401E-04, 1.2074E-04),
     &  ( 2.9479E-04, 1.2085E-04),( 2.9559E-04, 1.2096E-04),
     &  ( 2.9641E-04, 1.2107E-04),( 2.9724E-04, 1.2118E-04),
     &  ( 2.9810E-04, 1.2129E-04),( 2.9897E-04, 1.2140E-04),
     &  ( 2.9985E-04, 1.2151E-04),( 3.0076E-04, 1.2162E-04)/

         DATA ((CGS  (I,J), I= 801, 900), J=3,3) /
     &  ( 3.0169E-04, 1.2172E-04),( 3.0264E-04, 1.2183E-04),
     &  ( 3.0361E-04, 1.2194E-04),( 3.0461E-04, 1.2205E-04),
     &  ( 3.0563E-04, 1.2216E-04),( 3.0668E-04, 1.2227E-04),
     &  ( 3.0775E-04, 1.2238E-04),( 3.0885E-04, 1.2249E-04),
     &  ( 3.0998E-04, 1.2259E-04),( 3.1114E-04, 1.2270E-04),
     &  ( 3.1234E-04, 1.2281E-04),( 3.1357E-04, 1.2292E-04),
     &  ( 3.1483E-04, 1.2303E-04),( 3.1613E-04, 1.2314E-04),
     &  ( 3.1748E-04, 1.2325E-04),( 3.1887E-04, 1.2336E-04),
     &  ( 3.2030E-04, 1.2346E-04),( 3.2179E-04, 1.2357E-04),
     &  ( 3.2332E-04, 1.2368E-04),( 3.2492E-04, 1.2379E-04),
     &  ( 3.2657E-04, 1.2390E-04),( 3.2829E-04, 1.2401E-04),
     &  ( 3.3008E-04, 1.2412E-04),( 3.3194E-04, 1.2422E-04),
     &  ( 3.3389E-04, 1.2433E-04),( 3.3593E-04, 1.2444E-04),
     &  ( 3.3807E-04, 1.2455E-04),( 3.4031E-04, 1.2466E-04),
     &  ( 3.4268E-04, 1.2477E-04),( 3.4518E-04, 1.2488E-04),
     &  ( 3.4782E-04, 1.2498E-04),( 3.5063E-04, 1.2509E-04),
     &  ( 3.5364E-04, 1.2520E-04),( 3.5685E-04, 1.2531E-04),
     &  ( 3.6032E-04, 1.2542E-04),( 3.6407E-04, 1.2553E-04),
     &  ( 3.6816E-04, 1.2563E-04),( 3.7245E-04, 1.2574E-04),
     &  ( 3.7280E-04, 1.2585E-04),( 3.7312E-04, 1.2596E-04),
     &  ( 3.7341E-04, 1.2607E-04),( 3.7366E-04, 1.2618E-04),
     &  ( 3.7388E-04, 1.2628E-04),( 3.7405E-04, 1.2639E-04),
     &  ( 3.7415E-04, 1.2650E-04),( 3.7417E-04, 1.2661E-04),
     &  ( 3.7412E-04, 1.2671E-04),( 3.7875E-04, 1.1690E-04),
     &  ( 3.7933E-04, 1.1745E-04),( 3.7967E-04, 1.1799E-04),
     &  ( 3.8002E-04, 1.1854E-04),( 3.8017E-04, 1.1908E-04),
     &  ( 3.8034E-04, 1.1963E-04),( 3.8049E-04, 1.2017E-04),
     &  ( 3.8066E-04, 1.2072E-04),( 3.8078E-04, 1.2127E-04),
     &  ( 3.8093E-04, 1.2181E-04),( 3.2753E-04, 1.4379E-04),
     &  ( 3.0997E-04, 1.7163E-04),( 3.1316E-04, 1.8601E-04),
     &  ( 3.2550E-04, 1.9217E-04),( 3.4607E-04, 1.9179E-04),
     &  ( 3.8396E-04, 1.8104E-04),( 4.0379E-04, 1.7602E-04),
     &  ( 4.2775E-04, 1.7100E-04),( 4.3122E-04, 1.7104E-04),
     &  ( 4.5007E-04, 1.9166E-04),( 4.6223E-04, 1.8275E-04),
     &  ( 4.6460E-04, 1.8118E-04),( 5.0070E-04, 1.8122E-04),
     &  ( 5.6796E-04, 1.8126E-04),( 5.7415E-04, 1.8125E-04),
     &  ( 5.7264E-04, 1.6084E-04),( 5.7870E-04, 1.6299E-04),
     &  ( 5.8649E-04, 1.6668E-04),( 5.6959E-04, 1.7037E-04),
     &  ( 5.5801E-04, 1.7405E-04),( 5.4962E-04, 1.7773E-04),
     &  ( 5.4323E-04, 1.8140E-04),( 5.3825E-04, 1.8151E-04),
     &  ( 5.3444E-04, 1.8162E-04),( 5.3171E-04, 1.8173E-04),
     &  ( 5.2981E-04, 1.8183E-04),( 5.2922E-04, 1.8412E-04),
     &  ( 5.2864E-04, 1.8640E-04),( 5.2806E-04, 1.8869E-04),
     &  ( 5.2744E-04, 1.9098E-04),( 5.2676E-04, 1.9328E-04),
     &  ( 5.2605E-04, 1.9774E-04),( 5.2575E-04, 1.9998E-04),
     &  ( 5.2550E-04, 2.0222E-04),( 5.2530E-04, 2.0446E-04),
     &  ( 5.2515E-04, 2.0670E-04),( 5.2506E-04, 2.0894E-04),
     &  ( 5.2503E-04, 2.1119E-04),( 5.2506E-04, 2.1343E-04),
     &  ( 5.2517E-04, 2.1568E-04),( 5.2533E-04, 2.1577E-04),
     &  ( 5.2555E-04, 2.1405E-04),( 5.2581E-04, 2.1234E-04)/

         DATA ((CGS  (I,J), I= 901,1000), J=3,3) /
     &  ( 5.2612E-04, 2.1062E-04),( 5.2657E-04, 2.0898E-04),
     &  ( 5.2679E-04, 2.0804E-04),( 5.2707E-04, 2.0711E-04),
     &  ( 5.2737E-04, 2.0617E-04),( 5.2770E-04, 2.0523E-04),
     &  ( 5.2806E-04, 2.0430E-04),( 5.2844E-04, 2.0337E-04),
     &  ( 5.2885E-04, 2.0243E-04),( 5.2929E-04, 2.0150E-04),
     &  ( 5.2976E-04, 2.0057E-04),( 5.3028E-04, 1.9964E-04),
     &  ( 5.3084E-04, 1.9871E-04),( 5.3146E-04, 1.9779E-04),
     &  ( 5.3214E-04, 1.9686E-04),( 5.3288E-04, 1.9593E-04),
     &  ( 5.3369E-04, 1.9501E-04),( 5.3456E-04, 1.9409E-04),
     &  ( 5.3548E-04, 1.9316E-04),( 5.3645E-04, 1.9224E-04),
     &  ( 5.3722E-04, 1.9155E-04),( 5.3748E-04, 1.9132E-04),
     &  ( 5.3769E-04, 1.9114E-04),( 5.3804E-04, 1.1326E-01),
     &  ( 5.3813E-04, 1.4078E-01),( 5.3820E-04, 1.6784E-01),
     &  ( 5.3826E-04, 1.9500E-01),( 5.3830E-04, 2.2203E-01),
     &  ( 5.3834E-04, 2.4830E-01),( 5.3837E-04, 2.7542E-01),
     &  ( 5.3840E-04, 3.0261E-01),( 5.3843E-04, 3.2686E-01),
     &  ( 5.3845E-04, 3.5356E-01),( 5.3847E-04, 3.8037E-01),
     &  ( 5.3849E-04, 4.0683E-01),( 5.3851E-04, 4.3241E-01),
     &  ( 5.3853E-04, 4.5975E-01),( 5.3855E-04, 4.8224E-01),
     &  ( 5.3856E-04, 5.0926E-01),( 5.3858E-04, 5.3405E-01),
     &  ( 5.3859E-04, 5.5986E-01),( 5.3860E-04, 5.8663E-01),
     &  ( 5.3862E-04, 6.1027E-01),( 5.3863E-04, 6.3856E-01),
     &  ( 5.3864E-04, 6.6328E-01),( 5.3865E-04, 6.8831E-01),
     &  ( 5.3867E-04, 7.1351E-01),( 5.3868E-04, 7.4286E-01),
     &  ( 5.3869E-04, 7.6775E-01),( 5.3871E-04, 7.9614E-01),
     &  ( 5.3872E-04, 8.1961E-01),( 5.3874E-04, 8.4916E-01),
     &  ( 5.3875E-04, 8.7607E-01),( 5.3877E-04, 9.0745E-01),
     &  ( 5.3879E-04, 9.2718E-01),( 5.3881E-04, 9.4177E-01),
     &  ( 5.3882E-04, 9.4594E-01),( 5.3883E-04, 9.4792E-01),
     &  ( 5.3884E-04, 9.4771E-01),( 5.3887E-04, 9.3553E-01),
     &  ( 5.3889E-04, 9.1472E-01),( 5.3891E-04, 8.9416E-01),
     &  ( 5.3893E-04, 8.6971E-01),( 5.3894E-04, 8.4925E-01),
     &  ( 5.3895E-04, 8.2352E-01),( 5.3897E-04, 8.0022E-01),
     &  ( 5.3898E-04, 7.7197E-01),( 5.3899E-04, 7.4715E-01),
     &  ( 5.3901E-04, 7.2203E-01),( 5.3902E-04, 6.9683E-01),
     &  ( 5.3903E-04, 6.6756E-01),( 5.3905E-04, 6.4278E-01),
     &  ( 5.3906E-04, 6.1440E-01),( 5.3907E-04, 5.8676E-01),
     &  ( 5.3909E-04, 5.5999E-01),( 5.3910E-04, 5.3058E-01),
     &  ( 5.3912E-04, 5.0594E-01),( 5.3914E-04, 4.7583E-01),
     &  ( 5.3916E-04, 4.4751E-01),( 5.3918E-04, 4.1811E-01),
     &  ( 5.3920E-04, 3.8822E-01),( 5.3923E-04, 3.5839E-01),
     &  ( 5.3925E-04, 3.3125E-01),( 5.3928E-04, 3.0081E-01),
     &  ( 5.3932E-04, 2.7047E-01),( 5.3936E-04, 2.4111E-01),
     &  ( 5.3940E-04, 2.1098E-01),( 5.3946E-04, 1.8081E-01),
     &  ( 5.3954E-04, 1.5090E-01),( 5.3964E-04, 1.2067E-01),
     &  ( 5.3970E-04, 1.0617E-01),( 5.3978E-04, 9.0697E-02),
     &  ( 5.3989E-04, 7.4342E-02),( 5.4004E-04, 5.8378E-02),
     &  ( 5.4015E-04, 4.9884E-02),( 5.4043E-04, 3.4782E-02),
     &  ( 5.4055E-04, 3.0234E-02),( 5.4089E-04, 2.1647E-02),
     &  ( 5.4215E-04, 1.8765E-04),( 5.4346E-04, 1.8674E-04)/

         DATA ((CGS  (I,J), I=1001,1100), J=3,3) /
     &  ( 5.4484E-04, 1.8582E-04),( 5.4627E-04, 1.8491E-04),
     &  ( 5.4778E-04, 1.8400E-04),( 5.4934E-04, 1.8309E-04),
     &  ( 5.5093E-04, 1.8218E-04),( 5.5255E-04, 1.8127E-04),
     &  ( 5.5419E-04, 1.8036E-04),( 5.5587E-04, 1.7946E-04),
     &  ( 5.5757E-04, 1.7873E-04),( 5.5930E-04, 1.7875E-04),
     &  ( 5.6106E-04, 2.0754E-04),( 5.6281E-04, 2.0794E-04),
     &  ( 5.6468E-04, 2.0835E-04),( 5.6650E-04, 2.0876E-04),
     &  ( 5.6838E-04, 2.0919E-04),( 5.7029E-04, 2.0962E-04),
     &  ( 5.7386E-04, 2.1043E-04),( 5.7955E-04, 2.1173E-04),
     &  ( 5.8385E-04, 2.1541E-04),( 5.9340E-04, 2.2851E-04),
     &  ( 6.0318E-04, 2.4184E-04),( 6.1781E-04, 2.5884E-04),
     &  ( 6.2898E-04, 3.0666E-04),( 6.1029E-04, 4.3640E-04),
     &  ( 5.8351E-04, 5.6857E-04),( 5.6289E-04, 5.7043E-04),
     &  ( 5.4792E-04, 5.7687E-04),( 5.3824E-04, 5.8578E-04),
     &  ( 5.3190E-04, 5.9614E-04),( 5.2740E-04, 6.0740E-04),
     &  ( 5.2401E-04, 6.1923E-04),( 5.2135E-04, 6.3593E-04),
     &  ( 5.1921E-04, 6.5420E-04),( 5.1743E-04, 6.7212E-04),
     &  ( 5.1594E-04, 6.8969E-04),( 5.1465E-04, 7.0704E-04),
     &  ( 5.1353E-04, 7.2420E-04),( 5.1254E-04, 7.4121E-04),
     &  ( 5.1167E-04, 7.5813E-04),( 5.1087E-04, 7.7502E-04),
     &  ( 5.1016E-04, 7.9195E-04),( 5.0948E-04, 8.0890E-04),
     &  ( 5.0892E-04, 8.2602E-04),( 5.0832E-04, 8.4330E-04),
     &  ( 5.0772E-04, 8.6083E-04),( 5.0719E-04, 8.7865E-04),
     &  ( 5.0663E-04, 8.9691E-04),( 5.0604E-04, 9.1566E-04),
     &  ( 5.0547E-04, 9.3506E-04),( 5.0489E-04, 9.5522E-04),
     &  ( 5.0430E-04, 9.7638E-04),( 5.0368E-04, 9.9880E-04),
     &  ( 5.0304E-04, 1.0229E-03),( 5.0236E-04, 1.0493E-03),
     &  ( 5.0161E-04, 1.0789E-03),( 5.0075E-04, 1.1138E-03),
     &  ( 4.9966E-04, 1.1591E-03),( 4.9710E-04, 1.2686E-03),
     &  ( 4.9297E-04, 1.3789E-03),( 4.9110E-04, 1.4242E-03),
     &  ( 4.8956E-04, 1.4581E-03),( 4.8816E-04, 1.4856E-03),
     &  ( 4.8683E-04, 1.5087E-03),( 4.8552E-04, 1.5280E-03),
     &  ( 4.8423E-04, 1.5441E-03),( 4.8287E-04, 1.5571E-03),
     &  ( 4.8142E-04, 1.5672E-03),( 4.7932E-04, 1.5742E-03),
     &  ( 4.7807E-04, 1.5782E-03),( 4.7594E-04, 1.5790E-03),
     &  ( 4.7310E-04, 1.5764E-03),( 4.6850E-04, 1.5701E-03),
     &  ( 4.6901E-04, 1.5600E-03),( 4.6955E-04, 1.5458E-03),
     &  ( 4.7468E-04, 1.5273E-03),( 4.7799E-04, 1.5041E-03),
     &  ( 4.8039E-04, 1.4760E-03),( 4.8233E-04, 1.4429E-03),
     &  ( 4.8395E-04, 1.4045E-03),( 4.8537E-04, 1.3606E-03),
     &  ( 4.8664E-04, 1.3113E-03),( 4.8780E-04, 1.2567E-03),
     &  ( 4.8888E-04, 1.1968E-03),( 4.8964E-04, 1.1320E-03),
     &  ( 4.9051E-04, 1.0628E-03),( 4.9039E-04, 9.8980E-04),
     &  ( 4.9033E-04, 9.1383E-04),( 4.9034E-04, 8.3593E-04),
     &  ( 4.9053E-04, 7.5723E-04),( 4.9110E-04, 6.7916E-04),
     &  ( 4.9283E-04, 6.0323E-04),( 4.9738E-04, 5.3405E-04),
     &  ( 4.9917E-04, 5.1922E-04),( 5.0845E-04, 4.8924E-04),
     &  ( 5.2653E-04, 4.8982E-04),( 5.2645E-04, 5.0123E-04),
     &  ( 5.1642E-04, 5.1020E-04),( 5.1094E-04, 5.1020E-04),
     &  ( 5.1134E-04, 4.9611E-04),( 5.3441E-04, 4.7907E-04)/

         DATA ((CGS  (I,J), I=1101,1200), J=3,3) /
     &  ( 5.5862E-04, 5.1512E-04),( 5.6195E-04, 5.5386E-04),
     &  ( 5.5155E-04, 5.8068E-04),( 5.4354E-04, 5.8261E-04),
     &  ( 5.3338E-04, 5.8848E-04),( 5.2833E-04, 5.8119E-04),
     &  ( 5.2581E-04, 5.8820E-04),( 5.2602E-04, 5.9511E-04),
     &  ( 5.3338E-04, 6.0827E-04),( 5.3039E-04, 6.3328E-04),
     &  ( 5.2001E-04, 6.3165E-04),( 5.6886E-04, 6.1695E-04),
     &  ( 5.7604E-04, 7.9867E-04),( 5.3423E-04, 8.4857E-04),
     &  ( 4.9242E-04, 6.2654E-04),( 4.5061E-04, 5.7323E-04),
     &  ( 4.8215E-04, 6.1237E-04),( 4.9281E-04, 6.3024E-04),
     &  ( 4.9147E-04, 6.3186E-04),( 5.3118E-04, 6.0056E-04),
     &  ( 5.7249E-04, 5.8998E-04),( 6.2894E-04, 6.9749E-04),
     &  ( 5.7999E-04, 8.7400E-04),( 4.9390E-04, 8.4387E-04),
     &  ( 4.8756E-04, 8.0863E-04),( 4.9464E-04, 8.1296E-04),
     &  ( 4.9591E-04, 8.3112E-04),( 4.8144E-04, 8.4581E-04),
     &  ( 4.6836E-04, 8.0184E-04),( 5.2477E-04, 7.3822E-04),
     &  ( 6.3634E-04, 7.5793E-04),( 8.2057E-04, 7.6901E-04),
     &  ( 9.3284E-04, 9.9501E-04),( 7.8611E-04, 1.6810E-03),
     &  ( 2.0277E-04, 1.6679E-03),( 1.6750E-04, 1.3265E-03),
     &  ( 1.8207E-04, 1.2113E-03),( 2.4175E-04, 1.0438E-03),
     &  ( 2.2668E-04, 7.8278E-04),( 1.9037E-04, 6.9478E-04),
     &  ( 1.6367E-04, 6.8597E-04),( 1.9352E-04, 6.7274E-04),
     &  ( 2.2769E-04, 7.4329E-04),( 2.2716E-04, 7.9797E-04),
     &  ( 2.2016E-04, 8.1140E-04),( 2.0700E-04, 8.0428E-04),
     &  ( 2.0237E-04, 7.8953E-04),( 2.0465E-04, 7.8117E-04),
     &  ( 2.0857E-04, 7.7519E-04),( 2.1734E-04, 7.6884E-04),
     &  ( 2.2357E-04, 7.6719E-04),( 2.3296E-04, 8.0063E-04),
     &  ( 2.2758E-04, 8.3327E-04),( 1.8640E-04, 8.6262E-04),
     &  ( 1.7106E-04, 7.8162E-04),( 1.7279E-04, 7.3884E-04),
     &  ( 1.7863E-04, 7.0828E-04),( 2.0660E-04, 6.4848E-04),
     &  ( 2.7108E-04, 6.6032E-04),( 3.7267E-04, 7.1815E-04),
     &  ( 3.9133E-04, 9.3692E-04),( 3.4613E-04, 1.0449E-03),
     &  ( 3.0584E-04, 1.0699E-03),( 2.6235E-04, 1.1064E-03),
     &  ( 1.9017E-04, 1.1645E-03),( 1.6116E-04, 1.1542E-03),
     &  ( 2.0294E-04, 1.1453E-03),( 2.7636E-04, 1.0843E-03),
     &  ( 2.7945E-04, 7.0301E-04),( 1.6374E-04, 6.6588E-04),
     &  ( 1.5997E-04, 7.2943E-04),( 1.8801E-04, 9.2788E-04),
     &  ( 2.6843E-04, 6.9639E-04),( 1.9123E-04, 5.5079E-04),
     &  ( 1.6321E-04, 5.4929E-04),( 1.5985E-04, 5.4879E-04),
     &  ( 1.6009E-04, 5.7565E-04),( 1.6165E-04, 6.1952E-04),
     &  ( 1.6297E-04, 6.3960E-04),( 1.5898E-04, 5.2845E-04),
     &  ( 1.7079E-04, 5.3464E-04),( 1.7077E-04, 5.5151E-04),
     &  ( 1.7357E-04, 5.4675E-04),( 1.9643E-04, 4.9419E-04),
     &  ( 2.5360E-04, 4.5907E-04),( 3.0044E-04, 4.8393E-04),
     &  ( 3.9757E-04, 5.2144E-04),( 4.4825E-04, 7.7200E-04),
     &  ( 2.1487E-04, 9.6948E-04),( 1.7771E-04, 9.7689E-04),
     &  ( 1.5772E-04, 6.5747E-04),( 2.3158E-04, 5.5423E-04),
     &  ( 2.6647E-04, 5.7392E-04),( 4.1582E-04, 7.5323E-04),
     &  ( 4.1950E-04, 1.0608E-03),( 4.1391E-04, 1.1672E-03),
     &  ( 4.0583E-04, 1.2801E-03),( 2.0107E-04, 1.6254E-03),
     &  ( 1.8744E-04, 1.7428E-03),( 4.6917E-04, 1.3632E-03)/

         DATA ((CGS  (I,J), I=1201,1300), J=3,3) /
     &  ( 4.2903E-04, 7.5372E-04),( 2.5353E-04, 7.5086E-04),
     &  ( 2.2163E-04, 7.4871E-04),( 2.1168E-04, 7.4836E-04),
     &  ( 1.9463E-04, 7.4708E-04),( 1.8803E-04, 7.4580E-04),
     &  ( 1.9223E-04, 7.4363E-04),( 1.9425E-04, 6.9668E-04),
     &  ( 1.8519E-04, 6.6606E-04),( 1.7943E-04, 6.6107E-04),
     &  ( 1.6932E-04, 6.4608E-04),( 1.6661E-04, 6.4109E-04),
     &  ( 1.5563E-04, 6.1646E-04),( 1.5814E-04, 6.4478E-04),
     &  ( 1.6246E-04, 6.5689E-04),( 1.5434E-04, 6.3697E-04),
     &  ( 1.6864E-04, 7.3172E-04),( 2.0400E-04, 1.2791E-03),
     &  ( 2.5441E-04, 7.4735E-04),( 2.0752E-04, 6.1279E-04),
     &  ( 1.5738E-04, 6.1613E-04),( 1.5379E-04, 6.1789E-04),
     &  ( 1.5582E-04, 8.0933E-04),( 1.5217E-04, 9.3777E-04),
     &  ( 1.6484E-04, 6.6433E-04),( 1.5554E-04, 6.6394E-04),
     &  ( 1.5276E-04, 9.1289E-04),( 2.2771E-04, 1.1535E-03),
     &  ( 1.9707E-04, 8.0673E-04),( 1.6451E-04, 1.7741E-03),
     &  ( 6.6751E-04, 2.1986E-03),( 1.1113E-03, 2.8310E-05),
     &  ( 1.2593E-03, 2.8087E-05),( 9.9949E-04, 2.7660E-05),
     &  ( 7.6549E-04, 2.6879E-05),( 6.9828E-04, 2.6521E-05),
     &  ( 6.4674E-04, 2.6183E-05),( 5.7193E-04, 2.5561E-05),
     &  ( 5.1956E-04, 2.5003E-05),( 4.9871E-04, 2.4745E-05),
     &  ( 4.8049E-04, 2.4500E-05),( 4.6439E-04, 2.4268E-05),
     &  ( 4.5007E-04, 2.4046E-05),( 4.3724E-04, 2.3836E-05),
     &  ( 4.2566E-04, 2.3635E-05),( 4.1517E-04, 2.3443E-05),
     &  ( 4.0562E-04, 2.3260E-05),( 3.9688E-04, 2.3086E-05),
     &  ( 3.8887E-04, 2.2919E-05),( 3.8148E-04, 2.2759E-05),
     &  ( 3.7467E-04, 2.2606E-05),( 3.6836E-04, 2.2459E-05),
     &  ( 3.6250E-04, 2.2318E-05),( 3.5705E-04, 2.2183E-05),
     &  ( 3.5198E-04, 2.2053E-05),( 3.4724E-04, 2.1928E-05),
     &  ( 3.4282E-04, 2.1807E-05),( 3.3868E-04, 2.1691E-05),
     &  ( 3.3481E-04, 2.1579E-05),( 3.3118E-04, 2.1472E-05),
     &  ( 3.2777E-04, 2.1367E-05),( 3.2458E-04, 2.1267E-05),
     &  ( 3.2158E-04, 2.1169E-05),( 3.1877E-04, 2.1075E-05),
     &  ( 3.1614E-04, 2.0984E-05),( 3.1367E-04, 2.0896E-05),
     &  ( 3.1135E-04, 2.0810E-05),( 3.0919E-04, 2.0727E-05),
     &  ( 3.0717E-04, 2.0646E-05),( 3.0529E-04, 2.0568E-05),
     &  ( 3.0355E-04, 2.0491E-05),( 3.0193E-04, 2.0417E-05),
     &  ( 3.0044E-04, 2.0345E-05),( 2.9934E-04, 2.0288E-05),
     &  ( 2.9783E-04, 2.0206E-05),( 2.9570E-04, 2.0073E-05),
     &  ( 2.9406E-04, 1.9947E-05),( 2.9291E-04, 1.9826E-05),
     &  ( 2.9227E-04, 1.9711E-05),( 2.9217E-04, 1.9600E-05),
     &  ( 2.9266E-04, 1.9493E-05),( 2.9381E-04, 1.9390E-05),
     &  ( 2.9571E-04, 1.9291E-05),( 2.9848E-04, 1.9195E-05),
     &  ( 3.0228E-04, 1.9103E-05),( 3.0734E-04, 1.9013E-05),
     &  ( 3.1398E-04, 1.8926E-05),( 3.2262E-04, 1.8841E-05),
     &  ( 3.3393E-04, 1.8758E-05),( 3.3525E-04, 1.8750E-05),
     &  ( 3.4893E-04, 1.8678E-05),( 3.6933E-04, 1.8599E-05),
     &  ( 3.9836E-04, 1.8523E-05),( 4.3238E-04, 1.8463E-05),
     &  ( 4.4329E-04, 1.8448E-05),( 4.7733E-04, 1.8411E-05),
     &  ( 5.1557E-04, 1.8382E-05),( 5.2759E-04, 1.8375E-05),
     &  ( 5.4101E-04, 1.8368E-05),( 5.4834E-04, 1.8364E-05)/

         DATA ((CGS  (I,J), I=1301,1400), J=3,3) /
     &  ( 5.5616E-04, 1.8360E-05),( 5.6281E-04, 1.8357E-05),
     &  ( 5.6985E-04, 1.8355E-05),( 5.7353E-04, 1.8353E-05),
     &  ( 5.7732E-04, 1.8352E-05),( 5.8124E-04, 1.8350E-05),
     &  ( 5.8528E-04, 1.8349E-05),( 5.8947E-04, 1.8347E-05),
     &  ( 5.9380E-04, 1.8346E-05),( 5.9602E-04, 1.8345E-05),
     &  ( 5.9829E-04, 1.8344E-05),( 6.0059E-04, 1.8344E-05),
     &  ( 6.0294E-04, 1.8343E-05),( 6.0534E-04, 1.8342E-05),
     &  ( 6.0778E-04, 1.8342E-05),( 6.1027E-04, 1.8341E-05),
     &  ( 6.1282E-04, 1.8340E-05),( 6.1541E-04, 1.8339E-05),
     &  ( 6.1638E-04, 1.8339E-05),( 6.1697E-04, 1.8339E-05),
     &  ( 6.1755E-04, 1.8339E-05),( 6.1814E-04, 1.8339E-05),
     &  ( 6.1873E-04, 1.8339E-05),( 6.1932E-04, 1.8338E-05),
     &  ( 6.1992E-04, 1.8338E-05),( 6.2052E-04, 1.8338E-05),
     &  ( 6.2112E-04, 1.8338E-05),( 6.2172E-04, 1.8338E-05),
     &  ( 6.2233E-04, 1.8338E-05),( 6.2294E-04, 1.8337E-05),
     &  ( 6.2356E-04, 1.8337E-05),( 6.2417E-04, 1.8337E-05),
     &  ( 6.2479E-04, 1.8337E-05),( 6.2541E-04, 1.8337E-05),
     &  ( 6.2604E-04, 1.8337E-05),( 6.2667E-04, 1.8337E-05),
     &  ( 6.2730E-04, 1.8336E-05),( 6.2794E-04, 1.8336E-05),
     &  ( 6.2857E-04, 1.8336E-05),( 6.2921E-04, 1.8336E-05),
     &  ( 6.2986E-04, 1.8336E-05),( 6.3051E-04, 1.8336E-05),
     &  ( 6.3116E-04, 1.8335E-05),( 6.3181E-04, 1.8335E-05),
     &  ( 6.3247E-04, 1.8335E-05),( 6.3313E-04, 1.8335E-05),
     &  ( 6.3380E-04, 1.8335E-05),( 6.3446E-04, 1.8335E-05),
     &  ( 6.3513E-04, 1.8334E-05),( 6.3581E-04, 1.8334E-05),
     &  ( 6.3649E-04, 1.8334E-05),( 6.3717E-04, 1.8334E-05),
     &  ( 6.3785E-04, 1.8334E-05),( 6.3854E-04, 1.8334E-05),
     &  ( 6.3924E-04, 1.8334E-05),( 6.3993E-04, 1.8333E-05),
     &  ( 6.4063E-04, 1.8333E-05),( 6.4133E-04, 1.8333E-05),
     &  ( 6.4204E-04, 1.8333E-05),( 6.4275E-04, 1.8333E-05),
     &  ( 6.4346E-04, 1.8333E-05),( 6.4418E-04, 1.8332E-05),
     &  ( 6.4490E-04, 1.8332E-05),( 6.4562E-04, 1.8332E-05),
     &  ( 6.4633E-04, 1.8332E-05),( 6.4705E-04, 1.8332E-05),
     &  ( 6.4771E-04, 1.8332E-05),( 6.4800E-04, 2.8287E-04),
     &  ( 6.4867E-04, 2.8287E-04),( 6.4884E-04, 3.6435E-02),
     &  ( 6.4887E-04, 3.9959E-02),( 6.4888E-04, 4.1917E-02),
     &  ( 6.4891E-04, 4.6284E-02),( 6.4893E-04, 5.1358E-02),
     &  ( 6.4896E-04, 5.7314E-02),( 6.4899E-04, 6.4356E-02),
     &  ( 6.4901E-04, 7.2757E-02),( 6.4904E-04, 8.2884E-02),
     &  ( 6.4907E-04, 9.5228E-02),( 6.4909E-04, 1.1044E-01),
     &  ( 6.4912E-04, 1.2949E-01),( 6.4915E-04, 1.5369E-01),
     &  ( 6.4917E-04, 1.8494E-01),( 6.4920E-04, 2.2603E-01),
     &  ( 6.4923E-04, 2.8103E-01),( 6.4925E-04, 3.5592E-01),
     &  ( 6.4927E-04, 4.0329E-01),( 6.4928E-04, 4.5896E-01),
     &  ( 6.4929E-04, 5.2447E-01),( 6.4931E-04, 6.0076E-01),
     &  ( 6.4932E-04, 6.8910E-01),( 6.4933E-04, 7.8883E-01),
     &  ( 6.4935E-04, 8.9804E-01),( 6.4936E-04, 1.0117E+00),
     &  ( 6.4937E-04, 1.1199E+00),( 6.4939E-04, 1.2096E+00),
     &  ( 6.4940E-04, 1.2658E+00),( 6.4940E-04, 1.2658E+00),
     &  ( 6.4940E-04, 1.2705E+00),( 6.4940E-04, 1.2742E+00)/

         DATA ((CGS  (I,J), I=1401,1500), J=3,3) /
     &  ( 6.4940E-04, 1.2769E+00),( 6.4941E-04, 1.2786E+00),
     &  ( 6.4941E-04, 1.2792E+00),( 6.4941E-04, 1.2775E+00),
     &  ( 6.4942E-04, 1.2717E+00),( 6.4942E-04, 1.2673E+00),
     &  ( 6.4942E-04, 1.2557E+00),( 6.4943E-04, 1.2404E+00),
     &  ( 6.4943E-04, 1.2215E+00),( 6.4943E-04, 1.1998E+00),
     &  ( 6.4944E-04, 1.1754E+00),( 6.4944E-04, 1.1486E+00),
     &  ( 6.4944E-04, 1.1199E+00),( 6.4945E-04, 1.0513E+00),
     &  ( 6.4947E-04, 9.3842E-01),( 6.4948E-04, 8.2662E-01),
     &  ( 6.4949E-04, 7.2315E-01),( 6.4951E-04, 6.3059E-01),
     &  ( 6.4952E-04, 5.5019E-01),( 6.4953E-04, 4.8109E-01),
     &  ( 6.4955E-04, 4.2199E-01),( 6.4956E-04, 3.7184E-01),
     &  ( 6.4957E-04, 3.2903E-01),( 6.4958E-04, 2.9262E-01),
     &  ( 6.4961E-04, 2.3460E-01),( 6.4964E-04, 1.9140E-01),
     &  ( 6.4966E-04, 1.5864E-01),( 6.4972E-04, 1.1353E-01),
     &  ( 6.4977E-04, 8.4894E-02),( 6.4982E-04, 6.5738E-02),
     &  ( 6.4985E-04, 5.8478E-02),( 6.4987E-04, 5.2354E-02),
     &  ( 6.4990E-04, 4.7131E-02),( 6.4993E-04, 4.2647E-02),
     &  ( 6.4995E-04, 3.8772E-02),( 6.4998E-04, 3.5401E-02),
     &  ( 6.5002E-04, 2.8289E-04),( 6.5008E-04, 2.8289E-04),
     &  ( 6.5086E-04, 2.8289E-04),( 6.5163E-04, 2.8290E-04),
     &  ( 6.5241E-04, 2.8291E-04),( 6.5319E-04, 2.8292E-04),
     &  ( 6.5397E-04, 2.8292E-04),( 6.5476E-04, 2.8293E-04),
     &  ( 6.5555E-04, 2.8294E-04),( 6.5635E-04, 2.8295E-04),
     &  ( 6.5715E-04, 2.8295E-04),( 6.5796E-04, 2.8296E-04),
     &  ( 6.5877E-04, 2.8297E-04),( 6.5959E-04, 2.8298E-04),
     &  ( 6.6041E-04, 2.8298E-04),( 6.6123E-04, 2.8299E-04),
     &  ( 6.6206E-04, 2.8300E-04),( 6.6290E-04, 2.8301E-04),
     &  ( 6.6374E-04, 2.8301E-04),( 6.6459E-04, 2.8302E-04),
     &  ( 6.6544E-04, 2.8303E-04),( 6.6630E-04, 2.8304E-04),
     &  ( 6.6716E-04, 2.8304E-04),( 6.6803E-04, 2.8305E-04),
     &  ( 6.6891E-04, 2.8306E-04),( 6.6979E-04, 2.8307E-04),
     &  ( 6.7068E-04, 2.8307E-04),( 6.7157E-04, 2.8308E-04),
     &  ( 6.7247E-04, 2.8309E-04),( 6.7337E-04, 2.8310E-04),
     &  ( 6.7428E-04, 2.8310E-04),( 6.7520E-04, 2.8311E-04),
     &  ( 6.7613E-04, 2.8312E-04),( 6.7706E-04, 2.8313E-04),
     &  ( 6.7800E-04, 2.8313E-04),( 6.7894E-04, 2.8314E-04),
     &  ( 6.7989E-04, 2.8315E-04),( 6.8085E-04, 2.8316E-04),
     &  ( 6.8182E-04, 2.8316E-04),( 6.8279E-04, 2.8317E-04),
     &  ( 6.8377E-04, 2.8318E-04),( 6.8475E-04, 2.8319E-04),
     &  ( 6.8575E-04, 2.8319E-04),( 6.8675E-04, 2.8320E-04),
     &  ( 6.8776E-04, 2.8321E-04),( 6.8878E-04, 2.8322E-04),
     &  ( 6.8980E-04, 2.8323E-04),( 6.9084E-04, 2.8323E-04),
     &  ( 6.9188E-04, 2.8324E-04),( 6.9293E-04, 2.8325E-04),
     &  ( 6.9399E-04, 2.8326E-04),( 7.0402E-04, 2.8332E-04),
     &  ( 7.1280E-04, 2.8338E-04),( 7.2444E-04, 2.8345E-04),
     &  ( 7.4404E-04, 2.8355E-04),( 7.7559E-04, 2.8369E-04),
     &  ( 8.4065E-04, 2.8389E-04),( 8.3979E-04, 2.8406E-04),
     &  ( 8.3770E-04, 2.8419E-04),( 8.3664E-04, 2.8415E-04),
     &  ( 7.7562E-04, 2.8315E-04),( 7.3385E-04, 2.8215E-04),
     &  ( 7.0149E-04, 2.8114E-04),( 6.7518E-04, 2.8014E-04)/

         DATA ((CGS  (I,J), I=1501,1600), J=3,3) /
     &  ( 6.3410E-04, 2.7814E-04),( 6.0276E-04, 2.7613E-04),
     &  ( 5.1364E-04, 2.8390E-04),( 4.3535E-04, 2.8311E-04),
     &  ( 3.9097E-04, 2.8362E-04),( 3.6297E-04, 2.8212E-04),
     &  ( 3.5333E-04, 2.8303E-04),( 3.4880E-04, 2.8348E-04),
     &  ( 3.4615E-04, 2.8375E-04),( 3.4442E-04, 2.8393E-04),
     &  ( 3.4275E-04, 2.8379E-04),( 3.4259E-04, 2.8377E-04),
     &  ( 3.4243E-04, 2.8376E-04),( 3.4239E-04, 2.8376E-04),
     &  ( 3.4230E-04, 2.8375E-04),( 3.4222E-04, 2.8374E-04),
     &  ( 3.4213E-04, 2.8373E-04),( 3.4205E-04, 2.8372E-04),
     &  ( 3.4196E-04, 2.8372E-04),( 3.4188E-04, 2.8371E-04),
     &  ( 3.4179E-04, 2.8370E-04),( 3.4171E-04, 2.8369E-04),
     &  ( 3.4163E-04, 2.8368E-04),( 3.4154E-04, 2.8368E-04),
     &  ( 3.4146E-04, 2.8367E-04),( 3.4138E-04, 2.8366E-04),
     &  ( 3.4130E-04, 2.8365E-04),( 3.4122E-04, 2.8364E-04),
     &  ( 3.4114E-04, 2.8364E-04),( 3.4106E-04, 2.8363E-04),
     &  ( 3.4098E-04, 2.8362E-04),( 3.4090E-04, 2.8361E-04),
     &  ( 3.4085E-04, 2.8361E-04),( 3.4084E-04, 2.8361E-04),
     &  ( 3.4084E-04, 2.8361E-04),( 3.4083E-04, 2.8361E-04),
     &  ( 3.4083E-04, 2.8361E-04),( 3.4082E-04, 2.8360E-04),
     &  ( 3.4081E-04, 2.8360E-04),( 3.4081E-04, 2.8360E-04),
     &  ( 3.4073E-04, 7.0594E-02),( 3.4073E-04, 7.8056E-02),
     &  ( 3.4073E-04, 8.6777E-02),( 3.4073E-04, 9.1690E-02),
     &  ( 3.4073E-04, 9.7006E-02),( 3.4073E-04, 1.0282E-01),
     &  ( 3.4073E-04, 1.0916E-01),( 3.4073E-04, 1.1610E-01),
     &  ( 3.4073E-04, 1.2369E-01),( 3.4073E-04, 1.3206E-01),
     &  ( 3.4073E-04, 1.4130E-01),( 3.4073E-04, 1.5153E-01),
     &  ( 3.4073E-04, 1.6283E-01),( 3.4073E-04, 1.7547E-01),
     &  ( 3.4073E-04, 1.8961E-01),( 3.4073E-04, 2.0540E-01),
     &  ( 3.4073E-04, 2.2328E-01),( 3.4073E-04, 2.4350E-01),
     &  ( 3.4072E-04, 2.6649E-01),( 3.4072E-04, 2.9265E-01),
     &  ( 3.4072E-04, 3.2279E-01),( 3.4072E-04, 3.5757E-01),
     &  ( 3.4072E-04, 3.9794E-01),( 3.4072E-04, 4.4483E-01),
     &  ( 3.4072E-04, 5.0007E-01),( 3.4072E-04, 5.6525E-01),
     &  ( 3.4072E-04, 6.4257E-01),( 3.4072E-04, 7.3427E-01),
     &  ( 3.4072E-04, 8.4428E-01),( 3.4072E-04, 9.7587E-01),
     &  ( 3.4072E-04, 1.1321E+00),( 3.4072E-04, 1.3174E+00),
     &  ( 3.4072E-04, 1.5325E+00),( 3.4072E-04, 1.7737E+00),
     &  ( 3.4072E-04, 2.0281E+00),( 3.4072E-04, 2.2738E+00),
     &  ( 3.4072E-04, 2.4735E+00),( 3.4072E-04, 2.4942E+00),
     &  ( 3.4072E-04, 2.5133E+00),( 3.4072E-04, 2.5307E+00),
     &  ( 3.4072E-04, 2.5463E+00),( 3.4072E-04, 2.5601E+00),
     &  ( 3.4072E-04, 2.5721E+00),( 3.4072E-04, 2.5820E+00),
     &  ( 3.4072E-04, 2.5900E+00),( 3.4072E-04, 2.5960E+00),
     &  ( 3.4072E-04, 2.5998E+00),( 3.4072E-04, 2.6017E+00),
     &  ( 3.4072E-04, 2.6015E+00),( 3.4072E-04, 2.5992E+00),
     &  ( 3.4072E-04, 2.5949E+00),( 3.4072E-04, 2.5884E+00),
     &  ( 3.4072E-04, 2.5800E+00),( 3.4072E-04, 2.5696E+00),
     &  ( 3.4072E-04, 2.5573E+00),( 3.4072E-04, 2.5431E+00),
     &  ( 3.4072E-04, 2.5270E+00),( 3.4072E-04, 2.5093E+00),
     &  ( 3.4072E-04, 2.4898E+00),( 3.4072E-04, 2.4688E+00)/

         DATA ((CGS  (I,J), I=1601,1700), J=3,3) /
     &  ( 3.4072E-04, 2.4463E+00),( 3.4072E-04, 2.4224E+00),
     &  ( 3.4072E-04, 2.2050E+00),( 3.4072E-04, 1.9542E+00),
     &  ( 3.4072E-04, 1.7010E+00),( 3.4072E-04, 1.4667E+00),
     &  ( 3.4072E-04, 1.2602E+00),( 3.4072E-04, 1.0841E+00),
     &  ( 3.4071E-04, 9.3498E-01),( 3.4071E-04, 8.1009E-01),
     &  ( 3.4071E-04, 7.0568E-01),( 3.4071E-04, 6.1859E-01),
     &  ( 3.4071E-04, 5.4507E-01),( 3.4071E-04, 4.8300E-01),
     &  ( 3.4071E-04, 4.3051E-01),( 3.4071E-04, 3.8551E-01),
     &  ( 3.4071E-04, 3.4689E-01),( 3.4071E-04, 3.1355E-01),
     &  ( 3.4071E-04, 2.8472E-01),( 3.4071E-04, 2.5947E-01),
     &  ( 3.4071E-04, 2.3733E-01),( 3.4071E-04, 2.1783E-01),
     &  ( 3.4071E-04, 2.0065E-01),( 3.4071E-04, 1.8532E-01),
     &  ( 3.4071E-04, 1.7164E-01),( 3.4071E-04, 1.5940E-01),
     &  ( 3.4071E-04, 1.4844E-01),( 3.4071E-04, 1.3851E-01),
     &  ( 3.4071E-04, 1.2954E-01),( 3.4071E-04, 1.2143E-01),
     &  ( 3.4071E-04, 1.1401E-01),( 3.4071E-04, 1.0725E-01),
     &  ( 3.4071E-04, 1.0107E-01),( 3.4071E-04, 9.5427E-02),
     &  ( 3.4071E-04, 9.0217E-02),( 3.4071E-04, 8.5419E-02),
     &  ( 3.4071E-04, 8.0991E-02),( 3.4070E-04, 7.6913E-02),
     &  ( 3.4070E-04, 7.3118E-02),( 3.4070E-04, 6.6321E-02),
     &  ( 3.4063E-04, 2.8359E-04),( 3.4058E-04, 2.8358E-04),
     &  ( 3.4050E-04, 2.8357E-04),( 3.4043E-04, 2.8356E-04),
     &  ( 3.4027E-04, 2.8355E-04),( 3.4012E-04, 2.8353E-04),
     &  ( 3.3997E-04, 2.8352E-04),( 3.3982E-04, 2.8350E-04),
     &  ( 3.3967E-04, 2.8348E-04),( 3.3953E-04, 2.8347E-04),
     &  ( 3.3938E-04, 2.8345E-04),( 3.3924E-04, 2.8344E-04),
     &  ( 3.3914E-04, 2.8343E-04),( 3.3902E-04, 2.8341E-04),
     &  ( 3.3889E-04, 2.8340E-04),( 3.3876E-04, 2.8338E-04),
     &  ( 3.3864E-04, 2.8337E-04),( 3.3851E-04, 2.8335E-04),
     &  ( 3.3791E-04, 2.8328E-04),( 3.3733E-04, 2.8322E-04),
     &  ( 3.3678E-04, 2.8315E-04),( 3.3626E-04, 2.8308E-04),
     &  ( 3.3579E-04, 2.8301E-04),( 3.3551E-04, 2.8294E-04),
     &  ( 3.3502E-04, 2.8287E-04),( 3.3455E-04, 2.8280E-04),
     &  ( 3.3163E-04, 2.8177E-04),( 3.3713E-04, 2.8195E-04),
     &  ( 3.3903E-04, 2.8199E-04),( 3.4142E-04, 2.8203E-04),
     &  ( 3.4445E-04, 2.8206E-04),( 3.4852E-04, 2.8210E-04),
     &  ( 3.5096E-04, 2.8212E-04),( 3.5339E-04, 2.8214E-04),
     &  ( 3.5824E-04, 2.8783E-04),( 3.6224E-04, 2.9353E-04),
     &  ( 3.6506E-04, 2.9925E-04),( 3.6705E-04, 3.0498E-04),
     &  ( 3.6768E-04, 3.0740E-04),( 3.6778E-04, 3.0782E-04),
     &  ( 3.6787E-04, 3.0824E-04),( 3.6796E-04, 3.0866E-04),
     &  ( 3.6805E-04, 3.0908E-04),( 3.6814E-04, 3.0951E-04),
     &  ( 3.6822E-04, 3.0993E-04),( 3.6830E-04, 3.1035E-04),
     &  ( 3.6838E-04, 3.1077E-04),( 3.6845E-04, 3.1119E-04),
     &  ( 3.6852E-04, 3.1162E-04),( 3.6859E-04, 3.1204E-04),
     &  ( 3.6865E-04, 3.1246E-04),( 3.6866E-04, 3.1251E-04),
     &  ( 3.6866E-04, 3.1257E-04),( 3.6867E-04, 3.1262E-04),
     &  ( 3.6868E-04, 3.1267E-04),( 3.6869E-04, 3.1272E-04),
     &  ( 3.6870E-04, 3.1278E-04),( 3.6870E-04, 3.1283E-04),
     &  ( 3.6871E-04, 3.1288E-04),( 3.6872E-04, 3.1294E-04)/

         DATA ((CGS  (I,J), I=1701,1800), J=3,3) /
     &  ( 3.6872E-04, 3.1299E-04),( 3.6873E-04, 3.1304E-04),
     &  ( 3.6874E-04, 3.1309E-04),( 3.6875E-04, 3.1315E-04),
     &  ( 3.6875E-04, 3.1320E-04),( 3.6876E-04, 3.1325E-04),
     &  ( 3.6876E-04, 3.1327E-04),( 3.6877E-04, 3.1330E-04),
     &  ( 3.6877E-04, 3.1336E-04),( 3.6878E-04, 3.1341E-04),
     &  ( 3.6879E-04, 3.1346E-04),( 3.6880E-04, 3.1352E-04),
     &  ( 3.6880E-04, 3.1357E-04),( 3.6881E-04, 3.1362E-04),
     &  ( 3.6881E-04, 3.1363E-04),( 3.6881E-04, 3.1363E-04),
     &  ( 3.6881E-04, 5.2040E-02),( 3.6881E-04, 5.7991E-02),
     &  ( 3.6881E-04, 6.5041E-02),( 3.6881E-04, 7.3446E-02),
     &  ( 3.6881E-04, 8.3535E-02),( 3.6881E-04, 9.5861E-02),
     &  ( 3.6881E-04, 1.1107E-01),( 3.6881E-04, 1.3005E-01),
     &  ( 3.6881E-04, 1.5425E-01),( 3.6881E-04, 1.8561E-01),
     &  ( 3.6881E-04, 2.2689E-01),( 3.6881E-04, 2.8282E-01),
     &  ( 3.6881E-04, 3.1814E-01),( 3.6881E-04, 3.6019E-01),
     &  ( 3.6881E-04, 4.0988E-01),( 3.6881E-04, 4.6924E-01),
     &  ( 3.6881E-04, 5.4092E-01),( 3.6881E-04, 6.2651E-01),
     &  ( 3.6881E-04, 7.2912E-01),( 3.6881E-04, 8.5197E-01),
     &  ( 3.6881E-04, 9.9473E-01),( 3.6881E-04, 1.1563E+00),
     &  ( 3.6881E-04, 1.3302E+00),( 3.6881E-04, 1.4980E+00),
     &  ( 3.6881E-04, 1.6358E+00),( 3.6881E-04, 1.6503E+00),
     &  ( 3.6881E-04, 1.6631E+00),( 3.6881E-04, 1.6748E+00),
     &  ( 3.6881E-04, 1.6858E+00),( 3.6881E-04, 1.6952E+00),
     &  ( 3.6881E-04, 1.7034E+00),( 3.6881E-04, 1.7106E+00),
     &  ( 3.6881E-04, 1.7162E+00),( 3.6881E-04, 1.7205E+00),
     &  ( 3.6881E-04, 1.7236E+00),( 3.6881E-04, 1.7252E+00),
     &  ( 3.6881E-04, 1.7255E+00),( 3.6881E-04, 1.7244E+00),
     &  ( 3.6881E-04, 1.7219E+00),( 3.6881E-04, 1.7181E+00),
     &  ( 3.6881E-04, 1.7127E+00),( 3.6881E-04, 1.7063E+00),
     &  ( 3.6882E-04, 1.6986E+00),( 3.6882E-04, 1.6892E+00),
     &  ( 3.6882E-04, 1.6791E+00),( 3.6882E-04, 1.6679E+00),
     &  ( 3.6882E-04, 1.6549E+00),( 3.6882E-04, 1.6415E+00),
     &  ( 3.6882E-04, 1.6271E+00),( 3.6882E-04, 1.6118E+00),
     &  ( 3.6882E-04, 1.4645E+00),( 3.6882E-04, 1.2938E+00),
     &  ( 3.6882E-04, 1.1212E+00),( 3.6882E-04, 9.6324E-01),
     &  ( 3.6882E-04, 8.2477E-01),( 3.6882E-04, 7.0616E-01),
     &  ( 3.6882E-04, 6.0733E-01),( 3.6882E-04, 5.2494E-01),
     &  ( 3.6882E-04, 4.5595E-01),( 3.6882E-04, 3.9877E-01),
     &  ( 3.6882E-04, 3.5086E-01),( 3.6882E-04, 3.1028E-01),
     &  ( 3.6882E-04, 2.7615E-01),( 3.6882E-04, 2.4707E-01),
     &  ( 3.6882E-04, 2.0054E-01),( 3.6882E-04, 1.6563E-01),
     &  ( 3.6882E-04, 1.3896E-01),( 3.6882E-04, 1.1806E-01),
     &  ( 3.6882E-04, 1.0147E-01),( 3.6882E-04, 8.8139E-02),
     &  ( 3.6882E-04, 7.7211E-02),( 3.6882E-04, 6.8178E-02),
     &  ( 3.6882E-04, 6.0652E-02),( 3.6882E-04, 5.4282E-02),
     &  ( 3.6882E-04, 4.8860E-02),( 3.6884E-04, 3.1383E-04),
     &  ( 3.6884E-04, 3.1389E-04),( 3.6885E-04, 3.1394E-04),
     &  ( 3.6885E-04, 3.1399E-04),( 3.6886E-04, 3.1404E-04),
     &  ( 3.6887E-04, 3.1410E-04),( 3.6887E-04, 3.1415E-04),
     &  ( 3.6888E-04, 3.1420E-04),( 3.6889E-04, 3.1426E-04)/

         DATA ((CGS  (I,J), I=1801,1900), J=3,3) /
     &  ( 3.6889E-04, 3.1431E-04),( 3.6890E-04, 3.1436E-04),
     &  ( 3.6890E-04, 3.1441E-04),( 3.6891E-04, 3.1447E-04),
     &  ( 3.6892E-04, 3.1452E-04),( 3.6892E-04, 3.1457E-04),
     &  ( 3.6897E-04, 3.1500E-04),( 3.6901E-04, 3.1542E-04),
     &  ( 3.6905E-04, 3.1584E-04),( 3.6909E-04, 3.1626E-04),
     &  ( 3.6912E-04, 3.1669E-04),( 3.6915E-04, 3.1711E-04),
     &  ( 3.6918E-04, 3.1753E-04),( 3.6923E-04, 3.1838E-04),
     &  ( 3.6926E-04, 3.1923E-04),( 3.6927E-04, 3.1965E-04),
     &  ( 3.6928E-04, 3.2008E-04),( 3.6929E-04, 3.2227E-04),
     &  ( 3.6918E-04, 3.2517E-04),( 3.6892E-04, 3.2806E-04),
     &  ( 3.6850E-04, 3.3097E-04),( 3.6790E-04, 3.3387E-04),
     &  ( 3.6716E-04, 3.3678E-04),( 3.6636E-04, 3.3969E-04),
     &  ( 3.6549E-04, 3.4177E-04),( 3.6456E-04, 3.4385E-04),
     &  ( 3.6364E-04, 3.4592E-04),( 3.6278E-04, 3.4800E-04),
     &  ( 3.6194E-04, 3.5008E-04),( 3.6112E-04, 3.5215E-04),
     &  ( 3.6030E-04, 3.5423E-04),( 3.5947E-04, 3.5631E-04),
     &  ( 3.5864E-04, 3.5838E-04),( 3.5780E-04, 3.6046E-04),
     &  ( 3.5695E-04, 3.6254E-04),( 3.5609E-04, 3.6462E-04),
     &  ( 3.5522E-04, 3.6669E-04),( 3.5432E-04, 3.6877E-04),
     &  ( 3.5369E-04, 3.7002E-04),( 3.4208E-04, 5.0193E-04),
     &  ( 3.3934E-04, 5.9244E-04),( 3.3776E-04, 6.8085E-04),
     &  ( 3.3673E-04, 7.6858E-04),( 3.3599E-04, 8.5591E-04),
     &  ( 3.3542E-04, 9.4298E-04),( 3.3496E-04, 1.0301E-03),
     &  ( 3.3458E-04, 1.1171E-03),( 3.3426E-04, 1.2035E-03),
     &  ( 3.3397E-04, 1.2899E-03),( 3.3372E-04, 1.3765E-03),
     &  ( 3.3349E-04, 1.4625E-03),( 3.3329E-04, 1.5477E-03),
     &  ( 3.3311E-04, 1.6325E-03),( 3.3293E-04, 1.7179E-03),
     &  ( 3.3277E-04, 1.8027E-03),( 3.3262E-04, 1.8856E-03),
     &  ( 3.3248E-04, 1.9685E-03),( 3.3234E-04, 2.0522E-03),
     &  ( 3.3221E-04, 2.1345E-03),( 3.3209E-04, 2.2143E-03),
     &  ( 3.3197E-04, 2.2963E-03),( 3.3186E-04, 2.3745E-03),
     &  ( 3.3174E-04, 2.4537E-03),( 3.3163E-04, 2.5315E-03),
     &  ( 3.3152E-04, 2.6089E-03),( 3.3140E-04, 2.6853E-03),
     &  ( 3.3129E-04, 2.7597E-03),( 3.3118E-04, 2.8314E-03),
     &  ( 3.3106E-04, 2.9038E-03),( 3.3093E-04, 2.9734E-03),
     &  ( 3.3080E-04, 3.0390E-03),( 3.3064E-04, 3.1023E-03),
     &  ( 3.3045E-04, 3.1588E-03),( 3.3001E-04, 3.1840E-03),
     &  ( 3.2956E-04, 3.0616E-03),( 3.2937E-04, 2.9708E-03),
     &  ( 3.2921E-04, 2.8848E-03),( 3.2908E-04, 2.8034E-03),
     &  ( 3.2895E-04, 2.7225E-03),( 3.2883E-04, 2.6423E-03),
     &  ( 3.2871E-04, 2.5658E-03),( 3.2860E-04, 2.4887E-03),
     &  ( 3.2848E-04, 2.4117E-03),( 3.2836E-04, 2.3354E-03),
     &  ( 3.2825E-04, 2.2602E-03),( 3.2813E-04, 2.1850E-03),
     &  ( 3.2801E-04, 2.1117E-03),( 3.2788E-04, 2.0360E-03),
     &  ( 3.2776E-04, 1.9631E-03),( 3.2762E-04, 1.8888E-03),
     &  ( 3.2748E-04, 1.8138E-03),( 3.2733E-04, 1.7401E-03),
     &  ( 3.2717E-04, 1.6668E-03),( 3.2700E-04, 1.5924E-03),
     &  ( 3.2682E-04, 1.5179E-03),( 3.2662E-04, 1.4440E-03),
     &  ( 3.2640E-04, 1.3701E-03),( 3.2616E-04, 1.2956E-03),
     &  ( 3.2589E-04, 1.2207E-03),( 3.2558E-04, 1.1466E-03)/

         DATA ((CGS  (I,J), I=1901,2000), J=3,3) /
     &  ( 3.2523E-04, 1.0713E-03),( 3.2481E-04, 9.9595E-04),
     &  ( 3.2430E-04, 9.2042E-04),( 3.2366E-04, 8.4479E-04),
     &  ( 3.2282E-04, 7.6888E-04),( 3.2163E-04, 6.9276E-04),
     &  ( 3.1976E-04, 6.1687E-04),( 3.1598E-04, 5.4270E-04),
     &  ( 2.9899E-04, 4.5912E-04),( 2.9808E-04, 4.6037E-04),
     &  ( 2.9075E-04, 4.7001E-04),( 2.8539E-04, 4.7696E-04),
     &  ( 2.8125E-04, 4.8231E-04),( 2.7792E-04, 4.8661E-04),
     &  ( 2.7516E-04, 4.9018E-04),( 2.7282E-04, 4.9322E-04),
     &  ( 2.7080E-04, 5.4276E-04),( 2.6902E-04, 5.5014E-04),
     &  ( 2.6744E-04, 5.5743E-04),( 2.6603E-04, 5.6472E-04),
     &  ( 2.6474E-04, 5.7205E-04),( 2.6356E-04, 5.7946E-04),
     &  ( 2.6248E-04, 5.8702E-04),( 2.6147E-04, 5.9477E-04),
     &  ( 2.6053E-04, 6.0275E-04),( 2.5965E-04, 6.1100E-04),
     &  ( 2.5881E-04, 6.1960E-04),( 2.5802E-04, 6.2858E-04),
     &  ( 2.5726E-04, 6.3806E-04),( 2.5653E-04, 6.4804E-04),
     &  ( 2.5583E-04, 6.5866E-04),( 2.5516E-04, 6.7001E-04),
     &  ( 2.5450E-04, 6.8221E-04),( 2.5385E-04, 6.9545E-04),
     &  ( 2.5322E-04, 7.0993E-04),( 2.5259E-04, 7.2587E-04),
     &  ( 2.5196E-04, 7.4364E-04),( 2.5133E-04, 7.6383E-04),
     &  ( 2.5070E-04, 7.8689E-04),( 2.5004E-04, 8.1412E-04),
     &  ( 2.4935E-04, 8.4696E-04),( 2.4861E-04, 8.8840E-04),
     &  ( 2.4778E-04, 9.4446E-04),( 2.4676E-04, 1.0310E-03),
     &  ( 2.4449E-04, 1.3334E-03),( 2.4259E-04, 1.7544E-03),
     &  ( 2.4181E-04, 1.9651E-03),( 2.4121E-04, 2.1199E-03),
     &  ( 2.4069E-04, 2.2270E-03),( 2.4023E-04, 2.2884E-03),
     &  ( 2.3981E-04, 2.3069E-03),( 2.3941E-04, 2.2870E-03),
     &  ( 2.3904E-04, 2.2358E-03),( 2.3868E-04, 2.1605E-03),
     &  ( 2.3833E-04, 2.0694E-03),( 2.3800E-04, 1.9689E-03),
     &  ( 2.3767E-04, 1.8646E-03),( 2.3735E-04, 1.7610E-03),
     &  ( 2.3704E-04, 1.6603E-03),( 2.3673E-04, 1.5641E-03),
     &  ( 2.3643E-04, 1.4751E-03),( 2.3612E-04, 1.3922E-03),
     &  ( 2.3582E-04, 1.3156E-03),( 2.3553E-04, 1.2462E-03),
     &  ( 2.3523E-04, 1.1826E-03),( 2.3494E-04, 1.1251E-03),
     &  ( 2.3465E-04, 1.0725E-03),( 2.3436E-04, 1.0251E-03),
     &  ( 2.3407E-04, 9.8192E-04),( 2.3378E-04, 9.4295E-04),
     &  ( 2.3349E-04, 9.0746E-04),( 2.3321E-04, 8.7530E-04),
     &  ( 2.3293E-04, 8.4606E-04),( 2.3266E-04, 8.5997E-04),
     &  ( 2.3239E-04, 8.3922E-04),( 2.3214E-04, 8.2136E-04),
     &  ( 2.3190E-04, 8.0639E-04),( 2.3168E-04, 7.9451E-04),
     &  ( 2.3148E-04, 7.8605E-04),( 2.3132E-04, 7.8171E-04),
     &  ( 2.3171E-04, 9.2042E-04),( 2.3181E-04, 9.4456E-04),
     &  ( 2.3191E-04, 9.7119E-04),( 2.3201E-04, 1.0007E-03),
     &  ( 2.3212E-04, 1.0332E-03),( 2.3224E-04, 1.0689E-03),
     &  ( 2.3235E-04, 1.1078E-03),( 2.3247E-04, 1.1505E-03),
     &  ( 2.3260E-04, 1.1975E-03),( 2.3272E-04, 1.2485E-03),
     &  ( 2.3285E-04, 1.3039E-03),( 2.3298E-04, 1.3639E-03),
     &  ( 2.3312E-04, 1.4281E-03),( 2.3326E-04, 1.4960E-03),
     &  ( 2.3340E-04, 1.5677E-03),( 2.3354E-04, 1.6420E-03),
     &  ( 2.3369E-04, 1.7168E-03),( 2.3384E-04, 1.7916E-03),
     &  ( 2.3399E-04, 1.8637E-03),( 2.3415E-04, 1.9296E-03)/

         DATA ((CGS  (I,J), I=2001,2100), J=3,3) /
     &  ( 2.3432E-04, 1.9386E-03),( 2.3449E-04, 1.9840E-03),
     &  ( 2.3466E-04, 2.0145E-03),( 2.3484E-04, 2.0272E-03),
     &  ( 2.3503E-04, 2.0208E-03),( 2.3523E-04, 1.9948E-03),
     &  ( 2.3544E-04, 1.9508E-03),( 2.3566E-04, 1.8898E-03),
     &  ( 2.3589E-04, 1.8148E-03),( 2.3614E-04, 1.7289E-03),
     &  ( 2.3642E-04, 1.6356E-03),( 2.3672E-04, 1.5364E-03),
     &  ( 2.3707E-04, 1.4329E-03),( 2.3749E-04, 1.3249E-03),
     &  ( 2.3805E-04, 1.2078E-03),( 2.3946E-04, 1.0102E-03),
     &  ( 2.4103E-04, 8.8937E-04),( 2.4174E-04, 8.5305E-04),
     &  ( 2.4233E-04, 8.2896E-04),( 2.4285E-04, 8.1084E-04),
     &  ( 2.4334E-04, 7.9631E-04),( 2.4379E-04, 7.8422E-04),
     &  ( 2.4424E-04, 7.7380E-04),( 2.4467E-04, 7.6469E-04),
     &  ( 2.4510E-04, 7.5664E-04),( 2.4552E-04, 7.4948E-04),
     &  ( 2.4594E-04, 7.4293E-04),( 2.4636E-04, 7.3697E-04),
     &  ( 2.4679E-04, 7.3149E-04),( 2.4722E-04, 7.2644E-04),
     &  ( 2.4765E-04, 7.2177E-04),( 2.4810E-04, 7.1737E-04),
     &  ( 2.4854E-04, 7.1330E-04),( 2.4899E-04, 7.0949E-04),
     &  ( 2.4946E-04, 7.0585E-04),( 2.4993E-04, 7.0248E-04),
     &  ( 2.5041E-04, 6.9926E-04),( 2.5091E-04, 6.9622E-04),
     &  ( 2.5141E-04, 6.9334E-04),( 2.5194E-04, 6.9059E-04),
     &  ( 2.5248E-04, 6.8785E-04),( 2.5303E-04, 6.8521E-04),
     &  ( 2.5361E-04, 6.8269E-04),( 2.5421E-04, 6.8027E-04),
     &  ( 2.5483E-04, 6.7796E-04),( 2.5547E-04, 6.7574E-04),
     &  ( 2.5615E-04, 6.7360E-04),( 2.5686E-04, 6.7154E-04),
     &  ( 2.5760E-04, 6.6956E-04),( 2.5837E-04, 6.6767E-04),
     &  ( 2.5917E-04, 6.6584E-04),( 2.6339E-04, 6.5845E-04),
     &  ( 2.7807E-04, 6.2284E-04),( 2.9589E-04, 6.2935E-04),
     &  ( 3.1536E-04, 6.3558E-04),( 3.3831E-04, 6.4209E-04),
     &  ( 3.6285E-04, 6.4833E-04),( 3.9136E-04, 6.5484E-04),
     &  ( 4.2156E-04, 6.6108E-04),( 4.5653E-04, 6.6760E-04),
     &  ( 4.9540E-04, 6.7412E-04),( 5.3683E-04, 6.8036E-04),
     &  ( 5.8542E-04, 6.8688E-04),( 6.3809E-04, 6.9313E-04),
     &  ( 6.5099E-04, 6.9966E-04),( 6.6332E-04, 7.0590E-04),
     &  ( 6.7621E-04, 7.1243E-04),( 6.8854E-04, 7.1868E-04),
     &  ( 7.0143E-04, 7.2522E-04),( 7.1377E-04, 7.3147E-04),
     &  ( 7.2666E-04, 7.3801E-04),( 7.3935E-04, 3.0254E-05),
     &  ( 7.5208E-04, 3.0143E-05),( 7.6539E-04, 3.0028E-05),
     &  ( 7.7812E-04, 2.9920E-05),( 7.9143E-04, 2.9808E-05),
     &  ( 8.0416E-04, 2.9702E-05),( 8.1747E-04, 2.9593E-05),
     &  ( 7.7956E-04, 2.9489E-05),( 7.4552E-04, 2.9383E-05),
     &  ( 7.1714E-04, 2.9282E-05),( 6.9094E-04, 2.9177E-05),
     &  ( 6.6860E-04, 2.9079E-05),( 6.4761E-04, 2.8977E-05),
     &  ( 6.2942E-04, 2.8880E-05),( 6.1210E-04, 2.8781E-05),
     &  ( 5.9626E-04, 2.8682E-05),( 5.8232E-04, 2.8589E-05),
     &  ( 5.6886E-04, 2.8493E-05),( 5.5691E-04, 2.8401E-05),
     &  ( 5.4528E-04, 2.8307E-05),( 5.3490E-04, 2.8218E-05),
     &  ( 5.2474E-04, 2.8126E-05),( 5.1563E-04, 2.8039E-05),
     &  ( 5.0666E-04, 2.7949E-05),( 4.9858E-04, 2.7863E-05),
     &  ( 4.9060E-04, 2.7775E-05),( 4.8338E-04, 2.7691E-05),
     &  ( 4.7653E-04, 2.7609E-05),( 4.6974E-04, 2.7523E-05)/

         DATA ((CGS  (I,J), I=2101,2193), J=3,3) /
     &  ( 4.6356E-04, 2.7443E-05),( 4.5741E-04, 2.7359E-05),
     &  ( 4.5181E-04, 2.7280E-05),( 4.4622E-04, 2.7198E-05),
     &  ( 4.4111E-04, 2.7120E-05),( 4.3600E-04, 2.7040E-05),
     &  ( 4.3132E-04, 2.6964E-05),( 4.2664E-04, 2.6885E-05),
     &  ( 4.2234E-04, 2.6811E-05),( 4.1802E-04, 2.6734E-05),
     &  ( 4.1388E-04, 2.6658E-05),( 4.1007E-04, 2.6586E-05),
     &  ( 4.0624E-04, 2.6511E-05),( 4.0270E-04, 2.6440E-05),
     &  ( 3.9915E-04, 2.6367E-05),( 3.9586E-04, 2.6298E-05),
     &  ( 3.9255E-04, 2.6226E-05),( 3.8949E-04, 2.6158E-05),
     &  ( 3.8640E-04, 2.6088E-05),( 3.8355E-04, 2.6021E-05),
     &  ( 3.8066E-04, 2.5952E-05),( 3.7798E-04, 2.5887E-05),
     &  ( 3.7539E-04, 2.5822E-05),( 3.7276E-04, 2.5755E-05),
     &  ( 3.7033E-04, 2.5691E-05),( 3.6786E-04, 2.5626E-05),
     &  ( 3.6557E-04, 2.5563E-05),( 3.6324E-04, 2.5499E-05),
     &  ( 3.6108E-04, 2.5438E-05),( 3.5889E-04, 2.5374E-05),
     &  ( 3.5685E-04, 2.5314E-05),( 3.5478E-04, 2.5252E-05),
     &  ( 3.5285E-04, 2.5193E-05),( 3.5089E-04, 2.5132E-05),
     &  ( 3.4898E-04, 2.5072E-05),( 3.4720E-04, 2.5015E-05),
     &  ( 3.4539E-04, 2.4955E-05),( 3.4371E-04, 2.4899E-05),
     &  ( 3.4235E-04, 2.4841E-05),( 3.4106E-04, 2.4786E-05),
     &  ( 3.3970E-04, 2.4729E-05),( 3.3840E-04, 2.4674E-05),
     &  ( 3.3705E-04, 2.4618E-05),( 3.3575E-04, 2.4565E-05),
     &  ( 3.3439E-04, 2.4510E-05),( 3.3310E-04, 2.4457E-05),
     &  ( 3.3174E-04, 2.4403E-05),( 3.3044E-04, 2.4352E-05),
     &  ( 3.2914E-04, 2.4301E-05),( 3.2779E-04, 2.4248E-05),
     &  ( 3.2649E-04, 2.4198E-05),( 3.2513E-04, 2.4146E-05),
     &  ( 3.2384E-04, 2.4097E-05),( 3.2248E-04, 2.4046E-05),
     &  ( 3.2118E-04, 2.3997E-05),( 3.1983E-04, 2.3947E-05),
     &  ( 3.1853E-04, 2.3899E-05),( 3.1717E-04, 2.3850E-05),
     &  ( 3.1588E-04, 2.3803E-05),( 3.1452E-04, 2.3755E-05),
     &  ( 3.0515E-04, 2.3253E-05),( 2.9578E-04, 2.2794E-05),
     &  ( 2.9475E-04, 2.2724E-05),( 2.6070E-04, 2.0178E-05),
     &  ( 2.5245E-04, 1.9311E-05),( 2.3919E-04, 1.7551E-05),
     &  ( 2.3467E-04, 1.6776E-05),( 2.3448E-04, 1.6741E-05),
     &  ( 2.3022E-04, 1.5859E-05),( 2.3021E-04, 1.5857E-05),
     &  ( 2.2792E-04, 1.5272E-05),( 2.2784E-04, 1.5250E-05),
     &  ( 2.2779E-04, 1.5238E-05),( 2.2685E-04, 1.4967E-05),
     &  ( 2.2629E-04, 1.4792E-05),( 2.2620E-04, 1.4761E-05),
     &  ( 2.2605E-04, 1.4711E-05),( 2.2583E-04, 1.4637E-05),
     &  ( 2.2567E-04, 1.4586E-05),( 2.2558E-04, 1.4553E-05),
     &  ( 2.2474E-04, 1.4247E-05),( 2.2471E-04, 1.4232E-05),
     &  ( 2.2448E-04, 1.4143E-05),( 2.2444E-04, 1.4127E-05),
     &  ( 2.2427E-04, 1.4055E-05),( 2.2420E-04, 1.4026E-05),
     &  ( 2.2415E-04, 1.4003E-05),( 2.2410E-04, 1.3982E-05),
     &  ( 2.2396E-04, 1.3922E-05),( 2.2375E-04, 1.3834E-05),
     &  ( 2.2367E-04, 1.3797E-05),( 2.2316E-04, 1.3556E-05),
     &  ( 2.2277E-04, 1.3356E-05)/
       save
       RETURN
       END

c     ++++ cdalhadshigh26 ++++

c update 01/26/26
       subroutine calhad_timelike1h26c

       IMPLICIT NONE
       INTEGER NC,I,J
       PARAMETER(NC=200)
       REAL EMA(NC)
       COMPLEX *8 CAM(NC,3),CGM(NC,3)
       COMMON /DATM26c/EMA,CAM,CGM


       DATA  (EMA  (I), I=   1, 100) /
     &   1.3000E+01, 1.3500E+01,
     &   1.4000E+01, 1.4500E+01,
     &   1.5000E+01, 1.6000E+01,
     &   1.7000E+01, 1.8000E+01,
     &   1.9000E+01, 2.0000E+01,
     &   2.1000E+01, 2.2000E+01,
     &   2.3000E+01, 2.4000E+01,
     &   2.5000E+01, 2.6000E+01,
     &   2.7000E+01, 2.8000E+01,
     &   2.9000E+01, 3.0000E+01,
     &   3.1000E+01, 3.2000E+01,
     &   3.3000E+01, 3.4000E+01,
     &   3.5000E+01, 3.6000E+01,
     &   3.7000E+01, 3.8000E+01,
     &   3.9000E+01, 4.0000E+01,
     &   4.1000E+01, 4.2000E+01,
     &   4.3000E+01, 4.4000E+01,
     &   4.5000E+01, 4.6000E+01,
     &   4.7000E+01, 4.8000E+01,
     &   4.9000E+01, 5.0000E+01,
     &   5.1000E+01, 5.2000E+01,
     &   5.3000E+01, 5.4000E+01,
     &   5.5000E+01, 5.6000E+01,
     &   5.7000E+01, 5.8000E+01,
     &   5.9000E+01, 6.0000E+01,
     &   6.1000E+01, 6.2000E+01,
     &   6.3000E+01, 6.4000E+01,
     &   6.5000E+01, 6.6000E+01,
     &   6.7000E+01, 6.8000E+01,
     &   6.9000E+01, 7.0000E+01,
     &   7.1000E+01, 7.2000E+01,
     &   7.3000E+01, 7.4000E+01,
     &   7.5000E+01, 7.6000E+01,
     &   7.7000E+01, 7.8000E+01,
     &   7.9000E+01, 8.0000E+01,
     &   8.1000E+01, 8.2000E+01,
     &   8.3000E+01, 8.4000E+01,
     &   8.5000E+01, 8.6000E+01,
     &   8.7000E+01, 8.8000E+01,
     &   8.9000E+01, 9.0000E+01,
     &   9.1000E+01, 9.2000E+01,
     &   9.3000E+01, 9.4000E+01,
     &   9.5000E+01, 9.6000E+01,
     &   9.7000E+01, 9.8000E+01,
     &   9.9000E+01, 1.0000E+02,
     &   1.0900E+02, 1.1800E+02,
     &   1.2700E+02, 1.3600E+02,
     &   1.4500E+02, 1.5400E+02,
     &   1.6300E+02, 1.7200E+02,
     &   1.8100E+02, 1.9000E+02/
       DATA  (EMA  (I), I= 101, 200) /
     &   1.9900E+02, 2.0800E+02,
     &   2.1700E+02, 2.2600E+02,
     &   2.3500E+02, 2.4400E+02,
     &   2.5300E+02, 2.6200E+02,
     &   2.7100E+02, 2.8000E+02,
     &   2.8900E+02, 2.9800E+02,
     &   3.0700E+02, 3.1600E+02,
     &   3.2500E+02, 3.3400E+02,
     &   3.4300E+02, 3.5200E+02,
     &   3.6100E+02, 3.7000E+02,
     &   3.7900E+02, 3.8800E+02,
     &   3.9700E+02, 4.0600E+02,
     &   4.1500E+02, 4.2400E+02,
     &   4.3300E+02, 4.4200E+02,
     &   4.5100E+02, 4.6000E+02,
     &   4.6900E+02, 4.7800E+02,
     &   4.8700E+02, 4.9600E+02,
     &   5.0500E+02, 5.1400E+02,
     &   5.2300E+02, 5.3200E+02,
     &   5.4100E+02, 5.5000E+02,
     &   5.5900E+02, 5.6800E+02,
     &   5.7700E+02, 5.8600E+02,
     &   5.9500E+02, 6.0400E+02,
     &   6.1300E+02, 6.2200E+02,
     &   6.3100E+02, 6.4000E+02,
     &   6.4900E+02, 6.5800E+02,
     &   6.6700E+02, 6.7600E+02,
     &   6.8500E+02, 6.9400E+02,
     &   7.0300E+02, 7.1200E+02,
     &   7.2100E+02, 7.3000E+02,
     &   7.3900E+02, 7.4800E+02,
     &   7.5700E+02, 7.6600E+02,
     &   7.7500E+02, 7.8400E+02,
     &   7.9300E+02, 8.0200E+02,
     &   8.1100E+02, 8.2000E+02,
     &   8.2900E+02, 8.3800E+02,
     &   8.4700E+02, 8.5600E+02,
     &   8.6500E+02, 8.7400E+02,
     &   8.8300E+02, 8.9200E+02,
     &   9.0100E+02, 9.1000E+02,
     &   9.1900E+02, 9.2800E+02,
     &   9.3700E+02, 9.4600E+02,
     &   9.5500E+02, 9.6400E+02,
     &   9.7300E+02, 9.8200E+02,
     &   9.9100E+02, 1.0000E+03,
     &   2.0000E+03, 3.0000E+03,
     &   4.0000E+03, 5.0000E+03,
     &   6.0000E+03, 8.0000E+03,
     &   1.0000E+04, 1.2000E+04,
     &   1.4000E+04, 2.0000E+04/

         DATA ((CAM  (I,J), I=   1, 100), J=1,1) /
     &  ( 1.5777E-02,-9.4721E-03),( 1.6083E-02,-9.4635E-03),
     &  ( 1.6298E-02,-9.4556E-03),( 1.6534E-02,-9.4484E-03),
     &  ( 1.6758E-02,-9.4417E-03),( 1.7176E-02,-9.4298E-03),
     &  ( 1.7562E-02,-9.4196E-03),( 1.7921E-02,-9.4106E-03),
     &  ( 1.8258E-02,-9.4026E-03),( 1.8575E-02,-9.3955E-03),
     &  ( 1.8875E-02,-9.3891E-03),( 1.9268E-02,-9.3833E-03),
     &  ( 1.9430E-02,-9.3780E-03),( 1.9689E-02,-9.3731E-03),
     &  ( 1.9937E-02,-9.3686E-03),( 2.0175E-02,-9.3645E-03),
     &  ( 2.0402E-02,-9.3606E-03),( 2.0621E-02,-9.3569E-03),
     &  ( 2.0832E-02,-9.3535E-03),( 2.1036E-02,-9.3503E-03),
     &  ( 2.1233E-02,-9.3473E-03),( 2.1423E-02,-9.3444E-03),
     &  ( 2.1608E-02,-9.3417E-03),( 2.1789E-02,-9.3391E-03),
     &  ( 2.1992E-02,-9.3367E-03),( 2.2128E-02,-9.3343E-03),
     &  ( 2.2291E-02,-9.3321E-03),( 2.2451E-02,-9.3299E-03),
     &  ( 2.2606E-02,-9.3279E-03),( 2.2757E-02,-9.3259E-03),
     &  ( 2.2904E-02,-9.3240E-03),( 2.3047E-02,-9.3222E-03),
     &  ( 2.3195E-02,-9.3204E-03),( 2.3324E-02,-9.3187E-03),
     &  ( 2.3458E-02,-9.3171E-03),( 2.3651E-02,-9.3155E-03),
     &  ( 2.3716E-02,-9.3139E-03),( 2.3841E-02,-9.3125E-03),
     &  ( 2.3964E-02,-9.3110E-03),( 2.4084E-02,-9.3096E-03),
     &  ( 2.4201E-02,-9.3082E-03),( 2.4317E-02,-9.3069E-03),
     &  ( 2.4430E-02,-9.3056E-03),( 2.4564E-02,-9.3044E-03),
     &  ( 2.4650E-02,-9.3032E-03),( 2.4757E-02,-9.3020E-03),
     &  ( 2.4861E-02,-9.3008E-03),( 2.5088E-02,-9.2997E-03),
     &  ( 2.5066E-02,-9.2986E-03),( 2.5166E-02,-9.2975E-03),
     &  ( 2.5264E-02,-9.2965E-03),( 2.5360E-02,-9.2955E-03),
     &  ( 2.5455E-02,-9.2945E-03),( 2.5548E-02,-9.2935E-03),
     &  ( 2.5640E-02,-9.2925E-03),( 2.5730E-02,-9.2916E-03),
     &  ( 2.5819E-02,-9.2907E-03),( 2.5907E-02,-9.2898E-03),
     &  ( 2.5994E-02,-9.2889E-03),( 2.6079E-02,-9.2881E-03),
     &  ( 2.6163E-02,-9.2872E-03),( 2.6246E-02,-9.2864E-03),
     &  ( 2.6327E-02,-9.2856E-03),( 2.6408E-02,-9.2848E-03),
     &  ( 2.6487E-02,-9.2840E-03),( 2.6566E-02,-9.2832E-03),
     &  ( 2.6643E-02,-9.2825E-03),( 2.6719E-02,-9.2818E-03),
     &  ( 2.6795E-02,-9.2810E-03),( 2.6869E-02,-9.2803E-03),
     &  ( 2.6943E-02,-9.2796E-03),( 2.7015E-02,-9.2789E-03),
     &  ( 2.7087E-02,-9.2782E-03),( 2.7158E-02,-9.2776E-03),
     &  ( 2.7228E-02,-9.2769E-03),( 2.7297E-02,-9.2763E-03),
     &  ( 2.7365E-02,-9.2756E-03),( 2.7433E-02,-9.2750E-03),
     &  ( 2.7500E-02,-9.2744E-03),( 2.7566E-02,-9.2738E-03),
     &  ( 2.7631E-02,-9.2732E-03),( 2.7696E-02,-9.2726E-03),
     &  ( 2.7760E-02,-9.2720E-03),( 2.7823E-02,-9.2715E-03),
     &  ( 2.7886E-02,-9.2709E-03),( 2.7947E-02,-9.2703E-03),
     &  ( 2.8009E-02,-9.2698E-03),( 2.8069E-02,-9.2693E-03),
     &  ( 2.8129E-02,-9.2687E-03),( 2.8189E-02,-9.2682E-03),
     &  ( 2.8698E-02,-9.2638E-03),( 2.9168E-02,-9.2598E-03),
     &  ( 2.9602E-02,-9.2562E-03),( 3.0008E-02,-9.2530E-03),
     &  ( 3.0387E-02,-9.2500E-03),( 3.0744E-02,-9.2472E-03),
     &  ( 3.1080E-02,-9.2447E-03),( 3.1399E-02,-9.2423E-03),
     &  ( 3.1701E-02,-9.2401E-03),( 3.1990E-02,-9.2381E-03)/

         DATA ((CAM  (I,J), I= 101, 200), J=1,1) /
     &  ( 3.2265E-02,-9.2361E-03),( 3.2528E-02,-9.2343E-03),
     &  ( 3.2780E-02,-9.2326E-03),( 3.3023E-02,-9.2309E-03),
     &  ( 3.3256E-02,-9.2294E-03),( 3.3480E-02,-9.2279E-03),
     &  ( 3.3697E-02,-9.2265E-03),( 3.3907E-02,-9.2251E-03),
     &  ( 3.4110E-02,-9.2238E-03),( 3.4306E-02,-9.2226E-03),
     &  ( 3.4497E-02,-9.2214E-03),( 3.4682E-02,-9.2203E-03),
     &  ( 3.4861E-02,-9.2192E-03),( 3.5036E-02,-9.2182E-03),
     &  ( 3.5207E-02,-9.2172E-03),( 3.5373E-02,-9.2162E-03),
     &  ( 3.5534E-02,-9.2152E-03),( 3.5691E-02,-9.2143E-03),
     &  ( 3.5847E-02,-9.2164E-03),( 3.5999E-02,-9.2156E-03),
     &  ( 3.6148E-02,-9.2147E-03),( 3.6293E-02,-9.2139E-03),
     &  ( 3.6435E-02,-9.2131E-03),( 3.6575E-02,-9.2123E-03),
     &  ( 3.6712E-02,-9.2116E-03),( 3.6846E-02,-9.2109E-03),
     &  ( 3.6978E-02,-9.2102E-03),( 3.7108E-02,-9.2095E-03),
     &  ( 3.7236E-02,-9.2089E-03),( 3.7361E-02,-9.2082E-03),
     &  ( 3.7485E-02,-9.2076E-03),( 3.7607E-02,-9.2070E-03),
     &  ( 3.7727E-02,-9.2064E-03),( 3.7845E-02,-9.2058E-03),
     &  ( 3.7956E-02,-9.2052E-03),( 3.8059E-02,-9.2047E-03),
     &  ( 3.8161E-02,-9.2041E-03),( 3.8261E-02,-9.2036E-03),
     &  ( 3.8359E-02,-9.2031E-03),( 3.8456E-02,-9.2026E-03),
     &  ( 3.8551E-02,-9.2021E-03),( 3.8644E-02,-9.2016E-03),
     &  ( 3.8736E-02,-9.2011E-03),( 3.8827E-02,-9.2007E-03),
     &  ( 3.8916E-02,-9.2002E-03),( 3.9004E-02,-9.1997E-03),
     &  ( 3.9090E-02,-9.1993E-03),( 3.9176E-02,-9.1989E-03),
     &  ( 3.9260E-02,-9.1984E-03),( 3.9343E-02,-9.1980E-03),
     &  ( 3.9424E-02,-9.1976E-03),( 3.9505E-02,-9.1972E-03),
     &  ( 3.9584E-02,-9.1968E-03),( 3.9663E-02,-9.1964E-03),
     &  ( 3.9740E-02,-9.1960E-03),( 3.9817E-02,-9.1957E-03),
     &  ( 3.9892E-02,-9.1953E-03),( 3.9966E-02,-9.1949E-03),
     &  ( 4.0040E-02,-9.1946E-03),( 4.0112E-02,-9.1942E-03),
     &  ( 4.0184E-02,-9.1939E-03),( 4.0255E-02,-9.1935E-03),
     &  ( 4.0325E-02,-9.1932E-03),( 4.0394E-02,-9.1929E-03),
     &  ( 4.0462E-02,-9.1925E-03),( 4.0530E-02,-9.1922E-03),
     &  ( 4.0596E-02,-9.1919E-03),( 4.0662E-02,-9.1916E-03),
     &  ( 4.0728E-02,-9.1913E-03),( 4.0792E-02,-9.1909E-03),
     &  ( 4.0856E-02,-9.1906E-03),( 4.0919E-02,-9.1903E-03),
     &  ( 4.0982E-02,-9.1901E-03),( 4.1043E-02,-9.1898E-03),
     &  ( 4.1105E-02,-9.1895E-03),( 4.1165E-02,-9.1892E-03),
     &  ( 4.1225E-02,-9.1889E-03),( 4.1284E-02,-9.1886E-03),
     &  ( 4.1343E-02,-9.1884E-03),( 4.1401E-02,-9.1881E-03),
     &  ( 4.1459E-02,-9.1878E-03),( 4.1516E-02,-9.1876E-03),
     &  ( 4.1572E-02,-9.1873E-03),( 4.1628E-02,-9.1870E-03),
     &  ( 4.1683E-02,-9.1868E-03),( 4.1738E-02,-9.1865E-03),
     &  ( 4.1792E-02,-9.1863E-03),( 4.1846E-02,-9.1860E-03),
     &  ( 4.1899E-02,-9.1858E-03),( 4.1952E-02,-9.1856E-03),
     &  ( 4.5999E-02,-9.1684E-03),( 4.8362E-02,-9.1593E-03),
     &  ( 5.0039E-02,-9.1533E-03),( 5.1339E-02,-9.1489E-03),
     &  ( 5.2399E-02,-9.1454E-03),( 5.4074E-02,-9.1401E-03),
     &  ( 5.5372E-02,-9.1361E-03),( 5.6430E-02,-9.1330E-03),
     &  ( 5.7327E-02,-9.1304E-03),( 5.9399E-02,-9.1247E-03)/


         DATA ((CAM  (I,J), I=   1, 100), J=2,2) /
     &  ( 1.7139E-05, 0.0000E+00),( 1.6339E-05, 0.0000E+00),
     &  ( 1.5840E-05, 0.0000E+00),( 1.5491E-05, 0.0000E+00),
     &  ( 1.5230E-05, 0.0000E+00),( 1.4855E-05, 0.0000E+00),
     &  ( 1.4595E-05, 0.0000E+00),( 1.4400E-05, 0.0000E+00),
     &  ( 1.4249E-05, 0.0000E+00),( 1.4128E-05, 0.0000E+00),
     &  ( 1.4028E-05, 0.0000E+00),( 1.3945E-05, 0.0000E+00),
     &  ( 1.3875E-05, 0.0000E+00),( 1.3815E-05, 0.0000E+00),
     &  ( 1.3763E-05, 0.0000E+00),( 1.3718E-05, 0.0000E+00),
     &  ( 1.3678E-05, 0.0000E+00),( 1.3643E-05, 0.0000E+00),
     &  ( 1.3612E-05, 0.0000E+00),( 1.3584E-05, 0.0000E+00),
     &  ( 1.3559E-05, 0.0000E+00),( 1.3537E-05, 0.0000E+00),
     &  ( 1.3517E-05, 0.0000E+00),( 1.3498E-05, 0.0000E+00),
     &  ( 1.3482E-05, 0.0000E+00),( 1.3466E-05, 0.0000E+00),
     &  ( 1.3452E-05, 0.0000E+00),( 1.3440E-05, 0.0000E+00),
     &  ( 1.3428E-05, 0.0000E+00),( 1.3417E-05, 0.0000E+00),
     &  ( 1.3407E-05, 0.0000E+00),( 1.3397E-05, 0.0000E+00),
     &  ( 1.3389E-05, 0.0000E+00),( 1.3381E-05, 0.0000E+00),
     &  ( 1.3373E-05, 0.0000E+00),( 1.3366E-05, 0.0000E+00),
     &  ( 1.3360E-05, 0.0000E+00),( 1.3354E-05, 0.0000E+00),
     &  ( 1.3348E-05, 0.0000E+00),( 1.3342E-05, 0.0000E+00),
     &  ( 1.3337E-05, 0.0000E+00),( 1.3333E-05, 0.0000E+00),
     &  ( 1.3328E-05, 0.0000E+00),( 1.3324E-05, 0.0000E+00),
     &  ( 1.3320E-05, 0.0000E+00),( 1.3316E-05, 0.0000E+00),
     &  ( 1.3312E-05, 0.0000E+00),( 1.3309E-05, 0.0000E+00),
     &  ( 1.3306E-05, 0.0000E+00),( 1.3303E-05, 0.0000E+00),
     &  ( 1.3300E-05, 0.0000E+00),( 1.3297E-05, 0.0000E+00),
     &  ( 1.3294E-05, 0.0000E+00),( 1.3292E-05, 0.0000E+00),
     &  ( 1.3289E-05, 0.0000E+00),( 1.3287E-05, 0.0000E+00),
     &  ( 1.3285E-05, 0.0000E+00),( 1.3283E-05, 0.0000E+00),
     &  ( 1.3281E-05, 0.0000E+00),( 1.3279E-05, 0.0000E+00),
     &  ( 1.3277E-05, 0.0000E+00),( 1.3275E-05, 0.0000E+00),
     &  ( 1.3274E-05, 0.0000E+00),( 1.3272E-05, 0.0000E+00),
     &  ( 1.3271E-05, 0.0000E+00),( 1.3269E-05, 0.0000E+00),
     &  ( 1.3268E-05, 0.0000E+00),( 1.3266E-05, 0.0000E+00),
     &  ( 1.3265E-05, 0.0000E+00),( 1.3264E-05, 0.0000E+00),
     &  ( 1.3263E-05, 0.0000E+00),( 1.3261E-05, 0.0000E+00),
     &  ( 1.3260E-05, 0.0000E+00),( 1.3259E-05, 0.0000E+00),
     &  ( 1.3258E-05, 0.0000E+00),( 1.3257E-05, 0.0000E+00),
     &  ( 1.3256E-05, 0.0000E+00),( 1.3255E-05, 0.0000E+00),
     &  ( 1.3254E-05, 0.0000E+00),( 1.3253E-05, 0.0000E+00),
     &  ( 1.3252E-05, 0.0000E+00),( 1.3252E-05, 0.0000E+00),
     &  ( 1.3251E-05, 0.0000E+00),( 1.3250E-05, 0.0000E+00),
     &  ( 1.3249E-05, 0.0000E+00),( 1.3249E-05, 0.0000E+00),
     &  ( 1.3248E-05, 0.0000E+00),( 1.3247E-05, 0.0000E+00),
     &  ( 1.3246E-05, 0.0000E+00),( 1.3246E-05, 0.0000E+00),
     &  ( 1.3241E-05, 0.0000E+00),( 1.3237E-05, 0.0000E+00),
     &  ( 1.3234E-05, 0.0000E+00),( 1.3231E-05, 0.0000E+00),
     &  ( 1.3229E-05, 0.0000E+00),( 1.3228E-05, 0.0000E+00),
     &  ( 1.3226E-05, 0.0000E+00),( 1.3225E-05, 0.0000E+00),
     &  ( 1.3224E-05, 0.0000E+00),( 1.3223E-05, 0.0000E+00)/

         DATA ((CAM  (I,J), I= 101, 200), J=2,2) /
     &  ( 1.3222E-05, 0.0000E+00),( 1.3222E-05, 0.0000E+00),
     &  ( 1.3221E-05, 0.0000E+00),( 1.3220E-05, 0.0000E+00),
     &  ( 1.3220E-05, 0.0000E+00),( 1.3220E-05, 0.0000E+00),
     &  ( 1.3219E-05, 0.0000E+00),( 1.3219E-05, 0.0000E+00),
     &  ( 1.3219E-05, 0.0000E+00),( 1.3218E-05, 0.0000E+00),
     &  ( 1.3218E-05, 0.0000E+00),( 1.3218E-05, 0.0000E+00),
     &  ( 1.3218E-05, 0.0000E+00),( 1.3217E-05, 0.0000E+00),
     &  ( 1.3217E-05, 0.0000E+00),( 1.3217E-05, 0.0000E+00),
     &  ( 1.3217E-05, 0.0000E+00),( 1.3217E-05, 0.0000E+00),
     &  ( 1.3217E-05, 0.0000E+00),( 1.3217E-05, 0.0000E+00),
     &  ( 1.3216E-05, 0.0000E+00),( 1.3216E-05, 0.0000E+00),
     &  ( 1.3216E-05, 0.0000E+00),( 1.3216E-05, 0.0000E+00),
     &  ( 1.3216E-05, 0.0000E+00),( 1.3216E-05, 0.0000E+00),
     &  ( 1.3216E-05, 0.0000E+00),( 1.3216E-05, 0.0000E+00),
     &  ( 1.3216E-05, 0.0000E+00),( 1.3216E-05, 0.0000E+00),
     &  ( 1.3216E-05, 0.0000E+00),( 1.3216E-05, 0.0000E+00),
     &  ( 1.3216E-05, 0.0000E+00),( 1.3216E-05, 0.0000E+00),
     &  ( 1.3216E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3215E-05, 0.0000E+00),( 1.3215E-05, 0.0000E+00),
     &  ( 1.3214E-05, 0.0000E+00),( 1.3214E-05, 0.0000E+00),
     &  ( 1.3214E-05, 0.0000E+00),( 1.3214E-05, 0.0000E+00),
     &  ( 1.3214E-05, 0.0000E+00),( 1.3214E-05, 0.0000E+00),
     &  ( 1.3214E-05, 0.0000E+00),( 1.3214E-05, 0.0000E+00),
     &  ( 1.3214E-05, 0.0000E+00),( 1.3214E-05, 0.0000E+00)/


         DATA ((CAM  (I,J), I=   1, 100), J=3,3) /
     &  ( 1.6510E-04, 1.2056E-05),( 1.5874E-04, 1.1498E-05),
     &  ( 1.5470E-04, 1.1035E-05),( 1.5188E-04, 1.0645E-05),
     &  ( 1.4977E-04, 1.0312E-05),( 1.4681E-04, 9.7742E-06),
     &  ( 1.4480E-04, 9.3563E-06),( 1.4333E-04, 9.0204E-06),
     &  ( 1.4221E-04, 8.7426E-06),( 1.4132E-04, 8.5071E-06),
     &  ( 1.4059E-04, 8.3036E-06),( 1.4000E-04, 8.1246E-06),
     &  ( 1.3949E-04, 7.9650E-06),( 1.3907E-04, 7.8211E-06),
     &  ( 1.3870E-04, 7.6901E-06),( 1.3838E-04, 7.5697E-06),
     &  ( 1.3810E-04, 7.4585E-06),( 1.3786E-04, 7.3551E-06),
     &  ( 1.3764E-04, 7.2584E-06),( 1.3745E-04, 7.1677E-06),
     &  ( 1.3728E-04, 7.0822E-06),( 1.3712E-04, 7.0014E-06),
     &  ( 1.3699E-04, 6.9248E-06),( 1.3686E-04, 6.8520E-06),
     &  ( 1.3675E-04, 6.7826E-06),( 1.3664E-04, 6.7164E-06),
     &  ( 1.3654E-04, 6.6531E-06),( 1.3646E-04, 6.5924E-06),
     &  ( 1.3638E-04, 6.5342E-06),( 1.3630E-04, 6.4783E-06),
     &  ( 1.3623E-04, 6.4245E-06),( 1.3617E-04, 6.3727E-06),
     &  ( 1.3611E-04, 6.3227E-06),( 1.3606E-04, 6.2745E-06),
     &  ( 1.3601E-04, 6.2279E-06),( 1.3596E-04, 6.1829E-06),
     &  ( 1.3592E-04, 6.1393E-06),( 1.3587E-04, 6.0970E-06),
     &  ( 1.3584E-04, 6.0561E-06),( 1.3580E-04, 6.0163E-06),
     &  ( 1.3577E-04, 5.9778E-06),( 1.3573E-04, 5.9403E-06),
     &  ( 1.3570E-04, 5.9039E-06),( 1.3568E-04, 5.8685E-06),
     &  ( 1.3565E-04, 5.8340E-06),( 1.3562E-04, 5.8005E-06),
     &  ( 1.3560E-04, 5.7678E-06),( 1.3559E-04, 5.7359E-06),
     &  ( 1.3556E-04, 5.7049E-06),( 1.3553E-04, 5.6746E-06),
     &  ( 1.3552E-04, 5.6450E-06),( 1.3550E-04, 5.6161E-06),
     &  ( 1.3548E-04, 5.5879E-06),( 1.3546E-04, 5.5603E-06),
     &  ( 1.3545E-04, 5.5334E-06),( 1.3543E-04, 5.5071E-06),
     &  ( 1.3542E-04, 5.4813E-06),( 1.3540E-04, 5.4561E-06),
     &  ( 1.3539E-04, 5.4314E-06),( 1.3538E-04, 5.4072E-06),
     &  ( 1.3537E-04, 5.3835E-06),( 1.3536E-04, 5.3603E-06),
     &  ( 1.3534E-04, 5.3376E-06),( 1.3533E-04, 5.3153E-06),
     &  ( 1.3532E-04, 5.2934E-06),( 1.3531E-04, 5.2720E-06),
     &  ( 1.3531E-04, 5.2510E-06),( 1.3530E-04, 5.2303E-06),
     &  ( 1.3529E-04, 5.2100E-06),( 1.3528E-04, 5.1901E-06),
     &  ( 1.3527E-04, 5.1706E-06),( 1.3526E-04, 5.1514E-06),
     &  ( 1.3526E-04, 5.1325E-06),( 1.3525E-04, 5.1140E-06),
     &  ( 1.3524E-04, 5.0958E-06),( 1.3524E-04, 5.0779E-06),
     &  ( 1.3523E-04, 5.0602E-06),( 1.3522E-04, 5.0429E-06),
     &  ( 1.3522E-04, 5.0259E-06),( 1.3521E-04, 5.0091E-06),
     &  ( 1.3521E-04, 4.9926E-06),( 1.3520E-04, 4.9763E-06),
     &  ( 1.3520E-04, 4.9603E-06),( 1.3519E-04, 4.9446E-06),
     &  ( 1.3519E-04, 4.9291E-06),( 1.3518E-04, 4.9138E-06),
     &  ( 1.3518E-04, 4.8987E-06),( 1.3518E-04, 4.8839E-06),
     &  ( 1.3517E-04, 4.8693E-06),( 1.3517E-04, 4.8549E-06),
     &  ( 1.3514E-04, 4.7340E-06),( 1.3511E-04, 4.6266E-06),
     &  ( 1.3509E-04, 4.5304E-06),( 1.3508E-04, 4.4434E-06),
     &  ( 1.3507E-04, 4.3644E-06),( 1.3506E-04, 4.2920E-06),
     &  ( 1.3505E-04, 4.2255E-06),( 1.3505E-04, 4.1640E-06),
     &  ( 1.3504E-04, 4.1070E-06),( 1.3504E-04, 4.0539E-06)/

         DATA ((CAM  (I,J), I= 101, 200), J=3,3) /
     &  ( 1.3503E-04, 4.0042E-06),( 1.3503E-04, 3.9577E-06),
     &  ( 1.3503E-04, 3.9139E-06),( 1.3503E-04, 3.8727E-06),
     &  ( 1.3502E-04, 3.8337E-06),( 1.3502E-04, 3.7968E-06),
     &  ( 1.3502E-04, 3.7618E-06),( 1.3502E-04, 3.7285E-06),
     &  ( 1.3502E-04, 3.6968E-06),( 1.3502E-04, 3.6665E-06),
     &  ( 1.3502E-04, 3.6376E-06),( 1.3502E-04, 3.6100E-06),
     &  ( 1.3502E-04, 3.5835E-06),( 1.3502E-04, 3.5581E-06),
     &  ( 1.3502E-04, 3.5337E-06),( 1.3502E-04, 3.5102E-06),
     &  ( 1.3502E-04, 3.4876E-06),( 1.3502E-04, 3.4658E-06),
     &  ( 1.3502E-04, 3.4636E-06),( 1.3502E-04, 3.4426E-06),
     &  ( 1.3502E-04, 3.4223E-06),( 1.3502E-04, 3.4029E-06),
     &  ( 1.3502E-04, 3.3841E-06),( 1.3502E-04, 3.3659E-06),
     &  ( 1.3502E-04, 3.3484E-06),( 1.3502E-04, 3.3315E-06),
     &  ( 1.3502E-04, 3.3151E-06),( 1.3502E-04, 3.2992E-06),
     &  ( 1.3502E-04, 3.2838E-06),( 1.3502E-04, 3.2688E-06),
     &  ( 1.3502E-04, 3.2543E-06),( 1.3502E-04, 3.2402E-06),
     &  ( 1.3502E-04, 3.2264E-06),( 1.3502E-04, 3.2131E-06),
     &  ( 1.3502E-04, 3.2000E-06),( 1.3502E-04, 3.1873E-06),
     &  ( 1.3502E-04, 3.1749E-06),( 1.3502E-04, 3.1629E-06),
     &  ( 1.3502E-04, 3.1510E-06),( 1.3502E-04, 3.1395E-06),
     &  ( 1.3502E-04, 3.1283E-06),( 1.3502E-04, 3.1172E-06),
     &  ( 1.3502E-04, 3.1065E-06),( 1.3502E-04, 3.0959E-06),
     &  ( 1.3503E-04, 3.0856E-06),( 1.3503E-04, 3.0755E-06),
     &  ( 1.3503E-04, 3.0656E-06),( 1.3503E-04, 3.0559E-06),
     &  ( 1.3503E-04, 3.0464E-06),( 1.3503E-04, 3.0370E-06),
     &  ( 1.3503E-04, 3.0279E-06),( 1.3503E-04, 3.0189E-06),
     &  ( 1.3503E-04, 3.0101E-06),( 1.3503E-04, 3.0015E-06),
     &  ( 1.3503E-04, 2.9930E-06),( 1.3503E-04, 2.9846E-06),
     &  ( 1.3503E-04, 2.9764E-06),( 1.3503E-04, 2.9683E-06),
     &  ( 1.3503E-04, 2.9604E-06),( 1.3503E-04, 2.9526E-06),
     &  ( 1.3503E-04, 2.9449E-06),( 1.3503E-04, 2.9374E-06),
     &  ( 1.3503E-04, 2.9300E-06),( 1.3503E-04, 2.9227E-06),
     &  ( 1.3503E-04, 2.9155E-06),( 1.3503E-04, 2.9084E-06),
     &  ( 1.3503E-04, 2.9014E-06),( 1.3503E-04, 2.8946E-06),
     &  ( 1.3503E-04, 2.8878E-06),( 1.3503E-04, 2.8811E-06),
     &  ( 1.3503E-04, 2.8746E-06),( 1.3503E-04, 2.8681E-06),
     &  ( 1.3503E-04, 2.8617E-06),( 1.3503E-04, 2.8554E-06),
     &  ( 1.3503E-04, 2.8492E-06),( 1.3503E-04, 2.8431E-06),
     &  ( 1.3504E-04, 2.8370E-06),( 1.3504E-04, 2.8311E-06),
     &  ( 1.3504E-04, 2.8252E-06),( 1.3504E-04, 2.8194E-06),
     &  ( 1.3504E-04, 2.8136E-06),( 1.3504E-04, 2.8080E-06),
     &  ( 1.3504E-04, 2.8024E-06),( 1.3504E-04, 2.7969E-06),
     &  ( 1.3504E-04, 2.7914E-06),( 1.3504E-04, 2.7861E-06),
     &  ( 1.3504E-04, 2.7807E-06),( 1.3504E-04, 2.7755E-06),
     &  ( 1.3504E-04, 2.7703E-06),( 1.3504E-04, 2.7652E-06),
     &  ( 1.3506E-04, 2.4109E-06),( 1.3507E-04, 2.2342E-06),
     &  ( 1.3508E-04, 2.1202E-06),( 1.3509E-04, 2.0377E-06),
     &  ( 1.3509E-04, 1.9738E-06),( 1.3510E-04, 1.8789E-06),
     &  ( 1.3511E-04, 1.8098E-06),( 1.3511E-04, 1.7562E-06),
     &  ( 1.3511E-04, 1.7127E-06),( 1.3512E-04, 1.6180E-06)/


c     ++++ cdeghadshigh26 ++++


         DATA ((CGM  (I,J), I=   1, 100), J=1,1) /
     &  ( 3.1332E-02,-1.9561E-02),( 3.2012E-02,-1.9539E-02),
     &  ( 3.2491E-02,-1.9519E-02),( 3.3006E-02,-1.9501E-02),
     &  ( 3.3491E-02,-1.9484E-02),( 3.4388E-02,-1.9454E-02),
     &  ( 3.5209E-02,-1.9429E-02),( 3.5969E-02,-1.9407E-02),
     &  ( 3.6678E-02,-1.9387E-02),( 3.7345E-02,-1.9370E-02),
     &  ( 3.7972E-02,-1.9355E-02),( 3.8794E-02,-1.9342E-02),
     &  ( 3.9133E-02,-1.9329E-02),( 3.9672E-02,-1.9318E-02),
     &  ( 4.0187E-02,-1.9308E-02),( 4.0683E-02,-1.9299E-02),
     &  ( 4.1154E-02,-1.9290E-02),( 4.1609E-02,-1.9282E-02),
     &  ( 4.2047E-02,-1.9275E-02),( 4.2470E-02,-1.9268E-02),
     &  ( 4.2878E-02,-1.9261E-02),( 4.3273E-02,-1.9255E-02),
     &  ( 4.3654E-02,-1.9250E-02),( 4.4031E-02,-1.9245E-02),
     &  ( 4.4450E-02,-1.9240E-02),( 4.4731E-02,-1.9235E-02),
     &  ( 4.5070E-02,-1.9231E-02),( 4.5399E-02,-1.9227E-02),
     &  ( 4.5721E-02,-1.9223E-02),( 4.6033E-02,-1.9219E-02),
     &  ( 4.6336E-02,-1.9216E-02),( 4.6632E-02,-1.9213E-02),
     &  ( 4.6939E-02,-1.9210E-02),( 4.7205E-02,-1.9207E-02),
     &  ( 4.7481E-02,-1.9204E-02),( 4.7882E-02,-1.9202E-02),
     &  ( 4.8015E-02,-1.9199E-02),( 4.8273E-02,-1.9197E-02),
     &  ( 4.8526E-02,-1.9195E-02),( 4.8774E-02,-1.9193E-02),
     &  ( 4.9017E-02,-1.9191E-02),( 4.9255E-02,-1.9190E-02),
     &  ( 4.9489E-02,-1.9188E-02),( 4.9767E-02,-1.9187E-02),
     &  ( 4.9942E-02,-1.9185E-02),( 5.0163E-02,-1.9184E-02),
     &  ( 5.0380E-02,-1.9183E-02),( 5.0850E-02,-1.9182E-02),
     &  ( 5.0802E-02,-1.9181E-02),( 5.1007E-02,-1.9180E-02),
     &  ( 5.1209E-02,-1.9180E-02),( 5.1408E-02,-1.9179E-02),
     &  ( 5.1604E-02,-1.9178E-02),( 5.1797E-02,-1.9178E-02),
     &  ( 5.1986E-02,-1.9177E-02),( 5.2173E-02,-1.9177E-02),
     &  ( 5.2356E-02,-1.9177E-02),( 5.2537E-02,-1.9177E-02),
     &  ( 5.2716E-02,-1.9177E-02),( 5.2892E-02,-1.9177E-02),
     &  ( 5.3065E-02,-1.9177E-02),( 5.3236E-02,-1.9177E-02),
     &  ( 5.3404E-02,-1.9177E-02),( 5.3570E-02,-1.9178E-02),
     &  ( 5.3734E-02,-1.9178E-02),( 5.3896E-02,-1.9178E-02),
     &  ( 5.4055E-02,-1.9179E-02),( 5.4213E-02,-1.9180E-02),
     &  ( 5.4368E-02,-1.9180E-02),( 5.4522E-02,-1.9181E-02),
     &  ( 5.4673E-02,-1.9182E-02),( 5.4823E-02,-1.9183E-02),
     &  ( 5.4971E-02,-1.9183E-02),( 5.5117E-02,-1.9184E-02),
     &  ( 5.5262E-02,-1.9185E-02),( 5.5404E-02,-1.9187E-02),
     &  ( 5.5545E-02,-1.9188E-02),( 5.5685E-02,-1.9189E-02),
     &  ( 5.5823E-02,-1.9190E-02),( 5.5959E-02,-1.9191E-02),
     &  ( 5.6094E-02,-1.9193E-02),( 5.6227E-02,-1.9194E-02),
     &  ( 5.6359E-02,-1.9196E-02),( 5.6489E-02,-1.9197E-02),
     &  ( 5.6618E-02,-1.9199E-02),( 5.6746E-02,-1.9201E-02),
     &  ( 5.6872E-02,-1.9202E-02),( 5.6998E-02,-1.9204E-02),
     &  ( 5.7121E-02,-1.9206E-02),( 5.7244E-02,-1.9208E-02),
     &  ( 5.8295E-02,-1.9227E-02),( 5.9262E-02,-1.9251E-02),
     &  ( 6.0159E-02,-1.9279E-02),( 6.0994E-02,-1.9310E-02),
     &  ( 6.1776E-02,-1.9346E-02),( 6.2512E-02,-1.9385E-02),
     &  ( 6.3205E-02,-1.9428E-02),( 6.3862E-02,-1.9475E-02),
     &  ( 6.4486E-02,-1.9525E-02),( 6.5081E-02,-1.9579E-02)/

         DATA ((CGM  (I,J), I= 101, 200), J=1,1) /
     &  ( 6.5648E-02,-1.9637E-02),( 6.6190E-02,-1.9698E-02),
     &  ( 6.6711E-02,-1.9763E-02),( 6.7210E-02,-1.9832E-02),
     &  ( 6.7691E-02,-1.9904E-02),( 6.8154E-02,-1.9979E-02),
     &  ( 6.8601E-02,-2.0058E-02),( 6.9033E-02,-2.0141E-02),
     &  ( 6.9451E-02,-2.0227E-02),( 6.9856E-02,-2.0317E-02),
     &  ( 7.0249E-02,-2.0411E-02),( 7.0630E-02,-2.0507E-02),
     &  ( 7.1001E-02,-2.0608E-02),( 7.1362E-02,-2.0712E-02),
     &  ( 7.1713E-02,-2.0819E-02),( 7.2055E-02,-2.0930E-02),
     &  ( 7.2388E-02,-2.1045E-02),( 7.2712E-02,-2.1163E-02),
     &  ( 7.3033E-02,-1.8997E-02),( 7.3346E-02,-1.8995E-02),
     &  ( 7.3653E-02,-1.8993E-02),( 7.3952E-02,-1.8992E-02),
     &  ( 7.4246E-02,-1.8990E-02),( 7.4533E-02,-1.8989E-02),
     &  ( 7.4816E-02,-1.8987E-02),( 7.5093E-02,-1.8986E-02),
     &  ( 7.5365E-02,-1.8984E-02),( 7.5633E-02,-1.8983E-02),
     &  ( 7.5896E-02,-1.8982E-02),( 7.6155E-02,-1.8980E-02),
     &  ( 7.6410E-02,-1.8979E-02),( 7.6661E-02,-1.8978E-02),
     &  ( 7.6908E-02,-1.8977E-02),( 7.7153E-02,-1.8975E-02),
     &  ( 7.7380E-02,-1.8974E-02),( 7.7593E-02,-1.8973E-02),
     &  ( 7.7803E-02,-1.8972E-02),( 7.8009E-02,-1.8971E-02),
     &  ( 7.8211E-02,-1.8970E-02),( 7.8411E-02,-1.8969E-02),
     &  ( 7.8606E-02,-1.8968E-02),( 7.8799E-02,-1.8967E-02),
     &  ( 7.8989E-02,-1.8966E-02),( 7.9176E-02,-1.8965E-02),
     &  ( 7.9360E-02,-1.8964E-02),( 7.9541E-02,-1.8963E-02),
     &  ( 7.9719E-02,-1.8962E-02),( 7.9895E-02,-1.8961E-02),
     &  ( 8.0068E-02,-1.8960E-02),( 8.0239E-02,-1.8960E-02),
     &  ( 8.0407E-02,-1.8959E-02),( 8.0574E-02,-1.8958E-02),
     &  ( 8.0737E-02,-1.8957E-02),( 8.0899E-02,-1.8956E-02),
     &  ( 8.1059E-02,-1.8956E-02),( 8.1216E-02,-1.8955E-02),
     &  ( 8.1371E-02,-1.8954E-02),( 8.1525E-02,-1.8953E-02),
     &  ( 8.1676E-02,-1.8953E-02),( 8.1826E-02,-1.8952E-02),
     &  ( 8.1974E-02,-1.8951E-02),( 8.2120E-02,-1.8950E-02),
     &  ( 8.2264E-02,-1.8950E-02),( 8.2406E-02,-1.8949E-02),
     &  ( 8.2547E-02,-1.8948E-02),( 8.2686E-02,-1.8948E-02),
     &  ( 8.2824E-02,-1.8947E-02),( 8.2960E-02,-1.8946E-02),
     &  ( 8.3094E-02,-1.8946E-02),( 8.3227E-02,-1.8945E-02),
     &  ( 8.3359E-02,-1.8945E-02),( 8.3489E-02,-1.8944E-02),
     &  ( 8.3618E-02,-1.8943E-02),( 8.3745E-02,-1.8943E-02),
     &  ( 8.3871E-02,-1.8942E-02),( 8.3996E-02,-1.8942E-02),
     &  ( 8.4119E-02,-1.8941E-02),( 8.4242E-02,-1.8940E-02),
     &  ( 8.4363E-02,-1.8940E-02),( 8.4482E-02,-1.8939E-02),
     &  ( 8.4601E-02,-1.8939E-02),( 8.4718E-02,-1.8938E-02),
     &  ( 8.4835E-02,-1.8938E-02),( 8.4950E-02,-1.8937E-02),
     &  ( 8.5064E-02,-1.8937E-02),( 8.5177E-02,-1.8936E-02),
     &  ( 8.5289E-02,-1.8936E-02),( 8.5400E-02,-1.8935E-02),
     &  ( 8.5510E-02,-1.8935E-02),( 8.5618E-02,-1.8934E-02),
     &  ( 9.3961E-02,-1.8897E-02),( 9.8833E-02,-1.8874E-02),
     &  ( 1.0229E-01,-1.8853E-02),( 1.0497E-01,-1.8833E-02),
     &  ( 1.0715E-01,-1.8811E-02),( 1.1061E-01,-1.8760E-02),
     &  ( 1.1328E-01,-1.8697E-02),( 1.1546E-01,-1.8621E-02),
     &  ( 1.1731E-01,-1.8530E-02),( 1.2159E-01,-1.8166E-02)/


         DATA ((CGM  (I,J), I=   1, 100), J=2,2) /
     &  ( 3.7749E-05, 0.0000E+00),( 3.4354E-05, 0.0000E+00),
     &  ( 3.2296E-05, 0.0000E+00),( 3.0914E-05, 0.0000E+00),
     &  ( 2.9920E-05, 0.0000E+00),( 2.8581E-05, 0.0000E+00),
     &  ( 2.7715E-05, 0.0000E+00),( 2.7107E-05, 0.0000E+00),
     &  ( 2.6656E-05, 0.0000E+00),( 2.6308E-05, 0.0000E+00),
     &  ( 2.6032E-05, 0.0000E+00),( 2.5807E-05, 0.0000E+00),
     &  ( 2.5621E-05, 0.0000E+00),( 2.5464E-05, 0.0000E+00),
     &  ( 2.5331E-05, 0.0000E+00),( 2.5217E-05, 0.0000E+00),
     &  ( 2.5118E-05, 0.0000E+00),( 2.5032E-05, 0.0000E+00),
     &  ( 2.4955E-05, 0.0000E+00),( 2.4888E-05, 0.0000E+00),
     &  ( 2.4828E-05, 0.0000E+00),( 2.4774E-05, 0.0000E+00),
     &  ( 2.4726E-05, 0.0000E+00),( 2.4682E-05, 0.0000E+00),
     &  ( 2.4642E-05, 0.0000E+00),( 2.4607E-05, 0.0000E+00),
     &  ( 2.4574E-05, 0.0000E+00),( 2.4544E-05, 0.0000E+00),
     &  ( 2.4516E-05, 0.0000E+00),( 2.4491E-05, 0.0000E+00),
     &  ( 2.4468E-05, 0.0000E+00),( 2.4446E-05, 0.0000E+00),
     &  ( 2.4426E-05, 0.0000E+00),( 2.4407E-05, 0.0000E+00),
     &  ( 2.4390E-05, 0.0000E+00),( 2.4374E-05, 0.0000E+00),
     &  ( 2.4359E-05, 0.0000E+00),( 2.4345E-05, 0.0000E+00),
     &  ( 2.4332E-05, 0.0000E+00),( 2.4320E-05, 0.0000E+00),
     &  ( 2.4308E-05, 0.0000E+00),( 2.4297E-05, 0.0000E+00),
     &  ( 2.4287E-05, 0.0000E+00),( 2.4277E-05, 0.0000E+00),
     &  ( 2.4268E-05, 0.0000E+00),( 2.4260E-05, 0.0000E+00),
     &  ( 2.4251E-05, 0.0000E+00),( 2.4244E-05, 0.0000E+00),
     &  ( 2.4236E-05, 0.0000E+00),( 2.4229E-05, 0.0000E+00),
     &  ( 2.4223E-05, 0.0000E+00),( 2.4217E-05, 0.0000E+00),
     &  ( 2.4211E-05, 0.0000E+00),( 2.4205E-05, 0.0000E+00),
     &  ( 2.4200E-05, 0.0000E+00),( 2.4194E-05, 0.0000E+00),
     &  ( 2.4189E-05, 0.0000E+00),( 2.4185E-05, 0.0000E+00),
     &  ( 2.4180E-05, 0.0000E+00),( 2.4176E-05, 0.0000E+00),
     &  ( 2.4172E-05, 0.0000E+00),( 2.4168E-05, 0.0000E+00),
     &  ( 2.4164E-05, 0.0000E+00),( 2.4161E-05, 0.0000E+00),
     &  ( 2.4157E-05, 0.0000E+00),( 2.4154E-05, 0.0000E+00),
     &  ( 2.4151E-05, 0.0000E+00),( 2.4148E-05, 0.0000E+00),
     &  ( 2.4145E-05, 0.0000E+00),( 2.4142E-05, 0.0000E+00),
     &  ( 2.4139E-05, 0.0000E+00),( 2.4136E-05, 0.0000E+00),
     &  ( 2.4134E-05, 0.0000E+00),( 2.4131E-05, 0.0000E+00),
     &  ( 2.4129E-05, 0.0000E+00),( 2.4127E-05, 0.0000E+00),
     &  ( 2.4125E-05, 0.0000E+00),( 2.4122E-05, 0.0000E+00),
     &  ( 2.4120E-05, 0.0000E+00),( 2.4118E-05, 0.0000E+00),
     &  ( 2.4116E-05, 0.0000E+00),( 2.4115E-05, 0.0000E+00),
     &  ( 2.4113E-05, 0.0000E+00),( 2.4111E-05, 0.0000E+00),
     &  ( 2.4109E-05, 0.0000E+00),( 2.4108E-05, 0.0000E+00),
     &  ( 2.4106E-05, 0.0000E+00),( 2.4105E-05, 0.0000E+00),
     &  ( 2.4103E-05, 0.0000E+00),( 2.4102E-05, 0.0000E+00),
     &  ( 2.4091E-05, 0.0000E+00),( 2.4082E-05, 0.0000E+00),
     &  ( 2.4075E-05, 0.0000E+00),( 2.4069E-05, 0.0000E+00),
     &  ( 2.4065E-05, 0.0000E+00),( 2.4061E-05, 0.0000E+00),
     &  ( 2.4058E-05, 0.0000E+00),( 2.4055E-05, 0.0000E+00),
     &  ( 2.4053E-05, 0.0000E+00),( 2.4051E-05, 0.0000E+00)/

         DATA ((CGM  (I,J), I= 101, 200), J=2,2) /
     &  ( 2.4049E-05, 0.0000E+00),( 2.4048E-05, 0.0000E+00),
     &  ( 2.4046E-05, 0.0000E+00),( 2.4045E-05, 0.0000E+00),
     &  ( 2.4044E-05, 0.0000E+00),( 2.4043E-05, 0.0000E+00),
     &  ( 2.4042E-05, 0.0000E+00),( 2.4042E-05, 0.0000E+00),
     &  ( 2.4041E-05, 0.0000E+00),( 2.4040E-05, 0.0000E+00),
     &  ( 2.4040E-05, 0.0000E+00),( 2.4039E-05, 0.0000E+00),
     &  ( 2.4039E-05, 0.0000E+00),( 2.4039E-05, 0.0000E+00),
     &  ( 2.4038E-05, 0.0000E+00),( 2.4038E-05, 0.0000E+00),
     &  ( 2.4037E-05, 0.0000E+00),( 2.4037E-05, 0.0000E+00),
     &  ( 2.4037E-05, 0.0000E+00),( 2.4037E-05, 0.0000E+00),
     &  ( 2.4036E-05, 0.0000E+00),( 2.4036E-05, 0.0000E+00),
     &  ( 2.4036E-05, 0.0000E+00),( 2.4036E-05, 0.0000E+00),
     &  ( 2.4036E-05, 0.0000E+00),( 2.4035E-05, 0.0000E+00),
     &  ( 2.4035E-05, 0.0000E+00),( 2.4035E-05, 0.0000E+00),
     &  ( 2.4035E-05, 0.0000E+00),( 2.4035E-05, 0.0000E+00),
     &  ( 2.4035E-05, 0.0000E+00),( 2.4035E-05, 0.0000E+00),
     &  ( 2.4035E-05, 0.0000E+00),( 2.4034E-05, 0.0000E+00),
     &  ( 2.4034E-05, 0.0000E+00),( 2.4034E-05, 0.0000E+00),
     &  ( 2.4034E-05, 0.0000E+00),( 2.4034E-05, 0.0000E+00),
     &  ( 2.4034E-05, 0.0000E+00),( 2.4034E-05, 0.0000E+00),
     &  ( 2.4034E-05, 0.0000E+00),( 2.4034E-05, 0.0000E+00),
     &  ( 2.4034E-05, 0.0000E+00),( 2.4034E-05, 0.0000E+00),
     &  ( 2.4034E-05, 0.0000E+00),( 2.4033E-05, 0.0000E+00),
     &  ( 2.4033E-05, 0.0000E+00),( 2.4033E-05, 0.0000E+00),
     &  ( 2.4033E-05, 0.0000E+00),( 2.4033E-05, 0.0000E+00),
     &  ( 2.4033E-05, 0.0000E+00),( 2.4033E-05, 0.0000E+00),
     &  ( 2.4033E-05, 0.0000E+00),( 2.4033E-05, 0.0000E+00),
     &  ( 2.4033E-05, 0.0000E+00),( 2.4033E-05, 0.0000E+00),
     &  ( 2.4033E-05, 0.0000E+00),( 2.4033E-05, 0.0000E+00),
     &  ( 2.4033E-05, 0.0000E+00),( 2.4033E-05, 0.0000E+00),
     &  ( 2.4033E-05, 0.0000E+00),( 2.4033E-05, 0.0000E+00),
     &  ( 2.4033E-05, 0.0000E+00),( 2.4033E-05, 0.0000E+00),
     &  ( 2.4033E-05, 0.0000E+00),( 2.4033E-05, 0.0000E+00),
     &  ( 2.4033E-05, 0.0000E+00),( 2.4033E-05, 0.0000E+00),
     &  ( 2.4033E-05, 0.0000E+00),( 2.4033E-05, 0.0000E+00),
     &  ( 2.4033E-05, 0.0000E+00),( 2.4033E-05, 0.0000E+00),
     &  ( 2.4033E-05, 0.0000E+00),( 2.4033E-05, 0.0000E+00),
     &  ( 2.4033E-05, 0.0000E+00),( 2.4032E-05, 0.0000E+00),
     &  ( 2.4032E-05, 0.0000E+00),( 2.4032E-05, 0.0000E+00),
     &  ( 2.4032E-05, 0.0000E+00),( 2.4032E-05, 0.0000E+00),
     &  ( 2.4032E-05, 0.0000E+00),( 2.4032E-05, 0.0000E+00),
     &  ( 2.4032E-05, 0.0000E+00),( 2.4032E-05, 0.0000E+00),
     &  ( 2.4032E-05, 0.0000E+00),( 2.4032E-05, 0.0000E+00),
     &  ( 2.4032E-05, 0.0000E+00),( 2.4032E-05, 0.0000E+00),
     &  ( 2.4032E-05, 0.0000E+00),( 2.4032E-05, 0.0000E+00),
     &  ( 2.4032E-05, 0.0000E+00),( 2.4032E-05, 0.0000E+00),
     &  ( 2.4032E-05, 0.0000E+00),( 2.4032E-05, 0.0000E+00),
     &  ( 2.4032E-05, 0.0000E+00),( 2.4032E-05, 0.0000E+00),
     &  ( 2.4032E-05, 0.0000E+00),( 2.4032E-05, 0.0000E+00),
     &  ( 2.4032E-05, 0.0000E+00),( 2.4032E-05, 0.0000E+00)/


         DATA ((CGM  (I,J), I=   1, 100), J=3,3) /
     &  ( 3.4409E-04, 2.4912E-05),( 3.1452E-04, 2.3755E-05),
     &  ( 2.9578E-04, 2.2794E-05),( 2.8288E-04, 2.1985E-05),
     &  ( 2.7347E-04, 2.1295E-05),( 2.6070E-04, 2.0178E-05),
     &  ( 2.5245E-04, 1.9311E-05),( 2.4668E-04, 1.8615E-05),
     &  ( 2.4244E-04, 1.8039E-05),( 2.3919E-04, 1.7551E-05),
     &  ( 2.3662E-04, 1.7129E-05),( 2.3457E-04, 1.6759E-05),
     &  ( 2.3285E-04, 1.6428E-05),( 2.3142E-04, 1.6131E-05),
     &  ( 2.3022E-04, 1.5859E-05),( 2.2919E-04, 1.5611E-05),
     &  ( 2.2830E-04, 1.5381E-05),( 2.2753E-04, 1.5167E-05),
     &  ( 2.2685E-04, 1.4967E-05),( 2.2625E-04, 1.4779E-05),
     &  ( 2.2572E-04, 1.4603E-05),( 2.2524E-04, 1.4436E-05),
     &  ( 2.2482E-04, 1.4277E-05),( 2.2444E-04, 1.4127E-05),
     &  ( 2.2410E-04, 1.3984E-05),( 2.2378E-04, 1.3847E-05),
     &  ( 2.2349E-04, 1.3716E-05),( 2.2323E-04, 1.3591E-05),
     &  ( 2.2299E-04, 1.3471E-05),( 2.2277E-04, 1.3356E-05),
     &  ( 2.2257E-04, 1.3245E-05),( 2.2238E-04, 1.3138E-05),
     &  ( 2.2221E-04, 1.3035E-05),( 2.2205E-04, 1.2935E-05),
     &  ( 2.2190E-04, 1.2839E-05),( 2.2179E-04, 1.2746E-05),
     &  ( 2.2163E-04, 1.2656E-05),( 2.2151E-04, 1.2569E-05),
     &  ( 2.2140E-04, 1.2484E-05),( 2.2130E-04, 1.2402E-05),
     &  ( 2.2120E-04, 1.2323E-05),( 2.2111E-04, 1.2245E-05),
     &  ( 2.2102E-04, 1.2170E-05),( 2.2095E-04, 1.2097E-05),
     &  ( 2.2086E-04, 1.2026E-05),( 2.2079E-04, 1.1957E-05),
     &  ( 2.2072E-04, 1.1890E-05),( 2.2070E-04, 1.1824E-05),
     &  ( 2.2059E-04, 1.1760E-05),( 2.2054E-04, 1.1697E-05),
     &  ( 2.2048E-04, 1.1636E-05),( 2.2043E-04, 1.1577E-05),
     &  ( 2.2038E-04, 1.1519E-05),( 2.2033E-04, 1.1462E-05),
     &  ( 2.2029E-04, 1.1406E-05),( 2.2024E-04, 1.1352E-05),
     &  ( 2.2020E-04, 1.1299E-05),( 2.2016E-04, 1.1247E-05),
     &  ( 2.2013E-04, 1.1196E-05),( 2.2009E-04, 1.1146E-05),
     &  ( 2.2006E-04, 1.1097E-05),( 2.2002E-04, 1.1049E-05),
     &  ( 2.1999E-04, 1.1002E-05),( 2.1996E-04, 1.0956E-05),
     &  ( 2.1993E-04, 1.0911E-05),( 2.1991E-04, 1.0867E-05),
     &  ( 2.1988E-04, 1.0824E-05),( 2.1986E-04, 1.0781E-05),
     &  ( 2.1983E-04, 1.0739E-05),( 2.1981E-04, 1.0698E-05),
     &  ( 2.1979E-04, 1.0658E-05),( 2.1977E-04, 1.0619E-05),
     &  ( 2.1974E-04, 1.0580E-05),( 2.1972E-04, 1.0541E-05),
     &  ( 2.1971E-04, 1.0504E-05),( 2.1969E-04, 1.0467E-05),
     &  ( 2.1967E-04, 1.0431E-05),( 2.1965E-04, 1.0395E-05),
     &  ( 2.1964E-04, 1.0360E-05),( 2.1962E-04, 1.0325E-05),
     &  ( 2.1961E-04, 1.0291E-05),( 2.1959E-04, 1.0258E-05),
     &  ( 2.1958E-04, 1.0225E-05),( 2.1956E-04, 1.0192E-05),
     &  ( 2.1955E-04, 1.0160E-05),( 2.1954E-04, 1.0129E-05),
     &  ( 2.1952E-04, 1.0098E-05),( 2.1951E-04, 1.0067E-05),
     &  ( 2.1950E-04, 1.0037E-05),( 2.1949E-04, 1.0007E-05),
     &  ( 2.1940E-04, 9.7579E-06),( 2.1934E-04, 9.5366E-06),
     &  ( 2.1929E-04, 9.3382E-06),( 2.1925E-04, 9.1590E-06),
     &  ( 2.1921E-04, 8.9960E-06),( 2.1919E-04, 8.8469E-06),
     &  ( 2.1917E-04, 8.7098E-06),( 2.1915E-04, 8.5831E-06),
     &  ( 2.1913E-04, 8.4655E-06),( 2.1912E-04, 8.3560E-06)/

         DATA ((CGM  (I,J), I= 101, 200), J=3,3) /
     &  ( 2.1911E-04, 8.2536E-06),( 2.1911E-04, 8.1577E-06),
     &  ( 2.1910E-04, 8.0674E-06),( 2.1909E-04, 7.9824E-06),
     &  ( 2.1909E-04, 7.9021E-06),( 2.1908E-04, 7.8260E-06),
     &  ( 2.1908E-04, 7.7538E-06),( 2.1908E-04, 7.6852E-06),
     &  ( 2.1908E-04, 7.6198E-06),( 2.1908E-04, 7.5575E-06),
     &  ( 2.1907E-04, 7.4979E-06),( 2.1907E-04, 7.4409E-06),
     &  ( 2.1907E-04, 7.3863E-06),( 2.1907E-04, 7.3340E-06),
     &  ( 2.1907E-04, 7.2836E-06),( 2.1907E-04, 7.2353E-06),
     &  ( 2.1907E-04, 7.1887E-06),( 2.1907E-04, 7.1438E-06),
     &  ( 2.1907E-04, 6.8141E-06),( 2.1907E-04, 6.7569E-06),
     &  ( 2.1907E-04, 6.7053E-06),( 2.1907E-04, 6.6579E-06),
     &  ( 2.1907E-04, 6.6139E-06),( 2.1908E-04, 6.5725E-06),
     &  ( 2.1908E-04, 6.5336E-06),( 2.1908E-04, 6.4965E-06),
     &  ( 2.1908E-04, 6.4613E-06),( 2.1908E-04, 6.4275E-06),
     &  ( 2.1908E-04, 6.3951E-06),( 2.1908E-04, 6.3640E-06),
     &  ( 2.1908E-04, 6.3340E-06),( 2.1908E-04, 6.3050E-06),
     &  ( 2.1908E-04, 6.2770E-06),( 2.1909E-04, 6.2499E-06),
     &  ( 2.1909E-04, 6.2236E-06),( 2.1909E-04, 6.1981E-06),
     &  ( 2.1909E-04, 6.1733E-06),( 2.1909E-04, 6.1491E-06),
     &  ( 2.1909E-04, 6.1257E-06),( 2.1909E-04, 6.1028E-06),
     &  ( 2.1909E-04, 6.0804E-06),( 2.1909E-04, 6.0587E-06),
     &  ( 2.1909E-04, 6.0374E-06),( 2.1910E-04, 6.0166E-06),
     &  ( 2.1910E-04, 5.9963E-06),( 2.1910E-04, 5.9765E-06),
     &  ( 2.1910E-04, 5.9571E-06),( 2.1910E-04, 5.9380E-06),
     &  ( 2.1910E-04, 5.9194E-06),( 2.1910E-04, 5.9012E-06),
     &  ( 2.1910E-04, 5.8833E-06),( 2.1910E-04, 5.8657E-06),
     &  ( 2.1910E-04, 5.8485E-06),( 2.1911E-04, 5.8316E-06),
     &  ( 2.1911E-04, 5.8151E-06),( 2.1911E-04, 5.7988E-06),
     &  ( 2.1911E-04, 5.7828E-06),( 2.1911E-04, 5.7671E-06),
     &  ( 2.1911E-04, 5.7517E-06),( 2.1911E-04, 5.7365E-06),
     &  ( 2.1911E-04, 5.7216E-06),( 2.1911E-04, 5.7069E-06),
     &  ( 2.1911E-04, 5.6925E-06),( 2.1911E-04, 5.6783E-06),
     &  ( 2.1912E-04, 5.6643E-06),( 2.1912E-04, 5.6505E-06),
     &  ( 2.1912E-04, 5.6370E-06),( 2.1912E-04, 5.6237E-06),
     &  ( 2.1912E-04, 5.6105E-06),( 2.1912E-04, 5.5976E-06),
     &  ( 2.1912E-04, 5.5848E-06),( 2.1912E-04, 5.5722E-06),
     &  ( 2.1912E-04, 5.5598E-06),( 2.1912E-04, 5.5476E-06),
     &  ( 2.1912E-04, 5.5356E-06),( 2.1912E-04, 5.5237E-06),
     &  ( 2.1913E-04, 5.5119E-06),( 2.1913E-04, 5.5004E-06),
     &  ( 2.1913E-04, 5.4890E-06),( 2.1913E-04, 5.4777E-06),
     &  ( 2.1913E-04, 5.4666E-06),( 2.1913E-04, 5.4556E-06),
     &  ( 2.1913E-04, 5.4448E-06),( 2.1913E-04, 5.4341E-06),
     &  ( 2.1913E-04, 5.4235E-06),( 2.1913E-04, 5.4131E-06),
     &  ( 2.1913E-04, 5.4028E-06),( 2.1913E-04, 5.3926E-06),
     &  ( 2.1913E-04, 5.3825E-06),( 2.1914E-04, 5.3726E-06),
     &  ( 2.1919E-04, 4.6852E-06),( 2.1922E-04, 4.3419E-06),
     &  ( 2.1925E-04, 4.1205E-06),( 2.1927E-04, 3.9602E-06),
     &  ( 2.1928E-04, 3.8359E-06),( 2.1931E-04, 3.6514E-06),
     &  ( 2.1932E-04, 3.5173E-06),( 2.1933E-04, 3.4131E-06),
     &  ( 2.1935E-04, 3.3286E-06),( 2.1937E-04, 3.1446E-06)/

       save
       RETURN
       END
