SetChildMomentumRange, SetChildPtRange, SetChildPhiRange, SetChildThetaRange added.

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

C-----------------------------------------------------------------------
#include "pdf/pilot.h"
      Subroutine Ctq4RA5 (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=10)
      DIMENSION 
     >  XVI(0:MXX),QLI(0:MXQ),UPDI(MXPQX),
     >  AmassI(6)
C
C-----------------------------------------------------------------------
C Parton Distribution Table : CTEQ4A5
C       PARAMETER (ISET=8)                                           
        DATA  DrI, FlI, AlI /             2.,   5.,  .2820 /
        DATA  (AmassI(I),I=1,6) /     .000,     .000,     .200,
     +                                 1.600,    5.000,  180.000 /
C        DATA  NXI,  NTI, NfMxI /    90,    13,     5 /
        DATA  QINII, QMAXI, (QLI(I), I =0, NTI) /
     +  .160000D+01, .100000D+05,
     +  .160000D+01, .202065D+01, .263326D+01, .355599D+01, .500000D+01,
     +  .779631D+01, .130200D+02, .235367D+02, .466233D+02, .102642D+03,
     +  .255265D+03, .730783D+03, .246126D+04, .100000D+05 /
        DATA  XMINI, (XVI(I), I =0, NXI) /
     +  .100000D-04,
     +  .000000D+00, .999983D-05, .124433D-04, .154836D-04, .192668D-04,
     +  .239740D-04, .298310D-04, .371184D-04, .461852D-04, .574656D-04,
     +  .714994D-04, .889575D-04, .110674D-03, .137686D-03, .171280D-03,
     +  .213055D-03, .264997D-03, .329564D-03, .409809D-03, .509508D-03,
     +  .633332D-03, .787053D-03, .977784D-03, .121428D-02, .150728D-02,
     +  .186993D-02, .231825D-02, .288037D-02, .356397D-02, .440443D-02,
     +  .543508D-02, .669508D-02, .822984D-02, .100851D-01, .123281D-01,
     +  .150167D-01, .182174D-01, .219985D-01, .264278D-01, .315720D-01,
     +  .374800D-01, .442088D-01, .517931D-01, .602576D-01, .696136D-01,
     +  .798586D-01, .909356D-01, .102935D+00, .115681D+00, .129293D+00,
     +  .143599D+00, .158606D+00, .174271D+00, .190550D+00, .207405D+00,
     +  .224796D+00, .242685D+00, .261038D+00, .279820D+00, .299001D+00,
     +  .318550D+00, .338442D+00, .358653D+00, .379067D+00, .399881D+00,
     +  .420953D+00, .442266D+00, .463806D+00, .485559D+00, .507513D+00,
     +  .529656D+00, .551978D+00, .574483D+00, .597187D+00, .619860D+00,
     +  .642828D+00, .665921D+00, .689135D+00, .712467D+00, .735911D+00,
     +  .759464D+00, .783080D+00, .806909D+00, .830741D+00, .854673D+00,
     +  .878696D+00, .902804D+00, .926992D+00, .951257D+00, .975603D+00,
     +  .100000D+01 /
C Parton Distribution Table:                                                     
        DATA (UPDI(I),I=1,52) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=53,104) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=105,156) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=157,208) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=209,260) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=261,312) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=313,364) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=365,416) /
     +  .319008D+06, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=417,468) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .148570D+06,
     +  .112239D+06, .833156D+05, .617989D+05, .458152D+05,
     +  .339356D+05, .251218D+05, .185795D+05, .137321D+05,
     +  .101390D+05, .748073D+04, .551330D+04, .406008D+04 /
        DATA (UPDI(I),I=469,520) /
     +  .298632D+04, .219461D+04, .161069D+04, .118099D+04,
     +  .864692D+03, .632431D+03, .461846D+03, .336884D+03,
     +  .245329D+03, .178427D+03, .129543D+03, .939186D+02,
     +  .679743D+02, .491452D+02, .352983D+02, .254390D+02,
     +  .182997D+02, .131515D+02, .943679D+01, .676669D+01,
     +  .485184D+01, .347684D+01, .249123D+01, .178759D+01,
     +  .128384D+01, .924545D+00, .667171D+00, .483603D+00,
     +  .351688D+00, .257017D+00, .188603D+00, .139193D+00,
     +  .103160D+00, .769792D-01, .575381D-01, .433305D-01,
     +  .326602D-01, .247454D-01, .187803D-01, .142965D-01,
     +  .108900D-01, .830960D-02, .633381D-02, .482722D-02,
     +  .366983D-02, .278675D-02, .210703D-02, .158848D-02,
     +  .119030D-02, .887269D-03, .657193D-03, .481962D-03 /
        DATA (UPDI(I),I=521,572) /
     +  .349115D-03, .249789D-03, .175606D-03, .121095D-03,
     +  .811371D-04, .524931D-04, .320884D-04, .179651D-04,
     +  .839892D-05, .229658D-05, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .328938D+06, .247986D+06,
     +  .183630D+06, .135870D+06, .100473D+06, .742301D+05,
     +  .548063D+05, .404256D+05, .297971D+05, .219398D+05,
     +  .161417D+05, .118624D+05, .870998D+04, .638743D+04,
     +  .467971D+04, .342396D+04, .250254D+04, .182642D+04,
     +  .133142D+04, .969045D+03, .704416D+03, .511185D+03,
     +  .370448D+03, .267974D+03, .193553D+03, .139547D+03 /
        DATA (UPDI(I),I=573,624) /
     +  .100493D+03, .718841D+02, .515907D+02, .369561D+02,
     +  .264431D+02, .188899D+02, .134825D+02, .962204D+01,
     +  .686144D+01, .489198D+01, .349206D+01, .249482D+01,
     +  .178678D+01, .128224D+01, .924067D+00, .668070D+00,
     +  .485261D+00, .353908D+00, .259526D+00, .191104D+00,
     +  .141657D+00, .105176D+00, .786577D-01, .588778D-01,
     +  .442927D-01, .333786D-01, .252259D-01, .190775D-01,
     +  .144506D-01, .109354D-01, .827423D-02, .624646D-02,
     +  .471055D-02, .353841D-02, .265114D-02, .197572D-02,
     +  .146591D-02, .108208D-02, .792237D-03, .574454D-03,
     +  .412959D-03, .293299D-03, .205957D-03, .142291D-03,
     +  .967834D-04, .643488D-04, .417019D-04, .261122D-04,
     +  .157852D-04, .894070D-05, .464461D-05, .203357D-05 /
        DATA (UPDI(I),I=625,676) /
     +  .570954D-06, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .546885D+06, .411391D+06, .303837D+06,
     +  .224221D+06, .165361D+06, .121839D+06, .897074D+05,
     +  .659835D+05, .484958D+05, .356043D+05, .261173D+05,
     +  .191358D+05, .140074D+05, .102403D+05, .747865D+04,
     +  .545424D+04, .397331D+04, .289014D+04, .209965D+04,
     +  .152288D+04, .110308D+04, .797599D+03, .575869D+03,
     +  .415005D+03, .298597D+03, .214432D+03, .153793D+03,
     +  .109552D+03, .782909D+02, .558413D+02, .397777D+02,
     +  .282873D+02, .200951D+02, .142730D+02, .101276D+02,
     +  .718434D+01, .510154D+01, .362536D+01, .258215D+01 /
        DATA (UPDI(I),I=677,728) /
     +  .184269D+01, .132026D+01, .948908D+00, .685063D+00,
     +  .496570D+00, .361834D+00, .264741D+00, .194951D+00,
     +  .143794D+00, .106807D+00, .794058D-01, .593198D-01,
     +  .443949D-01, .333145D-01, .250181D-01, .188146D-01,
     +  .141371D-01, .106202D-01, .796139D-02, .596126D-02,
     +  .444726D-02, .330940D-02, .245037D-02, .180678D-02,
     +  .132608D-02, .965901D-03, .697573D-03, .500117D-03,
     +  .354994D-03, .249800D-03, .173670D-03, .119541D-03,
     +  .811349D-04, .543487D-04, .358793D-04, .235159D-04,
     +  .151678D-04, .972516D-05, .619535D-05, .396674D-05,
     +  .255183D-05, .167474D-05, .111169D-05, .747865D-06,
     +  .498173D-06, .322660D-06, .195093D-06, .105237D-06,
     +  .462433D-07, .132268D-07, .102871D-08, .000000D+00 /
        DATA (UPDI(I),I=729,780) /
     +  .808861D+06, .607052D+06, .447111D+06, .329038D+06,
     +  .241976D+06, .177780D+06, .130514D+06, .957160D+05,
     +  .701369D+05, .513364D+05, .375408D+05, .274195D+05,
     +  .200068D+05, .145791D+05, .106121D+05, .771364D+04,
     +  .560004D+04, .405933D+04, .293862D+04, .212377D+04,
     +  .153268D+04, .110412D+04, .794144D+03, .570096D+03,
     +  .408565D+03, .292217D+03, .208713D+03, .148039D+03,
     +  .105338D+03, .748037D+02, .530439D+02, .375479D+02,
     +  .265469D+02, .187648D+02, .132481D+02, .935019D+01,
     +  .660445D+01, .466831D+01, .330659D+01, .234645D+01,
     +  .167145D+01, .119426D+01, .856970D+00, .617387D+00,
     +  .447038D+00, .325008D+00, .237776D+00, .174239D+00,
     +  .128553D+00, .949332D-01, .704346D-01, .523559D-01 /
        DATA (UPDI(I),I=781,832) /
     +  .390163D-01, .290985D-01, .217295D-01, .162141D-01,
     +  .120951D-01, .900460D-02, .669532D-02, .496101D-02,
     +  .366661D-02, .269718D-02, .197604D-02, .144155D-02,
     +  .104403D-02, .750309D-03, .535742D-03, .379271D-03,
     +  .266613D-03, .185663D-03, .128417D-03, .880055D-04,
     +  .598989D-04, .405304D-04, .274936D-04, .186028D-04,
     +  .126806D-04, .870979D-05, .606258D-05, .425559D-05,
     +  .301533D-05, .212683D-05, .147887D-05, .994751D-06,
     +  .634515D-06, .371335D-06, .190626D-06, .785737D-07,
     +  .210066D-07, .168579D-08, .000000D+00, .112169D+07,
     +  .839798D+06, .616755D+06, .452566D+06, .331837D+06,
     +  .243073D+06, .177907D+06, .130073D+06, .950146D+05,
     +  .693262D+05, .505334D+05, .367895D+05, .267548D+05 /
        DATA (UPDI(I),I=833,884) /
     +  .194312D+05, .140958D+05, .102105D+05, .738668D+04,
     +  .533538D+04, .384835D+04, .277102D+04, .199227D+04,
     +  .142973D+04, .102435D+04, .732450D+03, .522802D+03,
     +  .372381D+03, .264846D+03, .187039D+03, .132505D+03,
     +  .936772D+02, .661225D+02, .465880D+02, .327801D+02,
     +  .230581D+02, .161970D+02, .113730D+02, .799065D+01,
     +  .561783D+01, .395708D+01, .279229D+01, .197751D+01,
     +  .140465D+01, .100187D+01, .717389D+00, .516202D+00,
     +  .372930D+00, .271084D+00, .197366D+00, .144653D+00,
     +  .106117D+00, .782032D-01, .577427D-01, .427382D-01,
     +  .316592D-01, .234792D-01, .174006D-01, .128912D-01,
     +  .953260D-02, .703959D-02, .518145D-02, .380406D-02,
     +  .278040D-02, .202417D-02, .146785D-02, .105704D-02 /
        DATA (UPDI(I),I=885,936) /
     +  .755865D-03, .537398D-03, .379266D-03, .266142D-03,
     +  .185405D-03, .128601D-03, .886937D-04, .610159D-04,
     +  .419543D-04, .290675D-04, .202101D-04, .142121D-04,
     +  .100951D-04, .725247D-05, .523292D-05, .377793D-05,
     +  .269254D-05, .187217D-05, .124946D-05, .784298D-06,
     +  .448789D-06, .223579D-06, .886567D-07, .227125D-07,
     +  .185689D-08, .000000D+00, .149248D+07, .111460D+07,
     +  .816129D+06, .597063D+06, .436448D+06, .318715D+06,
     +  .232538D+06, .169477D+06, .123400D+06, .897444D+05,
     +  .652004D+05, .473088D+05, .342880D+05, .248168D+05,
     +  .179396D+05, .129489D+05, .933404D+04, .671741D+04,
     +  .482721D+04, .346280D+04, .248011D+04, .177291D+04,
     +  .126520D+04, .901033D+03, .640498D+03, .454302D+03 /
        DATA (UPDI(I),I=937,988) /
     +  .321730D+03, .226212D+03, .159546D+03, .112287D+03,
     +  .788919D+02, .553240D+02, .387388D+02, .271160D+02,
     +  .189510D+02, .132383D+02, .925188D+01, .646955D+01,
     +  .453178D+01, .317988D+01, .223900D+01, .158110D+01,
     +  .112095D+01, .797812D+00, .570516D+00, .409598D+00,
     +  .295849D+00, .214021D+00, .155839D+00, .113578D+00,
     +  .831489D-01, .609917D-01, .448420D-01, .329977D-01,
     +  .243072D-01, .178946D-01, .131685D-01, .967349D-02,
     +  .709621D-02, .518933D-02, .378524D-02, .274948D-02,
     +  .198944D-02, .143433D-02, .102725D-02, .731035D-03,
     +  .517607D-03, .364204D-03, .255127D-03, .177764D-03,
     +  .123585D-03, .856815D-04, .594539D-04, .413890D-04,
     +  .291211D-04, .206249D-04, .147873D-04, .107031D-04 /
        DATA (UPDI(I),I=989,1040) /
     +  .780914D-05, .569846D-05, .413431D-05, .294519D-05,
     +  .203419D-05, .134226D-05, .828829D-06, .464479D-06,
     +  .225336D-06, .863983D-07, .213372D-07, .177250D-08,
     +  .000000D+00, .192843D+07, .143647D+07, .104858D+07,
     +  .764741D+06, .557262D+06, .405650D+06, .295013D+06,
     +  .214311D+06, .155530D+06, .112735D+06, .816260D+05,
     +  .590247D+05, .426308D+05, .307469D+05, .221472D+05,
     +  .159283D+05, .114396D+05, .820220D+04, .587197D+04,
     +  .419618D+04, .299369D+04, .213162D+04, .151508D+04,
     +  .107460D+04, .760715D+03, .537287D+03, .378859D+03,
     +  .265198D+03, .186208D+03, .130458D+03, .912320D+02,
     +  .636757D+02, .443706D+02, .309054D+02, .214899D+02,
     +  .149345D+02, .103820D+02, .722079D+01, .503008D+01 /
        DATA (UPDI(I),I=1041,1092) /
     +  .350978D+01, .245709D+01, .172501D+01, .121571D+01,
     +  .860064D+00, .611262D+00, .436140D+00, .313047D+00,
     +  .225034D+00, .162808D+00, .117896D+00, .857496D-01,
     +  .624938D-01, .456462D-01, .333713D-01, .244209D-01,
     +  .178614D-01, .130584D-01, .953102D-02, .694662D-02,
     +  .504803D-02, .365918D-02, .264200D-02, .190047D-02,
     +  .136263D-02, .970848D-03, .687795D-03, .485150D-03,
     +  .340456D-03, .238152D-03, .166002D-03, .115677D-03,
     +  .805931D-04, .563526D-04, .396385D-04, .282309D-04,
     +  .202676D-04, .147216D-04, .107772D-04, .792510D-05,
     +  .580658D-05, .420905D-05, .298390D-05, .204173D-05,
     +  .133008D-05, .807717D-06, .443508D-06, .209781D-06,
     +  .779387D-07, .186122D-07, .156932D-08, .000000D+00 /
        DATA (UPDI(I),I=1093,1144) /
     +  .243672D+07, .181033D+07, .131733D+07, .957704D+06,
     +  .695632D+06, .504735D+06, .365869D+06, .264904D+06,
     +  .191599D+06, .138408D+06, .998701D+05, .719662D+05,
     +  .517945D+05, .372230D+05, .267149D+05, .191432D+05,
     +  .136974D+05, .978418D+04, .697778D+04, .496715D+04,
     +  .352980D+04, .250336D+04, .177210D+04, .125174D+04,
     +  .882413D+03, .620584D+03, .435697D+03, .303625D+03,
     +  .212233D+03, .148015D+03, .103028D+03, .715687D+02,
     +  .496287D+02, .343979D+02, .237973D+02, .164529D+02,
     +  .113771D+02, .787053D+01, .545258D+01, .378340D+01,
     +  .263353D+01, .183821D+01, .128785D+01, .905680D+00,
     +  .639781D+00, .453699D+00, .323638D+00, .231199D+00,
     +  .166213D+00, .119602D+00, .864361D-01, .625951D-01 /
        DATA (UPDI(I),I=1145,1196) /
     +  .454276D-01, .330002D-01, .239943D-01, .174380D-01,
     +  .126679D-01, .918818D-02, .665488D-02, .480660D-02,
     +  .346322D-02, .248613D-02, .177835D-02, .126843D-02,
     +  .899365D-03, .634527D-03, .446071D-03, .312333D-03,
     +  .218266D-03, .152258D-03, .106373D-03, .744709D-04,
     +  .524417D-04, .372203D-04, .267726D-04, .194184D-04,
     +  .142309D-04, .104884D-04, .773880D-05, .567002D-05,
     +  .409358D-05, .288116D-05, .195029D-05, .125331D-05,
     +  .748348D-06, .402678D-06, .185814D-06, .669755D-07,
     +  .154989D-07, .132563D-08, .000000D+00, .302428D+07,
     +  .224087D+07, .162541D+07, .117788D+07, .852769D+06,
     +  .616715D+06, .445550D+06, .321512D+06, .231751D+06,
     +  .166838D+06, .119964D+06, .861417D+05, .617754D+05 /
        DATA (UPDI(I),I=1197,1248) /
     +  .442360D+05, .316320D+05, .225830D+05, .160981D+05,
     +  .114554D+05, .813824D+04, .577069D+04, .408461D+04,
     +  .288524D+04, .203412D+04, .143090D+04, .100448D+04,
     +  .703408D+03, .491700D+03, .341121D+03, .237373D+03,
     +  .164795D+03, .114174D+03, .789364D+02, .544729D+02,
     +  .375702D+02, .258609D+02, .177880D+02, .122357D+02,
     +  .841937D+01, .580100D+01, .400289D+01, .277056D+01,
     +  .192278D+01, .133924D+01, .936278D+00, .657436D+00,
     +  .463405D+00, .328549D+00, .233266D+00, .166659D+00,
     +  .119177D+00, .855911D-01, .615979D-01, .444238D-01,
     +  .320700D-01, .231717D-01, .167359D-01, .120826D-01,
     +  .871044D-02, .627066D-02, .450245D-02, .322532D-02,
     +  .230261D-02, .163833D-02, .116285D-02, .820824D-03 /
        DATA (UPDI(I),I=1249,1300) /
     +  .576960D-03, .404420D-03, .282672D-03, .197441D-03,
     +  .137896D-03, .966155D-04, .679681D-04, .481795D-04,
     +  .344644D-04, .249916D-04, .182661D-04, .134655D-04,
     +  .995931D-05, .735136D-05, .537202D-05, .385526D-05,
     +  .268996D-05, .179974D-05, .114031D-05, .669361D-06,
     +  .352981D-06, .158958D-06, .556380D-07, .124982D-07,
     +  .108393D-08, .000000D+00, .263563D+05, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=1301,1352) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=1353,1404) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .582837D+05, .445595D+05, .335484D+05,
     +  .252504D+05, .190000D+05, .142911D+05, .107460D+05,
     +  .807664D+04, .606825D+04, .455688D+04, .342056D+04,
     +  .256604D+04, .192411D+04, .144177D+04, .107977D+04,
     +  .808020D+03, .604303D+03, .451531D+03, .337154D+03,
     +  .251489D+03, .187455D+03, .139566D+03, .103827D+03,
     +  .771430D+02, .572649D+02, .424582D+02, .314640D+02,
     +  .231833D+02, .171446D+02, .126616D+02, .934887D+01,
     +  .689557D+01, .508691D+01, .375408D+01, .277184D+01,
     +  .204742D+01, .151624D+01, .112446D+01, .837253D+00 /
        DATA (UPDI(I),I=1405,1456) /
     +  .625025D+00, .469326D+00, .353751D+00, .268341D+00,
     +  .204475D+00, .156931D+00, .120983D+00, .940141D-01,
     +  .732037D-01, .574805D-01, .451799D-01, .357215D-01,
     +  .282819D-01, .224753D-01, .178656D-01, .142341D-01,
     +  .113234D-01, .901015D-02, .714903D-02, .566897D-02,
     +  .447476D-02, .352413D-02, .275931D-02, .215122D-02,
     +  .166825D-02, .128319D-02, .976757D-03, .736623D-03,
     +  .548316D-03, .403034D-03, .290825D-03, .205941D-03,
     +  .141716D-03, .944985D-04, .596368D-04, .353222D-04,
     +  .182267D-04, .689909D-05, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=1457,1508) /
     +  .128349D+06, .979715D+05, .736232D+05, .553042D+05,
     +  .415310D+05, .311728D+05, .233900D+05, .175408D+05,
     +  .131491D+05, .985090D+04, .737664D+04, .552005D+04,
     +  .412859D+04, .308548D+04, .230456D+04, .171978D+04,
     +  .128254D+04, .955509D+03, .711336D+03, .528973D+03,
     +  .393046D+03, .291694D+03, .216281D+03, .160154D+03,
     +  .118473D+03, .875287D+02, .646259D+02, .474380D+02,
     +  .349460D+02, .257077D+02, .189041D+02, .138859D+02,
     +  .101993D+02, .749428D+01, .550784D+01, .404948D+01,
     +  .298401D+01, .220196D+01, .163080D+01, .121091D+01,
     +  .904041D+00, .677478D+00, .510723D+00, .386760D+00,
     +  .294861D+00, .225812D+00, .174243D+00, .134730D+00,
     +  .105012D+00, .819394D-01, .642939D-01, .505270D-01 /
        DATA (UPDI(I),I=1509,1560) /
     +  .398454D-01, .314367D-01, .248545D-01, .196255D-01,
     +  .154998D-01, .122110D-01, .961454D-02, .753948D-02,
     +  .590074D-02, .459438D-02, .356461D-02, .275357D-02,
     +  .211264D-02, .160730D-02, .121467D-02, .909317D-03,
     +  .675431D-03, .495959D-03, .360798D-03, .258937D-03,
     +  .183679D-03, .127925D-03, .883074D-04, .596068D-04,
     +  .396171D-04, .257212D-04, .163821D-04, .101410D-04,
     +  .613782D-05, .358989D-05, .203536D-05, .110023D-05,
     +  .567543D-06, .270448D-06, .117437D-06, .437115D-07,
     +  .119638D-07, .809365D-09, .000000D+00, .212670D+06,
     +  .162051D+06, .121526D+06, .910922D+05, .682567D+05,
     +  .511175D+05, .382668D+05, .286293D+05, .214093D+05,
     +  .159993D+05, .119502D+05, .891912D+04, .665300D+04 /
        DATA (UPDI(I),I=1561,1612) /
     +  .495846D+04, .369312D+04, .274808D+04, .204338D+04,
     +  .151778D+04, .112645D+04, .835037D+03, .618468D+03,
     +  .457483D+03, .338067D+03, .249478D+03, .183902D+03,
     +  .135380D+03, .995862D+02, .728219D+02, .534371D+02,
     +  .391561D+02, .286755D+02, .209764D+02, .153408D+02,
     +  .112230D+02, .821034D+01, .600845D+01, .440587D+01,
     +  .323514D+01, .238347D+01, .176048D+01, .130700D+01,
     +  .973938D+00, .729838D+00, .549390D+00, .416200D+00,
     +  .316720D+00, .242768D+00, .186476D+00, .144337D+00,
     +  .111852D+00, .871402D-01, .680038D-01, .532410D-01,
     +  .417086D-01, .327355D-01, .256650D-01, .201235D-01,
     +  .157430D-01, .123074D-01, .958549D-02, .745083D-02,
     +  .576370D-02, .444351D-02, .341193D-02, .260294D-02 /
        DATA (UPDI(I),I=1613,1664) /
     +  .197065D-02, .148311D-02, .110706D-02, .821022D-03,
     +  .603217D-03, .440166D-03, .318082D-03, .228163D-03,
     +  .161843D-03, .114594D-03, .802453D-04, .560525D-04,
     +  .389006D-04, .269982D-04, .186286D-04, .128658D-04,
     +  .879442D-05, .594270D-05, .390556D-05, .246746D-05,
     +  .145090D-05, .765867D-06, .336466D-06, .997955D-07,
     +  .762425D-08, .000000D+00, .260556D+06, .238852D+06,
     +  .178719D+06, .133655D+06, .999149D+05, .746465D+05,
     +  .557438D+05, .415999D+05, .310291D+05, .231274D+05,
     +  .172281D+05, .128232D+05, .953844D+04, .708870D+04,
     +  .526437D+04, .390563D+04, .289528D+04, .214390D+04,
     +  .158611D+04, .117201D+04, .865186D+03, .637837D+03,
     +  .469727D+03, .345427D+03, .253722D+03, .186096D+03 /
        DATA (UPDI(I),I=1665,1716) /
     +  .136380D+03, .993424D+02, .726120D+02, .529955D+02,
     +  .386509D+02, .281556D+02, .205019D+02, .149332D+02,
     +  .108744D+02, .792118D+01, .578016D+01, .422341D+01,
     +  .309552D+01, .227450D+01, .167937D+01, .124450D+01,
     +  .927179D+00, .693873D+00, .522441D+00, .395130D+00,
     +  .300938D+00, .229687D+00, .176604D+00, .135955D+00,
     +  .105200D+00, .815489D-01, .634067D-01, .493361D-01,
     +  .384527D-01, .299419D-01, .233145D-01, .181165D-01,
     +  .140655D-01, .108819D-01, .840164D-02, .645717D-02,
     +  .494600D-02, .377403D-02, .286154D-02, .215422D-02,
     +  .161273D-02, .119833D-02, .885241D-03, .648639D-03,
     +  .472595D-03, .341657D-03, .245673D-03, .175274D-03,
     +  .125156D-03, .887763D-04, .630507D-04, .446919D-04 /
        DATA (UPDI(I),I=1717,1768) /
     +  .317706D-04, .225164D-04, .159647D-04, .111900D-04,
     +  .771777D-05, .515410D-05, .328539D-05, .193709D-05,
     +  .101688D-05, .439338D-06, .126531D-06, .982627D-08,
     +  .000000D+00, .454333D+06, .344745D+06, .257255D+06,
     +  .191861D+06, .143024D+06, .106549D+06, .793345D+05,
     +  .590294D+05, .438957D+05, .326166D+05, .242200D+05,
     +  .179697D+05, .133227D+05, .986813D+04, .730348D+04,
     +  .539975D+04, .398870D+04, .294299D+04, .216929D+04,
     +  .159697D+04, .117440D+04, .862453D+03, .632622D+03,
     +  .463351D+03, .338937D+03, .247556D+03, .180639D+03,
     +  .131000D+03, .953199D+02, .692536D+02, .502701D+02,
     +  .364459D+02, .264071D+02, .191389D+02, .138643D+02,
     +  .100461D+02, .729027D+01, .529734D+01, .386003D+01 /
        DATA (UPDI(I),I=1769,1820) /
     +  .281970D+01, .206913D+01, .152390D+01, .112799D+01,
     +  .838713D+00, .627219D+00, .471178D+00, .356342D+00,
     +  .270076D+00, .206152D+00, .157563D+00, .121015D+00,
     +  .931265D-01, .718638D-01, .555033D-01, .429283D-01,
     +  .331761D-01, .256333D-01, .197669D-01, .152254D-01,
     +  .116874D-01, .894977D-02, .682237D-02, .518054D-02,
     +  .391792D-02, .294207D-02, .219257D-02, .162326D-02,
     +  .119162D-02, .868175D-03, .626265D-03, .447959D-03,
     +  .316898D-03, .221988D-03, .153515D-03, .105584D-03,
     +  .715983D-04, .482024D-04, .321199D-04, .212980D-04,
     +  .139992D-04, .917929D-05, .595730D-05, .382634D-05,
     +  .239739D-05, .144987D-05, .819247D-06, .417460D-06,
     +  .176871D-06, .505089D-07, .389009D-08, .000000D+00 /
        DATA (UPDI(I),I=1821,1872) /
     +  .626633D+06, .474322D+06, .352924D+06, .262439D+06,
     +  .195051D+06, .144866D+06, .107531D+06, .797577D+05,
     +  .591197D+05, .437859D+05, .324061D+05, .239623D+05,
     +  .177047D+05, .130682D+05, .963758D+04, .709981D+04,
     +  .522524D+04, .384101D+04, .282047D+04, .206837D+04,
     +  .151508D+04, .110821D+04, .809581D+03, .590515D+03,
     +  .430135D+03, .312815D+03, .227254D+03, .164060D+03,
     +  .118830D+03, .859354D+02, .620813D+02, .447918D+02,
     +  .322921D+02, .232861D+02, .167801D+02, .120944D+02,
     +  .872828D+01, .630693D+01, .456906D+01, .331813D+01,
     +  .242005D+01, .177141D+01, .130284D+01, .962513D+00,
     +  .715011D+00, .533543D+00, .400732D+00, .301629D+00,
     +  .228601D+00, .173484D+00, .132277D+00, .101064D+00 /
        DATA (UPDI(I),I=1873,1924) /
     +  .774165D-01, .593579D-01, .455681D-01, .349584D-01,
     +  .268095D-01, .205228D-01, .156898D-01, .119560D-01,
     +  .908765D-02, .687747D-02, .518422D-02, .389266D-02,
     +  .290209D-02, .214796D-02, .157959D-02, .115236D-02,
     +  .834655D-03, .599072D-03, .426703D-03, .301020D-03,
     +  .210589D-03, .145853D-03, .100729D-03, .688780D-04,
     +  .469505D-04, .318562D-04, .216085D-04, .146077D-04,
     +  .987211D-05, .661374D-05, .436910D-05, .280416D-05,
     +  .172128D-05, .978344D-06, .494510D-06, .203931D-06,
     +  .554686D-07, .438138D-08, .000000D+00, .836720D+06,
     +  .631717D+06, .468607D+06, .347388D+06, .257379D+06,
     +  .190550D+06, .140984D+06, .104227D+06, .770000D+05,
     +  .568356D+05, .419196D+05, .308888D+05, .227414D+05 /
        DATA (UPDI(I),I=1925,1976) /
     +  .167256D+05, .122896D+05, .901993D+04, .661333D+04,
     +  .484277D+04, .354222D+04, .258740D+04, .188765D+04,
     +  .137510D+04, .100037D+04, .726602D+03, .526989D+03,
     +  .381572D+03, .275964D+03, .198309D+03, .142971D+03,
     +  .102908D+03, .739840D+02, .531184D+02, .381022D+02,
     +  .273358D+02, .195945D+02, .140473D+02, .100816D+02,
     +  .724408D+01, .521763D+01, .376694D+01, .273077D+01,
     +  .198661D+01, .145188D+01, .106580D+01, .786544D+00,
     +  .583045D+00, .434954D+00, .325164D+00, .244723D+00,
     +  .184428D+00, .139625D+00, .105929D+00, .805622D-01,
     +  .613308D-01, .467417D-01, .356022D-01, .271058D-01,
     +  .206016D-01, .156360D-01, .118303D-01, .892758D-02,
     +  .670890D-02, .502140D-02, .374426D-02, .277215D-02 /
        DATA (UPDI(I),I=1977,2028) /
     +  .203824D-02, .148932D-02, .108006D-02, .777972D-03,
     +  .555767D-03, .394326D-03, .277483D-03, .193933D-03,
     +  .134525D-03, .932654D-04, .642438D-04, .442531D-04,
     +  .304586D-04, .210117D-04, .144795D-04, .997109D-05,
     +  .679952D-05, .455304D-05, .295019D-05, .181666D-05,
     +  .102995D-05, .515077D-06, .208067D-06, .549331D-07,
     +  .440707D-08, .000000D+00, .109103D+07, .821517D+06,
     +  .607470D+06, .448888D+06, .331498D+06, .244614D+06,
     +  .180379D+06, .132899D+06, .978434D+05, .719684D+05,
     +  .528928D+05, .388343D+05, .284869D+05, .208737D+05,
     +  .152800D+05, .111720D+05, .815957D+04, .595163D+04,
     +  .433597D+04, .315441D+04, .229187D+04, .166261D+04,
     +  .120442D+04, .871052D+03, .628997D+03, .453402D+03 /
        DATA (UPDI(I),I=2029,2080) /
     +  .326427D+03, .233477D+03, .167536D+03, .120016D+03,
     +  .858632D+02, .613426D+02, .437783D+02, .312466D+02,
     +  .222791D+02, .158861D+02, .113382D+02, .810123D+01,
     +  .580130D+01, .416382D+01, .300030D+01, .216937D+01,
     +  .157553D+01, .114926D+01, .842637D+00, .620545D+00,
     +  .459849D+00, .341472D+00, .255241D+00, .191037D+00,
     +  .143625D+00, .108213D+00, .817227D-01, .617808D-01,
     +  .467518D-01, .353607D-01, .267321D-01, .201760D-01,
     +  .152051D-01, .114247D-01, .856138D-02, .638984D-02,
     +  .474990D-02, .351809D-02, .258740D-02, .189040D-02,
     +  .137291D-02, .990082D-03, .709513D-03, .504695D-03,
     +  .356872D-03, .250612D-03, .175068D-03, .121655D-03,
     +  .846672D-04, .587113D-04, .408062D-04, .284072D-04 /
        DATA (UPDI(I),I=2081,2132) /
     +  .198404D-04, .138487D-04, .964198D-05, .663282D-05,
     +  .446128D-05, .289242D-05, .177279D-05, .995641D-06,
     +  .490017D-06, .193201D-06, .494952D-07, .402795D-08,
     +  .000000D+00, .139637D+07, .104854D+07, .772810D+06,
     +  .569178D+06, .418922D+06, .308076D+06, .226394D+06,
     +  .166220D+06, .121943D+06, .893737D+05, .654462D+05,
     +  .478745D+05, .349873D+05, .255400D+05, .186243D+05,
     +  .135643D+05, .986776D+04, .716887D+04, .520162D+04,
     +  .376865D+04, .272674D+04, .196973D+04, .142078D+04,
     +  .102305D+04, .735490D+03, .527774D+03, .378230D+03,
     +  .269254D+03, .192295D+03, .137091D+03, .975979D+02,
     +  .693789D+02, .492612D+02, .349785D+02, .248075D+02,
     +  .175935D+02, .124872D+02, .887216D+01, .631677D+01 /
        DATA (UPDI(I),I=2133,2184) /
     +  .450732D+01, .322836D+01, .232010D+01, .167454D+01,
     +  .121383D+01, .884275D+00, .647000D+00, .476309D+00,
     +  .351356D+00, .260865D+00, .193932D+00, .144809D+00,
     +  .108365D+00, .812765D-01, .610238D-01, .458598D-01,
     +  .344484D-01, .258633D-01, .193873D-01, .145105D-01,
     +  .108292D-01, .806026D-02, .597602D-02, .441292D-02,
     +  .324739D-02, .237315D-02, .172343D-02, .124450D-02,
     +  .892805D-03, .636816D-03, .451265D-03, .318179D-03,
     +  .223104D-03, .155866D-03, .108545D-03, .758451D-04,
     +  .529244D-04, .370749D-04, .260489D-04, .183614D-04,
     +  .129264D-04, .905458D-05, .625005D-05, .420124D-05,
     +  .271242D-05, .164807D-05, .913704D-06, .441352D-06,
     +  .169535D-06, .421306D-07, .347691D-08, .000000D+00 /
        DATA (UPDI(I),I=2185,2236) /
     +  .175984D+07, .131776D+07, .967980D+06, .710513D+06,
     +  .521155D+06, .381929D+06, .279681D+06, .204614D+06,
     +  .149568D+06, .109221D+06, .796845D+05, .580720D+05,
     +  .422788D+05, .307443D+05, .223320D+05, .162007D+05,
     +  .117386D+05, .849356D+04, .613752D+04, .442826D+04,
     +  .319049D+04, .229488D+04, .164814D+04, .118155D+04,
     +  .845650D+03, .604062D+03, .430903D+03, .305296D+03,
     +  .216997D+03, .153956D+03, .109065D+03, .771427D+02,
     +  .544940D+02, .384937D+02, .271556D+02, .191548D+02,
     +  .135203D+02, .955229D+01, .676200D+01, .479694D+01,
     +  .341535D+01, .243969D+01, .175002D+01, .126067D+01,
     +  .912577D+00, .663441D+00, .485256D+00, .355620D+00,
     +  .262287D+00, .193696D+00, .143667D+00, .106795D+00 /
        DATA (UPDI(I),I=2237,2288) /
     +  .795602D-01, .593349D-01, .442892D-01, .330455D-01,
     +  .246433D-01, .183499D-01, .136423D-01, .101143D-01,
     +  .747879D-02, .550933D-02, .404233D-02, .295622D-02,
     +  .214727D-02, .155050D-02, .111363D-02, .795084D-03,
     +  .564734D-03, .398873D-03, .280595D-03, .196571D-03,
     +  .137421D-03, .959442D-04, .673180D-04, .472528D-04,
     +  .333312D-04, .235936D-04, .167427D-04, .118503D-04,
     +  .832257D-05, .574403D-05, .384631D-05, .246566D-05,
     +  .148164D-05, .809239D-06, .383062D-06, .143242D-06,
     +  .345430D-07, .289032D-08, .000000D+00, .218865D+07,
     +  .163417D+07, .119632D+07, .875101D+06, .639645D+06,
     +  .467116D+06, .340842D+06, .248461D+06, .180957D+06,
     +  .131654D+06, .956915D+05, .694736D+05, .503857D+05 /
        DATA (UPDI(I),I=2289,2340) /
     +  .364974D+05, .264068D+05, .190805D+05, .137695D+05,
     +  .992242D+04, .714039D+04, .513027D+04, .368059D+04,
     +  .263603D+04, .188489D+04, .134530D+04, .958531D+03,
     +  .681566D+03, .483937D+03, .341238D+03, .241388D+03,
     +  .170433D+03, .120142D+03, .845526D+02, .594234D+02,
     +  .417586D+02, .293026D+02, .205580D+02, .144308D+02,
     +  .101387D+02, .713618D+01, .503311D+01, .356233D+01,
     +  .252946D+01, .180337D+01, .129110D+01, .928764D+00,
     +  .670946D+00, .487619D+00, .355052D+00, .260166D+00,
     +  .190877D+00, .140647D+00, .103867D+00, .768688D-01,
     +  .569510D-01, .422286D-01, .313014D-01, .231895D-01,
     +  .171551D-01, .126711D-01, .933414D-02, .685796D-02,
     +  .502060D-02, .366108D-02, .266146D-02, .192202D-02 /
        DATA (UPDI(I),I=2341,2392) /
     +  .138039D-02, .986517D-03, .701242D-03, .496231D-03,
     +  .349524D-03, .245459D-03, .171899D-03, .120319D-03,
     +  .842452D-04, .593584D-04, .418953D-04, .297285D-04,
     +  .211666D-04, .150898D-04, .107109D-04, .752264D-05,
     +  .517809D-05, .344638D-05, .218934D-05, .129907D-05,
     +  .698092D-06, .323533D-06, .117738D-06, .275726D-07,
     +  .233872D-08, .000000D+00, .268995D+07, .200269D+07,
     +  .146105D+07, .106504D+07, .775745D+06, .564494D+06,
     +  .410414D+06, .298088D+06, .216301D+06, .156783D+06,
     +  .113527D+06, .821082D+05, .593191D+05, .428006D+05,
     +  .308449D+05, .221982D+05, .159545D+05, .114498D+05,
     +  .820533D+04, .587065D+04, .419382D+04, .299065D+04,
     +  .212911D+04, .151288D+04, .107309D+04, .759529D+03 /
        DATA (UPDI(I),I=2393,2444) /
     +  .536794D+03, .376708D+03, .265208D+03, .186347D+03,
     +  .130713D+03, .915336D+02, .640020D+02, .447443D+02,
     +  .312320D+02, .217942D+02, .152148D+02, .106302D+02,
     +  .743976D+01, .521710D+01, .367095D+01, .259114D+01,
     +  .183621D+01, .130662D+01, .934121D+00, .670611D+00,
     +  .484316D+00, .350410D+00, .255125D+00, .185977D+00,
     +  .136154D+00, .999031D-01, .734575D-01, .540730D-01,
     +  .398351D-01, .293376D-01, .215953D-01, .158744D-01,
     +  .116509D-01, .852918D-02, .622787D-02, .453192D-02,
     +  .328516D-02, .237458D-02, .170547D-02, .121868D-02,
     +  .866945D-03, .613810D-03, .432958D-03, .304279D-03,
     +  .213437D-03, .149505D-03, .104818D-03, .736202D-04,
     +  .520874D-04, .369470D-04, .263476D-04, .188410D-04 /
        DATA (UPDI(I),I=2445,2496) /
     +  .134691D-04, .956793D-05, .670660D-05, .459526D-05,
     +  .303505D-05, .190796D-05, .111669D-05, .589888D-06,
     +  .267508D-06, .947379D-07, .215649D-07, .185392D-08,
     +  .000000D+00, .327069D+07, .242802D+07, .176521D+07,
     +  .128227D+07, .930662D+06, .674806D+06, .488842D+06,
     +  .353755D+06, .255745D+06, .184681D+06, .133221D+06,
     +  .959840D+05, .690751D+05, .496449D+05, .356355D+05,
     +  .255432D+05, .182842D+05, .130679D+05, .932595D+04,
     +  .664436D+04, .472632D+04, .335584D+04, .237867D+04,
     +  .168273D+04, .118820D+04, .837164D+03, .588926D+03,
     +  .411330D+03, .288208D+03, .201533D+03, .140672D+03,
     +  .980184D+02, .681893D+02, .474271D+02, .329310D+02,
     +  .228574D+02, .158704D+02, .110272D+02, .767432D+01 /
        DATA (UPDI(I),I=2497,2548) /
     +  .535097D+01, .374335D+01, .262675D+01, .185036D+01,
     +  .130878D+01, .929960D+00, .663519D+00, .476231D+00,
     +  .342408D+00, .247732D+00, .179449D+00, .130544D+00,
     +  .951828D-01, .695432D-01, .508683D-01, .372368D-01,
     +  .272519D-01, .199344D-01, .145627D-01, .106223D-01,
     +  .772910D-02, .560992D-02, .405855D-02, .292527D-02,
     +  .210296D-02, .150258D-02, .106864D-02, .757006D-03,
     +  .534081D-03, .375686D-03, .263573D-03, .184766D-03,
     +  .129510D-03, .909836D-04, .641085D-04, .455370D-04,
     +  .324417D-04, .232259D-04, .166574D-04, .119218D-04,
     +  .846066D-05, .590910D-05, .402431D-05, .263436D-05,
     +  .163714D-05, .944382D-06, .490085D-06, .217391D-06,
     +  .749346D-07, .165955D-07, .144579D-08, .000000D+00 /
        DATA (UPDI(I),I=2549,2600) /
     +  .211749D+05, .127778D+05, .102457D+05, .821536D+04,
     +  .658739D+04, .528205D+04, .423539D+04, .339615D+04,
     +  .272322D+04, .218365D+04, .175101D+04, .140410D+04,
     +  .112594D+04, .902906D+03, .724067D+03, .580667D+03,
     +  .465684D+03, .373485D+03, .299556D+03, .240275D+03,
     +  .192740D+03, .154623D+03, .124058D+03, .995476D+02,
     +  .798924D+02, .641300D+02, .514890D+02, .412223D+02,
     +  .331192D+02, .266188D+02, .214035D+02, .172187D+02,
     +  .138602D+02, .111715D+02, .900698D+01, .726910D+01,
     +  .587309D+01, .475092D+01, .384808D+01, .312059D+01,
     +  .253445D+01, .206065D+01, .167716D+01, .136612D+01,
     +  .111334D+01, .907501D+00, .740144D+00, .602510D+00,
     +  .490550D+00, .398270D+00, .322940D+00, .261199D+00 /
        DATA (UPDI(I),I=2601,2652) /
     +  .210629D+00, .169254D+00, .135459D+00, .107921D+00,
     +  .855464D-01, .674319D-01, .528276D-01, .411097D-01,
     +  .317582D-01, .243398D-01, .184938D-01, .139391D-01,
     +  .103818D-01, .764693D-02, .556476D-02, .399634D-02,
     +  .282871D-02, .197064D-02, .134902D-02, .905757D-03,
     +  .595034D-03, .381314D-03, .238736D-03, .144533D-03,
     +  .845292D-04, .475080D-04, .254943D-04, .129572D-04,
     +  .617225D-05, .272227D-05, .108491D-05, .383655D-06,
     +  .115450D-06, .278716D-07, .489045D-08, .518188D-09,
     +  .218723D-10, .971975D-13, .000000D+00, .740706D+05,
     +  .573171D+05, .437778D+05, .334525D+05, .255767D+05,
     +  .195645D+05, .149744D+05, .114671D+05, .878680D+04,
     +  .673670D+04, .516842D+04, .396755D+04, .304791D+04 /
        DATA (UPDI(I),I=2653,2704) /
     +  .234289D+04, .180235D+04, .138743D+04, .106892D+04,
     +  .824109D+03, .635931D+03, .491091D+03, .379610D+03,
     +  .293677D+03, .227433D+03, .176289D+03, .136799D+03,
     +  .106266D+03, .826625D+02, .641426D+02, .500246D+02,
     +  .390622D+02, .305527D+02, .239314D+02, .187793D+02,
     +  .147717D+02, .116375D+02, .918703D+01, .727070D+01,
     +  .576694D+01, .458637D+01, .365559D+01, .292206D+01,
     +  .234053D+01, .187890D+01, .151084D+01, .121686D+01,
     +  .980971D+00, .792070D+00, .638648D+00, .515533D+00,
     +  .415151D+00, .334138D+00, .268368D+00, .215033D+00,
     +  .171760D+00, .136722D+00, .108373D+00, .855082D-01,
     +  .671113D-01, .523782D-01, .406174D-01, .312846D-01,
     +  .239142D-01, .181311D-01, .136426D-01, .101484D-01 /
        DATA (UPDI(I),I=2705,2756) /
     +  .746751D-02, .543109D-02, .389888D-02, .275966D-02,
     +  .192211D-02, .131528D-02, .881558D-03, .577216D-03,
     +  .366783D-03, .226223D-03, .132932D-03, .734517D-04,
     +  .368401D-04, .153477D-04, .359555D-05, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .144113D+06, .110710D+06,
     +  .838375D+05, .634942D+05, .480978D+05, .364382D+05,
     +  .276118D+05, .209259D+05, .158632D+05, .120271D+05,
     +  .912155D+04, .691912D+04, .525035D+04, .398490D+04,
     +  .302571D+04, .229798D+04, .174613D+04, .132721D+04,
     +  .100935D+04, .767916D+03, .584624D+03, .445298D+03,
     +  .339438D+03, .258901D+03, .197650D+03, .151015D+03 /
        DATA (UPDI(I),I=2757,2808) /
     +  .115534D+03, .881349D+02, .675873D+02, .518908D+02,
     +  .399094D+02, .307405D+02, .237260D+02, .183603D+02,
     +  .142350D+02, .110627D+02, .862320D+01, .673959D+01,
     +  .528473D+01, .415532D+01, .327900D+01, .259432D+01,
     +  .205860D+01, .163719D+01, .130509D+01, .104184D+01,
     +  .833586D+00, .666278D+00, .533518D+00, .426329D+00,
     +  .340671D+00, .271745D+00, .216347D+00, .171760D+00,
     +  .135947D+00, .107177D+00, .841374D-01, .657199D-01,
     +  .510672D-01, .394377D-01, .302641D-01, .230571D-01,
     +  .174311D-01, .130850D-01, .971664D-02, .714177D-02,
     +  .519329D-02, .373160D-02, .264803D-02, .185271D-02,
     +  .127736D-02, .866089D-03, .577094D-03, .376449D-03,
     +  .241629D-03, .151022D-03, .922244D-04, .548009D-04 /
        DATA (UPDI(I),I=2809,2860) /
     +  .317118D-04, .177908D-04, .970894D-05, .513282D-05,
     +  .263613D-05, .130768D-05, .628303D-06, .284726D-06,
     +  .119867D-06, .439626D-07, .119743D-07, .809417D-09,
     +  .000000D+00, .228412D+06, .174773D+06, .131726D+06,
     +  .992707D+05, .748143D+05, .563753D+05, .424825D+05,
     +  .320093D+05, .241193D+05, .181721D+05, .136923D+05,
     +  .103158D+05, .777279D+04, .585623D+04, .441286D+04,
     +  .332510D+04, .250595D+04, .188860D+04, .142371D+04,
     +  .107332D+04, .809469D+03, .610578D+03, .460773D+03,
     +  .347822D+03, .262718D+03, .198542D+03, .150201D+03,
     +  .113253D+03, .858374D+02, .651202D+02, .494813D+02,
     +  .376492D+02, .287017D+02, .219381D+02, .168000D+02,
     +  .128967D+02, .993162D+01, .767007D+01, .594461D+01 /
        DATA (UPDI(I),I=2861,2912) /
     +  .462134D+01, .360694D+01, .282368D+01, .221791D+01,
     +  .174676D+01, .137955D+01, .109152D+01, .866016D+00,
     +  .686605D+00, .545620D+00, .432809D+00, .343450D+00,
     +  .272143D+00, .215296D+00, .169893D+00, .133697D+00,
     +  .104821D+00, .818544D-01, .636147D-01, .491959D-01,
     +  .378202D-01, .288997D-01, .219303D-01, .165185D-01,
     +  .123590D-01, .915078D-02, .670920D-02, .486972D-02,
     +  .349520D-02, .248009D-02, .173730D-02, .120144D-02,
     +  .819092D-03, .550646D-03, .364148D-03, .238512D-03,
     +  .153580D-03, .979245D-04, .618581D-04, .389956D-04,
     +  .245614D-04, .156080D-04, .996710D-05, .639407D-05,
     +  .405956D-05, .251196D-05, .146122D-05, .767596D-06,
     +  .336643D-06, .998028D-07, .762429D-08, .000000D+00 /
        DATA (UPDI(I),I=2913,2964) /
     +  .255405D+06, .251557D+06, .188906D+06, .141823D+06,
     +  .106464D+06, .798971D+05, .599535D+05, .449750D+05,
     +  .337352D+05, .252969D+05, .189675D+05, .142176D+05,
     +  .106563D+05, .798484D+04, .598274D+04, .448147D+04,
     +  .335684D+04, .251385D+04, .188261D+04, .140963D+04,
     +  .105560D+04, .790415D+03, .591973D+03, .443361D+03,
     +  .332170D+03, .248926D+03, .186696D+03, .139504D+03,
     +  .104767D+03, .787371D+02, .592545D+02, .446446D+02,
     +  .336959D+02, .254966D+02, .193267D+02, .146849D+02,
     +  .111934D+02, .855696D+01, .656551D+01, .505370D+01,
     +  .390636D+01, .302933D+01, .235771D+01, .184046D+01,
     +  .144118D+01, .113092D+01, .890219D+00, .700419D+00,
     +  .552561D+00, .435238D+00, .343056D+00, .270072D+00 /
        DATA (UPDI(I),I=2965,3016) /
     +  .212328D+00, .166548D+00, .130309D+00, .101595D+00,
     +  .789096D-01, .610087D-01, .469458D-01, .359177D-01,
     +  .273206D-01, .206418D-01, .154838D-01, .115401D-01,
     +  .851377D-02, .622187D-02, .450336D-02, .322500D-02,
     +  .228491D-02, .159966D-02, .110704D-02, .756565D-03,
     +  .511012D-03, .340609D-03, .225727D-03, .147864D-03,
     +  .965321D-04, .629038D-04, .412082D-04, .271425D-04,
     +  .180825D-04, .120867D-04, .805910D-05, .526922D-05,
     +  .331822D-05, .194460D-05, .101812D-05, .439463D-06,
     +  .126536D-06, .982630D-08, .000000D+00, .470033D+06,
     +  .357432D+06, .267427D+06, .200017D+06, .149563D+06,
     +  .111791D+06, .835377D+05, .623991D+05, .465973D+05,
     +  .347824D+05, .259563D+05, .193615D+05, .144384D+05 /
        DATA (UPDI(I),I=3017,3068) /
     +  .107624D+05, .802027D+04, .597424D+04, .444909D+04,
     +  .331193D+04, .246491D+04, .183382D+04, .136413D+04,
     +  .101443D+04, .754329D+03, .560804D+03, .416953D+03,
     +  .309998D+03, .230604D+03, .170844D+03, .127189D+03,
     +  .947358D+02, .706387D+02, .527222D+02, .394085D+02,
     +  .295281D+02, .221592D+02, .166680D+02, .125760D+02,
     +  .951652D+01, .722778D+01, .550776D+01, .421517D+01,
     +  .323712D+01, .249543D+01, .192996D+01, .149763D+01,
     +  .116496D+01, .909284D+00, .709556D+00, .555356D+00,
     +  .434094D+00, .339624D+00, .265465D+00, .207263D+00,
     +  .161489D+00, .125528D+00, .972517D-01, .750709D-01,
     +  .576942D-01, .441354D-01, .335750D-01, .253953D-01,
     +  .190820D-01, .142353D-01, .105521D-01, .774182D-02 /
        DATA (UPDI(I),I=3069,3120) /
     +  .562600D-02, .404834D-02, .288139D-02, .202785D-02,
     +  .140919D-02, .966847D-03, .653968D-03, .436084D-03,
     +  .285977D-03, .185578D-03, .118243D-03, .744266D-04,
     +  .462687D-04, .285676D-04, .175310D-04, .107808D-04,
     +  .662867D-05, .407918D-05, .248171D-05, .147363D-05,
     +  .824615D-06, .418336D-06, .176958D-06, .505124D-07,
     +  .389011D-08, .000000D+00, .642312D+06, .486991D+06,
     +  .363081D+06, .270583D+06, .201581D+06, .150101D+06,
     +  .111728D+06, .831221D+05, .618168D+05, .459480D+05,
     +  .341392D+05, .253515D+05, .188181D+05, .139606D+05,
     +  .103527D+05, .767289D+04, .568443D+04, .420889D+04,
     +  .311517D+04, .230441D+04, .170410D+04, .125955D+04,
     +  .930721D+03, .687460D+03, .507696D+03, .374848D+03 /
        DATA (UPDI(I),I=3121,3172) /
     +  .276850D+03, .203573D+03, .150399D+03, .111147D+03,
     +  .822053D+02, .608472D+02, .450943D+02, .334959D+02,
     +  .249136D+02, .185716D+02, .138845D+02, .104105D+02,
     +  .783401D+01, .591507D+01, .448563D+01, .341384D+01,
     +  .260827D+01, .199969D+01, .153849D+01, .118679D+01,
     +  .918811D+00, .711309D+00, .552451D+00, .428583D+00,
     +  .332866D+00, .258341D+00, .200306D+00, .155020D+00,
     +  .119707D+00, .921474D-01, .706840D-01, .539904D-01,
     +  .410539D-01, .310482D-01, .233494D-01, .174470D-01,
     +  .129443D-01, .954424D-02, .696605D-02, .503710D-02,
     +  .360743D-02, .255632D-02, .179191D-02, .124104D-02,
     +  .849267D-03, .573600D-03, .382485D-03, .251413D-03,
     +  .163988D-03, .105469D-03, .673502D-04, .427661D-04 /
        DATA (UPDI(I),I=3173,3224) /
     +  .271623D-04, .172796D-04, .110711D-04, .711084D-05,
     +  .455407D-05, .286506D-05, .173821D-05, .982113D-06,
     +  .495116D-06, .203991D-06, .554710D-07, .438140D-08,
     +  .000000D+00, .852377D+06, .644369D+06, .478750D+06,
     +  .355520D+06, .263899D+06, .195777D+06, .145174D+06,
     +  .107586D+06, .796926D+05, .589939D+05, .436495D+05,
     +  .322753D+05, .238525D+05, .176160D+05, .130031D+05,
     +  .959157D+04, .707126D+04, .520956D+04, .383596D+04,
     +  .282259D+04, .207591D+04, .152576D+04, .112092D+04,
     +  .823014D+03, .604071D+03, .443174D+03, .325173D+03,
     +  .237473D+03, .174226D+03, .127837D+03, .938532D+02,
     +  .689445D+02, .506984D+02, .373607D+02, .275625D+02,
     +  .203768D+02, .151063D+02, .112309D+02, .837920D+01 /
        DATA (UPDI(I),I=3225,3276) /
     +  .627276D+01, .471631D+01, .355904D+01, .269637D+01,
     +  .205014D+01, .156445D+01, .119716D+01, .919593D+00,
     +  .706440D+00, .544557D+00, .419355D+00, .323360D+00,
     +  .249208D+00, .191898D+00, .147519D+00, .113164D+00,
     +  .865499D-01, .659701D-01, .500779D-01, .378467D-01,
     +  .284520D-01, .212715D-01, .158034D-01, .116587D-01,
     +  .854917D-02, .620617D-02, .446442D-02, .318150D-02,
     +  .224413D-02, .156648D-02, .108103D-02, .737708D-03,
     +  .497431D-03, .331643D-03, .218457D-03, .143177D-03,
     +  .928820D-04, .600847D-04, .388509D-04, .252443D-04,
     +  .164959D-04, .108664D-04, .716662D-05, .468799D-05,
     +  .299406D-05, .182869D-05, .103259D-05, .515494D-06,
     +  .208108D-06, .549347D-07, .440708D-08, .000000D+00 /
        DATA (UPDI(I),I=3277,3328) /
     +  .110666D+07, .834151D+06, .617599D+06, .457008D+06,
     +  .338008D+06, .249833D+06, .184562D+06, .136252D+06,
     +  .100531D+06, .741228D+05, .546194D+05, .402181D+05,
     +  .295957D+05, .217621D+05, .159918D+05, .117422D+05,
     +  .861618D+04, .631726D+04, .462868D+04, .338870D+04,
     +  .247934D+04, .181257D+04, .132433D+04, .966900D+03,
     +  .705574D+03, .514550D+03, .375229D+03, .272276D+03,
     +  .198463D+03, .144650D+03, .105467D+03, .769310D+02,
     +  .561617D+02, .410814D+02, .300777D+02, .220648D+02,
     +  .162292D+02, .119700D+02, .885902D+01, .657858D+01,
     +  .490633D+01, .367266D+01, .276016D+01, .208203D+01,
     +  .157633D+01, .119693D+01, .912447D+00, .695704D+00,
     +  .532353D+00, .407000D+00, .311616D+00, .238496D+00 /
        DATA (UPDI(I),I=3329,3380) /
     +  .182401D+00, .139284D+00, .106145D+00, .806589D-01,
     +  .610899D-01, .460847D-01, .346148D-01, .258657D-01,
     +  .192232D-01, .141987D-01, .104149D-01, .759440D-02,
     +  .548285D-02, .392334D-02, .278188D-02, .195309D-02,
     +  .135756D-02, .933495D-03, .635268D-03, .427678D-03,
     +  .285130D-03, .188232D-03, .123953D-03, .810702D-04,
     +  .530624D-04, .348468D-04, .230580D-04, .153665D-04,
     +  .103088D-04, .690321D-05, .455948D-05, .292393D-05,
     +  .178131D-05, .997483D-06, .490304D-06, .193228D-06,
     +  .494963D-07, .402796D-08, .000000D+00, .141199D+07,
     +  .106116D+07, .782925D+06, .577287D+06, .425423D+06,
     +  .313287D+06, .230571D+06, .169568D+06, .124626D+06,
     +  .915242D+05, .671695D+05, .492554D+05, .360936D+05 /
        DATA (UPDI(I),I=3381,3432) /
     +  .264264D+05, .193342D+05, .141328D+05, .103230D+05,
     +  .753329D+04, .549327D+04, .400199D+04, .291337D+04,
     +  .211894D+04, .154003D+04, .111830D+04, .811534D+03,
     +  .588445D+03, .426603D+03, .307669D+03, .222877D+03,
     +  .161417D+03, .116926D+03, .847211D+02, .614250D+02,
     +  .446177D+02, .324326D+02, .236187D+02, .172429D+02,
     +  .126220D+02, .927032D+01, .683124D+01, .505550D+01,
     +  .375519D+01, .280049D+01, .209634D+01, .157514D+01,
     +  .118707D+01, .898254D+00, .679879D+00, .516512D+00,
     +  .392092D+00, .298113D+00, .226605D+00, .172140D+00,
     +  .130578D+00, .988611D-01, .746414D-01, .561743D-01,
     +  .421126D-01, .314367D-01, .233489D-01, .172493D-01,
     +  .126664D-01, .923735D-02, .669787D-02, .480898D-02 /
        DATA (UPDI(I),I=3433,3484) /
     +  .342298D-02, .241494D-02, .168762D-02, .116816D-02,
     +  .800479D-03, .543342D-03, .365300D-03, .243614D-03,
     +  .161224D-03, .106689D-03, .703360D-04, .465384D-04,
     +  .309770D-04, .208009D-04, .140658D-04, .954991D-05,
     +  .644866D-05, .427250D-05, .273500D-05, .165409D-05,
     +  .914987D-06, .441549D-06, .169553D-06, .421313D-07,
     +  .347691D-08, .000000D+00, .177544D+07, .133036D+07,
     +  .978081D+06, .718609D+06, .527645D+06, .387132D+06,
     +  .283851D+06, .207956D+06, .152247D+06, .111368D+06,
     +  .814043D+05, .594499D+05, .433826D+05, .316284D+05,
     +  .230401D+05, .167676D+05, .121924D+05, .885671D+04,
     +  .642805D+04, .466061D+04, .337624D+04, .244331D+04,
     +  .176669D+04, .127618D+04, .921133D+03, .664231D+03 /
        DATA (UPDI(I),I=3485,3536) /
     +  .478827D+03, .343310D+03, .247221D+03, .177961D+03,
     +  .128107D+03, .922302D+02, .664314D+02, .479324D+02,
     +  .346034D+02, .250239D+02, .181389D+02, .131823D+02,
     +  .961120D+01, .703037D+01, .516436D+01, .380762D+01,
     +  .281852D+01, .209428D+01, .156202D+01, .116861D+01,
     +  .877928D+00, .659747D+00, .497694D+00, .375178D+00,
     +  .283299D+00, .213893D+00, .161401D+00, .121630D+00,
     +  .914891D-01, .686344D-01, .513278D-01, .382404D-01,
     +  .283708D-01, .209446D-01, .153810D-01, .112285D-01,
     +  .814161D-02, .587025D-02, .419169D-02, .296801D-02,
     +  .208362D-02, .144951D-02, .999337D-03, .682576D-03,
     +  .462253D-03, .310478D-03, .207201D-03, .137518D-03,
     +  .914702D-04, .607760D-04, .406188D-04, .273548D-04 /
        DATA (UPDI(I),I=3537,3588) /
     +  .185871D-04, .127032D-04, .868947D-05, .588950D-05,
     +  .389788D-05, .248179D-05, .148588D-05, .810130D-06,
     +  .383197D-06, .143255D-06, .345435D-07, .289033D-08,
     +  .000000D+00, .220422D+07, .164675D+07, .120641D+07,
     +  .883186D+06, .646126D+06, .472311D+06, .345005D+06,
     +  .251797D+06, .183630D+06, .133796D+06, .974079D+05,
     +  .708485D+05, .514869D+05, .373792D+05, .271128D+05,
     +  .196457D+05, .142218D+05, .102842D+05, .742973D+04,
     +  .536157D+04, .386540D+04, .278362D+04, .200270D+04,
     +  .143927D+04, .103342D+04, .741207D+03, .531389D+03,
     +  .378832D+03, .271237D+03, .194104D+03, .138887D+03,
     +  .993771D+02, .711281D+02, .509918D+02, .365697D+02,
     +  .262686D+02, .189111D+02, .136483D+02, .988107D+01 /
        DATA (UPDI(I),I=3589,3640) /
     +  .717657D+01, .523411D+01, .383139D+01, .281575D+01,
     +  .207723D+01, .153824D+01, .114265D+01, .852393D+00,
     +  .636078D+00, .476530D+00, .356766D+00, .267578D+00,
     +  .200680D+00, .150435D+00, .112630D+00, .841747D-01,
     +  .627470D-01, .466311D-01, .345268D-01, .254593D-01,
     +  .186823D-01, .136383D-01, .989858D-02, .713624D-02,
     +  .511677D-02, .363392D-02, .255987D-02, .178847D-02,
     +  .123878D-02, .850838D-03, .579435D-03, .391650D-03,
     +  .262914D-03, .175668D-03, .116970D-03, .782212D-04,
     +  .523703D-04, .353254D-04, .240294D-04, .164805D-04,
     +  .113476D-04, .779364D-05, .528434D-05, .348360D-05,
     +  .220083D-05, .130205D-05, .698709D-06, .323625D-06,
     +  .117747D-06, .275729D-07, .233873D-08, .000000D+00 /
        DATA (UPDI(I),I=3641,3692) /
     +  .270550D+07, .201526D+07, .147113D+07, .107312D+07,
     +  .782216D+06, .569680D+06, .414570D+06, .301419D+06,
     +  .218970D+06, .158921D+06, .115239D+06, .834799D+05,
     +  .604175D+05, .436801D+05, .315488D+05, .227615D+05,
     +  .164052D+05, .118102D+05, .849342D+04, .610084D+04,
     +  .437765D+04, .313737D+04, .224614D+04, .160615D+04,
     +  .114736D+04, .818616D+03, .583753D+03, .413863D+03,
     +  .294667D+03, .209672D+03, .149152D+03, .106087D+03,
     +  .754677D+02, .537673D+02, .383150D+02, .273442D+02,
     +  .195555D+02, .140189D+02, .100806D+02, .727131D+01,
     +  .526652D+01, .382833D+01, .279388D+01, .204674D+01,
     +  .150511D+01, .111028D+01, .822561D+00, .609608D+00,
     +  .453607D+00, .337319D+00, .251312D+00, .187244D+00 /
        DATA (UPDI(I),I=3693,3744) /
     +  .139451D+00, .103735D+00, .770343D-01, .570637D-01,
     +  .421442D-01, .310134D-01, .227300D-01, .165801D-01,
     +  .120327D-01, .868299D-02, .622449D-02, .443859D-02,
     +  .313558D-02, .219778D-02, .152838D-02, .105426D-02,
     +  .721587D-03, .490136D-03, .330793D-03, .222045D-03,
     +  .148608D-03, .993127D-04, .667805D-04, .450393D-04,
     +  .306343D-04, .210140D-04, .145148D-04, .100419D-04,
     +  .690620D-05, .467263D-05, .306182D-05, .191612D-05,
     +  .111878D-05, .590314D-06, .267570D-06, .947435D-07,
     +  .215651D-07, .185392D-08, .000000D+00, .328622D+07,
     +  .244057D+07, .177527D+07, .129033D+07, .937123D+06,
     +  .679983D+06, .492991D+06, .357079D+06, .258408D+06,
     +  .186814D+06, .134930D+06, .973524D+05, .701707D+05 /
        DATA (UPDI(I),I=3745,3796) /
     +  .505218D+05, .363373D+05, .261046D+05, .187331D+05,
     +  .134267D+05, .961271D+04, .687338D+04, .490910D+04,
     +  .350164D+04, .249487D+04, .177526D+04, .126182D+04,
     +  .895670D+03, .635369D+03, .448028D+03, .317261D+03,
     +  .224499D+03, .158795D+03, .112293D+03, .794099D+02,
     +  .562357D+02, .398271D+02, .282451D+02, .200707D+02,
     +  .142951D+02, .102115D+02, .731681D+01, .526391D+01,
     +  .380059D+01, .275481D+01, .200441D+01, .146397D+01,
     +  .107261D+01, .789307D+00, .581028D+00, .429467D+00,
     +  .317253D+00, .234815D+00, .173821D+00, .128623D+00,
     +  .950735D-01, .701576D-01, .516466D-01, .379090D-01,
     +  .277275D-01, .201998D-01, .146476D-01, .105685D-01,
     +  .758308D-02, .540573D-02, .383404D-02, .269451D-02 /
        DATA (UPDI(I),I=3797,3848) /
     +  .187949D-02, .130126D-02, .894122D-03, .610043D-03,
     +  .413451D-03, .278741D-03, .187180D-03, .125540D-03,
     +  .842280D-04, .569523D-04, .386768D-04, .265004D-04,
     +  .183023D-04, .127059D-04, .881251D-05, .605570D-05,
     +  .408050D-05, .265357D-05, .164292D-05, .945841D-06,
     +  .490379D-06, .217434D-06, .749383D-07, .165957D-07,
     +  .144579D-08, .000000D+00, .159314D+05, .255729D+05,
     +  .205063D+05, .164437D+05, .131860D+05, .105739D+05,
     +  .847935D+04, .679981D+04, .545304D+04, .437310D+04,
     +  .350712D+04, .281271D+04, .225587D+04, .180933D+04,
     +  .145126D+04, .116410D+04, .933829D+03, .749160D+03,
     +  .601062D+03, .482289D+03, .387033D+03, .310635D+03,
     +  .249360D+03, .200211D+03, .160788D+03, .129163D+03 /
        DATA (UPDI(I),I=3849,3900) /
     +  .103793D+03, .831815D+02, .669076D+02, .538473D+02,
     +  .433647D+02, .349497D+02, .281933D+02, .227819D+02,
     +  .184232D+02, .149219D+02, .121076D+02, .984390D+01,
     +  .802104D+01, .655053D+01, .536388D+01, .440259D+01,
     +  .362216D+01, .298658D+01, .246723D+01, .204134D+01,
     +  .169200D+01, .140161D+01, .116235D+01, .962218D+00,
     +  .796092D+00, .657399D+00, .541495D+00, .444611D+00,
     +  .363671D+00, .296145D+00, .239937D+00, .193295D+00,
     +  .154741D+00, .123021D+00, .970659D-01, .759569D-01,
     +  .589071D-01, .452967D-01, .344098D-01, .258407D-01,
     +  .191645D-01, .140207D-01, .101059D-01, .716643D-02,
     +  .499168D-02, .340885D-02, .227688D-02, .148298D-02,
     +  .943207D-03, .579943D-03, .344349D-03, .196419D-03 /
        DATA (UPDI(I),I=3901,3952) /
     +  .106940D-03, .551253D-04, .266250D-04, .119026D-04,
     +  .480696D-05, .172203D-05, .524804D-06, .128280D-06,
     +  .227838D-07, .244308D-08, .104331D-09, .468971D-12,
     +  .000000D+00, .898777D+05, .700923D+05, .540223D+05,
     +  .416679D+05, .321649D+05, .248479D+05, .192115D+05,
     +  .148652D+05, .115121D+05, .892249D+04, .692155D+04,
     +  .537371D+04, .417582D+04, .324766D+04, .252816D+04,
     +  .196972D+04, .153611D+04, .119898D+04, .936753D+03,
     +  .732522D+03, .573402D+03, .449256D+03, .352358D+03,
     +  .276623D+03, .217403D+03, .171041D+03, .134736D+03,
     +  .105894D+03, .836257D+02, .661208D+02, .523592D+02,
     +  .415212D+02, .329830D+02, .262632D+02, .209443D+02,
     +  .167389D+02, .134120D+02, .107737D+02, .867938D+01 /
        DATA (UPDI(I),I=3953,4004) /
     +  .701139D+01, .568263D+01, .461850D+01, .376443D+01,
     +  .307605D+01, .251945D+01, .206726D+01, .169995D+01,
     +  .139721D+01, .115010D+01, .945099D+00, .776388D+00,
     +  .636664D+00, .520866D+00, .424830D+00, .345237D+00,
     +  .279340D+00, .224905D+00, .180068D+00, .143285D+00,
     +  .113237D+00, .888269D-01, .691153D-01, .532994D-01,
     +  .407609D-01, .307958D-01, .230018D-01, .169675D-01,
     +  .123468D-01, .885164D-02, .624240D-02, .432322D-02,
     +  .293398D-02, .194643D-02, .125704D-02, .791215D-03,
     +  .479416D-03, .278517D-03, .153385D-03, .785232D-04,
     +  .360060D-04, .133478D-04, .246171D-05, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=4005,4056) /
     +  .159898D+06, .123467D+06, .940674D+05, .716977D+05,
     +  .546765D+05, .417139D+05, .318427D+05, .243189D+05,
     +  .185844D+05, .142096D+05, .108719D+05, .832300D+04,
     +  .637638D+04, .488812D+04, .375022D+04, .287919D+04,
     +  .221240D+04, .170130D+04, .130952D+04, .100878D+04,
     +  .777932D+03, .600456D+03, .463995D+03, .358911D+03,
     +  .277967D+03, .215534D+03, .167379D+03, .129681D+03,
     +  .101002D+03, .787808D+02, .615623D+02, .481900D+02,
     +  .378013D+02, .297341D+02, .234336D+02, .185149D+02,
     +  .146727D+02, .116617D+02, .929964D+01, .743899D+01,
     +  .597287D+01, .481062D+01, .388709D+01, .314969D+01,
     +  .255901D+01, .208328D+01, .170023D+01, .138708D+01,
     +  .113363D+01, .925006D+00, .754686D+00, .614711D+00 /
        DATA (UPDI(I),I=4057,4108) /
     +  .499603D+00, .404859D+00, .326928D+00, .262879D+00,
     +  .210356D+00, .167404D+00, .132420D+00, .104042D+00,
     +  .811489D-01, .627903D-01, .481569D-01, .366336D-01,
     +  .275345D-01, .204632D-01, .150231D-01, .108834D-01,
     +  .777132D-02, .546171D-02, .377276D-02, .255682D-02,
     +  .169693D-02, .109913D-02, .696755D-03, .427910D-03,
     +  .254724D-03, .146354D-03, .808804D-04, .427737D-04,
     +  .215789D-04, .103497D-04, .470181D-05, .203265D-05,
     +  .844041D-06, .336211D-06, .128765D-06, .448955D-07,
     +  .120139D-07, .809615D-09, .000000D+00, .244176D+06,
     +  .187513D+06, .141942D+06, .107463D+06, .813840D+05,
     +  .616438D+05, .467075D+05, .353976D+05, .268366D+05,
     +  .203513D+05, .154400D+05, .117176D+05, .889704D+04 /
        DATA (UPDI(I),I=4109,4160) /
     +  .675796D+04, .513614D+04, .390526D+04, .297135D+04,
     +  .226195D+04, .172323D+04, .131364D+04, .100230D+04,
     +  .765320D+03, .584964D+03, .447509D+03, .342749D+03,
     +  .262805D+03, .201816D+03, .154593D+03, .119065D+03,
     +  .918402D+02, .709795D+02, .549575D+02, .426478D+02,
     +  .331936D+02, .258902D+02, .202495D+02, .158898D+02,
     +  .125082D+02, .988227D+01, .783393D+01, .623539D+01,
     +  .497976D+01, .399098D+01, .320832D+01, .258670D+01,
     +  .209011D+01, .169350D+01, .137176D+01, .111341D+01,
     +  .902341D+00, .731325D+00, .591811D+00, .477926D+00,
     +  .384866D+00, .308871D+00, .246852D+00, .196350D+00,
     +  .155338D+00, .122163D+00, .954348D-01, .740180D-01,
     +  .569579D-01, .434465D-01, .328758D-01, .245816D-01 /
        DATA (UPDI(I),I=4161,4212) /
     +  .181762D-01, .132792D-01, .957555D-02, .680818D-02,
     +  .476648D-02, .328204D-02, .221924D-02, .147162D-02,
     +  .954227D-03, .607389D-03, .376275D-03, .227567D-03,
     +  .134289D-03, .775492D-04, .439698D-04, .247364D-04,
     +  .139372D-04, .794774D-05, .459822D-05, .267007D-05,
     +  .149842D-05, .773927D-06, .337298D-06, .998305D-07,
     +  .762443D-08, .000000D+00, .250163D+06, .264281D+06,
     +  .199109D+06, .150005D+06, .113025D+06, .851586D+05,
     +  .641729D+05, .483587D+05, .364487D+05, .274731D+05,
     +  .207127D+05, .156172D+05, .117788D+05, .888513D+04,
     +  .670481D+04, .506062D+04, .382137D+04, .288646D+04,
     +  .218151D+04, .164940D+04, .124796D+04, .944740D+03,
     +  .715798D+03, .542723D+03, .411911D+03, .312930D+03 /
        DATA (UPDI(I),I=4213,4264) /
     +  .238077D+03, .180633D+03, .137805D+03, .105284D+03,
     +  .805954D+02, .618097D+02, .475112D+02, .366325D+02,
     +  .283074D+02, .219376D+02, .170599D+02, .133111D+02,
     +  .104262D+02, .819574D+01, .647014D+01, .512617D+01,
     +  .407653D+01, .325240D+01, .260302D+01, .208823D+01,
     +  .168020D+01, .135164D+01, .108977D+01, .877372D+00,
     +  .706512D+00, .568115D+00, .455938D+00, .364913D+00,
     +  .291093D+00, .231262D+00, .182870D+00, .143837D+00,
     +  .112473D+00, .873704D-01, .673879D-01, .515735D-01,
     +  .391273D-01, .294514D-01, .219065D-01, .161158D-01,
     +  .117157D-01, .840826D-02, .595168D-02, .414987D-02,
     +  .284738D-02, .192003D-02, .127117D-02, .824252D-03,
     +  .525905D-03, .327733D-03, .200426D-03, .120478D-03 /
        DATA (UPDI(I),I=4265,4316) /
     +  .715907D-04, .423002D-04, .251423D-04, .151261D-04,
     +  .923522D-05, .567220D-05, .343497D-05, .197170D-05,
     +  .102267D-05, .439927D-06, .126555D-06, .982640D-08,
     +  .000000D+00, .485755D+06, .370139D+06, .277616D+06,
     +  .208187D+06, .156115D+06, .117045D+06, .877509D+05,
     +  .657778D+05, .493067D+05, .369552D+05, .276987D+05,
     +  .207588D+05, .155589D+05, .116611D+05, .874098D+04,
     +  .655223D+04, .491264D+04, .368369D+04, .276307D+04,
     +  .207296D+04, .155593D+04, .116827D+04, .877727D+03,
     +  .659786D+03, .496355D+03, .373697D+03, .281712D+03,
     +  .211727D+03, .160004D+03, .121081D+03, .917959D+02,
     +  .697200D+02, .530715D+02, .405251D+02, .310132D+02,
     +  .238052D+02, .183371D+02, .141745D+02, .110007D+02 /
        DATA (UPDI(I),I=4317,4368) /
     +  .856976D+01, .670594D+01, .526740D+01, .415363D+01,
     +  .328677D+01, .260944D+01, .207698D+01, .165838D+01,
     +  .132403D+01, .105967D+01, .846962D+00, .677180D+00,
     +  .540732D+00, .430981D+00, .342609D+00, .271478D+00,
     +  .214261D+00, .168326D+00, .131547D+00, .102210D+00,
     +  .788990D-01, .604751D-01, .459978D-01, .346819D-01,
     +  .259456D-01, .191795D-01, .140220D-01, .101295D-01,
     +  .722331D-02, .507919D-02, .351717D-02, .239557D-02,
     +  .160247D-02, .105142D-02, .674606D-03, .424982D-03,
     +  .260584D-03, .155982D-03, .910869D-04, .520123D-04,
     +  .291210D-04, .161266D-04, .890694D-05, .495121D-05,
     +  .277711D-05, .155817D-05, .844000D-06, .421544D-06,
     +  .177282D-06, .505260D-07, .389019D-08, .000000D+00 /
        DATA (UPDI(I),I=4369,4420) /
     +  .658013D+06, .499680D+06, .373256D+06, .278742D+06,
     +  .208123D+06, .155347D+06, .115935D+06, .864958D+05,
     +  .645221D+05, .481174D+05, .358788D+05, .267465D+05,
     +  .199367D+05, .148577D+05, .110721D+05, .824971D+04,
     +  .614697D+04, .457980D+04, .341259D+04, .254289D+04,
     +  .189533D+04, .141289D+04, .105367D+04, .786045D+03,
     +  .586743D+03, .438229D+03, .327671D+03, .244197D+03,
     +  .182980D+03, .137280D+03, .103170D+03, .776702D+02,
     +  .585984D+02, .443484D+02, .336364D+02, .255893D+02,
     +  .195370D+02, .149699D+02, .115173D+02, .889570D+01,
     +  .690255D+01, .537716D+01, .420583D+01, .330167D+01,
     +  .260084D+01, .205430D+01, .162799D+01, .129014D+01,
     +  .102507D+01, .813441D+00, .645800D+00, .512102D+00 /
        DATA (UPDI(I),I=4421,4472) /
     +  .405368D+00, .320074D+00, .251929D+00, .197521D+00,
     +  .154160D+00, .119699D+00, .924088D-01, .708819D-01,
     +  .539893D-01, .408102D-01, .305804D-01, .227378D-01,
     +  .167060D-01, .121403D-01, .871831D-02, .618104D-02,
     +  .432188D-02, .297669D-02, .201728D-02, .134338D-02,
     +  .878175D-03, .562064D-03, .353844D-03, .217418D-03,
     +  .130941D-03, .773983D-04, .451075D-04, .260628D-04,
     +  .150792D-04, .879989D-05, .519270D-05, .307861D-05,
     +  .179847D-05, .995730D-06, .497335D-06, .204212D-06,
     +  .554802D-07, .438146D-08, .000000D+00, .868058D+06,
     +  .657041D+06, .488912D+06, .363669D+06, .270433D+06,
     +  .201016D+06, .149375D+06, .110955D+06, .823938D+05,
     +  .611599D+05, .453864D+05, .336679D+05, .249692D+05 /
        DATA (UPDI(I),I=4473,4524) /
     +  .185114D+05, .137210D+05, .101672D+05, .753277D+04,
     +  .557957D+04, .413260D+04, .306040D+04, .226655D+04,
     +  .167857D+04, .124340D+04, .921181D+03, .682744D+03,
     +  .506219D+03, .375692D+03, .277825D+03, .206560D+03,
     +  .153747D+03, .114616D+03, .855846D+02, .640367D+02,
     +  .480629D+02, .361490D+02, .272710D+02, .206470D+02,
     +  .156890D+02, .119710D+02, .917068D+01, .705855D+01,
     +  .545499D+01, .423325D+01, .329759D+01, .257790D+01,
     +  .202095D+01, .158980D+01, .125071D+01, .986659D+00,
     +  .777420D+00, .612906D+00, .482681D+00, .379485D+00,
     +  .297627D+00, .232705D+00, .181249D+00, .140539D+00,
     +  .108419D+00, .831648D-01, .633869D-01, .479770D-01,
     +  .360399D-01, .268382D-01, .198330D-01, .144826D-01 /
        DATA (UPDI(I),I=4525,4576) /
     +  .104610D-01, .746762D-02, .526352D-02, .365956D-02,
     +  .250697D-02, .169046D-02, .112077D-02, .730049D-03,
     +  .466208D-03, .293390D-03, .180721D-03, .109550D-03,
     +  .655470D-04, .389462D-04, .231352D-04, .138638D-04,
     +  .841551D-05, .515443D-05, .314800D-05, .187152D-05,
     +  .104212D-05, .517025D-06, .208258D-06, .549409D-07,
     +  .440712D-08, .000000D+00, .112232D+07, .846807D+06,
     +  .627748D+06, .465146D+06, .344533D+06, .255065D+06,
     +  .188758D+06, .139616D+06, .103229D+06, .762855D+05,
     +  .563534D+05, .416084D+05, .307103D+05, .226558D+05,
     +  .167083D+05, .123165D+05, .907662D+04, .668634D+04,
     +  .492451D+04, .362580D+04, .266935D+04, .196483D+04,
     +  .144632D+04, .106463D+04, .783853D+03, .577241D+03 /
        DATA (UPDI(I),I=4577,4628) /
     +  .425429D+03, .312341D+03, .230538D+03, .170325D+03,
     +  .126018D+03, .933797D+02, .693269D+02, .516272D+02,
     +  .385229D+02, .288316D+02, .216549D+02, .163245D+02,
     +  .123575D+02, .939256D+01, .717313D+01, .550094D+01,
     +  .423643D+01, .327531D+01, .254150D+01, .197783D+01,
     +  .154468D+01, .120652D+01, .945105D+00, .739480D+00,
     +  .578980D+00, .452862D+00, .353643D+00, .275512D+00,
     +  .213990D+00, .165582D+00, .127557D+00, .977711D-01,
     +  .745178D-01, .564365D-01, .424478D-01, .316877D-01,
     +  .234506D-01, .172230D-01, .124997D-01, .897403D-02,
     +  .636802D-02, .446239D-02, .308514D-02, .210221D-02,
     +  .141059D-02, .931230D-03, .604571D-03, .385336D-03,
     +  .242508D-03, .149821D-03, .914428D-04, .553731D-04 /
        DATA (UPDI(I),I=4629,4680) /
     +  .334931D-04, .203722D-04, .125445D-04, .782422D-05,
     +  .489926D-05, .303462D-05, .181167D-05, .100414D-05,
     +  .491356D-06, .193330D-06, .495004D-07, .402799D-08,
     +  .000000D+00, .142763D+07, .107380D+07, .793060D+06,
     +  .585413D+06, .431939D+06, .318511D+06, .234760D+06,
     +  .172927D+06, .127319D+06, .936834D+05, .689006D+05,
     +  .506433D+05, .372063D+05, .273183D+05, .200492D+05,
     +  .147059D+05, .107823D+05, .790141D+04, .578826D+04,
     +  .423835D+04, .310272D+04, .227061D+04, .166150D+04,
     +  .121557D+04, .889398D+03, .650762D+03, .476467D+03,
     +  .347432D+03, .254680D+03, .186847D+03, .137256D+03,
     +  .100970D+03, .744100D+02, .550010D+02, .407315D+02,
     +  .302539D+02, .225505D+02, .168704D+02, .126737D+02 /
        DATA (UPDI(I),I=4681,4732) /
     +  .956012D+01, .724624D+01, .551559D+01, .421632D+01,
     +  .323592D+01, .249275D+01, .192598D+01, .149355D+01,
     +  .115837D+01, .901100D+00, .700188D+00, .544485D+00,
     +  .423013D+00, .328128D+00, .253942D+00, .195941D+00,
     +  .150629D+00, .115288D+00, .878001D-01, .664917D-01,
     +  .500396D-01, .374002D-01, .277458D-01, .204058D-01,
     +  .148948D-01, .107438D-01, .766684D-02, .540820D-02,
     +  .376794D-02, .259058D-02, .175602D-02, .117270D-02,
     +  .771063D-03, .499092D-03, .317632D-03, .200016D-03,
     +  .124005D-03, .762394D-04, .467173D-04, .287267D-04,
     +  .178295D-04, .112129D-04, .712598D-05, .451934D-05,
     +  .281436D-05, .167556D-05, .919628D-06, .442272D-06,
     +  .169622D-06, .421341D-07, .347693D-08, .000000D+00 /
        DATA (UPDI(I),I=4733,4784) /
     +  .179106D+07, .134298D+07, .988203D+06, .726725D+06,
     +  .534153D+06, .392349D+06, .288034D+06, .211310D+06,
     +  .154936D+06, .113523D+06, .831325D+05, .608353D+05,
     +  .444931D+05, .325185D+05, .237535D+05, .173393D+05,
     +  .126506D+05, .922381D+04, .672215D+04, .489618D+04,
     +  .356490D+04, .259437D+04, .188761D+04, .137295D+04,
     +  .998557D+03, .726154D+03, .528336D+03, .382754D+03,
     +  .278737D+03, .203133D+03, .148204D+03, .108270D+03,
     +  .792287D+02, .581471D+02, .427511D+02, .315236D+02,
     +  .233252D+02, .173224D+02, .129180D+02, .967318D+01,
     +  .727856D+01, .550009D+01, .417420D+01, .318074D+01,
     +  .243288D+01, .186651D+01, .143738D+01, .110708D+01,
     +  .855317D+00, .660089D+00, .509848D+00, .393461D+00 /
        DATA (UPDI(I),I=4785,4836) /
     +  .303184D+00, .233097D+00, .178684D+00, .136472D+00,
     +  .103781D+00, .785324D-01, .590957D-01, .441934D-01,
     +  .328240D-01, .241996D-01, .176875D-01, .128316D-01,
     +  .919918D-02, .652523D-02, .457589D-02, .316992D-02,
     +  .216757D-02, .146184D-02, .971832D-03, .636601D-03,
     +  .410994D-03, .261308D-03, .164743D-03, .102559D-03,
     +  .635409D-04, .393918D-04, .245903D-04, .155252D-04,
     +  .992298D-05, .638619D-05, .407668D-05, .253853D-05,
     +  .150101D-05, .813354D-06, .383692D-06, .143301D-06,
     +  .345454D-07, .289034D-08, .000000D+00, .221982D+07,
     +  .165936D+07, .121651D+07, .891291D+06, .652624D+06,
     +  .477521D+06, .349182D+06, .255146D+06, .186315D+06,
     +  .135949D+06, .991330D+05, .722314D+05, .525953D+05 /
        DATA (UPDI(I),I=4837,4888) /
     +  .382675D+05, .278247D+05, .202160D+05, .146788D+05,
     +  .106503D+05, .772289D+04, .559632D+04, .405333D+04,
     +  .293403D+04, .212304D+04, .153552D+04, .111038D+04,
     +  .802713D+03, .580525D+03, .417941D+03, .302452D+03,
     +  .219006D+03, .158742D+03, .115199D+03, .837302D+02,
     +  .610318D+02, .445612D+02, .326290D+02, .239733D+02,
     +  .176780D+02, .130898D+02, .973250D+01, .727145D+01,
     +  .545602D+01, .411171D+01, .311127D+01, .236324D+01,
     +  .180057D+01, .137714D+01, .105345D+01, .808400D+00,
     +  .619686D+00, .475455D+00, .364497D+00, .279023D+00,
     +  .213123D+00, .162314D+00, .123172D+00, .930682D-01,
     +  .699783D-01, .523261D-01, .388854D-01, .287016D-01,
     +  .210295D-01, .152757D-01, .110144D-01, .784867D-02 /
        DATA (UPDI(I),I=4889,4940) /
     +  .553420D-02, .385844D-02, .265798D-02, .180789D-02,
     +  .121333D-02, .803186D-03, .524349D-03, .337804D-03,
     +  .214684D-03, .135594D-03, .848122D-04, .529672D-04,
     +  .332088D-04, .210146D-04, .134574D-04, .870596D-05,
     +  .564751D-05, .361274D-05, .224128D-05, .131270D-05,
     +  .700943D-06, .323962D-06, .117778D-06, .275742D-07,
     +  .233874D-08, .000000D+00, .272109D+07, .202785D+07,
     +  .148122D+07, .108121D+07, .788705D+06, .574883D+06,
     +  .418741D+06, .304762D+06, .221650D+06, .161070D+06,
     +  .116962D+06, .848601D+05, .615236D+05, .445664D+05,
     +  .322590D+05, .233305D+05, .168609D+05, .121751D+05,
     +  .878560D+04, .633472D+04, .456480D+04, .328709D+04,
     +  .236587D+04, .170186D+04, .122383D+04, .879683D+03 /
        DATA (UPDI(I),I=4941,4992) /
     +  .632494D+03, .452619D+03, .325566D+03, .234290D+03,
     +  .168753D+03, .121682D+03, .878672D+02, .636266D+02,
     +  .461457D+02, .335616D+02, .244909D+02, .179364D+02,
     +  .131901D+02, .973973D+01, .722688D+01, .538539D+01,
     +  .403070D+01, .302918D+01, .228526D+01, .172937D+01,
     +  .131380D+01, .998251D+00, .760949D+00, .579439D+00,
     +  .441649D+00, .336367D+00, .255815D+00, .194134D+00,
     +  .146901D+00, .110764D+00, .831604D-01, .621337D-01,
     +  .461684D-01, .340954D-01, .250100D-01, .182120D-01,
     +  .131481D-01, .942300D-02, .667445D-02, .467863D-02,
     +  .324336D-02, .222207D-02, .150366D-02, .100447D-02,
     +  .662297D-03, .431080D-03, .277266D-03, .176240D-03,
     +  .111584D-03, .701599D-04, .441750D-04, .279949D-04 /
        DATA (UPDI(I),I=4993,5044) /
     +  .179298D-04, .116148D-04, .757903D-05, .493742D-05,
     +  .315483D-05, .194488D-05, .112624D-05, .591858D-06,
     +  .267800D-06, .947646D-07, .215659D-07, .185393D-08,
     +  .000000D+00, .330178D+07, .245314D+07, .178535D+07,
     +  .129841D+07, .943603D+06, .685178D+06, .497155D+06,
     +  .360417D+06, .261084D+06, .188959D+06, .136649D+06,
     +  .987299D+05, .712744D+05, .514062D+05, .370457D+05,
     +  .266719D+05, .191875D+05, .137905D+05, .990385D+04,
     +  .710634D+04, .509544D+04, .365063D+04, .261395D+04,
     +  .187039D+04, .133777D+04, .956274D+03, .683696D+03,
     +  .486413D+03, .347829D+03, .248821D+03, .178131D+03,
     +  .127652D+03, .915996D+02, .659085D+02, .474924D+02,
     +  .343162D+02, .248768D+02, .180985D+02, .132208D+02 /
        DATA (UPDI(I),I=5045,5096) /
     +  .969732D+01, .714732D+01, .529050D+01, .393321D+01,
     +  .293620D+01, .220035D+01, .165404D+01, .124829D+01,
     +  .942192D+00, .713507D+00, .539749D+00, .408721D+00,
     +  .309274D+00, .233694D+00, .176210D+00, .132487D+00,
     +  .992614D-01, .740543D-01, .549827D-01, .405998D-01,
     +  .297970D-01, .217224D-01, .157213D-01, .112810D-01,
     +  .803650D-02, .565868D-02, .394370D-02, .271863D-02,
     +  .185269D-02, .124753D-02, .829726D-03, .545098D-03,
     +  .353891D-03, .227368D-03, .144632D-03, .918476D-04,
     +  .580763D-04, .368653D-04, .235967D-04, .152709D-04,
     +  .998190D-05, .655052D-05, .427301D-05, .272036D-05,
     +  .166330D-05, .951057D-06, .491442D-06, .217590D-06,
     +  .749524D-07, .165963D-07, .144580D-08, .000000D+00 /
        DATA (UPDI(I),I=5097,5148) /
     +  .158812D+05, .255495D+05, .204854D+05, .164249D+05,
     +  .131693D+05, .105589D+05, .846589D+04, .678774D+04,
     +  .544222D+04, .436341D+04, .349844D+04, .280492D+04,
     +  .224889D+04, .180308D+04, .144564D+04, .115907D+04,
     +  .929313D+03, .745106D+03, .597422D+03, .479020D+03,
     +  .384095D+03, .307992D+03, .246980D+03, .198066D+03,
     +  .158851D+03, .127413D+03, .102207D+03, .817435D+02,
     +  .655981D+02, .526511D+02, .422679D+02, .339400D+02,
     +  .272595D+02, .219140D+02, .176125D+02, .141609D+02,
     +  .113898D+02, .916391D+01, .737463D+01, .593454D+01,
     +  .477611D+01, .384182D+01, .308793D+01, .247909D+01,
     +  .198710D+01, .158946D+01, .126922D+01, .100896D+01,
     +  .800277D+00, .631210D+00, .495948D+00, .387625D+00 /
        DATA (UPDI(I),I=5149,5200) /
     +  .301203D+00, .232551D+00, .178285D+00, .135634D+00,
     +  .102323D+00, .764916D-01, .566156D-01, .414531D-01,
     +  .299945D-01, .214236D-01, .150845D-01, .104718D-01,
     +  .712630D-02, .475365D-02, .309944D-02, .196816D-02,
     +  .121137D-02, .717856D-03, .405555D-03, .214973D-03,
     +  .103772D-03, .426136D-04, .119447D-04, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .898487D+05,
     +  .700663D+05, .539990D+05, .416470D+05, .321462D+05,
     +  .248312D+05, .191965D+05, .148517D+05, .115001D+05,
     +  .891169D+04, .691186D+04, .536503D+04, .416804D+04 /
        DATA (UPDI(I),I=5201,5252) /
     +  .324068D+04, .252190D+04, .196411D+04, .153107D+04,
     +  .119446D+04, .932696D+03, .728878D+03, .570128D+03,
     +  .446311D+03, .349707D+03, .274234D+03, .215248D+03,
     +  .169093D+03, .132973D+03, .104298D+03, .821735D+02,
     +  .647965D+02, .511474D+02, .404085D+02, .319571D+02,
     +  .253132D+02, .200609D+02, .159138D+02, .126383D+02,
     +  .100455D+02, .799218D+01, .636162D+01, .506771D+01,
     +  .403687D+01, .321521D+01, .255902D+01, .203473D+01,
     +  .161519D+01, .128077D+01, .101137D+01, .797398D+00,
     +  .625424D+00, .488950D+00, .380432D+00, .294469D+00,
     +  .226604D+00, .173284D+00, .131585D+00, .991719D-01,
     +  .741297D-01, .549300D-01, .403136D-01, .292871D-01,
     +  .210411D-01, .149362D-01, .104833D-01, .723894D-02 /
        DATA (UPDI(I),I=5253,5304) /
     +  .492031D-02, .328774D-02, .215497D-02, .138300D-02,
     +  .865794D-03, .526987D-03, .309459D-03, .173853D-03,
     +  .910805D-04, .431990D-04, .159574D-04, .154985D-05,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .159866D+06, .123439D+06,
     +  .940417D+05, .716747D+05, .546558D+05, .416954D+05,
     +  .318261D+05, .243041D+05, .185711D+05, .141976D+05,
     +  .108612D+05, .831343D+04, .636780D+04, .488042D+04,
     +  .374333D+04, .287301D+04, .220685D+04, .169632D+04,
     +  .130505D+04, .100477D+04, .774326D+03, .597215D+03,
     +  .461078D+03, .356284D+03, .275599D+03, .213396D+03 /
        DATA (UPDI(I),I=5305,5356) /
     +  .165444D+03, .127931D+03, .994130D+02, .773337D+02,
     +  .602408D+02, .469796D+02, .366885D+02, .287072D+02,
     +  .224825D+02, .176309D+02, .138480D+02, .108902D+02,
     +  .857613D+01, .675966D+01, .533471D+01, .421169D+01,
     +  .332604D+01, .262584D+01, .207195D+01, .163279D+01,
     +  .128595D+01, .100887D+01, .790682D+00, .616659D+00,
     +  .479601D+00, .371376D+00, .286226D+00, .219418D+00,
     +  .167241D+00, .126648D+00, .952505D-01, .710976D-01,
     +  .526542D-01, .386568D-01, .281266D-01, .202652D-01,
     +  .144503D-01, .102083D-01, .711337D-02, .489407D-02,
     +  .332420D-02, .222682D-02, .147166D-02, .958369D-03,
     +  .615871D-03, .390190D-03, .244424D-03, .151028D-03,
     +  .932775D-04, .570445D-04, .349850D-04, .214321D-04 /
        DATA (UPDI(I),I=5357,5408) /
     +  .132160D-04, .811407D-05, .498428D-05, .300309D-05,
     +  .177250D-05, .997783D-06, .534136D-06, .261808D-06,
     +  .115832D-06, .435319D-07, .119557D-07, .809320D-09,
     +  .000000D+00, .244141D+06, .187481D+06, .141914D+06,
     +  .107438D+06, .813614D+05, .616235D+05, .466893D+05,
     +  .353813D+05, .268220D+05, .203382D+05, .154283D+05,
     +  .117071D+05, .888765D+04, .674954D+04, .512859D+04,
     +  .389850D+04, .296528D+04, .225651D+04, .171835D+04,
     +  .130926D+04, .998363D+03, .761783D+03, .581783D+03,
     +  .444646D+03, .340169D+03, .260477D+03, .199713D+03,
     +  .152693D+03, .117342D+03, .902738D+02, .695519D+02,
     +  .536531D+02, .414520D+02, .320937D+02, .248754D+02,
     +  .193103D+02, .150180D+02, .116970D+02, .912613D+01 /
        DATA (UPDI(I),I=5409,5460) /
     +  .712854D+01, .557725D+01, .436652D+01, .342078D+01,
     +  .267996D+01, .209923D+01, .164274D+01, .128525D+01,
     +  .100193D+01, .780609D+00, .605377D+00, .468358D+00,
     +  .360892D+00, .276890D+00, .211385D+00, .160522D+00,
     +  .121162D+00, .908699D-01, .676739D-01, .500361D-01,
     +  .366984D-01, .266972D-01, .192495D-01, .137509D-01,
     +  .974397D-02, .682127D-02, .472334D-02, .323641D-02,
     +  .219321D-02, .147159D-02, .977257D-03, .644033D-03,
     +  .421397D-03, .274915D-03, .178853D-03, .117577D-03,
     +  .776192D-04, .520628D-04, .353617D-04, .244472D-04,
     +  .170239D-04, .119664D-04, .834338D-05, .574353D-05,
     +  .382903D-05, .244288D-05, .144464D-05, .764723D-06,
     +  .336340D-06, .997899D-07, .762422D-08, .000000D+00 /
        DATA (UPDI(I),I=5461,5512) /
     +  .250099D+06, .264247D+06, .199078D+06, .149977D+06,
     +  .113000D+06, .851366D+05, .641531D+05, .483410D+05,
     +  .364328D+05, .274589D+05, .206999D+05, .156058D+05,
     +  .117686D+05, .887598D+04, .669661D+04, .505327D+04,
     +  .381478D+04, .288056D+04, .217621D+04, .164464D+04,
     +  .124369D+04, .940907D+03, .712352D+03, .539624D+03,
     +  .409121D+03, .310414D+03, .235807D+03, .178584D+03,
     +  .135950D+03, .103601D+03, .790644D+02, .604141D+02,
     +  .462353D+02, .354628D+02, .272321D+02, .209466D+02,
     +  .161442D+02, .124635D+02, .964054D+01, .746726D+01,
     +  .579485D+01, .450117D+01, .349947D+01, .272153D+01,
     +  .211680D+01, .164528D+01, .127896D+01, .990834D+00,
     +  .767441D+00, .591826D+00, .455451D+00, .349195D+00 /
        DATA (UPDI(I),I=5513,5564) /
     +  .266664D+00, .202693D+00, .153304D+00, .115291D+00,
     +  .861827D-01, .639995D-01, .472060D-01, .345572D-01,
     +  .251069D-01, .180914D-01, .129249D-01, .916746D-02,
     +  .643039D-02, .446677D-02, .307473D-02, .209682D-02,
     +  .141869D-02, .952308D-03, .636144D-03, .423272D-03,
     +  .281755D-03, .187775D-03, .126777D-03, .862226D-04,
     +  .596301D-04, .417691D-04, .297091D-04, .212410D-04,
     +  .152602D-04, .108415D-04, .756595D-05, .509657D-05,
     +  .326718D-05, .193251D-05, .101606D-05, .439249D-06,
     +  .126527D-06, .982624D-08, .000000D+00, .485713D+06,
     +  .370101D+06, .277582D+06, .208157D+06, .156088D+06,
     +  .117021D+06, .877292D+05, .657584D+05, .492893D+05,
     +  .369396D+05, .276847D+05, .207463D+05, .155478D+05 /
        DATA (UPDI(I),I=5565,5616) /
     +  .116511D+05, .873201D+04, .654420D+04, .490544D+04,
     +  .367724D+04, .275729D+04, .206777D+04, .155128D+04,
     +  .116409D+04, .873976D+03, .656416D+03, .493324D+03,
     +  .370968D+03, .279252D+03, .209511D+03, .158000D+03,
     +  .119267D+03, .901498D+02, .682236D+02, .517078D+02,
     +  .392793D+02, .298726D+02, .227587D+02, .173752D+02,
     +  .132891D+02, .101851D+02, .781843D+01, .601433D+01,
     +  .463197D+01, .357139D+01, .275529D+01, .212651D+01,
     +  .164054D+01, .126617D+01, .974169D+00, .749587D+00,
     +  .574419D+00, .439406D+00, .334981D+00, .254431D+00,
     +  .192416D+00, .144838D+00, .108442D+00, .807299D-01,
     +  .597260D-01, .439044D-01, .320442D-01, .232202D-01,
     +  .166955D-01, .119058D-01, .843240D-02, .590774D-02 /
        DATA (UPDI(I),I=5617,5668) /
     +  .409981D-02, .281943D-02, .192048D-02, .129687D-02,
     +  .867719D-03, .576348D-03, .379902D-03, .249129D-03,
     +  .162386D-03, .106229D-03, .692338D-04, .453425D-04,
     +  .297602D-04, .196686D-04, .130075D-04, .863933D-05,
     +  .569371D-05, .371304D-05, .235502D-05, .143664D-05,
     +  .815972D-06, .416879D-06, .176808D-06, .505061D-07,
     +  .389007D-08, .000000D+00, .657967D+06, .499639D+06,
     +  .373220D+06, .278709D+06, .208094D+06, .155321D+06,
     +  .115911D+06, .864746D+05, .645032D+05, .481004D+05,
     +  .358636D+05, .267329D+05, .199246D+05, .148468D+05,
     +  .110623D+05, .824097D+04, .613914D+04, .457278D+04,
     +  .340630D+04, .253726D+04, .189028D+04, .140836D+04,
     +  .104961D+04, .782397D+03, .583466D+03, .435282D+03 /
        DATA (UPDI(I),I=5669,5720) /
     +  .325019D+03, .241811D+03, .180826D+03, .135334D+03,
     +  .101409D+03, .760740D+02, .571483D+02, .430285D+02,
     +  .324328D+02, .244901D+02, .185317D+02, .140496D+02,
     +  .106746D+02, .812439D+01, .619735D+01, .473385D+01,
     +  .362071D+01, .277160D+01, .212290D+01, .162573D+01,
     +  .124585D+01, .951932D+00, .727638D+00, .554035D+00,
     +  .421214D+00, .319226D+00, .241100D+00, .181357D+00,
     +  .135815D+00, .101194D+00, .749900D-01, .552430D-01,
     +  .404476D-01, .294144D-01, .212448D-01, .152316D-01,
     +  .108349D-01, .765864D-02, .535749D-02, .371464D-02,
     +  .255398D-02, .174075D-02, .117729D-02, .789859D-03,
     +  .526747D-03, .349207D-03, .230734D-03, .151971D-03,
     +  .100704D-03, .667344D-04, .445766D-04, .299632D-04 /
        DATA (UPDI(I),I=5721,5772) /
     +  .203296D-04, .138426D-04, .946194D-05, .641642D-05,
     +  .428553D-05, .277337D-05, .171182D-05, .976038D-06,
     +  .494108D-06, .203889D-06, .554667D-07, .438137D-08,
     +  .000000D+00, .868008D+06, .656996D+06, .488871D+06,
     +  .363633D+06, .270401D+06, .200987D+06, .149349D+06,
     +  .110932D+06, .823732D+05, .611414D+05, .453698D+05,
     +  .336531D+05, .249560D+05, .184995D+05, .137104D+05,
     +  .101577D+05, .752428D+04, .557196D+04, .412579D+04,
     +  .305430D+04, .226108D+04, .167368D+04, .123901D+04,
     +  .917247D+03, .679214D+03, .503049D+03, .372844D+03,
     +  .275267D+03, .204257D+03, .151670D+03, .112741D+03,
     +  .838897D+02, .625019D+02, .466709D+02, .348848D+02,
     +  .261217D+02, .196010D+02, .147367D+02, .111041D+02 /
        DATA (UPDI(I),I=5773,5824) /
     +  .838220D+01, .634245D+01, .480629D+01, .364748D+01,
     +  .277086D+01, .210656D+01, .160153D+01, .121869D+01,
     +  .924791D+00, .702217D+00, .531239D+00, .401376D+00,
     +  .302372D+00, .227052D+00, .169843D+00, .126514D+00,
     +  .937833D-01, .691591D-01, .507122D-01, .369676D-01,
     +  .267737D-01, .192639D-01, .137634D-01, .975948D-02,
     +  .687920D-02, .480067D-02, .332229D-02, .228120D-02,
     +  .155389D-02, .105110D-02, .706077D-03, .472014D-03,
     +  .314172D-03, .208773D-03, .138643D-03, .928298D-04,
     +  .623436D-04, .422966D-04, .289468D-04, .200114D-04,
     +  .138911D-04, .966042D-05, .665224D-05, .449158D-05,
     +  .292788D-05, .180991D-05, .102833D-05, .514799D-06,
     +  .208038D-06, .549318D-07, .440706D-08, .000000D+00 /
        DATA (UPDI(I),I=5825,5876) /
     +  .112227D+07, .846758D+06, .627704D+06, .465107D+06,
     +  .344498D+06, .255033D+06, .188730D+06, .139591D+06,
     +  .103206D+06, .762654D+05, .563355D+05, .415923D+05,
     +  .306960D+05, .226430D+05, .166968D+05, .123063D+05,
     +  .906744D+04, .667812D+04, .491716D+04, .361922D+04,
     +  .266346D+04, .195956D+04, .144160D+04, .106040D+04,
     +  .780065D+03, .573845D+03, .422381D+03, .309609D+03,
     +  .228083D+03, .168117D+03, .124030D+03, .915874D+02,
     +  .677093D+02, .501652D+02, .372006D+02, .276348D+02,
     +  .205711D+02, .153431D+02, .114693D+02, .858971D+01,
     +  .644876D+01, .484923D+01, .365214D+01, .275375D+01,
     +  .207826D+01, .156872D+01, .118542D+01, .893408D+00,
     +  .673903D+00, .506528D+00, .380311D+00, .284768D+00 /
        DATA (UPDI(I),I=5877,5928) /
     +  .212577D+00, .158112D+00, .117128D+00, .863652D-01,
     +  .633637D-01, .462358D-01, .335467D-01, .241885D-01,
     +  .173308D-01, .123339D-01, .871396D-02, .612182D-02,
     +  .425938D-02, .294027D-02, .201486D-02, .137065D-02,
     +  .926623D-03, .622745D-03, .416979D-03, .278409D-03,
     +  .185907D-03, .124340D-03, .840024D-04, .570567D-04,
     +  .392048D-04, .272052D-04, .190608D-04, .133976D-04,
     +  .940740D-05, .652321D-05, .441620D-05, .287630D-05,
     +  .176799D-05, .994508D-06, .489825D-06, .193181D-06,
     +  .494943D-07, .402794D-08, .000000D+00, .142757D+07,
     +  .107375D+07, .793012D+06, .585371D+06, .431901D+06,
     +  .318477D+06, .234730D+06, .172900D+06, .127295D+06,
     +  .936616D+05, .688812D+05, .506259D+05, .371907D+05 /
        DATA (UPDI(I),I=5929,5980) /
     +  .273044D+05, .200368D+05, .146949D+05, .107724D+05,
     +  .789255D+04, .578034D+04, .423127D+04, .309640D+04,
     +  .226496D+04, .165643D+04, .121104D+04, .885346D+03,
     +  .647135D+03, .473218D+03, .344525D+03, .252073D+03,
     +  .184507D+03, .135155D+03, .990816D+02, .727114D+02,
     +  .534716D+02, .393538D+02, .290126D+02, .214319D+02,
     +  .158629D+02, .117671D+02, .874570D+01, .651618D+01,
     +  .486321D+01, .363553D+01, .272122D+01, .203896D+01,
     +  .152820D+01, .114684D+01, .858477D+00, .643287D+00,
     +  .480392D+00, .358421D+00, .266738D+00, .197933D+00,
     +  .146369D+00, .107820D+00, .790694D-01, .577054D-01,
     +  .418934D-01, .302473D-01, .217076D-01, .154839D-01,
     +  .109732D-01, .772174D-02, .540480D-02, .374788D-02 /
        DATA (UPDI(I),I=5981,6032) /
     +  .257968D-02, .176354D-02, .119762D-02, .808883D-03,
     +  .543671D-03, .364500D-03, .244053D-03, .163706D-03,
     +  .110216D-03, .750744D-04, .515050D-04, .357724D-04,
     +  .250973D-04, .177561D-04, .125818D-04, .887799D-05,
     +  .616872D-05, .416827D-05, .270080D-05, .164466D-05,
     +  .912913D-06, .441221D-06, .169521D-06, .421300D-07,
     +  .347690D-08, .000000D+00, .179099D+07, .134292D+07,
     +  .988151D+06, .726679D+06, .534112D+06, .392313D+06,
     +  .288001D+06, .211280D+06, .154910D+06, .113500D+06,
     +  .831115D+05, .608165D+05, .444764D+05, .325036D+05,
     +  .237401D+05, .173274D+05, .126399D+05, .921429D+04,
     +  .671364D+04, .488858D+04, .355811D+04, .258831D+04,
     +  .188220D+04, .136812D+04, .994236D+03, .722291D+03 /
        DATA (UPDI(I),I=6033,6084) /
     +  .524883D+03, .379670D+03, .275978D+03, .200663D+03,
     +  .145992D+03, .106288D+03, .774514D+02, .565528D+02,
     +  .413209D+02, .302408D+02, .221749D+02, .162918D+02,
     +  .119960D+02, .884995D+01, .654534D+01, .484927D+01,
     +  .359884D+01, .267448D+01, .198978D+01, .148095D+01,
     +  .110381D+01, .820705D+00, .610947D+00, .453298D+00,
     +  .336079D+00, .248576D+00, .183350D+00, .134793D+00,
     +  .987264D-01, .719996D-01, .522631D-01, .377448D-01,
     +  .271145D-01, .193650D-01, .137488D-01, .970060D-02,
     +  .679766D-02, .473946D-02, .327477D-02, .224702D-02,
     +  .153217D-02, .103853D-02, .700683D-03, .470957D-03,
     +  .316144D-03, .212268D-03, .143029D-03, .969108D-04,
     +  .665227D-04, .460502D-04, .322782D-04, .228436D-04 /
        DATA (UPDI(I),I=6085,6136) /
     +  .162743D-04, .115878D-04, .819007D-05, .568387D-05,
     +  .382227D-05, .245732D-05, .147922D-05, .808688D-06,
     +  .382972D-06, .143233D-06, .345426D-07, .289032D-08,
     +  .000000D+00, .221975D+07, .165930D+07, .121646D+07,
     +  .891241D+06, .652580D+06, .477481D+06, .349147D+06,
     +  .255114D+06, .186286D+06, .135923D+06, .991104D+05,
     +  .722112D+05, .525772D+05, .382514D+05, .278103D+05,
     +  .202032D+05, .146673D+05, .106401D+05, .771378D+04,
     +  .558819D+04, .404608D+04, .292756D+04, .211726D+04,
     +  .153037D+04, .110579D+04, .798612D+03, .576865D+03,
     +  .414680D+03, .299540D+03, .216406D+03, .156420D+03,
     +  .113125D+03, .818769D+02, .593755D+02, .430816D+02,
     +  .313079D+02, .227945D+02, .166275D+02, .121553D+02 /
        DATA (UPDI(I),I=6137,6188) /
     +  .890320D+01, .653753D+01, .480892D+01, .354357D+01,
     +  .261490D+01, .193193D+01, .142801D+01, .105718D+01,
     +  .780787D+00, .577439D+00, .425681D+00, .313620D+00,
     +  .230539D+00, .169022D+00, .123529D+00, .899558D-01,
     +  .652356D-01, .470949D-01, .338321D-01, .241788D-01,
     +  .171829D-01, .121414D-01, .852769D-02, .594998D-02,
     +  .413179D-02, .284442D-02, .194550D-02, .132308D-02,
     +  .895106D-03, .603305D-03, .405555D-03, .272623D-03,
     +  .183588D-03, .124276D-03, .847331D-04, .585898D-04,
     +  .408874D-04, .288820D-04, .205780D-04, .147288D-04,
     +  .105117D-04, .742355D-05, .513373D-05, .342892D-05,
     +  .218337D-05, .129737D-05, .697709D-06, .323471D-06,
     +  .117732D-06, .275723D-07, .233872D-08, .000000D+00 /
        DATA (UPDI(I),I=6189,6240) /
     +  .272101D+07, .202778D+07, .148116D+07, .108116D+07,
     +  .788657D+06, .574840D+06, .418703D+06, .304728D+06,
     +  .221620D+06, .161043D+06, .116937D+06, .848384D+05,
     +  .615042D+05, .445491D+05, .322436D+05, .233167D+05,
     +  .168486D+05, .121642D+05, .877586D+04, .632603D+04,
     +  .455706D+04, .328019D+04, .235972D+04, .169638D+04,
     +  .121895D+04, .875340D+03, .628626D+03, .449179D+03,
     +  .322503D+03, .231562D+03, .166323D+03, .119518D+03,
     +  .859409D+02, .619116D+02, .446200D+02, .322056D+02,
     +  .232869D+02, .168692D+02, .122461D+02, .890705D+01,
     +  .649465D+01, .474404D+01, .347147D+01, .254402D+01,
     +  .186669D+01, .137044D+01, .100780D+01, .739390D+00,
     +  .543281D+00, .397937D+00, .291342D+00, .212848D+00 /
        DATA (UPDI(I),I=6241,6292) /
     +  .155112D+00, .112694D+00, .815911D-01, .588357D-01,
     +  .422410D-01, .301828D-01, .214586D-01, .151733D-01,
     +  .106697D-01, .745960D-02, .518202D-02, .358392D-02,
     +  .245815D-02, .167596D-02, .113685D-02, .767741D-03,
     +  .517023D-03, .347674D-03, .234101D-03, .158151D-03,
     +  .107567D-03, .737922D-04, .513756D-04, .361102D-04,
     +  .256707D-04, .183809D-04, .131919D-04, .941729D-05,
     +  .663272D-05, .456265D-05, .302239D-05, .190370D-05,
     +  .111549D-05, .589623D-06, .267466D-06, .947338D-07,
     +  .215647D-07, .185392D-08, .000000D+00, .330170D+07,
     +  .245307D+07, .178529D+07, .129835D+07, .943551D+06,
     +  .685132D+06, .497114D+06, .360380D+06, .261051D+06,
     +  .188930D+06, .136623D+06, .987065D+05, .712536D+05 /
        DATA (UPDI(I),I=6293,6344) /
     +  .513876D+05, .370292D+05, .266572D+05, .191743D+05,
     +  .137788D+05, .989345D+04, .709708D+04, .508720D+04,
     +  .364330D+04, .260743D+04, .186459D+04, .133261D+04,
     +  .951686D+03, .679618D+03, .482796D+03, .344614D+03,
     +  .245966D+03, .175596D+03, .125402D+03, .896033D+02,
     +  .641381D+02, .459241D+02, .329286D+02, .236510D+02,
     +  .170178D+02, .122703D+02, .886391D+01, .641908D+01,
     +  .465683D+01, .338443D+01, .246342D+01, .179538D+01,
     +  .130926D+01, .956467D+00, .697134D+00, .508941D+00,
     +  .370413D+00, .269500D+00, .195685D+00, .141746D+00,
     +  .102376D+00, .736919D-01, .528390D-01, .377262D-01,
     +  .268120D-01, .189626D-01, .133407D-01, .933559D-02,
     +  .649681D-02, .449347D-02, .309520D-02, .211522D-02 /
        DATA (UPDI(I),I=6345,6396) /
     +  .143769D-02, .972856D-03, .655948D-03, .441473D-03,
     +  .297058D-03, .200413D-03, .135859D-03, .928560D-04,
     +  .640804D-04, .448974D-04, .317529D-04, .226874D-04,
     +  .162992D-04, .117096D-04, .834710D-05, .585420D-05,
     +  .400041D-05, .262522D-05, .163411D-05, .943544D-06,
     +  .489903D-06, .217363D-06, .749318D-07, .165954D-07,
     +  .144579D-08, .000000D+00, .256211D+07, .196415D+07,
     +  .148372D+07, .112080D+07, .846662D+06, .639578D+06,
     +  .483149D+06, .364984D+06, .275722D+06, .208294D+06,
     +  .157359D+06, .118882D+06, .898164D+05, .678595D+05,
     +  .512727D+05, .387425D+05, .292764D+05, .221252D+05,
     +  .167226D+05, .126408D+05, .955692D+04, .722682D+04,
     +  .546615D+04, .413568D+04, .313020D+04, .237024D+04 /
        DATA (UPDI(I),I=6397,6448) /
     +  .179578D+04, .135614D+04, .102915D+04, .781794D+03,
     +  .594621D+03, .452939D+03, .345642D+03, .264554D+03,
     +  .202897D+03, .156122D+03, .120594D+03, .935672D+02,
     +  .729673D+02, .572210D+02, .451659D+02, .358872D+02,
     +  .287176D+02, .231492D+02, .187993D+02, .153795D+02,
     +  .126809D+02, .105142D+02, .878218D+01, .736912D+01,
     +  .621844D+01, .526994D+01, .448197D+01, .382241D+01,
     +  .326650D+01, .279498D+01, .239282D+01, .204822D+01,
     +  .175179D+01, .149604D+01, .127492D+01, .108348D+01,
     +  .917653D+00, .774678D+00, .650244D+00, .542864D+00,
     +  .450452D+00, .371203D+00, .303539D+00, .246068D+00,
     +  .197555D+00, .156896D+00, .123080D+00, .951973D-01,
     +  .726580D-01, .543944D-01, .399177D-01, .286272D-01 /
        DATA (UPDI(I),I=6449,6500) /
     +  .199871D-01, .135211D-01, .880876D-02, .548727D-02,
     +  .322234D-02, .176498D-02, .879967D-03, .385861D-03,
     +  .140482D-03, .381180D-04, .604828D-05, .258374D-06,
     +  .000000D+00, .363347D+07, .278431D+07, .210194D+07,
     +  .158636D+07, .119739D+07, .903534D+06, .681871D+06,
     +  .514434D+06, .388151D+06, .292776D+06, .220856D+06,
     +  .166549D+06, .125605D+06, .946945D+05, .713958D+05,
     +  .538109D+05, .405598D+05, .305611D+05, .230289D+05,
     +  .173472D+05, .130684D+05, .984189D+04, .741299D+04,
     +  .558210D+04, .420430D+04, .316592D+04, .238489D+04,
     +  .178957D+04, .134912D+04, .101743D+04, .768008D+03,
     +  .580203D+03, .438970D+03, .332881D+03, .252848D+03,
     +  .192557D+03, .147158D+03, .112891D+03, .870167D+02 /
        DATA (UPDI(I),I=6501,6552) /
     +  .674070D+02, .525424D+02, .412052D+02, .325359D+02,
     +  .258672D+02, .207140D+02, .167028D+02, .135731D+02,
     +  .110871D+02, .912306D+01, .753936D+01, .626580D+01,
     +  .522921D+01, .437957D+01, .367809D+01, .309530D+01,
     +  .260826D+01, .219918D+01, .185409D+01, .156194D+01,
     +  .131397D+01, .110306D+01, .923563D+00, .770584D+00,
     +  .640916D+00, .529946D+00, .435835D+00, .356205D+00,
     +  .289104D+00, .232787D+00, .185795D+00, .146811D+00,
     +  .114728D+00, .885328D-01, .673248D-01, .504979D-01,
     +  .371293D-01, .267386D-01, .188040D-01, .128590D-01,
     +  .851202D-02, .541617D-02, .329088D-02, .187986D-02,
     +  .999302D-03, .481583D-03, .203322D-03, .707821D-04,
     +  .182549D-04, .276718D-05, .121184D-06, .000000D+00 /
        DATA (UPDI(I),I=6553,6604) /
     +  .510154D+07, .390271D+07, .294027D+07, .221421D+07,
     +  .166754D+07, .125528D+07, .944974D+06, .711042D+06,
     +  .535026D+06, .402383D+06, .302620D+06, .227472D+06,
     +  .170979D+06, .128445D+06, .964854D+05, .724362D+05,
     +  .543768D+05, .407953D+05, .306031D+05, .229431D+05,
     +  .171987D+05, .128846D+05, .965194D+04, .722616D+04,
     +  .540990D+04, .404777D+04, .302906D+04, .225692D+04,
     +  .168912D+04, .126413D+04, .946663D+03, .709228D+03,
     +  .531957D+03, .399762D+03, .300816D+03, .226862D+03,
     +  .171638D+03, .130305D+03, .993710D+02, .761320D+02,
     +  .586773D+02, .454858D+02, .354935D+02, .278793D+02,
     +  .220523D+02, .175599D+02, .140899D+02, .113608D+02,
     +  .922723D+01, .752503D+01, .617112D+01, .508156D+01 /
        DATA (UPDI(I),I=6605,6656) /
     +  .419888D+01, .347893D+01, .288821D+01, .240090D+01,
     +  .199696D+01, .166084D+01, .138020D+01, .114538D+01,
     +  .948513D+00, .783423D+00, .644749D+00, .528964D+00,
     +  .431354D+00, .349842D+00, .281924D+00, .225585D+00,
     +  .179037D+00, .140817D+00, .109616D+00, .843639D-01,
     +  .640931D-01, .479588D-01, .353802D-01, .255680D-01,
     +  .180828D-01, .124788D-01, .836454D-02, .542105D-02,
     +  .337133D-02, .199899D-02, .111139D-02, .573556D-03,
     +  .267267D-03, .108637D-03, .361599D-04, .886065D-05,
     +  .128130D-05, .569024D-07, .000000D+00, .703699D+07,
     +  .537043D+07, .403455D+07, .302935D+07, .227446D+07,
     +  .170674D+07, .128061D+07, .960310D+06, .720035D+06,
     +  .539543D+06, .404232D+06, .302656D+06, .226560D+06 /
        DATA (UPDI(I),I=6657,6708) /
     +  .169478D+06, .126749D+06, .947233D+05, .707709D+05,
     +  .528344D+05, .394326D+05, .294065D+05, .219230D+05,
     +  .163305D+05, .121612D+05, .904908D+04, .673160D+04,
     +  .500337D+04, .371860D+04, .275082D+04, .204366D+04,
     +  .151785D+04, .112772D+04, .838011D+03, .623265D+03,
     +  .464329D+03, .346279D+03, .258748D+03, .193913D+03,
     +  .145791D+03, .110078D+03, .834806D+02, .636757D+02,
     +  .488402D+02, .377015D+02, .292902D+02, .229110D+02,
     +  .180377D+02, .143083D+02, .114026D+02, .915272D+01,
     +  .737547D+01, .597601D+01, .486152D+01, .396821D+01,
     +  .324763D+01, .266304D+01, .218642D+01, .179605D+01,
     +  .147521D+01, .121066D+01, .992147D+00, .811322D+00,
     +  .661699D+00, .537674D+00, .435528D+00, .350596D+00 /
        DATA (UPDI(I),I=6709,6760) /
     +  .280661D+00, .223210D+00, .176236D+00, .137987D+00,
     +  .107044D+00, .821600D-01, .623299D-01, .466610D-01,
     +  .343865D-01, .249736D-01, .177553D-01, .123450D-01,
     +  .836852D-02, .550471D-02, .349711D-02, .212864D-02,
     +  .123349D-02, .668675D-03, .335672D-03, .151633D-03,
     +  .595198D-04, .190255D-04, .445681D-05, .618377D-06,
     +  .272334D-07, .000000D+00, .951813D+07, .724366D+07,
     +  .542387D+07, .405876D+07, .303668D+07, .227053D+07,
     +  .169731D+07, .126794D+07, .946948D+06, .706708D+06,
     +  .527258D+06, .393074D+06, .292938D+06, .218134D+06,
     +  .162368D+06, .120755D+06, .897680D+05, .666720D+05,
     +  .494953D+05, .367088D+05, .272121D+05, .201525D+05,
     +  .149171D+05, .110311D+05, .815347D+04, .602015D+04 /
        DATA (UPDI(I),I=6761,6812) /
     +  .444389D+04, .326402D+04, .240740D+04, .177473D+04,
     +  .130847D+04, .964684D+03, .711656D+03, .525787D+03,
     +  .388762D+03, .287955D+03, .213870D+03, .159328D+03,
     +  .119177D+03, .895226D+02, .676238D+02, .513590D+02,
     +  .392494D+02, .301837D+02, .233667D+02, .182044D+02,
     +  .142881D+02, .112641D+02, .894373D+01, .712785D+01,
     +  .571141D+01, .459442D+01, .370796D+01, .300026D+01,
     +  .243213D+01, .197396D+01, .160282D+01, .130126D+01,
     +  .105548D+01, .854875D+00, .690864D+00, .556814D+00,
     +  .447061D+00, .357809D+00, .284544D+00, .225000D+00,
     +  .176727D+00, .137785D+00, .106506D+00, .815502D-01,
     +  .617635D-01, .462222D-01, .341227D-01, .247856D-01,
     +  .177359D-01, .124159D-01, .849449D-02, .566195D-02 /
        DATA (UPDI(I),I=6813,6864) /
     +  .365874D-02, .228102D-02, .136072D-02, .771689D-03,
     +  .408594D-03, .199910D-03, .877615D-04, .333676D-04,
     +  .102871D-04, .231666D-05, .309840D-06, .131450D-07,
     +  .000000D+00, .128447D+08, .974277D+07, .726648D+07,
     +  .541588D+07, .403529D+07, .300450D+07, .223621D+07,
     +  .166312D+07, .123640D+07, .918421D+06, .681911D+06,
     +  .505872D+06, .375088D+06, .277861D+06, .205721D+06,
     +  .152162D+06, .112479D+06, .830593D+05, .612945D+05,
     +  .451839D+05, .332849D+05, .244920D+05, .180094D+05,
     +  .132276D+05, .970874D+04, .711706D+04, .521490D+04,
     +  .380100D+04, .278165D+04, .203431D+04, .148756D+04,
     +  .108754D+04, .795373D+03, .582485D+03, .426793D+03,
     +  .313217D+03, .230441D+03, .170029D+03, .125938D+03 /
        DATA (UPDI(I),I=6865,6916) /
     +  .936619D+02, .700355D+02, .526457D+02, .398132D+02,
     +  .302941D+02, .232008D+02, .178787D+02, .138784D+02,
     +  .108187D+02, .849335D+01, .669146D+01, .529988D+01,
     +  .421377D+01, .336080D+01, .268720D+01, .215237D+01,
     +  .172596D+01, .138453D+01, .111040D+01, .889676D+00,
     +  .711748D+00, .568102D+00, .452194D+00, .358517D+00,
     +  .283338D+00, .222449D+00, .173635D+00, .134606D+00,
     +  .103561D+00, .789792D-01, .596492D-01, .445492D-01,
     +  .328670D-01, .239118D-01, .171089D-01, .120552D-01,
     +  .830489D-02, .558807D-02, .366062D-02, .232289D-02,
     +  .142074D-02, .830496D-03, .460939D-03, .238451D-03,
     +  .113778D-03, .486042D-04, .179359D-04, .535257D-05,
     +  .116456D-05, .150692D-06, .589119D-08, .000000D+00 /
        DATA (UPDI(I),I=6917,6968) /
     +  .171094D+08, .129312D+08, .960385D+07, .712729D+07,
     +  .528702D+07, .391884D+07, .290330D+07, .214913D+07,
     +  .159001D+07, .117530D+07, .868245D+06, .640799D+06,
     +  .472626D+06, .348236D+06, .256402D+06, .188582D+06,
     +  .138594D+06, .101740D+06, .746249D+05, .546704D+05,
     +  .400170D+05, .292545D+05, .213677D+05, .155873D+05,
     +  .113604D+05, .826794D+04, .601362D+04, .434970D+04,
     +  .315859D+04, .229176D+04, .166224D+04, .120521D+04,
     +  .873942D+03, .634507D+03, .460794D+03, .335125D+03,
     +  .244291D+03, .178565D+03, .131002D+03, .964883D+02,
     +  .714417D+02, .531697D+02, .398040D+02, .299783D+02,
     +  .227214D+02, .173259D+02, .133072D+02, .102617D+02,
     +  .796898D+01, .620935D+01, .486358D+01, .382372D+01 /
        DATA (UPDI(I),I=6969,7020) /
     +  .301533D+01, .238362D+01, .188737D+01, .149604D+01,
     +  .118618D+01, .940238D+00, .744499D+00, .588579D+00,
     +  .464213D+00, .365086D+00, .285959D+00, .223256D+00,
     +  .173120D+00, .133449D+00, .102150D+00, .775866D-01,
     +  .584025D-01, .435263D-01, .320702D-01, .233350D-01,
     +  .167380D-01, .118021D-01, .819237D-02, .555650D-02,
     +  .367883D-02, .236967D-02, .147743D-02, .887014D-03,
     +  .508415D-03, .276351D-03, .139790D-03, .651103D-04,
     +  .270958D-04, .971748D-05, .281194D-05, .592037D-06,
     +  .740283D-07, .248633D-08, .000000D+00, .224514D+08,
     +  .169064D+08, .125015D+08, .923672D+07, .682077D+07,
     +  .503243D+07, .371073D+07, .273367D+07, .201255D+07,
     +  .148021D+07, .108790D+07, .798739D+06, .585976D+06 /
        DATA (UPDI(I),I=7021,7072) /
     +  .429411D+06, .314412D+06, .229938D+06, .168007D+06,
     +  .122603D+06, .893817D+05, .650764D+05, .473318D+05,
     +  .343783D+05, .249435D+05, .180725D+05, .130801D+05,
     +  .945180D+04, .682471D+04, .489917D+04, .353051D+04,
     +  .254172D+04, .182885D+04, .131525D+04, .945803D+03,
     +  .680882D+03, .490191D+03, .353368D+03, .255277D+03,
     +  .184896D+03, .134389D+03, .980534D+02, .719087D+02,
     +  .530011D+02, .392896D+02, .292982D+02, .219836D+02,
     +  .165933D+02, .126145D+02, .962645D+01, .739767D+01,
     +  .570316D+01, .441951D+01, .343729D+01, .268126D+01,
     +  .209644D+01, .164177D+01, .128700D+01, .100910D+01,
     +  .790945D+00, .619253D+00, .484037D+00, .377425D+00,
     +  .293440D+00, .227191D+00, .175322D+00, .134355D+00 /
        DATA (UPDI(I),I=7073,7124) /
     +  .102339D+00, .773973D-01, .580725D-01, .431754D-01,
     +  .317754D-01, .231143D-01, .166004D-01, .117497D-01,
     +  .817186D-02, .559366D-02, .373931D-02, .243894D-02,
     +  .154682D-02, .948969D-03, .560212D-03, .315473D-03,
     +  .168318D-03, .834820D-04, .380799D-04, .155000D-04,
     +  .542932D-05, .153303D-05, .314637D-06, .381867D-07,
     +  .995807D-09, .000000D+00, .290108D+08, .217649D+08,
     +  .160233D+08, .117858D+08, .866337D+07, .636228D+07,
     +  .466907D+07, .342311D+07, .250771D+07, .183518D+07,
     +  .134189D+07, .980096D+06, .715199D+06, .521274D+06,
     +  .379560D+06, .276021D+06, .200515D+06, .145467D+06,
     +  .105414D+06, .762792D+05, .551322D+05, .397881D+05,
     +  .286799D+05, .206409D+05, .148368D+05, .106462D+05 /
        DATA (UPDI(I),I=7125,7176) /
     +  .763220D+04, .543829D+04, .388976D+04, .277904D+04,
     +  .198402D+04, .141551D+04, .100962D+04, .720829D+03,
     +  .514564D+03, .367752D+03, .263343D+03, .189044D+03,
     +  .136164D+03, .984404D+02, .715233D+02, .522228D+02,
     +  .383447D+02, .283192D+02, .210427D+02, .157272D+02,
     +  .118380D+02, .894316D+01, .680341D+01, .519149D+01,
     +  .398174D+01, .306485D+01, .236588D+01, .183052D+01,
     +  .141845D+01, .110019D+01, .853472D+00, .661825D+00,
     +  .512611D+00, .396371D+00, .305727D+00, .235115D+00,
     +  .180041D+00, .137413D+00, .104134D+00, .784312D-01,
     +  .586462D-01, .435008D-01, .319682D-01, .232521D-01,
     +  .167135D-01, .118586D-01, .829050D-02, .569356D-02,
     +  .384759D-02, .253830D-02, .163329D-02, .102151D-02 /
        DATA (UPDI(I),I=7177,7228) /
     +  .617749D-03, .359293D-03, .199236D-03, .104614D-03,
     +  .510303D-04, .228779D-04, .914735D-05, .314544D-05,
     +  .871922D-06, .175607D-06, .207728D-07, .359052D-09,
     +  .000000D+00, .369201D+08, .275965D+08, .202269D+08,
     +  .148113D+08, .108376D+08, .792217D+07, .578636D+07,
     +  .422192D+07, .307776D+07, .224116D+07, .163043D+07,
     +  .118471D+07, .859954D+06, .623426D+06, .451458D+06,
     +  .326481D+06, .235823D+06, .170092D+06, .122529D+06,
     +  .881305D+05, .633054D+05, .453999D+05, .325147D+05,
     +  .232476D+05, .165984D+05, .118285D+05, .842048D+04,
     +  .595653D+04, .422932D+04, .299915D+04, .212485D+04,
     +  .150424D+04, .106439D+04, .753809D+03, .533671D+03,
     +  .378213D+03, .268524D+03, .191097D+03, .136433D+03 /
        DATA (UPDI(I),I=7229,7280) /
     +  .977570D+02, .703864D+02, .509243D+02, .370461D+02,
     +  .271053D+02, .199510D+02, .147696D+02, .110109D+02,
     +  .823769D+01, .620589D+01, .468898D+01, .356086D+01,
     +  .271372D+01, .207395D+01, .158860D+01, .121862D+01,
     +  .935670D+00, .718504D+00, .551515D+00, .422827D+00,
     +  .323613D+00, .247056D+00, .188046D+00, .142513D+00,
     +  .107649D+00, .807288D-01, .601660D-01, .445145D-01,
     +  .326681D-01, .237506D-01, .170884D-01, .121492D-01,
     +  .852491D-02, .589331D-02, .400123D-02, .267295D-02,
     +  .174269D-02, .110798D-02, .684530D-03, .408828D-03,
     +  .234764D-03, .128497D-03, .665778D-04, .320376D-04,
     +  .141653D-04, .558531D-05, .189369D-05, .517817D-06,
     +  .102836D-06, .118957D-07, .982113D-10, .000000D+00 /
        DATA (UPDI(I),I=7281,7332) /
     +  .462985D+08, .344800D+08, .251614D+08, .183428D+08,
     +  .133609D+08, .972188D+07, .706764D+07, .513233D+07,
     +  .372334D+07, .269795D+07, .195291D+07, .141181D+07,
     +  .101949D+07, .735184D+06, .529523D+06, .380840D+06,
     +  .273551D+06, .196183D+06, .140503D+06, .100461D+06,
     +  .717270D+05, .511230D+05, .363831D+05, .258466D+05,
     +  .183330D+05, .129769D+05, .917491D+04, .644427D+04,
     +  .454300D+04, .319818D+04, .224902D+04, .158009D+04,
     +  .110941D+04, .779524D+03, .547443D+03, .384808D+03,
     +  .270937D+03, .191190D+03, .135332D+03, .961287D+02,
     +  .686074D+02, .491975D+02, .354693D+02, .257171D+02,
     +  .187566D+02, .137576D+02, .101618D+02, .753128D+01,
     +  .562067D+01, .420667D+01, .316435D+01, .238865D+01 /
        DATA (UPDI(I),I=7333,7384) /
     +  .180813D+01, .137176D+01, .104222D+01, .792568D+00,
     +  .602781D+00, .458249D+00, .347952D+00, .263751D+00,
     +  .199421D+00, .150331D+00, .112833D+00, .844116D-01,
     +  .626901D-01, .462691D-01, .339003D-01, .246361D-01,
     +  .177359D-01, .126354D-01, .889455D-02, .617912D-02,
     +  .422891D-02, .284214D-02, .187942D-02, .121273D-02,
     +  .763049D-03, .466491D-03, .275665D-03, .156606D-03,
     +  .847958D-04, .434576D-04, .206836D-04, .904454D-05,
     +  .352724D-05, .118272D-05, .319944D-06, .628152D-07,
     +  .712225D-08, .000000D+00, .000000D+00, .572469D+08,
     +  .424799D+08, .308649D+08, .224019D+08, .162445D+08,
     +  .117665D+08, .851458D+07, .615412D+07, .444333D+07,
     +  .320409D+07, .230784D+07, .166006D+07, .119263D+07 /
        DATA (UPDI(I),I=7385,7436) /
     +  .855592D+06, .612991D+06, .438504D+06, .313244D+06,
     +  .223398D+06, .159084D+06, .113089D+06, .802651D+05,
     +  .568641D+05, .402200D+05, .283932D+05, .200101D+05,
     +  .140712D+05, .988219D+04, .689311D+04, .482560D+04,
     +  .337304D+04, .235480D+04, .164220D+04, .114432D+04,
     +  .797905D+03, .555967D+03, .387694D+03, .270762D+03,
     +  .189501D+03, .133021D+03, .936917D+02, .662988D+02,
     +  .471332D+02, .336858D+02, .242101D+02, .175017D+02,
     +  .127230D+02, .931403D+01, .684077D+01, .505948D+01,
     +  .375233D+01, .279704D+01, .209224D+01, .156940D+01,
     +  .117985D+01, .888285D+00, .669390D+00, .504498D+00,
     +  .380073D+00, .285996D+00, .214841D+00, .160987D+00,
     +  .120275D+00, .894685D-01, .663394D-01, .488304D-01 /
        DATA (UPDI(I),I=7437,7488) /
     +  .357199D-01, .259393D-01, .186838D-01, .133319D-01,
     +  .941401D-02, .656836D-02, .452272D-02, .306793D-02,
     +  .204354D-02, .133941D-02, .856584D-03, .534163D-03,
     +  .323644D-03, .189543D-03, .106713D-03, .572624D-04,
     +  .290816D-04, .137158D-04, .594261D-05, .229614D-05,
     +  .762543D-06, .204278D-06, .396740D-07, .441607D-08,
     +  .000000D+00, .000000D+00, .698428D+08, .516430D+08,
     +  .373621D+08, .270001D+08, .194925D+08, .140562D+08,
     +  .101252D+08, .728453D+07, .523483D+07, .375690D+07,
     +  .269291D+07, .192753D+07, .137786D+07, .983449D+06,
     +  .700944D+06, .498783D+06, .354391D+06, .251365D+06,
     +  .178003D+06, .125821D+06, .887854D+05, .625302D+05,
     +  .439617D+05, .308445D+05, .216016D+05, .150931D+05 /
        DATA (UPDI(I),I=7489,7540) /
     +  .105309D+05, .729607D+04, .507305D+04, .352150D+04,
     +  .244108D+04, .169014D+04, .116907D+04, .809088D+03,
     +  .559466D+03, .387118D+03, .268234D+03, .186235D+03,
     +  .129672D+03, .905865D+02, .635720D+02, .448178D+02,
     +  .317615D+02, .226339D+02, .162229D+02, .116923D+02,
     +  .848617D+01, .617882D+01, .453058D+01, .333096D+01,
     +  .246152D+01, .182539D+01, .135746D+01, .101176D+01,
     +  .755227D+00, .564276D+00, .421675D+00, .314999D+00,
     +  .235043D+00, .175093D+00, .130116D+00, .964101D-01,
     +  .711289D-01, .523132D-01, .381942D-01, .277142D-01,
     +  .199646D-01, .142658D-01, .100988D-01, .707485D-02,
     +  .489760D-02, .334596D-02, .225205D-02, .148843D-02,
     +  .968079D-03, .614330D-03, .380150D-03, .228557D-03 /
        DATA (UPDI(I),I=7541,7592) /
     +  .132826D-03, .742026D-04, .395085D-04, .199066D-04,
     +  .931303D-05, .400135D-05, .153264D-05, .504201D-06,
     +  .133718D-06, .256756D-07, .280853D-08, .000000D+00,
     +  .000000D+00, .841368D+08, .619958D+08, .446630D+08,
     +  .321384D+08, .231015D+08, .165854D+08, .118937D+08,
     +  .851818D+07, .609318D+07, .435250D+07, .310501D+07,
     +  .221178D+07, .157329D+07, .111735D+07, .792337D+06,
     +  .560912D+06, .396440D+06, .279688D+06, .196981D+06,
     +  .138464D+06, .971556D+05, .680316D+05, .475487D+05,
     +  .331617D+05, .230825D+05, .160271D+05, .111115D+05,
     +  .764775D+04, .528242D+04, .364213D+04, .250734D+04,
     +  .172386D+04, .118387D+04, .813390D+03, .558275D+03,
     +  .383389D+03, .263620D+03, .181615D+03, .125464D+03 /
        DATA (UPDI(I),I=7593,7644) /
     +  .869516D+02, .605328D+02, .423308D+02, .297551D+02,
     +  .210308D+02, .149502D+02, .106862D+02, .769225D+01,
     +  .555438D+01, .403925D+01, .294522D+01, .215862D+01,
     +  .158771D+01, .117111D+01, .865826D+00, .641110D+00,
     +  .475198D+00, .352303D+00, .261115D+00, .193324D+00,
     +  .142907D+00, .105389D+00, .774991D-01, .567492D-01,
     +  .414295D-01, .300258D-01, .216286D-01, .154685D-01,
     +  .109741D-01, .771374D-02, .536606D-02, .368886D-02,
     +  .250274D-02, .167295D-02, .109811D-02, .709386D-03,
     +  .447104D-03, .274790D-03, .164082D-03, .947001D-04,
     +  .525332D-04, .277712D-04, .138891D-04, .644733D-05,
     +  .274710D-05, .104280D-05, .339621D-06, .890796D-07,
     +  .168932D-07, .181738D-08, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=7645,7696) /
     +  .158812D+05, .258924D+05, .207927D+05, .167003D+05,
     +  .134161D+05, .107801D+05, .866418D+04, .696550D+04,
     +  .560159D+04, .450630D+04, .362658D+04, .291986D+04,
     +  .235199D+04, .189559D+04, .152867D+04, .123361D+04,
     +  .996260D+03, .805258D+03, .651494D+03, .527655D+03,
     +  .427869D+03, .347422D+03, .282529D+03, .230150D+03,
     +  .187843D+03, .153647D+03, .125985D+03, .103304D+03,
     +  .852157D+02, .705420D+02, .586255D+02, .489372D+02,
     +  .410508D+02, .346399D+02, .293924D+02, .251028D+02,
     +  .215887D+02, .187024D+02, .163238D+02, .143549D+02,
     +  .127191D+02, .113494D+02, .101947D+02, .921271D+01,
     +  .836967D+01, .763840D+01, .699943D+01, .642935D+01,
     +  .592153D+01, .545897D+01, .503794D+01, .465012D+01 /
        DATA (UPDI(I),I=7697,7748) /
     +  .429044D+01, .395499D+01, .364074D+01, .334541D+01,
     +  .306726D+01, .280502D+01, .255770D+01, .232458D+01,
     +  .210511D+01, .189887D+01, .170548D+01, .152546D+01,
     +  .135665D+01, .119993D+01, .105503D+01, .921656D+00,
     +  .799513D+00, .688264D+00, .587546D+00, .496962D+00,
     +  .416037D+00, .344253D+00, .281724D+00, .226999D+00,
     +  .179995D+00, .140118D+00, .106773D+00, .793549D-01,
     +  .572508D-01, .398729D-01, .265151D-01, .166964D-01,
     +  .976865D-02, .517045D-02, .236723D-02, .861917D-03,
     +  .206645D-03, .178363D-04, .000000D+00, .902698D+05,
     +  .704441D+05, .543377D+05, .419506D+05, .324183D+05,
     +  .250750D+05, .194151D+05, .150477D+05, .116758D+05,
     +  .906928D+04, .705321D+04, .549181D+04, .428178D+04 /
        DATA (UPDI(I),I=7749,7800) /
     +  .334274D+04, .261352D+04, .204636D+04, .160495D+04,
     +  .126084D+04, .992368D+03, .782547D+03, .618430D+03,
     +  .489814D+03, .388921D+03, .309616D+03, .247209D+03,
     +  .198001D+03, .159157D+03, .128020D+03, .103736D+03,
     +  .844353D+02, .690755D+02, .568133D+02, .470092D+02,
     +  .391650D+02, .328438D+02, .277451D+02, .236227D+02,
     +  .202728D+02, .175414D+02, .152991D+02, .134516D+02,
     +  .119143D+02, .106264D+02, .953646D+01, .860560D+01,
     +  .780164D+01, .710261D+01, .648183D+01, .593190D+01,
     +  .543365D+01, .498303D+01, .457061D+01, .419089D+01,
     +  .383931D+01, .351252D+01, .320781D+01, .292317D+01,
     +  .265697D+01, .240800D+01, .217526D+01, .195796D+01,
     +  .175544D+01, .156706D+01, .139314D+01, .123134D+01 /
        DATA (UPDI(I),I=7801,7852) /
     +  .108234D+01, .945673D+00, .820893D+00, .707523D+00,
     +  .605094D+00, .513095D+00, .431028D+00, .358328D+00,
     +  .294360D+00, .239112D+00, .191178D+00, .150366D+00,
     +  .116073D+00, .876680D-01, .645483D-01, .460997D-01,
     +  .317624D-01, .208721D-01, .129732D-01, .747985D-02,
     +  .389359D-02, .174790D-02, .621593D-03, .145438D-03,
     +  .126875D-04, .000000D+00, .160326D+06, .123852D+06,
     +  .944121D+05, .720067D+05, .549534D+05, .419622D+05,
     +  .320653D+05, .245185D+05, .187634D+05, .143700D+05,
     +  .110159D+05, .845213D+04, .649224D+04, .499209D+04,
     +  .384355D+04, .296299D+04, .228767D+04, .176893D+04,
     +  .137031D+04, .106346D+04, .827137D+03, .644764D+03,
     +  .503928D+03, .394929D+03, .310490D+03, .244936D+03 /
        DATA (UPDI(I),I=7853,7904) /
     +  .193990D+03, .153768D+03, .122872D+03, .986696D+02,
     +  .796868D+02, .647387D+02, .529472D+02, .436306D+02,
     +  .362141D+02, .302977D+02, .255647D+02, .217544D+02,
     +  .186748D+02, .161657D+02, .141131D+02, .124151D+02,
     +  .110007D+02, .980937D+01, .879677D+01, .792601D+01,
     +  .717236D+01, .650611D+01, .591888D+01, .538958D+01,
     +  .491363D+01, .448062D+01, .408450D+01, .372017D+01,
     +  .338390D+01, .307258D+01, .278386D+01, .251584D+01,
     +  .226703D+01, .203618D+01, .182224D+01, .162438D+01,
     +  .144167D+01, .127424D+01, .111962D+01, .978308D+00,
     +  .849639D+00, .733040D+00, .627889D+00, .533601D+00,
     +  .449548D+00, .375145D+00, .309758D+00, .252668D+00,
     +  .203760D+00, .161679D+00, .126155D+00, .965684D-01 /
        DATA (UPDI(I),I=7905,7956) /
     +  .722894D-01, .527248D-01, .372716D-01, .253991D-01,
     +  .164880D-01, .101109D-01, .574065D-02, .293576D-02,
     +  .129017D-02, .447003D-03, .101710D-03, .898331D-05,
     +  .000000D+00, .244642D+06, .187931D+06, .142317D+06,
     +  .107799D+06, .816851D+05, .619137D+05, .469494D+05,
     +  .356145D+05, .270311D+05, .205257D+05, .155965D+05,
     +  .118579D+05, .902297D+04, .687095D+04, .523757D+04,
     +  .399632D+04, .305312D+04, .233541D+04, .178926D+04,
     +  .137301D+04, .105571D+04, .813401D+03, .628279D+03,
     +  .486558D+03, .377987D+03, .294639D+03, .230605D+03,
     +  .180624D+03, .142672D+03, .113278D+03, .904839D+02,
     +  .727321D+02, .588806D+02, .480503D+02, .395158D+02,
     +  .327721D+02, .274259D+02, .231574D+02, .197340D+02 /
        DATA (UPDI(I),I=7957,8008) /
     +  .169640D+02, .147122D+02, .128599D+02, .113249D+02,
     +  .100379D+02, .894898D+01, .801655D+01, .721303D+01,
     +  .650584D+01, .588548D+01, .532909D+01, .483146D+01,
     +  .438125D+01, .397187D+01, .359766D+01, .325449D+01,
     +  .293886D+01, .264812D+01, .238007D+01, .213294D+01,
     +  .190524D+01, .169569D+01, .150324D+01, .132675D+01,
     +  .116615D+01, .101887D+01, .885194D+00, .764332D+00,
     +  .655578D+00, .558193D+00, .471489D+00, .394750D+00,
     +  .327317D+00, .268502D+00, .217529D+00, .174200D+00,
     +  .137213D+00, .106247D+00, .806759D-01, .598789D-01,
     +  .432784D-01, .302948D-01, .204278D-01, .131066D-01,
     +  .793411D-02, .443902D-02, .223202D-02, .961269D-03,
     +  .325004D-03, .720846D-04, .644138D-05, .000000D+00 /
        DATA (UPDI(I),I=8009,8060) /
     +  .250099D+06, .264734D+06, .199514D+06, .150368D+06,
     +  .113351D+06, .854508D+05, .644348D+05, .485935D+05,
     +  .366592D+05, .276619D+05, .208820D+05, .157691D+05,
     +  .119151D+05, .900737D+04, .681452D+04, .515909D+04,
     +  .390980D+04, .296588D+04, .225287D+04, .171354D+04,
     +  .130564D+04, .996646D+03, .762534D+03, .584832D+03,
     +  .449884D+03, .347209D+03, .269048D+03, .208605D+03,
     +  .163140D+03, .128258D+03, .101462D+03, .807890D+02,
     +  .648065D+02, .524231D+02, .427498D+02, .351705D+02,
     +  .292097D+02, .244858D+02, .207235D+02, .176986D+02,
     +  .152538D+02, .132534D+02, .116035D+02, .102265D+02,
     +  .906630D+01, .807698D+01, .722797D+01, .648399D+01,
     +  .583428D+01, .525436D+01, .473830D+01, .427392D+01 /
        DATA (UPDI(I),I=8061,8112) /
     +  .385400D+01, .347241D+01, .312457D+01, .280664D+01,
     +  .251562D+01, .224903D+01, .200484D+01, .178132D+01,
     +  .157697D+01, .139054D+01, .122068D+01, .106714D+01,
     +  .927257D+00, .801146D+00, .687881D+00, .586649D+00,
     +  .496611D+00, .416996D+00, .347014D+00, .285953D+00,
     +  .233080D+00, .187585D+00, .149200D+00, .116685D+00,
     +  .896789D-01, .675631D-01, .497313D-01, .356277D-01,
     +  .247023D-01, .164864D-01, .104582D-01, .625186D-02,
     +  .344837D-02, .170574D-02, .720470D-03, .238004D-03,
     +  .515592D-04, .465854D-05, .000000D+00, .486305D+06,
     +  .370632D+06, .278058D+06, .208584D+06, .156470D+06,
     +  .117364D+06, .880364D+05, .660338D+05, .495362D+05,
     +  .371610D+05, .278832D+05, .209243D+05, .157074D+05 /
        DATA (UPDI(I),I=8113,8164) /
     +  .117942D+05, .886043D+04, .665942D+04, .500886D+04,
     +  .377009D+04, .284067D+04, .214267D+04, .161860D+04,
     +  .122462D+04, .928432D+03, .705435D+03, .537485D+03,
     +  .410788D+03, .315184D+03, .241917D+03, .187304D+03,
     +  .145794D+03, .114198D+03, .900500D+02, .715511D+02,
     +  .573499D+02, .463538D+02, .378130D+02, .311503D+02,
     +  .259118D+02, .217694D+02, .184615D+02, .158044D+02,
     +  .136427D+02, .118690D+02, .103960D+02, .916061D+01,
     +  .811212D+01, .721646D+01, .643536D+01, .575660D+01,
     +  .515395D+01, .462061D+01, .414350D+01, .371466D+01,
     +  .332744D+01, .297676D+01, .265837D+01, .236891D+01,
     +  .210559D+01, .186608D+01, .164839D+01, .145078D+01,
     +  .127179D+01, .110986D+01, .964529D+00, .833076D+00 /
        DATA (UPDI(I),I=8165,8216) /
     +  .715417D+00, .610510D+00, .517430D+00, .435250D+00,
     +  .363122D+00, .300194D+00, .245708D+00, .198896D+00,
     +  .158930D+00, .125482D+00, .973849D-01, .742478D-01,
     +  .554695D-01, .404696D-01, .287217D-01, .197145D-01,
     +  .130163D-01, .815989D-02, .481513D-02, .261766D-02,
     +  .127372D-02, .527857D-03, .170615D-03, .362049D-04,
     +  .330446D-05, .000000D+00, .658612D+06, .500217D+06,
     +  .373738D+06, .279174D+06, .208510D+06, .155694D+06,
     +  .116246D+06, .867742D+05, .647717D+05, .483411D+05,
     +  .360794D+05, .269263D+05, .200980D+05, .150023D+05,
     +  .112018D+05, .836609D+04, .625140D+04, .467351D+04,
     +  .349672D+04, .261844D+04, .196320D+04, .147387D+04,
     +  .110850D+04, .835365D+03, .631135D+03, .478218D+03 /
        DATA (UPDI(I),I=8217,8268) /
     +  .363712D+03, .276655D+03, .212284D+03, .163757D+03,
     +  .127122D+03, .993564D+02, .782599D+02, .621985D+02,
     +  .498607D+02, .403535D+02, .329916D+02, .272452D+02,
     +  .227311D+02, .191492D+02, .162882D+02, .139732D+02,
     +  .120829D+02, .105206D+02, .921611D+01, .811393D+01,
     +  .717656D+01, .636289D+01, .565921D+01, .503765D+01,
     +  .449048D+01, .400376D+01, .356884D+01, .317853D+01,
     +  .282725D+01, .251039D+01, .222420D+01, .196560D+01,
     +  .173197D+01, .152108D+01, .133096D+01, .115995D+01,
     +  .100630D+01, .869357D+00, .746364D+00, .637056D+00,
     +  .540289D+00, .455049D+00, .380336D+00, .315241D+00,
     +  .258874D+00, .210438D+00, .169150D+00, .134174D+00,
     +  .105141D+00, .809555D-01, .612133D-01, .453355D-01 /
        DATA (UPDI(I),I=8269,8320) /
     +  .327729D-01, .230322D-01, .156428D-01, .102109D-01,
     +  .632118D-02, .367858D-02, .196863D-02, .940805D-03,
     +  .381731D-03, .120376D-03, .249402D-04, .230346D-05,
     +  .000000D+00, .868709D+06, .657625D+06, .489435D+06,
     +  .364138D+06, .270853D+06, .201392D+06, .149713D+06,
     +  .111257D+06, .826648D+05, .614028D+05, .456040D+05,
     +  .338630D+05, .251441D+05, .186682D+05, .138616D+05,
     +  .102932D+05, .764583D+04, .568098D+04, .422358D+04,
     +  .314205D+04, .233985D+04, .174439D+04, .130252D+04,
     +  .974308D+03, .730510D+03, .549195D+03, .414371D+03,
     +  .312605D+03, .237906D+03, .182015D+03, .140132D+03,
     +  .108632D+03, .848772D+02, .669289D+02, .532422D+02,
     +  .427722D+02, .347204D+02, .284774D+02, .236033D+02 /
        DATA (UPDI(I),I=8321,8372) /
     +  .197585D+02, .167038D+02, .142446D+02, .122459D+02,
     +  .106013D+02, .923404D+01, .808379D+01, .710975D+01,
     +  .626807D+01, .554357D+01, .490681D+01, .434917D+01,
     +  .385588D+01, .341758D+01, .302658D+01, .267681D+01,
     +  .236330D+01, .208195D+01, .182938D+01, .160270D+01,
     +  .139945D+01, .121745D+01, .105486D+01, .909759D+00,
     +  .781321D+00, .666761D+00, .565658D+00, .476782D+00,
     +  .399048D+00, .331403D+00, .272894D+00, .222604D+00,
     +  .179716D+00, .143439D+00, .112947D+00, .878406D-01,
     +  .671009D-01, .503181D-01, .369424D-01, .264599D-01,
     +  .184132D-01, .123737D-01, .798496D-02, .488108D-02,
     +  .280109D-02, .147556D-02, .692523D-03, .275106D-03,
     +  .846499D-04, .171322D-04, .160128D-05, .000000D+00 /
        DATA (UPDI(I),I=8373,8424) /
     +  .112303D+07, .847441D+06, .628315D+06, .465654D+06,
     +  .344989D+06, .255473D+06, .189123D+06, .139944D+06,
     +  .103522D+06, .765485D+05, .565891D+05, .418196D+05,
     +  .308996D+05, .228254D+05, .168603D+05, .124528D+05,
     +  .919876D+04, .679583D+04, .502269D+04, .371383D+04,
     +  .274832D+04, .203567D+04, .150990D+04, .112170D+04,
     +  .835105D+03, .623294D+03, .466815D+03, .349494D+03,
     +  .263961D+03, .200406D+03, .153110D+03, .117791D+03,
     +  .913410D+02, .714970D+02, .564677D+02, .450485D+02,
     +  .363228D+02, .295995D+02, .243805D+02, .202864D+02,
     +  .170498D+02, .144568D+02, .123584D+02, .106393D+02,
     +  .921590D+01, .802342D+01, .701785D+01, .615276D+01,
     +  .541151D+01, .476322D+01, .419836D+01, .370138D+01 /
        DATA (UPDI(I),I=8425,8476) /
     +  .326225D+01, .287279D+01, .252649D+01, .221798D+01,
     +  .194286D+01, .169746D+01, .147863D+01, .128371D+01,
     +  .111033D+01, .956465D+00, .820063D+00, .700140D+00,
     +  .593903D+00, .500790D+00, .419507D+00, .348912D+00,
     +  .287917D+00, .235539D+00, .190848D+00, .153022D+00,
     +  .121272D+00, .947917D-01, .731641D-01, .554469D-01,
     +  .412341D-01, .300090D-01, .212954D-01, .146734D-01,
     +  .975594D-02, .622367D-02, .375648D-02, .212569D-02,
     +  .110221D-02, .508021D-03, .197608D-03, .593539D-04,
     +  .117453D-04, .111078D-05, .000000D+00, .142839D+07,
     +  .107448D+07, .793675D+06, .585964D+06, .432432D+06,
     +  .318953D+06, .235156D+06, .173282D+06, .127637D+06,
     +  .939679D+05, .691555D+05, .508715D+05, .374107D+05 /
        DATA (UPDI(I),I=8477,8528) /
     +  .275015D+05, .202132D+05, .148529D+05, .109140D+05,
     +  .801938D+04, .589396D+04, .433306D+04, .318761D+04,
     +  .234670D+04, .172970D+04, .127672D+04, .944247D+03,
     +  .699978D+03, .520627D+03, .387006D+03, .290213D+03,
     +  .218760D+03, .165932D+03, .126744D+03, .975888D+02,
     +  .758598D+02, .595080D+02, .471629D+02, .377863D+02,
     +  .306038D+02, .250585D+02, .207309D+02, .173258D+02,
     +  .146101D+02, .124216D+02, .106361D+02, .916341D+01,
     +  .793468D+01, .690279D+01, .601887D+01, .526488D+01,
     +  .460863D+01, .403969D+01, .354176D+01, .310420D+01,
     +  .271836D+01, .237727D+01, .207526D+01, .180757D+01,
     +  .157031D+01, .136009D+01, .117404D+01, .100962D+01,
     +  .864676D+00, .737022D+00, .625537D+00, .527439D+00 /
        DATA (UPDI(I),I=8529,8580) /
     +  .442045D+00, .368015D+00, .304166D+00, .249387D+00,
     +  .202685D+00, .163128D+00, .129896D+00, .102216D+00,
     +  .793087D-01, .607498D-01, .456726D-01, .336825D-01,
     +  .242984D-01, .170830D-01, .116544D-01, .766620D-02,
     +  .483434D-02, .288098D-02, .160749D-02, .820407D-03,
     +  .371351D-03, .141455D-03, .414910D-04, .803512D-05,
     +  .768762D-06, .000000D+00, .179189D+07, .134372D+07,
     +  .988868D+06, .727321D+06, .534687D+06, .392827D+06,
     +  .288462D+06, .211693D+06, .155279D+06, .113831D+06,
     +  .834077D+05, .610816D+05, .447137D+05, .327160D+05,
     +  .239303D+05, .174976D+05, .127923D+05, .935067D+04,
     +  .683573D+04, .499787D+04, .365594D+04, .267589D+04,
     +  .196061D+04, .143833D+04, .105711D+04, .778618D+03 /
        DATA (UPDI(I),I=8581,8632) /
     +  .575334D+03, .424793D+03, .316410D+03, .236895D+03,
     +  .178469D+03, .135402D+03, .103560D+03, .799764D+02,
     +  .623363D+02, .490983D+02, .391006D+02, .314844D+02,
     +  .256342D+02, .210909D+02, .175319D+02, .147056D+02,
     +  .124369D+02, .105933D+02, .907854D+01, .781960D+01,
     +  .676657D+01, .586835D+01, .510556D+01, .444479D+01,
     +  .387475D+01, .337846D+01, .294470D+01, .256436D+01,
     +  .223008D+01, .193586D+01, .167667D+01, .144835D+01,
     +  .124733D+01, .107055D+01, .915331D+00, .779379D+00,
     +  .660426D+00, .557223D+00, .467021D+00, .389029D+00,
     +  .321877D+00, .264361D+00, .215362D+00, .173885D+00,
     +  .139009D+00, .109927D+00, .858873D-01, .661472D-01,
     +  .502825D-01, .375012D-01, .274251D-01, .196101D-01 /
        DATA (UPDI(I),I=8633,8684) /
     +  .136584D-01, .922548D-02, .600354D-02, .374214D-02,
     +  .220175D-02, .121126D-02, .608450D-03, .270470D-03,
     +  .100905D-03, .289143D-04, .548470D-05, .530785D-06,
     +  .000000D+00, .222072D+07, .166016D+07, .121723D+07,
     +  .891935D+06, .653201D+06, .478037D+06, .349645D+06,
     +  .255560D+06, .186685D+06, .136280D+06, .994297D+05,
     +  .724968D+05, .528328D+05, .384801D+05, .280148D+05,
     +  .203862D+05, .148310D+05, .107864D+05, .784471D+04,
     +  .570528D+04, .415080D+04, .302120D+04, .220100D+04,
     +  .160525D+04, .117275D+04, .858505D+03, .630417D+03,
     +  .462485D+03, .342287D+03, .254626D+03, .190595D+03,
     +  .143679D+03, .109197D+03, .838097D+02, .649291D+02,
     +  .508404D+02, .402573D+02, .322369D+02, .261058D+02 /
        DATA (UPDI(I),I=8685,8736) /
     +  .213662D+02, .176690D+02, .147448D+02, .124063D+02,
     +  .105132D+02, .896346D+01, .768034D+01, .661130D+01,
     +  .570321D+01, .493540D+01, .427341D+01, .370509D+01,
     +  .321287D+01, .278495D+01, .241183D+01, .208576D+01,
     +  .180046D+01, .155063D+01, .133192D+01, .114054D+01,
     +  .973302D+00, .827399D+00, .700425D+00, .590042D+00,
     +  .494902D+00, .412296D+00, .341351D+00, .280682D+00,
     +  .229075D+00, .185418D+00, .148724D+00, .118093D+00,
     +  .927403D-01, .719429D-01, .549968D-01, .414870D-01,
     +  .306932D-01, .222577D-01, .157745D-01, .108841D-01,
     +  .727811D-02, .468537D-02, .288662D-02, .167672D-02,
     +  .909435D-03, .449620D-03, .196283D-03, .717292D-04,
     +  .200876D-04, .373534D-05, .365587D-06, .000000D+00 /
        DATA (UPDI(I),I=8737,8788) /
     +  .272205D+07, .202871D+07, .148200D+07, .108191D+07,
     +  .789328D+06, .575440D+06, .419240D+06, .305208D+06,
     +  .222049D+06, .161427D+06, .117281D+06, .851458D+05,
     +  .617791D+05, .447949D+05, .324633D+05, .235131D+05,
     +  .170241D+05, .123211D+05, .891602D+04, .645126D+04,
     +  .466893D+04, .338011D+04, .244896D+04, .177607D+04,
     +  .129011D+04, .938877D+03, .685335D+03, .499702D+03,
     +  .367583D+03, .271775D+03, .202189D+03, .151497D+03,
     +  .114450D+03, .873273D+02, .672667D+02, .523779D+02,
     +  .412504D+02, .328589D+02, .264731D+02, .215579D+02,
     +  .177388D+02, .147297D+02, .123321D+02, .103981D+02,
     +  .882049D+01, .751915D+01, .643912D+01, .552544D+01,
     +  .475626D+01, .409616D+01, .353221D+01, .304627D+01 /
        DATA (UPDI(I),I=8789,8840) /
     +  .262606D+01, .226167D+01, .194505D+01, .166962D+01,
     +  .142988D+01, .122127D+01, .103985D+01, .882309D+00,
     +  .745732D+00, .627630D+00, .525616D+00, .438260D+00,
     +  .362912D+00, .298631D+00, .244033D+00, .197907D+00,
     +  .159158D+00, .126819D+00, .100019D+00, .780011D-01,
     +  .600760D-01, .455832D-01, .341220D-01, .250410D-01,
     +  .180058D-01, .126477D-01, .864452D-02, .572253D-02,
     +  .364417D-02, .221898D-02, .127240D-02, .680387D-03,
     +  .331060D-03, .141935D-03, .508142D-04, .139129D-04,
     +  .253823D-05, .251196D-06, .000000D+00, .330282D+07,
     +  .245408D+07, .178619D+07, .129916D+07, .944274D+06,
     +  .685779D+06, .497692D+06, .360897D+06, .261514D+06,
     +  .189343D+06, .136993D+06, .990368D+05, .715488D+05 /
        DATA (UPDI(I),I=8841,8892) /
     +  .516513D+05, .372648D+05, .268676D+05, .193623D+05,
     +  .139466D+05, .100432D+05, .723076D+04, .520649D+04,
     +  .374971D+04, .270233D+04, .194921D+04, .140806D+04,
     +  .101894D+04, .739531D+03, .536063D+03, .392038D+03,
     +  .288169D+03, .213139D+03, .158782D+03, .119272D+03,
     +  .905023D+02, .693338D+02, .537028D+02, .420768D+02,
     +  .333498D+02, .267370D+02, .216678D+02, .177437D+02,
     +  .146631D+02, .122169D+02, .102505D+02, .865210D+01,
     +  .733835D+01, .625219D+01, .533703D+01, .456993D+01,
     +  .391464D+01, .335751D+01, .287989D+01, .246904D+01,
     +  .211472D+01, .180859D+01, .154383D+01, .131474D+01,
     +  .111659D+01, .945327D+00, .797521D+00, .670188D+00,
     +  .560776D+00, .466869D+00, .386973D+00, .318512D+00 /
        DATA (UPDI(I),I=8893,8944) /
     +  .260493D+00, .211545D+00, .170474D+00, .136211D+00,
     +  .107817D+00, .844567D-01, .654052D-01, .500130D-01,
     +  .376642D-01, .279769D-01, .203653D-01, .145196D-01,
     +  .101079D-01, .684332D-02, .448449D-02, .282481D-02,
     +  .169993D-02, .962231D-03, .507240D-03, .242902D-03,
     +  .102276D-03, .358770D-04, .960770D-05, .172100D-05,
     +  .172191D-06, .000000D+00, .159314D+05, .257178D+05,
     +  .206374D+05, .165624D+05, .132936D+05, .106714D+05,
     +  .856784D+04, .688015D+04, .552603D+04, .443947D+04,
     +  .356751D+04, .286771D+04, .230599D+04, .185506D+04,
     +  .149301D+04, .120226D+04, .968736D+03, .781122D+03,
     +  .630357D+03, .509167D+03, .411719D+03, .333330D+03,
     +  .270245D+03, .219452D+03, .178531D+03, .145542D+03 /
        DATA (UPDI(I),I=8945,8996) /
     +  .118928D+03, .971636D+02, .798514D+02, .658400D+02,
     +  .544844D+02, .452668D+02, .377709D+02, .316785D+02,
     +  .266877D+02, .226001D+02, .192405D+02, .164682D+02,
     +  .141697D+02, .122532D+02, .106480D+02, .929256D+01,
     +  .814061D+01, .715458D+01, .630453D+01, .556671D+01,
     +  .492446D+01, .435662D+01, .385820D+01, .341351D+01,
     +  .301939D+01, .266787D+01, .235385D+01, .207305D+01,
     +  .182186D+01, .159723D+01, .139651D+01, .121737D+01,
     +  .105777D+01, .915860D+00, .789974D+00, .678594D+00,
     +  .580330D+00, .494282D+00, .418399D+00, .352168D+00,
     +  .294597D+00, .244782D+00, .201891D+00, .165165D+00,
     +  .133909D+00, .107490D+00, .853144D-01, .668441D-01,
     +  .517455D-01, .393561D-01, .293942D-01, .214979D-01 /
        DATA (UPDI(I),I=8997,9048) /
     +  .153426D-01, .106382D-01, .712635D-02, .458176D-02,
     +  .279041D-02, .159418D-02, .835358D-03, .388985D-03,
     +  .152649D-03, .457073D-04, .835368D-05, .456436D-06,
     +  .000000D+00, .900584D+05, .702560D+05, .541706D+05,
     +  .418022D+05, .322866D+05, .249583D+05, .193117D+05,
     +  .149561D+05, .115948D+05, .899763D+04, .698991D+04,
     +  .543595D+04, .423253D+04, .329936D+04, .257534D+04,
     +  .201281D+04, .157549D+04, .123499D+04, .969720D+03,
     +  .762722D+03, .601092D+03, .474663D+03, .375690D+03,
     +  .298066D+03, .237126D+03, .189196D+03, .151459D+03,
     +  .121291D+03, .978276D+02, .792268D+02, .644607D+02,
     +  .526982D+02, .433102D+02, .358078D+02, .297647D+02,
     +  .248884D+02, .209400D+02, .177237D+02, .150917D+02 /
        DATA (UPDI(I),I=9049,9100) /
     +  .129218D+02, .111251D+02, .962305D+01, .835942D+01,
     +  .728751D+01, .637205D+01, .558418D+01, .490438D+01,
     +  .430820D+01, .378938D+01, .333016D+01, .292648D+01,
     +  .256925D+01, .225265D+01, .197170D+01, .172229D+01,
     +  .150091D+01, .130453D+01, .113053D+01, .976599D+00,
     +  .840694D+00, .720963D+00, .615772D+00, .523568D+00,
     +  .443380D+00, .373125D+00, .312218D+00, .259625D+00,
     +  .214425D+00, .175768D+00, .142896D+00, .115111D+00,
     +  .917921D-01, .723650D-01, .562998D-01, .432680D-01,
     +  .326591D-01, .241981D-01, .175499D-01, .124135D-01,
     +  .852623D-02, .565279D-02, .359435D-02, .216409D-02,
     +  .122156D-02, .631288D-03, .289357D-03, .111448D-03,
     +  .326578D-04, .585018D-05, .324957D-06, .000000D+00 /
        DATA (UPDI(I),I=9101,9152) /
     +  .160100D+06, .123650D+06, .942331D+05, .718479D+05,
     +  .548126D+05, .418374D+05, .319547D+05, .244207D+05,
     +  .186769D+05, .142936D+05, .109483D+05, .839256D+04,
     +  .643973D+04, .494584D+04, .380286D+04, .292722D+04,
     +  .225625D+04, .174136D+04, .134614D+04, .104228D+04,
     +  .808596D+03, .628541D+03, .489735D+03, .382513D+03,
     +  .299625D+03, .235418D+03, .185642D+03, .146443D+03,
     +  .116413D+03, .929508D+02, .745968D+02, .601796D+02,
     +  .488320D+02, .398827D+02, .327679D+02, .270964D+02,
     +  .225590D+02, .189036D+02, .159447D+02, .135294D+02,
     +  .115491D+02, .990825D+01, .854017D+01, .738922D+01,
     +  .641439D+01, .558197D+01, .486938D+01, .424915D+01,
     +  .371354D+01, .324294D+01, .283234D+01, .247162D+01 /
        DATA (UPDI(I),I=9153,9204) /
     +  .215422D+01, .187456D+01, .162803D+01, .141072D+01,
     +  .121924D+01, .105073D+01, .902643D+00, .772751D+00,
     +  .659054D+00, .559819D+00, .473369D+00, .398666D+00,
     +  .333622D+00, .277591D+00, .229513D+00, .188458D+00,
     +  .153572D+00, .124101D+00, .993530D-01, .787247D-01,
     +  .616611D-01, .476479D-01, .363642D-01, .272483D-01,
     +  .200351D-01, .144144D-01, .101094D-01, .688161D-02,
     +  .451833D-02, .284353D-02, .169115D-02, .941396D-03,
     +  .478979D-03, .215729D-03, .813910D-04, .232836D-04,
     +  .407883D-05, .231106D-06, .000000D+00, .244400D+06,
     +  .187716D+06, .142126D+06, .107630D+06, .815350D+05,
     +  .617807D+05, .468317D+05, .355104D+05, .269391D+05,
     +  .204444D+05, .155247D+05, .117946D+05, .896716D+04 /
        DATA (UPDI(I),I=9205,9256) /
     +  .682181D+04, .519432D+04, .395830D+04, .301972D+04,
     +  .230609D+04, .176354D+04, .135045D+04, .103594D+04,
     +  .796079D+03, .613102D+03, .473256D+03, .366320D+03,
     +  .284393D+03, .221592D+03, .172690D+03, .135651D+03,
     +  .107040D+03, .849122D+02, .677250D+02, .543476D+02,
     +  .439125D+02, .357057D+02, .292316D+02, .241048D+02,
     +  .200144D+02, .167346D+02, .140812D+02, .119246D+02,
     +  .101523D+02, .868641D+01, .746263D+01, .643394D+01,
     +  .556190D+01, .482082D+01, .418032D+01, .363114D+01,
     +  .315195D+01, .273674D+01, .237445D+01, .205782D+01,
     +  .178070D+01, .153801D+01, .132547D+01, .113939D+01,
     +  .976677D+00, .834568D+00, .710696D+00, .602932D+00,
     +  .509455D+00, .428500D+00, .358969D+00, .298787D+00 /
        DATA (UPDI(I),I=9257,9308) /
     +  .247260D+00, .203311D+00, .166013D+00, .134514D+00,
     +  .108069D+00, .860040D-01, .677315D-01, .527190D-01,
     +  .404723D-01, .306808D-01, .228281D-01, .166613D-01,
     +  .118946D-01, .827399D-02, .558350D-02, .363181D-02,
     +  .226292D-02, .133118D-02, .732260D-03, .367691D-03,
     +  .163221D-03, .605958D-04, .170544D-04, .296205D-05,
     +  .172737D-06, .000000D+00, .250163D+06, .264505D+06,
     +  .199311D+06, .150188D+06, .113191D+06, .853095D+05,
     +  .643098D+05, .484830D+05, .365616D+05, .275756D+05,
     +  .208059D+05, .157020D+05, .118559D+05, .895526D+04,
     +  .676866D+04, .511877D+04, .387436D+04, .293476D+04,
     +  .222554D+04, .168956D+04, .128461D+04, .978192D+03,
     +  .746341D+03, .570615D+03, .437390D+03, .336211D+03 /
        DATA (UPDI(I),I=9309,9360) /
     +  .259349D+03, .200045D+03, .155544D+03, .121490D+03,
     +  .953999D+02, .753277D+02, .598521D+02, .478942D+02,
     +  .385770D+02, .312943D+02, .255786D+02, .210580D+02,
     +  .174639D+02, .145800D+02, .122544D+02, .103578D+02,
     +  .880063D+01, .750994D+01, .643259D+01, .552557D+01,
     +  .475996D+01, .410267D+01, .354284D+01, .305757D+01,
     +  .263982D+01, .227767D+01, .196317D+01, .168966D+01,
     +  .145163D+01, .124445D+01, .106417D+01, .907480D+00,
     +  .771451D+00, .653582D+00, .551643D+00, .463739D+00,
     +  .388044D+00, .323406D+00, .267783D+00, .220435D+00,
     +  .180286D+00, .146414D+00, .117978D+00, .942498D-01,
     +  .745719D-01, .583796D-01, .451631D-01, .344515D-01,
     +  .259460D-01, .191729D-01, .138931D-01, .984371D-02 /
        DATA (UPDI(I),I=9361,9412) /
     +  .679285D-02, .454530D-02, .292964D-02, .180772D-02,
     +  .105211D-02, .572075D-03, .283589D-03, .124117D-03,
     +  .453591D-04, .125623D-04, .216036D-05, .129239D-06,
     +  .000000D+00, .486029D+06, .370387D+06, .277841D+06,
     +  .208391D+06, .156299D+06, .117213D+06, .879029D+05,
     +  .659157D+05, .494319D+05, .370689D+05, .278019D+05,
     +  .208526D+05, .156442D+05, .117386D+05, .881149D+04,
     +  .661638D+04, .497102D+04, .373683D+04, .281145D+04,
     +  .211702D+04, .159606D+04, .120482D+04, .911035D+03,
     +  .690134D+03, .524010D+03, .398901D+03, .304676D+03,
     +  .232619D+03, .179032D+03, .138405D+03, .107564D+03,
     +  .840624D+02, .661113D+02, .523733D+02, .417687D+02,
     +  .335580D+02, .271726D+02, .221684D+02, .182243D+02 /
        DATA (UPDI(I),I=9413,9464) /
     +  .150870D+02, .125778D+02, .105482D+02, .889468D+01,
     +  .753476D+01, .640807D+01, .546654D+01, .467756D+01,
     +  .400509D+01, .343642D+01, .294700D+01, .252863D+01,
     +  .216848D+01, .185787D+01, .158960D+01, .135771D+01,
     +  .115723D+01, .983928D+00, .834294D+00, .705235D+00,
     +  .594127D+00, .498652D+00, .416847D+00, .346841D+00,
     +  .287437D+00, .236640D+00, .193674D+00, .157473D+00,
     +  .127128D+00, .101818D+00, .808379D-01, .635551D-01,
     +  .494316D-01, .379857D-01, .287749D-01, .215156D-01,
     +  .157794D-01, .113440D-01, .797092D-02, .545213D-02,
     +  .361401D-02, .230579D-02, .140725D-02, .809143D-03,
     +  .434087D-03, .211924D-03, .911316D-04, .326123D-04,
     +  .880578D-05, .147310D-05, .887448D-07, .000000D+00 /
        DATA (UPDI(I),I=9465,9516) /
     +  .658317D+06, .499955D+06, .373506D+06, .278968D+06,
     +  .208328D+06, .155533D+06, .116103D+06, .866482D+05,
     +  .646605D+05, .482429D+05, .359928D+05, .268499D+05,
     +  .200307D+05, .149430D+05, .111496D+05, .832017D+04,
     +  .621101D+04, .463800D+04, .346550D+04, .259100D+04,
     +  .193907D+04, .145265D+04, .108983D+04, .818913D+03,
     +  .616622D+03, .465389D+03, .352349D+03, .266579D+03,
     +  .203302D+03, .155719D+03, .119893D+03, .928233D+02,
     +  .723200D+02, .567638D+02, .448567D+02, .357167D+02,
     +  .286675D+02, .231893D+02, .189063D+02, .155266D+02,
     +  .128443D+02, .106911D+02, .894965D+01, .752787D+01,
     +  .635822D+01, .538766D+01, .457996D+01, .389629D+01,
     +  .332210D+01, .283130D+01, .241458D+01, .205828D+01 /
        DATA (UPDI(I),I=9517,9568) /
     +  .175304D+01, .149116D+01, .126627D+01, .107312D+01,
     +  .907235D+00, .764923D+00, .642960D+00, .538627D+00,
     +  .449539D+00, .373685D+00, .309172D+00, .254771D+00,
     +  .208542D+00, .169686D+00, .137157D+00, .110064D+00,
     +  .876134D-01, .691261D-01, .539994D-01, .417233D-01,
     +  .318456D-01, .239538D-01, .177808D-01, .129410D-01,
     +  .922932D-02, .643064D-02, .435959D-02, .286259D-02,
     +  .180788D-02, .109140D-02, .620091D-03, .328364D-03,
     +  .158016D-03, .668730D-04, .235109D-04, .623177D-05,
     +  .102871D-05, .635486D-07, .000000D+00, .868393D+06,
     +  .657345D+06, .489186D+06, .363918D+06, .270658D+06,
     +  .201220D+06, .149561D+06, .111123D+06, .825461D+05,
     +  .612980D+05, .455116D+05, .337816D+05, .250723D+05 /
        DATA (UPDI(I),I=9569,9620) /
     +  .186049D+05, .138060D+05, .102443D+05, .760273D+04,
     +  .564307D+04, .419023D+04, .311271D+04, .231402D+04,
     +  .172165D+04, .128249D+04, .956634D+03, .714895D+03,
     +  .535371D+03, .402106D+03, .301711D+03, .228179D+03,
     +  .173298D+03, .132285D+03, .101535D+03, .784229D+02,
     +  .610259D+02, .478132D+02, .377512D+02, .300506D+02,
     +  .241127D+02, .195049D+02, .158962D+02, .130526D+02,
     +  .107864D+02, .896608D+01, .749019D+01, .628416D+01,
     +  .529012D+01, .446835D+01, .377738D+01, .320086D+01,
     +  .271134D+01, .229843D+01, .194769D+01, .164917D+01,
     +  .139471D+01, .117759D+01, .992303D+00, .834181D+00,
     +  .699384D+00, .584584D+00, .486992D+00, .404177D+00,
     +  .334101D+00, .274865D+00, .225221D+00, .183297D+00 /
        DATA (UPDI(I),I=9621,9672) /
     +  .148280D+00, .119148D+00, .950404D-01, .751925D-01,
     +  .589557D-01, .457595D-01, .351240D-01, .266271D-01,
     +  .198872D-01, .146548D-01, .105846D-01, .748840D-02,
     +  .517380D-02, .347638D-02, .226110D-02, .141353D-02,
     +  .844076D-03, .473886D-03, .247705D-03, .117506D-03,
     +  .489500D-04, .169147D-04, .440494D-05, .718692D-06,
     +  .455448D-07, .000000D+00, .112269D+07, .847142D+06,
     +  .628050D+06, .465420D+06, .344781D+06, .255289D+06,
     +  .188961D+06, .139800D+06, .103396D+06, .764370D+05,
     +  .564907D+05, .417328D+05, .308232D+05, .227581D+05,
     +  .168010D+05, .124006D+05, .915279D+04, .675538D+04,
     +  .498708D+04, .368248D+04, .272070D+04, .201133D+04,
     +  .148843D+04, .110273D+04, .818325D+03, .608418D+03 /
        DATA (UPDI(I),I=9673,9724) /
     +  .453600D+03, .337740D+03, .253455D+03, .190982D+03,
     +  .144621D+03, .110111D+03, .843591D+02, .651170D+02,
     +  .506089D+02, .396420D+02, .313094D+02, .249308D+02,
     +  .200160D+02, .161938D+02, .132025D+02, .108345D+02,
     +  .894505D+01, .742311D+01, .618741D+01, .517546D+01,
     +  .434421D+01, .364972D+01, .307396D+01, .258820D+01,
     +  .218107D+01, .183745D+01, .154684D+01, .130068D+01,
     +  .109197D+01, .914968D+00, .764859D+00, .637686D+00,
     +  .530046D+00, .439103D+00, .362405D+00, .297901D+00,
     +  .243705D+00, .198562D+00, .160673D+00, .129224D+00,
     +  .103225D+00, .818454D-01, .643572D-01, .501445D-01,
     +  .386708D-01, .294870D-01, .222021D-01, .164650D-01,
     +  .120445D-01, .863265D-02, .605853D-02, .415062D-02 /
        DATA (UPDI(I),I=9725,9776) /
     +  .276406D-02, .178078D-02, .110196D-02, .650872D-03,
     +  .361087D-03, .186313D-03, .871327D-04, .357329D-04,
     +  .121393D-04, .310735D-05, .501251D-06, .325680D-07,
     +  .000000D+00, .142803D+07, .107417D+07, .793392D+06,
     +  .585714D+06, .432211D+06, .318758D+06, .234983D+06,
     +  .173129D+06, .127502D+06, .938491D+05, .690507D+05,
     +  .507792D+05, .373293D+05, .274297D+05, .201500D+05,
     +  .147973D+05, .108650D+05, .797622D+04, .585595D+04,
     +  .429957D+04, .315809D+04, .232065D+04, .170670D+04,
     +  .125639D+04, .926237D+03, .683995D+03, .506413D+03,
     +  .374352D+03, .278894D+03, .208601D+03, .156779D+03,
     +  .118465D+03, .900676D+02, .689953D+02, .532160D+02,
     +  .413712D+02, .324328D+02, .256374D+02, .204363D+02 /
        DATA (UPDI(I),I=9777,9828) /
     +  .164184D+02, .132940D+02, .108367D+02, .888804D+01,
     +  .732832D+01, .606973D+01, .504538D+01, .420911D+01,
     +  .351474D+01, .294261D+01, .246294D+01, .206339D+01,
     +  .172827D+01, .144659D+01, .120949D+01, .100968D+01,
     +  .841281D+00, .699339D+00, .579819D+00, .479273D+00,
     +  .394840D+00, .324063D+00, .264899D+00, .215489D+00,
     +  .174581D+00, .140458D+00, .112309D+00, .891842D-01,
     +  .702882D-01, .549310D-01, .425315D-01, .325887D-01,
     +  .246850D-01, .184599D-01, .135926D-01, .987057D-02,
     +  .702019D-02, .488728D-02, .331992D-02, .219112D-02,
     +  .139826D-02, .856454D-03, .500360D-03, .274299D-03,
     +  .139712D-03, .644190D-04, .260108D-04, .868981D-05,
     +  .218725D-05, .348929D-06, .232310D-07, .000000D+00 /
        DATA (UPDI(I),I=9829,9880) /
     +  .179150D+07, .134338D+07, .988567D+06, .727055D+06,
     +  .534451D+06, .392619D+06, .288278D+06, .211531D+06,
     +  .155136D+06, .113704D+06, .832961D+05, .609833D+05,
     +  .446270D+05, .326396D+05, .238630D+05, .174383D+05,
     +  .127400D+05, .930465D+04, .679517D+04, .496211D+04,
     +  .362440D+04, .264805D+04, .193600D+04, .141655D+04,
     +  .103781D+04, .761469D+03, .560072D+03, .411198D+03,
     +  .304244D+03, .225974D+03, .168632D+03, .126509D+03,
     +  .954893D+02, .726220D+02, .556097D+02, .429235D+02,
     +  .334120D+02, .262280D+02, .207641D+02, .165698D+02,
     +  .133282D+02, .107943D+02, .879694D+01, .720780D+01,
     +  .593303D+01, .490167D+01, .406467D+01, .337385D+01,
     +  .280806D+01, .233657D+01, .194622D+01, .162080D+01 /
        DATA (UPDI(I),I=9881,9932) /
     +  .134893D+01, .112148D+01, .930966D+00, .771369D+00,
     +  .637662D+00, .525754D+00, .432178D+00, .354070D+00,
     +  .288989D+00, .234913D+00, .190021D+00, .153079D+00,
     +  .122451D+00, .973409D-01, .768411D-01, .601959D-01,
     +  .467547D-01, .359732D-01, .273857D-01, .206062D-01,
     +  .153043D-01, .111888D-01, .806536D-02, .569206D-02,
     +  .393071D-02, .264748D-02, .173167D-02, .109455D-02,
     +  .663596D-03, .383463D-03, .207726D-03, .104446D-03,
     +  .474836D-04, .188798D-04, .620441D-05, .153617D-05,
     +  .242421D-06, .165299D-07, .000000D+00, .222031D+07,
     +  .165980D+07, .121691D+07, .891651D+06, .652950D+06,
     +  .477815D+06, .349449D+06, .255387D+06, .186533D+06,
     +  .136145D+06, .993109D+05, .723921D+05, .527405D+05 /
        DATA (UPDI(I),I=9933,9984) /
     +  .383987D+05, .279432D+05, .203230D+05, .147753D+05,
     +  .107374D+05, .780146D+04, .566712D+04, .411712D+04,
     +  .299145D+04, .217469D+04, .158195D+04, .115208D+04,
     +  .840134D+03, .614060D+03, .447910D+03, .329242D+03,
     +  .242918D+03, .180054D+03, .134159D+03, .100569D+03,
     +  .759617D+02, .577683D+02, .442863D+02, .342404D+02,
     +  .266996D+02, .209989D+02, .166491D+02, .133070D+02,
     +  .107096D+02, .867400D+01, .706373D+01, .577936D+01,
     +  .474618D+01, .391253D+01, .322846D+01, .267148D+01,
     +  .221007D+01, .183033D+01, .151564D+01, .125430D+01,
     +  .103696D+01, .856008D+00, .705323D+00, .579836D+00,
     +  .475435D+00, .388656D+00, .316652D+00, .257016D+00,
     +  .207758D+00, .167110D+00, .133860D+00, .106462D+00 /
        DATA (UPDI(I),I=9985,10036) /
     +  .841369D-01, .660244D-01, .514101D-01, .396847D-01,
     +  .303409D-01, .229484D-01, .171524D-01, .126518D-01,
     +  .918341D-02, .657101D-02, .460156D-02, .315194D-02,
     +  .210488D-02, .136440D-02, .854175D-03, .512580D-03,
     +  .292967D-03, .156825D-03, .778428D-04, .348960D-04,
     +  .136648D-04, .441845D-05, .107651D-05, .168099D-06,
     +  .117332D-07, .000000D+00, .272162D+07, .202833D+07,
     +  .148166D+07, .108160D+07, .789060D+06, .575204D+06,
     +  .419031D+06, .305024D+06, .221887D+06, .161284D+06,
     +  .117155D+06, .850344D+05, .616809D+05, .447083D+05,
     +  .323870D+05, .234458D+05, .169648D+05, .122688D+05,
     +  .886991D+04, .641056D+04, .463299D+04, .334835D+04,
     +  .242085D+04, .175117D+04, .126801D+04, .919227D+03 /
        DATA (UPDI(I),I=10037,10088) /
     +  .667834D+03, .484107D+03, .353628D+03, .259257D+03,
     +  .190928D+03, .141339D+03, .105258D+03, .789843D+02,
     +  .596741D+02, .454502D+02, .349138D+02, .270514D+02,
     +  .211417D+02, .166583D+02, .132326D+02, .105852D+02,
     +  .852177D+01, .689849D+01, .561086D+01, .458079D+01,
     +  .375430D+01, .307994D+01, .253399D+01, .208434D+01,
     +  .171642D+01, .141332D+01, .116307D+01, .956182D+00,
     +  .784943D+00, .643190D+00, .525839D+00, .428782D+00,
     +  .348584D+00, .282434D+00, .227971D+00, .183252D+00,
     +  .146568D+00, .116740D+00, .923110D-01, .725269D-01,
     +  .565758D-01, .437863D-01, .335909D-01, .255192D-01,
     +  .191762D-01, .142371D-01, .104291D-01, .751574D-02,
     +  .533796D-02, .370906D-02, .251997D-02, .166849D-02 /
        DATA (UPDI(I),I=10089,10140) /
     +  .107178D-02, .664565D-03, .394722D-03, .223143D-03,
     +  .118035D-03, .578406D-04, .255701D-04, .986277D-05,
     +  .313863D-05, .752737D-06, .116342D-06, .830853D-08,
     +  .000000D+00, .330236D+07, .245367D+07, .178583D+07,
     +  .129884D+07, .943989D+06, .685527D+06, .497471D+06,
     +  .360702D+06, .261341D+06, .189191D+06, .136858D+06,
     +  .989183D+05, .714443D+05, .515592D+05, .371836D+05,
     +  .267961D+05, .192991D+05, .138909D+05, .999410D+04,
     +  .718738D+04, .516816D+04, .371582D+04, .267233D+04,
     +  .192263D+04, .138446D+04, .997954D+03, .720842D+03,
     +  .519413D+03, .377147D+03, .274820D+03, .201143D+03,
     +  .147977D+03, .109513D+03, .816650D+02, .613138D+02,
     +  .464091D+02, .354305D+02, .272842D+02, .211947D+02 /
        DATA (UPDI(I),I=10141,10192) /
     +  .166001D+02, .131082D+02, .104241D+02, .834299D+01,
     +  .671456D+01, .542970D+01, .440738D+01, .359157D+01,
     +  .292958D+01, .239664D+01, .196020D+01, .160512D+01,
     +  .131428D+01, .107555D+01, .879328D+00, .717862D+00,
     +  .584978D+00, .475613D+00, .385691D+00, .311824D+00,
     +  .251253D+00, .201678D+00, .161212D+00, .128212D+00,
     +  .101541D+00, .798282D-01, .623519D-01, .483490D-01,
     +  .371921D-01, .283552D-01, .214049D-01, .159796D-01,
     +  .117843D-01, .857269D-02, .613342D-02, .432385D-02,
     +  .298101D-02, .200882D-02, .131867D-02, .839420D-03,
     +  .515498D-03, .303051D-03, .169449D-03, .885744D-04,
     +  .428514D-04, .186829D-04, .709932D-05, .222405D-05,
     +  .525226D-06, .803740D-07, .586984D-08, .000000D+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