Logo Search packages:      
Sourcecode: cernlib version File versions  Download package

ctq4RHJ.F

C-----------------------------------------------------------------------
#include "pdf/pilot.h"
      Subroutine Ctq4RHJ (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 : CTEQ4HJ
C       PARAMETER (ISET=9)                                           
        DATA  DrI, FlI, AlI /             2.,   5.,  .2060 /
        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, .203301D+01, .265652D+01, .358147D+01, .500000D+01,
     +  .794042D+01, .134849D+02, .247292D+02, .495183D+02, .109662D+03,
     +  .272532D+03, .772892D+03, .254960D+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) /
     +  .240220D+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, .996631D+05,
     +  .760875D+05, .571762D+05, .429291D+05, .322125D+05,
     +  .241483D+05, .180909D+05, .135392D+05, .101254D+05,
     +  .756422D+04, .564637D+04, .420989D+04, .313613D+04 /
        DATA (UPDI(I),I=469,520) /
     +  .233333D+04, .173438D+04, .128743D+04, .954675D+03,
     +  .706885D+03, .522814D+03, .386063D+03, .284732D+03,
     +  .209643D+03, .154146D+03, .113136D+03, .829109D+02,
     +  .606511D+02, .443136D+02, .321649D+02, .234181D+02,
     +  .170151D+02, .123472D+02, .894314D+01, .647013D+01,
     +  .467841D+01, .337864D+01, .243799D+01, .176007D+01,
     +  .127058D+01, .918573D+00, .664654D+00, .482380D+00,
     +  .350770D+00, .255942D+00, .187284D+00, .137651D+00,
     +  .101506D+00, .753085D-01, .559500D-01, .418823D-01,
     +  .314011D-01, .236917D-01, .179392D-01, .136573D-01,
     +  .104378D-01, .802141D-02, .618721D-02, .479731D-02,
     +  .373368D-02, .292192D-02, .229429D-02, .181033D-02,
     +  .143236D-02, .113729D-02, .905612D-03, .721098D-03 /
        DATA (UPDI(I),I=521,572) /
     +  .573432D-03, .455314D-03, .359995D-03, .283187D-03,
     +  .220850D-03, .170537D-03, .129829D-03, .971780D-04,
     +  .710583D-04, .508602D-04, .350743D-04, .231780D-04,
     +  .144517D-04, .830218D-05, .417857D-05, .160032D-05,
     +  .163197D-06, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .226691D+06, .172586D+06,
     +  .129269D+06, .967415D+05, .723507D+05, .540572D+05,
     +  .403599D+05, .301023D+05, .224340D+05, .167007D+05,
     +  .124219D+05, .922839D+04, .684947D+04, .507730D+04,
     +  .375979D+04, .278030D+04, .205370D+04, .151470D+04,
     +  .111580D+04, .820615D+03, .602727D+03, .441920D+03,
     +  .323545D+03, .236437D+03, .172504D+03, .125619D+03 /
        DATA (UPDI(I),I=573,624) /
     +  .913550D+02, .659934D+02, .478151D+02, .345716D+02,
     +  .249605D+02, .179865D+02, .129440D+02, .930965D+01,
     +  .668610D+01, .479775D+01, .344380D+01, .247173D+01,
     +  .177640D+01, .127778D+01, .921796D+00, .666297D+00,
     +  .483237D+00, .351509D+00, .256812D+00, .188271D+00,
     +  .138868D+00, .102590D+00, .763610D-01, .569400D-01,
     +  .427283D-01, .321867D-01, .243779D-01, .185390D-01,
     +  .141766D-01, .108828D-01, .839791D-02, .650594D-02,
     +  .506770D-02, .396120D-02, .311138D-02, .245087D-02,
     +  .193741D-02, .153613D-02, .121809D-02, .965004D-03,
     +  .763667D-03, .602174D-03, .472806D-03, .368488D-03,
     +  .284800D-03, .217510D-03, .163791D-03, .121054D-03,
     +  .880536D-04, .622855D-04, .428037D-04, .283833D-04 /
        DATA (UPDI(I),I=625,676) /
     +  .180414D-04, .108728D-04, .613395D-05, .318082D-05,
     +  .145425D-05, .553810D-06, .146094D-06, .175404D-08,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .386122D+06, .293128D+06, .218826D+06,
     +  .163216D+06, .121651D+06, .905822D+05, .673954D+05,
     +  .500912D+05, .371985D+05, .275931D+05, .204491D+05,
     +  .151364D+05, .111926D+05, .826563D+04, .609739D+04,
     +  .449155D+04, .330469D+04, .242771D+04, .178113D+04,
     +  .130458D+04, .954192D+03, .696660D+03, .507849D+03,
     +  .369498D+03, .268381D+03, .194548D+03, .140823D+03,
     +  .101241D+03, .729980D+02, .525207D+02, .377279D+02,
     +  .270476D+02, .193623D+02, .138517D+02, .989353D+01,
     +  .705997D+01, .503871D+01, .359578D+01, .256912D+01 /
        DATA (UPDI(I),I=677,728) /
     +  .183721D+01, .131749D+01, .946698D+00, .682513D+00,
     +  .493559D+00, .358473D+00, .261291D+00, .191623D+00,
     +  .140780D+00, .104206D+00, .772885D-01, .576905D-01,
     +  .432373D-01, .325817D-01, .246569D-01, .187619D-01,
     +  .143337D-01, .110072D-01, .848678D-02, .657789D-02,
     +  .511628D-02, .399785D-02, .313263D-02, .246269D-02,
     +  .194152D-02, .153039D-02, .120511D-02, .947791D-03,
     +  .742759D-03, .579586D-03, .449027D-03, .345078D-03,
     +  .262203D-03, .196589D-03, .144874D-03, .105223D-03,
     +  .745196D-04, .514596D-04, .344771D-04, .223238D-04,
     +  .138807D-04, .824898D-05, .466047D-05, .247442D-05,
     +  .123705D-05, .580136D-06, .254582D-06, .103783D-06,
     +  .369553D-07, .907191D-08, .479435D-09, .000000D+00 /
        DATA (UPDI(I),I=729,780) /
     +  .583615D+06, .441771D+06, .328668D+06, .244305D+06,
     +  .181458D+06, .134643D+06, .998231D+05, .739286D+05,
     +  .547020D+05, .404290D+05, .298510D+05, .220133D+05,
     +  .162163D+05, .119298D+05, .876627D+04, .643227D+04,
     +  .471374D+04, .344892D+04, .252000D+04, .183813D+04,
     +  .133877D+04, .973276D+03, .706409D+03, .511699D+03,
     +  .369998D+03, .266979D+03, .192348D+03, .137618D+03,
     +  .987453D+02, .706964D+02, .505278D+02, .360387D+02,
     +  .256631D+02, .182620D+02, .129723D+02, .920592D+01,
     +  .653314D+01, .463579D+01, .329303D+01, .234127D+01,
     +  .166911D+01, .119237D+01, .854583D+00, .614425D+00,
     +  .443676D+00, .321564D+00, .234498D+00, .171338D+00,
     +  .126133D+00, .930585D-01, .690985D-01, .515271D-01 /
        DATA (UPDI(I),I=781,832) /
     +  .386334D-01, .290943D-01, .220293D-01, .167490D-01,
     +  .127989D-01, .982024D-02, .757281D-02, .586006D-02,
     +  .455438D-02, .354910D-02, .277385D-02, .217361D-02,
     +  .170238D-02, .133178D-02, .104030D-02, .809630D-03,
     +  .627305D-03, .482590D-03, .368280D-03, .277950D-03,
     +  .207075D-03, .151761D-03, .109696D-03, .774351D-04,
     +  .534067D-04, .358451D-04, .233480D-04, .146943D-04,
     +  .891552D-05, .520325D-05, .290156D-05, .155260D-05,
     +  .793199D-06, .381984D-06, .167918D-06, .617225D-07,
     +  .150013D-07, .953308D-09, .000000D+00, .825212D+06,
     +  .622809D+06, .461748D+06, .342030D+06, .253147D+06,
     +  .187170D+06, .138267D+06, .102029D+06, .752177D+05,
     +  .553863D+05, .407416D+05, .299310D+05, .219644D+05 /
        DATA (UPDI(I),I=833,884) /
     +  .160962D+05, .117814D+05, .861039D+04, .628455D+04,
     +  .457957D+04, .333232D+04, .242051D+04, .175545D+04,
     +  .127071D+04, .918257D+03, .662206D+03, .476665D+03,
     +  .342364D+03, .245503D+03, .174802D+03, .124818D+03,
     +  .889238D+02, .632350D+02, .448721D+02, .317863D+02,
     +  .224999D+02, .158959D+02, .112190D+02, .791716D+01,
     +  .558628D+01, .394551D+01, .278914D+01, .197689D+01,
     +  .140411D+01, .100052D+01, .715255D+00, .513543D+00,
     +  .370122D+00, .268414D+00, .195060D+00, .142824D+00,
     +  .104824D+00, .774325D-01, .574538D-01, .428620D-01,
     +  .321218D-01, .242018D-01, .183115D-01, .139239D-01,
     +  .106307D-01, .815557D-02, .627813D-02, .485251D-02,
     +  .376015D-02, .292128D-02, .227497D-02, .177014D-02 /
        DATA (UPDI(I),I=885,936) /
     +  .137551D-02, .106698D-02, .824514D-03, .634198D-03,
     +  .484354D-03, .366937D-03, .274972D-03, .203469D-03,
     +  .148202D-03, .106526D-03, .748688D-04, .514907D-04,
     +  .345398D-04, .225523D-04, .142880D-04, .877287D-05,
     +  .521468D-05, .298390D-05, .164810D-05, .870655D-06,
     +  .431311D-06, .192190D-06, .700914D-07, .166376D-07,
     +  .112214D-08, .000000D+00, .111724D+07, .840701D+06,
     +  .621103D+06, .458447D+06, .338099D+06, .249083D+06,
     +  .183335D+06, .134790D+06, .990011D+05, .726270D+05,
     +  .532215D+05, .389505D+05, .284727D+05, .207843D+05,
     +  .151527D+05, .110302D+05, .801811D+04, .581894D+04,
     +  .421657D+04, .304997D+04, .220253D+04, .158746D+04,
     +  .114212D+04, .819985D+03, .587569D+03, .420077D+03 /
        DATA (UPDI(I),I=937,988) /
     +  .299817D+03, .212448D+03, .150964D+03, .107024D+03,
     +  .757250D+02, .534624D+02, .376747D+02, .265282D+02,
     +  .186411D+02, .130850D+02, .918287D+01, .644331D+01,
     +  .452511D+01, .318079D+01, .224162D+01, .158309D+01,
     +  .112164D+01, .797334D+00, .569263D+00, .408020D+00,
     +  .294284D+00, .212720D+00, .154929D+00, .113122D+00,
     +  .831347D-01, .613788D-01, .455630D-01, .339798D-01,
     +  .254756D-01, .191814D-01, .145128D-01, .110250D-01,
     +  .841413D-02, .644294D-02, .495226D-02, .381559D-02,
     +  .294652D-02, .228033D-02, .176268D-02, .136051D-02,
     +  .104801D-02, .804136D-03, .614058D-03, .465595D-03,
     +  .350182D-03, .260573D-03, .191523D-03, .138647D-03,
     +  .991034D-04, .693410D-04, .475418D-04, .318549D-04 /
        DATA (UPDI(I),I=989,1040) /
     +  .208270D-04, .132561D-04, .820745D-05, .493939D-05,
     +  .287249D-05, .161511D-05, .866807D-06, .433427D-06,
     +  .192708D-06, .691111D-07, .159853D-07, .111804D-08,
     +  .000000D+00, .146619D+07, .109999D+07, .809784D+06,
     +  .595589D+06, .437661D+06, .321265D+06, .235598D+06,
     +  .172576D+06, .126281D+06, .922918D+05, .673747D+05,
     +  .491196D+05, .357669D+05, .260066D+05, .188847D+05,
     +  .136918D+05, .991252D+04, .716428D+04, .516985D+04,
     +  .372379D+04, .267765D+04, .192157D+04, .137643D+04,
     +  .983822D+03, .701787D+03, .499428D+03, .354786D+03,
     +  .250192D+03, .176929D+03, .124821D+03, .878766D+02,
     +  .617287D+02, .432758D+02, .303137D+02, .211877D+02,
     +  .147927D+02, .103245D+02, .720450D+01, .503148D+01 /
        DATA (UPDI(I),I=1041,1092) /
     +  .351701D+01, .246462D+01, .173083D+01, .121943D+01,
     +  .862055D+00, .612071D+00, .436318D+00, .313004D+00,
     +  .225059D+00, .163058D+00, .118449D+00, .866095D-01,
     +  .636289D-01, .470001D-01, .348812D-01, .260226D-01,
     +  .194973D-01, .146782D-01, .110946D-01, .842290D-02,
     +  .641529D-02, .490349D-02, .375639D-02, .288334D-02,
     +  .221755D-02, .170299D-02, .130570D-02, .998897D-03,
     +  .761127D-03, .577115D-03, .434514D-03, .324524D-03,
     +  .239848D-03, .175164D-03, .126066D-03, .896391D-04,
     +  .624583D-04, .427009D-04, .285810D-04, .187065D-04,
     +  .119513D-04, .744749D-05, .452270D-05, .265865D-05,
     +  .151042D-05, .816253D-06, .408357D-06, .179925D-06,
     +  .632284D-07, .142456D-07, .102423D-08, .000000D+00 /
        DATA (UPDI(I),I=1093,1144) /
     +  .187860D+07, .140517D+07, .103078D+07, .755424D+06,
     +  .553110D+06, .404536D+06, .295575D+06, .215709D+06,
     +  .157253D+06, .114494D+06, .832644D+05, .604707D+05,
     +  .438611D+05, .317670D+05, .229760D+05, .165913D+05,
     +  .119629D+05, .861075D+04, .618782D+04, .443831D+04,
     +  .317784D+04, .227070D+04, .161940D+04, .115236D+04,
     +  .818312D+03, .579686D+03, .409886D+03, .287670D+03,
     +  .202459D+03, .142140D+03, .995753D+02, .695968D+02,
     +  .485429D+02, .338281D+02, .235197D+02, .163336D+02,
     +  .113383D+02, .786900D+01, .546535D+01, .379927D+01,
     +  .264766D+01, .184912D+01, .129557D+01, .910883D+00,
     +  .643222D+00, .456067D+00, .325439D+00, .232782D+00,
     +  .167783D+00, .121265D+00, .882237D-01, .644971D-01 /
        DATA (UPDI(I),I=1145,1196) /
     +  .474073D-01, .350125D-01, .259920D-01, .193789D-01,
     +  .145160D-01, .109164D-01, .824416D-02, .624556D-02,
     +  .474712D-02, .361580D-02, .275878D-02, .210867D-02,
     +  .160897D-02, .122554D-02, .931297D-03, .704824D-03,
     +  .530776D-03, .396931D-03, .294478D-03, .216250D-03,
     +  .156986D-03, .112374D-03, .795239D-04, .552060D-04,
     +  .376513D-04, .251815D-04, .164994D-04, .105755D-04,
     +  .662421D-05, .404956D-05, .239731D-05, .136938D-05,
     +  .741113D-06, .369059D-06, .160536D-06, .551844D-07,
     +  .121144D-07, .891437D-09, .000000D+00, .236088D+07,
     +  .176064D+07, .128694D+07, .939790D+06, .685617D+06,
     +  .499628D+06, .363714D+06, .264456D+06, .192069D+06,
     +  .139317D+06, .100930D+06, .730192D+05, .527571D+05 /
        DATA (UPDI(I),I=1197,1248) /
     +  .380605D+05, .274187D+05, .197203D+05, .141614D+05,
     +  .101515D+05, .726481D+04, .518900D+04, .369956D+04,
     +  .263215D+04, .186900D+04, .132412D+04, .936077D+03,
     +  .660090D+03, .464586D+03, .324516D+03, .227308D+03,
     +  .158820D+03, .110716D+03, .770004D+02, .534360D+02,
     +  .370483D+02, .256248D+02, .177022D+02, .122228D+02,
     +  .843744D+01, .582842D+01, .402970D+01, .279291D+01,
     +  .193996D+01, .135183D+01, .945326D+00, .663969D+00,
     +  .468290D+00, .332419D+00, .236550D+00, .169630D+00,
     +  .121985D+00, .883072D-01, .642433D-01, .469899D-01,
     +  .345360D-01, .255122D-01, .189278D-01, .141070D-01,
     +  .105551D-01, .792942D-02, .597498D-02, .451620D-02,
     +  .342034D-02, .259416D-02, .197078D-02, .149428D-02 /
        DATA (UPDI(I),I=1249,1300) /
     +  .113091D-02, .853793D-03, .641948D-03, .480262D-03,
     +  .356846D-03, .263073D-03, .192033D-03, .138637D-03,
     +  .987524D-04, .695894D-04, .481564D-04, .327790D-04,
     +  .219125D-04, .143736D-04, .923881D-05, .581029D-05,
     +  .356863D-05, .212130D-05, .121396D-05, .655479D-06,
     +  .323822D-06, .138737D-06, .466083D-07, .997483D-08,
     +  .749270D-09, .000000D+00, .918452D+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, .281177D+05, .218962D+05, .168346D+05,
     +  .129332D+05, .993417D+04, .762428D+04, .585015D+04,
     +  .448491D+04, .343729D+04, .263192D+04, .201455D+04,
     +  .154045D+04, .117743D+04, .898990D+03, .686060D+03,
     +  .522954D+03, .398399D+03, .303126D+03, .230485D+03,
     +  .175014D+03, .132799D+03, .100622D+03, .761782D+02,
     +  .575847D+02, .434885D+02, .327951D+02, .247144D+02,
     +  .185185D+02, .139208D+02, .104471D+02, .783571D+01,
     +  .586831D+01, .439301D+01, .328754D+01, .245913D+01,
     +  .183834D+01, .137577D+01, .102952D+01, .771908D+00 /
        DATA (UPDI(I),I=1405,1456) /
     +  .579104D+00, .435856D+00, .328498D+00, .248422D+00,
     +  .188236D+00, .143231D+00, .109221D+00, .837475D-01,
     +  .642283D-01, .496008D-01, .383149D-01, .297644D-01,
     +  .231718D-01, .181298D-01, .142231D-01, .112186D-01,
     +  .887343D-02, .705650D-02, .563119D-02, .452295D-02,
     +  .364648D-02, .295928D-02, .241137D-02, .197652D-02,
     +  .162814D-02, .134526D-02, .111293D-02, .922269D-03,
     +  .763296D-03, .630660D-03, .518252D-03, .423228D-03,
     +  .342037D-03, .273175D-03, .214105D-03, .165366D-03,
     +  .124239D-03, .906367D-04, .637172D-04, .427767D-04,
     +  .270906D-04, .158330D-04, .831571D-05, .356515D-05,
     +  .979650D-06, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=1457,1508) /
     +  .657151D+05, .509970D+05, .390540D+05, .298860D+05,
     +  .228639D+05, .174778D+05, .133562D+05, .101979D+05,
     +  .778344D+04, .593525D+04, .452390D+04, .344480D+04,
     +  .262176D+04, .199326D+04, .151455D+04, .114949D+04,
     +  .871850D+03, .660446D+03, .499928D+03, .377916D+03,
     +  .285451D+03, .215302D+03, .162243D+03, .122073D+03,
     +  .917531D+02, .688619D+02, .516413D+02, .385026D+02,
     +  .287978D+02, .215028D+02, .160440D+02, .119528D+02,
     +  .889954D+01, .662406D+01, .492708D+01, .366259D+01,
     +  .272504D+01, .202741D+01, .151101D+01, .112690D+01,
     +  .843005D+00, .631574D+00, .474719D+00, .357590D+00,
     +  .270468D+00, .205062D+00, .156327D+00, .119237D+00,
     +  .915731D-01, .703710D-01, .543852D-01, .421380D-01 /
        DATA (UPDI(I),I=1509,1560) /
     +  .328134D-01, .256308D-01, .201294D-01, .158589D-01,
     +  .125631D-01, .999070D-02, .799652D-02, .642656D-02,
     +  .519892D-02, .422365D-02, .345155D-02, .283466D-02,
     +  .233496D-02, .192599D-02, .159130D-02, .131329D-02,
     +  .108213D-02, .887146D-03, .723045D-03, .583713D-03,
     +  .465982D-03, .365792D-03, .283398D-03, .214237D-03,
     +  .157961D-03, .112921D-03, .778844D-04, .514257D-04,
     +  .322400D-04, .190296D-04, .103132D-04, .508068D-05,
     +  .219759D-05, .791094D-06, .216697D-06, .336295D-07,
     +  .000000D+00, .000000D+00, .000000D+00, .114365D+06,
     +  .884590D+05, .674878D+05, .514513D+05, .392117D+05,
     +  .298603D+05, .227299D+05, .172877D+05, .131425D+05,
     +  .998227D+04, .757800D+04, .574724D+04, .435622D+04 /
        DATA (UPDI(I),I=1561,1612) /
     +  .329842D+04, .249584D+04, .188639D+04, .142472D+04,
     +  .107470D+04, .809997D+03, .609675D+03, .458486D+03,
     +  .344294D+03, .258283D+03, .193461D+03, .144744D+03,
     +  .108131D+03, .807074D+02, .598839D+02, .445718D+02,
     +  .331183D+02, .245863D+02, .182242D+02, .134980D+02,
     +  .999420D+01, .739357D+01, .546623D+01, .404420D+01,
     +  .299205D+01, .221714D+01, .164413D+01, .122278D+01,
     +  .910858D+00, .680669D+00, .509836D+00, .383425D+00,
     +  .289109D+00, .219190D+00, .166313D+00, .127058D+00,
     +  .971592D-01, .747212D-01, .576320D-01, .446770D-01,
     +  .347521D-01, .271791D-01, .213307D-01, .168330D-01,
     +  .133386D-01, .106369D-01, .851864D-02, .686587D-02,
     +  .555739D-02, .452350D-02, .369965D-02, .303371D-02 /
        DATA (UPDI(I),I=1613,1664) /
     +  .249063D-02, .204743D-02, .168087D-02, .137728D-02,
     +  .112269D-02, .909632D-03, .730065D-03, .579377D-03,
     +  .452377D-03, .348644D-03, .262397D-03, .192823D-03,
     +  .137604D-03, .949801D-04, .629825D-04, .398922D-04,
     +  .239797D-04, .134467D-04, .701816D-05, .335705D-05,
     +  .144616D-05, .551346D-06, .176065D-06, .378972D-07,
     +  .228841D-09, .000000D+00, .202180D+06, .135644D+06,
     +  .103110D+06, .783226D+05, .594697D+05, .451194D+05,
     +  .342160D+05, .259257D+05, .196338D+05, .148555D+05,
     +  .112336D+05, .848649D+04, .640700D+04, .483197D+04,
     +  .364150D+04, .274119D+04, .206181D+04, .154887D+04,
     +  .116250D+04, .871328D+03, .652455D+03, .487852D+03,
     +  .364380D+03, .271733D+03, .202398D+03, .150518D+03 /
        DATA (UPDI(I),I=1665,1716) /
     +  .111827D+03, .825842D+02, .611759D+02, .452386D+02,
     +  .334193D+02, .246491D+02, .181640D+02, .133804D+02,
     +  .984650D+01, .724128D+01, .532836D+01, .392074D+01,
     +  .288919D+01, .213068D+01, .157575D+01, .116730D+01,
     +  .867432D+00, .646189D+00, .483310D+00, .362496D+00,
     +  .273380D+00, .206387D+00, .156881D+00, .119394D+00,
     +  .913901D-01, .701797D-01, .541680D-01, .419638D-01,
     +  .326865D-01, .255560D-01, .200912D-01, .158635D-01,
     +  .126035D-01, .100573D-01, .807492D-02, .651076D-02,
     +  .527728D-02, .429705D-02, .350652D-02, .286420D-02,
     +  .234162D-02, .191134D-02, .155650D-02, .126074D-02,
     +  .101469D-02, .808879D-03, .637463D-03, .494383D-03,
     +  .378397D-03, .282932D-03, .206640D-03, .146674D-03 /
        DATA (UPDI(I),I=1717,1768) /
     +  .100807D-03, .666744D-04, .422321D-04, .254746D-04,
     +  .144279D-04, .766932D-05, .378197D-05, .170644D-05,
     +  .691439D-06, .236289D-06, .544224D-07, .175431D-08,
     +  .000000D+00, .272019D+06, .208951D+06, .158149D+06,
     +  .119616D+06, .904260D+05, .683063D+05, .515689D+05,
     +  .389005D+05, .293263D+05, .220888D+05, .166262D+05,
     +  .125025D+05, .939457D+04, .705186D+04, .528900D+04,
     +  .396232D+04, .296574D+04, .221705D+04, .165570D+04,
     +  .123482D+04, .919930D+03, .684342D+03, .508474D+03,
     +  .377209D+03, .279461D+03, .206709D+03, .152730D+03,
     +  .112157D+03, .826112D+02, .607421D+02, .446092D+02,
     +  .327088D+02, .239570D+02, .175407D+02, .128271D+02,
     +  .937410D+01, .685317D+01, .501037D+01, .366779D+01 /
        DATA (UPDI(I),I=1769,1820) /
     +  .268728D+01, .197418D+01, .145292D+01, .107255D+01,
     +  .793876D+00, .589933D+00, .439718D+00, .329562D+00,
     +  .247332D+00, .186893D+00, .141442D+00, .107666D+00,
     +  .822523D-01, .631588D-01, .486933D-01, .377430D-01,
     +  .293741D-01, .229844D-01, .180658D-01, .142838D-01,
     +  .113434D-01, .905943D-02, .726476D-02, .585250D-02,
     +  .473440D-02, .383509D-02, .310801D-02, .251892D-02,
     +  .203694D-02, .164189D-02, .131545D-02, .104623D-02,
     +  .823471D-03, .640069D-03, .489157D-03, .368409D-03,
     +  .270636D-03, .193783D-03, .134511D-03, .900778D-04,
     +  .577746D-04, .352275D-04, .202497D-04, .107557D-04,
     +  .523958D-05, .228538D-05, .867224D-06, .277685D-06,
     +  .705470D-07, .114008D-07, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=1821,1872) /
     +  .395546D+06, .302723D+06, .228149D+06, .171825D+06,
     +  .129334D+06, .972732D+05, .731152D+05, .549106D+05,
     +  .412108D+05, .309010D+05, .231533D+05, .173311D+05,
     +  .129625D+05, .968475D+04, .722939D+04, .539028D+04,
     +  .401510D+04, .298698D+04, .221973D+04, .164729D+04,
     +  .122105D+04, .903755D+03, .668048D+03, .493023D+03,
     +  .363339D+03, .267319D+03, .196441D+03, .143456D+03,
     +  .105075D+03, .768245D+02, .560951D+02, .408920D+02,
     +  .297725D+02, .216686D+02, .157484D+02, .114382D+02,
     +  .830945D+01, .603683D+01, .439084D+01, .319655D+01,
     +  .233314D+01, .170616D+01, .125141D+01, .920465D+00,
     +  .679707D+00, .503550D+00, .375124D+00, .279890D+00,
     +  .210274D+00, .158261D+00, .119815D+00, .910643D-01 /
        DATA (UPDI(I),I=1873,1924) /
     +  .695697D-01, .533776D-01, .411741D-01, .318972D-01,
     +  .248430D-01, .194389D-01, .152976D-01, .120921D-01,
     +  .960977D-02, .766729D-02, .614318D-02, .494125D-02,
     +  .397791D-02, .320297D-02, .257800D-02, .206975D-02,
     +  .165567D-02, .131613D-02, .103826D-02, .810439D-03,
     +  .624594D-03, .473374D-03, .353530D-03, .257614D-03,
     +  .183047D-03, .126199D-03, .840435D-04, .537190D-04,
     +  .327484D-04, .189143D-04, .101865D-04, .510167D-05,
     +  .234088D-05, .969593D-06, .356248D-06, .109522D-06,
     +  .225662D-07, .410260D-09, .000000D+00, .551537D+06,
     +  .420590D+06, .315653D+06, .236727D+06, .177427D+06,
     +  .132874D+06, .994420D+05, .743571D+05, .555596D+05,
     +  .414754D+05, .309369D+05, .230529D+05, .171631D+05 /
        DATA (UPDI(I),I=1925,1976) /
     +  .127642D+05, .948367D+04, .703791D+04, .521745D+04,
     +  .386286D+04, .285669D+04, .210961D+04, .155599D+04,
     +  .114590D+04, .842736D+03, .618756D+03, .453627D+03,
     +  .331984D+03, .242654D+03, .176231D+03, .128370D+03,
     +  .933349D+02, .677636D+02, .491150D+02, .355502D+02,
     +  .257213D+02, .185811D+02, .134137D+02, .968435D+01,
     +  .699215D+01, .505373D+01, .365612D+01, .265172D+01,
     +  .192701D+01, .140453D+01, .102675D+01, .753545D+00,
     +  .554919D+00, .410956D+00, .304878D+00, .227754D+00,
     +  .170490D+00, .128387D+00, .970864D-01, .737997D-01,
     +  .563524D-01, .432612D-01, .333600D-01, .258622D-01,
     +  .201446D-01, .157783D-01, .124132D-01, .981567D-02,
     +  .779138D-02, .620820D-02, .496463D-02, .397182D-02 /
        DATA (UPDI(I),I=1977,2028) /
     +  .317724D-02, .253961D-02, .202423D-02, .160697D-02,
     +  .126745D-02, .991752D-03, .767746D-03, .586712D-03,
     +  .440981D-03, .326582D-03, .236057D-03, .166441D-03,
     +  .113960D-03, .754559D-04, .480437D-04, .292585D-04,
     +  .169527D-04, .922578D-05, .471600D-05, .224017D-05,
     +  .977675D-06, .383881D-06, .126380D-06, .277202D-07,
     +  .112517D-08, .000000D+00, .745649D+06, .566605D+06,
     +  .423478D+06, .316270D+06, .236049D+06, .176027D+06,
     +  .131174D+06, .976617D+05, .726550D+05, .539991D+05,
     +  .400998D+05, .297471D+05, .220469D+05, .163215D+05,
     +  .120708D+05, .891621D+04, .657880D+04, .484766D+04,
     +  .356775D+04, .262196D+04, .192438D+04, .141017D+04,
     +  .103188D+04, .753779D+03, .549770D+03, .400242D+03 /
        DATA (UPDI(I),I=2029,2080) /
     +  .290994D+03, .210190D+03, .152272D+03, .110105D+03,
     +  .794913D+02, .572890D+02, .412273D+02, .296555D+02,
     +  .212960D+02, .152817D+02, .109659D+02, .786918D+01,
     +  .565255D+01, .406419D+01, .292943D+01, .211575D+01,
     +  .153263D+01, .111364D+01, .812409D+00, .594762D+00,
     +  .437920D+00, .323061D+00, .240004D+00, .178703D+00,
     +  .133869D+00, .100726D+00, .761885D-01, .578998D-01,
     +  .442383D-01, .339564D-01, .262027D-01, .203162D-01,
     +  .158372D-01, .123998D-01, .975557D-02, .770333D-02,
     +  .610387D-02, .485266D-02, .385796D-02, .306602D-02,
     +  .243382D-02, .192599D-02, .151750D-02, .118763D-02,
     +  .921874D-03, .707848D-03, .536483D-03, .399945D-03,
     +  .293767D-03, .210661D-03, .147420D-03, .100255D-03 /
        DATA (UPDI(I),I=2081,2132) /
     +  .660043D-04, .418607D-04, .254562D-04, .147818D-04,
     +  .810791D-05, .420693D-05, .204547D-05, .920700D-06,
     +  .373265D-06, .125739D-06, .279168D-07, .141197D-08,
     +  .000000D+00, .983921D+06, .745058D+06, .554577D+06,
     +  .412477D+06, .306573D+06, .227662D+06, .168934D+06,
     +  .125239D+06, .927698D+05, .686497D+05, .507555D+05,
     +  .374852D+05, .276577D+05, .203829D+05, .150057D+05,
     +  .110330D+05, .810279D+04, .594257D+04, .435278D+04,
     +  .318352D+04, .232518D+04, .169550D+04, .123449D+04,
     +  .897250D+03, .651075D+03, .471540D+03, .341032D+03,
     +  .245008D+03, .176542D+03, .126960D+03, .911522D+02,
     +  .653255D+02, .467431D+02, .334302D+02, .238663D+02,
     +  .170252D+02, .121439D+02, .866226D+01, .618453D+01 /
        DATA (UPDI(I),I=2133,2184) /
     +  .441980D+01, .316638D+01, .227309D+01, .163669D+01,
     +  .118221D+01, .857355D+00, .624052D+00, .456886D+00,
     +  .335194D+00, .247666D+00, .183439D+00, .136710D+00,
     +  .102355D+00, .770428D-01, .582717D-01, .443122D-01,
     +  .338562D-01, .260040D-01, .200688D-01, .155696D-01,
     +  .121311D-01, .949545D-02, .745843D-02, .587670D-02,
     +  .464462D-02, .366949D-02, .289727D-02, .228413D-02,
     +  .179471D-02, .140360D-02, .109016D-02, .839602D-03,
     +  .639563D-03, .480857D-03, .355643D-03, .259166D-03,
     +  .184439D-03, .128145D-03, .865898D-04, .567038D-04,
     +  .358312D-04, .217597D-04, .126585D-04, .698807D-05,
     +  .366782D-05, .181273D-05, .831490D-06, .342254D-06,
     +  .115773D-06, .255643D-07, .144723D-08, .000000D+00 /
        DATA (UPDI(I),I=2185,2236) /
     +  .127268D+07, .960409D+06, .711983D+06, .527399D+06,
     +  .390380D+06, .288698D+06, .213330D+06, .157485D+06,
     +  .116159D+06, .855889D+05, .630048D+05, .463282D+05,
     +  .340311D+05, .249679D+05, .182982D+05, .133926D+05,
     +  .979037D+04, .714686D+04, .521025D+04, .379255D+04,
     +  .275667D+04, .200037D+04, .144930D+04, .104813D+04,
     +  .756723D+03, .545248D+03, .392294D+03, .280339D+03,
     +  .200925D+03, .143719D+03, .102621D+03, .731386D+02,
     +  .520399D+02, .370079D+02, .262682D+02, .186298D+02,
     +  .132103D+02, .936731D+01, .664809D+01, .472283D+01,
     +  .336327D+01, .240012D+01, .171795D+01, .123368D+01,
     +  .889514D+00, .643794D+00, .468721D+00, .342009D+00,
     +  .251352D+00, .185205D+00, .137326D+00, .102312D+00 /
        DATA (UPDI(I),I=2237,2288) /
     +  .766378D-01, .576919D-01, .436648D-01, .332072D-01,
     +  .253867D-01, .195009D-01, .150561D-01, .116735D-01,
     +  .909040D-02, .710239D-02, .556470D-02, .437219D-02,
     +  .343279D-02, .269288D-02, .210866D-02, .164526D-02,
     +  .127740D-02, .984782D-03, .752678D-03, .568941D-03,
     +  .424467D-03, .311551D-03, .225325D-03, .159202D-03,
     +  .109868D-03, .737989D-04, .480933D-04, .302926D-04,
     +  .183759D-04, .107086D-04, .594373D-05, .314774D-05,
     +  .157355D-05, .729810D-06, .302019D-06, .101604D-06,
     +  .221422D-07, .134795D-08, .000000D+00, .161841D+07,
     +  .121719D+07, .898746D+06, .663072D+06, .488815D+06,
     +  .360016D+06, .264932D+06, .194765D+06, .143052D+06,
     +  .104957D+06, .769312D+05, .563239D+05, .411926D+05 /
        DATA (UPDI(I),I=2289,2340) /
     +  .300889D+05, .219528D+05, .159951D+05, .116396D+05,
     +  .845773D+04, .613723D+04, .444632D+04, .321650D+04,
     +  .232282D+04, .167473D+04, .120520D+04, .865789D+03,
     +  .620675D+03, .444275D+03, .315818D+03, .225166D+03,
     +  .160204D+03, .113775D+03, .806471D+02, .570649D+02,
     +  .403552D+02, .284817D+02, .200842D+02, .141591D+02,
     +  .998185D+01, .704279D+01, .497397D+01, .352135D+01,
     +  .249828D+01, .177784D+01, .126938D+01, .910066D+00,
     +  .655002D+00, .474277D+00, .344211D+00, .251641D+00,
     +  .184470D+00, .136096D+00, .100902D+00, .752190D-01,
     +  .563577D-01, .424547D-01, .321373D-01, .244539D-01,
     +  .186962D-01, .143650D-01, .110826D-01, .858579D-02,
     +  .667241D-02, .519844D-02, .406052D-02, .316842D-02 /
        DATA (UPDI(I),I=2341,2392) /
     +  .246963D-02, .192100D-02, .148857D-02, .114756D-02,
     +  .878309D-03, .666356D-03, .499957D-03, .370249D-03,
     +  .269782D-03, .193725D-03, .135950D-03, .932349D-04,
     +  .622867D-04, .404152D-04, .253865D-04, .153872D-04,
     +  .898175D-05, .500791D-05, .267023D-05, .134496D-05,
     +  .627207D-06, .259294D-06, .862685D-07, .184832D-07,
     +  .118647D-08, .000000D+00, .202765D+07, .151992D+07,
     +  .111786D+07, .821460D+06, .603156D+06, .442439D+06,
     +  .324259D+06, .237401D+06, .173643D+06, .126868D+06,
     +  .925979D+05, .675046D+05, .491565D+05, .357497D+05,
     +  .259680D+05, .188366D+05, .136457D+05, .987036D+04,
     +  .712938D+04, .514115D+04, .370168D+04, .266051D+04,
     +  .190898D+04, .136710D+04, .977263D+03, .697087D+03 /
        DATA (UPDI(I),I=2393,2444) /
     +  .496449D+03, .351078D+03, .249011D+03, .176243D+03,
     +  .124501D+03, .877764D+02, .617712D+02, .434437D+02,
     +  .304904D+02, .213797D+02, .149867D+02, .105050D+02,
     +  .736926D+01, .517463D+01, .364231D+01, .256930D+01,
     +  .181796D+01, .129073D+01, .920217D+00, .658681D+00,
     +  .474379D+00, .342470D+00, .249072D+00, .181664D+00,
     +  .133362D+00, .983992D-01, .730031D-01, .544412D-01,
     +  .408190D-01, .307558D-01, .232932D-01, .177247D-01,
     +  .135524D-01, .104039D-01, .801839D-02, .619829D-02,
     +  .480201D-02, .372908D-02, .289208D-02, .224006D-02,
     +  .173107D-02, .133241D-02, .102011D-02, .775296D-03,
     +  .584021D-03, .435062D-03, .319921D-03, .231499D-03,
     +  .165118D-03, .115142D-03, .785106D-04, .521919D-04 /
        DATA (UPDI(I),I=2445,2496) /
     +  .337356D-04, .211415D-04, .128068D-04, .748669D-05,
     +  .418947D-05, .224467D-05, .113553D-05, .530179D-06,
     +  .217982D-06, .714715D-07, .150250D-07, .100568D-08,
     +  .000000D+00, .250681D+07, .187296D+07, .137216D+07,
     +  .100440D+07, .734573D+06, .536696D+06, .391758D+06,
     +  .285657D+06, .208084D+06, .151404D+06, .110044D+06,
     +  .798854D+05, .579244D+05, .419452D+05, .303359D+05,
     +  .219084D+05, .158006D+05, .113779D+05, .818102D+04,
     +  .587250D+04, .420867D+04, .301074D+04, .215004D+04,
     +  .153236D+04, .109008D+04, .773726D+03, .548284D+03,
     +  .385756D+03, .272213D+03, .191672D+03, .134693D+03,
     +  .944603D+02, .661186D+02, .462501D+02, .322819D+02,
     +  .225108D+02, .156913D+02, .109371D+02, .762912D+01 /
        DATA (UPDI(I),I=2497,2548) /
     +  .532686D+01, .372825D+01, .261514D+01, .184004D+01,
     +  .129918D+01, .921172D+00, .655812D+00, .469818D+00,
     +  .337413D+00, .244143D+00, .177179D+00, .129433D+00,
     +  .950434D-01, .701794D-01, .520912D-01, .388747D-01,
     +  .291550D-01, .219773D-01, .166444D-01, .126645D-01,
     +  .967406D-02, .741749D-02, .570336D-02, .439401D-02,
     +  .339262D-02, .261534D-02, .201320D-02, .154584D-02,
     +  .118207D-02, .898955D-03, .678597D-03, .507682D-03,
     +  .375614D-03, .274353D-03, .197225D-03, .139784D-03,
     +  .969039D-04, .657253D-04, .434984D-04, .280216D-04,
     +  .175259D-04, .106116D-04, .621098D-05, .348483D-05,
     +  .187275D-05, .948894D-06, .442091D-06, .180186D-06,
     +  .580875D-07, .119699D-07, .829538D-09, .000000D+00 /
        DATA (UPDI(I),I=2549,2600) /
     +  .781316D+05, .462531D+05, .354066D+05, .271049D+05,
     +  .207508D+05, .158873D+05, .121645D+05, .931495D+04,
     +  .713364D+04, .546380D+04, .418545D+04, .320673D+04,
     +  .245738D+04, .188358D+04, .144417D+04, .110764D+04,
     +  .849853D+03, .652361D+03, .501032D+03, .385047D+03,
     +  .296129D+03, .227940D+03, .175627D+03, .135476D+03,
     +  .104644D+03, .809530D+02, .627359D+02, .485419D+02,
     +  .377847D+02, .294863D+02, .230755D+02, .181147D+02,
     +  .142686D+02, .112878D+02, .895899D+01, .713984D+01,
     +  .571379D+01, .459145D+01, .370425D+01, .299925D+01,
     +  .243701D+01, .198553D+01, .162126D+01, .132588D+01,
     +  .108527D+01, .888502D+00, .727615D+00, .594448D+00,
     +  .485393D+00, .394918D+00, .320616D+00, .259403D+00 /
        DATA (UPDI(I),I=2601,2652) /
     +  .209055D+00, .167736D+00, .133925D+00, .106355D+00,
     +  .839676D-01, .658731D-01, .513257D-01, .396978D-01,
     +  .304624D-01, .231776D-01, .174739D-01, .130621D-01,
     +  .964360D-02, .703804D-02, .507251D-02, .360637D-02,
     +  .252610D-02, .174080D-02, .117831D-02, .781946D-03,
     +  .507501D-03, .321146D-03, .198470D-03, .118532D-03,
     +  .683465D-04, .378474D-04, .199964D-04, .999736D-05,
     +  .467999D-05, .202603D-05, .791277D-06, .273721D-06,
     +  .803730D-07, .188694D-07, .320396D-08, .325977D-09,
     +  .130252D-10, .529200D-13, .000000D+00, .867857D+05,
     +  .673918D+05, .516616D+05, .395953D+05, .303462D+05,
     +  .232529D+05, .178168D+05, .136489D+05, .104555D+05,
     +  .800766D+04, .613271D+04, .469589D+04, .359565D+04 /
        DATA (UPDI(I),I=2653,2704) /
     +  .275275D+04, .210748D+04, .161327D+04, .123506D+04,
     +  .945456D+03, .723880D+03, .554260D+03, .424515D+03,
     +  .325210D+03, .249256D+03, .191123D+03, .146657D+03,
     +  .112621D+03, .865876D+02, .664004D+02, .511951D+02,
     +  .395361D+02, .305986D+02, .237345D+02, .184608D+02,
     +  .144106D+02, .112806D+02, .886139D+01, .698864D+01,
     +  .553254D+01, .439762D+01, .350799D+01, .280936D+01,
     +  .225654D+01, .181754D+01, .146691D+01, .118585D+01,
     +  .959363D+00, .777020D+00, .628132D+00, .507984D+00,
     +  .409543D+00, .329736D+00, .264727D+00, .211868D+00,
     +  .168925D+00, .134137D+00, .106016D+00, .833748D-01,
     +  .652112D-01, .507163D-01, .391993D-01, .301054D-01,
     +  .229644D-01, .173938D-01, .130954D-01, .976807D-02 /
        DATA (UPDI(I),I=2705,2756) /
     +  .722853D-02, .530688D-02, .386419D-02, .279100D-02,
     +  .199889D-02, .141982D-02, .999611D-03, .697478D-03,
     +  .480983D-03, .329276D-03, .221504D-03, .146342D-03,
     +  .943506D-04, .588418D-04, .350616D-04, .195333D-04,
     +  .990406D-05, .417959D-05, .119014D-05, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .123458D+06, .957755D+05,
     +  .733324D+05, .561290D+05, .429554D+05, .328616D+05,
     +  .251357D+05, .192189D+05, .146924D+05, .112277D+05,
     +  .857843D+04, .655171D+04, .500295D+04, .381880D+04,
     +  .291446D+04, .222344D+04, .169604D+04, .129329D+04,
     +  .986103D+03, .751674D+03, .572994D+03, .436718D+03,
     +  .332906D+03, .253775D+03, .193521D+03, .147617D+03 /
        DATA (UPDI(I),I=2757,2808) /
     +  .112694D+03, .857550D+02, .655840D+02, .502108D+02,
     +  .385061D+02, .295789D+02, .227727D+02, .175868D+02,
     +  .136143D+02, .105715D+02, .823918D+01, .644390D+01,
     +  .506000D+01, .398721D+01, .315483D+01, .250399D+01,
     +  .199363D+01, .159101D+01, .127244D+01, .101883D+01,
     +  .817215D+00, .654497D+00, .524768D+00, .419627D+00,
     +  .335314D+00, .267318D+00, .212575D+00, .168500D+00,
     +  .133109D+00, .104724D+00, .820439D-01, .639735D-01,
     +  .496481D-01, .383291D-01, .294392D-01, .224878D-01,
     +  .170840D-01, .129244D-01, .970852D-02, .725255D-02,
     +  .539039D-02, .398603D-02, .293419D-02, .214960D-02,
     +  .156801D-02, .113804D-02, .821578D-03, .588091D-03,
     +  .419073D-03, .294223D-03, .203455D-03, .137762D-03 /
        DATA (UPDI(I),I=2809,2860) /
     +  .908127D-04, .577900D-04, .351689D-04, .202757D-04,
     +  .107905D-04, .524249D-05, .224404D-05, .801755D-06,
     +  .218462D-06, .338053D-07, .000000D+00, .000000D+00,
     +  .000000D+00, .171224D+06, .132552D+06, .101242D+06,
     +  .772940D+05, .589971D+05, .450102D+05, .343307D+05,
     +  .261723D+05, .199473D+05, .151951D+05, .115718D+05,
     +  .880784D+04, .670208D+04, .509704D+04, .387523D+04,
     +  .294471D+04, .223700D+04, .169849D+04, .128928D+04,
     +  .978197D+03, .742045D+03, .562681D+03, .426641D+03,
     +  .323407D+03, .245172D+03, .185860D+03, .140972D+03,
     +  .106530D+03, .808871D+02, .614575D+02, .467563D+02,
     +  .356162D+02, .271808D+02, .207997D+02, .159488D+02,
     +  .122626D+02, .946097D+01, .732325D+01, .569062D+01 /
        DATA (UPDI(I),I=2861,2912) /
     +  .443710D+01, .347424D+01, .272906D+01, .215086D+01,
     +  .169958D+01, .134635D+01, .106813D+01, .849310D+00,
     +  .674510D+00, .536589D+00, .425887D+00, .337959D+00,
     +  .267682D+00, .211595D+00, .166807D+00, .131124D+00,
     +  .102711D+00, .801647D-01, .623140D-01, .482470D-01,
     +  .371899D-01, .285474D-01, .218165D-01, .166008D-01,
     +  .125953D-01, .950258D-02, .714046D-02, .534709D-02,
     +  .399038D-02, .296928D-02, .220211D-02, .162813D-02,
     +  .119880D-02, .878350D-03, .638167D-03, .461345D-03,
     +  .328417D-03, .230122D-03, .157829D-03, .105428D-03,
     +  .680866D-04, .422214D-04, .249620D-04, .138193D-04,
     +  .714322D-05, .339255D-05, .145421D-05, .552663D-06,
     +  .176195D-06, .379024D-07, .228865D-09, .000000D+00 /
        DATA (UPDI(I),I=2913,2964) /
     +  .189296D+06, .179079D+06, .136361D+06, .103780D+06,
     +  .789609D+05, .600445D+05, .456450D+05, .346791D+05,
     +  .263384D+05, .199920D+05, .151691D+05, .115026D+05,
     +  .871892D+04, .660473D+04, .500118D+04, .378450D+04,
     +  .286267D+04, .216397D+04, .163517D+04, .123482D+04,
     +  .932185D+03, .703326D+03, .530519D+03, .399988D+03,
     +  .301533D+03, .227256D+03, .171329D+03, .128643D+03,
     +  .970336D+02, .732182D+02, .553037D+02, .418114D+02,
     +  .316594D+02, .240306D+02, .182711D+02, .139261D+02,
     +  .106486D+02, .816743D+01, .628798D+01, .485722D+01,
     +  .376787D+01, .293241D+01, .229014D+01, .179355D+01,
     +  .140855D+01, .110816D+01, .874119D+00, .688882D+00,
     +  .544059D+00, .428836D+00, .338098D+00, .266168D+00 /
        DATA (UPDI(I),I=2965,3016) /
     +  .209215D+00, .164074D+00, .128368D+00, .100126D+00,
     +  .778574D-01, .603300D-01, .465932D-01, .358488D-01,
     +  .274880D-01, .210010D-01, .159897D-01, .121501D-01,
     +  .918962D-02, .692930D-02, .521204D-02, .391034D-02,
     +  .292740D-02, .218540D-02, .162688D-02, .120606D-02,
     +  .889385D-03, .650022D-03, .472243D-03, .337564D-03,
     +  .237303D-03, .163187D-03, .109277D-03, .707808D-04,
     +  .440906D-04, .262518D-04, .147199D-04, .776638D-05,
     +  .380922D-05, .171256D-05, .692427D-06, .236386D-06,
     +  .544262D-07, .175433D-08, .000000D+00, .327028D+06,
     +  .251611D+06, .190808D+06, .144621D+06, .109571D+06,
     +  .829671D+05, .627960D+05, .474997D+05, .359131D+05,
     +  .271353D+05, .204931D+05, .154663D+05, .116666D+05 /
        DATA (UPDI(I),I=3017,3068) /
     +  .879421D+04, .662552D+04, .498799D+04, .375317D+04,
     +  .282192D+04, .212059D+04, .159239D+04, .119516D+04,
     +  .896385D+03, .671999D+03, .503469D+03, .377069D+03,
     +  .282274D+03, .211328D+03, .157518D+03, .117923D+03,
     +  .882912D+02, .661503D+02, .495941D+02, .372256D+02,
     +  .280025D+02, .210928D+02, .159232D+02, .120559D+02,
     +  .915430D+01, .697598D+01, .533349D+01, .409483D+01,
     +  .315439D+01, .243863D+01, .189099D+01, .147075D+01,
     +  .114630D+01, .896087D+00, .700083D+00, .548365D+00,
     +  .428843D+00, .335601D+00, .262369D+00, .204890D+00,
     +  .159718D+00, .124269D+00, .964441D-01, .746585D-01,
     +  .576263D-01, .443584D-01, .340393D-01, .260487D-01,
     +  .198764D-01, .151242D-01, .114934D-01, .869883D-02 /
        DATA (UPDI(I),I=3069,3120) /
     +  .656718D-02, .494737D-02, .371824D-02, .278805D-02,
     +  .208384D-02, .155181D-02, .114942D-02, .845481D-03,
     +  .615214D-03, .443899D-03, .314270D-03, .218092D-03,
     +  .147503D-03, .966873D-04, .609523D-04, .366528D-04,
     +  .208402D-04, .109754D-04, .531181D-05, .230543D-05,
     +  .871670D-06, .278395D-06, .706155D-07, .114035D-07,
     +  .000000D+00, .000000D+00, .449575D+06, .344624D+06,
     +  .260228D+06, .196387D+06, .148140D+06, .111675D+06,
     +  .841447D+05, .633588D+05, .476824D+05, .358596D+05,
     +  .269530D+05, .202437D+05, .151955D+05, .113974D+05,
     +  .854325D+04, .639870D+04, .478940D+04, .358185D+04,
     +  .267701D+04, .199906D+04, .149186D+04, .111244D+04,
     +  .829009D+03, .617322D+03, .459445D+03, .341727D+03 /
        DATA (UPDI(I),I=3121,3172) /
     +  .254145D+03, .188124D+03, .139844D+03, .103944D+03,
     +  .772928D+02, .574991D+02, .428126D+02, .319401D+02,
     +  .238535D+02, .178498D+02, .133933D+02, .100769D+02,
     +  .760772D+01, .576209D+01, .438234D+01, .334432D+01,
     +  .256147D+01, .196815D+01, .151709D+01, .117215D+01,
     +  .908609D+00, .704099D+00, .547234D+00, .424775D+00,
     +  .330070D+00, .256325D+00, .198911D+00, .154149D+00,
     +  .119282D+00, .921112D-01, .709802D-01, .545660D-01,
     +  .418541D-01, .320217D-01, .244452D-01, .186185D-01,
     +  .141486D-01, .107439D-01, .812927D-02, .613819D-02,
     +  .462637D-02, .347935D-02, .261070D-02, .195237D-02,
     +  .145419D-02, .107682D-02, .791342D-03, .574987D-03,
     +  .413943D-03, .292271D-03, .202204D-03, .136353D-03 /
        DATA (UPDI(I),I=3173,3224) /
     +  .891646D-04, .561587D-04, .338320D-04, .193586D-04,
     +  .103499D-04, .515477D-05, .235543D-05, .972777D-06,
     +  .356749D-06, .109570D-06, .225680D-07, .410270D-09,
     +  .000000D+00, .604606D+06, .461748D+06, .347164D+06,
     +  .260855D+06, .195902D+06, .147022D+06, .110278D+06,
     +  .826575D+05, .619184D+05, .463478D+05, .346710D+05,
     +  .259154D+05, .193579D+05, .144477D+05, .107753D+05,
     +  .802943D+04, .597888D+04, .444794D+04, .330651D+04,
     +  .245571D+04, .182248D+04, .135128D+04, .100118D+04,
     +  .741125D+03, .548251D+03, .405251D+03, .299473D+03,
     +  .220211D+03, .162598D+03, .120025D+03, .886167D+02,
     +  .654420D+02, .483597D+02, .358002D+02, .265234D+02,
     +  .196861D+02, .146478D+02, .109273D+02, .817857D+01 /
        DATA (UPDI(I),I=3225,3276) /
     +  .614066D+01, .462949D+01, .350220D+01, .265918D+01,
     +  .202583D+01, .154848D+01, .118662D+01, .912553D+00,
     +  .701716D+00, .541359D+00, .417231D+00, .322012D+00,
     +  .248461D+00, .191634D+00, .147661D+00, .113648D+00,
     +  .873244D-01, .669832D-01, .512796D-01, .391862D-01,
     +  .298822D-01, .227468D-01, .172833D-01, .131074D-01,
     +  .993694D-02, .750847D-02, .566313D-02, .426407D-02,
     +  .320375D-02, .240119D-02, .179322D-02, .133325D-02,
     +  .985013D-03, .721796D-03, .522718D-03, .374827D-03,
     +  .263524D-03, .181504D-03, .121878D-03, .794147D-04,
     +  .499124D-04, .300803D-04, .172862D-04, .934706D-05,
     +  .475494D-05, .225070D-05, .979949D-06, .384234D-06,
     +  .126413D-06, .277215D-07, .112518D-08, .000000D+00 /
        DATA (UPDI(I),I=3277,3328) /
     +  .797777D+06, .607033D+06, .454431D+06, .339972D+06,
     +  .254198D+06, .189927D+06, .141820D+06, .105817D+06,
     +  .789031D+05, .587871D+05, .437694D+05, .325604D+05,
     +  .242042D+05, .179764D+05, .133407D+05, .989116D+04,
     +  .732761D+04, .542313D+04, .401026D+04, .296248D+04,
     +  .218662D+04, .161230D+04, .118784D+04, .874247D+03,
     +  .642932D+03, .472379D+03, .346936D+03, .253486D+03,
     +  .185961D+03, .136366D+03, .999983D+02, .733338D+02,
     +  .538038D+02, .395394D+02, .290732D+02, .214128D+02,
     +  .158074D+02, .116983D+02, .868471D+01, .646747D+01,
     +  .483588D+01, .362838D+01, .273254D+01, .206499D+01,
     +  .156591D+01, .119069D+01, .908784D+00, .693691D+00,
     +  .531387D+00, .406751D+00, .311873D+00, .239140D+00 /
        DATA (UPDI(I),I=3329,3380) /
     +  .183351D+00, .140486D+00, .107553D+00, .822318D-01,
     +  .627856D-01, .478617D-01, .364313D-01, .276831D-01,
     +  .210054D-01, .159147D-01, .120382D-01, .910511D-02,
     +  .686498D-02, .516717D-02, .388266D-02, .291097D-02,
     +  .217662D-02, .162121D-02, .120167D-02, .884679D-03,
     +  .645680D-03, .465551D-03, .332210D-03, .232382D-03,
     +  .159237D-03, .106416D-03, .690577D-04, .432887D-04,
     +  .260781D-04, .150316D-04, .819771D-05, .423543D-05,
     +  .205307D-05, .922320D-06, .373513D-06, .125762D-06,
     +  .279176D-07, .141198D-08, .000000D+00, .103512D+07,
     +  .784770D+06, .584983D+06, .435760D+06, .324403D+06,
     +  .241318D+06, .179394D+06, .133252D+06, .989093D+05,
     +  .733548D+05, .543620D+05, .402504D+05, .297783D+05 /
        DATA (UPDI(I),I=3381,3432) /
     +  .220098D+05, .162543D+05, .119917D+05, .883922D+04,
     +  .650861D+04, .478810D+04, .351856D+04, .258323D+04,
     +  .189444D+04, .138801D+04, .101584D+04, .742790D+03,
     +  .542556D+03, .396101D+03, .287623D+03, .209691D+03,
     +  .152790D+03, .111311D+03, .810855D+02, .590839D+02,
     +  .431166D+02, .314763D+02, .230133D+02, .168621D+02,
     +  .123844D+02, .912348D+01, .674168D+01, .500172D+01,
     +  .372367D+01, .278262D+01, .208676D+01, .157048D+01,
     +  .118533D+01, .898180D+00, .680769D+00, .517942D+00,
     +  .393847D+00, .300066D+00, .228693D+00, .174324D+00,
     +  .132833D+00, .101160D+00, .769618D-01, .584884D-01,
     +  .443923D-01, .336533D-01, .254762D-01, .192635D-01,
     +  .145479D-01, .109710D-01, .827409D-02, .622099D-02 /
        DATA (UPDI(I),I=3433,3484) /
     +  .466957D-02, .349890D-02, .261551D-02, .194945D-02,
     +  .144695D-02, .106834D-02, .783167D-03, .568933D-03,
     +  .408184D-03, .289729D-03, .201576D-03, .137395D-03,
     +  .913717D-04, .590532D-04, .369199D-04, .222292D-04,
     +  .128451D-04, .705440D-05, .368862D-05, .181821D-05,
     +  .832642D-06, .342428D-06, .115788D-06, .255650D-07,
     +  .144724D-08, .000000D+00, .132297D+07, .999418D+06,
     +  .741851D+06, .550271D+06, .407896D+06, .302114D+06,
     +  .223606D+06, .165359D+06, .122192D+06, .902126D+05,
     +  .665491D+05, .490460D+05, .361156D+05, .265673D+05,
     +  .195258D+05, .143354D+05, .105146D+05, .770362D+04,
     +  .563851D+04, .412220D+04, .301061D+04, .219616D+04,
     +  .160040D+04, .116486D+04, .847005D+03, .615151D+03 /
        DATA (UPDI(I),I=3485,3536) /
     +  .446495D+03, .322272D+03, .233535D+03, .169116D+03,
     +  .122429D+03, .886111D+02, .641424D+02, .464944D+02,
     +  .337089D+02, .244732D+02, .178039D+02, .129816D+02,
     +  .949341D+01, .696330D+01, .512784D+01, .378927D+01,
     +  .281073D+01, .209243D+01, .156338D+01, .117159D+01,
     +  .881618D+00, .663678D+00, .501619D+00, .378996D+00,
     +  .286972D+00, .217420D+00, .164787D+00, .124883D+00,
     +  .946111D-01, .716238D-01, .541767D-01, .409379D-01,
     +  .309047D-01, .233034D-01, .175550D-01, .132110D-01,
     +  .992899D-02, .746362D-02, .559330D-02, .418468D-02,
     +  .312501D-02, .232779D-02, .172846D-02, .127774D-02,
     +  .939273D-03, .685302D-03, .495347D-03, .353533D-03,
     +  .249568D-03, .172691D-03, .117090D-03, .775018D-04 /
        DATA (UPDI(I),I=3537,3588) /
     +  .498966D-04, .311206D-04, .187294D-04, .108476D-04,
     +  .599260D-05, .316288D-05, .157749D-05, .730627D-06,
     +  .302141D-06, .101615D-06, .221426D-07, .134796D-08,
     +  .000000D+00, .166781D+07, .125551D+07, .928086D+06,
     +  .685541D+06, .506022D+06, .373197D+06, .275028D+06,
     +  .202501D+06, .148980D+06, .109501D+06, .804146D+05,
     +  .589952D+05, .432417D+05, .316613D+05, .231598D+05,
     +  .169222D+05, .123519D+05, .900538D+04, .655854D+04,
     +  .477066D+04, .346639D+04, .251551D+04, .182345D+04,
     +  .132010D+04, .954650D+03, .689473D+03, .497611D+03,
     +  .357072D+03, .257235D+03, .185166D+03, .133230D+03,
     +  .958292D+02, .689263D+02, .496393D+02, .357509D+02,
     +  .257812D+02, .186270D+02, .134876D+02, .979423D+01 /
        DATA (UPDI(I),I=3589,3640) /
     +  .713317D+01, .521560D+01, .382674D+01, .281840D+01,
     +  .208341D+01, .154582D+01, .115050D+01, .859960D+00,
     +  .643117D+00, .482977D+00, .362640D+00, .272937D+00,
     +  .205587D+00, .154947D+00, .116794D+00, .880259D-01,
     +  .663098D-01, .499206D-01, .375525D-01, .282274D-01,
     +  .211978D-01, .159062D-01, .119253D-01, .892972D-02,
     +  .668825D-02, .499407D-02, .372270D-02, .276954D-02,
     +  .205491D-02, .151950D-02, .111833D-02, .818233D-03,
     +  .594033D-03, .427161D-03, .303249D-03, .212909D-03,
     +  .146542D-03, .988613D-04, .651471D-04, .417960D-04,
     +  .260146D-04, .156527D-04, .908508D-05, .504383D-05,
     +  .268123D-05, .134778D-05, .627785D-06, .259379D-06,
     +  .862761D-07, .184835D-07, .118648D-08, .000000D+00 /
        DATA (UPDI(I),I=3641,3692) /
     +  .207618D+07, .155756D+07, .114668D+07, .843532D+06,
     +  .620061D+06, .455387D+06, .334178D+06, .245002D+06,
     +  .179468D+06, .131333D+06, .960214D+05, .701302D+05,
     +  .511707D+05, .372955D+05, .271548D+05, .197482D+05,
     +  .143462D+05, .104090D+05, .754385D+04, .546027D+04,
     +  .394757D+04, .285013D+04, .205534D+04, .148018D+04,
     +  .106471D+04, .764786D+03, .548922D+03, .391651D+03,
     +  .280536D+03, .200767D+03, .143599D+03, .102665D+03,
     +  .733886D+02, .525228D+02, .375861D+02, .269288D+02,
     +  .193278D+02, .139017D+02, .100267D+02, .725284D+01,
     +  .526685D+01, .383791D+01, .280734D+01, .206118D+01,
     +  .151906D+01, .112310D+01, .834038D+00, .619748D+00,
     +  .462535D+00, .345183D+00, .258268D+00, .193430D+00 /
        DATA (UPDI(I),I=3693,3744) /
     +  .144981D+00, .108701D+00, .815054D-01, .610951D-01,
     +  .457767D-01, .342788D-01, .256538D-01, .191842D-01,
     +  .143367D-01, .107062D-01, .798562D-02, .595809D-02,
     +  .443156D-02, .329039D-02, .243802D-02, .180133D-02,
     +  .132613D-02, .971513D-03, .707368D-03, .510952D-03,
     +  .365514D-03, .258118D-03, .180264D-03, .123441D-03,
     +  .828831D-04, .543962D-04, .347903D-04, .216168D-04,
     +  .130057D-04, .756330D-05, .421580D-05, .225264D-05,
     +  .113755D-05, .530586D-06, .218041D-06, .714767D-07,
     +  .150252D-07, .100568D-08, .000000D+00, .255447D+07,
     +  .190993D+07, .140047D+07, .102609D+07, .751180D+06,
     +  .549417D+06, .401504D+06, .293126D+06, .213808D+06,
     +  .155792D+06, .113409D+06, .824661D+05, .599044D+05 /
        DATA (UPDI(I),I=3745,3796) /
     +  .434650D+05, .315028D+05, .228049D+05, .164896D+05,
     +  .119077D+05, .858875D+04, .618647D+04, .445061D+04,
     +  .319733D+04, .229407D+04, .164363D+04, .117613D+04,
     +  .840328D+03, .599895D+03, .425648D+03, .303192D+03,
     +  .215755D+03, .153431D+03, .109053D+03, .774893D+02,
     +  .551220D+02, .392023D+02, .279106D+02, .199048D+02,
     +  .142245D+02, .101927D+02, .732453D+01, .528382D+01,
     +  .382485D+01, .277934D+01, .202725D+01, .148435D+01,
     +  .109039D+01, .804645D+00, .594188D+00, .440771D+00,
     +  .326986D+00, .243241D+00, .181155D+00, .135041D+00,
     +  .100714D+00, .751317D-01, .560400D-01, .417894D-01,
     +  .311494D-01, .232082D-01, .172807D-01, .128601D-01,
     +  .956421D-02, .710485D-02, .527956D-02, .391086D-02 /
        DATA (UPDI(I),I=3797,3848) /
     +  .289178D-02, .213358D-02, .156951D-02, .115021D-02,
     +  .838660D-03, .607639D-03, .436698D-03, .310798D-03,
     +  .218350D-03, .151716D-03, .103390D-03, .691155D-04,
     +  .451931D-04, .288253D-04, .178847D-04, .107603D-04,
     +  .626765D-05, .350409D-05, .187850D-05, .950336D-06,
     +  .442378D-06, .180227D-06, .580911D-07, .119700D-07,
     +  .829539D-09, .000000D+00, .643478D+05, .925395D+05,
     +  .708404D+05, .542322D+05, .415201D+05, .317899D+05,
     +  .243419D+05, .186407D+05, .142764D+05, .109354D+05,
     +  .837756D+04, .641920D+04, .491971D+04, .377146D+04,
     +  .289208D+04, .221853D+04, .170256D+04, .130723D+04,
     +  .100427D+04, .772037D+03, .593974D+03, .457397D+03,
     +  .352599D+03, .272146D+03, .210349D+03, .162851D+03 /
        DATA (UPDI(I),I=3849,3900) /
     +  .126316D+03, .978375D+02, .762454D+02, .595808D+02,
     +  .467003D+02, .367278D+02, .289914D+02, .229921D+02,
     +  .183022D+02, .146365D+02, .117611D+02, .949664D+01,
     +  .770530D+01, .628059D+01, .514301D+01, .422798D+01,
     +  .348791D+01, .288574D+01, .239288D+01, .198730D+01,
     +  .165301D+01, .137353D+01, .114190D+01, .947022D+00,
     +  .784394D+00, .648003D+00, .533606D+00, .437724D+00,
     +  .357487D+00, .290501D+00, .234754D+00, .188545D+00,
     +  .150418D+00, .119130D+00, .936065D-01, .729252D-01,
     +  .562898D-01, .430705D-01, .325482D-01, .243097D-01,
     +  .179267D-01, .130377D-01, .933969D-02, .658070D-02,
     +  .455317D-02, .308777D-02, .204744D-02, .132336D-02,
     +  .834986D-03, .509061D-03, .299556D-03, .169240D-03 /
        DATA (UPDI(I),I=3901,3952) /
     +  .912013D-04, .464943D-04, .221874D-04, .978871D-05,
     +  .389539D-05, .137255D-05, .410412D-06, .980959D-07,
     +  .169534D-07, .175520D-08, .713496D-10, .294846D-12,
     +  .000000D+00, .145494D+06, .112921D+06, .865159D+05,
     +  .662799D+05, .507768D+05, .388969D+05, .297965D+05,
     +  .228238D+05, .174830D+05, .133913D+05, .102577D+05,
     +  .785718D+04, .601894D+04, .461090D+04, .353274D+04,
     +  .270695D+04, .207466D+04, .159037D+04, .121955D+04,
     +  .935519D+03, .718013D+03, .551378D+03, .423736D+03,
     +  .325910D+03, .250937D+03, .193440D+03, .149349D+03,
     +  .115078D+03, .891842D+02, .692696D+02, .539445D+02,
     +  .421302D+02, .330117D+02, .259767D+02, .205105D+02,
     +  .162632D+02, .129548D+02, .103668D+02, .833536D+01 /
        DATA (UPDI(I),I=3953,4004) /
     +  .673193D+01, .546259D+01, .445001D+01, .363843D+01,
     +  .298387D+01, .245322D+01, .202044D+01, .166715D+01,
     +  .137441D+01, .113411D+01, .933710D+00, .767986D+00,
     +  .630180D+00, .515590D+00, .420332D+00, .341261D+00,
     +  .275754D+00, .221647D+00, .177120D+00, .140642D+00,
     +  .110906D+00, .868071D-01, .674021D-01, .518808D-01,
     +  .396152D-01, .298998D-01, .223264D-01, .164809D-01,
     +  .120170D-01, .864735D-02, .613491D-02, .428681D-02,
     +  .294667D-02, .198989D-02, .131679D-02, .856673D-03,
     +  .542925D-03, .335302D-03, .200962D-03, .116175D-03,
     +  .642185D-04, .333997D-04, .159988D-04, .659300D-05,
     +  .203599D-05, .120895D-06, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=4005,4056) /
     +  .181242D+06, .140587D+06, .107638D+06, .823945D+05,
     +  .630656D+05, .482609D+05, .369283D+05, .282511D+05,
     +  .216109D+05, .165281D+05, .126399D+05, .966461D+04,
     +  .738933D+04, .564885D+04, .431831D+04, .330084D+04,
     +  .252326D+04, .192881D+04, .147464D+04, .112752D+04,
     +  .862390D+03, .659782D+03, .505036D+03, .386784D+03,
     +  .296455D+03, .227416D+03, .174681D+03, .133846D+03,
     +  .103125D+03, .796002D+02, .615851D+02, .477657D+02,
     +  .371575D+02, .290187D+02, .227336D+02, .178803D+02,
     +  .141253D+02, .112080D+02, .893514D+01, .715441D+01,
     +  .575599D+01, .464929D+01, .376967D+01, .306614D+01,
     +  .250075D+01, .204352D+01, .167353D+01, .136949D+01,
     +  .112210D+01, .917479D+00, .749665D+00, .611230D+00 /
        DATA (UPDI(I),I=4057,4108) /
     +  .497030D+00, .402820D+00, .325204D+00, .261365D+00,
     +  .209006D+00, .166209D+00, .131382D+00, .103170D+00,
     +  .804462D-01, .622567D-01, .477854D-01, .364094D-01,
     +  .274409D-01, .204793D-01, .151259D-01, .110499D-01,
     +  .797965D-02, .569251D-02, .400939D-02, .278609D-02,
     +  .190883D-02, .128674D-02, .857049D-03, .559340D-03,
     +  .358205D-03, .224430D-03, .137056D-03, .811167D-04,
     +  .461642D-04, .250645D-04, .126674D-04, .589339D-05,
     +  .243508D-05, .846565D-06, .226043D-06, .345766D-07,
     +  .000000D+00, .000000D+00, .000000D+00, .228125D+06,
     +  .176680D+06, .135025D+06, .103160D+06, .788014D+05,
     +  .601760D+05, .459448D+05, .350682D+05, .267616D+05,
     +  .204162D+05, .155727D+05, .118746D+05, .905327D+04 /
        DATA (UPDI(I),I=4109,4160) /
     +  .690030D+04, .525868D+04, .400661D+04, .305243D+04,
     +  .232505D+04, .177103D+04, .134889D+04, .102754D+04,
     +  .782788D+03, .596532D+03, .454722D+03, .346823D+03,
     +  .264685D+03, .202220D+03, .154060D+03, .117998D+03,
     +  .905156D+02, .695776D+02, .536002D+02, .414036D+02,
     +  .321000D+02, .249591D+02, .194793D+02, .152677D+02,
     +  .120176D+02, .950341D+01, .754782D+01, .602367D+01,
     +  .482664D+01, .388267D+01, .313362D+01, .253652D+01,
     +  .205746D+01, .167295D+01, .135946D+01, .110644D+01,
     +  .898772D+00, .729772D+00, .591404D+00, .478102D+00,
     +  .385302D+00, .309386D+00, .247368D+00, .196839D+00,
     +  .155802D+00, .122615D+00, .958927D-01, .744936D-01,
     +  .574594D-01, .439761D-01, .334289D-01, .251509D-01 /
        DATA (UPDI(I),I=4161,4212) /
     +  .187513D-01, .138476D-01, .101248D-01, .732676D-02,
     +  .524482D-02, .371280D-02, .259780D-02, .179580D-02,
     +  .122405D-02, .826295D-03, .547871D-03, .357331D-03,
     +  .228562D-03, .142882D-03, .868303D-04, .509804D-04,
     +  .287430D-04, .152865D-04, .764684D-05, .353867D-05,
     +  .148809D-05, .558321D-06, .176764D-06, .379253D-07,
     +  .228975D-09, .000000D+00, .176316D+06, .222548D+06,
     +  .169639D+06, .129261D+06, .984713D+05, .749858D+05,
     +  .570876D+05, .434440D+05, .330528D+05, .251368D+05,
     +  .191118D+05, .145250D+05, .110363D+05, .838227D+04,
     +  .636506D+04, .483151D+04, .366679D+04, .278194D+04,
     +  .211039D+04, .160057D+04, .121393D+04, .920597D+03,
     +  .698263D+03, .529676D+03, .401951D+03, .305145D+03 /
        DATA (UPDI(I),I=4213,4264) /
     +  .231865D+03, .175631D+03, .133729D+03, .101955D+03,
     +  .778740D+02, .595971D+02, .457230D+02, .352009D+02,
     +  .271733D+02, .210511D+02, .163761D+02, .127920D+02,
     +  .100384D+02, .791148D+01, .626570D+01, .498253D+01,
     +  .397814D+01, .318710D+01, .256130D+01, .206299D+01,
     +  .166606D+01, .134486D+01, .108756D+01, .877920D+00,
     +  .708555D+00, .570869D+00, .458913D+00, .367838D+00,
     +  .293827D+00, .233755D+00, .185118D+00, .145860D+00,
     +  .114299D+00, .890304D-01, .689076D-01, .529739D-01,
     +  .404231D-01, .306514D-01, .230151D-01, .171347D-01,
     +  .126445D-01, .924560D-02, .669675D-02, .480300D-02,
     +  .341020D-02, .239598D-02, .166516D-02, .114242D-02,
     +  .777052D-03, .519667D-03, .342146D-03, .221074D-03 /
        DATA (UPDI(I),I=4265,4316) /
     +  .139701D-03, .858885D-04, .510913D-04, .292475D-04,
     +  .158713D-04, .815761D-05, .392148D-05, .173829D-05,
     +  .696673D-06, .236809D-06, .544431D-07, .175442D-08,
     +  .000000D+00, .382079D+06, .294305D+06, .223495D+06,
     +  .169650D+06, .128736D+06, .976443D+05, .740370D+05,
     +  .561107D+05, .425101D+05, .321905D+05, .243675D+05,
     +  .184366D+05, .139443D+05, .105416D+05, .796642D+04,
     +  .601753D+04, .454401D+04, .342982D+04, .258817D+04,
     +  .195235D+04, .147251D+04, .111033D+04, .837221D+03,
     +  .631246D+03, .476037D+03, .359060D+03, .271023D+03,
     +  .203865D+03, .154125D+03, .116645D+03, .884203D+02,
     +  .671412D+02, .510968D+02, .390149D+02, .298630D+02,
     +  .229358D+02, .176859D+02, .136930D+02, .106496D+02 /
        DATA (UPDI(I),I=4317,4368) /
     +  .831840D+01, .652948D+01, .514664D+01, .407345D+01,
     +  .323564D+01, .257859D+01, .205997D+01, .165046D+01,
     +  .132194D+01, .106104D+01, .850277D+00, .681417D+00,
     +  .545272D+00, .435453D+00, .346823D+00, .275347D+00,
     +  .217768D+00, .171486D+00, .134394D+00, .104777D+00,
     +  .812220D-01, .625824D-01, .479134D-01, .364234D-01,
     +  .275263D-01, .206079D-01, .153049D-01, .112720D-01,
     +  .823022D-02, .595577D-02, .426964D-02, .303127D-02,
     +  .213005D-02, .148051D-02, .101547D-02, .689910D-03,
     +  .460161D-03, .301444D-03, .193158D-03, .120483D-03,
     +  .726665D-04, .420308D-04, .231195D-04, .118423D-04,
     +  .560321D-05, .238807D-05, .890388D-06, .281445D-06,
     +  .709159D-07, .114155D-07, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=4369,4420) /
     +  .503647D+06, .386560D+06, .292336D+06, .220973D+06,
     +  .166967D+06, .126094D+06, .951884D+05, .718192D+05,
     +  .541645D+05, .408272D+05, .307606D+05, .231631D+05,
     +  .174345D+05, .131152D+05, .986170D+04, .741117D+04,
     +  .556728D+04, .417991D+04, .313712D+04, .235336D+04,
     +  .176492D+04, .132313D+04, .991765D+03, .743229D+03,
     +  .556993D+03, .417432D+03, .313015D+03, .233839D+03,
     +  .175558D+03, .131918D+03, .992631D+02, .748070D+02,
     +  .564900D+02, .427924D+02, .324894D+02, .247477D+02,
     +  .189236D+02, .145277D+02, .112029D+02, .867625D+01,
     +  .675274D+01, .527797D+01, .414272D+01, .326382D+01,
     +  .258022D+01, .204513D+01, .162607D+01, .129266D+01,
     +  .103004D+01, .819592D+00, .652324D+00, .518525D+00 /
        DATA (UPDI(I),I=4421,4472) /
     +  .411424D+00, .325642D+00, .256971D+00, .202052D+00,
     +  .158218D+00, .123330D+00, .956577D-01, .737925D-01,
     +  .565977D-01, .431474D-01, .326710D-01, .246027D-01,
     +  .183605D-01, .135985D-01, .999250D-02, .728325D-02,
     +  .526405D-02, .377119D-02, .267698D-02, .188175D-02,
     +  .130894D-02, .898845D-03, .611508D-03, .408519D-03,
     +  .268080D-03, .172131D-03, .107646D-03, .651718D-04,
     +  .379285D-04, .210765D-04, .109958D-04, .536927D-05,
     +  .241546D-05, .986190D-06, .358904D-06, .109780D-06,
     +  .225764D-07, .410316D-09, .000000D+00, .657718D+06,
     +  .502941D+06, .378704D+06, .285007D+06, .214397D+06,
     +  .161188D+06, .121128D+06, .909704D+05, .682879D+05,
     +  .512296D+05, .384131D+05, .287849D+05, .215590D+05 /
        DATA (UPDI(I),I=4473,4524) /
     +  .161366D+05, .120718D+05, .902520D+04, .674408D+04,
     +  .503637D+04, .375932D+04, .280447D+04, .209134D+04,
     +  .155879D+04, .116152D+04, .865200D+03, .644406D+03,
     +  .479892D+03, .357529D+03, .265303D+03, .197828D+03,
     +  .147620D+03, .110287D+03, .825095D+02, .618411D+02,
     +  .464901D+02, .350224D+02, .264667D+02, .200761D+02,
     +  .152881D+02, .116935D+02, .898266D+01, .693460D+01,
     +  .537655D+01, .418651D+01, .327249D+01, .256714D+01,
     +  .201938D+01, .159377D+01, .125781D+01, .995228D+00,
     +  .786447D+00, .621762D+00, .491022D+00, .387142D+00,
     +  .304546D+00, .238895D+00, .186759D+00, .145430D+00,
     +  .112755D+00, .870059D-01, .667893D-01, .509880D-01,
     +  .387007D-01, .291831D-01, .218926D-01, .162806D-01 /
        DATA (UPDI(I),I=4525,4576) /
     +  .120199D-01, .880779D-02, .640416D-02, .461914D-02,
     +  .330355D-02, .234179D-02, .164432D-02, .114278D-02,
     +  .784195D-03, .533142D-03, .355949D-03, .233453D-03,
     +  .149852D-03, .937360D-04, .568309D-04, .331931D-04,
     +  .185778D-04, .982714D-05, .491242D-05, .229420D-05,
     +  .989535D-06, .385752D-06, .126559D-06, .277273D-07,
     +  .112521D-08, .000000D+00, .849947D+06, .647497D+06,
     +  .485414D+06, .363698D+06, .272368D+06, .203844D+06,
     +  .152481D+06, .113985D+06, .851624D+05, .635848D+05,
     +  .474475D+05, .353812D+05, .263681D+05, .196371D+05,
     +  .146157D+05, .108706D+05, .808041D+04, .600214D+04,
     +  .445592D+04, .330581D+04, .245137D+04, .181669D+04,
     +  .134581D+04, .996523D+03, .737716D+03, .545972D+03 /
        DATA (UPDI(I),I=4577,4628) /
     +  .404187D+03, .297959D+03, .220710D+03, .163583D+03,
     +  .121368D+03, .901589D+02, .670869D+02, .500643D+02,
     +  .374327D+02, .280736D+02, .211313D+02, .159670D+02,
     +  .121177D+02, .923597D+01, .707473D+01, .544284D+01,
     +  .420569D+01, .326267D+01, .254041D+01, .198376D+01,
     +  .155448D+01, .121818D+01, .957286D+00, .751389D+00,
     +  .590166D+00, .463106D+00, .362867D+00, .283728D+00,
     +  .221258D+00, .171985D+00, .133185D+00, .102710D+00,
     +  .788468D-01, .602267D-01, .457606D-01, .345768D-01,
     +  .259616D-01, .193975D-01, .143705D-01, .105723D-01,
     +  .772188D-02, .559791D-02, .402664D-02, .287266D-02,
     +  .203169D-02, .142354D-02, .987322D-03, .676193D-03,
     +  .458788D-03, .305698D-03, .200109D-03, .128237D-03 /
        DATA (UPDI(I),I=4629,4680) /
     +  .801291D-04, .485869D-04, .284379D-04, .160003D-04,
     +  .855366D-05, .435077D-05, .208452D-05, .929155D-06,
     +  .374580D-06, .125863D-06, .279216D-07, .141200D-08,
     +  .000000D+00, .108637D+07, .824519D+06, .615419D+06,
     +  .459069D+06, .342254D+06, .254992D+06, .189869D+06,
     +  .141279D+06, .105060D+06, .780700D+05, .579772D+05,
     +  .430233D+05, .319057D+05, .236428D+05, .175082D+05,
     +  .129552D+05, .957986D+04, .707839D+04, .522676D+04,
     +  .385659D+04, .284396D+04, .209577D+04, .154366D+04,
     +  .113635D+04, .836225D+03, .615116D+03, .452558D+03,
     +  .331482D+03, .243961D+03, .179628D+03, .132379D+03,
     +  .976660D+02, .721659D+02, .534735D+02, .396933D+02,
     +  .295515D+02, .220792D+02, .165590D+02, .124729D+02 /
        DATA (UPDI(I),I=4681,4732) /
     +  .943543D+01, .717346D+01, .547776D+01, .420144D+01,
     +  .323563D+01, .250124D+01, .193934D+01, .150915D+01,
     +  .117457D+01, .916860D+00, .714939D+00, .557945D+00,
     +  .435088D+00, .338833D+00, .263358D+00, .204180D+00,
     +  .157813D+00, .121538D+00, .932279D-01, .711976D-01,
     +  .541126D-01, .409176D-01, .307750D-01, .230047D-01,
     +  .171158D-01, .126289D-01, .925559D-02, .673579D-02,
     +  .486642D-02, .348918D-02, .248159D-02, .174992D-02,
     +  .122258D-02, .845556D-03, .577482D-03, .390696D-03,
     +  .259597D-03, .169475D-03, .108353D-03, .675915D-04,
     +  .409672D-04, .240137D-04, .135699D-04, .731767D-05,
     +  .377289D-05, .184089D-05, .837503D-06, .343176D-06,
     +  .115858D-06, .255677D-07, .144725D-08, .000000D+00 /
        DATA (UPDI(I),I=4733,4784) /
     +  .137331D+07, .103846D+07, .771751D+06, .573170D+06,
     +  .425434D+06, .315548D+06, .233899D+06, .173246D+06,
     +  .128237D+06, .948469D+05, .701028D+05, .517720D+05,
     +  .382073D+05, .281731D+05, .207591D+05, .152831D+05,
     +  .112434D+05, .826435D+04, .607030D+04, .445502D+04,
     +  .326738D+04, .239449D+04, .175377D+04, .128363D+04,
     +  .939109D+03, .686689D+03, .502163D+03, .365521D+03,
     +  .267326D+03, .195575D+03, .143192D+03, .104944D+03,
     +  .770201D+02, .566801D+02, .417805D+02, .308861D+02,
     +  .229118D+02, .170602D+02, .127577D+02, .958117D+01,
     +  .723173D+01, .548262D+01, .417520D+01, .319275D+01,
     +  .245090D+01, .188724D+01, .145871D+01, .112774D+01,
     +  .874570D+00, .677583D+00, .525473D+00, .407249D+00 /
        DATA (UPDI(I),I=4785,4836) /
     +  .315244D+00, .243582D+00, .187761D+00, .144307D+00,
     +  .110527D+00, .843296D-01, .640679D-01, .484488D-01,
     +  .364565D-01, .272908D-01, .203073D-01, .150427D-01,
     +  .110523D-01, .806721D-02, .584807D-02, .420924D-02,
     +  .300707D-02, .213120D-02, .149767D-02, .104281D-02,
     +  .718806D-03, .489283D-03, .329915D-03, .218498D-03,
     +  .142209D-03, .906839D-04, .564651D-04, .342046D-04,
     +  .200754D-04, .113885D-04, .618683D-05, .322429D-05,
     +  .159380D-05, .734076D-06, .302665D-06, .101664D-06,
     +  .221445D-07, .134797D-08, .000000D+00, .171726D+07,
     +  .129387D+07, .957458D+06, .708036D+06, .523253D+06,
     +  .386397D+06, .285142D+06, .210252D+06, .154921D+06,
     +  .114056D+06, .839077D+05, .616751D+05, .452984D+05 /
        DATA (UPDI(I),I=4837,4888) /
     +  .332404D+05, .243728D+05, .178545D+05, .130690D+05,
     +  .955724D+04, .698359D+04, .509836D+04, .371927D+04,
     +  .271088D+04, .197457D+04, .143715D+04, .104544D+04,
     +  .759999D+03, .552496D+03, .399712D+03, .290547D+03,
     +  .211244D+03, .153686D+03, .111911D+03, .815964D+02,
     +  .596505D+02, .436740D+02, .320661D+02, .236234D+02,
     +  .174683D+02, .129719D+02, .967415D+01, .725105D+01,
     +  .545913D+01, .412863D+01, .313556D+01, .239071D+01,
     +  .182858D+01, .140408D+01, .107843D+01, .830999D+00,
     +  .639769D+00, .493087D+00, .379836D+00, .292277D+00,
     +  .224521D+00, .172079D+00, .131515D+00, .100180D+00,
     +  .760269D-01, .574592D-01, .432311D-01, .323700D-01,
     +  .241158D-01, .178610D-01, .131709D-01, .963456D-02 /
        DATA (UPDI(I),I=4889,4940) /
     +  .700244D-02, .505527D-02, .362403D-02, .257889D-02,
     +  .182074D-02, .127468D-02, .884226D-03, .607253D-03,
     +  .411843D-03, .276696D-03, .182619D-03, .118482D-03,
     +  .753550D-04, .468367D-04, .283587D-04, .166655D-04,
     +  .948772D-05, .518676D-05, .272587D-05, .135949D-05,
     +  .630227D-06, .259744D-06, .863094D-07, .184848D-07,
     +  .118649D-08, .000000D+00, .212474D+07, .159523D+07,
     +  .117553D+07, .865632D+06, .636989D+06, .468357D+06,
     +  .344116D+06, .252618D+06, .185307D+06, .135810D+06,
     +  .994551D+05, .727649D+05, .531930D+05, .388485D+05,
     +  .283479D+05, .206654D+05, .150518D+05, .109522D+05,
     +  .796229D+04, .578294D+04, .419663D+04, .304259D+04,
     +  .220424D+04, .159554D+04, .115420D+04, .834308D+03 /
        DATA (UPDI(I),I=4941,4992) /
     +  .603028D+03, .433684D+03, .313368D+03, .226461D+03,
     +  .163746D+03, .118493D+03, .858477D+02, .623563D+02,
     +  .453576D+02, .330830D+02, .242105D+02, .177826D+02,
     +  .131165D+02, .971609D+01, .723342D+01, .540926D+01,
     +  .406355D+01, .306565D+01, .232202D+01, .176446D+01,
     +  .134615D+01, .102735D+01, .786686D+00, .601904D+00,
     +  .461085D+00, .353063D+00, .270080D+00, .206272D+00,
     +  .157196D+00, .119473D+00, .905103D-01, .683222D-01,
     +  .513665D-01, .384500D-01, .286468D-01, .212384D-01,
     +  .156552D-01, .114910D-01, .836767D-02, .605487D-02,
     +  .435242D-02, .310708D-02, .220192D-02, .154831D-02,
     +  .107962D-02, .745966D-03, .510320D-03, .344786D-03,
     +  .230784D-03, .151788D-03, .981721D-04, .622818D-04 /
        DATA (UPDI(I),I=4993,5044) /
     +  .386490D-04, .233942D-04, .137658D-04, .786227D-05,
     +  .432071D-05, .228501D-05, .114592D-05, .532311D-06,
     +  .218296D-06, .714996D-07, .150260D-07, .100569D-08,
     +  .000000D+00, .260217D+07, .194694D+07, .142882D+07,
     +  .104780D+07, .767811D+06, .562160D+06, .411269D+06,
     +  .300610D+06, .219546D+06, .160192D+06, .116785D+06,
     +  .850564D+05, .618929D+05, .449923D+05, .326764D+05,
     +  .237073D+05, .171838D+05, .124423D+05, .900069D+04,
     +  .650419D+04, .469592D+04, .338693D+04, .244078D+04,
     +  .175731D+04, .126433D+04, .908854D+03, .653225D+03,
     +  .467074D+03, .335543D+03, .241064D+03, .173264D+03,
     +  .124623D+03, .897337D+02, .647743D+02, .468193D+02,
     +  .339316D+02, .246717D+02, .180041D+02, .131935D+02 /
        DATA (UPDI(I),I=5045,5096) /
     +  .970936D+01, .718123D+01, .533524D+01, .398191D+01,
     +  .298466D+01, .224618D+01, .169596D+01, .128577D+01,
     +  .975134D+00, .742121D+00, .564348D+00, .429726D+00,
     +  .327109D+00, .248771D+00, .188910D+00, .143154D+00,
     +  .108198D+00, .815230D-01, .612097D-01, .457783D-01,
     +  .340914D-01, .252721D-01, .186445D-01, .136769D-01,
     +  .999179D-02, .724232D-02, .521689D-02, .373349D-02,
     +  .265369D-02, .187262D-02, .131125D-02, .910553D-03,
     +  .626595D-03, .426965D-03, .287359D-03, .191635D-03,
     +  .125610D-03, .810008D-04, .512701D-04, .317720D-04,
     +  .192290D-04, .113294D-04, .648909D-05, .358090D-05,
     +  .190192D-05, .956318D-06, .443593D-06, .180404D-06,
     +  .581068D-07, .119706D-07, .829544D-09, .000000D+00 /
        DATA (UPDI(I),I=5097,5148) /
     +  .642719D+05, .925133D+05, .708170D+05, .542112D+05,
     +  .415012D+05, .317730D+05, .243268D+05, .186272D+05,
     +  .142643D+05, .109246D+05, .836787D+04, .641053D+04,
     +  .491195D+04, .376452D+04, .288587D+04, .221298D+04,
     +  .169759D+04, .130279D+04, .100030D+04, .768489D+03,
     +  .590802D+03, .454561D+03, .350062D+03, .269877D+03,
     +  .208318D+03, .161031D+03, .124683D+03, .963725D+02,
     +  .749264D+02, .583900D+02, .456217D+02, .357470D+02,
     +  .280954D+02, .221688D+02, .175415D+02, .139291D+02,
     +  .110990D+02, .887317D+01, .711491D+01, .571902D+01,
     +  .460715D+01, .371586D+01, .299854D+01, .241894D+01,
     +  .194914D+01, .156748D+01, .125809D+01, .100478D+01,
     +  .800095D+00, .632996D+00, .498350D+00, .389834D+00 /
        DATA (UPDI(I),I=5149,5200) /
     +  .302795D+00, .233365D+00, .178330D+00, .135014D+00,
     +  .101189D+00, .750053D-01, .549292D-01, .396964D-01,
     +  .282698D-01, .198053D-01, .136212D-01, .918927D-02,
     +  .603459D-02, .384858D-02, .236771D-02, .139089D-02,
     +  .766920D-03, .384014D-03, .161106D-03, .406915D-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,
     +  .000000D+00, .000000D+00, .000000D+00, .145462D+06,
     +  .112892D+06, .864903D+05, .662570D+05, .507563D+05,
     +  .388786D+05, .297801D+05, .228091D+05, .174698D+05,
     +  .133795D+05, .102471D+05, .784776D+04, .601051D+04 /
        DATA (UPDI(I),I=5201,5252) /
     +  .460336D+04, .352600D+04, .270093D+04, .206928D+04,
     +  .158556D+04, .121526D+04, .931677D+03, .714580D+03,
     +  .548309D+03, .420992D+03, .323455D+03, .248740D+03,
     +  .191472D+03, .147584D+03, .113494D+03, .877592D+02,
     +  .679839D+02, .527807D+02, .410729D+02, .320470D+02,
     +  .250920D+02, .196949D+02, .155071D+02, .122496D+02,
     +  .970568D+01, .771258D+01, .614303D+01, .490426D+01,
     +  .392014D+01, .313580D+01, .250808D+01, .200442D+01,
     +  .159916D+01, .127394D+01, .101009D+01, .798978D+00,
     +  .628127D+00, .491671D+00, .382582D+00, .295783D+00,
     +  .227050D+00, .172954D+00, .130645D+00, .978039D-01,
     +  .725135D-01, .532170D-01, .386289D-01, .277195D-01,
     +  .196506D-01, .137547D-01, .951995D-02, .648928D-02 /
        DATA (UPDI(I),I=5253,5304) /
     +  .436713D-02, .290587D-02, .191589D-02, .125720D-02,
     +  .825451D-03, .546870D-03, .368266D-03, .254040D-03,
     +  .179165D-03, .129840D-03, .946977D-04, .688398D-04,
     +  .490332D-04, .336525D-04, .218538D-04, .130706D-04,
     +  .698741D-05, .299559D-05, .765460D-06, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .181207D+06, .140556D+06,
     +  .107610D+06, .823697D+05, .630433D+05, .482411D+05,
     +  .369106D+05, .282352D+05, .215966D+05, .165154D+05,
     +  .126285D+05, .965444D+04, .738024D+04, .564073D+04,
     +  .431105D+04, .329435D+04, .251746D+04, .192363D+04,
     +  .147001D+04, .112339D+04, .858696D+03, .656481D+03,
     +  .502086D+03, .384145D+03, .294095D+03, .225302D+03 /
        DATA (UPDI(I),I=5305,5356) /
     +  .172786D+03, .132147D+03, .101596D+03, .782217D+02,
     +  .603384D+02, .466343D+02, .361266D+02, .280750D+02,
     +  .218656D+02, .170779D+02, .133798D+02, .105120D+02,
     +  .828257D+01, .654072D+01, .517764D+01, .410397D+01,
     +  .325590D+01, .258325D+01, .204854D+01, .162213D+01,
     +  .128308D+01, .101037D+01, .794121D+00, .620541D+00,
     +  .483033D+00, .373940D+00, .287785D+00, .220034D+00,
     +  .167064D+00, .125885D+00, .941014D-01, .697485D-01,
     +  .512531D-01, .373210D-01, .269334D-01, .192630D-01,
     +  .136594D-01, .962762D-02, .672969D-02, .468350D-02,
     +  .325638D-02, .226997D-02, .159447D-02, .113270D-02,
     +  .817276D-03, .599131D-03, .445827D-03, .334230D-03,
     +  .252564D-03, .189149D-03, .139734D-03, .100798D-03 /
        DATA (UPDI(I),I=5357,5408) /
     +  .704372D-04, .471975D-04, .300339D-04, .179802D-04,
     +  .986840D-05, .491534D-05, .214594D-05, .778275D-06,
     +  .214414D-06, .333859D-07, .000000D+00, .000000D+00,
     +  .000000D+00, .228087D+06, .176646D+06, .134995D+06,
     +  .103133D+06, .787775D+05, .601546D+05, .459257D+05,
     +  .350511D+05, .267463D+05, .204026D+05, .155605D+05,
     +  .118637D+05, .904351D+04, .689158D+04, .525089D+04,
     +  .399965D+04, .304622D+04, .231950D+04, .176607D+04,
     +  .134447D+04, .102358D+04, .779255D+03, .593375D+03,
     +  .451900D+03, .344299D+03, .262426D+03, .200195D+03,
     +  .152246D+03, .116367D+03, .890458D+02, .682495D+02,
     +  .523964D+02, .403084D+02, .310993D+02, .240408D+02,
     +  .186329D+02, .144839D+02, .112888D+02, .882329D+01 /
        DATA (UPDI(I),I=5409,5460) /
     +  .691154D+01, .542744D+01, .426789D+01, .335963D+01,
     +  .264531D+01, .208236D+01, .163718D+01, .128623D+01,
     +  .100624D+01, .786051D+00, .610676D+00, .472805D+00,
     +  .364213D+00, .279052D+00, .212523D+00, .160833D+00,
     +  .120879D+00, .902061D-01, .668171D-01, .491304D-01,
     +  .358539D-01, .259828D-01, .187055D-01, .133903D-01,
     +  .956058D-02, .679760D-02, .483325D-02, .344880D-02,
     +  .247696D-02, .179718D-02, .131919D-02, .981096D-03,
     +  .737663D-03, .559104D-03, .424024D-03, .321893D-03,
     +  .241060D-03, .177544D-03, .127564D-03, .888805D-04,
     +  .595555D-04, .381228D-04, .231468D-04, .130975D-04,
     +  .688985D-05, .331746D-05, .143645D-05, .549640D-06,
     +  .175885D-06, .378896D-07, .228802D-09, .000000D+00 /
        DATA (UPDI(I),I=5461,5512) /
     +  .176224D+06, .222512D+06, .169607D+06, .129233D+06,
     +  .984456D+05, .749629D+05, .570671D+05, .434257D+05,
     +  .330364D+05, .251222D+05, .190987D+05, .145133D+05,
     +  .110259D+05, .837295D+04, .635673D+04, .482407D+04,
     +  .366014D+04, .277601D+04, .210510D+04, .159585D+04,
     +  .120971D+04, .916831D+03, .694899D+03, .526670D+03,
     +  .399264D+03, .302740D+03, .229712D+03, .173703D+03,
     +  .131996D+03, .100395D+03, .764657D+02, .583223D+02,
     +  .445650D+02, .341448D+02, .262065D+02, .201625D+02,
     +  .155559D+02, .120324D+02, .933271D+01, .725460D+01,
     +  .565351D+01, .441218D+01, .344751D+01, .269486D+01,
     +  .210649D+01, .164490D+01, .128391D+01, .998139D+00,
     +  .775135D+00, .598828D+00, .461220D+00, .353580D+00 /
        DATA (UPDI(I),I=5513,5564) /
     +  .269725D+00, .204625D+00, .154346D+00, .115696D+00,
     +  .861759D-01, .637697D-01, .468955D-01, .342718D-01,
     +  .249109D-01, .180210D-01, .129904D-01, .936149D-02,
     +  .673525D-02, .485758D-02, .352295D-02, .257479D-02,
     +  .190101D-02, .141791D-02, .106845D-02, .810861D-03,
     +  .617671D-03, .469034D-03, .355205D-03, .264772D-03,
     +  .193814D-03, .138343D-03, .957996D-04, .638894D-04,
     +  .408088D-04, .248114D-04, .141528D-04, .756936D-05,
     +  .375149D-05, .169906D-05, .690158D-06, .236156D-06,
     +  .544168D-07, .175428D-08, .000000D+00, .382035D+06,
     +  .294266D+06, .223460D+06, .169618D+06, .128708D+06,
     +  .976194D+05, .740147D+05, .560908D+05, .424923D+05,
     +  .321747D+05, .243533D+05, .184240D+05, .139330D+05 /
        DATA (UPDI(I),I=5565,5616) /
     +  .105315D+05, .795741D+04, .600949D+04, .453684D+04,
     +  .342342D+04, .258246D+04, .194725D+04, .146796D+04,
     +  .110627D+04, .833600D+03, .628013D+03, .473149D+03,
     +  .356477D+03, .268711D+03, .201796D+03, .152268D+03,
     +  .114975D+03, .869151D+02, .657810D+02, .498637D+02,
     +  .378931D+02, .288391D+02, .219980D+02, .168239D+02,
     +  .128984D+02, .991535D+01, .763891D+01, .590028D+01,
     +  .456445D+01, .353573D+01, .274055D+01, .212466D+01,
     +  .164594D+01, .127496D+01, .983927D+00, .758819D+00,
     +  .582377D+00, .445799D+00, .339823D+00, .257889D+00,
     +  .194745D+00, .146308D+00, .109312D+00, .812201D-01,
     +  .600121D-01, .441141D-01, .322672D-01, .235080D-01,
     +  .170733D-01, .123764D-01, .898444D-02, .652146D-02 /
        DATA (UPDI(I),I=5617,5668) /
     +  .475081D-02, .348175D-02, .257031D-02, .191363D-02,
     +  .143551D-02, .108394D-02, .820966D-03, .621447D-03,
     +  .467176D-03, .348932D-03, .255685D-03, .183382D-03,
     +  .127842D-03, .861161D-04, .555961D-04, .341266D-04,
     +  .197425D-04, .105478D-04, .516491D-05, .226290D-05,
     +  .861847D-06, .276764D-06, .704520D-07, .113969D-07,
     +  .000000D+00, .000000D+00, .503599D+06, .386518D+06,
     +  .292298D+06, .220939D+06, .166936D+06, .126067D+06,
     +  .951643D+05, .717977D+05, .541453D+05, .408100D+05,
     +  .307453D+05, .231495D+05, .174223D+05, .131043D+05,
     +  .985199D+04, .740251D+04, .555955D+04, .417302D+04,
     +  .313097D+04, .234788D+04, .176004D+04, .131877D+04,
     +  .987880D+03, .739762D+03, .553898D+03, .414666D+03 /
        DATA (UPDI(I),I=5669,5720) /
     +  .310541D+03, .231628D+03, .173575D+03, .130137D+03,
     +  .976608D+02, .733616D+02, .551825D+02, .416060D+02,
     +  .314098D+02, .237624D+02, .180217D+02, .137002D+02,
     +  .104423D+02, .797645D+01, .610880D+01, .468613D+01,
     +  .359993D+01, .276772D+01, .212876D+01, .163647D+01,
     +  .125827D+01, .964119D+00, .738511D+00, .563131D+00,
     +  .428452D+00, .324754D+00, .245171D+00, .184273D+00,
     +  .137866D+00, .102645D+00, .760529D-01, .560846D-01,
     +  .411850D-01, .301267D-01, .219759D-01, .160013D-01,
     +  .116437D-01, .849541D-02, .620434D-02, .455088D-02,
     +  .335872D-02, .249585D-02, .186822D-02, .140659D-02,
     +  .106363D-02, .804906D-03, .607386D-03, .454440D-03,
     +  .337256D-03, .245367D-03, .174658D-03, .120892D-03 /
        DATA (UPDI(I),I=5721,5772) /
     +  .809295D-04, .520270D-04, .319037D-04, .185298D-04,
     +  .100309D-04, .504652D-05, .232451D-05, .965734D-06,
     +  .355597D-06, .109456D-06, .225634D-07, .410243D-09,
     +  .000000D+00, .657667D+06, .502895D+06, .378663D+06,
     +  .284970D+06, .214364D+06, .161159D+06, .121102D+06,
     +  .909472D+05, .682672D+05, .512111D+05, .383966D+05,
     +  .287702D+05, .215458D+05, .161249D+05, .120614D+05,
     +  .901590D+04, .673579D+04, .502897D+04, .375273D+04,
     +  .279860D+04, .208611D+04, .155412D+04, .115736D+04,
     +  .861493D+03, .641099D+03, .476939D+03, .354891D+03,
     +  .262947D+03, .195719D+03, .145729D+03, .108588D+03,
     +  .809793D+02, .604601D+02, .452404D+02, .338887D+02,
     +  .254357D+02, .191363D+02, .144299D+02, .109088D+02 /
        DATA (UPDI(I),I=5773,5824) /
     +  .826483D+01, .627815D+01, .477719D+01, .364062D+01,
     +  .277713D+01, .211966D+01, .161735D+01, .123465D+01,
     +  .939439D+00, .714838D+00, .541624D+00, .409624D+00,
     +  .308746D+00, .231876D+00, .173457D+00, .129226D+00,
     +  .958598D-01, .708112D-01, .520995D-01, .382013D-01,
     +  .279274D-01, .203785D-01, .148579D-01, .108360D-01,
     +  .793016D-02, .581263D-02, .428027D-02, .317074D-02,
     +  .236337D-02, .177234D-02, .133489D-02, .100799D-02,
     +  .760424D-03, .571099D-03, .424784D-03, .313043D-03,
     +  .226059D-03, .159694D-03, .109747D-03, .730146D-04,
     +  .467330D-04, .286119D-04, .166620D-04, .910965D-05,
     +  .467538D-05, .222828D-05, .974913D-06, .383422D-06,
     +  .126334D-06, .277183D-07, .112516D-08, .000000D+00 /
        DATA (UPDI(I),I=5825,5876) /
     +  .849892D+06, .647448D+06, .485370D+06, .363659D+06,
     +  .272333D+06, .203813D+06, .152453D+06, .113960D+06,
     +  .851400D+05, .635649D+05, .474298D+05, .353654D+05,
     +  .263540D+05, .196246D+05, .146045D+05, .108606D+05,
     +  .807152D+04, .599422D+04, .444887D+04, .329953D+04,
     +  .244578D+04, .181171D+04, .134138D+04, .992569D+03,
     +  .734192D+03, .542829D+03, .401382D+03, .295457D+03,
     +  .218473D+03, .161579D+03, .119571D+03, .885445D+02,
     +  .656333D+02, .487525D+02, .362466D+02, .269989D+02,
     +  .201558D+02, .150804D+02, .113112D+02, .850241D+01,
     +  .640800D+01, .483805D+01, .365861D+01, .276973D+01,
     +  .209834D+01, .158950D+01, .120491D+01, .910577D+00,
     +  .688377D+00, .518323D+00, .389688D+00, .292090D+00 /
        DATA (UPDI(I),I=5877,5928) /
     +  .218232D+00, .162474D+00, .120523D+00, .890655D-01,
     +  .655804D-01, .481264D-01, .352207D-01, .257186D-01,
     +  .187592D-01, .136822D-01, .998860D-02, .732119D-02,
     +  .537609D-02, .396615D-02, .294239D-02, .219482D-02,
     +  .164539D-02, .123729D-02, .931472D-03, .699633D-03,
     +  .522528D-03, .386179D-03, .282553D-03, .202527D-03,
     +  .142011D-03, .969210D-04, .640956D-04, .408480D-04,
     +  .249627D-04, .145626D-04, .802143D-05, .417709D-05,
     +  .203685D-05, .918728D-06, .372942D-06, .125707D-06,
     +  .279154D-07, .141196D-08, .000000D+00, .108631D+07,
     +  .824466D+06, .615371D+06, .459027D+06, .342216D+06,
     +  .254958D+06, .189839D+06, .141252D+06, .105036D+06,
     +  .780486D+05, .579582D+05, .430063D+05, .318906D+05 /
        DATA (UPDI(I),I=5929,5980) /
     +  .236293D+05, .174962D+05, .129445D+05, .957035D+04,
     +  .706992D+04, .521923D+04, .384988D+04, .283799D+04,
     +  .209046D+04, .153893D+04, .113214D+04, .832479D+03,
     +  .611778D+03, .449582D+03, .328832D+03, .241594D+03,
     +  .177512D+03, .130485D+03, .959680D+02, .706409D+02,
     +  .521013D+02, .384566D+02, .284352D+02, .210702D+02,
     +  .156463D+02, .116469D+02, .868846D+01, .649866D+01,
     +  .486958D+01, .365501D+01, .274669D+01, .206589D+01,
     +  .155390D+01, .116988D+01, .878224D+00, .659687D+00,
     +  .493671D+00, .368989D+00, .275053D+00, .204442D+00,
     +  .151480D+00, .111877D+00, .823542D-01, .604329D-01,
     +  .442231D-01, .322912D-01, .235411D-01, .171535D-01,
     +  .125058D-01, .913013D-02, .669441D-02, .491822D-02 /
        DATA (UPDI(I),I=5981,6032) /
     +  .362968D-02, .269257D-02, .200691D-02, .150188D-02,
     +  .112619D-02, .844454D-03, .631082D-03, .468538D-03,
     +  .344014D-03, .249916D-03, .177844D-03, .123822D-03,
     +  .839587D-04, .552156D-04, .350509D-04, .213840D-04,
     +  .124936D-04, .692385D-05, .364595D-05, .180651D-05,
     +  .830085D-06, .342027D-06, .115750D-06, .255634D-07,
     +  .144723D-08, .000000D+00, .137324D+07, .103841D+07,
     +  .771699D+06, .573124D+06, .425393D+06, .315512D+06,
     +  .233867D+06, .173217D+06, .128211D+06, .948240D+05,
     +  .700824D+05, .517538D+05, .381911D+05, .281587D+05,
     +  .207463D+05, .152717D+05, .112332D+05, .825532D+04,
     +  .606227D+04, .444787D+04, .326103D+04, .238884D+04,
     +  .174874D+04, .127916D+04, .935135D+03, .683152D+03 /
        DATA (UPDI(I),I=6033,6084) /
     +  .499014D+03, .362721D+03, .264829D+03, .193346D+03,
     +  .141202D+03, .103163D+03, .754251D+02, .552491D+02,
     +  .404952D+02, .297305D+02, .218717D+02, .161238D+02,
     +  .119147D+02, .882311D+01, .655105D+01, .487305D+01,
     +  .363117D+01, .270932D+01, .202349D+01, .151154D+01,
     +  .113039D+01, .843050D+00, .629299D+00, .468082D+00,
     +  .347846D+00, .257876D+00, .190687D+00, .140611D+00,
     +  .103391D+00, .758029D-01, .554282D-01, .404371D-01,
     +  .294514D-01, .214275D-01, .155897D-01, .113536D-01,
     +  .828297D-02, .607001D-02, .445715D-02, .328704D-02,
     +  .243553D-02, .181199D-02, .135237D-02, .101044D-02,
     +  .754222D-03, .560621D-03, .413710D-03, .301782D-03,
     +  .217727D-03, .153874D-03, .106423D-03, .717286D-04 /
        DATA (UPDI(I),I=6085,6136) /
     +  .469362D-04, .296931D-04, .180906D-04, .105849D-04,
     +  .589616D-05, .313175D-05, .156906D-05, .728811D-06,
     +  .301861D-06, .101589D-06, .221416D-07, .134795D-08,
     +  .000000D+00, .171719D+07, .129380D+07, .957403D+06,
     +  .707987D+06, .523209D+06, .386358D+06, .285107D+06,
     +  .210221D+06, .154893D+06, .114031D+06, .838859D+05,
     +  .616557D+05, .452811D+05, .332250D+05, .243592D+05,
     +  .178423D+05, .130581D+05, .954762D+04, .697504D+04,
     +  .509076D+04, .371252D+04, .270488D+04, .196924D+04,
     +  .143242D+04, .104123D+04, .756260D+03, .549172D+03,
     +  .396760D+03, .287919D+03, .208903D+03, .151600D+03,
     +  .110050D+03, .799332D+02, .581628D+02, .423424D+02,
     +  .308734D+02, .225547D+02, .165107D+02, .121144D+02 /
        DATA (UPDI(I),I=6137,6188) /
     +  .890733D+01, .656665D+01, .485010D+01, .358867D+01,
     +  .265902D+01, .197234D+01, .146343D+01, .108727D+01,
     +  .805701D+00, .597713D+00, .441935D+00, .326543D+00,
     +  .240769D+00, .177124D+00, .129982D+00, .951479D-01,
     +  .694747D-01, .506143D-01, .368056D-01, .267315D-01,
     +  .194030D-01, .140894D-01, .102449D-01, .746413D-02,
     +  .546324D-02, .400643D-02, .295017D-02, .218163D-02,
     +  .161894D-02, .120430D-02, .896152D-03, .665673D-03,
     +  .492075D-03, .360942D-03, .261618D-03, .187508D-03,
     +  .131659D-03, .904982D-04, .606623D-04, .395180D-04,
     +  .249271D-04, .151711D-04, .888920D-05, .497277D-05,
     +  .265858D-05, .134173D-05, .626500D-06, .259183D-06,
     +  .862580D-07, .184827D-07, .118647D-08, .000000D+00 /
        DATA (UPDI(I),I=6189,6240) /
     +  .212467D+07, .159517D+07, .117547D+07, .865579D+06,
     +  .636942D+06, .468315D+06, .344079D+06, .252585D+06,
     +  .185277D+06, .135784D+06, .994318D+05, .727441D+05,
     +  .531746D+05, .388321D+05, .283333D+05, .206524D+05,
     +  .150402D+05, .109420D+05, .795320D+04, .577487D+04,
     +  .418947D+04, .303624D+04, .219860D+04, .159053D+04,
     +  .114976D+04, .830364D+03, .599526D+03, .430580D+03,
     +  .310610D+03, .224009D+03, .161565D+03, .116552D+03,
     +  .841181D+02, .608141D+02, .439822D+02, .318559D+02,
     +  .231157D+02, .168064D+02, .122469D+02, .894283D+01,
     +  .654740D+01, .480264D+01, .352926D+01, .259731D+01,
     +  .191369D+01, .141059D+01, .104130D+01, .766785D+00,
     +  .565392D+00, .415575D+00, .305333D+00, .223918D+00 /
        DATA (UPDI(I),I=6241,6292) /
     +  .163884D+00, .119686D+00, .872165D-01, .634189D-01,
     +  .460277D-01, .333568D-01, .241538D-01, .174861D-01,
     +  .126686D-01, .919355D-02, .668595D-02, .488504D-02,
     +  .357574D-02, .262748D-02, .193811D-02, .143383D-02,
     +  .106265D-02, .787316D-03, .581910D-03, .427783D-03,
     +  .311935D-03, .224711D-03, .160050D-03, .111699D-03,
     +  .763431D-04, .509210D-04, .330419D-04, .207904D-04,
     +  .126436D-04, .741763D-05, .416357D-05, .223620D-05,
     +  .113321D-05, .529678D-06, .217905D-06, .714642D-07,
     +  .150247D-07, .100567D-08, .000000D+00, .260209D+07,
     +  .194687D+07, .142875D+07, .104774D+07, .767761D+06,
     +  .562115D+06, .411229D+06, .300575D+06, .219515D+06,
     +  .160164D+06, .116760D+06, .850343D+05, .618733D+05 /
        DATA (UPDI(I),I=6293,6344) /
     +  .449748D+05, .326609D+05, .236935D+05, .171716D+05,
     +  .124315D+05, .899105D+04, .649565D+04, .468833D+04,
     +  .338020D+04, .243482D+04, .175203D+04, .125964D+04,
     +  .904702D+03, .649545D+03, .463816D+03, .332654D+03,
     +  .238500D+03, .170990D+03, .122603D+03, .879399D+02,
     +  .631800D+02, .454025D+02, .326727D+02, .235536D+02,
     +  .170119D+02, .123143D+02, .893195D+01, .649565D+01,
     +  .473281D+01, .345477D+01, .252570D+01, .184878D+01,
     +  .135397D+01, .993219D+00, .726863D+00, .532751D+00,
     +  .389306D+00, .284433D+00, .207475D+00, .151075D+00,
     +  .109799D+00, .796492D-01, .576724D-01, .416950D-01,
     +  .301104D-01, .217337D-01, .156894D-01, .113379D-01,
     +  .820888D-02, .595675D-02, .434280D-02, .317153D-02 /
        DATA (UPDI(I),I=6345,6396) /
     +  .232457D-02, .170968D-02, .126054D-02, .930534D-03,
     +  .686335D-03, .504725D-03, .369023D-03, .267552D-03,
     +  .191608D-03, .135669D-03, .941489D-04, .640136D-04,
     +  .425069D-04, .274866D-04, .172582D-04, .104887D-04,
     +  .615958D-05, .346580D-05, .186660D-05, .947238D-06,
     +  .441738D-06, .180132D-06, .580825D-07, .119697D-07,
     +  .829536D-09, .000000D+00, .866694D+06, .684846D+06,
     +  .535547D+06, .418797D+06, .327501D+06, .256108D+06,
     +  .200280D+06, .156622D+06, .122483D+06, .957862D+05,
     +  .749094D+05, .585839D+05, .458174D+05, .358339D+05,
     +  .280268D+05, .219215D+05, .171471D+05, .134133D+05,
     +  .104934D+05, .820985D+04, .642397D+04, .502726D+04,
     +  .393489D+04, .308049D+04, .241221D+04, .188946D+04 /
        DATA (UPDI(I),I=6397,6448) /
     +  .148052D+04, .115659D+04, .907226D+03, .712063D+03,
     +  .559292D+03, .439679D+03, .346002D+03, .272808D+03,
     +  .215284D+03, .170193D+03, .134821D+03, .107045D+03,
     +  .852083D+02, .680065D+02, .544503D+02, .437254D+02,
     +  .352224D+02, .284612D+02, .230678D+02, .187514D+02,
     +  .152965D+02, .124944D+02, .102416D+02, .840220D+01,
     +  .691082D+01, .569330D+01, .469692D+01, .387976D+01,
     +  .320842D+01, .265615D+01, .220148D+01, .182702D+01,
     +  .151867D+01, .126489D+01, .105622D+01, .884855D+00,
     +  .744329D+00, .629744D+00, .535457D+00, .458458D+00,
     +  .395563D+00, .344088D+00, .301762D+00, .266669D+00,
     +  .237188D+00, .211963D+00, .189852D+00, .169925D+00,
     +  .151639D+00, .134195D+00, .117374D+00, .100996D+00 /
        DATA (UPDI(I),I=6449,6500) /
     +  .850434D-01, .696498D-01, .550703D-01, .416692D-01,
     +  .297444D-01, .197538D-01, .118978D-01, .626233D-02,
     +  .270756D-02, .856491D-03, .152915D-03, .672154D-05,
     +  .000000D+00, .161949D+07, .126980D+07, .984141D+06,
     +  .762507D+06, .590804D+06, .457618D+06, .354465D+06,
     +  .274472D+06, .212534D+06, .164516D+06, .127348D+06,
     +  .985413D+05, .762508D+05, .589809D+05, .456221D+05,
     +  .352759D+05, .272758D+05, .210822D+05, .162951D+05,
     +  .125904D+05, .972811D+04, .751399D+04, .580415D+04,
     +  .448211D+04, .346160D+04, .267284D+04, .206426D+04,
     +  .158843D+04, .122732D+04, .948438D+03, .733386D+03,
     +  .567345D+03, .439324D+03, .340735D+03, .264500D+03,
     +  .205641D+03, .160230D+03, .125123D+03, .979845D+02 /
        DATA (UPDI(I),I=6501,6552) /
     +  .769419D+02, .606362D+02, .479381D+02, .380366D+02,
     +  .302847D+02, .241999D+02, .194022D+02, .156209D+02,
     +  .125975D+02, .102018D+02, .827249D+01, .672918D+01,
     +  .548547D+01, .448037D+01, .366602D+01, .300470D+01,
     +  .246683D+01, .202868D+01, .167156D+01, .138027D+01,
     +  .114273D+01, .948984D+00, .791109D+00, .662382D+00,
     +  .557956D+00, .472307D+00, .402486D+00, .345412D+00,
     +  .298572D+00, .259853D+00, .227528D+00, .200156D+00,
     +  .176575D+00, .155835D+00, .137170D+00, .120190D+00,
     +  .104258D+00, .892508D-01, .750594D-01, .616874D-01,
     +  .492427D-01, .378866D-01, .278527D-01, .192732D-01,
     +  .123796D-01, .718794D-02, .363326D-02, .150032D-02,
     +  .450962D-03, .770617D-04, .352013D-05, .000000D+00 /
        DATA (UPDI(I),I=6553,6604) /
     +  .267019D+07, .208078D+07, .160128D+07, .123170D+07,
     +  .947354D+06, .728294D+06, .559843D+06, .430133D+06,
     +  .330443D+06, .253722D+06, .194790D+06, .149463D+06,
     +  .114668D+06, .879221D+05, .674043D+05, .516434D+05,
     +  .395614D+05, .302872D+05, .231833D+05, .177344D+05,
     +  .135640D+05, .103678D+05, .792373D+04, .605225D+04,
     +  .462236D+04, .352829D+04, .269325D+04, .204738D+04,
     +  .156271D+04, .119258D+04, .910492D+03, .695241D+03,
     +  .531296D+03, .406578D+03, .311360D+03, .238774D+03,
     +  .183505D+03, .141333D+03, .109170D+03, .845612D+02,
     +  .657491D+02, .512935D+02, .401729D+02, .315809D+02,
     +  .249258D+02, .197451D+02, .157142D+02, .125307D+02,
     +  .100392D+02, .805642D+01, .648871D+01, .523956D+01 /
        DATA (UPDI(I),I=6605,6656) /
     +  .424103D+01, .344056D+01, .279713D+01, .227896D+01,
     +  .186081D+01, .152305D+01, .124985D+01, .102882D+01,
     +  .849815D+00, .704891D+00, .587314D+00, .492338D+00,
     +  .414657D+00, .351424D+00, .299722D+00, .257220D+00,
     +  .221980D+00, .192454D+00, .167369D+00, .145728D+00,
     +  .126731D+00, .109740D+00, .944635D-01, .803765D-01,
     +  .674002D-01, .554514D-01, .445219D-01, .346728D-01,
     +  .259826D-01, .185741D-01, .124686D-01, .775056D-02,
     +  .434027D-02, .210733D-02, .831207D-03, .237459D-03,
     +  .388345D-04, .184594D-05, .000000D+00, .407395D+07,
     +  .315784D+07, .241527D+07, .184624D+07, .141102D+07,
     +  .107775D+07, .823026D+06, .628109D+06, .479246D+06,
     +  .365420D+06, .278559D+06, .212196D+06, .161599D+06 /
        DATA (UPDI(I),I=6657,6708) /
     +  .122976D+06, .935551D+05, .711187D+05, .540451D+05,
     +  .410379D+05, .311505D+05, .236259D+05, .179126D+05,
     +  .135697D+05, .102762D+05, .777588D+04, .588209D+04,
     +  .444586D+04, .335975D+04, .252758D+04, .190907D+04,
     +  .144134D+04, .108842D+04, .821866D+03, .620949D+03,
     +  .469731D+03, .355527D+03, .269429D+03, .204603D+03,
     +  .155702D+03, .118833D+03, .909504D+02, .698823D+02,
     +  .538819D+02, .417152D+02, .324240D+02, .253095D+02,
     +  .198338D+02, .156210D+02, .123302D+02, .978254D+01,
     +  .777660D+01, .620684D+01, .496866D+01, .398853D+01,
     +  .321028D+01, .259040D+01, .209561D+01, .169967D+01,
     +  .138241D+01, .112771D+01, .923087D+00, .758410D+00,
     +  .625829D+00, .518749D+00, .432574D+00, .362278D+00 /
        DATA (UPDI(I),I=6709,6760) /
     +  .305147D+00, .258454D+00, .220054D+00, .188186D+00,
     +  .161465D+00, .138767D+00, .119234D+00, .102181D+00,
     +  .870670D-01, .736612D-01, .615166D-01, .505681D-01,
     +  .407336D-01, .319809D-01, .243222D-01, .177712D-01,
     +  .123672D-01, .806379D-02, .485729D-02, .262744D-02,
     +  .122764D-02, .463709D-03, .126396D-03, .198645D-04,
     +  .980129D-06, .000000D+00, .589051D+07, .454404D+07,
     +  .345623D+07, .262709D+07, .199629D+07, .151591D+07,
     +  .115076D+07, .872936D+06, .661956D+06, .501583D+06,
     +  .379919D+06, .287534D+06, .217523D+06, .164419D+06,
     +  .124224D+06, .937708D+05, .707490D+05, .533297D+05,
     +  .401786D+05, .302413D+05, .227497D+05, .170970D+05,
     +  .128421D+05, .963668D+04, .722764D+04, .541523D+04 /
        DATA (UPDI(I),I=6761,6812) /
     +  .405589D+04, .302315D+04, .226212D+04, .169168D+04,
     +  .126505D+04, .945799D+03, .707369D+03, .529636D+03,
     +  .396691D+03, .297460D+03, .223486D+03, .168253D+03,
     +  .127034D+03, .961859D+02, .731174D+02, .557812D+02,
     +  .427352D+02, .328764D+02, .254049D+02, .197130D+02,
     +  .153780D+02, .120254D+02, .945524D+01, .745104D+01,
     +  .589731D+01, .468301D+01, .373031D+01, .298038D+01,
     +  .238801D+01, .191899D+01, .154653D+01, .125026D+01,
     +  .101402D+01, .825417D+00, .674500D+00, .553608D+00,
     +  .456376D+00, .378403D+00, .314969D+00, .263515D+00,
     +  .221515D+00, .187006D+00, .158394D+00, .134440D+00,
     +  .114153D+00, .967824D-01, .817372D-01, .685482D-01,
     +  .570186D-01, .467584D-01, .377000D-01, .297524D-01 /
        DATA (UPDI(I),I=6813,6864) /
     +  .228584D-01, .169898D-01, .121139D-01, .821383D-02,
     +  .520701D-02, .304258D-02, .159177D-02, .716807D-03,
     +  .259844D-03, .677900D-04, .102727D-04, .524923D-06,
     +  .000000D+00, .859085D+07, .659239D+07, .498370D+07,
     +  .376478D+07, .284283D+07, .214501D+07, .161775D+07,
     +  .121911D+07, .918253D+06, .691051D+06, .519789D+06,
     +  .390617D+06, .293376D+06, .220132D+06, .165071D+06,
     +  .123657D+06, .925720D+05, .692276D+05, .517336D+05,
     +  .386176D+05, .288057D+05, .214622D+05, .159789D+05,
     +  .118829D+05, .883029D+04, .655370D+04, .486140D+04,
     +  .358749D+04, .265742D+04, .196695D+04, .145548D+04,
     +  .107658D+04, .796402D+03, .589722D+03, .436721D+03,
     +  .323749D+03, .240433D+03, .178914D+03, .133508D+03 /
        DATA (UPDI(I),I=6865,6916) /
     +  .999097D+02, .750648D+02, .566065D+02, .428715D+02,
     +  .326103D+02, .249204D+02, .191275D+02, .147641D+02,
     +  .114261D+02, .889454D+01, .694129D+01, .544259D+01,
     +  .428311D+01, .338227D+01, .267990D+01, .213018D+01,
     +  .169875D+01, .135901D+01, .109091D+01, .878730D+00,
     +  .710500D+00, .576729D+00, .470169D+00, .384876D+00,
     +  .316762D+00, .261545D+00, .216889D+00, .180537D+00,
     +  .150751D+00, .126135D+00, .105619D+00, .883525D-01,
     +  .736973D-01, .611534D-01, .503204D-01, .410230D-01,
     +  .329266D-01, .259520D-01, .199968D-01, .149804D-01,
     +  .108416D-01, .751471D-02, .494500D-02, .303524D-02,
     +  .171317D-02, .863087D-03, .372989D-03, .129267D-03,
     +  .321863D-04, .469719D-05, .248969D-06, .000000D+00 /
        DATA (UPDI(I),I=6917,6968) /
     +  .121136D+08, .924907D+07, .695119D+07, .522000D+07,
     +  .391793D+07, .293818D+07, .220219D+07, .164910D+07,
     +  .123416D+07, .922764D+06, .689479D+06, .514658D+06,
     +  .383889D+06, .286044D+06, .212974D+06, .158392D+06,
     +  .117702D+06, .873617D+05, .647857D+05, .479843D+05,
     +  .355077D+05, .262413D+05, .193752D+05, .142869D+05,
     +  .105249D+05, .774236D+04, .569135D+04, .416079D+04,
     +  .305309D+04, .223817D+04, .163994D+04, .120093D+04,
     +  .879343D+03, .644429D+03, .472214D+03, .346338D+03,
     +  .254437D+03, .187284D+03, .138229D+03, .102314D+03,
     +  .760340D+02, .567171D+02, .424941D+02, .319812D+02,
     +  .241851D+02, .183735D+02, .140410D+02, .107604D+02,
     +  .829736D+01, .641571D+01, .498583D+01, .389002D+01 /
        DATA (UPDI(I),I=6969,7020) /
     +  .304642D+01, .239453D+01, .188867D+01, .149493D+01,
     +  .118730D+01, .946346D+00, .756979D+00, .607816D+00,
     +  .489918D+00, .396513D+00, .322115D+00, .262969D+00,
     +  .215221D+00, .176758D+00, .145575D+00, .120137D+00,
     +  .992269D-01, .819162D-01, .674718D-01, .553454D-01,
     +  .451060D-01, .364060D-01, .290812D-01, .228405D-01,
     +  .175941D-01, .132325D-01, .966253D-02, .680603D-02,
     +  .458320D-02, .292457D-02, .173625D-02, .945293D-03,
     +  .457772D-03, .189403D-03, .625711D-04, .148152D-04,
     +  .207525D-05, .114386D-06, .000000D+00, .165877D+08,
     +  .126047D+08, .942011D+07, .703401D+07, .524905D+07,
     +  .391350D+07, .291582D+07, .217039D+07, .161436D+07,
     +  .119956D+07, .890644D+06, .660565D+06, .489510D+06 /
        DATA (UPDI(I),I=7021,7072) /
     +  .362334D+06, .267955D+06, .197918D+06, .146045D+06,
     +  .107629D+06, .792366D+05, .582546D+05, .427825D+05,
     +  .313751D+05, .229839D+05, .168125D+05, .122842D+05,
     +  .896100D+04, .653106D+04, .473261D+04, .344183D+04,
     +  .250033D+04, .181509D+04, .131670D+04, .954845D+03,
     +  .692960D+03, .502738D+03, .365027D+03, .265442D+03,
     +  .193386D+03, .141263D+03, .103483D+03, .761104D+02,
     +  .561932D+02, .416739D+02, .310498D+02, .232489D+02,
     +  .174911D+02, .132404D+02, .100527D+02, .768208D+01,
     +  .588787D+01, .453681D+01, .351060D+01, .272737D+01,
     +  .212718D+01, .166519D+01, .130839D+01, .103167D+01,
     +  .816463D+00, .648451D+00, .516935D+00, .413596D+00,
     +  .332171D+00, .267650D+00, .216606D+00, .175600D+00 /
        DATA (UPDI(I),I=7073,7124) /
     +  .142731D+00, .116224D+00, .947322D-01, .771916D-01,
     +  .627943D-01, .509056D-01, .410496D-01, .328507D-01,
     +  .260037D-01, .203516D-01, .156409D-01, .117755D-01,
     +  .864533D-02, .615415D-02, .421957D-02, .276111D-02,
     +  .170889D-02, .981547D-03, .515680D-03, .240181D-03,
     +  .952256D-04, .300314D-04, .677692D-05, .913542D-06,
     +  .521204D-07, .000000D+00, .221436D+08, .167498D+08,
     +  .124507D+08, .924651D+07, .686202D+07, .508750D+07,
     +  .376900D+07, .278933D+07, .206260D+07, .152355D+07,
     +  .112437D+07, .828817D+06, .610367D+06, .448937D+06,
     +  .329862D+06, .242051D+06, .177421D+06, .129866D+06,
     +  .949458D+05, .693133D+05, .505385D+05, .367923D+05,
     +  .267511D+05, .194193D+05, .140785D+05, .101883D+05 /
        DATA (UPDI(I),I=7125,7176) /
     +  .736541D+04, .529250D+04, .381654D+04, .274873D+04,
     +  .197788D+04, .142199D+04, .102179D+04, .734703D+03,
     +  .528003D+03, .379721D+03, .273463D+03, .197295D+03,
     +  .142710D+03, .103519D+03, .753926D+02, .551221D+02,
     +  .404847D+02, .298763D+02, .221601D+02, .165181D+02,
     +  .123913D+02, .932475D+01, .706468D+01, .536922D+01,
     +  .410349D+01, .315017D+01, .242849D+01, .187984D+01,
     +  .146074D+01, .113943D+01, .892005D+00, .700863D+00,
     +  .552600D+00, .437252D+00, .347146D+00, .276546D+00,
     +  .220906D+00, .177129D+00, .142155D+00, .114288D+00,
     +  .919615D-01, .739920D-01, .594520D-01, .476373D-01,
     +  .379961D-01, .301128D-01, .236584D-01, .183642D-01,
     +  .140809D-01, .105890D-01, .779187D-02, .558460D-02 /
        DATA (UPDI(I),I=7177,7228) /
     +  .387576D-02, .258706D-02, .164526D-02, .987854D-03,
     +  .549113D-03, .278498D-03, .124831D-03, .474710D-04,
     +  .143140D-04, .308536D-05, .401206D-06, .235291D-07,
     +  .000000D+00, .289061D+08, .217695D+08, .160985D+08,
     +  .118930D+08, .877918D+07, .647395D+07, .476994D+07,
     +  .351060D+07, .258136D+07, .189589D+07, .139105D+07,
     +  .101938D+07, .746220D+06, .545535D+06, .398364D+06,
     +  .290486D+06, .211562D+06, .153851D+06, .111737D+06,
     +  .810227D+05, .586704D+05, .424139D+05, .306183D+05,
     +  .220649D+05, .158776D+05, .114030D+05, .817981D+04,
     +  .583068D+04, .417077D+04, .297921D+04, .212577D+04,
     +  .151529D+04, .107937D+04, .769269D+03, .547880D+03,
     +  .390437D+03, .278594D+03, .199136D+03, .142698D+03 /
        DATA (UPDI(I),I=7229,7280) /
     +  .102545D+03, .739864D+02, .535922D+02, .389985D+02,
     +  .285178D+02, .209628D+02, .154880D+02, .115186D+02,
     +  .859461D+01, .645803D+01, .486861D+01, .369175D+01,
     +  .281242D+01, .215190D+01, .165352D+01, .127558D+01,
     +  .987855D+00, .767787D+00, .598884D+00, .468694D+00,
     +  .368019D+00, .289841D+00, .228941D+00, .181225D+00,
     +  .143906D+00, .114280D+00, .908333D-01, .721908D-01,
     +  .573137D-01, .453932D-01, .358151D-01, .280993D-01,
     +  .218823D-01, .168758D-01, .128443D-01, .964818D-02,
     +  .709951D-02, .510616D-02, .357290D-02, .241771D-02,
     +  .157131D-02, .971355D-03, .565938D-03, .304550D-03,
     +  .149184D-03, .643996D-04, .235159D-04, .679114D-05,
     +  .140142D-05, .176137D-06, .105073D-07, .000000D+00 /
        DATA (UPDI(I),I=7281,7332) /
     +  .369897D+08, .277404D+08, .204116D+08, .150034D+08,
     +  .110185D+08, .808317D+07, .592426D+07, .433694D+07,
     +  .317172D+07, .231671D+07, .169034D+07, .123171D+07,
     +  .896464D+06, .651552D+06, .472955D+06, .342800D+06,
     +  .248130D+06, .179318D+06, .129405D+06, .932272D+05,
     +  .670627D+05, .481555D+05, .345249D+05, .247066D+05,
     +  .176517D+05, .125848D+05, .896063D+04, .633829D+04,
     +  .449888D+04, .318833D+04, .225673D+04, .159552D+04,
     +  .112705D+04, .796482D+03, .562387D+03, .397291D+03,
     +  .280991D+03, .199069D+03, .141379D+03, .100689D+03,
     +  .719999D+02, .516907D+02, .372835D+02, .270266D+02,
     +  .196964D+02, .144296D+02, .106432D+02, .787692D+01,
     +  .587212D+01, .439259D+01, .330564D+01, .249964D+01 /
        DATA (UPDI(I),I=7333,7384) /
     +  .189867D+01, .144846D+01, .110942D+01, .853048D+00,
     +  .658241D+00, .509671D+00, .395863D+00, .308388D+00,
     +  .240870D+00, .188593D+00, .147887D+00, .116257D+00,
     +  .913205D-01, .717349D-01, .562933D-01, .440865D-01,
     +  .344096D-01, .267278D-01, .206235D-01, .157796D-01,
     +  .119449D-01, .891403D-02, .655977D-02, .472333D-02,
     +  .332068D-02, .226869D-02, .149706D-02, .947512D-03,
     +  .569510D-03, .322085D-03, .167874D-03, .794763D-04,
     +  .330735D-04, .116128D-04, .321844D-05, .637441D-06,
     +  .775522D-07, .463037D-08, .000000D+00, .464942D+08,
     +  .347272D+08, .254293D+08, .186005D+08, .135925D+08,
     +  .992157D+07, .723466D+07, .526900D+07, .383320D+07,
     +  .278505D+07, .202112D+07, .146471D+07, .106013D+07 /
        DATA (UPDI(I),I=7385,7436) /
     +  .766172D+06, .552971D+06, .398468D+06, .286716D+06,
     +  .205959D+06, .147719D+06, .105758D+06, .755937D+05,
     +  .539306D+05, .384103D+05, .273025D+05, .193726D+05,
     +  .137148D+05, .969564D+04, .680764D+04, .479618D+04,
     +  .337336D+04, .236929D+04, .166197D+04, .116460D+04,
     +  .816364D+03, .571672D+03, .400483D+03, .280857D+03,
     +  .197285D+03, .138914D+03, .980873D+02, .695403D+02,
     +  .495008D+02, .354029D+02, .254497D+02, .183949D+02,
     +  .133673D+02, .978185D+01, .718310D+01, .531435D+01,
     +  .394569D+01, .294766D+01, .221295D+01, .166899D+01,
     +  .126429D+01, .961549D+00, .734106D+00, .562382D+00,
     +  .432229D+00, .333142D+00, .257448D+00, .199383D+00,
     +  .154708D+00, .120149D+00, .934821D-01, .726165D-01 /
        DATA (UPDI(I),I=7437,7488) /
     +  .563622D-01, .436635D-01, .337264D-01, .259379D-01,
     +  .198331D-01, .150504D-01, .113141D-01, .840678D-02,
     +  .615178D-02, .443548D-02, .312562D-02, .214832D-02,
     +  .143337D-02, .922599D-03, .568831D-03, .332564D-03,
     +  .182662D-03, .922776D-04, .422628D-04, .169773D-04,
     +  .574266D-05, .153132D-05, .291965D-06, .344163D-07,
     +  .200563D-08, .000000D+00, .575006D+08, .427804D+08,
     +  .311798D+08, .226989D+08, .165079D+08, .119912D+08,
     +  .870072D+07, .630516D+07, .456379D+07, .329888D+07,
     +  .238154D+07, .171680D+07, .123592D+07, .888358D+06,
     +  .637607D+06, .456875D+06, .326863D+06, .233433D+06,
     +  .166434D+06, .118441D+06, .841395D+05, .596529D+05,
     +  .422156D+05, .298128D+05, .210138D+05, .147762D+05 /
        DATA (UPDI(I),I=7489,7540) /
     +  .103742D+05, .723234D+04, .505899D+04, .353233D+04,
     +  .246253D+04, .171435D+04, .119207D+04, .829112D+03,
     +  .575997D+03, .400278D+03, .278438D+03, .193989D+03,
     +  .135474D+03, .948727D+02, .667103D+02, .470996D+02,
     +  .334134D+02, .238279D+02, .170873D+02, .123209D+02,
     +  .894797D+01, .652164D+01, .478985D+01, .353069D+01,
     +  .261903D+01, .195254D+01, .146242D+01, .110016D+01,
     +  .830922D+00, .629917D+00, .479096D+00, .365487D+00,
     +  .279524D+00, .214260D+00, .164513D+00, .126488D+00,
     +  .972757D-01, .748988D-01, .575291D-01, .441156D-01,
     +  .337367D-01, .257009D-01, .194766D-01, .146613D-01,
     +  .109427D-01, .808344D-02, .589673D-02, .423206D-02,
     +  .299035D-02, .206288D-02, .138663D-02, .903841D-03 /
        DATA (UPDI(I),I=7541,7592) /
     +  .567714D-03, .341158D-03, .194138D-03, .103645D-03,
     +  .508046D-04, .225422D-04, .875829D-05, .286143D-05,
     +  .736653D-06, .135716D-06, .155052D-07, .847861D-09,
     +  .000000D+00, .700677D+08, .519335D+08, .376791D+08,
     +  .273045D+08, .197649D+08, .142894D+08, .103188D+08,
     +  .744157D+07, .535991D+07, .385509D+07, .276903D+07,
     +  .198592D+07, .142223D+07, .101688D+07, .725941D+06,
     +  .517341D+06, .368072D+06, .261386D+06, .185296D+06,
     +  .131096D+06, .925777D+05, .652395D+05, .458852D+05,
     +  .322013D+05, .225523D+05, .157544D+05, .109876D+05,
     +  .760746D+04, .528469D+04, .366403D+04, .253607D+04,
     +  .175271D+04, .120971D+04, .835072D+03, .575710D+03,
     +  .396992D+03, .274000D+03, .189400D+03, .131227D+03 /
        DATA (UPDI(I),I=7593,7644) /
     +  .911742D+02, .636059D+02, .445570D+02, .313649D+02,
     +  .221960D+02, .157971D+02, .113061D+02, .815142D+01,
     +  .589845D+01, .430181D+01, .314896D+01, .231994D+01,
     +  .171786D+01, .127798D+01, .954915D+00, .716296D+00,
     +  .539241D+00, .407198D+00, .308336D+00, .233991D+00,
     +  .177898D+00, .135417D+00, .103164D+00, .785623D-01,
     +  .598608D-01, .454640D-01, .344465D-01, .260061D-01,
     +  .195421D-01, .145954D-01, .108186D-01, .794405D-02,
     +  .576827D-02, .413253D-02, .291003D-02, .201598D-02,
     +  .136209D-02, .895895D-03, .570860D-03, .350157D-03,
     +  .205265D-03, .113811D-03, .591349D-04, .281719D-04,
     +  .121355D-04, .457293D-05, .144822D-05, .361578D-06,
     +  .646769D-07, .715976D-08, .345200D-09, .000000D+00 /
        DATA (UPDI(I),I=7645,7696) /
     +  .642719D+05, .929454D+05, .712044D+05, .545585D+05,
     +  .418126D+05, .320522D+05, .245771D+05, .188516D+05,
     +  .144655D+05, .111050D+05, .852961D+04, .655557D+04,
     +  .504201D+04, .388116D+04, .299049D+04, .230682D+04,
     +  .178178D+04, .137833D+04, .106809D+04, .829342D+03,
     +  .645442D+03, .503640D+03, .394163D+03, .309524D+03,
     +  .243983D+03, .193136D+03, .153607D+03, .122419D+03,
     +  .984441D+02, .796536D+02, .648778D+02, .532167D+02,
     +  .439773D+02, .366450D+02, .307677D+02, .260478D+02,
     +  .222371D+02, .191427D+02, .166144D+02, .145339D+02,
     +  .128123D+02, .113744D+02, .101640D+02, .913630D+01,
     +  .825562D+01, .749382D+01, .683079D+01, .624234D+01,
     +  .572152D+01, .525061D+01, .482543D+01, .443703D+01 /
        DATA (UPDI(I),I=7697,7748) /
     +  .407979D+01, .374921D+01, .344179D+01, .315476D+01,
     +  .288599D+01, .263384D+01, .239704D+01, .217462D+01,
     +  .196583D+01, .177009D+01, .158694D+01, .141675D+01,
     +  .125741D+01, .110971D+01, .973356D+00, .848062D+00,
     +  .733521D+00, .629407D+00, .535368D+00, .451017D+00,
     +  .375910D+00, .309530D+00, .251930D+00, .201746D+00,
     +  .158869D+00, .122721D+00, .927103D-01, .682347D-01,
     +  .486876D-01, .334854D-01, .219459D-01, .135876D-01,
     +  .779198D-02, .402512D-02, .178751D-02, .625177D-03,
     +  .141448D-03, .110335D-04, .000000D+00, .145983D+06,
     +  .113359D+06, .869089D+05, .666322D+05, .510926D+05,
     +  .391800D+05, .300503D+05, .230513D+05, .176870D+05,
     +  .135742D+05, .104216D+05, .800420D+04, .615077D+04 /
        DATA (UPDI(I),I=7749,7800) /
     +  .472911D+04, .363876D+04, .280203D+04, .215995D+04,
     +  .166689D+04, .128822D+04, .997143D+03, .773336D+03,
     +  .601057D+03, .468366D+03, .366019D+03, .287004D+03,
     +  .225893D+03, .178571D+03, .141372D+03, .112907D+03,
     +  .906948D+02, .733219D+02, .596811D+02, .489371D+02,
     +  .404584D+02, .337057D+02, .283144D+02, .239902D+02,
     +  .204989D+02, .176645D+02, .153451D+02, .134372D+02,
     +  .118518D+02, .105247D+02, .940301D+01, .844674D+01,
     +  .762327D+01, .691004D+01, .627991D+01, .572501D+01,
     +  .522567D+01, .477724D+01, .436975D+01, .399712D+01,
     +  .365431D+01, .333747D+01, .304349D+01, .276999D+01,
     +  .251508D+01, .227729D+01, .205543D+01, .184858D+01,
     +  .165600D+01, .147699D+01, .131179D+01, .115816D+01 /
        DATA (UPDI(I),I=7801,7852) /
     +  .101672D+01, .887024D+00, .768660D+00, .661185D+00,
     +  .564164D+00, .477124D+00, .399594D+00, .331044D+00,
     +  .270873D+00, .219054D+00, .174251D+00, .136265D+00,
     +  .104497D+00, .783383D-01, .571912D-01, .404513D-01,
     +  .275619D-01, .178782D-01, .109448D-01, .619728D-02,
     +  .315575D-02, .137790D-02, .472253D-03, .104658D-03,
     +  .825082D-05, .000000D+00, .181767D+06, .141059D+06,
     +  .108061D+06, .827732D+05, .634050D+05, .485652D+05,
     +  .372010D+05, .284955D+05, .218300D+05, .167245D+05,
     +  .128159D+05, .982241D+04, .753078D+04, .577566D+04,
     +  .443200D+04, .340277D+04, .261466D+04, .201078D+04,
     +  .154816D+04, .119348D+04, .921572D+03, .712897D+03,
     +  .552724D+03, .429614D+03, .334942D+03, .262021D+03 /
        DATA (UPDI(I),I=7853,7904) /
     +  .205814D+03, .161833D+03, .128348D+03, .102353D+03,
     +  .821365D+02, .663520D+02, .539949D+02, .443015D+02,
     +  .366306D+02, .305435D+02, .256924D+02, .217990D+02,
     +  .186576D+02, .161014D+02, .140109D+02, .122826D+02,
     +  .108433D+02, .963259D+01, .860530D+01, .772455D+01,
     +  .696516D+01, .629716D+01, .571163D+01, .518711D+01,
     +  .471837D+01, .429452D+01, .390897D+01, .355618D+01,
     +  .323196D+01, .293287D+01, .265627D+01, .240003D+01,
     +  .216246D+01, .194221D+01, .173814D+01, .154938D+01,
     +  .137500D+01, .121510D+01, .106734D+01, .932188D+00,
     +  .809046D+00, .697390D+00, .596659D+00, .506321D+00,
     +  .425805D+00, .354566D+00, .292014D+00, .237476D+00,
     +  .190840D+00, .150810D+00, .117123D+00, .891697D-01 /
        DATA (UPDI(I),I=7905,7956) /
     +  .663368D-01, .480374D-01, .336790D-01, .227322D-01,
     +  .145923D-01, .883120D-02, .493559D-02, .247573D-02,
     +  .106181D-02, .356113D-03, .771629D-04, .615465D-05,
     +  .000000D+00, .228688D+06, .177185D+06, .135477D+06,
     +  .103565D+06, .791650D+05, .605018D+05, .462368D+05,
     +  .353298D+05, .269961D+05, .206264D+05, .157610D+05,
     +  .120433D+05, .920452D+04, .703584D+04, .538016D+04,
     +  .411548D+04, .315003D+04, .241254D+04, .184946D+04,
     +  .141922D+04, .109061D+04, .839361D+03, .647294D+03,
     +  .500282D+03, .387733D+03, .301440D+03, .235257D+03,
     +  .183730D+03, .144709D+03, .114581D+03, .912857D+02,
     +  .732031D+02, .591329D+02, .481627D+02, .395357D+02,
     +  .327320D+02, .273434D+02, .230445D+02, .195965D+02 /
        DATA (UPDI(I),I=7957,8008) /
     +  .168064D+02, .145371D+02, .126705D+02, .111238D+02,
     +  .982856D+01, .873452D+01, .780054D+01, .699867D+01,
     +  .629623D+01, .568317D+01, .513636D+01, .464992D+01,
     +  .421212D+01, .381584D+01, .345507D+01, .312526D+01,
     +  .282267D+01, .254439D+01, .228807D+01, .205181D+01,
     +  .183405D+01, .163351D+01, .144912D+01, .127980D+01,
     +  .112548D+01, .983734D+00, .854876D+00, .738191D+00,
     +  .633045D+00, .538776D+00, .454763D+00, .380356D+00,
     +  .314948D+00, .257899D+00, .208482D+00, .166514D+00,
     +  .130743D+00, .100857D+00, .762456D-01, .562997D-01,
     +  .404471D-01, .281154D-01, .188033D-01, .119483D-01,
     +  .715055D-02, .394602D-02, .195085D-02, .822424D-03,
     +  .270202D-03, .573278D-04, .462166D-05, .000000D+00 /
        DATA (UPDI(I),I=8009,8060) /
     +  .176224D+06, .223088D+06, .170123D+06, .129695D+06,
     +  .988596D+05, .753337D+05, .573994D+05, .437234D+05,
     +  .333031D+05, .253610D+05, .193127D+05, .147050D+05,
     +  .111976D+05, .852673D+04, .649449D+04, .494746D+04,
     +  .377068D+04, .287503D+04, .219381D+04, .167533D+04,
     +  .128094D+04, .980668D+03, .752129D+03, .577987D+03,
     +  .445299D+03, .344058D+03, .266811D+03, .206982D+03,
     +  .161921D+03, .127324D+03, .100727D+03, .802025D+02,
     +  .643280D+02, .520260D+02, .424108D+02, .348738D+02,
     +  .289404D+02, .242345D+02, .204818D+02, .174616D+02,
     +  .150181D+02, .130181D+02, .113686D+02, .999347D+01,
     +  .883686D+01, .785350D+01, .701262D+01, .627896D+01,
     +  .564124D+01, .507479D+01, .457304D+01, .412348D+01 /
        DATA (UPDI(I),I=8061,8112) /
     +  .371844D+01, .335147D+01, .301768D+01, .271302D+01,
     +  .243432D+01, .217900D+01, .194497D+01, .173048D+01,
     +  .153407D+01, .135453D+01, .119060D+01, .104206D+01,
     +  .906420D+00, .783840D+00, .673496D+00, .574658D+00,
     +  .486578D+00, .408558D+00, .339881D+00, .279889D+00,
     +  .227901D+00, .183155D+00, .145407D+00, .113452D+00,
     +  .869427D-01, .652731D-01, .478458D-01, .341072D-01,
     +  .235102D-01, .155823D-01, .980355D-02, .580311D-02,
     +  .316304D-02, .154177D-02, .639190D-03, .205882D-03,
     +  .428242D-04, .348967D-05, .000000D+00, .382730D+06,
     +  .294889D+06, .224018D+06, .170118D+06, .129156D+06,
     +  .980204D+05, .743738D+05, .564124D+05, .427803D+05,
     +  .324326D+05, .245842D+05, .186307D+05, .141182D+05 /
        DATA (UPDI(I),I=8113,8164) /
     +  .106972D+05, .810584D+04, .614238D+04, .465581D+04,
     +  .352994D+04, .267784D+04, .203265D+04, .154443D+04,
     +  .117476D+04, .894945D+03, .682970D+03, .522401D+03,
     +  .400638D+03, .308317D+03, .237279D+03, .184129D+03,
     +  .143602D+03, .112662D+03, .889573D+02, .707539D+02,
     +  .567510D+02, .458853D+02, .374306D+02, .308219D+02,
     +  .256174D+02, .214947D+02, .181987D+02, .155483D+02,
     +  .133917D+02, .116228D+02, .101558D+02, .892808D+01,
     +  .788933D+01, .700522D+01, .623748D+01, .557328D+01,
     +  .498620D+01, .446878D+01, .400761D+01, .359435D+01,
     +  .322206D+01, .288540D+01, .257998D+01, .230231D+01,
     +  .204956D+01, .181938D+01, .160982D+01, .141919D+01,
     +  .124612D+01, .108915D+01, .947894D+00, .819785D+00 /
        DATA (UPDI(I),I=8165,8216) /
     +  .704813D+00, .602037D+00, .510626D+00, .429740D+00,
     +  .358605D+00, .296440D+00, .242538D+00, .196181D+00,
     +  .156580D+00, .123434D+00, .955990D-01, .726994D-01,
     +  .541414D-01, .393504D-01, .277999D-01, .189783D-01,
     +  .124494D-01, .774436D-02, .452775D-02, .243394D-02,
     +  .116793D-02, .475505D-03, .150001D-03, .305890D-04,
     +  .252137D-05, .000000D+00, .504350D+06, .387191D+06,
     +  .292901D+06, .221479D+06, .167420D+06, .126500D+06,
     +  .955517D+05, .721446D+05, .544558D+05, .410880D+05,
     +  .309941D+05, .233721D+05, .176216D+05, .132827D+05,
     +  .100116D+05, .754533D+04, .568735D+04, .428736D+04,
     +  .323329D+04, .243942D+04, .184195D+04, .139207D+04,
     +  .105348D+04, .798474D+03, .606461D+03, .461743D+03 /
        DATA (UPDI(I),I=8217,8268) /
     +  .352710D+03, .269356D+03, .207402D+03, .160482D+03,
     +  .124904D+03, .978366D+02, .771959D+02, .614313D+02,
     +  .492841D+02, .398990D+02, .326131D+02, .269140D+02,
     +  .224284D+02, .188647D+02, .160156D+02, .137104D+02,
     +  .118292D+02, .102771D+02, .898408D+01, .789513D+01,
     +  .697242D+01, .617476D+01, .548778D+01, .488342D+01,
     +  .435332D+01, .388325D+01, .346420D+01, .308877D+01,
     +  .275118D+01, .244670D+01, .217156D+01, .192265D+01,
     +  .169740D+01, .149363D+01, .130948D+01, .114340D+01,
     +  .993744D+00, .859969D+00, .739465D+00, .632053D+00,
     +  .536697D+00, .452472D+00, .378467D+00, .313845D+00,
     +  .257779D+00, .209522D+00, .168334D+00, .133414D+00,
     +  .104414D+00, .802584D-01, .605521D-01, .447214D-01 /
        DATA (UPDI(I),I=8269,8320) /
     +  .322192D-01, .225499D-01, .152399D-01, .988924D-02,
     +  .607871D-02, .350739D-02, .185764D-02, .876376D-03,
     +  .349776D-03, .107808D-03, .214967D-04, .179420D-05,
     +  .000000D+00, .658477D+06, .503621D+06, .379313D+06,
     +  .285552D+06, .214885D+06, .161625D+06, .121520D+06,
     +  .913207D+05, .686014D+05, .515102D+05, .386642D+05,
     +  .290096D+05, .217600D+05, .163165D+05, .122327D+05,
     +  .916910D+04, .687279D+04, .515148D+04, .386227D+04,
     +  .289653D+04, .217367D+04, .163240D+04, .122736D+04,
     +  .924076D+03, .697066D+03, .527007D+03, .399680D+03,
     +  .302962D+03, .231541D+03, .177809D+03, .137336D+03,
     +  .106755D+03, .835920D+02, .660228D+02, .525766D+02,
     +  .422582D+02, .343002D+02, .281157D+02, .232778D+02 /
        DATA (UPDI(I),I=8321,8372) /
     +  .194569D+02, .164191D+02, .139741D+02, .119887D+02,
     +  .103583D+02, .900610D+01, .787227D+01, .691559D+01,
     +  .609213D+01, .538602D+01, .476765D+01, .422778D+01,
     +  .375141D+01, .332889D+01, .295238D+01, .261567D+01,
     +  .231374D+01, .204249D+01, .179859D+01, .157923D+01,
     +  .138203D+01, .120497D+01, .104629D+01, .904243D+00,
     +  .778097D+00, .665219D+00, .565281D+00, .477161D+00,
     +  .399862D+00, .332414D+00, .273931D+00, .223554D+00,
     +  .180510D+00, .144046D+00, .113363D+00, .880817D-01,
     +  .671924D-01, .502935D-01, .368362D-01, .263053D-01,
     +  .182388D-01, .122023D-01, .783240D-02, .475703D-02,
     +  .270871D-02, .141341D-02, .655537D-03, .256486D-03,
     +  .772542D-04, .150696D-04, .127406D-05, .000000D+00 /
        DATA (UPDI(I),I=8373,8424) /
     +  .850765D+06, .648230D+06, .486070D+06, .364286D+06,
     +  .272894D+06, .204315D+06, .152902D+06, .114362D+06,
     +  .854993D+05, .638862D+05, .477171D+05, .356223D+05,
     +  .265837D+05, .198299D+05, .147881D+05, .110247D+05,
     +  .821815D+04, .612524D+04, .456593D+04, .340411D+04,
     +  .253920D+04, .189515D+04, .141591D+04, .105914D+04,
     +  .793658D+03, .595961D+03, .448848D+03, .337800D+03,
     +  .256318D+03, .195412D+03, .149832D+03, .115620D+03,
     +  .898765D+02, .704797D+02, .557312D+02, .444873D+02,
     +  .358698D+02, .292141D+02, .240379D+02, .199729D+02,
     +  .167578D+02, .141831D+02, .121020D+02, .104007D+02,
     +  .899560D+01, .782230D+01, .683636D+01, .599121D+01,
     +  .526955D+01, .464035D+01, .409354D+01, .361335D+01 /
        DATA (UPDI(I),I=8425,8476) /
     +  .318958D+01, .281392D+01, .247979D+01, .218185D+01,
     +  .191573D+01, .167787D+01, .146523D+01, .127527D+01,
     +  .110576D+01, .954823D+00, .820560D+00, .702102D+00,
     +  .596798D+00, .504185D+00, .423072D+00, .352402D+00,
     +  .291163D+00, .238435D+00, .193336D+00, .155083D+00,
     +  .122918D+00, .960554D-01, .740938D-01, .560933D-01,
     +  .416529D-01, .302534D-01, .214142D-01, .147083D-01,
     +  .974102D-02, .618462D-02, .371136D-02, .208545D-02,
     +  .107207D-02, .488828D-03, .187515D-03, .552135D-04,
     +  .105445D-04, .902923D-06, .000000D+00, .108725D+07,
     +  .825307D+06, .616125D+06, .459700D+06, .342819D+06,
     +  .255497D+06, .190321D+06, .141683D+06, .105422D+06,
     +  .783934D+05, .582663D+05, .432817D+05, .321367D+05 /
        DATA (UPDI(I),I=8477,8528) /
     +  .238492D+05, .176926D+05, .131199D+05, .972702D+04,
     +  .720982D+04, .534412D+04, .396136D+04, .293748D+04,
     +  .217924D+04, .161815D+04, .120282D+04, .895536D+03,
     +  .668046D+03, .499779D+03, .373541D+03, .281488D+03,
     +  .213112D+03, .162263D+03, .124340D+03, .959855D+02,
     +  .747582D+02, .587189D+02, .465674D+02, .373101D+02,
     +  .302023D+02, .247051D+02, .204111D+02, .170316D+02,
     +  .143381D+02, .121704D+02, .104057D+02, .895421D+01,
     +  .774692D+01, .673639D+01, .587362D+01, .513993D+01,
     +  .450302D+01, .395196D+01, .347034D+01, .304739D+01,
     +  .267438D+01, .234438D+01, .205176D+01, .179187D+01,
     +  .156094D+01, .135573D+01, .117352D+01, .101194D+01,
     +  .868968D+00, .742586D+00, .631796D+00, .533948D+00 /
        DATA (UPDI(I),I=8529,8580) /
     +  .448458D+00, .374082D+00, .309719D+00, .254326D+00,
     +  .206961D+00, .166737D+00, .132864D+00, .104593D+00,
     +  .811587D-01, .621488D-01, .466924D-01, .343964D-01,
     +  .247740D-01, .173807D-01, .118255D-01, .775256D-02,
     +  .486847D-02, .288653D-02, .160054D-02, .810588D-03,
     +  .363362D-03, .136672D-03, .393544D-04, .736409D-05,
     +  .638584D-06, .000000D+00, .137425D+07, .103931D+07,
     +  .772509D+06, .573848D+06, .426040D+06, .316091D+06,
     +  .234384D+06, .173680D+06, .128625D+06, .951934D+05,
     +  .704124D+05, .520486D+05, .384544D+05, .283938D+05,
     +  .209561D+05, .154590D+05, .114004D+05, .840446D+04,
     +  .619530D+04, .456651D+04, .336681D+04, .248314D+04,
     +  .183279D+04, .135406D+04, .100188D+04, .742626D+03 /
        DATA (UPDI(I),I=8581,8632) /
     +  .551993D+03, .409830D+03, .306792D+03, .230723D+03,
     +  .174497D+03, .132825D+03, .101858D+03, .788178D+02,
     +  .615135D+02, .484821D+02, .386113D+02, .310750D+02,
     +  .252770D+02, .207708D+02, .172409D+02, .144400D+02,
     +  .121952D+02, .103751D+02, .888369D+01, .764790D+01,
     +  .661741D+01, .574103D+01, .499874D+01, .435710D+01,
     +  .380439D+01, .332358D+01, .290339D+01, .253470D+01,
     +  .221025D+01, .192412D+01, .167143D+01, .144820D+01,
     +  .125100D+01, .107695D+01, .923563D+00, .788679D+00,
     +  .670190D+00, .566978D+00, .476410D+00, .397797D+00,
     +  .329856D+00, .271455D+00, .221534D+00, .179142D+00,
     +  .143395D+00, .113508D+00, .887478D-01, .683767D-01,
     +  .519797D-01, .387544D-01, .283210D-01, .202271D-01 /
        DATA (UPDI(I),I=8633,8684) /
     +  .140648D-01, .947903D-02, .615114D-02, .382054D-02,
     +  .223797D-02, .122448D-02, .610926D-03, .269239D-03,
     +  .993092D-04, .279743D-04, .513279D-05, .450679D-06,
     +  .000000D+00, .171827D+07, .129478D+07, .958272D+06,
     +  .708764D+06, .523904D+06, .386979D+06, .285662D+06,
     +  .210717D+06, .155336D+06, .114427D+06, .842389D+05,
     +  .619708D+05, .455623D+05, .334760D+05, .245831D+05,
     +  .180421D+05, .132362D+05, .970637D+04, .711653D+04,
     +  .521682D+04, .382481D+04, .280488D+04, .205826D+04,
     +  .151165D+04, .111174D+04, .819005D+03, .604977D+03,
     +  .446300D+03, .331968D+03, .248062D+03, .186410D+03,
     +  .140990D+03, .107438D+03, .826222D+02, .640923D+02,
     +  .502178D+02, .397659D+02, .318284D+02, .257522D+02 /
        DATA (UPDI(I),I=8685,8736) /
     +  .210523D+02, .173868D+02, .144906D+02, .121784D+02,
     +  .103108D+02, .878596D+01, .752709D+01, .648121D+01,
     +  .559509D+01, .484752D+01, .420401D+01, .365211D+01,
     +  .317423D+01, .275860D+01, .239576D+01, .207812D+01,
     +  .179952D+01, .155486D+01, .133996D+01, .115123D+01,
     +  .985666D+00, .840627D+00, .713873D+00, .603215D+00,
     +  .507431D+00, .423918D+00, .351897D+00, .290063D+00,
     +  .237265D+00, .192438D+00, .154633D+00, .122977D+00,
     +  .967005D-01, .750908D-01, .574443D-01, .433502D-01,
     +  .320731D-01, .232507D-01, .164660D-01, .113476D-01,
     +  .757526D-02, .486564D-02, .298892D-02, .172971D-02,
     +  .933818D-03, .458979D-03, .198865D-03, .719407D-04,
     +  .198313D-04, .357049D-05, .317389D-06, .000000D+00 /
        DATA (UPDI(I),I=8737,8788) /
     +  .212584D+07, .159621D+07, .117640D+07, .866412D+06,
     +  .637686D+06, .468980D+06, .344673D+06, .253115D+06,
     +  .185751D+06, .136207D+06, .998090D+05, .730806D+05,
     +  .534747D+05, .390997D+05, .285719D+05, .208651D+05,
     +  .152297D+05, .111107D+05, .810347D+04, .590862D+04,
     +  .430849D+04, .314211D+04, .229274D+04, .167421D+04,
     +  .122412D+04, .896440D+03, .658201D+03, .482577D+03,
     +  .356757D+03, .264951D+03, .197881D+03, .148756D+03,
     +  .112674D+03, .861399D+02, .664365D+02, .517640D+02,
     +  .407687D+02, .324607D+02, .261308D+02, .212567D+02,
     +  .174711D+02, .144918D+02, .121220D+02, .102148D+02,
     +  .866304D+01, .738641D+01, .632957D+01, .543749D+01,
     +  .468781D+01, .404516D+01, .349638D+01, .302339D+01 /
        DATA (UPDI(I),I=8789,8840) /
     +  .261397D+01, .225835D+01, .194866D+01, .167850D+01,
     +  .144257D+01, .123651D+01, .105660D+01, .899707D+00,
     +  .763096D+00, .644435D+00, .541479D+00, .452918D+00,
     +  .376194D+00, .310453D+00, .254380D+00, .206817D+00,
     +  .166707D+00, .133111D+00, .105176D+00, .821532D-01,
     +  .633580D-01, .481240D-01, .360507D-01, .264677D-01,
     +  .190331D-01, .133652D-01, .912841D-02, .603577D-02,
     +  .383717D-02, .233116D-02, .133274D-02, .709923D-03,
     +  .343739D-03, .146427D-03, .519588D-04, .140215D-04,
     +  .247888D-05, .223052D-06, .000000D+00, .260334D+07,
     +  .194799D+07, .142975D+07, .104863D+07, .768557D+06,
     +  .562827D+06, .411865D+06, .301142D+06, .220020D+06,
     +  .160616D+06, .117162D+06, .853932D+05, .621932D+05 /
        DATA (UPDI(I),I=8841,8892) /
     +  .452599D+05, .329149D+05, .239196D+05, .173729D+05,
     +  .126106D+05, .915042D+04, .663735D+04, .481429D+04,
     +  .349211D+04, .253421D+04, .184026D+04, .133794D+04,
     +  .974164D+03, .711124D+03, .518289D+03, .380906D+03,
     +  .281222D+03, .208800D+03, .156053D+03, .117523D+03,
     +  .893446D+02, .685312D+02, .531132D+02, .416165D+02,
     +  .329713D+02, .264138D+02, .213859D+02, .174959D+02,
     +  .144459D+02, .120284D+02, .100894D+02, .851701D+01,
     +  .722782D+01, .616431D+01, .526987D+01, .452111D+01,
     +  .388188D+01, .333838D+01, .287208D+01, .247038D+01,
     +  .212322D+01, .182246D+01, .156150D+01, .133486D+01,
     +  .113804D+01, .967198D+00, .819084D+00, .690890D+00,
     +  .580215D+00, .484776D+00, .403190D+00, .332955D+00 /
        DATA (UPDI(I),I=8893,8944) /
     +  .273161D+00, .222490D+00, .179793D+00, .144027D+00,
     +  .114274D+00, .897069D-01, .696033D-01, .533111D-01,
     +  .402040D-01, .298965D-01, .217803D-01, .155361D-01,
     +  .108171D-01, .732183D-02, .479500D-02, .301708D-02,
     +  .181267D-02, .102374D-02, .538050D-03, .256639D-03,
     +  .107486D-03, .374175D-04, .988821D-05, .171775D-05,
     +  .156433D-06, .000000D+00, .643478D+05, .926892D+05,
     +  .709770D+05, .543567D+05, .416338D+05, .318938D+05,
     +  .244369D+05, .187275D+05, .143558D+05, .110080D+05,
     +  .844406D+04, .648011D+04, .497552D+04, .382262D+04,
     +  .293901D+04, .226159D+04, .174209D+04, .134353D+04,
     +  .103763D+04, .802704D+03, .622177D+03, .483345D+03,
     +  .376481D+03, .294136D+03, .230604D+03, .181514D+03 /
        DATA (UPDI(I),I=8945,8996) /
     +  .143517D+03, .113678D+03, .908530D+02, .730541D+02,
     +  .591289D+02, .481931D+02, .395675D+02, .327489D+02,
     +  .272992D+02, .229301D+02, .194026D+02, .165331D+02,
     +  .141797D+02, .122320D+02, .106083D+02, .924023D+01,
     +  .807816D+01, .708280D+01, .622373D+01, .547726D+01,
     +  .482709D+01, .425237D+01, .374850D+01, .329995D+01,
     +  .290370D+01, .255177D+01, .223894D+01, .196079D+01,
     +  .171353D+01, .149386D+01, .129892D+01, .112618D+01,
     +  .973368D+00, .838465D+00, .719642D+00, .615241D+00,
     +  .523758D+00, .444175D+00, .374437D+00, .313940D+00,
     +  .261660D+00, .216671D+00, .178139D+00, .145306D+00,
     +  .117491D+00, .940799D-01, .745062D-01, .582612D-01,
     +  .450245D-01, .341942D-01, .255082D-01, .186384D-01 /
        DATA (UPDI(I),I=8997,9048) /
     +  .132932D-01, .921405D-02, .617224D-02, .396977D-02,
     +  .241964D-02, .138420D-02, .726770D-03, .339395D-03,
     +  .133738D-03, .402878D-04, .743385D-05, .413568D-06,
     +  .000000D+00, .145677D+06, .113087D+06, .866679D+05,
     +  .664186D+05, .509034D+05, .390125D+05, .299021D+05,
     +  .229202D+05, .175712D+05, .134720D+05, .103314D+05,
     +  .792469D+04, .608074D+04, .466750D+04, .358460D+04,
     +  .275448D+04, .211824D+04, .163034D+04, .125622D+04,
     +  .969166D+03, .748902D+03, .579740D+03, .449786D+03,
     +  .349841D+03, .272927D+03, .213651D+03, .167927D+03,
     +  .132135D+03, .104866D+03, .836865D+02, .671982D+02,
     +  .543117D+02, .442061D+02, .362625D+02, .299561D+02,
     +  .249323D+02, .209066D+02, .176548D+02, .150094D+02 /
        DATA (UPDI(I),I=9049,9100) /
     +  .128369D+02, .110411D+02, .954032D+01, .827656D+01,
     +  .720301D+01, .628451D+01, .549295D+01, .480933D+01,
     +  .420981D+01, .368849D+01, .322793D+01, .282416D+01,
     +  .246815D+01, .215395D+01, .187649D+01, .163147D+01,
     +  .141522D+01, .122450D+01, .105652D+01, .908814D+00,
     +  .779175D+00, .665632D+00, .566444D+00, .479983D+00,
     +  .405183D+00, .339978D+00, .283716D+00, .235350D+00,
     +  .193953D+00, .158683D+00, .128792D+00, .103605D+00,
     +  .825234D-01, .650009D-01, .505393D-01, .388274D-01,
     +  .293047D-01, .217169D-01, .157577D-01, .111546D-01,
     +  .766994D-02, .509273D-02, .324452D-02, .195660D-02,
     +  .110620D-02, .573026D-03, .263932D-03, .102337D-03,
     +  .302523D-04, .548348D-05, .309451D-06, .000000D+00 /
        DATA (UPDI(I),I=9101,9152) /
     +  .181444D+06, .140771D+06, .107806D+06, .825477D+05,
     +  .632053D+05, .483885D+05, .370448D+05, .283574D+05,
     +  .217080D+05, .166169D+05, .127211D+05, .973885D+04,
     +  .745723D+04, .571098D+04, .437517D+04, .335288D+04,
     +  .257091D+04, .197245D+04, .151462D+04, .116416D+04,
     +  .895961D+03, .690549D+03, .533240D+03, .412638D+03,
     +  .320160D+03, .249152D+03, .194610D+03, .152093D+03,
     +  .119853D+03, .949316D+02, .756347D+02, .606346D+02,
     +  .489418D+02, .398061D+02, .326014D+02, .268999D+02,
     +  .223641D+02, .187261D+02, .157891D+02, .133951D+02,
     +  .114319D+02, .980385D+01, .844383D+01, .729745D+01,
     +  .632443D+01, .549225D+01, .477909D+01, .415825D+01,
     +  .362240D+01, .315233D+01, .274310D+01, .238469D+01 /
        DATA (UPDI(I),I=9153,9204) /
     +  .207045D+01, .179473D+01, .155276D+01, .134047D+01,
     +  .115435D+01, .991365D+00, .848844D+00, .724449D+00,
     +  .616082D+00, .521930D+00, .440272D+00, .369995D+00,
     +  .309043D+00, .256722D+00, .211971D+00, .173866D+00,
     +  .141567D+00, .114338D+00, .915147D-01, .725151D-01,
     +  .568137D-01, .439267D-01, .335523D-01, .251691D-01,
     +  .185321D-01, .133554D-01, .938541D-02, .640357D-02,
     +  .421603D-02, .266173D-02, .158906D-02, .888560D-03,
     +  .454618D-03, .206161D-03, .784750D-04, .227007D-04,
     +  .402911D-05, .230985D-06, .000000D+00, .228346D+06,
     +  .176882D+06, .135209D+06, .103328D+06, .789548D+05,
     +  .603159D+05, .460725D+05, .351847D+05, .268681D+05,
     +  .205134D+05, .156615D+05, .119557D+05, .912740D+04 /
        DATA (UPDI(I),I=9205,9256) /
     +  .696806D+04, .532063D+04, .406324D+04, .310423D+04,
     +  .237243D+04, .181436D+04, .138854D+04, .106381D+04,
     +  .815970D+03, .626892D+03, .482497D+03, .372234D+03,
     +  .287933D+03, .223483D+03, .173478D+03, .135752D+03,
     +  .106740D+03, .844004D+02, .671336D+02, .537548D+02,
     +  .433663D+02, .352270D+02, .288285D+02, .237734D+02,
     +  .197470D+02, .165200D+02, .139086D+02, .117830D+02,
     +  .100332D+02, .858225D+01, .736817D+01, .634524D+01,
     +  .547662D+01, .473752D+01, .409852D+01, .355079D+01,
     +  .307345D+01, .266060D+01, .230129D+01, .198821D+01,
     +  .171515D+01, .147690D+01, .126908D+01, .108788D+01,
     +  .930074D+00, .792814D+00, .673640D+00, .570356D+00,
     +  .481084D+00, .404034D+00, .338056D+00, .281112D+00 /
        DATA (UPDI(I),I=9257,9308) /
     +  .232474D+00, .191078D+00, .156007D+00, .126428D+00,
     +  .101620D+00, .809326D-01, .638030D-01, .497260D-01,
     +  .382353D-01, .290391D-01, .216530D-01, .158424D-01,
     +  .113409D-01, .791310D-02, .535815D-02, .349871D-02,
     +  .218939D-02, .129432D-02, .716037D-03, .361974D-03,
     +  .161955D-03, .607039D-04, .172625D-04, .301935D-05,
     +  .173783D-06, .000000D+00, .176316D+06, .222769D+06,
     +  .169841D+06, .129445D+06, .986387D+05, .751385D+05,
     +  .572269D+05, .435711D+05, .331688D+05, .252426D+05,
     +  .192084D+05, .146132D+05, .111169D+05, .845580D+04,
     +  .643221D+04, .489284D+04, .372280D+04, .283311D+04,
     +  .215713D+04, .164326D+04, .125293D+04, .956212D+03,
     +  .730789D+03, .559375D+03, .429067D+03, .329899D+03 /
        DATA (UPDI(I),I=9309,9360) /
     +  .254454D+03, .196208D+03, .152493D+03, .119055D+03,
     +  .934514D+02, .737757D+02, .586213D+02, .469265D+02,
     +  .378219D+02, .307111D+02, .251307D+02, .207160D+02,
     +  .172021D+02, .143782D+02, .120958D+02, .102299D+02,
     +  .869353D+01, .741680D+01, .634845D+01, .544735D+01,
     +  .468570D+01, .403146D+01, .347427D+01, .299171D+01,
     +  .257690D+01, .221803D+01, .190715D+01, .163754D+01,
     +  .140362D+01, .120068D+01, .102467D+01, .872192D+00,
     +  .740240D+00, .626252D+00, .527955D+00, .443414D+00,
     +  .370793D+00, .308909D+00, .255754D+00, .210571D+00,
     +  .172302D+00, .140037D+00, .112960D+00, .903632D-01,
     +  .716153D-01, .561735D-01, .435529D-01, .333068D-01,
     +  .251540D-01, .186451D-01, .135567D-01, .964084D-02 /
        DATA (UPDI(I),I=9361,9412) /
     +  .667982D-02, .448937D-02, .290776D-02, .180384D-02,
     +  .105622D-02, .578220D-03, .288895D-03, .127572D-03,
     +  .471043D-04, .131753D-04, .227294D-05, .132821D-06,
     +  .000000D+00, .382348D+06, .294550D+06, .223718D+06,
     +  .169853D+06, .128921D+06, .978134D+05, .741911D+05,
     +  .562512D+05, .426382D+05, .323074D+05, .244740D+05,
     +  .185338D+05, .140330D+05, .106224D+05, .804014D+04,
     +  .608476D+04, .460533D+04, .348574D+04, .263916D+04,
     +  .199884D+04, .151489D+04, .114896D+04, .872426D+03,
     +  .663316D+03, .505246D+03, .385656D+03, .295225D+03,
     +  .225846D+03, .174107D+03, .134796D+03, .104898D+03,
     +  .820848D+02, .646391D+02, .512768D+02, .409521D+02,
     +  .329514D+02, .267217D+02, .218331D+02, .179730D+02 /
        DATA (UPDI(I),I=9413,9464) /
     +  .148963D+02, .124296D+02, .104294D+02, .879564D+01,
     +  .744887D+01, .633073D+01, .539497D+01, .461004D+01,
     +  .394086D+01, .337512D+01, .288871D+01, .247352D+01,
     +  .211680D+01, .180987D+01, .154545D+01, .131751D+01,
     +  .112101D+01, .951643D+00, .805810D+00, .680368D+00,
     +  .572647D+00, .480297D+00, .401333D+00, .333883D+00,
     +  .276734D+00, .227922D+00, .186670D+00, .151929D+00,
     +  .122809D+00, .985140D-01, .783599D-01, .617396D-01,
     +  .481358D-01, .370897D-01, .281801D-01, .211393D-01,
     +  .155584D-01, .112281D-01, .792207D-02, .544302D-02,
     +  .362546D-02, .232546D-02, .142756D-02, .826239D-03,
     +  .446555D-03, .219899D-03, .955048D-04, .345805D-04,
     +  .945071D-05, .159216D-05, .948074D-07, .000000D+00 /
        DATA (UPDI(I),I=9465,9516) /
     +  .503944D+06, .386832D+06, .292583D+06, .221198D+06,
     +  .167172D+06, .126281D+06, .953584D+05, .719741D+05,
     +  .543055D+05, .409557D+05, .308777D+05, .232698D+05,
     +  .175316D+05, .132037D+05, .994231D+04, .748459D+04,
     +  .563414D+04, .424078D+04, .319254D+04, .240379D+04,
     +  .181082D+04, .136487D+04, .102972D+04, .777728D+03,
     +  .588337D+03, .445899D+03, .338849D+03, .257235D+03,
     +  .196761D+03, .151116D+03, .116632D+03, .905027D+02,
     +  .706606D+02, .555731D+02, .440001D+02, .350996D+02,
     +  .282212D+02, .228650D+02, .186680D+02, .153486D+02,
     +  .127075D+02, .105824D+02, .885964D+01, .745021D+01,
     +  .628869D+01, .532372D+01, .452009D+01, .383982D+01,
     +  .326871D+01, .278105D+01, .236758D+01, .201470D+01 /
        DATA (UPDI(I),I=9517,9568) /
     +  .171303D+01, .145480D+01, .123357D+01, .104404D+01,
     +  .881656D+00, .742673D+00, .623825D+00, .522360D+00,
     +  .435875D+00, .362349D+00, .299895D+00, .247277D+00,
     +  .202591D+00, .165041D+00, .133599D+00, .107398D+00,
     +  .856672D-01, .677483D-01, .530619D-01, .411172D-01,
     +  .314820D-01, .237617D-01, .177033D-01, .129359D-01,
     +  .926511D-02, .648503D-02, .441807D-02, .291630D-02,
     +  .185245D-02, .112534D-02, .643887D-03, .343654D-03,
     +  .166875D-03, .713504D-04, .253816D-04, .680399D-05,
     +  .112826D-05, .679097D-07, .000000D+00, .658047D+06,
     +  .503240D+06, .378976D+06, .285255D+06, .214623D+06,
     +  .161393D+06, .121315D+06, .911405D+05, .684427D+05,
     +  .513705D+05, .385413D+05, .289016D+05, .216651D+05 /
        DATA (UPDI(I),I=9569,9620) /
     +  .162332D+05, .121597D+05, .910510D+04, .681673D+04,
     +  .510241D+04, .381934D+04, .285899D+04, .214086D+04,
     +  .160373D+04, .120230D+04, .902184D+03, .677927D+03,
     +  .510260D+03, .385014D+03, .290121D+03, .220253D+03,
     +  .167860D+03, .128538D+03, .989440D+02, .766239D+02,
     +  .597715D+02, .469357D+02, .371354D+02, .296160D+02,
     +  .238038D+02, .192824D+02, .157328D+02, .129289D+02,
     +  .106892D+02, .888639D+01, .742201D+01, .622359D+01,
     +  .523486D+01, .441705D+01, .372943D+01, .315599D+01,
     +  .266955D+01, .225977D+01, .191227D+01, .161704D+01,
     +  .136589D+01, .115203D+01, .969906D+00, .814791D+00,
     +  .682803D+00, .570586D+00, .475331D+00, .394601D+00,
     +  .326355D+00, .268708D+00, .220412D+00, .179628D+00 /
        DATA (UPDI(I),I=9621,9672) /
     +  .145552D+00, .117183D+00, .936797D-01, .743013D-01,
     +  .584187D-01, .454813D-01, .350262D-01, .266481D-01,
     +  .199796D-01, .147834D-01, .107244D-01, .762287D-02,
     +  .529293D-02, .357540D-02, .233879D-02, .147119D-02,
     +  .884433D-03, .500278D-03, .263684D-03, .126275D-03,
     +  .531606D-04, .185853D-04, .489000D-05, .799053D-06,
     +  .490608D-07, .000000D+00, .850309D+06, .647826D+06,
     +  .485714D+06, .363971D+06, .272616D+06, .204069D+06,
     +  .152686D+06, .114172D+06, .853317D+05, .637388D+05,
     +  .475875D+05, .355084D+05, .264837D+05, .197422D+05,
     +  .147112D+05, .109573D+05, .815910D+04, .607356D+04,
     +  .452072D+04, .336457D+04, .250463D+04, .186494D+04,
     +  .138950D+04, .103605D+04, .773455D+03, .578269D+03 /
        DATA (UPDI(I),I=9673,9724) /
     +  .433339D+03, .324208D+03, .244357D+03, .184859D+03,
     +  .140489D+03, .107317D+03, .824644D+02, .638273D+02,
     +  .497285D+02, .390389D+02, .308937D+02, .246421D+02,
     +  .198125D+02, .160475D+02, .130938D+02, .107506D+02,
     +  .887721D+01, .736579D+01, .613704D+01, .512996D+01,
     +  .430237D+01, .361100D+01, .303809D+01, .255517D+01,
     +  .215088D+01, .181014D+01, .152241D+01, .127910D+01,
     +  .107314D+01, .898773D+00, .751122D+00, .626205D+00,
     +  .520604D+00, .431471D+00, .356355D+00, .293210D+00,
     +  .240165D+00, .195974D+00, .158865D+00, .128036D+00,
     +  .102518D+00, .814994D-01, .642724D-01, .502383D-01,
     +  .388774D-01, .297550D-01, .224931D-01, .167518D-01,
     +  .123096D-01, .886496D-02, .625325D-02, .430712D-02 /
        DATA (UPDI(I),I=9725,9776) /
     +  .288479D-02, .186999D-02, .116488D-02, .692996D-03,
     +  .387531D-03, .201722D-03, .952755D-04, .394979D-04,
     +  .135743D-04, .350694D-05, .564976D-06, .353858D-07,
     +  .000000D+00, .108677D+07, .824880D+06, .615747D+06,
     +  .459367D+06, .342525D+06, .255238D+06, .190093D+06,
     +  .141482D+06, .105245D+06, .782378D+05, .581296D+05,
     +  .431616D+05, .320313D+05, .237567D+05, .176116D+05,
     +  .130489D+05, .966486D+04, .715541D+04, .529652D+04,
     +  .391973D+04, .290108D+04, .214741D+04, .159032D+04,
     +  .117847D+04, .874220D+03, .649365D+03, .483390D+03,
     +  .359165D+03, .268826D+03, .201930D+03, .152356D+03,
     +  .115531D+03, .881190D+02, .676977D+02, .523505D+02,
     +  .407924D+02, .320438D+02, .253741D+02, .202556D+02 /
        DATA (UPDI(I),I=9777,9828) /
     +  .162919D+02, .132026D+02, .107679D+02, .883374D+01,
     +  .728331D+01, .603078D+01, .501063D+01, .417750D+01,
     +  .348580D+01, .291610D+01, .243882D+01, .204164D+01,
     +  .170890D+01, .142957D+01, .119475D+01, .997128D+00,
     +  .830770D+00, .690706D+00, .572878D+00, .473828D+00,
     +  .390692D+00, .321019D+00, .262775D+00, .214117D+00,
     +  .173805D+00, .140144D+00, .112338D+00, .894545D-01,
     +  .707161D-01, .554490D-01, .430867D-01, .331416D-01,
     +  .252070D-01, .189327D-01, .140056D-01, .102203D-01,
     +  .730665D-02, .511466D-02, .349455D-02, .232063D-02,
     +  .149067D-02, .919567D-03, .541362D-03, .299295D-03,
     +  .153863D-03, .716778D-04, .292648D-04, .988899D-05,
     +  .250957D-05, .398771D-06, .254754D-07, .000000D+00 /
        DATA (UPDI(I),I=9829,9880) /
     +  .137374D+07, .103886D+07, .772110D+06, .573496D+06,
     +  .425730D+06, .315817D+06, .234143D+06, .173468D+06,
     +  .128438D+06, .950293D+05, .702683D+05, .519221D+05,
     +  .383434D+05, .282965D+05, .208708D+05, .153843D+05,
     +  .113349D+05, .834719D+04, .614520D+04, .452269D+04,
     +  .332849D+04, .244962D+04, .180347D+04, .132840D+04,
     +  .979395D+03, .722913D+03, .534687D+03, .394640D+03,
     +  .293403D+03, .218892D+03, .164011D+03, .123498D+03,
     +  .935281D+02, .713437D+02, .547771D+02, .423809D+02,
     +  .330577D+02, .259957D+02, .206103D+02, .164664D+02,
     +  .132567D+02, .107428D+02, .875791D+01, .717652D+01,
     +  .590664D+01, .487856D+01, .404394D+01, .335510D+01,
     +  .279111D+01, .232138D+01, .193277D+01, .160910D+01 /
        DATA (UPDI(I),I=9881,9932) /
     +  .133895D+01, .111314D+01, .924175D+00, .766005D+00,
     +  .633582D+00, .522802D+00, .430194D+00, .352894D+00,
     +  .288472D+00, .234914D+00, .190416D+00, .153755D+00,
     +  .123315D+00, .983113D-01, .778532D-01, .611984D-01,
     +  .477097D-01, .368539D-01, .281751D-01, .212955D-01,
     +  .158915D-01, .116766D-01, .846143D-02, .600497D-02,
     +  .417126D-02, .282698D-02, .186131D-02, .118478D-02,
     +  .723763D-03, .421650D-03, .230466D-03, .117014D-03,
     +  .537699D-04, .216230D-04, .718590D-05, .179192D-05,
     +  .280964D-06, .183055D-07, .000000D+00, .171773D+07,
     +  .129430D+07, .957849D+06, .708392D+06, .523576D+06,
     +  .386690D+06, .285407D+06, .210493D+06, .155139D+06,
     +  .114254D+06, .840871D+05, .618375D+05, .454455D+05 /
        DATA (UPDI(I),I=9933,9984) /
     +  .333736D+05, .244933D+05, .179634D+05, .131674D+05,
     +  .964612D+04, .706382D+04, .517071D+04, .378447D+04,
     +  .276959D+04, .202738D+04, .148461D+04, .108805D+04,
     +  .798216D+03, .586718D+03, .430264D+03, .317828D+03,
     +  .235562D+03, .175328D+03, .131133D+03, .986369D+02,
     +  .747304D+02, .569869D+02, .437923D+02, .339293D+02,
     +  .265044D+02, .208765D+02, .165722D+02, .132579D+02,
     +  .106775D+02, .865189D+01, .704748D+01, .576652D+01,
     +  .473541D+01, .390313D+01, .322014D+01, .266412D+01,
     +  .220369D+01, .182493D+01, .151125D+01, .125090D+01,
     +  .103451D+01, .854444D+00, .704556D+00, .579761D+00,
     +  .475939D+00, .389625D+00, .317974D+00, .258589D+00,
     +  .209489D+00, .168918D+00, .135677D+00, .108232D+00 /
        DATA (UPDI(I),I=9985,10036) /
     +  .858167D-01, .675819D-01, .528238D-01, .409427D-01,
     +  .314388D-01, .238886D-01, .179421D-01, .133022D-01,
     +  .970791D-02, .698567D-02, .492124D-02, .339218D-02,
     +  .228038D-02, .148860D-02, .938925D-03, .567993D-03,
     +  .327454D-03, .176950D-03, .887342D-04, .402224D-04,
     +  .159333D-04, .520864D-05, .127673D-05, .197615D-06,
     +  .131282D-07, .000000D+00, .212526D+07, .159570D+07,
     +  .117596D+07, .866019D+06, .637340D+06, .468675D+06,
     +  .344404D+06, .252879D+06, .185543D+06, .136025D+06,
     +  .996491D+05, .729403D+05, .533517D+05, .389919D+05,
     +  .284775D+05, .207823D+05, .151573D+05, .110473D+05,
     +  .804801D+04, .586011D+04, .426604D+04, .310496D+04,
     +  .226023D+04, .164573D+04, .119916D+04, .874531D+03 /
        DATA (UPDI(I),I=10037,10088) /
     +  .638951D+03, .465665D+03, .341840D+03, .251763D+03,
     +  .186189D+03, .138359D+03, .103396D+03, .778279D+02,
     +  .589626D+02, .450175D+02, .346546D+02, .268995D+02,
     +  .210552D+02, .166112D+02, .132086D+02, .105744D+02,
     +  .851809D+01, .689841D+01, .561238D+01, .458289D+01,
     +  .375651D+01, .308211D+01, .253612D+01, .208651D+01,
     +  .171870D+01, .141578D+01, .116575D+01, .959085D+00,
     +  .788054D+00, .646469D+00, .529233D+00, .432233D+00,
     +  .352031D+00, .285818D+00, .231239D+00, .186359D+00,
     +  .149479D+00, .119429D+00, .947575D-01, .747216D-01,
     +  .585167D-01, .454784D-01, .350445D-01, .267493D-01,
     +  .202008D-01, .150765D-01, .111048D-01, .804922D-02,
     +  .575148D-02, .402195D-02, .275093D-02, .183431D-02 /
        DATA (UPDI(I),I=10089,10140) /
     +  .118715D-02, .741977D-03, .444481D-03, .253577D-03,
     +  .135475D-03, .670999D-04, .300056D-04, .117098D-04,
     +  .376626D-05, .907751D-06, .138756D-06, .939719D-08,
     +  .000000D+00, .260274D+07, .194746D+07, .142928D+07,
     +  .104822D+07, .768192D+06, .562505D+06, .411582D+06,
     +  .300893D+06, .219802D+06, .160424D+06, .116994D+06,
     +  .852455D+05, .620637D+05, .451464D+05, .328155D+05,
     +  .238326D+05, .172967D+05, .125439D+05, .909209D+04,
     +  .658632D+04, .476964D+04, .345304D+04, .250000D+04,
     +  .181028D+04, .131166D+04, .951093D+03, .690848D+03,
     +  .500473D+03, .365191D+03, .267329D+03, .196487D+03,
     +  .145108D+03, .107765D+03, .806117D+02, .606913D+02,
     +  .460506D+02, .352321D+02, .271817D+02, .211485D+02 /
        DATA (UPDI(I),I=10141,10192) /
     +  .165861D+02, .131117D+02, .104364D+02, .835903D+01,
     +  .673154D+01, .544615D+01, .442265D+01, .360546D+01,
     +  .294212D+01, .240800D+01, .197054D+01, .161462D+01,
     +  .132309D+01, .108377D+01, .887022D+00, .725088D+00,
     +  .591761D+00, .481964D+00, .391610D+00, .317309D+00,
     +  .256301D+00, .206287D+00, .165385D+00, .131957D+00,
     +  .104870D+00, .827566D-01, .648999D-01, .505411D-01,
     +  .390557D-01, .299198D-01, .227010D-01, .170381D-01,
     +  .126355D-01, .924604D-02, .665620D-02, .472267D-02,
     +  .327812D-02, .222484D-02, .147146D-02, .944150D-03,
     +  .584720D-03, .346863D-03, .195823D-03, .103435D-03,
     +  .506017D-04, .223241D-04, .858381D-05, .271691D-05,
     +  .644093D-06, .972686D-07, .671403D-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

Generated by  Doxygen 1.6.0   Back to index