Using AliLog (F.Carminati)

[u/mrichter/AliRoot.git] / PDF / spdf / ctq5hq1.F

C-----------------------------------------------------------------------
#include "pdf/pilot.h"
      Subroutine Ctq5HQ1 (Iset)
#include "pdf/impdp.inc"
      PARAMETER (MXX = 105, MXQ = 25, MXF = 6)
      PARAMETER (MXPQX = (MXF *2 +2) * MXQ * MXX)
      PARAMETER (NxI = 90, NtI = 13, NfMxI = 5)
      COMMON / W5051IC / Al, XV(0:MXX), QL(0:MXQ), UPD(MXPQX)
      COMMON / W5051ID / Nx, Nt, NfMx
      COMMON / W5051IE / Qini, Qmax, Xmin
      DIMENSION Amass(6)
      PARAMETER (NSETS=9)
      DIMENSION 
     >  XVI(0:MXX),QLI(0:MXQ),UPDI(MXPQX),
     >  AmassI(6)
C
C-----------------------------------------------------------------------
C Parton Distribution Table : hq12                                             C       PARAMETER (ISET=9) 
        DATA  DrI, FlI, AlI /   2.,   5.,  .2260 /
        DATA  (AmassI(I),I=1,6) /     .000,     .000,     .200,
     +                               1.300,    4.500,  180.000 /
C        DATA  NXI,  NTI, NfMxI /    90,    13,     5 /
        DATA  QINII, QMAXI, (QLI(I), I =0, NTI) /
     +  .100000E+01, .100000E+05,
     +  .100000E+01, .130000E+01, .167097E+01, .222659E+01, .309171E+01,
     +  .450000E+01, .754288E+01, .138228E+02, .281243E+02, .646894E+02,
     +  .171811E+03, .540159E+03, .206963E+04, .100000E+05 /
        DATA  XMINI, (XVI(I), I =0, NXI) /
     +  .100000E-04,
     +  .000000E+00, .100000E-04, .124433E-04, .154836E-04, .192668E-04,
     +  .239740E-04, .298310E-04, .371184E-04, .461852E-04, .574656E-04,
     +  .714994E-04, .889575E-04, .110674E-03, .137686E-03, .171280E-03,
     +  .213055E-03, .264997E-03, .329564E-03, .409809E-03, .509508E-03,
     +  .633332E-03, .787053E-03, .977784E-03, .121428E-02, .150728E-02,
     +  .186993E-02, .231825E-02, .288037E-02, .356397E-02, .440443E-02,
     +  .543508E-02, .669508E-02, .822984E-02, .100851E-01, .123281E-01,
     +  .150167E-01, .182174E-01, .219985E-01, .264278E-01, .315720E-01,
     +  .374800E-01, .442088E-01, .517931E-01, .602576E-01, .696136E-01,
     +  .798586E-01, .909356E-01, .102935E+00, .115681E+00, .129293E+00,
     +  .143599E+00, .158606E+00, .174271E+00, .190550E+00, .207405E+00,
     +  .224796E+00, .242685E+00, .261038E+00, .279820E+00, .299001E+00,
     +  .318550E+00, .338442E+00, .358653E+00, .379067E+00, .399881E+00,
     +  .420953E+00, .442266E+00, .463806E+00, .485559E+00, .507513E+00,
     +  .529656E+00, .551978E+00, .574483E+00, .597187E+00, .619860E+00,
     +  .642828E+00, .665921E+00, .689135E+00, .712467E+00, .735911E+00,
     +  .759464E+00, .783080E+00, .806909E+00, .830741E+00, .854673E+00,
     +  .878696E+00, .902804E+00, .926992E+00, .951257E+00, .975603E+00,
     +  .100000E+01 /
C Parton Distribution Table:                                                   
        DATA (UPDI(I),I=1,52) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=53,104) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=105,156) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=157,208) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=209,260) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=261,312) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=313,364) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=365,416) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=417,468) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .219313E+06,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=469,520) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=521,572) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .114266E+06, .871492E+05,
     +  .654051E+05, .490335E+05, .367404E+05, .274971E+05,
     +  .205671E+05, .153647E+05, .114705E+05, .855216E+04,
     +  .637155E+04, .474036E+04, .352384E+04, .261566E+04,
     +  .193974E+04, .143624E+04, .106235E+04, .784502E+03,
     +  .578686E+03, .426107E+03, .313373E+03, .230026E+03,
     +  .168627E+03, .123375E+03, .901401E+02, .657217E+02 /
        DATA (UPDI(I),I=573,624) /
     +  .478459E+02, .346109E+02, .251162E+02, .181894E+02,
     +  .131574E+02, .949964E+01, .685318E+01, .494118E+01,
     +  .355919E+01, .256214E+01, .184592E+01, .133036E+01,
     +  .960645E+00, .694566E+00, .503906E+00, .366381E+00,
     +  .267489E+00, .195869E+00, .144085E+00, .106333E+00,
     +  .789312E-01, .586736E-01, .438747E-01, .328378E-01,
     +  .246970E-01, .186061E-01, .140587E-01, .106276E-01,
     +  .804811E-02, .608948E-02, .461174E-02, .348574E-02,
     +  .263256E-02, .198106E-02, .148733E-02, .111007E-02,
     +  .824692E-03, .607826E-03, .443977E-03, .320089E-03,
     +  .227733E-03, .158674E-03, .107888E-03, .706118E-04,
     +  .438834E-04, .248312E-04, .116999E-04, .295479E-05,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=625,676) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .264462E+06, .201052E+06, .150321E+06,
     +  .112272E+06, .838029E+05, .624801E+05, .465518E+05,
     +  .346412E+05, .257590E+05, .191291E+05, .141939E+05,
     +  .105173E+05, .778589E+04, .575531E+04, .425000E+04,
     +  .313347E+04, .230769E+04, .169670E+04, .124599E+04,
     +  .913351E+03, .668623E+03, .488523E+03, .356430E+03,
     +  .259534E+03, .188690E+03, .136888E+03, .991498E+02,
     +  .713478E+02, .515005E+02, .370973E+02, .266857E+02,
     +  .191592E+02, .137414E+02, .984964E+01, .705168E+01,
     +  .504510E+01, .361170E+01, .258630E+01, .185521E+01 /
        DATA (UPDI(I),I=677,728) /
     +  .133244E+01, .960077E+00, .693285E+00, .502598E+00,
     +  .365453E+00, .266911E+00, .195572E+00, .144125E+00,
     +  .106358E+00, .789498E-01, .586581E-01, .437889E-01,
     +  .327474E-01, .245586E-01, .184282E-01, .138512E-01,
     +  .104040E-01, .782158E-02, .587020E-02, .440296E-02,
     +  .329229E-02, .245736E-02, .182524E-02, .135111E-02,
     +  .994282E-03, .727001E-03, .526805E-03, .378820E-03,
     +  .269081E-03, .188911E-03, .130353E-03, .884055E-04,
     +  .583797E-04, .373651E-04, .229468E-04, .133152E-04,
     +  .699388E-05, .308466E-05, .773916E-06, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=729,780) /
     +  .458393E+06, .347332E+06, .258689E+06, .192465E+06,
     +  .143099E+06, .106271E+06, .788630E+05, .584514E+05,
     +  .432876E+05, .320156E+05, .236575E+05, .174569E+05,
     +  .128687E+05, .947223E+04, .696456E+04, .511264E+04,
     +  .374865E+04, .274391E+04, .200588E+04, .146368E+04,
     +  .106650E+04, .775569E+03, .563145E+03, .408065E+03,
     +  .295205E+03, .213080E+03, .153544E+03, .109906E+03,
     +  .789080E+02, .565323E+02, .404392E+02, .288701E+02,
     +  .205854E+02, .146687E+02, .104378E+02, .742174E+01,
     +  .527935E+01, .375628E+01, .267671E+01, .190972E+01,
     +  .136667E+01, .980182E+00, .705629E+00, .509523E+00,
     +  .369500E+00, .268837E+00, .196707E+00, .144126E+00,
     +  .106218E+00, .783550E-01, .580694E-01, .431170E-01 /
        DATA (UPDI(I),I=781,832) /
     +  .320999E-01, .239147E-01, .178441E-01, .133077E-01,
     +  .993203E-02, .740139E-02, .551195E-02, .409337E-02,
     +  .303461E-02, .223992E-02, .164815E-02, .120681E-02,
     +  .878651E-03, .635021E-03, .456287E-03, .324859E-03,
     +  .229510E-03, .160356E-03, .111039E-03, .758586E-04,
     +  .512081E-04, .341740E-04, .226107E-04, .147793E-04,
     +  .963760E-05, .627434E-05, .413281E-05, .275620E-05,
     +  .188878E-05, .131930E-05, .936239E-06, .653480E-06,
     +  .439402E-06, .274394E-06, .151906E-06, .681062E-07,
     +  .200768E-07, .179725E-08, .000000E+00, .704958E+06,
     +  .532357E+06, .394926E+06, .292664E+06, .216724E+06,
     +  .160302E+06, .118474E+06, .874520E+05, .644962E+05,
     +  .475032E+05, .349536E+05, .256831E+05, .188512E+05 /
        DATA (UPDI(I),I=833,884) /
     +  .138158E+05, .101136E+05, .739155E+04, .539521E+04,
     +  .393131E+04, .286066E+04, .207772E+04, .150676E+04,
     +  .109051E+04, .787975E+03, .568176E+03, .408969E+03,
     +  .293688E+03, .210533E+03, .149894E+03, .107038E+03,
     +  .762678E+02, .542506E+02, .385109E+02, .272990E+02,
     +  .193380E+02, .136765E+02, .966480E+01, .683137E+01,
     +  .482950E+01, .341891E+01, .242316E+01, .172240E+01,
     +  .122698E+01, .877194E+00, .629053E+00, .452991E+00,
     +  .327289E+00, .237795E+00, .173004E+00, .126601E+00,
     +  .927348E-01, .682375E-01, .503113E-01, .371884E-01,
     +  .275110E-01, .203809E-01, .150931E-01, .111843E-01,
     +  .827642E-02, .612017E-02, .451402E-02, .332359E-02,
     +  .243742E-02, .178212E-02, .129759E-02, .939846E-03 /
        DATA (UPDI(I),I=885,936) /
     +  .676473E-03, .484637E-03, .344715E-03, .243882E-03,
     +  .171268E-03, .119730E-03, .831255E-04, .575064E-04,
     +  .397431E-04, .275781E-04, .191923E-04, .135047E-04,
     +  .960320E-05, .692659E-05, .503651E-05, .368556E-05,
     +  .267980E-05, .191368E-05, .131556E-05, .853359E-06,
     +  .506969E-06, .263608E-06, .109967E-06, .301936E-07,
     +  .280602E-08, .000000E+00, .101376E+07, .762935E+06,
     +  .563700E+06, .416054E+06, .306840E+06, .226029E+06,
     +  .166359E+06, .122288E+06, .898075E+05, .658661E+05,
     +  .482575E+05, .353059E+05, .258011E+05, .188263E+05,
     +  .137200E+05, .998237E+04, .725311E+04, .526089E+04,
     +  .381031E+04, .275447E+04, .198798E+04, .143187E+04,
     +  .102955E+04, .738681E+03, .529007E+03, .377934E+03 /
        DATA (UPDI(I),I=937,988) /
     +  .269514E+03, .190856E+03, .135552E+03, .960561E+02,
     +  .679425E+02, .479565E+02, .337959E+02, .237992E+02,
     +  .167295E+02, .117496E+02, .825263E+01, .579718E+01,
     +  .407723E+01, .287081E+01, .202694E+01, .143425E+01,
     +  .101838E+01, .725327E+00, .518712E+00, .372194E+00,
     +  .268549E+00, .194022E+00, .140994E+00, .102562E+00,
     +  .749408E-01, .548715E-01, .402748E-01, .295882E-01,
     +  .217661E-01, .160081E-01, .117795E-01, .865704E-02,
     +  .635740E-02, .465747E-02, .340617E-02, .248206E-02,
     +  .180338E-02, .130567E-02, .940695E-03, .674146E-03,
     +  .481331E-03, .341769E-03, .241834E-03, .170341E-03,
     +  .119823E-03, .840889E-04, .591077E-04, .417353E-04,
     +  .297516E-04, .213747E-04, .155553E-04, .114353E-04 /
        DATA (UPDI(I),I=989,1040) /
     +  .848316E-05, .630134E-05, .466144E-05, .339409E-05,
     +  .240172E-05, .162513E-05, .103041E-05, .594802E-06,
     +  .298423E-06, .119196E-06, .312505E-07, .296201E-08,
     +  .000000E+00, .139488E+07, .104614E+07, .769800E+06,
     +  .565857E+06, .415598E+06, .304877E+06, .223451E+06,
     +  .163565E+06, .119610E+06, .873485E+05, .637195E+05,
     +  .464153E+05, .337700E+05, .245318E+05, .177976E+05,
     +  .128906E+05, .932320E+04, .673114E+04, .485226E+04,
     +  .349110E+04, .250752E+04, .179731E+04, .128593E+04,
     +  .918029E+03, .654105E+03, .464893E+03, .329794E+03,
     +  .232287E+03, .164084E+03, .115638E+03, .813346E+02,
     +  .570836E+02, .399936E+02, .279981E+02, .195621E+02,
     +  .136551E+02, .953101E+01, .665290E+01, .464888E+01 /
        DATA (UPDI(I),I=1041,1092) /
     +  .325204E+01, .228092E+01, .160327E+01, .113070E+01,
     +  .799908E+00, .568151E+00, .404897E+00, .290153E+00,
     +  .208193E+00, .150257E+00, .108553E+00, .787733E-01,
     +  .572849E-01, .417567E-01, .304684E-01, .222597E-01,
     +  .162606E-01, .118835E-01, .867479E-02, .632747E-02,
     +  .460512E-02, .334589E-02, .242302E-02, .174980E-02,
     +  .125997E-02, .903163E-03, .644550E-03, .458706E-03,
     +  .325151E-03, .230081E-03, .162471E-03, .114880E-03,
     +  .813241E-04, .578749E-04, .415091E-04, .301364E-04,
     +  .220830E-04, .163744E-04, .122342E-04, .917875E-05,
     +  .685929E-05, .507111E-05, .366961E-05, .256524E-05,
     +  .170775E-05, .106053E-05, .596950E-06, .290407E-06,
     +  .111717E-06, .281448E-07, .271037E-08, .000000E+00 /
        DATA (UPDI(I),I=1093,1144) /
     +  .185861E+07, .138912E+07, .101799E+07, .745223E+06,
     +  .545063E+06, .398186E+06, .290609E+06, .211824E+06,
     +  .154237E+06, .112152E+06, .814565E+05, .590759E+05,
     +  .427908E+05, .309463E+05, .223498E+05, .161141E+05,
     +  .116009E+05, .833674E+04, .598138E+04, .428304E+04,
     +  .306151E+04, .218372E+04, .155468E+04, .110434E+04,
     +  .782853E+03, .553525E+03, .390620E+03, .273650E+03,
     +  .192259E+03, .134754E+03, .942505E+02, .657747E+02,
     +  .458158E+02, .318867E+02, .221455E+02, .153647E+02,
     +  .106577E+02, .739281E+01, .513295E+01, .356756E+01,
     +  .248588E+01, .173587E+01, .121608E+01, .854587E+00,
     +  .602912E+00, .426790E+00, .303786E+00, .216504E+00,
     +  .155203E+00, .111372E+00, .802728E-01, .579844E-01 /
        DATA (UPDI(I),I=1145,1196) /
     +  .419811E-01, .304276E-01, .220805E-01, .160228E-01,
     +  .116316E-01, .843519E-02, .611236E-02, .442020E-02,
     +  .319129E-02, .229728E-02, .164941E-02, .118156E-02,
     +  .842952E-03, .599293E-03, .425289E-03, .301066E-03,
     +  .213113E-03, .150886E-03, .107215E-03, .764924E-04,
     +  .550064E-04, .399417E-04, .293892E-04, .218214E-04,
     +  .163612E-04, .123238E-04, .928121E-05, .693296E-05,
     +  .509873E-05, .365568E-05, .252124E-05, .165078E-05,
     +  .100464E-05, .552060E-06, .260876E-06, .968981E-07,
     +  .235376E-07, .229938E-08, .000000E+00, .241510E+07,
     +  .179882E+07, .131282E+07, .957110E+06, .697129E+06,
     +  .507151E+06, .368573E+06, .267513E+06, .193950E+06,
     +  .140421E+06, .101544E+06, .733216E+05, .528739E+05 /
        DATA (UPDI(I),I=1197,1248) /
     +  .380677E+05, .273687E+05, .196430E+05, .140763E+05,
     +  .100686E+05, .718993E+04, .512401E+04, .364499E+04,
     +  .258728E+04, .183290E+04, .129548E+04, .913694E+03,
     +  .642712E+03, .451200E+03, .314398E+03, .219702E+03,
     +  .153152E+03, .106525E+03, .739234E+02, .511962E+02,
     +  .354249E+02, .244567E+02, .168663E+02, .116276E+02,
     +  .801564E+01, .553032E+01, .381932E+01, .264415E+01,
     +  .183445E+01, .127670E+01, .891313E+00, .624665E+00,
     +  .439268E+00, .310601E+00, .219889E+00, .156587E+00,
     +  .111621E+00, .799185E-01, .573485E-01, .412457E-01,
     +  .296988E-01, .214098E-01, .154355E-01, .111323E-01,
     +  .802150E-02, .577564E-02, .415094E-02, .297877E-02,
     +  .213209E-02, .152247E-02, .108540E-02, .771021E-03 /
        DATA (UPDI(I),I=1249,1300) /
     +  .546330E-03, .386811E-03, .273612E-03, .193845E-03,
     +  .137650E-03, .982960E-04, .706397E-04, .512600E-04,
     +  .375950E-04, .279400E-04, .209300E-04, .157926E-04,
     +  .119350E-04, .898443E-05, .668479E-05, .487829E-05,
     +  .345979E-05, .235238E-05, .151439E-05, .903378E-06,
     +  .484868E-06, .222759E-06, .800085E-07, .187861E-07,
     +  .186004E-08, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=1301,1352) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=1353,1404) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .445240E+05, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=1405,1456) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=1457,1508) /
     +  .274822E+05, .214667E+05, .165611E+05, .127651E+05,
     +  .983639E+04, .757251E+04, .582774E+04, .448046E+04,
     +  .344333E+04, .264341E+04, .202843E+04, .155472E+04,
     +  .119103E+04, .911279E+03, .696838E+03, .532141E+03,
     +  .406112E+03, .309481E+03, .235680E+03, .179197E+03,
     +  .136146E+03, .103265E+03, .782619E+02, .592094E+02,
     +  .447570E+02, .337721E+02, .254593E+02, .190862E+02,
     +  .143561E+02, .107793E+02, .809053E+01, .606295E+01,
     +  .454383E+01, .340399E+01, .255033E+01, .190998E+01,
     +  .143296E+01, .107555E+01, .809594E+00, .610155E+00,
     +  .461759E+00, .350123E+00, .266749E+00, .203725E+00,
     +  .156385E+00, .120346E+00, .931657E-01, .721917E-01,
     +  .562646E-01, .438642E-01, .343649E-01, .269436E-01 /
        DATA (UPDI(I),I=1509,1560) /
     +  .211923E-01, .166619E-01, .131284E-01, .103275E-01,
     +  .813627E-02, .639425E-02, .502453E-02, .393315E-02,
     +  .307490E-02, .239029E-02, .185266E-02, .142549E-02,
     +  .109048E-02, .825627E-03, .619886E-03, .458661E-03,
     +  .334526E-03, .238594E-03, .166036E-03, .110928E-03,
     +  .704321E-04, .408458E-04, .199318E-04, .554196E-05,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .666109E+05,
     +  .517979E+05, .397570E+05, .304883E+05, .233724E+05,
     +  .179007E+05, .137047E+05, .104818E+05, .801326E+04,
     +  .611954E+04, .467101E+04, .356127E+04, .271364E+04 /
        DATA (UPDI(I),I=1561,1612) /
     +  .206521E+04, .157072E+04, .119305E+04, .905545E+03,
     +  .686350E+03, .519813E+03, .393081E+03, .296992E+03,
     +  .224024E+03, .168832E+03, .127020E+03, .954714E+02,
     +  .716310E+02, .536885E+02, .400142E+02, .299200E+02,
     +  .223340E+02, .166617E+02, .124110E+02, .924325E+01,
     +  .688168E+01, .512251E+01, .381164E+01, .284047E+01,
     +  .211778E+01, .158300E+01, .118479E+01, .890187E+00,
     +  .670188E+00, .506825E+00, .384275E+00, .292763E+00,
     +  .223640E+00, .171828E+00, .132155E+00, .102221E+00,
     +  .791034E-01, .615043E-01, .478704E-01, .373707E-01,
     +  .291709E-01, .228164E-01, .178243E-01, .139444E-01,
     +  .108872E-01, .850049E-02, .661615E-02, .514529E-02,
     +  .398295E-02, .307713E-02, .236445E-02, .180980E-02 /
        DATA (UPDI(I),I=1613,1664) /
     +  .137530E-02, .104036E-02, .780008E-03, .580845E-03,
     +  .427747E-03, .312259E-03, .224610E-03, .159602E-03,
     +  .111468E-03, .765075E-04, .512128E-04, .335581E-04,
     +  .212400E-04, .130322E-04, .759736E-05, .422143E-05,
     +  .217809E-05, .105520E-05, .436660E-06, .155180E-06,
     +  .431853E-07, .129952E-07, .573049E-08, .357984E-08,
     +  .000000E+00, .000000E+00, .119725E+06, .927128E+05,
     +  .708220E+05, .540522E+05, .412376E+05, .314317E+05,
     +  .239472E+05, .182268E+05, .138660E+05, .105373E+05,
     +  .800326E+04, .607169E+04, .460342E+04, .348594E+04,
     +  .263788E+04, .199352E+04, .150539E+04, .113519E+04,
     +  .855313E+03, .643458E+03, .483624E+03, .362901E+03,
     +  .272045E+03, .203591E+03, .152200E+03, .113577E+03 /
        DATA (UPDI(I),I=1665,1716) /
     +  .846613E+02, .627468E+02, .466541E+02, .346298E+02,
     +  .256852E+02, .190220E+02, .140821E+02, .104219E+02,
     +  .770965E+01, .570124E+01, .422132E+01, .312716E+01,
     +  .232194E+01, .172637E+01, .128822E+01, .963298E+00,
     +  .723387E+00, .544704E+00, .412051E+00, .312582E+00,
     +  .238467E+00, .182129E+00, .139881E+00, .107500E+00,
     +  .829945E-01, .641568E-01, .497351E-01, .385612E-01,
     +  .299531E-01, .232450E-01, .180621E-01, .140108E-01,
     +  .108676E-01, .840612E-02, .649669E-02, .500045E-02,
     +  .384158E-02, .293788E-02, .223881E-02, .169572E-02,
     +  .127977E-02, .958993E-03, .715121E-03, .528973E-03,
     +  .389214E-03, .283727E-03, .205598E-03, .147751E-03,
     +  .105581E-03, .747759E-04, .528468E-04, .370882E-04 /
        DATA (UPDI(I),I=1717,1768) /
     +  .260454E-04, .181827E-04, .127238E-04, .884292E-05,
     +  .611170E-05, .410731E-05, .266633E-05, .162150E-05,
     +  .890873E-06, .407827E-06, .127940E-06, .995848E-08,
     +  .000000E+00, .178154E+06, .146341E+06, .111281E+06,
     +  .845450E+05, .642057E+05, .487138E+05, .369424E+05,
     +  .279874E+05, .211918E+05, .160291E+05, .121168E+05,
     +  .914898E+04, .690338E+04, .520260E+04, .391786E+04,
     +  .294653E+04, .221415E+04, .166149E+04, .124564E+04,
     +  .932464E+03, .697316E+03, .520620E+03, .388283E+03,
     +  .289095E+03, .214997E+03, .159599E+03, .118335E+03,
     +  .872292E+02, .645039E+02, .476178E+02, .351204E+02,
     +  .258633E+02, .190357E+02, .140063E+02, .102990E+02,
     +  .757025E+01, .557032E+01, .410085E+01, .302536E+01 /
        DATA (UPDI(I),I=1769,1820) /
     +  .223497E+01, .165675E+01, .123079E+01, .918049E+00,
     +  .686709E+00, .515950E+00, .388794E+00, .294604E+00,
     +  .223500E+00, .170499E+00, .130163E+00, .998163E-01,
     +  .766566E-01, .590287E-01, .454710E-01, .350871E-01,
     +  .270559E-01, .208861E-01, .160992E-01, .124072E-01,
     +  .953799E-02, .732536E-02, .560508E-02, .428045E-02,
     +  .325593E-02, .246794E-02, .186053E-02, .139813E-02,
     +  .104421E-02, .776764E-03, .574063E-03, .422653E-03,
     +  .309076E-03, .225259E-03, .163368E-03, .118296E-03,
     +  .853116E-04, .616445E-04, .444600E-04, .321670E-04,
     +  .232008E-04, .167411E-04, .119640E-04, .843045E-05,
     +  .574576E-05, .374351E-05, .226399E-05, .122303E-05,
     +  .544278E-06, .163805E-06, .137529E-07, .000000E+00 /
        DATA (UPDI(I),I=1821,1872) /
     +  .299483E+06, .229969E+06, .173975E+06, .131501E+06,
     +  .993481E+05, .749871E+05, .565687E+05, .426320E+05,
     +  .321093E+05, .241583E+05, .181637E+05, .136413E+05,
     +  .102370E+05, .767302E+04, .574635E+04, .429790E+04,
     +  .321155E+04, .239649E+04, .178648E+04, .132975E+04,
     +  .988667E+03, .733891E+03, .544123E+03, .402746E+03,
     +  .297721E+03, .219676E+03, .161881E+03, .118583E+03,
     +  .871365E+02, .639201E+02, .468377E+02, .342682E+02,
     +  .250522E+02, .183098E+02, .133698E+02, .975924E+01,
     +  .712936E+01, .521105E+01, .381590E+01, .279825E+01,
     +  .205857E+01, .151787E+01, .112344E+01, .833994E+00,
     +  .621751E+00, .464968E+00, .349611E+00, .263216E+00,
     +  .199260E+00, .150981E+00, .114896E+00, .875853E-01 /
        DATA (UPDI(I),I=1873,1924) /
     +  .669320E-01, .511801E-01, .391928E-01, .299999E-01,
     +  .229811E-01, .175806E-01, .134420E-01, .102525E-01,
     +  .780831E-02, .592444E-02, .448268E-02, .337782E-02,
     +  .253312E-02, .188785E-02, .140006E-02, .103031E-02,
     +  .753218E-03, .545532E-03, .391979E-03, .278410E-03,
     +  .195815E-03, .136000E-03, .934791E-04, .632905E-04,
     +  .424214E-04, .280296E-04, .183744E-04, .119001E-04,
     +  .769271E-05, .494694E-05, .318524E-05, .201117E-05,
     +  .124368E-05, .729894E-06, .392286E-06, .176424E-06,
     +  .541431E-07, .402000E-08, .000000E+00, .445269E+06,
     +  .340432E+06, .256247E+06, .192712E+06, .144852E+06,
     +  .108776E+06, .816356E+05, .612059E+05, .458583E+05,
     +  .343225E+05, .256696E+05, .191762E+05, .143137E+05 /
        DATA (UPDI(I),I=1925,1976) /
     +  .106711E+05, .794822E+04, .591242E+04, .439364E+04,
     +  .326047E+04, .241694E+04, .178892E+04, .132249E+04,
     +  .976086E+03, .719493E+03, .529450E+03, .389065E+03,
     +  .285359E+03, .209011E+03, .152160E+03, .111113E+03,
     +  .809989E+02, .589721E+02, .428685E+02, .311322E+02,
     +  .226027E+02, .163917E+02, .118830E+02, .861967E+01,
     +  .625586E+01, .454779E+01, .331081E+01, .241760E+01,
     +  .176948E+01, .129982E+01, .957750E+00, .708604E+00,
     +  .525961E+00, .392489E+00, .293281E+00, .220350E+00,
     +  .165719E+00, .125163E+00, .947081E-01, .718320E-01,
     +  .545240E-01, .414413E-01, .314896E-01, .239420E-01,
     +  .181816E-01, .137978E-01, .104472E-01, .789742E-02,
     +  .594900E-02, .446826E-02, .334377E-02, .248999E-02 /
        DATA (UPDI(I),I=1977,2028) /
     +  .184353E-02, .135849E-02, .994086E-03, .723082E-03,
     +  .521746E-03, .373963E-03, .265572E-03, .187211E-03,
     +  .130821E-03, .909217E-04, .626441E-04, .430194E-04,
     +  .293981E-04, .200936E-04, .136985E-04, .935801E-05,
     +  .636737E-05, .429473E-05, .281744E-05, .177414E-05,
     +  .103933E-05, .543180E-06, .231539E-06, .656326E-07,
     +  .549696E-08, .000000E+00, .634880E+06, .483348E+06,
     +  .362028E+06, .270921E+06, .202623E+06, .151398E+06,
     +  .113050E+06, .843291E+05, .628600E+05, .468057E+05,
     +  .348240E+05, .258795E+05, .192154E+05, .142497E+05,
     +  .105570E+05, .781084E+04, .577289E+04, .426063E+04,
     +  .314090E+04, .231187E+04, .169949E+04, .124724E+04,
     +  .914098E+03, .668770E+03, .488565E+03, .356215E+03 /
        DATA (UPDI(I),I=2029,2080) /
     +  .259347E+03, .187645E+03, .136183E+03, .986586E+02,
     +  .713746E+02, .515531E+02, .371946E+02, .268268E+02,
     +  .193240E+02, .139136E+02, .100225E+02, .722323E+01,
     +  .521361E+01, .376840E+01, .273173E+01, .198489E+01,
     +  .144729E+01, .105860E+01, .777403E+00, .572782E+00,
     +  .424269E+00, .314689E+00, .234692E+00, .175214E+00,
     +  .131359E+00, .986755E-01, .742915E-01, .559838E-01,
     +  .422396E-01, .318657E-01, .240511E-01, .181330E-01,
     +  .136607E-01, .102694E-01, .770671E-02, .576446E-02,
     +  .429880E-02, .319524E-02, .236318E-02, .173846E-02,
     +  .127318E-02, .926572E-03, .670725E-03, .482214E-03,
     +  .344808E-03, .244797E-03, .172910E-03, .121460E-03,
     +  .851955E-04, .595169E-04, .416243E-04, .291190E-04 /
        DATA (UPDI(I),I=2081,2132) /
     +  .204394E-04, .143482E-04, .100775E-04, .702679E-05,
     +  .481846E-05, .319459E-05, .201311E-05, .116989E-05,
     +  .599859E-06, .248241E-06, .677594E-07, .597734E-08,
     +  .000000E+00, .877210E+06, .665077E+06, .495732E+06,
     +  .369177E+06, .274757E+06, .204285E+06, .151783E+06,
     +  .112657E+06, .835528E+05, .618985E+05, .458177E+05,
     +  .338744E+05, .250210E+05, .184581E+05, .136026E+05,
     +  .100108E+05, .735916E+04, .540205E+04, .396060E+04,
     +  .289919E+04, .211937E+04, .154667E+04, .112712E+04,
     +  .819899E+03, .595493E+03, .431625E+03, .312386E+03,
     +  .224644E+03, .162041E+03, .116669E+03, .838752E+02,
     +  .601988E+02, .431515E+02, .309207E+02, .221246E+02,
     +  .158231E+02, .113199E+02, .810194E+01, .580677E+01 /
        DATA (UPDI(I),I=2133,2184) /
     +  .416752E+01, .299943E+01, .216381E+01, .156629E+01,
     +  .113737E+01, .829162E+00, .606492E+00, .445977E+00,
     +  .328388E+00, .243137E+00, .180211E+00, .134128E+00,
     +  .100036E+00, .747729E-01, .559460E-01, .419085E-01,
     +  .313926E-01, .235244E-01, .176106E-01, .131727E-01,
     +  .983302E-02, .732716E-02, .544287E-02, .403097E-02,
     +  .297650E-02, .218700E-02, .159899E-02, .116422E-02,
     +  .842933E-03, .607485E-03, .435335E-03, .310675E-03,
     +  .220565E-03, .156131E-03, .110213E-03, .779352E-04,
     +  .550699E-04, .390604E-04, .277833E-04, .198389E-04,
     +  .141625E-04, .100821E-04, .709616E-05, .488052E-05,
     +  .322963E-05, .201783E-05, .115551E-05, .579349E-06,
     +  .232528E-06, .612820E-07, .557419E-08, .000000E+00 /
        DATA (UPDI(I),I=2185,2236) /
     +  .118186E+07, .892421E+06, .662022E+06, .490661E+06,
     +  .363409E+06, .268890E+06, .198808E+06, .146834E+06,
     +  .108359E+06, .798748E+05, .588255E+05, .432707E+05,
     +  .317976E+05, .233362E+05, .171078E+05, .125244E+05,
     +  .915811E+04, .668667E+04, .487595E+04, .354981E+04,
     +  .258069E+04, .187288E+04, .135716E+04, .981639E+03,
     +  .708864E+03, .510805E+03, .367519E+03, .262696E+03,
     +  .188345E+03, .134781E+03, .962946E+02, .686793E+02,
     +  .489156E+02, .348254E+02, .247545E+02, .175863E+02,
     +  .124962E+02, .888291E+01, .632243E+01, .450601E+01,
     +  .322019E+01, .230667E+01, .165779E+01, .119524E+01,
     +  .865106E+00, .628268E+00, .458692E+00, .335336E+00,
     +  .246516E+00, .181419E+00, .134068E+00, .992874E-01 /
        DATA (UPDI(I),I=2237,2288) /
     +  .736886E-01, .547491E-01, .407234E-01, .302929E-01,
     +  .225411E-01, .167575E-01, .124472E-01, .922774E-02,
     +  .682887E-02, .503877E-02, .370680E-02, .271981E-02,
     +  .198591E-02, .144353E-02, .104533E-02, .753295E-03,
     +  .540764E-03, .386476E-03, .275425E-03, .195640E-03,
     +  .138843E-03, .984958E-04, .701728E-04, .500730E-04,
     +  .359176E-04, .258597E-04, .186743E-04, .134593E-04,
     +  .963798E-05, .679610E-05, .465835E-05, .305966E-05,
     +  .188755E-05, .106192E-05, .519726E-06, .202145E-06,
     +  .514618E-07, .478955E-08, .000000E+00, .155890E+07,
     +  .117245E+07, .865686E+06, .638594E+06, .470733E+06,
     +  .346639E+06, .255056E+06, .187465E+06, .137666E+06,
     +  .100978E+06, .739974E+05, .541582E+05, .395969E+05 /
        DATA (UPDI(I),I=2289,2340) /
     +  .289120E+05, .210864E+05, .153570E+05, .111705E+05,
     +  .811292E+04, .588437E+04, .426089E+04, .308078E+04,
     +  .222352E+04, .160229E+04, .115243E+04, .827457E+03,
     +  .592824E+03, .424049E+03, .301293E+03, .214728E+03,
     +  .152734E+03, .108451E+03, .768701E+02, .544035E+02,
     +  .384860E+02, .271788E+02, .191819E+02, .135391E+02,
     +  .955952E+01, .675759E+01, .478310E+01, .339449E+01,
     +  .241462E+01, .172318E+01, .123368E+01, .886637E+00,
     +  .639380E+00, .463529E+00, .336488E+00, .245633E+00,
     +  .179507E+00, .131729E+00, .968798E-01, .714020E-01,
     +  .526852E-01, .389177E-01, .287519E-01, .212475E-01,
     +  .156884E-01, .115738E-01, .852275E-02, .626504E-02,
     +  .459272E-02, .335698E-02, .244817E-02, .177699E-02 /
        DATA (UPDI(I),I=2341,2392) /
     +  .128463E-02, .925625E-03, .664233E-03, .475244E-03,
     +  .338944E-03, .241378E-03, .171647E-03, .122185E-03,
     +  .871169E-04, .625012E-04, .449776E-04, .325529E-04,
     +  .236430E-04, .171949E-04, .124524E-04, .892686E-05,
     +  .627838E-05, .427349E-05, .277743E-05, .168812E-05,
     +  .931555E-06, .444654E-06, .167569E-06, .412462E-07,
     +  .391310E-08, .000000E+00, .201862E+07, .151231E+07,
     +  .111148E+07, .816126E+06, .598790E+06, .438868E+06,
     +  .321387E+06, .235090E+06, .171808E+06, .125410E+06,
     +  .914501E+05, .666013E+05, .484514E+05, .351995E+05,
     +  .255416E+05, .185065E+05, .133918E+05, .967547E+04,
     +  .698068E+04, .502786E+04, .361575E+04, .259547E+04,
     +  .186004E+04, .133038E+04, .949858E+03, .676638E+03 /
        DATA (UPDI(I),I=2393,2444) /
     +  .481221E+03, .339896E+03, .240812E+03, .170266E+03,
     +  .120168E+03, .846534E+02, .595386E+02, .418541E+02,
     +  .293681E+02, .205930E+02, .144396E+02, .101277E+02,
     +  .711120E+01, .499936E+01, .352375E+01, .248940E+01,
     +  .176428E+01, .125440E+01, .895278E+00, .641147E+00,
     +  .461605E+00, .332770E+00, .241251E+00, .175093E+00,
     +  .127608E+00, .932099E-01, .682284E-01, .500030E-01,
     +  .366861E-01, .269216E-01, .197610E-01, .144938E-01,
     +  .106215E-01, .777039E-02, .567501E-02, .413408E-02,
     +  .300314E-02, .217745E-02, .157170E-02, .113048E-02,
     +  .810888E-03, .579771E-03, .413691E-03, .294625E-03,
     +  .209807E-03, .149450E-03, .106750E-03, .764986E-04,
     +  .552374E-04, .400365E-04, .291783E-04, .213189E-04 /
        DATA (UPDI(I),I=2445,2496) /
     +  .155647E-04, .112865E-04, .807364E-05, .564709E-05,
     +  .380821E-05, .244439E-05, .146175E-05, .790439E-06,
     +  .367794E-06, .134316E-06, .320053E-07, .308843E-08,
     +  .000000E+00, .257118E+07, .191896E+07, .140397E+07,
     +  .102621E+07, .749475E+06, .546774E+06, .398539E+06,
     +  .290158E+06, .211045E+06, .153315E+06, .111259E+06,
     +  .806340E+05, .583716E+05, .421965E+05, .304655E+05,
     +  .219629E+05, .158118E+05, .113652E+05, .815714E+04,
     +  .584439E+04, .418065E+04, .298490E+04, .212752E+04,
     +  .151337E+04, .107451E+04, .761127E+03, .538241E+03,
     +  .377958E+03, .266221E+03, .187125E+03, .131278E+03,
     +  .919222E+02, .642540E+02, .448895E+02, .312993E+02,
     +  .218074E+02, .151922E+02, .105862E+02, .738399E+01 /
        DATA (UPDI(I),I=2497,2548) /
     +  .515662E+01, .361020E+01, .253330E+01, .178320E+01,
     +  .125925E+01, .892625E+00, .634901E+00, .454009E+00,
     +  .325066E+00, .234074E+00, .168736E+00, .122146E+00,
     +  .886230E-01, .644361E-01, .469100E-01, .341882E-01,
     +  .249235E-01, .181739E-01, .132430E-01, .964209E-02,
     +  .700910E-02, .508695E-02, .368331E-02, .265997E-02,
     +  .191806E-02, .137728E-02, .986071E-03, .704477E-03,
     +  .502134E-03, .357550E-03, .254446E-03, .181301E-03,
     +  .129430E-03, .927918E-04, .668252E-04, .485309E-04,
     +  .353825E-04, .259170E-04, .190043E-04, .138926E-04,
     +  .100604E-04, .716401E-05, .497309E-05, .331737E-05,
     +  .210025E-05, .123460E-05, .653787E-06, .296474E-06,
     +  .104957E-06, .242434E-07, .237609E-08, .000000E+00 /
        DATA (UPDI(I),I=2549,2600) /
     +  .298585E+05, .103251E+05, .824434E+04, .658281E+04,
     +  .525616E+04, .419690E+04, .335114E+04, .267583E+04,
     +  .213664E+04, .170611E+04, .136236E+04, .108789E+04,
     +  .868738E+03, .693753E+03, .554035E+03, .442474E+03,
     +  .353397E+03, .282271E+03, .225479E+03, .180131E+03,
     +  .143920E+03, .115006E+03, .919173E+02, .734799E+02,
     +  .587562E+02, .469979E+02, .376071E+02, .300118E+02,
     +  .240420E+02, .192723E+02, .154610E+02, .124148E+02,
     +  .997947E+01, .803713E+01, .647891E+01, .523197E+01,
     +  .423328E+01, .343252E+01, .278954E+01, .227210E+01,
     +  .185537E+01, .151832E+01, .124504E+01, .102273E+01,
     +  .841275E+00, .692672E+00, .570996E+00, .470090E+00,
     +  .387221E+00, .318192E+00, .261188E+00, .213892E+00 /
        DATA (UPDI(I),I=2601,2652) /
     +  .174653E+00, .142119E+00, .115182E+00, .929253E-01,
     +  .745879E-01, .595321E-01, .472222E-01, .372058E-01,
     +  .290998E-01, .225793E-01, .173692E-01, .132535E-01,
     +  .999459E-02, .745438E-02, .549350E-02, .399582E-02,
     +  .286519E-02, .202252E-02, .140328E-02, .955270E-03,
     +  .636530E-03, .413942E-03, .263111E-03, .161837E-03,
     +  .962361E-04, .550437E-04, .300925E-04, .156012E-04,
     +  .759272E-05, .342772E-05, .140178E-05, .510184E-06,
     +  .158649E-06, .398001E-07, .731586E-08, .822579E-09,
     +  .377199E-10, .192902E-12, .000000E+00, .349870E+05,
     +  .261581E+05, .206178E+05, .162429E+05, .127976E+05,
     +  .100782E+05, .793727E+04, .624796E+04, .491856E+04,
     +  .386995E+04, .304510E+04, .239474E+04, .188339E+04 /
        DATA (UPDI(I),I=2653,2704) /
     +  .148038E+04, .116368E+04, .914192E+03, .718243E+03,
     +  .563962E+03, .442858E+03, .347560E+03, .272804E+03,
     +  .214010E+03, .167920E+03, .131693E+03, .103311E+03,
     +  .810191E+02, .635598E+02, .496914E+02, .390097E+02,
     +  .306256E+02, .240676E+02, .189209E+02, .148959E+02,
     +  .117444E+02, .927245E+01, .733127E+01, .581143E+01,
     +  .461569E+01, .367717E+01, .293600E+01, .235237E+01,
     +  .188900E+01, .152162E+01, .122811E+01, .993688E+00,
     +  .805029E+00, .653740E+00, .530395E+00, .431042E+00,
     +  .349599E+00, .283573E+00, .229582E+00, .185539E+00,
     +  .149493E+00, .120104E+00, .960950E-01, .765869E-01,
     +  .607288E-01, .479129E-01, .375692E-01, .292798E-01,
     +  .226528E-01, .173964E-01, .132571E-01, .999907E-02 /
        DATA (UPDI(I),I=2705,2756) /
     +  .746245E-02, .550860E-02, .401291E-02, .288159E-02,
     +  .203319E-02, .140598E-02, .946494E-03, .616874E-03,
     +  .383044E-03, .222011E-03, .112872E-03, .418042E-04,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .600308E+05, .473692E+05,
     +  .369743E+05, .288461E+05, .225044E+05, .175480E+05,
     +  .136828E+05, .106633E+05, .830971E+04, .647199E+04,
     +  .504038E+04, .392314E+04, .305332E+04, .237490E+04,
     +  .184707E+04, .143564E+04, .111576E+04, .866605E+03,
     +  .673036E+03, .522368E+03, .405412E+03, .314446E+03,
     +  .243895E+03, .189067E+03, .146579E+03, .113588E+03 /
        DATA (UPDI(I),I=2757,2808) /
     +  .880386E+02, .679827E+02, .527122E+02, .408699E+02,
     +  .317143E+02, .246169E+02, .191321E+02, .148909E+02,
     +  .116045E+02, .905632E+01, .708582E+01, .555535E+01,
     +  .436906E+01, .344427E+01, .272520E+01, .216162E+01,
     +  .172039E+01, .137238E+01, .109789E+01, .879730E+00,
     +  .706924E+00, .567729E+00, .456928E+00, .367154E+00,
     +  .295186E+00, .236975E+00, .189985E+00, .151912E+00,
     +  .121168E+00, .962843E-01, .762445E-01, .600900E-01,
     +  .471380E-01, .367625E-01, .285066E-01, .219498E-01,
     +  .167803E-01, .127323E-01, .956374E-02, .710850E-02,
     +  .522591E-02, .379043E-02, .270874E-02, .190024E-02,
     +  .130449E-02, .869567E-03, .558814E-03, .339484E-03,
     +  .189538E-03, .891681E-04, .253296E-04, .000000E+00 /
        DATA (UPDI(I),I=2809,2860) /
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .988646E+05, .774618E+05, .599797E+05,
     +  .464182E+05, .359197E+05, .277804E+05, .214832E+05,
     +  .166038E+05, .128310E+05, .990946E+04, .765201E+04,
     +  .590510E+04, .455622E+04, .351316E+04, .270838E+04,
     +  .208654E+04, .160716E+04, .123706E+04, .952016E+03,
     +  .732134E+03, .562939E+03, .432546E+03, .332315E+03,
     +  .255149E+03, .195890E+03, .150311E+03, .115342E+03,
     +  .881588E+02, .676580E+02, .519174E+02, .398648E+02,
     +  .306165E+02, .235395E+02, .181240E+02, .139695E+02,
     +  .107825E+02, .834316E+01, .646900E+01, .503142E+01 /
        DATA (UPDI(I),I=2861,2912) /
     +  .392300E+01, .307022E+01, .240922E+01, .189721E+01,
     +  .149782E+01, .118615E+01, .941134E+00, .749093E+00,
     +  .596042E+00, .475461E+00, .378769E+00, .302016E+00,
     +  .240546E+00, .191385E+00, .151922E+00, .120332E+00,
     +  .949852E-01, .747395E-01, .585500E-01, .456681E-01,
     +  .354251E-01, .273318E-01, .209477E-01, .159459E-01,
     +  .120535E-01, .902468E-02, .669074E-02, .491058E-02,
     +  .355976E-02, .254650E-02, .179218E-02, .123833E-02,
     +  .835302E-03, .547766E-03, .345062E-03, .206341E-03,
     +  .113164E-03, .535206E-04, .212441E-04, .130322E-04,
     +  .759736E-05, .422143E-05, .217809E-05, .105520E-05,
     +  .436660E-06, .155180E-06, .431853E-07, .129952E-07,
     +  .573049E-08, .357984E-08, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=2913,2964) /
     +  .151698E+06, .118150E+06, .908640E+05, .698387E+05,
     +  .536703E+05, .412204E+05, .316530E+05, .242910E+05,
     +  .186375E+05, .142905E+05, .109549E+05, .839213E+04,
     +  .642728E+04, .491897E+04, .376359E+04, .287748E+04,
     +  .219936E+04, .167980E+04, .128260E+04, .978580E+03,
     +  .746405E+03, .568881E+03, .433474E+03, .330063E+03,
     +  .251276E+03, .191167E+03, .145427E+03, .110168E+03,
     +  .837974E+02, .637243E+02, .484830E+02, .368912E+02,
     +  .280968E+02, .214280E+02, .163569E+02, .125029E+02,
     +  .957951E+01, .735478E+01, .566394E+01, .437285E+01,
     +  .338880E+01, .263353E+01, .205399E+01, .160638E+01,
     +  .126039E+01, .991037E+00, .781913E+00, .616841E+00,
     +  .487990E+00, .385637E+00, .305112E+00, .241202E+00 /
        DATA (UPDI(I),I=2965,3016) /
     +  .190523E+00, .150190E+00, .118162E+00, .926734E-01,
     +  .724686E-01, .564345E-01, .437670E-01, .337664E-01,
     +  .259172E-01, .197667E-01, .149772E-01, .112733E-01,
     +  .840770E-02, .621218E-02, .454652E-02, .328915E-02,
     +  .235058E-02, .165509E-02, .114656E-02, .778040E-03,
     +  .515894E-03, .331568E-03, .205617E-03, .120970E-03,
     +  .667729E-04, .370927E-04, .260454E-04, .181827E-04,
     +  .127238E-04, .884292E-05, .611170E-05, .410731E-05,
     +  .266633E-05, .162150E-05, .890873E-06, .407827E-06,
     +  .127940E-06, .995848E-08, .000000E+00, .168989E+06,
     +  .171562E+06, .131149E+06, .100194E+06, .765285E+05,
     +  .584151E+05, .445783E+05, .339961E+05, .259190E+05,
     +  .197470E+05, .150402E+05, .114469E+05, .870923E+04 /
        DATA (UPDI(I),I=3017,3068) /
     +  .662126E+04, .503206E+04, .382129E+04, .290075E+04,
     +  .220020E+04, .166820E+04, .126379E+04, .957037E+03,
     +  .724139E+03, .547724E+03, .413962E+03, .312769E+03,
     +  .236130E+03, .178237E+03, .133947E+03, .101068E+03,
     +  .762358E+02, .575230E+02, .434043E+02, .327757E+02,
     +  .247819E+02, .187516E+02, .142070E+02, .107880E+02,
     +  .820847E+01, .626433E+01, .479288E+01, .368088E+01,
     +  .283504E+01, .219157E+01, .169908E+01, .132167E+01,
     +  .103050E+01, .806382E+00, .631034E+00, .495331E+00,
     +  .388468E+00, .305089E+00, .239469E+00, .187845E+00,
     +  .147090E+00, .114971E+00, .896061E-01, .696441E-01,
     +  .539174E-01, .415776E-01, .319025E-01, .243577E-01,
     +  .184842E-01, .139377E-01, .104434E-01, .775553E-02 /
        DATA (UPDI(I),I=3069,3120) /
     +  .570800E-02, .416301E-02, .300302E-02, .214153E-02,
     +  .150631E-02, .104399E-02, .710494E-03, .474152E-03,
     +  .308526E-03, .195669E-03, .119890E-03, .714605E-04,
     +  .444642E-04, .321670E-04, .232008E-04, .167411E-04,
     +  .119640E-04, .843045E-05, .574576E-05, .374351E-05,
     +  .226399E-05, .122303E-05, .544278E-06, .163805E-06,
     +  .137529E-07, .000000E+00, .330876E+06, .254940E+06,
     +  .193645E+06, .146992E+06, .111545E+06, .845879E+05,
     +  .641245E+05, .485769E+05, .367854E+05, .278355E+05,
     +  .210547E+05, .159133E+05, .120221E+05, .907515E+04,
     +  .684731E+04, .516208E+04, .388966E+04, .292840E+04,
     +  .220357E+04, .165668E+04, .124485E+04, .934565E+03,
     +  .701263E+03, .525753E+03, .393982E+03, .294978E+03 /
        DATA (UPDI(I),I=3121,3172) /
     +  .220779E+03, .164482E+03, .123027E+03, .919827E+02,
     +  .687798E+02, .514264E+02, .384721E+02, .288168E+02,
     +  .215958E+02, .162043E+02, .121840E+02, .917970E+01,
     +  .693594E+01, .525422E+01, .399510E+01, .304681E+01,
     +  .233215E+01, .179063E+01, .137958E+01, .106560E+01,
     +  .826214E+00, .640747E+00, .498559E+00, .387667E+00,
     +  .301929E+00, .235084E+00, .182954E+00, .142171E+00,
     +  .110298E+00, .853456E-01, .658633E-01, .506402E-01,
     +  .387860E-01, .295640E-01, .224240E-01, .169069E-01,
     +  .126649E-01, .942807E-02, .695409E-02, .508241E-02,
     +  .367906E-02, .263254E-02, .186038E-02, .129505E-02,
     +  .886532E-03, .594284E-03, .389011E-03, .246759E-03,
     +  .151204E-03, .882201E-04, .491399E-04, .280331E-04 /
        DATA (UPDI(I),I=3173,3224) /
     +  .183744E-04, .119001E-04, .769271E-05, .494694E-05,
     +  .318524E-05, .201117E-05, .124368E-05, .729894E-06,
     +  .392286E-06, .176424E-06, .541431E-07, .402000E-08,
     +  .000000E+00, .476356E+06, .365157E+06, .275720E+06,
     +  .208046E+06, .156924E+06, .118277E+06, .891122E+05,
     +  .670876E+05, .504841E+05, .379595E+05, .285284E+05,
     +  .214226E+05, .160783E+05, .120568E+05, .903605E+04,
     +  .676609E+04, .506332E+04, .378562E+04, .282859E+04,
     +  .211149E+04, .157516E+04, .117392E+04, .874337E+03,
     +  .650597E+03, .483815E+03, .359431E+03, .266904E+03,
     +  .197237E+03, .146328E+03, .108504E+03, .804518E+02,
     +  .596421E+02, .442307E+02, .328402E+02, .243906E+02,
     +  .181362E+02, .135116E+02, .100861E+02, .754979E+01 /
        DATA (UPDI(I),I=3225,3276) /
     +  .566598E+01, .426787E+01, .322459E+01, .244531E+01,
     +  .186031E+01, .142022E+01, .108719E+01, .835545E+00,
     +  .642371E+00, .495595E+00, .382167E+00, .295228E+00,
     +  .228051E+00, .176103E+00, .135815E+00, .104585E+00,
     +  .803409E-01, .615605E-01, .470046E-01, .357561E-01,
     +  .270737E-01, .204009E-01, .152837E-01, .113769E-01,
     +  .841799E-02, .617185E-02, .448478E-02, .322842E-02,
     +  .229815E-02, .161639E-02, .112074E-02, .764969E-03,
     +  .512248E-03, .335860E-03, .214452E-03, .133431E-03,
     +  .803060E-04, .474924E-04, .294011E-04, .200936E-04,
     +  .136985E-04, .935801E-05, .636737E-05, .429473E-05,
     +  .281744E-05, .177414E-05, .103933E-05, .543180E-06,
     +  .231539E-06, .656326E-07, .549696E-08, .000000E+00 /
        DATA (UPDI(I),I=3277,3328) /
     +  .665663E+06, .507828E+06, .381307E+06, .286100E+06,
     +  .214571E+06, .160801E+06, .120448E+06, .901481E+05,
     +  .674357E+05, .504028E+05, .376509E+05, .281004E+05,
     +  .209597E+05, .156191E+05, .116318E+05, .865405E+04,
     +  .643417E+04, .477904E+04, .354714E+04, .263008E+04,
     +  .194864E+04, .144224E+04, .106664E+04, .788055E+03,
     +  .581800E+03, .429051E+03, .316231E+03, .231896E+03,
     +  .170718E+03, .125602E+03, .923890E+02, .679398E+02,
     +  .499698E+02, .367933E+02, .270949E+02, .199746E+02,
     +  .147518E+02, .109156E+02, .809837E+01, .602381E+01,
     +  .449700E+01, .336759E+01, .253109E+01, .190868E+01,
     +  .144443E+01, .109621E+01, .835346E+00, .636838E+00,
     +  .487299E+00, .372738E+00, .285664E+00, .218956E+00 /
        DATA (UPDI(I),I=3329,3380) /
     +  .167792E+00, .128443E+00, .981833E-01, .748837E-01,
     +  .569737E-01, .432017E-01, .326391E-01, .245487E-01,
     +  .183762E-01, .136782E-01, .101167E-01, .743942E-02,
     +  .542104E-02, .391600E-02, .280294E-02, .198469E-02,
     +  .138915E-02, .959275E-03, .652818E-03, .436671E-03,
     +  .286791E-03, .184306E-03, .116330E-03, .719577E-04,
     +  .445892E-04, .291213E-04, .204394E-04, .143482E-04,
     +  .100775E-04, .702679E-05, .481846E-05, .319459E-05,
     +  .201311E-05, .116989E-05, .599859E-06, .248241E-06,
     +  .677594E-07, .597734E-08, .000000E+00, .907691E+06,
     +  .689314E+06, .514818E+06, .384202E+06, .286582E+06,
     +  .213590E+06, .159103E+06, .118414E+06, .880788E+05,
     +  .654559E+05, .486129E+05, .360699E+05, .267449E+05 /
        DATA (UPDI(I),I=3381,3432) /
     +  .198112E+05, .146644E+05, .108436E+05, .801207E+04,
     +  .591372E+04, .436142E+04, .321304E+04, .236501E+04,
     +  .173883E+04, .127736E+04, .937315E+03, .687207E+03,
     +  .503220E+03, .368253E+03, .268064E+03, .195892E+03,
     +  .143047E+03, .104421E+03, .761957E+02, .556014E+02,
     +  .406149E+02, .296668E+02, .216915E+02, .158866E+02,
     +  .116569E+02, .857514E+01, .632428E+01, .468103E+01,
     +  .347556E+01, .258998E+01, .193658E+01, .145322E+01,
     +  .109372E+01, .826611E+00, .625054E+00, .474471E+00,
     +  .360068E+00, .273818E+00, .208285E+00, .158420E+00,
     +  .120379E+00, .913533E-01, .691803E-01, .522652E-01,
     +  .393585E-01, .295332E-01, .220643E-01, .164073E-01,
     +  .121337E-01, .891681E-02, .651631E-02, .471919E-02 /
        DATA (UPDI(I),I=3433,3484) /
     +  .338882E-02, .241179E-02, .169869E-02, .118330E-02,
     +  .813911E-03, .552377E-03, .369197E-03, .242984E-03,
     +  .157208E-03, .100614E-03, .637848E-04, .410204E-04,
     +  .277851E-04, .198389E-04, .141625E-04, .100821E-04,
     +  .709616E-05, .488052E-05, .322963E-05, .201783E-05,
     +  .115551E-05, .579349E-06, .232528E-06, .612820E-07,
     +  .557419E-08, .000000E+00, .121204E+07, .916417E+06,
     +  .680916E+06, .505533E+06, .375113E+06, .278098E+06,
     +  .206050E+06, .152528E+06, .112835E+06, .833926E+05,
     +  .615890E+05, .454409E+05, .335013E+05, .246731E+05,
     +  .181566E+05, .133467E+05, .980264E+04, .719161E+04,
     +  .527135E+04, .385929E+04, .282280E+04, .206218E+04,
     +  .150509E+04, .109718E+04, .799046E+03, .581150E+03 /
        DATA (UPDI(I),I=3485,3536) /
     +  .422363E+03, .305278E+03, .221506E+03, .160589E+03,
     +  .116368E+03, .842834E+02, .610381E+02, .442457E+02,
     +  .320672E+02, .232619E+02, .169006E+02, .123010E+02,
     +  .897537E+01, .656535E+01, .481953E+01, .354901E+01,
     +  .262297E+01, .194523E+01, .144783E+01, .108088E+01,
     +  .810404E+00, .607948E+00, .457900E+00, .344819E+00,
     +  .260235E+00, .196477E+00, .148340E+00, .111904E+00,
     +  .843150E-01, .634018E-01, .475665E-01, .355750E-01,
     +  .265135E-01, .196763E-01, .145352E-01, .106797E-01,
     +  .779808E-02, .566343E-02, .407643E-02, .291006E-02,
     +  .205945E-02, .144305E-02, .100064E-02, .685776E-03,
     +  .464342E-03, .310285E-03, .204779E-03, .133461E-03,
     +  .866018E-04, .561449E-04, .372096E-04, .258611E-04 /
        DATA (UPDI(I),I=3537,3588) /
     +  .186743E-04, .134593E-04, .963798E-05, .679610E-05,
     +  .465835E-05, .305966E-05, .188755E-05, .106192E-05,
     +  .519726E-06, .202145E-06, .514618E-07, .478955E-08,
     +  .000000E+00, .158878E+07, .119621E+07, .884388E+06,
     +  .653313E+06, .482314E+06, .355749E+06, .262221E+06,
     +  .193098E+06, .142093E+06, .104456E+06, .767293E+05,
     +  .563032E+05, .412803E+05, .302328E+05, .221221E+05,
     +  .161689E+05, .118066E+05, .861112E+04, .627434E+04,
     +  .456599E+04, .331934E+04, .240995E+04, .174789E+04,
     +  .126607E+04, .916098E+03, .661909E+03, .477862E+03,
     +  .343029E+03, .247192E+03, .177966E+03, .128048E+03,
     +  .920785E+02, .661965E+02, .476311E+02, .342613E+02,
     +  .246647E+02, .177816E+02, .128416E+02, .929623E+01 /
        DATA (UPDI(I),I=3589,3640) /
     +  .674635E+01, .491310E+01, .358918E+01, .263155E+01,
     +  .193613E+01, .142969E+01, .105896E+01, .787824E+00,
     +  .586445E+00, .438353E+00, .327612E+00, .245412E+00,
     +  .183930E+00, .137861E+00, .103258E+00, .772513E-01,
     +  .576865E-01, .429806E-01, .319270E-01, .236348E-01,
     +  .174238E-01, .127870E-01, .933492E-02, .677288E-02,
     +  .488866E-02, .349756E-02, .248244E-02, .174727E-02,
     +  .121828E-02, .841203E-03, .574672E-03, .388443E-03,
     +  .259695E-03, .172008E-03, .113000E-03, .743374E-04,
     +  .491857E-04, .334021E-04, .236441E-04, .171949E-04,
     +  .124524E-04, .892686E-05, .627838E-05, .427349E-05,
     +  .277743E-05, .168812E-05, .931555E-06, .444654E-06,
     +  .167569E-06, .412462E-07, .391310E-08, .000000E+00 /
        DATA (UPDI(I),I=3641,3692) /
     +  .204820E+07, .153583E+07, .112999E+07, .830693E+06,
     +  .610250E+06, .447882E+06, .328475E+06, .240661E+06,
     +  .176185E+06, .128848E+06, .941505E+05, .687210E+05,
     +  .501147E+05, .365041E+05, .265644E+05, .193080E+05,
     +  .140195E+05, .101669E+05, .736520E+04, .532855E+04,
     +  .385076E+04, .277902E+04, .200330E+04, .144213E+04,
     +  .103695E+04, .744454E+03, .533992E+03, .380780E+03,
     +  .272574E+03, .194918E+03, .139284E+03, .994634E+02,
     +  .710002E+02, .507229E+02, .362200E+02, .258829E+02,
     +  .185208E+02, .132749E+02, .953682E+01, .686804E+01,
     +  .496327E+01, .359792E+01, .261759E+01, .191105E+01,
     +  .140033E+01, .102931E+01, .759975E+00, .561448E+00,
     +  .416553E+00, .309022E+00, .229799E+00, .170989E+00 /
        DATA (UPDI(I),I=3693,3744) /
     +  .127248E+00, .946384E-01, .703099E-01, .521423E-01,
     +  .385852E-01, .284692E-01, .209348E-01, .153322E-01,
     +  .111791E-01, .810923E-02, .584676E-02, .419470E-02,
     +  .298338E-02, .210567E-02, .147438E-02, .102327E-02,
     +  .703858E-03, .479575E-03, .323829E-03, .216779E-03,
     +  .144222E-03, .955623E-04, .637189E-04, .429383E-04,
     +  .297348E-04, .213197E-04, .155647E-04, .112865E-04,
     +  .807364E-05, .564709E-05, .380821E-05, .244439E-05,
     +  .146175E-05, .790439E-06, .367794E-06, .134316E-06,
     +  .320053E-07, .308843E-08, .000000E+00, .260047E+07,
     +  .194224E+07, .142229E+07, .104063E+07, .760814E+06,
     +  .555691E+06, .405549E+06, .295667E+06, .215374E+06,
     +  .156714E+06, .113928E+06, .827284E+05, .600146E+05 /
        DATA (UPDI(I),I=3745,3796) /
     +  .434848E+05, .314752E+05, .227539E+05, .164312E+05,
     +  .118499E+05, .853619E+04, .614066E+04, .441207E+04,
     +  .316554E+04, .226843E+04, .162319E+04, .116003E+04,
     +  .827662E+03, .589963E+03, .417982E+03, .297274E+03,
     +  .211193E+03, .149911E+03, .106331E+03, .753826E+02,
     +  .534811E+02, .379205E+02, .269050E+02, .191131E+02,
     +  .135995E+02, .969810E+01, .693240E+01, .497242E+01,
     +  .357761E+01, .258329E+01, .187189E+01, .136139E+01,
     +  .993230E+00, .727931E+00, .533808E+00, .393169E+00,
     +  .289562E+00, .213787E+00, .157950E+00, .116719E+00,
     +  .862061E-01, .636053E-01, .468500E-01, .344355E-01,
     +  .252386E-01, .184371E-01, .134153E-01, .971890E-02,
     +  .700590E-02, .502022E-02, .358044E-02, .253195E-02 /
        DATA (UPDI(I),I=3797,3848) /
     +  .177748E-02, .123848E-02, .855919E-03, .586792E-03,
     +  .399004E-03, .269348E-03, .180694E-03, .120844E-03,
     +  .807963E-04, .545767E-04, .373737E-04, .262807E-04,
     +  .190048E-04, .138926E-04, .100604E-04, .716401E-05,
     +  .497309E-05, .331737E-05, .210025E-05, .123460E-05,
     +  .653787E-06, .296474E-06, .104957E-06, .242434E-07,
     +  .237609E-08, .000000E+00, .236753E+05, .258286E+05,
     +  .206254E+05, .164703E+05, .131525E+05, .105032E+05,
     +  .838777E+04, .669855E+04, .534968E+04, .427257E+04,
     +  .341245E+04, .272561E+04, .217712E+04, .173911E+04,
     +  .138932E+04, .110997E+04, .886875E+03, .708700E+03,
     +  .566395E+03, .452735E+03, .361949E+03, .289432E+03,
     +  .231502E+03, .185224E+03, .148250E+03, .118707E+03 /
        DATA (UPDI(I),I=3849,3900) /
     +  .950999E+02, .759945E+02, .609676E+02, .489530E+02,
     +  .393449E+02, .316593E+02, .255096E+02, .206002E+02,
     +  .166582E+02, .135007E+02, .109696E+02, .893859E+01,
     +  .730667E+01, .599273E+01, .493422E+01, .407796E+01,
     +  .338360E+01, .281853E+01, .235674E+01, .197747E+01,
     +  .166510E+01, .140332E+01, .118463E+01, .997844E+00,
     +  .838310E+00, .700412E+00, .580720E+00, .476928E+00,
     +  .387495E+00, .311265E+00, .247171E+00, .194078E+00,
     +  .150742E+00, .115858E+00, .881354E-01, .663606E-01,
     +  .494438E-01, .364910E-01, .265733E-01, .191128E-01,
     +  .135636E-01, .948549E-02, .652768E-02, .441314E-02,
     +  .292542E-02, .189717E-02, .120015E-02, .737849E-03,
     +  .441425E-03, .253942E-03, .140212E-03, .737980E-04 /
        DATA (UPDI(I),I=3901,3952) /
     +  .367077E-04, .170630E-04, .730188E-05, .282224E-05,
     +  .948982E-06, .266820E-06, .570835E-07, .741907E-08,
     +  .116957E-10, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .288272E+05, .415816E+05, .329348E+05,
     +  .260793E+05, .206531E+05, .163519E+05, .129478E+05,
     +  .102498E+05, .811485E+04, .642299E+04, .508442E+04,
     +  .402380E+04, .318481E+04, .252013E+04, .199443E+04,
     +  .157803E+04, .124875E+04, .987974E+03, .781800E+03,
     +  .618545E+03, .489498E+03, .387331E+03, .306585E+03,
     +  .242667E+03, .192155E+03, .152177E+03, .120580E+03,
     +  .952681E+02, .755828E+02, .599982E+02, .476800E+02,
     +  .379248E+02, .302112E+02, .241147E+02, .192776E+02,
     +  .154422E+02, .124041E+02, .999048E+01, .807387E+01 /
        DATA (UPDI(I),I=3953,4004) /
     +  .654584E+01, .532887E+01, .435377E+01, .357182E+01,
     +  .294123E+01, .243134E+01, .201618E+01, .167777E+01,
     +  .139673E+01, .116456E+01, .968467E+00, .803342E+00,
     +  .662726E+00, .542794E+00, .440597E+00, .354137E+00,
     +  .281662E+00, .221698E+00, .172707E+00, .133220E+00,
     +  .101771E+00, .770204E-01, .577384E-01, .428652E-01,
     +  .315432E-01, .229246E-01, .164677E-01, .116826E-01,
     +  .817227E-02, .562871E-02, .380793E-02, .252376E-02,
     +  .163043E-02, .102127E-02, .612483E-03, .346561E-03,
     +  .176199E-03, .714642E-04, .102761E-04, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .135525E-19,
     +  .000000E+00, .169407E-20, .105879E-21, .000000E+00 /
        DATA (UPDI(I),I=4005,4056) /
     +  .791172E+05, .627368E+05, .492467E+05, .386469E+05,
     +  .303314E+05, .237989E+05, .186751E+05, .146505E+05,
     +  .114943E+05, .901563E+04, .707214E+04, .554614E+04,
     +  .434984E+04, .341070E+04, .267462E+04, .209688E+04,
     +  .164416E+04, .128889E+04, .101056E+04, .792191E+03,
     +  .621144E+03, .486967E+03, .381890E+03, .299477E+03,
     +  .234945E+03, .184337E+03, .144708E+03, .113256E+03,
     +  .890211E+02, .700106E+02, .551219E+02, .434389E+02,
     +  .342848E+02, .271153E+02, .214780E+02, .170482E+02,
     +  .135702E+02, .108315E+02, .867559E+01, .697145E+01,
     +  .562564E+01, .455621E+01, .370554E+01, .302495E+01,
     +  .247891E+01, .203766E+01, .168074E+01, .138661E+01,
     +  .114563E+01, .943946E+00, .775805E+00, .634204E+00 /
        DATA (UPDI(I),I=4057,4108) /
     +  .514866E+00, .414425E+00, .330484E+00, .260942E+00,
     +  .204023E+00, .157973E+00, .121180E+00, .921050E-01,
     +  .693820E-01, .517926E-01, .382992E-01, .280808E-01,
     +  .203395E-01, .145649E-01, .103022E-01, .718585E-02,
     +  .493468E-02, .332732E-02, .219606E-02, .141049E-02,
     +  .875781E-03, .517532E-03, .285099E-03, .137083E-03,
     +  .471715E-04, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .117887E+06,
     +  .927779E+05, .722109E+05, .561860E+05, .437203E+05,
     +  .340102E+05, .264585E+05, .205774E+05, .160047E+05,
     +  .124444E+05, .967676E+04, .752245E+04, .584819E+04 /
        DATA (UPDI(I),I=4109,4160) /
     +  .454527E+04, .353295E+04, .274535E+04, .213357E+04,
     +  .165773E+04, .128821E+04, .100086E+04, .777758E+03,
     +  .604304E+03, .469670E+03, .365017E+03, .283795E+03,
     +  .220665E+03, .171672E+03, .133137E+03, .103709E+03,
     +  .808312E+02, .630717E+02, .492600E+02, .385327E+02,
     +  .302051E+02, .237140E+02, .186576E+02, .147217E+02,
     +  .116489E+02, .925015E+01, .736991E+01, .589706E+01,
     +  .473611E+01, .381985E+01, .309246E+01, .251325E+01,
     +  .204868E+01, .167568E+01, .137065E+01, .112273E+01,
     +  .917037E+00, .747166E+00, .605581E+00, .487551E+00,
     +  .389330E+00, .308151E+00, .241615E+00, .187696E+00,
     +  .144470E+00, .110216E+00, .833503E-01, .624963E-01,
     +  .464553E-01, .342185E-01, .250016E-01, .180543E-01 /
        DATA (UPDI(I),I=4161,4212) /
     +  .128965E-01, .910583E-02, .634576E-02, .435928E-02,
     +  .294537E-02, .195287E-02, .126506E-02, .797254E-03,
     +  .483748E-03, .279886E-03, .149479E-03, .695957E-04,
     +  .261402E-04, .130323E-04, .759676E-05, .422103E-05,
     +  .217783E-05, .105505E-05, .436574E-06, .155135E-06,
     +  .431651E-07, .129874E-07, .572821E-08, .357942E-08,
     +  .000000E+00, .000000E+00, .170660E+06, .133418E+06,
     +  .103056E+06, .795755E+05, .614461E+05, .474303E+05,
     +  .366124E+05, .282519E+05, .218010E+05, .168171E+05,
     +  .129730E+05, .100041E+05, .771491E+04, .594758E+04,
     +  .458531E+04, .353397E+04, .272388E+04, .209891E+04,
     +  .161752E+04, .124624E+04, .960337E+03, .739897E+03,
     +  .570203E+03, .439401E+03, .338728E+03, .261132E+03 /
        DATA (UPDI(I),I=4213,4264) /
     +  .201419E+03, .154854E+03, .119592E+03, .924124E+02,
     +  .714899E+02, .553567E+02, .429309E+02, .333664E+02,
     +  .259728E+02, .202619E+02, .158530E+02, .124393E+02,
     +  .979595E+01, .774072E+01, .614338E+01, .489417E+01,
     +  .391570E+01, .314479E+01, .253540E+01, .205020E+01,
     +  .166347E+01, .134955E+01, .109640E+01, .888126E+00,
     +  .717664E+00, .576967E+00, .460864E+00, .365254E+00,
     +  .287039E+00, .223565E+00, .172598E+00, .132085E+00,
     +  .100228E+00, .754199E-01, .562875E-01, .416598E-01,
     +  .305620E-01, .222473E-01, .160114E-01, .114037E-01,
     +  .803247E-02, .558810E-02, .383569E-02, .259275E-02,
     +  .172297E-02, .112181E-02, .713664E-03, .440391E-03,
     +  .262649E-03, .148697E-03, .786886E-04, .405032E-04 /
        DATA (UPDI(I),I=4265,4316) /
     +  .260454E-04, .181820E-04, .127233E-04, .884264E-05,
     +  .611154E-05, .410722E-05, .266628E-05, .162148E-05,
     +  .890865E-06, .407825E-06, .127939E-06, .995845E-08,
     +  .000000E+00, .162881E+06, .186783E+06, .143305E+06,
     +  .109901E+06, .842805E+05, .646059E+05, .495225E+05,
     +  .379447E+05, .290726E+05, .222657E+05, .170519E+05,
     +  .130537E+05, .999270E+04, .764649E+04, .585103E+04,
     +  .447554E+04, .342342E+04, .261779E+04, .200186E+04,
     +  .153040E+04, .117010E+04, .894424E+03, .683834E+03,
     +  .522773E+03, .399770E+03, .305706E+03, .233892E+03,
     +  .178339E+03, .136606E+03, .104697E+03, .803286E+02,
     +  .616906E+02, .474496E+02, .365766E+02, .282383E+02,
     +  .218496E+02, .169563E+02, .131978E+02, .103099E+02 /
        DATA (UPDI(I),I=4317,4368) /
     +  .808222E+01, .636392E+01, .503033E+01, .399341E+01,
     +  .318247E+01, .254599E+01, .204284E+01, .164465E+01,
     +  .132379E+01, .106700E+01, .857450E+00, .687418E+00,
     +  .548373E+00, .434727E+00, .342056E+00, .266970E+00,
     +  .206599E+00, .158539E+00, .120644E+00, .910628E-01,
     +  .681837E-01, .506495E-01, .373225E-01, .272660E-01,
     +  .197710E-01, .141779E-01, .100650E-01, .706942E-02,
     +  .490683E-02, .336277E-02, .227175E-02, .151090E-02,
     +  .986678E-03, .631636E-03, .394318E-03, .240106E-03,
     +  .141155E-03, .803319E-04, .468642E-04, .321669E-04,
     +  .232002E-04, .167407E-04, .119637E-04, .843029E-05,
     +  .574568E-05, .374346E-05, .226397E-05, .122303E-05,
     +  .544276E-06, .163805E-06, .137529E-07, .000000E+00 /
        DATA (UPDI(I),I=4369,4420) /
     +  .349715E+06, .270108E+06, .205758E+06, .156665E+06,
     +  .119270E+06, .907571E+05, .690512E+05, .525115E+05,
     +  .399278E+05, .303452E+05, .230590E+05, .175142E+05,
     +  .133008E+05, .100965E+05, .766308E+04, .581371E+04,
     +  .441019E+04, .334422E+04, .253576E+04, .192207E+04,
     +  .145689E+04, .110398E+04, .836637E+03, .633936E+03,
     +  .480443E+03, .364087E+03, .276029E+03, .208520E+03,
     +  .158253E+03, .120169E+03, .913416E+02, .694958E+02,
     +  .529523E+02, .404381E+02, .309268E+02, .237069E+02,
     +  .182261E+02, .140552E+02, .108787E+02, .845038E+01,
     +  .659356E+01, .516518E+01, .406386E+01, .320992E+01,
     +  .254518E+01, .202407E+01, .161505E+01, .128828E+01,
     +  .102905E+01, .819491E+00, .651115E+00, .514866E+00 /
        DATA (UPDI(I),I=4421,4472) /
     +  .404693E+00, .315833E+00, .244595E+00, .187904E+00,
     +  .143202E+00, .108267E+00, .812192E-01, .604584E-01,
     +  .446589E-01, .327302E-01, .237834E-01, .171559E-01,
     +  .122378E-01, .864145E-02, .603597E-02, .416491E-02,
     +  .283578E-02, .190151E-02, .125335E-02, .809335E-03,
     +  .510461E-03, .312207E-03, .184675E-03, .103957E-03,
     +  .555040E-04, .296728E-04, .183743E-04, .118995E-04,
     +  .769230E-05, .494669E-05, .318509E-05, .201109E-05,
     +  .124364E-05, .729877E-06, .392280E-06, .176423E-06,
     +  .541428E-07, .401998E-08, .000000E+00, .495130E+06,
     +  .380273E+06, .287792E+06, .217686E+06, .164622E+06,
     +  .124425E+06, .940216E+05, .710083E+05, .536152E+05,
     +  .404602E+05, .305254E+05, .230176E+05, .173521E+05 /
        DATA (UPDI(I),I=4473,4524) /
     +  .130742E+05, .984862E+04, .741509E+04, .558168E+04,
     +  .419964E+04, .315928E+04, .237563E+04, .178614E+04,
     +  .134245E+04, .100895E+04, .758131E+03, .569717E+03,
     +  .428055E+03, .321731E+03, .240906E+03, .181229E+03,
     +  .136403E+03, .102760E+03, .774856E+02, .585094E+02,
     +  .442813E+02, .335604E+02, .254941E+02, .194237E+02,
     +  .148447E+02, .113872E+02, .876714E+01, .678051E+01,
     +  .526527E+01, .410654E+01, .321555E+01, .252753E+01,
     +  .199257E+01, .157608E+01, .124611E+01, .986592E+00,
     +  .778723E+00, .613293E+00, .480779E+00, .374726E+00,
     +  .290085E+00, .222919E+00, .169998E+00, .128655E+00,
     +  .966276E-01, .720313E-01, .532969E-01, .391412E-01,
     +  .285268E-01, .206166E-01, .147943E-01, .104998E-01 /
        DATA (UPDI(I),I=4525,4576) /
     +  .737836E-02, .513005E-02, .352479E-02, .239082E-02,
     +  .159813E-02, .105112E-02, .678390E-03, .428710E-03,
     +  .263892E-03, .158357E-03, .917921E-04, .519753E-04,
     +  .304900E-04, .200934E-04, .136979E-04, .935765E-05,
     +  .636715E-05, .429460E-05, .281738E-05, .177411E-05,
     +  .103932E-05, .543175E-06, .231537E-06, .656324E-07,
     +  .549694E-08, .000000E+00, .684374E+06, .522893E+06,
     +  .393337E+06, .295707E+06, .222243E+06, .166927E+06,
     +  .125340E+06, .940551E+05, .705557E+05, .528944E+05,
     +  .396407E+05, .296894E+05, .222287E+05, .166326E+05,
     +  .124411E+05, .930039E+04, .695033E+04, .519124E+04,
     +  .387631E+04, .289294E+04, .215854E+04, .160985E+04,
     +  .120048E+04, .894917E+03, .667122E+03, .497172E+03 /
        DATA (UPDI(I),I=4577,4628) /
     +  .370618E+03, .275181E+03, .205281E+03, .153202E+03,
     +  .114432E+03, .855476E+02, .640387E+02, .480472E+02,
     +  .360974E+02, .271829E+02, .205299E+02, .155540E+02,
     +  .118280E+02, .902817E+01, .692255E+01, .532981E+01,
     +  .412154E+01, .319997E+01, .249392E+01, .194934E+01,
     +  .152871E+01, .119820E+01, .940473E+00, .735876E+00,
     +  .574561E+00, .446608E+00, .345221E+00, .265120E+00,
     +  .202180E+00, .153062E+00, .115034E+00, .858261E-01,
     +  .635734E-01, .467519E-01, .341320E-01, .247341E-01,
     +  .177757E-01, .126870E-01, .895690E-02, .626233E-02,
     +  .433310E-02, .296388E-02, .200228E-02, .133397E-02,
     +  .875369E-03, .564625E-03, .357538E-03, .221516E-03,
     +  .134814E-03, .802983E-04, .477293E-04, .298412E-04 /
        DATA (UPDI(I),I=4629,4680) /
     +  .204392E-04, .143477E-04, .100772E-04, .702660E-05,
     +  .481836E-05, .319453E-05, .201309E-05, .116988E-05,
     +  .599855E-06, .248240E-06, .677593E-07, .597733E-08,
     +  .000000E+00, .926339E+06, .704328E+06, .526807E+06,
     +  .393776E+06, .294227E+06, .219695E+06, .163979E+06,
     +  .122307E+06, .911877E+05, .679386E+05, .505954E+05,
     +  .376530E+05, .280091E+05, .208207E+05, .154705E+05,
     +  .114872E+05, .852600E+04, .632406E+04, .468903E+04,
     +  .347459E+04, .257379E+04, .190549E+04, .141038E+04,
     +  .104348E+04, .771924E+03, .570814E+03, .422181E+03,
     +  .310946E+03, .230100E+03, .170335E+03, .126186E+03,
     +  .935578E+02, .694519E+02, .516742E+02, .384960E+02,
     +  .287452E+02, .215268E+02, .161721E+02, .121947E+02 /
        DATA (UPDI(I),I=4681,4732) /
     +  .923014E+01, .701839E+01, .535872E+01, .410950E+01,
     +  .316418E+01, .244553E+01, .189555E+01, .147408E+01,
     +  .114557E+01, .891538E+00, .691640E+00, .535462E+00,
     +  .412758E+00, .316468E+00, .241133E+00, .182502E+00,
     +  .137168E+00, .102376E+00, .758757E-01, .558442E-01,
     +  .408147E-01, .296193E-01, .213391E-01, .152485E-01,
     +  .108233E-01, .759993E-02, .528604E-02, .363952E-02,
     +  .247808E-02, .166727E-02, .110711E-02, .724918E-03,
     +  .467417E-03, .296704E-03, .185110E-03, .114264E-03,
     +  .698106E-04, .432081E-04, .282595E-04, .198387E-04,
     +  .141621E-04, .100819E-04, .709601E-05, .488044E-05,
     +  .322959E-05, .201781E-05, .115550E-05, .579346E-06,
     +  .232527E-06, .612818E-07, .557418E-08, .000000E+00 /
        DATA (UPDI(I),I=4733,4784) /
     +  .123062E+07, .931380E+06, .692864E+06, .515074E+06,
     +  .382732E+06, .284182E+06, .210908E+06, .156408E+06,
     +  .115933E+06, .858662E+05, .635642E+05, .470181E+05,
     +  .347606E+05, .256786E+05, .189594E+05, .139877E+05,
     +  .103143E+05, .760005E+04, .559736E+04, .411948E+04,
     +  .303044E+04, .222786E+04, .163727E+04, .120261E+04,
     +  .883132E+03, .648194E+03, .475810E+03, .347739E+03,
     +  .255343E+03, .187550E+03, .137844E+03, .101389E+03,
     +  .746613E+02, .551031E+02, .407169E+02, .301561E+02,
     +  .223990E+02, .166900E+02, .124826E+02, .937120E+01,
     +  .706778E+01, .535273E+01, .407162E+01, .310960E+01,
     +  .238378E+01, .183254E+01, .141336E+01, .108922E+01,
     +  .840626E+00, .646682E+00, .496501E+00, .379599E+00 /
        DATA (UPDI(I),I=4785,4836) /
     +  .288720E+00, .218290E+00, .163981E+00, .122365E+00,
     +  .906987E-01, .667758E-01, .488319E-01, .354682E-01,
     +  .255838E-01, .183234E-01, .130179E-01, .918844E-02,
     +  .641672E-02, .443968E-02, .304161E-02, .206153E-02,
     +  .138148E-02, .914469E-03, .597672E-03, .385423E-03,
     +  .245422E-03, .154301E-03, .966373E-04, .604758E-04,
     +  .387258E-04, .261728E-04, .186741E-04, .134590E-04,
     +  .963777E-05, .679598E-05, .465829E-05, .305962E-05,
     +  .188753E-05, .106192E-05, .519724E-06, .202145E-06,
     +  .514617E-07, .478954E-08, .000000E+00, .160730E+07,
     +  .121112E+07, .896297E+06, .662823E+06, .489907E+06,
     +  .361812E+06, .267063E+06, .196963E+06, .145180E+06,
     +  .106921E+06, .786972E+05, .578743E+05, .425347E+05 /
        DATA (UPDI(I),I=4837,4888) /
     +  .312342E+05, .229215E+05, .168070E+05, .123160E+05,
     +  .901759E+04, .659869E+04, .482479E+04, .352579E+04,
     +  .257461E+04, .187919E+04, .137075E+04, .999525E+03,
     +  .728379E+03, .530806E+03, .385050E+03, .280643E+03,
     +  .204585E+03, .149223E+03, .108918E+03, .795835E+02,
     +  .582792E+02, .427256E+02, .313945E+02, .231344E+02,
     +  .171017E+02, .126892E+02, .945092E+01, .707155E+01,
     +  .531328E+01, .400960E+01, .303794E+01, .231026E+01,
     +  .176174E+01, .134778E+01, .103017E+01, .788544E+00,
     +  .601620E+00, .458136E+00, .347451E+00, .262190E+00,
     +  .196719E+00, .146687E+00, .108682E+00, .800047E-01,
     +  .585128E-01, .425149E-01, .306876E-01, .220011E-01,
     +  .156640E-01, .110639E-01, .776540E-02, .539325E-02 /
        DATA (UPDI(I),I=4889,4940) /
     +  .371202E-02, .253060E-02, .170756E-02, .113995E-02,
     +  .752474E-03, .491128E-03, .316975E-03, .202644E-03,
     +  .128504E-03, .816823E-04, .522823E-04, .344475E-04,
     +  .238483E-04, .171947E-04, .124521E-04, .892669E-05,
     +  .627829E-05, .427344E-05, .277740E-05, .168811E-05,
     +  .931550E-06, .444652E-06, .167569E-06, .412461E-07,
     +  .391310E-08, .000000E+00, .206666E+07, .155069E+07,
     +  .114186E+07, .840170E+06, .617818E+06, .453924E+06,
     +  .333299E+06, .244513E+06, .179261E+06, .131304E+06,
     +  .961109E+05, .702861E+05, .513640E+05, .375013E+05,
     +  .273603E+05, .199432E+05, .145264E+05, .105714E+05,
     +  .768785E+04, .558589E+04, .405596E+04, .294261E+04,
     +  .213368E+04, .154601E+04, .111968E+04, .810322E+03 /
        DATA (UPDI(I),I=4941,4992) /
     +  .586410E+03, .422340E+03, .305619E+03, .221180E+03,
     +  .160144E+03, .116025E+03, .841420E+02, .611545E+02,
     +  .444931E+02, .324440E+02, .237245E+02, .174034E+02,
     +  .128137E+02, .947030E+01, .703151E+01, .524248E+01,
     +  .392556E+01, .295117E+01, .222672E+01, .168463E+01,
     +  .127857E+01, .969387E+00, .736045E+00, .557017E+00,
     +  .420765E+00, .316583E+00, .237045E+00, .176513E+00,
     +  .130660E+00, .961253E-01, .702791E-01, .510608E-01,
     +  .368628E-01, .264420E-01, .188419E-01, .133352E-01,
     +  .936431E-02, .653564E-02, .451446E-02, .309114E-02,
     +  .209724E-02, .140914E-02, .937460E-03, .617361E-03,
     +  .402647E-03, .260292E-03, .167229E-03, .107049E-03,
     +  .690703E-04, .451410E-04, .304520E-04, .214530E-04 /
        DATA (UPDI(I),I=4993,5044) /
     +  .155646E-04, .112862E-04, .807351E-05, .564702E-05,
     +  .380817E-05, .244437E-05, .146174E-05, .790436E-06,
     +  .367793E-06, .134316E-06, .320053E-07, .308843E-08,
     +  .000000E+00, .261887E+07, .195705E+07, .143412E+07,
     +  .105007E+07, .768355E+06, .561712E+06, .410357E+06,
     +  .299505E+06, .218438E+06, .159161E+06, .115881E+06,
     +  .842873E+05, .612588E+05, .444778E+05, .322677E+05,
     +  .233862E+05, .169356E+05, .122522E+05, .885707E+04,
     +  .639650E+04, .461599E+04, .332803E+04, .239785E+04,
     +  .172624E+04, .124204E+04, .892900E+03, .641830E+03,
     +  .459059E+03, .329896E+03, .237082E+03, .170443E+03,
     +  .122604E+03, .882703E+02, .636889E+02, .459966E+02,
     +  .332928E+02, .241646E+02, .175943E+02, .128576E+02 /
        DATA (UPDI(I),I=5045,5096) /
     +  .943164E+01, .695031E+01, .514297E+01, .382193E+01,
     +  .285141E+01, .213495E+01, .160267E+01, .120688E+01,
     +  .907781E+00, .683810E+00, .513361E+00, .384723E+00,
     +  .287209E+00, .213408E+00, .157730E+00, .115913E+00,
     +  .846810E-01, .614929E-01, .443840E-01, .318380E-01,
     +  .226956E-01, .160742E-01, .113091E-01, .789558E-02,
     +  .547994E-02, .376496E-02, .256497E-02, .173226E-02,
     +  .115930E-02, .768883E-03, .505435E-03, .329644E-03,
     +  .213634E-03, .138059E-03, .892731E-04, .584581E-04,
     +  .389328E-04, .267704E-04, .190916E-04, .138924E-04,
     +  .100602E-04, .716391E-05, .497303E-05, .331734E-05,
     +  .210023E-05, .123459E-05, .653784E-06, .296473E-06,
     +  .104957E-06, .242434E-07, .237609E-08, .000000E+00 /
        DATA (UPDI(I),I=5097,5148) /
     +  .236468E+05, .257878E+05, .205890E+05, .164379E+05,
     +  .131237E+05, .104776E+05, .836496E+04, .667825E+04,
     +  .533162E+04, .425650E+04, .339815E+04, .271289E+04,
     +  .216580E+04, .172905E+04, .138037E+04, .110201E+04,
     +  .879799E+03, .702407E+03, .560800E+03, .447760E+03,
     +  .357526E+03, .285497E+03, .228003E+03, .182111E+03,
     +  .145479E+03, .116241E+03, .929023E+02, .740381E+02,
     +  .592210E+02, .473915E+02, .379463E+02, .304036E+02,
     +  .243790E+02, .195783E+02, .157307E+02, .126545E+02,
     +  .101930E+02, .822099E+01, .663857E+01, .536575E+01,
     +  .434100E+01, .351232E+01, .284051E+01, .229423E+01,
     +  .184889E+01, .148528E+01, .118937E+01, .946720E+00,
     +  .751131E+00, .592832E+00, .467397E+00, .368859E+00 /
        DATA (UPDI(I),I=5149,5200) /
     +  .292389E+00, .233541E+00, .188312E+00, .153280E+00,
     +  .125702E+00, .103530E+00, .853278E-01, .701381E-01,
     +  .573377E-01, .465159E-01, .373868E-01, .297648E-01,
     +  .233908E-01, .181525E-01, .138991E-01, .104901E-01,
     +  .779573E-02, .569767E-02, .408974E-02, .287833E-02,
     +  .198194E-02, .133149E-02, .873898E-03, .555102E-03,
     +  .340883E-03, .201372E-03, .113728E-03, .609291E-04,
     +  .306550E-04, .143133E-04, .605867E-05, .228365E-05,
     +  .736022E-06, .191546E-06, .365611E-07, .427338E-08,
     +  .203951E-09, .108703E-11, .000000E+00, .287945E+05,
     +  .415348E+05, .328932E+05, .260423E+05, .206201E+05,
     +  .163225E+05, .129217E+05, .102266E+05, .809422E+04,
     +  .640464E+04, .506810E+04, .400930E+04, .317191E+04 /
        DATA (UPDI(I),I=5201,5252) /
     +  .250867E+04, .198424E+04, .156897E+04, .124070E+04,
     +  .980823E+03, .775446E+03, .612900E+03, .484482E+03,
     +  .382874E+03, .302624E+03, .239147E+03, .189025E+03,
     +  .149393E+03, .118103E+03, .930651E+02, .736185E+02,
     +  .582444E+02, .461114E+02, .365190E+02, .289478E+02,
     +  .229754E+02, .182463E+02, .145045E+02, .115467E+02,
     +  .920200E+01, .734395E+01, .586562E+01, .469058E+01,
     +  .375114E+01, .299975E+01, .239616E+01, .191108E+01,
     +  .152011E+01, .120664E+01, .952986E+00, .751402E+00,
     +  .590168E+00, .463800E+00, .365183E+00, .288973E+00,
     +  .230247E+00, .184982E+00, .149708E+00, .121863E+00,
     +  .994467E-01, .811363E-01, .659729E-01, .533540E-01,
     +  .428216E-01, .340660E-01, .268503E-01, .209033E-01 /
        DATA (UPDI(I),I=5253,5304) /
     +  .160746E-01, .122015E-01, .912851E-02, .672395E-02,
     +  .486684E-02, .345513E-02, .239761E-02, .162113E-02,
     +  .106036E-02, .667831E-03, .396624E-03, .216215E-03,
     +  .100986E-03, .309599E-04, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .790596E+05, .626855E+05,
     +  .492011E+05, .386063E+05, .302953E+05, .237668E+05,
     +  .186465E+05, .146251E+05, .114717E+05, .899555E+04,
     +  .705429E+04, .553027E+04, .433574E+04, .339818E+04,
     +  .266349E+04, .208700E+04, .163538E+04, .128110E+04,
     +  .100364E+04, .786043E+03, .615686E+03, .482120E+03,
     +  .377587E+03, .295655E+03, .231550E+03, .181320E+03 /
        DATA (UPDI(I),I=5305,5356) /
     +  .142026E+03, .110874E+03, .868987E+02, .681180E+02,
     +  .534314E+02, .419261E+02, .329274E+02, .258935E+02,
     +  .203745E+02, .160473E+02, .126579E+02, .999549E+01,
     +  .790495E+01, .625693E+01, .495916E+01, .393133E+01,
     +  .311710E+01, .246940E+01, .195403E+01, .154279E+01,
     +  .121641E+01, .954902E+00, .749058E+00, .585833E+00,
     +  .458823E+00, .360225E+00, .284255E+00, .225757E+00,
     +  .180627E+00, .145417E+00, .117620E+00, .952901E-01,
     +  .771362E-01, .622091E-01, .498965E-01, .397204E-01,
     +  .313453E-01, .245125E-01, .189371E-01, .144527E-01,
     +  .108885E-01, .808477E-02, .590908E-02, .424194E-02,
     +  .298442E-02, .204954E-02, .136860E-02, .880710E-03,
     +  .542257E-03, .310929E-03, .159341E-03, .644862E-04 /
        DATA (UPDI(I),I=5357,5408) /
     +  .949380E-05, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .000000E+00, .000000E+00, .000000E+00,
     +  .000000E+00, .117824E+06, .927220E+05, .721612E+05,
     +  .561418E+05, .436810E+05, .339753E+05, .264274E+05,
     +  .205498E+05, .159801E+05, .124226E+05, .965738E+04,
     +  .750524E+04, .583290E+04, .453170E+04, .352089E+04,
     +  .273465E+04, .212408E+04, .164930E+04, .128073E+04,
     +  .994219E+03, .771869E+03, .599080E+03, .465034E+03,
     +  .360904E+03, .280145E+03, .217424E+03, .168792E+03,
     +  .130583E+03, .101436E+03, .788071E+02, .612661E+02,
     +  .476467E+02, .370876E+02, .289068E+02, .225439E+02,
     +  .175991E+02, .137597E+02, .107704E+02, .844374E+01 /
        DATA (UPDI(I),I=5409,5460) /
     +  .662586E+01, .520695E+01, .409332E+01, .321907E+01,
     +  .253005E+01, .198691E+01, .155755E+01, .122000E+01,
     +  .952014E+00, .742914E+00, .578430E+00, .451293E+00,
     +  .353104E+00, .277689E+00, .219710E+00, .174997E+00,
     +  .140127E+00, .112634E+00, .906203E-01, .728166E-01,
     +  .582818E-01, .463930E-01, .366571E-01, .287185E-01,
     +  .223026E-01, .171159E-01, .129813E-01, .972346E-02,
     +  .718172E-02, .522494E-02, .373675E-02, .262226E-02,
     +  .179941E-02, .120378E-02, .779437E-03, .486510E-03,
     +  .287011E-03, .156634E-03, .749125E-04, .276543E-04,
     +  .759660E-05, .421886E-05, .217633E-05, .105405E-05,
     +  .435948E-06, .154771E-06, .429735E-07, .129004E-07,
     +  .569676E-08, .357176E-08, .000000E+00, .000000E+00 /
        DATA (UPDI(I),I=5461,5512) /
     +  .170592E+06, .133358E+06, .103003E+06, .795277E+05,
     +  .614036E+05, .473926E+05, .365788E+05, .282220E+05,
     +  .217745E+05, .167936E+05, .129521E+05, .998557E+04,
     +  .769845E+04, .593297E+04, .457234E+04, .352247E+04,
     +  .271367E+04, .208985E+04, .160949E+04, .123912E+04,
     +  .954025E+03, .734301E+03, .565242E+03, .435003E+03,
     +  .334828E+03, .257672E+03, .198349E+03, .152133E+03,
     +  .117174E+03, .902617E+02, .695741E+02, .536475E+02,
     +  .414026E+02, .319960E+02, .247406E+02, .191500E+02,
     +  .148455E+02, .115226E+02, .895779E+01, .697104E+01,
     +  .543342E+01, .423708E+01, .330598E+01, .257862E+01,
     +  .201029E+01, .156502E+01, .121804E+01, .944927E+00,
     +  .733564E+00, .568539E+00, .441781E+00, .344370E+00 /
        DATA (UPDI(I),I=5513,5564) /
     +  .269800E+00, .212590E+00, .168523E+00, .134206E+00,
     +  .107212E+00, .856815E-01, .683638E-01, .543249E-01,
     +  .429324E-01, .336830E-01, .262057E-01, .202157E-01,
     +  .154146E-01, .116194E-01, .865315E-02, .635691E-02,
     +  .460242E-02, .327770E-02, .229251E-02, .157004E-02,
     +  .105034E-02, .682225E-03, .429461E-03, .258059E-03,
     +  .146428E-03, .765183E-04, .361860E-04, .181817E-04,
     +  .127209E-04, .884095E-05, .611043E-05, .410654E-05,
     +  .266589E-05, .162127E-05, .890774E-06, .407792E-06,
     +  .127931E-06, .995765E-08, .000000E+00, .162835E+06,
     +  .186718E+06, .143247E+06, .109849E+06, .842348E+05,
     +  .645653E+05, .494864E+05, .379127E+05, .290441E+05,
     +  .222404E+05, .170295E+05, .130338E+05, .997504E+04 /
        DATA (UPDI(I),I=5565,5616) /
     +  .763082E+04, .583714E+04, .446322E+04, .341250E+04,
     +  .260811E+04, .199328E+04, .152280E+04, .116337E+04,
     +  .888458E+03, .678550E+03, .518093E+03, .395624E+03,
     +  .302032E+03, .230634E+03, .175455E+03, .134046E+03,
     +  .102423E+03, .783061E+02, .598892E+02, .458417E+02,
     +  .351378E+02, .269474E+02, .206879E+02, .159068E+02,
     +  .122462E+02, .944350E+01, .729031E+01, .563742E+01,
     +  .436208E+01, .337768E+01, .261519E+01, .202440E+01,
     +  .156545E+01, .121078E+01, .933896E+00, .721256E+00,
     +  .556402E+00, .430529E+00, .334265E+00, .260826E+00,
     +  .204625E+00, .161414E+00, .127839E+00, .101505E+00,
     +  .805934E-01, .638674E-01, .504017E-01, .395568E-01,
     +  .308237E-01, .238208E-01, .182574E-01, .138341E-01 /
        DATA (UPDI(I),I=5617,5668) /
     +  .103653E-01, .767491E-02, .560783E-02, .403982E-02,
     +  .286422E-02, .199583E-02, .136325E-02, .911040E-03,
     +  .592595E-03, .375126E-03, .228349E-03, .133106E-03,
     +  .735823E-04, .392742E-04, .231996E-04, .167382E-04,
     +  .119621E-04, .842920E-05, .574501E-05, .374308E-05,
     +  .226377E-05, .122294E-05, .544247E-06, .163798E-06,
     +  .137522E-07, .000000E+00, .349636E+06, .270038E+06,
     +  .205695E+06, .156609E+06, .119220E+06, .907130E+05,
     +  .690121E+05, .524767E+05, .398969E+05, .303178E+05,
     +  .230347E+05, .174927E+05, .132817E+05, .100795E+05,
     +  .764807E+04, .580041E+04, .439841E+04, .333378E+04,
     +  .252652E+04, .191389E+04, .144965E+04, .109758E+04,
     +  .830969E+03, .628921E+03, .476005E+03, .360159E+03 /
        DATA (UPDI(I),I=5669,5720) /
     +  .272551E+03, .205446E+03, .155529E+03, .117753E+03,
     +  .891964E+02, .675888E+02, .512540E+02, .389221E+02,
     +  .295706E+02, .224903E+02, .171312E+02, .130665E+02,
     +  .998284E+01, .763621E+01, .585142E+01, .448749E+01,
     +  .344452E+01, .264450E+01, .203047E+01, .155807E+01,
     +  .119641E+01, .916653E+00, .703648E+00, .539818E+00,
     +  .415559E+00, .321060E+00, .249265E+00, .194508E+00,
     +  .152522E+00, .120010E+00, .946100E-01, .745537E-01,
     +  .586181E-01, .458914E-01, .357280E-01, .276185E-01,
     +  .211734E-01, .161008E-01, .121031E-01, .899604E-02,
     +  .660678E-02, .478688E-02, .341789E-02, .240020E-02,
     +  .165479E-02, .111663E-02, .735444E-03, .469750E-03,
     +  .290432E-03, .171098E-03, .950521E-04, .487746E-04 /
        DATA (UPDI(I),I=5721,5772) /
     +  .232132E-04, .118986E-04, .768999E-05, .494514E-05,
     +  .318410E-05, .201049E-05, .124331E-05, .729711E-06,
     +  .392209E-06, .176399E-06, .541374E-07, .401941E-08,
     +  .000000E+00, .495044E+06, .380196E+06, .287723E+06,
     +  .217625E+06, .164568E+06, .124377E+06, .939793E+05,
     +  .709707E+05, .535818E+05, .404306E+05, .304992E+05,
     +  .229944E+05, .173315E+05, .130560E+05, .983245E+04,
     +  .740078E+04, .556901E+04, .418843E+04, .314937E+04,
     +  .236686E+04, .177839E+04, .133559E+04, .100289E+04,
     +  .752775E+03, .564983E+03, .423871E+03, .318032E+03,
     +  .237641E+03, .178340E+03, .133846E+03, .100493E+03,
     +  .754751E+02, .567231E+02, .426910E+02, .321419E+02,
     +  .242259E+02, .182867E+02, .138225E+02, .104657E+02 /
        DATA (UPDI(I),I=5773,5824) /
     +  .793442E+01, .602637E+01, .458163E+01, .348686E+01,
     +  .265491E+01, .202220E+01, .153993E+01, .117403E+01,
     +  .893481E+00, .681639E+00, .519949E+00, .398117E+00,
     +  .305986E+00, .236297E+00, .183352E+00, .142894E+00,
     +  .111688E+00, .874220E-01, .683747E-01, .533444E-01,
     +  .414365E-01, .320068E-01, .245502E-01, .186762E-01,
     +  .140953E-01, .105168E-01, .776031E-02, .565881E-02,
     +  .407189E-02, .288812E-02, .201549E-02, .138155E-02,
     +  .927650E-03, .608686E-03, .388151E-03, .240492E-03,
     +  .142961E-03, .812251E-04, .438923E-04, .232934E-04,
     +  .136970E-04, .935558E-05, .636577E-05, .429373E-05,
     +  .281686E-05, .177383E-05, .103918E-05, .543117E-06,
     +  .231518E-06, .656282E-07, .549649E-08, .000000E+00 /
        DATA (UPDI(I),I=5825,5876) /
     +  .684280E+06, .522810E+06, .393263E+06, .295641E+06,
     +  .222185E+06, .166875E+06, .125294E+06, .940145E+05,
     +  .705197E+05, .528625E+05, .396125E+05, .296644E+05,
     +  .222065E+05, .166130E+05, .124237E+05, .928503E+04,
     +  .693675E+04, .517923E+04, .386569E+04, .288356E+04,
     +  .215025E+04, .160253E+04, .119402E+04, .889214E+03,
     +  .662088E+03, .492728E+03, .366695E+03, .271724E+03,
     +  .202227E+03, .150504E+03, .112045E+03, .834357E+02,
     +  .621670E+02, .463855E+02, .346199E+02, .258665E+02,
     +  .193545E+02, .145021E+02, .108846E+02, .818058E+01,
     +  .616000E+01, .464363E+01, .350465E+01, .264687E+01,
     +  .200030E+01, .151184E+01, .114446E+01, .865170E+00,
     +  .655960E+00, .497458E+00, .378797E+00, .289567E+00 /
        DATA (UPDI(I),I=5877,5928) /
     +  .222384E+00, .171555E+00, .132865E+00, .103155E+00,
     +  .801684E-01, .622370E-01, .481858E-01, .371416E-01,
     +  .284679E-01, .216689E-01, .163589E-01, .122548E-01,
     +  .907620E-02, .664911E-02, .481435E-02, .344061E-02,
     +  .242435E-02, .168142E-02, .114608E-02, .765923E-03,
     +  .500887E-03, .319083E-03, .198294E-03, .119068E-03,
     +  .692118E-04, .391913E-04, .225454E-04, .143467E-04,
     +  .100754E-04, .702543E-05, .481763E-05, .319410E-05,
     +  .201286E-05, .116977E-05, .599810E-06, .248225E-06,
     +  .677561E-07, .597699E-08, .000000E+00, .926238E+06,
     +  .704238E+06, .526727E+06, .393705E+06, .294165E+06,
     +  .219640E+06, .163929E+06, .122263E+06, .911490E+05,
     +  .679042E+05, .505650E+05, .376262E+05, .279853E+05 /
        DATA (UPDI(I),I=5929,5980) /
     +  .207997E+05, .154518E+05, .114708E+05, .851146E+04,
     +  .631122E+04, .467769E+04, .346458E+04, .256496E+04,
     +  .189770E+04, .140351E+04, .103742E+04, .766585E+03,
     +  .566108E+03, .418034E+03, .307297E+03, .226883E+03,
     +  .167497E+03, .123683E+03, .913469E+02, .674976E+02,
     +  .499443E+02, .369628E+02, .273843E+02, .203166E+02,
     +  .150942E+02, .112330E+02, .837136E+01, .625094E+01,
     +  .467329E+01, .349836E+01, .262119E+01, .196567E+01,
     +  .147471E+01, .110856E+01, .832469E+00, .627260E+00,
     +  .472903E+00, .358076E+00, .272211E+00, .207870E+00,
     +  .159407E+00, .122675E+00, .946050E-01, .730023E-01,
     +  .562577E-01, .432289E-01, .330680E-01, .251530E-01,
     +  .190014E-01, .142376E-01, .105874E-01, .778424E-02 /
        DATA (UPDI(I),I=5981,6032) /
     +  .566204E-02, .407112E-02, .288990E-02, .202322E-02,
     +  .139482E-02, .945649E-03, .629245E-03, .410365E-03,
     +  .261359E-03, .163076E-03, .990109E-04, .588768E-04,
     +  .347481E-04, .212210E-04, .141611E-04, .100804E-04,
     +  .709503E-05, .487984E-05, .322924E-05, .201762E-05,
     +  .115542E-05, .579312E-06, .232516E-06, .612796E-07,
     +  .557394E-08, .000000E+00, .123051E+07, .931283E+06,
     +  .692778E+06, .514998E+06, .382664E+06, .284122E+06,
     +  .210855E+06, .156361E+06, .115892E+06, .858294E+05,
     +  .635316E+05, .469892E+05, .347351E+05, .256561E+05,
     +  .189395E+05, .139701E+05, .102988E+05, .758635E+04,
     +  .558527E+04, .410882E+04, .302105E+04, .221959E+04,
     +  .162998E+04, .119619E+04, .877485E+03, .643223E+03 /
        DATA (UPDI(I),I=6033,6084) /
     +  .471436E+03, .343898E+03, .251963E+03, .184575E+03,
     +  .135225E+03, .990823E+02, .726277E+02, .533084E+02,
     +  .391318E+02, .287544E+02, .211579E+02, .155900E+02,
     +  .115066E+02, .850490E+01, .629888E+01, .467118E+01,
     +  .346900E+01, .257902E+01, .191947E+01, .142961E+01,
     +  .106724E+01, .796169E+00, .596203E+00, .446835E+00,
     +  .336410E+00, .254298E+00, .193069E+00, .147164E+00,
     +  .112531E+00, .861984E-01, .660464E-01, .505272E-01,
     +  .385371E-01, .292586E-01, .220886E-01, .165625E-01,
     +  .123184E-01, .909399E-02, .663823E-02, .479460E-02,
     +  .342386E-02, .241447E-02, .167985E-02, .115148E-02,
     +  .776794E-03, .514924E-03, .335129E-03, .213605E-03,
     +  .133975E-03, .823355E-04, .500769E-04, .306519E-04 /
        DATA (UPDI(I),I=6085,6136) /
     +  .195786E-04, .134581E-04, .963652E-05, .679518E-05,
     +  .465780E-05, .305935E-05, .188739E-05, .106185E-05,
     +  .519699E-06, .202137E-06, .514601E-07, .478936E-08,
     +  .000000E+00, .160718E+07, .121102E+07, .896204E+06,
     +  .662741E+06, .489835E+06, .361748E+06, .267006E+06,
     +  .196913E+06, .145135E+06, .106882E+06, .786623E+05,
     +  .578435E+05, .425074E+05, .312101E+05, .229003E+05,
     +  .167883E+05, .122994E+05, .900301E+04, .658584E+04,
     +  .481347E+04, .351582E+04, .256584E+04, .187148E+04,
     +  .136397E+04, .993565E+03, .723141E+03, .526205E+03,
     +  .381017E+03, .277101E+03, .201475E+03, .146491E+03,
     +  .106518E+03, .774740E+02, .564235E+02, .410925E+02,
     +  .299562E+02, .218666E+02, .159835E+02, .117026E+02 /
        DATA (UPDI(I),I=6137,6188) /
     +  .858073E+01, .630456E+01, .463860E+01, .341806E+01,
     +  .252185E+01, .186305E+01, .137769E+01, .102149E+01,
     +  .757072E+00, .563437E+00, .419778E+00, .314223E+00,
     +  .236168E+00, .178255E+00, .135045E+00, .102602E+00,
     +  .780647E-01, .593951E-01, .451116E-01, .341543E-01,
     +  .257396E-01, .192885E-01, .143570E-01, .106003E-01,
     +  .776987E-02, .563165E-02, .403960E-02, .286545E-02,
     +  .200782E-02, .138859E-02, .946731E-03, .635797E-03,
     +  .420130E-03, .273117E-03, .174404E-03, .110092E-03,
     +  .685474E-04, .426169E-04, .269243E-04, .177847E-04,
     +  .124512E-04, .892568E-05, .627765E-05, .427306E-05,
     +  .277719E-05, .168800E-05, .931501E-06, .444634E-06,
     +  .167563E-06, .412450E-07, .391298E-08, .000000E+00 /
        DATA (UPDI(I),I=6189,6240) /
     +  .206654E+07, .155058E+07, .114176E+07, .840082E+06,
     +  .617739E+06, .453855E+06, .333238E+06, .244459E+06,
     +  .179213E+06, .131262E+06, .960735E+05, .702531E+05,
     +  .513349E+05, .374756E+05, .273377E+05, .199233E+05,
     +  .145088E+05, .105559E+05, .767421E+04, .557389E+04,
     +  .404541E+04, .293334E+04, .212554E+04, .153886E+04,
     +  .111341E+04, .804816E+03, .581583E+03, .418116E+03,
     +  .301917E+03, .217937E+03, .157303E+03, .113535E+03,
     +  .819607E+02, .592419E+02, .428161E+02, .309732E+02,
     +  .224342E+02, .162712E+02, .118205E+02, .859981E+01,
     +  .626965E+01, .457750E+01, .334744E+01, .245139E+01,
     +  .179788E+01, .132018E+01, .972296E+00, .715964E+00,
     +  .529584E+00, .392220E+00, .291899E+00, .218123E+00 /
        DATA (UPDI(I),I=6241,6292) /
     +  .163662E+00, .123229E+00, .930233E-01, .703027E-01,
     +  .531173E-01, .400559E-01, .301069E-01, .225243E-01,
     +  .167562E-01, .123822E-01, .907674E-02, .660653E-02,
     +  .475532E-02, .338808E-02, .238773E-02, .166283E-02,
     +  .114350E-02, .775783E-03, .518945E-03, .342087E-03,
     +  .222336E-03, .142403E-03, .905719E-04, .571706E-04,
     +  .362946E-04, .235550E-04, .159482E-04, .112855E-04,
     +  .807271E-05, .564652E-05, .380788E-05, .244420E-05,
     +  .146166E-05, .790400E-06, .367780E-06, .134312E-06,
     +  .320045E-07, .308834E-08, .000000E+00, .261873E+07,
     +  .195693E+07, .143401E+07, .104998E+07, .768271E+06,
     +  .561638E+06, .410291E+06, .299447E+06, .218387E+06,
     +  .159116E+06, .115841E+06, .842521E+05, .612278E+05 /
        DATA (UPDI(I),I=6293,6344) /
     +  .444505E+05, .322436E+05, .233650E+05, .169169E+05,
     +  .122358E+05, .884261E+04, .638380E+04, .460484E+04,
     +  .331824E+04, .238927E+04, .171871E+04, .123545E+04,
     +  .887125E+03, .636776E+03, .454647E+03, .326038E+03,
     +  .233710E+03, .167496E+03, .120029E+03, .860215E+02,
     +  .617241E+02, .442805E+02, .317941E+02, .228559E+02,
     +  .164521E+02, .118616E+02, .856433E+01, .619665E+01,
     +  .449030E+01, .325934E+01, .236951E+01, .172549E+01,
     +  .125831E+01, .920617E+00, .673590E+00, .495216E+00,
     +  .364598E+00, .269771E+00, .200417E+00, .149484E+00,
     +  .111861E+00, .838993E-01, .629839E-01, .472591E-01,
     +  .353869E-01, .264074E-01, .196148E-01, .144872E-01,
     +  .106294E-01, .773707E-02, .559275E-02, .399839E-02 /
        DATA (UPDI(I),I=6345,6396) /
     +  .283016E-02, .198207E-02, .137226E-02, .938710E-03,
     +  .634008E-03, .422708E-03, .278198E-03, .180952E-03,
     +  .116372E-03, .746456E-04, .477773E-04, .309238E-04,
     +  .205211E-04, .141411E-04, .100596E-04, .716327E-05,
     +  .497264E-05, .331712E-05, .210011E-05, .123453E-05,
     +  .653758E-06, .296464E-06, .104954E-06, .242428E-07,
     +  .237603E-08, .000000E+00, .216361E+05, .183321E+05,
     +  .154736E+05, .130607E+05, .110241E+05, .930501E+04,
     +  .785404E+04, .662934E+04, .559563E+04, .472312E+04,
     +  .398667E+04, .336507E+04, .284042E+04, .239758E+04,
     +  .202381E+04, .170834E+04, .144207E+04, .121733E+04,
     +  .102764E+04, .867547E+03, .732428E+03, .618390E+03,
     +  .522146E+03, .440922E+03, .372375E+03, .314528E+03 /
        DATA (UPDI(I),I=6397,6448) /
     +  .265714E+03, .223987E+03, .189329E+03, .160083E+03,
     +  .135407E+03, .114588E+03, .970237E+02, .822477E+02,
     +  .697512E+02, .592150E+02, .503311E+02, .428391E+02,
     +  .365186E+02, .311813E+02, .266771E+02, .228657E+02,
     +  .196372E+02, .168976E+02, .145681E+02, .125831E+02,
     +  .108933E+02, .943678E+01, .819341E+01, .711610E+01,
     +  .618954E+01, .538751E+01, .469167E+01, .408663E+01,
     +  .355948E+01, .309940E+01, .269727E+01, .234538E+01,
     +  .203717E+01, .176706E+01, .153025E+01, .132262E+01,
     +  .114060E+01, .981776E+00, .841842E+00, .719481E+00,
     +  .612631E+00, .519485E+00, .438456E+00, .368144E+00,
     +  .307312E+00, .254863E+00, .209797E+00, .171217E+00,
     +  .138666E+00, .110963E+00, .877301E-01, .684018E-01 /
        DATA (UPDI(I),I=6449,6500) /
     +  .524725E-01, .394901E-01, .290493E-01, .207987E-01,
     +  .143661E-01, .951601E-02, .595577E-02, .345028E-02,
     +  .178749E-02, .776364E-03, .244574E-03, .351655E-04,
     +  .000000E+00, .499991E+06, .397070E+06, .312212E+06,
     +  .245415E+06, .192949E+06, .151656E+06, .119228E+06,
     +  .937077E+05, .736685E+05, .578994E+05, .455184E+05,
     +  .357761E+05, .281277E+05, .221095E+05, .173850E+05,
     +  .136673E+05, .107490E+05, .845244E+04, .664965E+04,
     +  .523078E+04, .411685E+04, .323999E+04, .255151E+04,
     +  .200946E+04, .158375E+04, .124849E+04, .985074E+03,
     +  .775030E+03, .612563E+03, .484470E+03, .383742E+03,
     +  .304265E+03, .241720E+03, .192445E+03, .153519E+03,
     +  .122740E+03, .984519E+02, .792009E+02, .639632E+02 /
        DATA (UPDI(I),I=6501,6552) /
     +  .518349E+02, .421990E+02, .344862E+02, .283117E+02,
     +  .233358E+02, .193189E+02, .160539E+02, .134028E+02,
     +  .112140E+02, .942349E+01, .793169E+01, .669712E+01,
     +  .566581E+01, .480157E+01, .407459E+01, .346304E+01,
     +  .294306E+01, .250161E+01, .212592E+01, .180565E+01,
     +  .153226E+01, .129860E+01, .109885E+01, .927851E+00,
     +  .782220E+00, .656862E+00, .549816E+00, .458460E+00,
     +  .380670E+00, .314534E+00, .258480E+00, .211088E+00,
     +  .171202E+00, .137754E+00, .109808E+00, .868105E-01,
     +  .677427E-01, .521680E-01, .395712E-01, .294829E-01,
     +  .215136E-01, .153047E-01, .105607E-01, .695410E-02,
     +  .442312E-02, .263982E-02, .144638E-02, .700300E-03,
     +  .278713E-03, .792016E-04, .114094E-04, .000000E+00 /
        DATA (UPDI(I),I=6553,6604) /
     +  .117445E+07, .924136E+06, .719052E+06, .559195E+06,
     +  .434885E+06, .338036E+06, .262759E+06, .204139E+06,
     +  .158599E+06, .123152E+06, .956295E+05, .742175E+05,
     +  .576009E+05, .446802E+05, .346588E+05, .268704E+05,
     +  .208332E+05, .161437E+05, .125108E+05, .969033E+04,
     +  .750658E+04, .581215E+04, .450103E+04, .348428E+04,
     +  .269796E+04, .208846E+04, .161733E+04, .124799E+04,
     +  .967177E+03, .749694E+03, .581712E+03, .451640E+03,
     +  .351184E+03, .273585E+03, .213475E+03, .166911E+03,
     +  .130908E+03, .102968E+03, .813109E+02, .644399E+02,
     +  .513166E+02, .410367E+02, .329789E+02, .266224E+02,
     +  .215967E+02, .175955E+02, .144115E+02, .118346E+02,
     +  .976723E+01, .807757E+01, .670494E+01, .557918E+01 /
        DATA (UPDI(I),I=6605,6656) /
     +  .465241E+01, .388672E+01, .325337E+01, .272349E+01,
     +  .228088E+01, .191025E+01, .159922E+01, .133786E+01,
     +  .111789E+01, .932731E+00, .776560E+00, .645560E+00,
     +  .534474E+00, .441045E+00, .362505E+00, .296648E+00,
     +  .241511E+00, .195506E+00, .157221E+00, .125521E+00,
     +  .993788E-01, .779001E-01, .605323E-01, .463909E-01,
     +  .350555E-01, .260670E-01, .190160E-01, .135668E-01,
     +  .941821E-02, .632031E-02, .402621E-02, .248696E-02,
     +  .143476E-02, .755669E-03, .348992E-03, .131018E-03,
     +  .350284E-04, .504597E-05, .000000E+00, .222421E+07,
     +  .173703E+07, .133998E+07, .103304E+07, .796309E+06,
     +  .613438E+06, .472498E+06, .363700E+06, .279911E+06,
     +  .215279E+06, .165542E+06, .127207E+06, .977309E+05 /
        DATA (UPDI(I),I=6657,6708) /
     +  .750305E+05, .575917E+05, .441731E+05, .338743E+05,
     +  .259569E+05, .198863E+05, .152238E+05, .116524E+05,
     +  .891213E+04, .681544E+04, .520842E+04, .398008E+04,
     +  .303947E+04, .232138E+04, .176564E+04, .134855E+04,
     +  .102985E+04, .786977E+03, .601560E+03, .460350E+03,
     +  .352872E+03, .270823E+03, .208234E+03, .160568E+03,
     +  .124160E+03, .963747E+02, .750778E+02, .587721E+02,
     +  .462068E+02, .365129E+02, .289900E+02, .231356E+02,
     +  .185490E+02, .149557E+02, .120929E+02, .983110E+01,
     +  .801072E+01, .655377E+01, .537657E+01, .442146E+01,
     +  .364384E+01, .300933E+01, .248590E+01, .205465E+01,
     +  .169848E+01, .140361E+01, .115918E+01, .956199E+00,
     +  .787631E+00, .647327E+00, .531213E+00, .434067E+00 /
        DATA (UPDI(I),I=6709,6760) /
     +  .353470E+00, .286643E+00, .231384E+00, .185770E+00,
     +  .148255E+00, .117492E+00, .924033E-01, .720327E-01,
     +  .555599E-01, .424587E-01, .319733E-01, .237186E-01,
     +  .172958E-01, .123574E-01, .862104E-02, .583945E-02,
     +  .381012E-02, .234839E-02, .140822E-02, .784880E-03,
     +  .396984E-03, .174641E-03, .617357E-04, .155110E-04,
     +  .223152E-05, .000000E+00, .373774E+07, .290019E+07,
     +  .222066E+07, .169914E+07, .129979E+07, .993582E+06,
     +  .759306E+06, .579832E+06, .442649E+06, .337657E+06,
     +  .257485E+06, .196187E+06, .149430E+06, .113719E+06,
     +  .865098E+05, .657524E+05, .499559E+05, .379196E+05,
     +  .287716E+05, .218100E+05, .165261E+05, .125106E+05,
     +  .946717E+04, .715763E+04, .540971E+04, .408495E+04 /
        DATA (UPDI(I),I=6761,6812) /
     +  .308412E+04, .231793E+04, .174912E+04, .131940E+04,
     +  .995577E+03, .751278E+03, .567386E+03, .429139E+03,
     +  .324876E+03, .246353E+03, .187303E+03, .142790E+03,
     +  .109256E+03, .838978E+02, .647365E+02, .501709E+02,
     +  .390818E+02, .305933E+02, .240746E+02, .190363E+02,
     +  .151409E+02, .120785E+02, .969038E+01, .779348E+01,
     +  .629461E+01, .509911E+01, .414134E+01, .337136E+01,
     +  .275051E+01, .224479E+01, .183319E+01, .149740E+01,
     +  .122276E+01, .997871E+00, .813382E+00, .662030E+00,
     +  .537576E+00, .435842E+00, .351776E+00, .282906E+00,
     +  .226526E+00, .180507E+00, .143020E+00, .112602E+00,
     +  .880017E-01, .682236E-01, .523994E-01, .397946E-01,
     +  .299268E-01, .221577E-01, .161463E-01, .115532E-01 /
        DATA (UPDI(I),I=6813,6864) /
     +  .808911E-02, .552125E-02, .365072E-02, .231744E-02,
     +  .138332E-02, .806050E-03, .434571E-03, .211432E-03,
     +  .888434E-04, .297156E-04, .707753E-05, .101479E-05,
     +  .000000E+00, .581303E+07, .448436E+07, .341074E+07,
     +  .259216E+07, .196935E+07, .149499E+07, .113446E+07,
     +  .860155E+06, .651903E+06, .493640E+06, .373628E+06,
     +  .282534E+06, .213544E+06, .161246E+06, .121690E+06,
     +  .917466E+05, .691317E+05, .520370E+05, .391462E+05,
     +  .294170E+05, .220925E+05, .165735E+05, .124259E+05,
     +  .930615E+04, .696576E+04, .520813E+04, .389256E+04,
     +  .289507E+04, .216166E+04, .161311E+04, .120383E+04,
     +  .898272E+03, .670627E+03, .501337E+03, .375022E+03,
     +  .280955E+03, .210995E+03, .158865E+03, .120037E+03 /
        DATA (UPDI(I),I=6865,6916) /
     +  .910203E+02, .693471E+02, .530679E+02, .408182E+02,
     +  .315534E+02, .245216E+02, .191511E+02, .150471E+02,
     +  .118586E+02, .940093E+01, .747153E+01, .596437E+01,
     +  .477612E+01, .383492E+01, .308679E+01, .249006E+01,
     +  .200958E+01, .162286E+01, .131091E+01, .105861E+01,
     +  .854322E+00, .688612E+00, .554199E+00, .444919E+00,
     +  .356611E+00, .284483E+00, .226087E+00, .178854E+00,
     +  .140771E+00, .110134E+00, .855910E-01, .660024E-01,
     +  .504657E-01, .382087E-01, .285856E-01, .211654E-01,
     +  .154150E-01, .110393E-01, .775437E-02, .532282E-02,
     +  .355588E-02, .229598E-02, .141862E-02, .820353E-03,
     +  .464828E-03, .242642E-03, .113706E-03, .457427E-04,
     +  .145297E-04, .329921E-05, .470164E-06, .000000E+00 /
        DATA (UPDI(I),I=6917,6968) /
     +  .893617E+07, .685181E+07, .517472E+07, .390490E+07,
     +  .294527E+07, .221958E+07, .167182E+07, .125812E+07,
     +  .946252E+06, .711021E+06, .533942E+06, .400564E+06,
     +  .300307E+06, .224906E+06, .168318E+06, .125829E+06,
     +  .939948E+05, .701332E+05, .522877E+05, .389360E+05,
     +  .289699E+05, .215281E+05, .159848E+05, .118541E+05,
     +  .878373E+04, .649998E+04, .480721E+04, .353661E+04,
     +  .261180E+04, .192734E+04, .142192E+04, .104870E+04,
     +  .773628E+03, .571378E+03, .422144E+03, .312308E+03,
     +  .231559E+03, .172112E+03, .128356E+03, .960566E+02,
     +  .722216E+02, .545407E+02, .413976E+02, .315812E+02,
     +  .242218E+02, .186709E+02, .144809E+02, .112657E+02,
     +  .881778E+01, .691965E+01, .545489E+01, .431418E+01 /
        DATA (UPDI(I),I=6969,7020) /
     +  .342152E+01, .272046E+01, .216780E+01, .172830E+01,
     +  .137880E+01, .110028E+01, .877737E+00, .699733E+00,
     +  .557103E+00, .442831E+00, .351072E+00, .277850E+00,
     +  .218804E+00, .171618E+00, .133955E+00, .103996E+00,
     +  .802253E-01, .614517E-01, .466857E-01, .351489E-01,
     +  .261890E-01, .192672E-01, .140194E-01, .100238E-01,
     +  .703974E-02, .484331E-02, .325135E-02, .212012E-02,
     +  .133282E-02, .798965E-03, .445494E-03, .244810E-03,
     +  .123391E-03, .555480E-04, .213620E-04, .643890E-05,
     +  .139496E-05, .196467E-06, .000000E+00, .131695E+08,
     +  .100393E+08, .753093E+07, .564428E+07, .422779E+07,
     +  .316389E+07, .236622E+07, .176795E+07, .132003E+07,
     +  .984599E+06, .733858E+06, .546382E+06, .406475E+06 /
        DATA (UPDI(I),I=7021,7072) /
     +  .302048E+06, .224258E+06, .166301E+06, .123210E+06,
     +  .911686E+05, .673948E+05, .497542E+05, .366942E+05,
     +  .270251E+05, .198836E+05, .146089E+05, .107225E+05,
     +  .785795E+04, .575431E+04, .419029E+04, .306280E+04,
     +  .223656E+04, .163242E+04, .119088E+04, .868749E+03,
     +  .634411E+03, .463318E+03, .338771E+03, .248199E+03,
     +  .182270E+03, .134283E+03, .992658E+02, .737175E+02,
     +  .549854E+02, .412199E+02, .310587E+02, .235284E+02,
     +  .179145E+02, .137259E+02, .105489E+02, .815791E+01,
     +  .632538E+01, .492743E+01, .385127E+01, .301870E+01,
     +  .237224E+01, .186830E+01, .147222E+01, .116086E+01,
     +  .915583E+00, .721861E+00, .568708E+00, .447425E+00,
     +  .351401E+00, .275209E+00, .215142E+00, .167300E+00 /
        DATA (UPDI(I),I=7073,7124) /
     +  .129545E+00, .997948E-01, .764383E-01, .581551E-01,
     +  .439140E-01, .328722E-01, .243718E-01, .178710E-01,
     +  .129284E-01, .924350E-02, .648686E-02, .446628E-02,
     +  .300820E-02, .197362E-02, .125503E-02, .767244E-03,
     +  .445425E-03, .238683E-03, .126942E-03, .616091E-04,
     +  .265473E-04, .971685E-05, .275886E-05, .564872E-06,
     +  .778748E-07, .000000E+00, .187112E+08, .141859E+08,
     +  .105732E+08, .787316E+07, .585857E+07, .435524E+07,
     +  .323526E+07, .240083E+07, .178018E+07, .131854E+07,
     +  .975778E+06, .721280E+06, .532667E+06, .392892E+06,
     +  .289507E+06, .213049E+06, .156617E+06, .114975E+06,
     +  .843097E+05, .617339E+05, .451504E+05, .329719E+05,
     +  .240496E+05, .175146E+05, .127398E+05, .925088E+04 /
        DATA (UPDI(I),I=7125,7176) /
     +  .671119E+04, .484002E+04, .350337E+04, .253302E+04,
     +  .183014E+04, .132142E+04, .953854E+03, .689154E+03,
     +  .497826E+03, .359992E+03, .260794E+03, .189352E+03,
     +  .137903E+03, .100766E+03, .739634E+02, .545268E+02,
     +  .403989E+02, .300855E+02, .225259E+02, .169524E+02,
     +  .128393E+02, .975391E+01, .745735E+01, .571649E+01,
     +  .440296E+01, .340282E+01, .263745E+01, .204958E+01,
     +  .159621E+01, .124385E+01, .969881E+00, .756428E+00,
     +  .589701E+00, .459353E+00, .357284E+00, .277385E+00,
     +  .214710E+00, .165871E+00, .127431E+00, .974588E-01,
     +  .741326E-01, .560491E-01, .420762E-01, .313368E-01,
     +  .231244E-01, .168915E-01, .121953E-01, .867960E-02,
     +  .610079E-02, .420426E-02, .283920E-02, .187299E-02 /
        DATA (UPDI(I),I=7177,7228) /
     +  .120150E-02, .745411E-03, .443342E-03, .249332E-03,
     +  .128280E-03, .660715E-04, .309030E-04, .127611E-04,
     +  .445578E-05, .119340E-05, .230658E-06, .306908E-07,
     +  .000000E+00, .257600E+08, .194286E+08, .143922E+08,
     +  .106507E+08, .787574E+07, .581774E+07, .429391E+07,
     +  .316574E+07, .233188E+07, .171566E+07, .126105E+07,
     +  .925761E+06, .678908E+06, .497224E+06, .363753E+06,
     +  .265738E+06, .193902E+06, .141275E+06, .102802E+06,
     +  .746888E+05, .541919E+05, .392558E+05, .283975E+05,
     +  .205080E+05, .147897E+05, .106458E+05, .765459E+04,
     +  .546977E+04, .392265E+04, .280952E+04, .201042E+04,
     +  .143741E+04, .102723E+04, .734665E+03, .525218E+03,
     +  .375822E+03, .269364E+03, .193471E+03, .139370E+03 /
        DATA (UPDI(I),I=7229,7280) /
     +  .100722E+03, .731148E+02, .533048E+02, .390550E+02,
     +  .287623E+02, .212968E+02, .158504E+02, .118733E+02,
     +  .892108E+01, .674671E+01, .511572E+01, .389792E+01,
     +  .298033E+01, .228540E+01, .175714E+01, .135391E+01,
     +  .104385E+01, .805295E+00, .621379E+00, .479239E+00,
     +  .369291E+00, .284117E+00, .218161E+00, .166989E+00,
     +  .127554E+00, .968650E-01, .732117E-01, .550196E-01,
     +  .410852E-01, .304513E-01, .223817E-01, .162920E-01,
     +  .117326E-01, .834599E-02, .584787E-02, .404383E-02,
     +  .273862E-02, .181542E-02, .117397E-02, .736993E-03,
     +  .446505E-03, .258634E-03, .141040E-03, .696756E-04,
     +  .347986E-04, .157107E-04, .623042E-05, .208202E-05,
     +  .527033E-06, .958726E-07, .120527E-07, .000000E+00 /
        DATA (UPDI(I),I=7281,7332) /
     +  .345013E+08, .258929E+08, .190683E+08, .140277E+08,
     +  .103106E+08, .757016E+07, .555293E+07, .406851E+07,
     +  .297792E+07, .217699E+07, .158975E+07, .115940E+07,
     +  .844571E+06, .614371E+06, .446362E+06, .323814E+06,
     +  .234601E+06, .169698E+06, .122578E+06, .883941E+05,
     +  .636493E+05, .457510E+05, .328357E+05, .235234E+05,
     +  .168257E+05, .120102E+05, .856239E+04, .606480E+04,
     +  .431099E+04, .305993E+04, .216951E+04, .153669E+04,
     +  .108771E+04, .770405E+03, .545335E+03, .386313E+03,
     +  .274070E+03, .194831E+03, .138891E+03, .993255E+02,
     +  .713422E+02, .514632E+02, .373063E+02, .271839E+02,
     +  .199154E+02, .146662E+02, .108715E+02, .808295E+01,
     +  .604973E+01, .453986E+01, .342374E+01, .259113E+01 /
        DATA (UPDI(I),I=7333,7384) /
     +  .196681E+01, .149688E+01, .114171E+01, .871371E+00,
     +  .665445E+00, .508275E+00, .388026E+00, .295948E+00,
     +  .225346E+00, .171234E+00, .129687E+00, .980057E-01,
     +  .736148E-01, .550205E-01, .408789E-01, .301701E-01,
     +  .220934E-01, .160378E-01, .115247E-01, .818905E-02,
     +  .574447E-02, .396630E-02, .270094E-02, .179948E-02,
     +  .117226E-02, .744015E-03, .457713E-03, .271217E-03,
     +  .153268E-03, .812001E-04, .385810E-04, .187220E-04,
     +  .817958E-05, .312517E-05, .100364E-05, .240793E-06,
     +  .410504E-07, .472972E-08, .000000E+00, .450976E+08,
     +  .336853E+08, .246672E+08, .180433E+08, .131855E+08,
     +  .962457E+07, .701812E+07, .511128E+07, .371846E+07,
     +  .270166E+07, .196060E+07, .142083E+07, .102837E+07 /
        DATA (UPDI(I),I=7385,7436) /
     +  .743212E+06, .536400E+06, .386526E+06, .278126E+06,
     +  .199790E+06, .143299E+06, .102597E+06, .733378E+05,
     +  .523247E+05, .372701E+05, .264950E+05, .188025E+05,
     +  .133138E+05, .941447E+04, .661223E+04, .466034E+04,
     +  .327939E+04, .230466E+04, .161782E+04, .113467E+04,
     +  .796225E+03, .558284E+03, .391698E+03, .275187E+03,
     +  .193701E+03, .136713E+03, .967893E+02, .688206E+02,
     +  .491429E+02, .352638E+02, .254359E+02, .184470E+02,
     +  .134482E+02, .986940E+01, .726473E+01, .538384E+01,
     +  .400045E+01, .298757E+01, .223915E+01, .168326E+01,
     +  .126878E+01, .958447E+00, .724516E+00, .548012E+00,
     +  .414576E+00, .313459E+00, .236772E+00, .178538E+00,
     +  .134339E+00, .100735E+00, .753655E-01, .560309E-01 /
        DATA (UPDI(I),I=7437,7488) /
     +  .414423E-01, .304637E-01, .222387E-01, .161034E-01,
     +  .115551E-01, .820469E-02, .575796E-02, .398721E-02,
     +  .271586E-02, .182343E-02, .119669E-02, .767221E-03,
     +  .478684E-03, .289102E-03, .167894E-03, .927895E-04,
     +  .478982E-04, .219689E-04, .103860E-04, .440595E-05,
     +  .162851E-05, .505007E-06, .115318E-06, .183569E-07,
     +  .186226E-08, .000000E+00, .576798E+08, .428880E+08,
     +  .312356E+08, .227226E+08, .165126E+08, .119854E+08,
     +  .868976E+07, .629226E+07, .455083E+07, .328686E+07,
     +  .237094E+07, .170775E+07, .122840E+07, .882214E+06,
     +  .632668E+06, .452954E+06, .323784E+06, .231039E+06,
     +  .164587E+06, .117028E+06, .830660E+05, .588429E+05,
     +  .416082E+05, .293601E+05, .206785E+05, .145293E+05 /
        DATA (UPDI(I),I=7489,7540) /
     +  .101935E+05, .710146E+04, .496441E+04, .346443E+04,
     +  .241412E+04, .168008E+04, .116799E+04, .812325E+03,
     +  .564405E+03, .392350E+03, .273073E+03, .190401E+03,
     +  .133104E+03, .933304E+02, .657217E+02, .464767E+02,
     +  .330279E+02, .235932E+02, .169460E+02, .122355E+02,
     +  .889426E+01, .648482E+01, .476092E+01, .350456E+01,
     +  .259307E+01, .192566E+01, .143440E+01, .107138E+01,
     +  .802004E+00, .600799E+00, .450352E+00, .337634E+00,
     +  .252988E+00, .189369E+00, .141498E+00, .105496E+00,
     +  .783768E-01, .580923E-01, .427794E-01, .313359E-01,
     +  .228083E-01, .164830E-01, .118129E-01, .838673E-02,
     +  .589006E-02, .408689E-02, .279688E-02, .188171E-02,
     +  .124730E-02, .807547E-03, .510358E-03, .313596E-03 /
        DATA (UPDI(I),I=7541,7592) /
     +  .186324E-03, .106308E-03, .576249E-04, .290904E-04,
     +  .129514E-04, .598309E-05, .247379E-05, .888503E-06,
     +  .267287E-06, .584165E-07, .867818E-08, .739742E-09,
     +  .000000E+00, .723391E+08, .535534E+08, .387986E+08,
     +  .280746E+08, .202923E+08, .146488E+08, .105623E+08,
     +  .760557E+07, .546959E+07, .392785E+07, .281686E+07,
     +  .201702E+07, .144219E+07, .102949E+07, .733749E+06,
     +  .522049E+06, .370809E+06, .262892E+06, .186053E+06,
     +  .131411E+06, .926439E+05, .651761E+05, .457633E+05,
     +  .320617E+05, .224169E+05, .156337E+05, .108856E+05,
     +  .752444E+04, .521886E+04, .361294E+04, .249711E+04,
     +  .172346E+04, .118803E+04, .819197E+03, .564216E+03,
     +  .388752E+03, .268146E+03, .185274E+03, .128337E+03 /
        DATA (UPDI(I),I=7593,7644) /
     +  .891608E+02, .622065E+02, .435843E+02, .306863E+02,
     +  .217186E+02, .154564E+02, .110582E+02, .796595E+01,
     +  .575566E+01, .418813E+01, .305567E+01, .224119E+01,
     +  .164994E+01, .121846E+01, .902322E+00, .669706E+00,
     +  .497456E+00, .369752E+00, .274880E+00, .204238E+00,
     +  .151594E+00, .112317E+00, .830296E-01, .611587E-01,
     +  .449408E-01, .328053E-01, .238167E-01, .171792E-01,
     +  .123009E-01, .873290E-02, .614034E-02, .426972E-02,
     +  .293232E-02, .198553E-02, .132113E-02, .865746E-03,
     +  .553788E-03, .345575E-03, .209514E-03, .122725E-03,
     +  .689631E-04, .367723E-04, .182259E-04, .792844E-05,
     +  .358914E-05, .145134E-05, .508559E-06, .148960E-06,
     +  .313525E-07, .436478E-08, .298432E-09, .000000E+00 /
        DATA (UPDI(I),I=7645,7696) /
     +  .236468E+05, .260861E+05, .208565E+05, .166777E+05,
     +  .133387E+05, .106704E+05, .853786E+04, .683332E+04,
     +  .547069E+04, .438124E+04, .351006E+04, .281328E+04,
     +  .225589E+04, .180990E+04, .145295E+04, .116719E+04,
     +  .938340E+03, .755011E+03, .608090E+03, .490296E+03,
     +  .395810E+03, .319981E+03, .259091E+03, .210167E+03,
     +  .170831E+03, .139181E+03, .113695E+03, .928956E+02,
     +  .763852E+02, .630536E+02, .522779E+02, .435589E+02,
     +  .364961E+02, .307831E+02, .261308E+02, .223478E+02,
     +  .192653E+02, .167471E+02, .146832E+02, .129836E+02,
     +  .115782E+02, .104062E+02, .942106E+01, .858475E+01,
     +  .786698E+01, .724376E+01, .669815E+01, .621023E+01,
     +  .577463E+01, .537715E+01, .501482E+01, .468042E+01 /
        DATA (UPDI(I),I=7697,7748) /
     +  .436912E+01, .407676E+01, .379986E+01, .353564E+01,
     +  .328215E+01, .303814E+01, .280301E+01, .257662E+01,
     +  .235911E+01, .215079E+01, .195200E+01, .176391E+01,
     +  .158484E+01, .141620E+01, .125814E+01, .111072E+01,
     +  .973957E+00, .847780E+00, .732060E+00, .626612E+00,
     +  .531131E+00, .445251E+00, .369360E+00, .301934E+00,
     +  .243093E+00, .192338E+00, .149139E+00, .112939E+00,
     +  .831552E-01, .592164E-01, .403645E-01, .261299E-01,
     +  .157791E-01, .866680E-02, .415014E-02, .160020E-02,
     +  .415603E-03, .410801E-04, .000000E+00, .287945E+05,
     +  .418813E+05, .332039E+05, .263209E+05, .208700E+05,
     +  .165466E+05, .131227E+05, .104069E+05, .825595E+04,
     +  .654972E+04, .519829E+04, .412611E+04, .327676E+04 /
        DATA (UPDI(I),I=7749,7800) /
     +  .260278E+04, .206875E+04, .164487E+04, .130889E+04,
     +  .104210E+04, .830549E+03, .662468E+03, .529103E+03,
     +  .423065E+03, .338858E+03, .271842E+03, .218562E+03,
     +  .176111E+03, .142307E+03, .114996E+03, .935589E+02,
     +  .764113E+02, .627041E+02, .517116E+02, .429006E+02,
     +  .358303E+02, .301276E+02, .255218E+02, .217994E+02,
     +  .187743E+02, .163108E+02, .142892E+02, .126256E+02,
     +  .112413E+02, .100824E+02, .910033E+01, .826095E+01,
     +  .753443E+01, .690174E+01, .633882E+01, .583959E+01,
     +  .538693E+01, .497754E+01, .460243E+01, .425633E+01,
     +  .393423E+01, .363250E+01, .334799E+01, .307868E+01,
     +  .282302E+01, .258024E+01, .234985E+01, .213168E+01,
     +  .192567E+01, .173172E+01, .155066E+01, .138049E+01 /
        DATA (UPDI(I),I=7801,7852) /
     +  .122227E+01, .107581E+01, .940902E+00, .817253E+00,
     +  .704559E+00, .602437E+00, .510514E+00, .428317E+00,
     +  .355277E+00, .291545E+00, .235646E+00, .187501E+00,
     +  .146539E+00, .112163E+00, .837943E-01, .608181E-01,
     +  .426532E-01, .285898E-01, .181720E-01, .107510E-01,
     +  .577026E-02, .268964E-02, .100489E-02, .252887E-03,
     +  .252620E-04, .000000E+00, .794878E+05, .630700E+05,
     +  .495459E+05, .389155E+05, .305726E+05, .240155E+05,
     +  .188696E+05, .148252E+05, .116512E+05, .915660E+04,
     +  .719881E+04, .565995E+04, .445214E+04, .350266E+04,
     +  .275731E+04, .217125E+04, .171107E+04, .134912E+04,
     +  .106480E+04, .841049E+03, .665193E+03, .526701E+03,
     +  .417767E+03, .331896E+03, .264275E+03, .210905E+03 /
        DATA (UPDI(I),I=7853,7904) /
     +  .168807E+03, .135117E+03, .108916E+03, .881487E+02,
     +  .716958E+02, .586153E+02, .482186E+02, .399423E+02,
     +  .333179E+02, .280056E+02, .237406E+02, .202953E+02,
     +  .175050E+02, .152262E+02, .133593E+02, .118117E+02,
     +  .105210E+02, .943115E+01, .850310E+01, .770295E+01,
     +  .700912E+01, .639466E+01, .585240E+01, .536326E+01,
     +  .492328E+01, .452244E+01, .415485E+01, .381503E+01,
     +  .349906E+01, .320355E+01, .292628E+01, .266551E+01,
     +  .242021E+01, .218965E+01, .197339E+01, .177109E+01,
     +  .158236E+01, .140774E+01, .124506E+01, .109513E+01,
     +  .957514E+00, .831832E+00, .717609E+00, .614385E+00,
     +  .521631E+00, .438854E+00, .365483E+00, .300845E+00,
     +  .244947E+00, .196365E+00, .154915E+00, .119994E+00 /
        DATA (UPDI(I),I=7905,7956) /
     +  .909826E-01, .673095E-01, .483332E-01, .335119E-01,
     +  .221819E-01, .139064E-01, .810101E-02, .427214E-02,
     +  .195058E-02, .711108E-03, .174466E-03, .175805E-04,
     +  .000000E+00, .118295E+06, .931450E+05, .725406E+05,
     +  .564820E+05, .439861E+05, .342489E+05, .266729E+05,
     +  .207700E+05, .161776E+05, .125997E+05, .981634E+04,
     +  .764786E+04, .596090E+04, .464659E+04, .362404E+04,
     +  .282728E+04, .220728E+04, .172405E+04, .134793E+04,
     +  .105464E+04, .826233E+03, .648017E+03, .509121E+03,
     +  .400648E+03, .316011E+03, .249826E+03, .198097E+03,
     +  .157083E+03, .125473E+03, .100643E+03, .811418E+02,
     +  .657713E+02, .536553E+02, .440878E+02, .364878E+02,
     +  .304374E+02, .256125E+02, .217393E+02, .186202E+02 /
        DATA (UPDI(I),I=7957,8008) /
     +  .160862E+02, .140201E+02, .123149E+02, .108984E+02,
     +  .970713E+01, .869669E+01, .782910E+01, .707998E+01,
     +  .641955E+01, .583945E+01, .531876E+01, .485276E+01,
     +  .443048E+01, .404542E+01, .369165E+01, .336492E+01,
     +  .306160E+01, .277923E+01, .251584E+01, .227017E+01,
     +  .204123E+01, .182829E+01, .163079E+01, .144802E+01,
     +  .128030E+01, .112530E+01, .983577E+00, .854523E+00,
     +  .737588E+00, .632148E+00, .537612E+00, .453336E+00,
     +  .378732E+00, .313152E+00, .255849E+00, .206715E+00,
     +  .164386E+00, .128595E+00, .987275E-01, .741575E-01,
     +  .543066E-01, .385727E-01, .264319E-01, .172690E-01,
     +  .106713E-01, .611513E-02, .316419E-02, .141219E-02,
     +  .500721E-03, .119219E-03, .121397E-04, .000000E+00 /
        DATA (UPDI(I),I=8009,8060) /
     +  .171107E+06, .133820E+06, .103417E+06, .798996E+05,
     +  .617371E+05, .476916E+05, .368471E+05, .284626E+05,
     +  .219903E+05, .169872E+05, .131258E+05, .101414E+05,
     +  .783826E+04, .605844E+04, .468497E+04, .362358E+04,
     +  .280448E+04, .217142E+04, .168278E+04, .130500E+04,
     +  .101328E+04, .787618E+03, .613249E+03, .478255E+03,
     +  .373831E+03, .292881E+03, .230160E+03, .180866E+03,
     +  .143202E+03, .113869E+03, .910250E+02, .731689E+02,
     +  .592056E+02, .482661E+02, .396406E+02, .328232E+02,
     +  .274228E+02, .231151E+02, .196660E+02, .168790E+02,
     +  .146175E+02, .127597E+02, .112230E+02, .993591E+01,
     +  .884857E+01, .791887E+01, .711947E+01, .641784E+01,
     +  .580431E+01, .525621E+01, .476805E+01, .432796E+01 /
        DATA (UPDI(I),I=8061,8112) /
     +  .392879E+01, .356422E+01, .322963E+01, .292115E+01,
     +  .263604E+01, .237213E+01, .212786E+01, .190201E+01,
     +  .169358E+01, .150176E+01, .132559E+01, .116515E+01,
     +  .101797E+01, .884411E+00, .763690E+00, .655115E+00,
     +  .557939E+00, .471463E+00, .394950E+00, .327738E+00,
     +  .269119E+00, .218297E+00, .175075E+00, .138149E+00,
     +  .107196E+00, .815985E-01, .607397E-01, .440544E-01,
     +  .309661E-01, .209822E-01, .135389E-01, .825176E-02,
     +  .465519E-02, .236562E-02, .103327E-02, .356973E-03,
     +  .827012E-04, .850265E-05, .000000E+00, .162835E+06,
     +  .187221E+06, .143698E+06, .110254E+06, .845976E+05,
     +  .648907E+05, .497782E+05, .381743E+05, .292788E+05,
     +  .224509E+05, .172183E+05, .132032E+05, .101270E+05 /
        DATA (UPDI(I),I=8113,8164) /
     +  .776714E+04, .595948E+04, .457302E+04, .351108E+04,
     +  .269663E+04, .207279E+04, .159425E+04, .122759E+04,
     +  .946215E+03, .730523E+03, .564884E+03, .437786E+03,
     +  .340057E+03, .264955E+03, .206416E+03, .162053E+03,
     +  .127786E+03, .101310E+03, .807807E+02, .648500E+02,
     +  .524643E+02, .427687E+02, .351596E+02, .291713E+02,
     +  .244247E+02, .206458E+02, .176089E+02, .151566E+02,
     +  .131514E+02, .114998E+02, .101224E+02, .896337E+01,
     +  .797651E+01, .713143E+01, .639290E+01, .574991E+01,
     +  .517813E+01, .467123E+01, .421650E+01, .380618E+01,
     +  .343353E+01, .309358E+01, .278220E+01, .249636E+01,
     +  .223364E+01, .199224E+01, .177067E+01, .156768E+01,
     +  .138223E+01, .121312E+01, .106020E+01, .920927E+00 /
        DATA (UPDI(I),I=8165,8216) /
     +  .795427E+00, .682793E+00, .582209E+00, .492823E+00,
     +  .413848E+00, .344477E+00, .283987E+00, .231629E+00,
     +  .186577E+00, .148561E+00, .116346E+00, .895675E-01,
     +  .676153E-01, .498905E-01, .358479E-01, .249436E-01,
     +  .167177E-01, .106577E-01, .640943E-02, .356148E-02,
     +  .177852E-02, .760940E-03, .256510E-03, .579606E-04,
     +  .601419E-05, .000000E+00, .350253E+06, .270592E+06,
     +  .206192E+06, .157055E+06, .119619E+06, .910709E+05,
     +  .693331E+05, .527645E+05, .401550E+05, .305492E+05,
     +  .232423E+05, .176787E+05, .134486E+05, .102292E+05,
     +  .778237E+04, .592090E+04, .450653E+04, .343082E+04,
     +  .261364E+04, .199213E+04, .151993E+04, .116073E+04,
     +  .887750E+03, .679993E+03, .521975E+03, .401569E+03 /
        DATA (UPDI(I),I=8217,8268) /
     +  .309875E+03, .239063E+03, .185885E+03, .145189E+03,
     +  .114025E+03, .900817E+02, .716620E+02, .574669E+02,
     +  .464458E+02, .378677E+02, .311672E+02, .258956E+02,
     +  .217263E+02, .183975E+02, .157247E+02, .135517E+02,
     +  .117706E+02, .102929E+02, .905525E+01, .800668E+01,
     +  .711304E+01, .633598E+01, .566284E+01, .506743E+01,
     +  .454239E+01, .407409E+01, .365404E+01, .327503E+01,
     +  .293164E+01, .261942E+01, .233500E+01, .207568E+01,
     +  .183932E+01, .162415E+01, .142863E+01, .125146E+01,
     +  .109119E+01, .947437E+00, .817544E+00, .701434E+00,
     +  .598058E+00, .506479E+00, .425749E+00, .355000E+00,
     +  .293362E+00, .240063E+00, .194322E+00, .155299E+00,
     +  .122662E+00, .952550E-01, .726884E-01, .543695E-01 /
        DATA (UPDI(I),I=8269,8320) /
     +  .397295E-01, .282544E-01, .194438E-01, .128782E-01,
     +  .810435E-02, .480524E-02, .262817E-02, .128917E-02,
     +  .540349E-03, .177962E-03, .393500E-04, .411743E-05,
     +  .000000E+00, .495722E+06, .380805E+06, .288269E+06,
     +  .218114E+06, .165006E+06, .124770E+06, .943315E+05,
     +  .712864E+05, .538649E+05, .406843E+05, .307267E+05,
     +  .231983E+05, .175143E+05, .132198E+05, .997942E+04,
     +  .753256E+04, .568721E+04, .429446E+04, .324450E+04,
     +  .245223E+04, .185501E+04, .140439E+04, .106469E+04,
     +  .808298E+03, .614899E+03, .468777E+03, .358446E+03,
     +  .273980E+03, .211093E+03, .163386E+03, .127163E+03,
     +  .995737E+02, .785250E+02, .624399E+02, .500500E+02,
     +  .404825E+02, .330636E+02, .272684E+02, .227146E+02 /
        DATA (UPDI(I),I=8321,8372) /
     +  .191017E+02, .162169E+02, .138844E+02, .119820E+02,
     +  .104114E+02, .910214E+01, .799816E+01, .706167E+01,
     +  .625132E+01, .555279E+01, .493811E+01, .439890E+01,
     +  .392068E+01, .349423E+01, .311188E+01, .276777E+01,
     +  .245712E+01, .217622E+01, .192207E+01, .169221E+01,
     +  .148461E+01, .129745E+01, .112919E+01, .978160E+00,
     +  .843747E+00, .723243E+00, .616367E+00, .521960E+00,
     +  .438985E+00, .366421E+00, .303339E+00, .248829E+00,
     +  .202085E+00, .162312E+00, .128671E+00, .100786E+00,
     +  .775851E-01, .586647E-01, .434591E-01, .314344E-01,
     +  .221129E-01, .150394E-01, .983524E-02, .610320E-02,
     +  .356295E-02, .191481E-02, .920508E-03, .376823E-03,
     +  .120748E-03, .260030E-04, .274905E-05, .000000E+00 /
        DATA (UPDI(I),I=8373,8424) /
     +  .685024E+06, .523477E+06, .393861E+06, .296177E+06,
     +  .222665E+06, .167306E+06, .125680E+06, .943600E+05,
     +  .708294E+05, .531400E+05, .398611E+05, .298872E+05,
     +  .224062E+05, .167919E+05, .125841E+05, .942878E+04,
     +  .706560E+04, .529473E+04, .396925E+04, .297642E+04,
     +  .223353E+04, .167722E+04, .126104E+04, .949362E+03,
     +  .716092E+03, .541243E+03, .410287E+03, .310850E+03,
     +  .237422E+03, .182178E+03, .140572E+03, .109143E+03,
     +  .853557E+02, .673230E+02, .535385E+02, .429745E+02,
     +  .348404E+02, .285302E+02, .236026E+02, .197167E+02,
     +  .166308E+02, .141489E+02, .121343E+02, .104791E+02,
     +  .910555E+01, .795269E+01, .697921E+01, .614082E+01,
     +  .542160E+01, .479193E+01, .424243E+01, .375778E+01 /
        DATA (UPDI(I),I=8425,8476) /
     +  .332809E+01, .294525E+01, .260295E+01, .229608E+01,
     +  .202060E+01, .177320E+01, .155114E+01, .135211E+01,
     +  .117405E+01, .101521E+01, .873702E+00, .748729E+00,
     +  .637546E+00, .539695E+00, .453928E+00, .379134E+00,
     +  .314238E+00, .258270E+00, .210299E+00, .169502E+00,
     +  .135083E+00, .106219E+00, .825064E-01, .629579E-01,
     +  .471686E-01, .346057E-01, .247751E-01, .172383E-01,
     +  .115861E-01, .748054E-02, .457690E-02, .263042E-02,
     +  .138886E-02, .654228E-03, .261531E-03, .815345E-04,
     +  .171061E-04, .182749E-05, .000000E+00, .927052E+06,
     +  .704968E+06, .527381E+06, .394291E+06, .294690E+06,
     +  .220110E+06, .164351E+06, .122641E+06, .914871E+05,
     +  .682071E+05, .508363E+05, .378691E+05, .282030E+05 /
        DATA (UPDI(I),I=8477,8528) /
     +  .209946E+05, .156265E+05, .116272E+05, .865156E+04,
     +  .643672E+04, .479011E+04, .356529E+04, .265520E+04,
     +  .197856E+04, .147598E+04, .110237E+04, .824820E+03,
     +  .618344E+03, .464888E+03, .349271E+03, .264561E+03,
     +  .201329E+03, .154077E+03, .118662E+03, .920616E+02,
     +  .720509E+02, .568660E+02, .453127E+02, .364770E+02,
     +  .296676E+02, .243821E+02, .202381E+02, .169645E+02,
     +  .143449E+02, .122284E+02, .104975E+02, .906737E+01,
     +  .787246E+01, .686795E+01, .600684E+01, .527163E+01,
     +  .463117E+01, .407512E+01, .358740E+01, .315746E+01,
     +  .277677E+01, .243858E+01, .213748E+01, .186907E+01,
     +  .162978E+01, .141658E+01, .122692E+01, .105852E+01,
     +  .909409E+00, .777569E+00, .662005E+00, .559968E+00 /
        DATA (UPDI(I),I=8529,8580) /
     +  .470846E+00, .393328E+00, .326248E+00, .268499E+00,
     +  .219088E+00, .177078E+00, .141643E+00, .111999E+00,
     +  .873525E-01, .672836E-01, .508907E-01, .377769E-01,
     +  .274468E-01, .194481E-01, .133834E-01, .888875E-02,
     +  .566560E-02, .341757E-02, .193347E-02, .100291E-02,
     +  .462902E-03, .180723E-03, .548406E-04, .112219E-04,
     +  .121129E-05, .000000E+00, .123140E+07, .932081E+06,
     +  .693493E+06, .515638E+06, .383237E+06, .284635E+06,
     +  .211314E+06, .156772E+06, .116260E+06, .861593E+05,
     +  .638270E+05, .472537E+05, .349718E+05, .258680E+05,
     +  .191291E+05, .141399E+05, .104507E+05, .772236E+04,
     +  .570701E+04, .421778E+04, .311857E+04, .230687E+04,
     +  .170811E+04, .126612E+04, .940090E+03, .699288E+03 /
        DATA (UPDI(I),I=8581,8632) /
     +  .521634E+03, .388778E+03, .292162E+03, .220584E+03,
     +  .167491E+03, .127998E+03, .985506E+02, .765600E+02,
     +  .599893E+02, .474687E+02, .379553E+02, .306695E+02,
     +  .250468E+02, .206627E+02, .172168E+02, .144727E+02,
     +  .122654E+02, .104683E+02, .898984E+01, .775985E+01,
     +  .673037E+01, .585182E+01, .510525E+01, .445809E+01,
     +  .389910E+01, .341147E+01, .298408E+01, .260796E+01,
     +  .227597E+01, .198238E+01, .172248E+01, .149243E+01,
     +  .128895E+01, .110925E+01, .950871E+00, .811668E+00,
     +  .689492E+00, .583191E+00, .490032E+00, .409276E+00,
     +  .339566E+00, .279702E+00, .228566E+00, .185156E+00,
     +  .148543E+00, .117914E+00, .925051E-01, .715595E-01,
     +  .546554E-01, .409741E-01, .301342E-01, .216806E-01 /
        DATA (UPDI(I),I=8633,8684) /
     +  .152037E-01, .103471E-01, .679037E-02, .427244E-02,
     +  .254066E-02, .141482E-02, .720913E-03, .326031E-03,
     +  .124327E-03, .367392E-04, .734104E-05, .800455E-06,
     +  .000000E+00, .160815E+07, .121189E+07, .896983E+06,
     +  .663438E+06, .490459E+06, .362307E+06, .267506E+06,
     +  .197361E+06, .145536E+06, .107240E+06, .789833E+05,
     +  .581307E+05, .427644E+05, .314400E+05, .231059E+05,
     +  .169722E+05, .124639E+05, .915009E+04, .671736E+04,
     +  .493105E+04, .362094E+04, .265982E+04, .195548E+04,
     +  .143905E+04, .106067E+04, .783137E+03, .579821E+03,
     +  .428853E+03, .319850E+03, .239675E+03, .180628E+03,
     +  .137021E+03, .104734E+03, .807907E+02, .628697E+02,
     +  .494179E+02, .392602E+02, .315273E+02, .255924E+02 /
        DATA (UPDI(I),I=8685,8736) /
     +  .209890E+02, .173881E+02, .145337E+02, .122475E+02,
     +  .103941E+02, .887552E+01, .761751E+01, .656906E+01,
     +  .567830E+01, .492486E+01, .427494E+01, .371643E+01,
     +  .323188E+01, .280961E+01, .244025E+01, .211631E+01,
     +  .183174E+01, .158155E+01, .136165E+01, .116853E+01,
     +  .999216E+00, .851067E+00, .721801E+00, .609170E+00,
     +  .511889E+00, .427265E+00, .354453E+00, .292072E+00,
     +  .238910E+00, .193847E+00, .155892E+00, .124136E+00,
     +  .977861E-01, .761102E-01, .583942E-01, .442230E-01,
     +  .328588E-01, .239410E-01, .170559E-01, .118363E-01,
     +  .796592E-02, .516513E-02, .320779E-02, .188036E-02,
     +  .103060E-02, .515832E-03, .228572E-03, .851467E-04,
     +  .245142E-04, .478841E-05, .527332E-06, .000000E+00 /
        DATA (UPDI(I),I=8737,8788) /
     +  .206759E+07, .155153E+07, .114261E+07, .840841E+06,
     +  .618419E+06, .454463E+06, .333782E+06, .244946E+06,
     +  .179648E+06, .131651E+06, .964218E+05, .705645E+05,
     +  .516133E+05, .377245E+05, .275601E+05, .201221E+05,
     +  .146865E+05, .107146E+05, .781597E+04, .570050E+04,
     +  .415846E+04, .303427E+04, .221563E+04, .161926E+04,
     +  .118515E+04, .868837E+03, .638683E+03, .468950E+03,
     +  .347239E+03, .258333E+03, .193303E+03, .145607E+03,
     +  .110529E+03, .846899E+02, .654737E+02, .511400E+02,
     +  .403801E+02, .322351E+02, .260165E+02, .212170E+02,
     +  .174796E+02, .145301E+02, .121772E+02, .102775E+02,
     +  .872725E+01, .744823E+01, .638675E+01, .548885E+01,
     +  .473287E+01, .408395E+01, .352913E+01, .305040E+01 /
        DATA (UPDI(I),I=8789,8840) /
     +  .263559E+01, .227496E+01, .196067E+01, .168640E+01,
     +  .144689E+01, .123785E+01, .105555E+01, .896858E+00,
     +  .758997E+00, .639573E+00, .536263E+00, .447680E+00,
     +  .371186E+00, .305854E+00, .250302E+00, .203315E+00,
     +  .163793E+00, .130764E+00, .103349E+00, .807864E-01,
     +  .623812E-01, .474665E-01, .356418E-01, .262463E-01,
     +  .189442E-01, .133631E-01, .917666E-02, .610696E-02,
     +  .391210E-02, .239797E-02, .138550E-02, .747349E-03,
     +  .367408E-03, .159514E-03, .580560E-04, .162925E-04,
     +  .311438E-05, .346331E-06, .000000E+00, .261988E+07,
     +  .195796E+07, .143494E+07, .105080E+07, .769010E+06,
     +  .562299E+06, .410882E+06, .299975E+06, .218859E+06,
     +  .159538E+06, .116218E+06, .845892E+05, .615289E+05 /
        DATA (UPDI(I),I=8841,8892) /
     +  .447195E+05, .324838E+05, .235795E+05, .171084E+05,
     +  .124067E+05, .899510E+04, .651982E+04, .472614E+04,
     +  .342638E+04, .248565E+04, .180459E+04, .131195E+04,
     +  .955258E+03, .697418E+03, .508510E+03, .373944E+03,
     +  .276298E+03, .205342E+03, .153642E+03, .115863E+03,
     +  .882124E+02, .677741E+02, .526197E+02, .413074E+02,
     +  .327899E+02, .263190E+02, .213481E+02, .174939E+02,
     +  .144646E+02, .120575E+02, .101218E+02, .854812E+01,
     +  .725496E+01, .618620E+01, .528604E+01, .453165E+01,
     +  .388723E+01, .333909E+01, .286870E+01, .246344E+01,
     +  .211325E+01, .180997E+01, .154704E+01, .131899E+01,
     +  .112130E+01, .950106E+00, .802127E+00, .674483E+00,
     +  .564696E+00, .470399E+00, .390125E+00, .321310E+00 /
        DATA (UPDI(I),I=8893,8944) /
     +  .262968E+00, .213728E+00, .172393E+00, .137891E+00,
     +  .109281E+00, .857230E-01, .664914E-01, .509347E-01,
     +  .384360E-01, .286145E-01, .208824E-01, .149309E-01,
     +  .104277E-01, .708557E-02, .466238E-02, .295054E-02,
     +  .178490E-02, .101642E-02, .539538E-03, .260516E-03,
     +  .110821E-03, .394138E-04, .107868E-04, .201988E-05,
     +  .226771E-06, .000000E+00, .236753E+05, .259639E+05,
     +  .207469E+05, .165795E+05, .132506E+05, .105914E+05,
     +  .846709E+04, .676991E+04, .541390E+04, .433039E+04,
     +  .346454E+04, .277256E+04, .221947E+04, .177734E+04,
     +  .142386E+04, .114120E+04, .915149E+03, .734322E+03,
     +  .589644E+03, .473859E+03, .381172E+03, .306952E+03,
     +  .247499E+03, .199858E+03, .161665E+03, .131031E+03 /
        DATA (UPDI(I),I=8945,8996) /
     +  .106448E+03, .864575E+02, .706504E+02, .579368E+02,
     +  .477019E+02, .394534E+02, .327972E+02, .274321E+02,
     +  .230763E+02, .195425E+02, .166673E+02, .143194E+02,
     +  .123933E+02, .108039E+02, .948566E+01, .838202E+01,
     +  .745037E+01, .665623E+01, .597223E+01, .537671E+01,
     +  .485430E+01, .438640E+01, .396809E+01, .358595E+01,
     +  .323760E+01, .291710E+01, .262146E+01, .234877E+01,
     +  .209786E+01, .186789E+01, .165804E+01, .146738E+01,
     +  .129478E+01, .113899E+01, .998709E+00, .872636E+00,
     +  .759540E+00, .658720E+00, .568094E+00, .487368E+00,
     +  .415681E+00, .352253E+00, .296369E+00, .247374E+00,
     +  .204663E+00, .167668E+00, .135842E+00, .108667E+00,
     +  .858912E-01, .667285E-01, .509257E-01, .380756E-01 /
        DATA (UPDI(I),I=8997,9048) /
     +  .277966E-01, .197311E-01, .135453E-01, .893639E-02,
     +  .559555E-02, .329419E-02, .178457E-02, .863058E-03,
     +  .354157E-03, .112103E-03, .220987E-04, .136834E-05,
     +  .000000E+00, .288272E+05, .417411E+05, .330782E+05,
     +  .262083E+05, .207691E+05, .164562E+05, .130417E+05,
     +  .103344E+05, .819105E+04, .649165E+04, .514633E+04,
     +  .407966E+04, .323523E+04, .256568E+04, .203561E+04,
     +  .161528E+04, .128249E+04, .101855E+04, .809551E+03,
     +  .643755E+03, .512431E+03, .408219E+03, .325639E+03,
     +  .260073E+03, .208084E+03, .166779E+03, .133991E+03,
     +  .107592E+03, .869449E+02, .704928E+02, .573939E+02,
     +  .469321E+02, .385805E+02, .319055E+02, .265416E+02,
     +  .222240E+02, .187443E+02, .159228E+02, .136284E+02 /
        DATA (UPDI(I),I=9049,9100) /
     +  .117473E+02, .101998E+02, .891224E+01, .783425E+01,
     +  .692136E+01, .614191E+01, .546854E+01, .488363E+01,
     +  .436483E+01, .390637E+01, .349255E+01, .312053E+01,
     +  .278302E+01, .247636E+01, .219761E+01, .194481E+01,
     +  .171618E+01, .151019E+01, .132518E+01, .115952E+01,
     +  .101152E+01, .879571E+00, .762158E+00, .657809E+00,
     +  .565689E+00, .483674E+00, .411339E+00, .347735E+00,
     +  .292028E+00, .243445E+00, .201298E+00, .164939E+00,
     +  .133791E+00, .107298E+00, .849276E-01, .663990E-01,
     +  .509980E-01, .384549E-01, .283903E-01, .204714E-01,
     +  .143466E-01, .971261E-02, .631340E-02, .388880E-02,
     +  .224902E-02, .119433E-02, .564935E-03, .225940E-03,
     +  .694962E-04, .133493E-04, .842216E-06, .000000E+00 /
        DATA (UPDI(I),I=9101,9152) /
     +  .793159E+05, .629157E+05, .494076E+05, .387916E+05,
     +  .304617E+05, .239162E+05, .187806E+05, .147456E+05,
     +  .115800E+05, .909289E+04, .714183E+04, .560902E+04,
     +  .440663E+04, .346200E+04, .272101E+04, .213885E+04,
     +  .168216E+04, .132333E+04, .104181E+04, .820563E+03,
     +  .646938E+03, .510440E+03, .403281E+03, .318993E+03,
     +  .252778E+03, .200657E+03, .159664E+03, .126966E+03,
     +  .101626E+03, .816157E+02, .658255E+02, .533243E+02,
     +  .434300E+02, .355877E+02, .293370E+02, .243448E+02,
     +  .203519E+02, .171375E+02, .145421E+02, .124283E+02,
     +  .107008E+02, .927256E+01, .808447E+01, .708469E+01,
     +  .623666E+01, .550900E+01, .488145E+01, .432906E+01,
     +  .384489E+01, .341167E+01, .302585E+01, .267922E+01 /
        DATA (UPDI(I),I=9153,9204) /
     +  .236739E+01, .208673E+01, .183461E+01, .160868E+01,
     +  .140682E+01, .122697E+01, .106712E+01, .925345E+00,
     +  .799820E+00, .688903E+00, .590980E+00, .505130E+00,
     +  .429217E+00, .362735E+00, .304689E+00, .254217E+00,
     +  .210521E+00, .172896E+00, .140682E+00, .113301E+00,
     +  .902017E-01, .708524E-01, .549613E-01, .418678E-01,
     +  .313000E-01, .229052E-01, .163692E-01, .113597E-01,
     +  .760947E-02, .489091E-02, .297546E-02, .169771E-02,
     +  .887985E-03, .412926E-03, .161896E-03, .486796E-04,
     +  .915400E-05, .586584E-06, .000000E+00, .118108E+06,
     +  .929766E+05, .723896E+05, .563468E+05, .438651E+05,
     +  .341405E+05, .265759E+05, .206832E+05, .161000E+05,
     +  .125303E+05, .975430E+04, .759243E+04, .591139E+04 /
        DATA (UPDI(I),I=9205,9256) /
     +  .460237E+04, .358457E+04, .279205E+04, .217586E+04,
     +  .169604E+04, .132294E+04, .103238E+04, .806392E+03,
     +  .630339E+03, .493369E+03, .386611E+03, .303497E+03,
     +  .238663E+03, .188132E+03, .148190E+03, .117512E+03,
     +  .935019E+02, .747196E+02, .599782E+02, .484089E+02,
     +  .393152E+02, .321250E+02, .264278E+02, .219053E+02,
     +  .182915E+02, .153938E+02, .130501E+02, .111472E+02,
     +  .958410E+01, .829204E+01, .721167E+01, .630111E+01,
     +  .552492E+01, .486007E+01, .427901E+01, .377355E+01,
     +  .332492E+01, .292872E+01, .257589E+01, .226128E+01,
     +  .198063E+01, .173065E+01, .150846E+01, .131146E+01,
     +  .113721E+01, .983402E+00, .847897E+00, .728698E+00,
     +  .624056E+00, .532252E+00, .452285E+00, .382033E+00 /
        DATA (UPDI(I),I=9257,9308) /
     +  .320916E+00, .267910E+00, .222136E+00, .182782E+00,
     +  .149136E+00, .120537E+00, .964096E-01, .762125E-01,
     +  .594243E-01, .457482E-01, .345742E-01, .256339E-01,
     +  .185966E-01, .131598E-01, .903997E-02, .598919E-02,
     +  .380421E-02, .228420E-02, .128458E-02, .660949E-03,
     +  .301630E-03, .115656E-03, .338782E-04, .621249E-05,
     +  .405434E-06, .000000E+00, .170903E+06, .133637E+06,
     +  .103253E+06, .797528E+05, .616058E+05, .475741E+05,
     +  .367419E+05, .283686E+05, .219062E+05, .169120E+05,
     +  .130586E+05, .100814E+05, .778467E+04, .601060E+04,
     +  .464227E+04, .358549E+04, .277050E+04, .214113E+04,
     +  .165578E+04, .128094E+04, .991831E+03, .768504E+03,
     +  .596213E+03, .463069E+03, .360288E+03, .280794E+03 /
        DATA (UPDI(I),I=9309,9360) /
     +  .219364E+03, .171227E+03, .134567E+03, .106120E+03,
     +  .840519E+02, .668764E+02, .535060E+02, .430818E+02,
     +  .349037E+02, .284741E+02, .234078E+02, .193890E+02,
     +  .161889E+02, .136181E+02, .115444E+02, .985202E+01,
     +  .846168E+01, .730644E+01, .633879E+01, .551920E+01,
     +  .482172E+01, .421629E+01, .369338E+01, .323274E+01,
     +  .282910E+01, .247255E+01, .215721E+01, .187816E+01,
     +  .163156E+01, .141400E+01, .122247E+01, .105420E+01,
     +  .906622E+00, .777426E+00, .664476E+00, .565929E+00,
     +  .479989E+00, .405591E+00, .340635E+00, .284483E+00,
     +  .236095E+00, .194582E+00, .159127E+00, .129021E+00,
     +  .103607E+00, .823205E-01, .646329E-01, .500391E-01,
     +  .382428E-01, .286820E-01, .210964E-01, .151783E-01 /
        DATA (UPDI(I),I=9361,9412) /
     +  .106459E-01, .724441E-02, .475111E-02, .298528E-02,
     +  .177132E-02, .983358E-03, .498751E-03, .224015E-03,
     +  .843808E-04, .242640E-04, .439765E-05, .293855E-06,
     +  .000000E+00, .162881E+06, .187023E+06, .143521E+06,
     +  .110095E+06, .844557E+05, .647637E+05, .496646E+05,
     +  .380728E+05, .291880E+05, .223698E+05, .171458E+05,
     +  .131385E+05, .100692E+05, .771559E+04, .591348E+04,
     +  .453199E+04, .347449E+04, .266401E+04, .204371E+04,
     +  .156833E+04, .120450E+04, .925633E+03, .712176E+03,
     +  .548527E+03, .423194E+03, .327030E+03, .253315E+03,
     +  .196020E+03, .152737E+03, .119423E+03, .937830E+02,
     +  .739880E+02, .586984E+02, .468714E+02, .376627E+02,
     +  .304775E+02, .248565E+02, .204296E+02, .169283E+02 /
        DATA (UPDI(I),I=9413,9464) /
     +  .141345E+02, .118952E+02, .100793E+02, .859640E+01,
     +  .737188E+01, .635233E+01, .549412E+01, .476834E+01,
     +  .414244E+01, .360550E+01, .313587E+01, .272735E+01,
     +  .236922E+01, .205487E+01, .177879E+01, .153658E+01,
     +  .132438E+01, .113881E+01, .976822E+00, .835621E+00,
     +  .712745E+00, .605955E+00, .513330E+00, .433023E+00,
     +  .363914E+00, .303936E+00, .252404E+00, .208271E+00,
     +  .170648E+00, .138722E+00, .111790E+00, .892076E-01,
     +  .704232E-01, .549263E-01, .422316E-01, .320475E-01,
     +  .238575E-01, .174124E-01, .124267E-01, .864104E-02,
     +  .582632E-02, .378356E-02, .235240E-02, .137978E-02,
     +  .756422E-03, .378339E-03, .167325E-03, .619495E-04,
     +  .174960E-04, .313191E-05, .214514E-06, .000000E+00 /
        DATA (UPDI(I),I=9465,9516) /
     +  .350011E+06, .270375E+06, .205998E+06, .156881E+06,
     +  .119464E+06, .909323E+05, .692091E+05, .526537E+05,
     +  .400560E+05, .304607E+05, .231633E+05, .176082E+05,
     +  .133857E+05, .101731E+05, .773229E+04, .587624E+04,
     +  .446672E+04, .339534E+04, .258201E+04, .196394E+04,
     +  .149481E+04, .113835E+04, .867796E+03, .662201E+03,
     +  .506102E+03, .387395E+03, .297209E+03, .227749E+03,
     +  .175745E+03, .136086E+03, .105833E+03, .826911E+02,
     +  .649728E+02, .513908E+02, .409062E+02, .327971E+02,
     +  .265055E+02, .215919E+02, .177359E+02, .146833E+02,
     +  .122545E+02, .102995E+02, .871418E+01, .741450E+01,
     +  .633981E+01, .544169E+01, .468756E+01, .404208E+01,
     +  .349258E+01, .301583E+01, .260452E+01, .224699E+01 /
        DATA (UPDI(I),I=9517,9568) /
     +  .193579E+01, .166476E+01, .142889E+01, .122386E+01,
     +  .104588E+01, .891634E+00, .758110E+00, .642705E+00,
     +  .543081E+00, .457252E+00, .383328E+00, .320143E+00,
     +  .265682E+00, .219215E+00, .179701E+00, .146258E+00,
     +  .118087E+00, .944991E-01, .748722E-01, .586740E-01,
     +  .454186E-01, .346485E-01, .260818E-01, .192531E-01,
     +  .139288E-01, .984920E-02, .678171E-02, .452494E-02,
     +  .290548E-02, .178465E-02, .103286E-02, .557921E-03,
     +  .274433E-03, .119063E-03, .430932E-04, .118459E-04,
     +  .205983E-05, .141754E-06, .000000E+00, .495458E+06,
     +  .380568E+06, .288057E+06, .217925E+06, .164837E+06,
     +  .124619E+06, .941964E+05, .711657E+05, .537571E+05,
     +  .405880E+05, .306407E+05, .231216E+05, .174459E+05 /
        DATA (UPDI(I),I=9569,9620) /
     +  .131588E+05, .992500E+04, .748406E+04, .564398E+04,
     +  .425593E+04, .321016E+04, .242163E+04, .182776E+04,
     +  .138010E+04, .104304E+04, .788995E+03, .597678E+03,
     +  .453400E+03, .344705E+03, .261707E+03, .200096E+03,
     +  .153516E+03, .118285E+03, .915696E+02, .712874E+02,
     +  .558739E+02, .440737E+02, .350238E+02, .280583E+02,
     +  .226620E+02, .184592E+02, .151575E+02, .125490E+02,
     +  .104645E+02, .878569E+01, .741885E+01, .629620E+01,
     +  .536447E+01, .458751E+01, .392727E+01, .336933E+01,
     +  .288901E+01, .247785E+01, .212332E+01, .181720E+01,
     +  .155271E+01, .132430E+01, .112724E+01, .957407E+00,
     +  .811237E+00, .685563E+00, .577668E+00, .485144E+00,
     +  .405960E+00, .338208E+00, .280688E+00, .231447E+00 /
        DATA (UPDI(I),I=9621,9672) /
     +  .189726E+00, .154498E+00, .124897E+00, .100145E+00,
     +  .795753E-01, .625912E-01, .486846E-01, .373973E-01,
     +  .283018E-01, .211295E-01, .154634E-01, .110868E-01,
     +  .776589E-02, .529374E-02, .349449E-02, .221819E-02,
     +  .134582E-02, .768476E-03, .409056E-03, .197965E-03,
     +  .843494E-04, .299248E-04, .805519E-05, .137908E-05,
     +  .974546E-07, .000000E+00, .684736E+06, .523219E+06,
     +  .393631E+06, .295971E+06, .222481E+06, .167141E+06,
     +  .125533E+06, .942287E+05, .707122E+05, .530354E+05,
     +  .397678E+05, .298040E+05, .223320E+05, .167257E+05,
     +  .125251E+05, .937618E+04, .701873E+04, .525297E+04,
     +  .393205E+04, .294328E+04, .220401E+04, .165092E+04,
     +  .123760E+04, .928469E+03, .697455E+03, .524604E+03 /
        DATA (UPDI(I),I=9673,9724) /
     +  .395423E+03, .297578E+03, .225535E+03, .171515E+03,
     +  .130988E+03, .100510E+03, .775592E+02, .602610E+02,
     +  .471233E+02, .371287E+02, .294954E+02, .236274E+02,
     +  .190908E+02, .155528E+02, .127770E+02, .105741E+02,
     +  .881150E+01, .738610E+01, .622295E+01, .526404E+01,
     +  .446978E+01, .379951E+01, .323714E+01, .275660E+01,
     +  .234834E+01, .199905E+01, .169975E+01, .144313E+01,
     +  .122315E+01, .103474E+01, .873481E+00, .735638E+00,
     +  .617911E+00, .517503E+00, .431964E+00, .359238E+00,
     +  .297420E+00, .245286E+00, .200960E+00, .163662E+00,
     +  .132391E+00, .106302E+00, .846463E-01, .667842E-01,
     +  .521487E-01, .402595E-01, .306879E-01, .230386E-01,
     +  .170586E-01, .123765E-01, .879378E-02, .610154E-02 /
        DATA (UPDI(I),I=9725,9776) /
     +  .411745E-02, .268896E-02, .168732E-02, .101117E-02,
     +  .569663E-03, .298811E-03, .142291E-03, .595534E-04,
     +  .207195E-04, .546713E-05, .923525E-06, .670928E-07,
     +  .000000E+00, .926738E+06, .704688E+06, .527130E+06,
     +  .394067E+06, .294489E+06, .219931E+06, .164191E+06,
     +  .122498E+06, .913599E+05, .680936E+05, .507351E+05,
     +  .377789E+05, .281225E+05, .209229E+05, .155625E+05,
     +  .115702E+05, .860083E+04, .639154E+04, .474988E+04,
     +  .352946E+04, .262329E+04, .195013E+04, .145066E+04,
     +  .107981E+04, .804698E+03, .600386E+03, .448852E+03,
     +  .334960E+03, .251751E+03, .189848E+03, .143767E+03,
     +  .109386E+03, .836974E+02, .644883E+02, .500112E+02,
     +  .390826E+02, .307980E+02, .244765E+02, .196238E+02 /
        DATA (UPDI(I),I=9777,9828) /
     +  .158659E+02, .129372E+02, .106284E+02, .879287E+01,
     +  .731802E+01, .612209E+01, .514251E+01, .433640E+01,
     +  .366070E+01, .309771E+01, .262008E+01, .221726E+01,
     +  .187517E+01, .158422E+01, .133659E+01, .112584E+01,
     +  .946596E+00, .794229E+00, .664850E+00, .555076E+00,
     +  .462059E+00, .383331E+00, .316831E+00, .260674E+00,
     +  .213629E+00, .173900E+00, .140700E+00, .113060E+00,
     +  .901657E-01, .713002E-01, .558553E-01, .432973E-01,
     +  .331758E-01, .250935E-01, .186875E-01, .137227E-01,
     +  .987009E-02, .694963E-02, .477623E-02, .319063E-02,
     +  .206135E-02, .127865E-02, .756849E-03, .420683E-03,
     +  .217454E-03, .101896E-03, .418979E-04, .143001E-04,
     +  .370089E-05, .617227E-06, .460693E-07, .000000E+00 /
        DATA (UPDI(I),I=9829,9880) /
     +  .123106E+07, .931776E+06, .693220E+06, .515394E+06,
     +  .383020E+06, .284441E+06, .211141E+06, .156618E+06,
     +  .116122E+06, .860363E+05, .637173E+05, .471559E+05,
     +  .348847E+05, .257904E+05, .190600E+05, .140783E+05,
     +  .103959E+05, .767356E+04, .566356E+04, .417910E+04,
     +  .308413E+04, .227621E+04, .168081E+04, .124180E+04,
     +  .918411E+03, .679951E+03, .504377E+03, .373388E+03,
     +  .278399E+03, .208260E+03, .156438E+03, .118068E+03,
     +  .896117E+02, .684942E+02, .526961E+02, .408587E+02,
     +  .319493E+02, .251995E+02, .200533E+02, .160948E+02,
     +  .130297E+02, .106287E+02, .873164E+01, .721679E+01,
     +  .599592E+01, .500214E+01, .418952E+01, .351278E+01,
     +  .295274E+01, .248090E+01, .208578E+01, .175266E+01 /
        DATA (UPDI(I),I=9881,9932) /
     +  .147135E+01, .123364E+01, .103274E+01, .863036E+00,
     +  .719741E+00, .598862E+00, .496962E+00, .411174E+00,
     +  .339032E+00, .278490E+00, .227697E+00, .185427E+00,
     +  .149971E+00, .120546E+00, .962199E-01, .762139E-01,
     +  .598489E-01, .465509E-01, .358211E-01, .272411E-01,
     +  .204452E-01, .151033E-01, .109988E-01, .784225E-02,
     +  .547177E-02, .372470E-02, .246303E-02, .157416E-02,
     +  .965223E-03, .564293E-03, .309457E-03, .157637E-03,
     +  .726922E-04, .293701E-04, .983737E-05, .249841E-05,
     +  .411589E-06, .315390E-07, .000000E+00, .160778E+07,
     +  .121156E+07, .896687E+06, .663174E+06, .490223E+06,
     +  .362097E+06, .267318E+06, .197193E+06, .145387E+06,
     +  .107107E+06, .788646E+05, .580250E+05, .426702E+05 /
        DATA (UPDI(I),I=9933,9984) /
     +  .313561E+05, .230313E+05, .169057E+05, .124047E+05,
     +  .909745E+04, .667051E+04, .488937E+04, .358385E+04,
     +  .262680E+04, .192609E+04, .141289E+04, .103737E+04,
     +  .762362E+03, .561296E+03, .412346E+03, .305103E+03,
     +  .226486E+03, .168816E+03, .126427E+03, .952155E+02,
     +  .722215E+02, .551415E+02, .424345E+02, .329363E+02,
     +  .257895E+02, .203762E+02, .162392E+02, .130555E+02,
     +  .105771E+02, .863024E+01, .708500E+01, .584698E+01,
     +  .484532E+01, .403129E+01, .335768E+01, .280388E+01,
     +  .234045E+01, .195504E+01, .163237E+01, .136180E+01,
     +  .113474E+01, .944144E+00, .784219E+00, .650066E+00,
     +  .537628E+00, .443452E+00, .364673E+00, .298850E+00,
     +  .243967E+00, .198221E+00, .160402E+00, .128894E+00 /
        DATA (UPDI(I),I=9985,10036) /
     +  .102924E+00, .816054E-01, .641972E-01, .500611E-01,
     +  .386597E-01, .295307E-01, .222881E-01, .165979E-01,
     +  .121621E-01, .878323E-02, .620794E-02, .429205E-02,
     +  .289367E-02, .189408E-02, .119748E-02, .725792E-03,
     +  .419086E-03, .226750E-03, .113831E-03, .516624E-04,
     +  .205140E-04, .674528E-05, .168199E-05, .273838E-06,
     +  .215270E-07, .000000E+00, .206719E+07, .155117E+07,
     +  .114229E+07, .840555E+06, .618163E+06, .454235E+06,
     +  .333579E+06, .244765E+06, .179487E+06, .131507E+06,
     +  .962936E+05, .704504E+05, .515117E+05, .376340E+05,
     +  .274796E+05, .200504E+05, .146227E+05, .106579E+05,
     +  .776553E+04, .565564E+04, .411856E+04, .299878E+04,
     +  .218406E+04, .159117E+04, .116015E+04, .846568E+03 /
        DATA (UPDI(I),I=10037,10088) /
     +  .618843E+03, .451291E+03, .331482E+03, .244260E+03,
     +  .180719E+03, .134342E+03, .100429E+03, .756195E+02,
     +  .573161E+02, .437917E+02, .337494E+02, .262423E+02,
     +  .205918E+02, .163001E+02, .130170E+02, .104761E+02,
     +  .849160E+01, .692551E+01, .567799E+01, .467453E+01,
     +  .386392E+01, .319728E+01, .265271E+01, .220002E+01,
     +  .182606E+01, .151511E+01, .125613E+01, .104027E+01,
     +  .860285E+00, .710250E+00, .585204E+00, .481069E+00,
     +  .394402E+00, .322363E+00, .262558E+00, .213013E+00,
     +  .171983E+00, .138288E+00, .110405E+00, .875794E-01,
     +  .689734E-01, .538885E-01, .417284E-01, .319937E-01,
     +  .242590E-01, .181707E-01, .134262E-01, .975820E-02,
     +  .698834E-02, .489611E-02, .335414E-02, .223959E-02 /
        DATA (UPDI(I),I=10089,10140) /
     +  .145102E-02, .907445E-03, .543651E-03, .310040E-03,
     +  .165506E-03, .818849E-04, .365797E-04, .142776E-04,
     +  .461031E-05, .112928E-05, .181785E-06, .146501E-07,
     +  .000000E+00, .261945E+07, .195757E+07, .143459E+07,
     +  .105049E+07, .768733E+06, .562052E+06, .410662E+06,
     +  .299780E+06, .218684E+06, .159382E+06, .116080E+06,
     +  .844660E+05, .614193E+05, .446220E+05, .323971E+05,
     +  .235023E+05, .170398E+05, .123457E+05, .894087E+04,
     +  .647161E+04, .468329E+04, .338830E+04, .245180E+04,
     +  .177449E+04, .128518E+04, .931438E+03, .676219E+03,
     +  .489665E+03, .357152E+03, .261324E+03, .191977E+03,
     +  .141702E+03, .105183E+03, .786454E+02, .591954E+02,
     +  .449175E+02, .343826E+02, .265565E+02, .207012E+02 /
        DATA (UPDI(I),I=10141,10192) /
     +  .162802E+02, .129173E+02, .103293E+02, .831905E+01,
     +  .674147E+01, .549176E+01, .449225E+01, .368955E+01,
     +  .303339E+01, .250074E+01, .206080E+01, .169976E+01,
     +  .140155E+01, .115482E+01, .950545E+00, .781324E+00,
     +  .641173E+00, .525110E+00, .429067E+00, .349639E+00,
     +  .284035E+00, .229919E+00, .185375E+00, .148726E+00,
     +  .118827E+00, .942513E-01, .742718E-01, .580995E-01,
     +  .450810E-01, .346633E-01, .263856E-01, .198590E-01,
     +  .147619E-01, .108221E-01, .780148E-02, .554021E-02,
     +  .384745E-02, .261156E-02, .172692E-02, .110744E-02,
     +  .685067E-03, .405678E-03, .228498E-03, .120348E-03,
     +  .586842E-04, .258064E-04, .990301E-05, .314136E-05,
     +  .756210E-06, .120417E-06, .994152E-08, .000000E+00 /
C-----------------------------------------------------------------------
C
      Dr = DrI
      Fl = FlI
      Al = AlI
      DO I=1,6
         Amass(I) = AmassI(I)
      ENDDO
      Iorder = Nint(Dr)
      Nfl = Nint(Fl)
      Alambda = Al
C
      NX = NxI
      NT = NTI
      NfMx = NfMxI
C
      QINI = QINII
      QMAX = QMAXI
      DO I=0,NT
         QL(I) = QLI(I)
      ENDDO
C
      XMIN = XMINI
      DO I=0,NX
         XV(I) = XVI(I)
      ENDDO
C
      Do 11 Iq = 0, NT
         QL(Iq) = Log (QL(Iq) /Al)
   11 Continue
C
C                  Since quark = anti-quark for nfl>2 at this stage, 
C                  we Read  out only the non-redundent data points
C     No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence) 

      Nblk = (NX+1) * (NT+1)
      Npts =  Nblk  * (NfMx+3)
      DO I=1,Npts
         UPD(I) = UPDI(I)
      ENDDO
C
      Return
C                        ****************************
      End