C----------------------------------------------------------------------- #include "pdf/pilot.h" Subroutine Ctq4RA1 (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 : CTEQ4A1 C PARAMETER (ISET=4) DATA DrI, FlI, AlI / 2., 5., .1400 / 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, .204474D+01, .267844D+01, .360520D+01, .500000D+01, + .810220D+01, .140132D+02, .260970D+02, .528569D+02, .117758D+03, + .292312D+03, .820365D+03, .264648D+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) / + .222477D+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, .894965D+05, + .682456D+05, .512150D+05, .384047D+05, .287820D+05, + .215514D+05, .161271D+05, .120567D+05, .900747D+04, + .672263D+04, .501359D+04, .373499D+04, .278018D+04 / DATA (UPDI(I),I=469,520) / + .206705D+04, .153547D+04, .113916D+04, .844322D+03, + .624942D+03, .462075D+03, .341153D+03, .251593D+03, + .185256D+03, .136243D+03, .100033D+03, .733480D+02, + .536956D+02, .392686D+02, .285382D+02, .208089D+02, + .151474D+02, .110162D+02, .800026D+01, .580611D+01, + .421375D+01, .305610D+01, .221623D+01, .160908D+01, + .116915D+01, .851416D+00, .621104D+00, .454805D+00, + .333946D+00, .246195D+00, .182125D+00, .135357D+00, + .100946D+00, .757125D-01, .568411D-01, .429433D-01, + .324522D-01, .246261D-01, .187090D-01, .142439D-01, + .108467D-01, .826772D-02, .629381D-02, .478778D-02, + .363272D-02, .275187D-02, .207585D-02, .156088D-02, + .116692D-02, .867780D-03, .641584D-03, .469796D-03 / DATA (UPDI(I),I=521,572) / + .340181D-03, .243566D-03, .171723D-03, .119066D-03, + .806131D-04, .530792D-04, .334981D-04, .199258D-04, + .106876D-04, .471897D-05, .941690D-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, .202138D+06, .153766D+06, + .115066D+06, .860373D+05, .642917D+05, .479989D+05, + .358104D+05, .266912D+05, .198793D+05, .147906D+05, + .109956D+05, .816519D+04, .605801D+04, .448925D+04, + .332352D+04, .245731D+04, .181497D+04, .133865D+04, + .986217D+03, .725475D+03, .533021D+03, .390994D+03, + .286431D+03, .209475D+03, .152974D+03, .111524D+03 / DATA (UPDI(I),I=573,624) / + .812129D+02, .587626D+02, .426567D+02, .309109D+02, + .223753D+02, .161724D+02, .116792D+02, .843384D+01, + .608507D+01, .438956D+01, .316961D+01, .229029D+01, + .165835D+01, .120278D+01, .875503D+00, .638993D+00, + .468188D+00, .344211D+00, .254206D+00, .188381D+00, + .140382D+00, .104716D+00, .785942D-01, .590065D-01, + .444808D-01, .335723D-01, .253906D-01, .192082D-01, + .145438D-01, .109990D-01, .831237D-02, .626680D-02, + .471714D-02, .353678D-02, .264387D-02, .196596D-02, + .145496D-02, .107141D-02, .782336D-03, .565944D-03, + .405842D-03, .287660D-03, .201595D-03, .139104D-03, + .945296D-04, .628843D-04, .408416D-04, .256999D-04, + .156732D-04, .903386D-05, .485191D-05, .229851D-05 / DATA (UPDI(I),I=625,676) / + .845417D-06, .761225D-07, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .342047D+06, .259541D+06, .193647D+06, + .144365D+06, .107552D+06, .800527D+05, .595403D+05, + .442401D+05, .328452D+05, .243595D+05, .180503D+05, + .133600D+05, .987903D+04, .729607D+04, .538289D+04, + .396611D+04, .291895D+04, .214518D+04, .157461D+04, + .115401D+04, .844654D+03, .617205D+03, .450366D+03, + .328048D+03, .238586D+03, .173211D+03, .125593D+03, + .904732D+02, .653818D+02, .471633D+02, .339795D+02, + .244426D+02, .175647D+02, .126205D+02, .905856D+01, + .650015D+01, .466806D+01, .335446D+01, .241508D+01 / DATA (UPDI(I),I=677,728) / + .174158D+01, .126021D+01, .914300D+00, .665825D+00, + .486524D+00, .357065D+00, .262953D+00, .194711D+00, + .144324D+00, .107624D+00, .802842D-01, .601283D-01, + .450918D-01, .338813D-01, .254667D-01, .191568D-01, + .143944D-01, .108079D-01, .809639D-02, .605519D-02, + .451164D-02, .335162D-02, .247731D-02, .182271D-02, + .133483D-02, .969695D-03, .698427D-03, .499123D-03, + .353073D-03, .247406D-03, .171199D-03, .117134D-03, + .789416D-04, .524021D-04, .341849D-04, .220515D-04, + .139230D-04, .867103D-05, .531484D-05, .323654D-05, + .195687D-05, .119655D-05, .737660D-06, .463794D-06, + .291915D-06, .181245D-06, .106016D-06, .555866D-07, + .236760D-07, .638835D-08, .404436D-09, .000000D+00 / DATA (UPDI(I),I=729,780) / + .513847D+06, .388891D+06, .289274D+06, .214997D+06, + .159676D+06, .118477D+06, .878393D+05, .650582D+05, + .481442D+05, .355888D+05, .262833D+05, .193882D+05, + .142876D+05, .105155D+05, .773087D+04, .567587D+04, + .416218D+04, .304766D+04, .222871D+04, .162722D+04, + .118642D+04, .863557D+03, .627612D+03, .455304D+03, + .329769D+03, .238397D+03, .172111D+03, .123432D+03, + .887981D+02, .637620D+02, .457220D+02, .327320D+02, + .234055D+02, .167331D+02, .119483D+02, .852868D+01, + .609163D+01, .435341D+01, .311659D+01, .223464D+01, + .160753D+01, .115940D+01, .839229D+00, .609527D+00, + .444582D+00, .325383D+00, .239434D+00, .176368D+00, + .130686D+00, .968734D-01, .720907D-01, .537225D-01 / DATA (UPDI(I),I=781,832) / + .401091D-01, .299575D-01, .223908D-01, .167180D-01, + .124728D-01, .928509D-02, .690030D-02, .510954D-02, + .377227D-02, .277150D-02, .202707D-02, .147602D-02, + .106638D-02, .764261D-03, .543777D-03, .383344D-03, + .268007D-03, .185380D-03, .127084D-03, .861197D-04, + .577598D-04, .383382D-04, .253741D-04, .166417D-04, + .109196D-04, .717465D-05, .475713D-05, .317582D-05, + .214639D-05, .145085D-05, .973555D-06, .635350D-06, + .394926D-06, .225329D-06, .112522D-06, .447909D-07, + .112585D-07, .744910D-09, .000000D+00, .722470D+06, + .545336D+06, .404381D+06, .299605D+06, .221807D+06, + .164050D+06, .121232D+06, .894970D+05, .660095D+05, + .486318D+05, .357938D+05, .263133D+05, .193233D+05 / DATA (UPDI(I),I=833,884) / + .141718D+05, .103817D+05, .759452D+04, .554869D+04, + .404783D+04, .294892D+04, .214483D+04, .155772D+04, + .112934D+04, .817469D+03, .590613D+03, .425989D+03, + .306645D+03, .220421D+03, .157370D+03, .112702D+03, + .805557D+02, .574919D+02, .409610D+02, .291454D+02, + .207326D+02, .147278D+02, .104576D+02, .742912D+01, + .528028D+01, .375896D+01, .267998D+01, .191672D+01, + .137432D+01, .988869D+00, .713917D+00, .517558D+00, + .376485D+00, .275334D+00, .201565D+00, .148426D+00, + .109341D+00, .808598D-01, .598845D-01, .444300D-01, + .329791D-01, .244947D-01, .181755D-01, .134757D-01, + .997018D-02, .736359D-02, .541954D-02, .397683D-02, + .290456D-02, .211196D-02, .152915D-02, .109872D-02 / DATA (UPDI(I),I=885,936) / + .783500D-03, .554938D-03, .389754D-03, .271726D-03, + .187710D-03, .128749D-03, .875290D-04, .591004D-04, + .396774D-04, .266945D-04, .179153D-04, .121007D-04, + .822950D-05, .565906D-05, .391611D-05, .272537D-05, + .188174D-05, .127464D-05, .831561D-06, .511380D-06, + .286394D-06, .139199D-06, .534385D-07, .129126D-07, + .873516D-09, .000000D+00, .973101D+06, .732542D+06, + .541474D+06, .399896D+06, .295097D+06, .217546D+06, + .160235D+06, .117896D+06, .866624D+05, .636305D+05, + .466718D+05, .341907D+05, .250195D+05, .182841D+05, + .133457D+05, .972716D+04, .708046D+04, .514589D+04, + .373459D+04, .270578D+04, .195741D+04, .141346D+04, + .101898D+04, .733178D+03, .526602D+03, .377450D+03 / DATA (UPDI(I),I=937,988) / + .270134D+03, .191998D+03, .136880D+03, .973881D+02, + .691777D+02, .490510D+02, .347303D+02, .245824D+02, + .173730D+02, .122716D+02, .867113D+01, .612964D+01, + .433939D+01, .307644D+01, .218765D+01, .155951D+01, + .111552D+01, .800597D+00, .576917D+00, .417142D+00, + .303220D+00, .220633D+00, .161473D+00, .118226D+00, + .868935D-01, .639617D-01, .471641D-01, .347956D-01, + .256851D-01, .189431D-01, .139594D-01, .102660D-01, + .753624D-02, .551376D-02, .402201D-02, .292067D-02, + .211156D-02, .152047D-02, .108668D-02, .771135D-03, + .543767D-03, .380510D-03, .264539D-03, .182487D-03, + .125189D-03, .853209D-04, .579204D-04, .392345D-04, + .267262D-04, .182356D-04, .125579D-04, .872320D-05 / DATA (UPDI(I),I=989,1040) / + .612034D-05, .431011D-05, .303472D-05, .210783D-05, + .142600D-05, .923915D-06, .560905D-06, .308595D-06, + .146497D-06, .545479D-07, .127540D-07, .878519D-09, + .000000D+00, .127109D+07, .954262D+06, .703093D+06, + .517577D+06, .380687D+06, .279717D+06, .205339D+06, + .150574D+06, .110306D+06, .807122D+05, .589947D+05, + .430665D+05, .314023D+05, .228660D+05, .166293D+05, + .120758D+05, .875721D+04, .634047D+04, .458389D+04, + .330823D+04, .238379D+04, .171447D+04, .123096D+04, + .882047D+03, .630868D+03, .450247D+03, .320829D+03, + .227007D+03, .161108D+03, .114101D+03, .806692D+02, + .569266D+02, .401096D+02, .282493D+02, .198627D+02, + .139576D+02, .981015D+01, .689755D+01, .485620D+01 / DATA (UPDI(I),I=1041,1092) / + .342371D+01, .242079D+01, .171584D+01, .122022D+01, + .870632D+00, .623677D+00, .448280D+00, .323912D+00, + .234281D+00, .170429D+00, .124034D+00, .906134D-01, + .663016D-01, .485955D-01, .356377D-01, .261487D-01, + .191705D-01, .140429D-01, .102668D-01, .749244D-02, + .545006D-02, .395266D-02, .285429D-02, .205219D-02, + .146988D-02, .104516D-02, .738225D-03, .518381D-03, + .361501D-03, .250678D-03, .172711D-03, .118513D-03, + .809626D-04, .552309D-04, .377034D-04, .259484D-04, + .179353D-04, .125269D-04, .882649D-05, .626845D-05, + .445494D-05, .314987D-05, .218739D-05, .147188D-05, + .944708D-06, .565688D-06, .305799D-06, .141957D-06, + .513814D-07, .116594D-07, .816494D-09, .000000D+00 / DATA (UPDI(I),I=1093,1144) / + .162184D+07, .121426D+07, .891754D+06, .654316D+06, + .479673D+06, .351277D+06, .257003D+06, .187820D+06, + .137119D+06, .999846D+05, .728254D+05, .529751D+05, + .384889D+05, .279251D+05, .202341D+05, .146392D+05, + .105763D+05, .762852D+04, .549388D+04, .394955D+04, + .283465D+04, .203058D+04, .145199D+04, .103614D+04, + .737969D+03, .524431D+03, .372065D+03, .262082D+03, + .185165D+03, .130540D+03, .918606D+02, .645169D+02, + .452369D+02, .317037D+02, .221788D+02, .155053D+02, + .108406D+02, .758154D+01, .530876D+01, .372220D+01, + .261712D+01, .184452D+01, .130421D+01, .925213D+00, + .658918D+00, .470844D+00, .338222D+00, .243193D+00, + .175866D+00, .127236D+00, .924026D-01, .672145D-01 / DATA (UPDI(I),I=1145,1196) / + .489744D-01, .357056D-01, .260446D-01, .189831D-01, + .138249D-01, .100495D-01, .729182D-02, .527434D-02, + .380387D-02, .273200D-02, .195382D-02, .139231D-02, + .985199D-03, .692813D-03, .484598D-03, .336887D-03, + .233087D-03, .160442D-03, .110152D-03, .754376D-04, + .517050D-04, .355456D-04, .246812D-04, .172395D-04, + .121704D-04, .866035D-05, .619602D-05, .442273D-05, + .312754D-05, .216443D-05, .144553D-05, .917896D-06, + .541854D-06, .287817D-06, .130725D-06, .460518D-07, + .101611D-07, .722847D-09, .000000D+00, .203074D+07, + .151624D+07, .110990D+07, .811705D+06, .593081D+06, + .432878D+06, .315635D+06, .229884D+06, .167250D+06, + .121532D+06, .882090D+05, .639382D+05, .462875D+05 / DATA (UPDI(I),I=1197,1248) / + .334616D+05, .241568D+05, .174125D+05, .125327D+05, + .900537D+04, .646050D+04, .462639D+04, .330731D+04, + .235969D+04, .168048D+04, .119425D+04, .847025D+03, + .599362D+03, .423385D+03, .296903D+03, .208829D+03, + .146556D+03, .102652D+03, .717570D+02, .500712D+02, + .349205D+02, .243069D+02, .169066D+02, .117590D+02, + .818053D+01, .569744D+01, .397304D+01, .277806D+01, + .194704D+01, .136893D+01, .965617D+00, .683752D+00, + .485780D+00, .346939D+00, .248018D+00, .178314D+00, + .128259D+00, .926058D-01, .669749D-01, .485182D-01, + .351704D-01, .255068D-01, .184855D-01, .133862D-01, + .967625D-02, .698182D-02, .502254D-02, .360271D-02, + .257402D-02, .183142D-02, .129876D-02, .914775D-03 / DATA (UPDI(I),I=1249,1300) / + .640647D-03, .446508D-03, .309545D-03, .213772D-03, + .147064D-03, .101053D-03, .693919D-04, .477828D-04, + .330634D-04, .231367D-04, .163007D-04, .116016D-04, + .831161D-05, .597124D-05, .426764D-05, .301063D-05, + .207226D-05, .137182D-05, .861107D-06, .500977D-06, + .261471D-06, .116233D-06, .398873D-07, .857001D-08, + .619013D-09, .000000D+00, .921232D+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, .272605D+05, .210963D+05, .161051D+05, + .122869D+05, .937225D+04, .714394D+04, .544420D+04, + .414574D+04, .315612D+04, .240078D+04, .182563D+04, + .138705D+04, .105345D+04, .799320D+03, .606244D+03, + .459329D+03, .347854D+03, .263136D+03, .198943D+03, + .150229D+03, .113380D+03, .854601D+02, .643746D+02, + .484268D+02, .364038D+02, .273320D+02, .205126D+02, + .153106D+02, .114696D+02, .858093D+01, .641910D+01, + .479705D+01, .358555D+01, .268087D+01, .200509D+01, + .150002D+01, .112449D+01, .843845D+00, .635200D+00 / DATA (UPDI(I),I=1405,1456) / + .479051D+00, .362898D+00, .275669D+00, .210372D+00, + .161065D+00, .123945D+00, .956775D-01, .742899D-01, + .577231D-01, .451368D-01, .352915D-01, .277081D-01, + .217666D-01, .171372D-01, .134885D-01, .106282D-01, + .835958D-02, .657108D-02, .515001D-02, .403105D-02, + .314123D-02, .244117D-02, .188653D-02, .145136D-02, + .111098D-02, .843556D-03, .634362D-03, .472917D-03, + .348406D-03, .253796D-03, .181933D-03, .128379D-03, + .885312D-04, .596090D-04, .386127D-04, .240844D-04, + .139633D-04, .727183D-05, .298711D-05, .430861D-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 / DATA (UPDI(I),I=1457,1508) / + .617732D+05, .476961D+05, .363164D+05, .276342D+05, + .210220D+05, .159806D+05, .121444D+05, .922215D+04, + .700055D+04, .530979D+04, .402575D+04, .304953D+04, + .230898D+04, .174660D+04, .132051D+04, .997338D+03, + .752825D+03, .567617D+03, .427700D+03, .321882D+03, + .242081D+03, .181832D+03, .136475D+03, .102294D+03, + .766102D+02, .573024D+02, .428382D+02, .318474D+02, + .237609D+02, .177042D+02, .131877D+02, .981316D+01, + .730214D+01, .543532D+01, .404617D+01, .301272D+01, + .224737D+01, .167816D+01, .125673D+01, .942915D+00, + .710474D+00, .536820D+00, .407406D+00, .310213D+00, + .237373D+00, .182217D+00, .140677D+00, .108694D+00, + .845038D-01, .656986D-01, .512847D-01, .400619D-01 / DATA (UPDI(I),I=1509,1560) / + .313616D-01, .245469D-01, .192321D-01, .150434D-01, + .117595D-01, .916710D-02, .713678D-02, .553294D-02, + .427831D-02, .329071D-02, .252050D-02, .192170D-02, + .145417D-02, .109088D-02, .812232D-03, .598683D-03, + .437315D-03, .315429D-03, .224979D-03, .157981D-03, + .109329D-03, .740306D-04, .494233D-04, .320536D-04, + .202845D-04, .123845D-04, .728827D-05, .406326D-05, + .213207D-05, .101530D-05, .421381D-06, .128646D-06, + .921694D-08, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .104640D+06, + .806100D+05, .612164D+05, .464589D+05, .352469D+05, + .267217D+05, .202506D+05, .153349D+05, .116074D+05, + .877876D+04, .663622D+04, .501212D+04, .378346D+04 / DATA (UPDI(I),I=1561,1612) / + .285324D+04, .215045D+04, .161906D+04, .121819D+04, + .915524D+03, .687559D+03, .515723D+03, .386537D+03, + .289334D+03, .216392D+03, .161617D+03, .120595D+03, + .898670D+02, .669265D+02, .495609D+02, .368296D+02, + .273316D+02, .202743D+02, .150232D+02, .111303D+02, + .824847D+01, .611224D+01, .453011D+01, .336307D+01, + .249919D+01, .186220D+01, .139020D+01, .104206D+01, + .783279D+00, .591276D+00, .447833D+00, .340813D+00, + .260211D+00, .199786D+00, .153528D+00, .118698D+00, + .917799D-01, .712471D-01, .553547D-01, .430948D-01, + .335486D-01, .261404D-01, .203373D-01, .158115D-01, + .122608D-01, .949406D-02, .732224D-02, .563226D-02, + .431023D-02, .328487D-02, .249230D-02, .187704D-02 / DATA (UPDI(I),I=1613,1664) / + .140200D-02, .103974D-02, .763820D-03, .556459D-03, + .400776D-03, .285824D-03, .201148D-03, .139876D-03, + .956234D-04, .647868D-04, .430205D-04, .282005D-04, + .181485D-04, .115358D-04, .720217D-05, .446022D-05, + .271903D-05, .164231D-05, .970012D-06, .557559D-06, + .301299D-06, .147538D-06, .600685D-07, .160855D-07, + .989852D-09, .000000D+00, .189601D+06, .120767D+06, + .914701D+05, .692351D+05, .523843D+05, .396058D+05, + .299311D+05, .226021D+05, .170593D+05, .128649D+05, + .969657D+04, .730187D+04, .549526D+04, .413158D+04, + .310425D+04, .232988D+04, .174741D+04, .130903D+04, + .979850D+03, .732532D+03, .547173D+03, .408175D+03, + .304202D+03, .226396D+03, .168320D+03, .124971D+03 / DATA (UPDI(I),I=1665,1716) / + .927185D+02, .683952D+02, .506261D+02, .374215D+02, + .276452D+02, .204002D+02, .150492D+02, .111046D+02, + .819175D+01, .604387D+01, .446579D+01, .330297D+01, + .244909D+01, .181937D+01, .135686D+01, .101474D+01, + .762027D+00, .574180D+00, .434656D+00, .330120D+00, + .252108D+00, .192714D+00, .148193D+00, .113979D+00, + .880048D-01, .680148D-01, .526682D-01, .407863D-01, + .316103D-01, .244642D-01, .189196D-01, .145952D-01, + .112423D-01, .862624D-02, .660098D-02, .502615D-02, + .381115D-02, .287726D-02, .215628D-02, .160305D-02, + .118348D-02, .865835D-03, .628385D-03, .451171D-03, + .320986D-03, .225627D-03, .156928D-03, .107566D-03, + .732455D-04, .490863D-04, .326255D-04, .214274D-04 / DATA (UPDI(I),I=1717,1768) / + .139971D-04, .905747D-05, .585535D-05, .374985D-05, + .238171D-05, .147688D-05, .883222D-06, .491487D-06, + .244137D-06, .991455D-07, .260481D-07, .165440D-08, + .000000D+00, .243490D+06, .186583D+06, .140828D+06, + .106224D+06, .800845D+05, .603331D+05, .454287D+05, + .341795D+05, .257008D+05, .193091D+05, .144977D+05, + .108752D+05, .815220D+04, .610496D+04, .456832D+04, + .341481D+04, .255041D+04, .190261D+04, .141804D+04, + .105556D+04, .784976D+03, .582970D+03, .432488D+03, + .320394D+03, .237081D+03, .175184D+03, .129336D+03, + .949279D+02, .699070D+02, .514087D+02, .377763D+02, + .277272D+02, .203407D+02, .149256D+02, .109465D+02, + .802921D+01, .589676D+01, .433487D+01, .319397D+01 / DATA (UPDI(I),I=1769,1820) / + .235781D+01, .174700D+01, .129806D+01, .968285D+00, + .724786D+00, .544948D+00, .411120D+00, .311828D+00, + .236764D+00, .180818D+00, .138135D+00, .105924D+00, + .813169D-01, .625390D-01, .481066D-01, .370284D-01, + .284653D-01, .218631D-01, .167525D-01, .128143D-01, + .976498D-02, .741896D-02, .560874D-02, .422090D-02, + .316200D-02, .234987D-02, .173167D-02, .126607D-02, + .916449D-03, .657005D-03, .465127D-03, .325352D-03, + .224037D-03, .151843D-03, .100741D-03, .657771D-04, + .417112D-04, .257569D-04, .153315D-04, .877376D-05, + .474649D-05, .240702D-05, .110234D-05, .437137D-06, + .125572D-06, .761066D-08, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / DATA (UPDI(I),I=1821,1872) / + .353055D+06, .269719D+06, .202857D+06, .152468D+06, + .114533D+06, .859720D+05, .644946D+05, .483438D+05, + .362139D+05, .271040D+05, .202713D+05, .151470D+05, + .113092D+05, .843532D+04, .628641D+04, .467980D+04, + .348058D+04, .258558D+04, .191879D+04, .142213D+04, + .105290D+04, .778462D+03, .574887D+03, .423927D+03, + .312219D+03, .229604D+03, .168687D+03, .123191D+03, + .902618D+02, .660385D+02, .482714D+02, .352423D+02, + .257121D+02, .187629D+02, .136821D+02, .997797D+01, + .728434D+01, .532288D+01, .389777D+01, .285956D+01, + .210531D+01, .155435D+01, .115193D+01, .856667D+00, + .639850D+00, .479547D+00, .361309D+00, .272524D+00, + .206732D+00, .156884D+00, .119496D+00, .911311D-01 / DATA (UPDI(I),I=1873,1924) / + .696186D-01, .532000D-01, .406749D-01, .310630D-01, + .236998D-01, .180413D-01, .137087D-01, .103787D-01, + .783336D-02, .588398D-02, .439932D-02, .327470D-02, + .241810D-02, .177110D-02, .128723D-02, .926661D-03, + .660947D-03, .465942D-03, .324848D-03, .223328D-03, + .151405D-03, .100857D-03, .664080D-04, .427815D-04, + .271048D-04, .168194D-04, .102622D-04, .613375D-05, + .362101D-05, .210343D-05, .121115D-05, .685231D-06, + .379786D-06, .199397D-06, .954673D-07, .378164D-07, + .973219D-08, .607511D-09, .000000D+00, .489941D+06, + .373153D+06, .279650D+06, .209432D+06, .156752D+06, + .117232D+06, .876187D+05, .654311D+05, .488277D+05, + .364047D+05, .271217D+05, .201862D+05, .150118D+05 / DATA (UPDI(I),I=1925,1976) / + .111520D+05, .827716D+04, .613644D+04, .454488D+04, + .336196D+04, .248426D+04, .183326D+04, .135130D+04, + .994632D+03, .731192D+03, .536712D+03, .393435D+03, + .287954D+03, .210530D+03, .152982D+03, .111527D+03, + .811826D+02, .590318D+02, .428709D+02, .311082D+02, + .225763D+02, .163700D+02, .118701D+02, .861482D+01, + .625786D+01, .455465D+01, .332108D+01, .242985D+01, + .178271D+01, .131274D+01, .970044D+00, .719841D+00, + .536015D+00, .401223D+00, .300666D+00, .226584D+00, + .170830D+00, .129264D+00, .979434D-01, .743339D-01, + .564363D-01, .428671D-01, .325259D-01, .246549D-01, + .186483D-01, .140780D-01, .105905D-01, .794189D-02, + .592794D-02, .440410D-02, .325780D-02, .239063D-02 / DATA (UPDI(I),I=1977,2028) / + .174050D-02, .125764D-02, .900455D-03, .639015D-03, + .448551D-03, .311647D-03, .213823D-03, .144921D-03, + .968095D-04, .641434D-04, .418141D-04, .269893D-04, + .172277D-04, .109335D-04, .689191D-05, .434554D-05, + .272722D-05, .170125D-05, .103999D-05, .613080D-06, + .336001D-06, .163486D-06, .641903D-07, .160856D-07, + .104871D-08, .000000D+00, .658768D+06, .500202D+06, + .373521D+06, .278724D+06, .207853D+06, .154877D+06, + .115323D+06, .857958D+05, .637809D+05, .473708D+05, + .351541D+05, .260618D+05, .193040D+05, .142830D+05, + .105578D+05, .779502D+04, .574917D+04, .423486D+04, + .311586D+04, .228939D+04, .168010D+04, .123114D+04, + .900959D+03, .658294D+03, .480311D+03, .349870D+03 / DATA (UPDI(I),I=2029,2080) / + .254563D+03, .184062D+03, .133515D+03, .966972D+02, + .699496D+02, .505334D+02, .364715D+02, .263249D+02, + .189816D+02, .136859D+02, .987521D+01, .713147D+01, + .515946D+01, .373943D+01, .271912D+01, .198263D+01, + .145080D+01, .106534D+01, .785528D+00, .581212D+00, + .432274D+00, .321868D+00, .241000D+00, .180536D+00, + .135731D+00, .102190D+00, .770601D-01, .581349D-01, + .438746D-01, .330797D-01, .249154D-01, .187271D-01, + .140480D-01, .105021D-01, .782619D-02, .580562D-02, + .428656D-02, .315156D-02, .229866D-02, .166381D-02, + .119546D-02, .851448D-03, .601303D-03, .420339D-03, + .291082D-03, .199321D-03, .135053D-03, .904339D-04, + .602397D-04, .396553D-04, .259752D-04, .169318D-04 / DATA (UPDI(I),I=2081,2132) / + .110380D-04, .718890D-05, .469533D-05, .305297D-05, + .196263D-05, .122780D-05, .732733D-06, .402506D-06, + .194014D-06, .745897D-07, .181776D-07, .121184D-08, + .000000D+00, .864469D+06, .654384D+06, .486900D+06, + .362015D+06, .268978D+06, .199683D+06, .148131D+06, + .109789D+06, .813065D+05, .601550D+05, .444675D+05, + .328368D+05, .242255D+05, .178524D+05, .131425D+05, + .966339D+04, .709745D+04, .520598D+04, .381401D+04, + .279025D+04, .203867D+04, .148725D+04, .108348D+04, + .788039D+03, .572307D+03, .414913D+03, .300438D+03, + .216160D+03, .156022D+03, .112430D+03, .809134D+02, + .581500D+02, .417454D+02, .299694D+02, .214902D+02, + .154080D+02, .110542D+02, .793673D+01, .570820D+01 / DATA (UPDI(I),I=2133,2184) / + .411255D+01, .297235D+01, .215407D+01, .156653D+01, + .114321D+01, .837679D+00, .615923D+00, .455215D+00, + .336821D+00, .250604D+00, .186550D+00, .139367D+00, + .104273D+00, .781372D-01, .585803D-01, .439336D-01, + .329185D-01, .246399D-01, .184061D-01, .137218D-01, + .101956D-01, .755135D-02, .556807D-02, .408643D-02, + .298664D-02, .216560D-02, .155870D-02, .111388D-02, + .789370D-03, .554905D-03, .386412D-03, .266783D-03, + .182372D-03, .123566D-03, .829416D-04, .555273D-04, + .368729D-04, .244546D-04, .162075D-04, .107756D-04, + .717325D-05, .478440D-05, .316888D-05, .206321D-05, + .129945D-05, .774851D-06, .422462D-06, .200549D-06, + .752923D-07, .178409D-07, .121130D-08, .000000D+00 / DATA (UPDI(I),I=2185,2236) / + .111222D+07, .839366D+06, .622294D+06, .461010D+06, + .341280D+06, .252425D+06, .186558D+06, .137750D+06, + .101625D+06, .748994D+05, .551517D+05, .405668D+05, + .298095D+05, .218793D+05, .160416D+05, .117467D+05, + .859168D+04, .627552D+04, .457800D+04, .333475D+04, + .242586D+04, .176189D+04, .127780D+04, .925146D+03, + .668779D+03, .482575D+03, .347766D+03, .248985D+03, + .178832D+03, .128225D+03, .918111D+02, .656416D+02, + .468754D+02, .334730D+02, .238715D+02, .170207D+02, + .121422D+02, .866816D+01, .619802D+01, .443924D+01, + .318934D+01, .229746D+01, .166066D+01, .120453D+01, + .877186D+00, .641003D+00, .470829D+00, .346222D+00, + .256002D+00, .189389D+00, .140614D+00, .104560D+00 / DATA (UPDI(I),I=2237,2288) / + .778701D-01, .580232D-01, .432483D-01, .322079D-01, + .239613D-01, .177914D-01, .131833D-01, .973709D-02, + .716872D-02, .525498D-02, .383409D-02, .278613D-02, + .200879D-02, .143802D-02, .102235D-02, .721065D-03, + .504722D-03, .350233D-03, .241170D-03, .164647D-03, + .111596D-03, .751035D-04, .505304D-04, .338259D-04, + .226781D-04, .152353D-04, .102810D-04, .694859D-05, + .469456D-05, .313949D-05, .205309D-05, .129240D-05, + .765788D-06, .412765D-06, .192536D-06, .705293D-07, + .162583D-07, .112242D-08, .000000D+00, .140738D+07, + .105890D+07, .782243D+06, .577416D+06, .425898D+06, + .313854D+06, .231097D+06, .169997D+06, .124941D+06, + .917311D+05, .672842D+05, .492976D+05, .360819D+05 / DATA (UPDI(I),I=2289,2340) / + .263774D+05, .192613D+05, .140468D+05, .102316D+05, + .744209D+04, .540602D+04, .392104D+04, .283997D+04, + .205360D+04, .148272D+04, .106866D+04, .768985D+03, + .552292D+03, .396124D+03, .282229D+03, .201721D+03, + .143923D+03, .102532D+03, .729327D+02, .518107D+02, + .368022D+02, .261042D+02, .185109D+02, .131317D+02, + .932175D+01, .662716D+01, .471915D+01, .337053D+01, + .241363D+01, .173421D+01, .125034D+01, .905040D+00, + .657353D+00, .479912D+00, .350757D+00, .257776D+00, + .189544D+00, .139874D+00, .103384D+00, .765290D-01, + .566817D-01, .419941D-01, .310874D-01, .229899D-01, + .169695D-01, .125000D-01, .917862D-02, .671828D-02, + .489670D-02, .355240D-02, .256710D-02, .184079D-02 / DATA (UPDI(I),I=2341,2392) / + .131094D-02, .927443D-03, .651221D-03, .454041D-03, + .314078D-03, .215797D-03, .147196D-03, .998475D-04, + .673913D-04, .455686D-04, .307350D-04, .208036D-04, + .141329D-04, .964581D-05, .658809D-05, .448508D-05, + .301231D-05, .196929D-05, .123409D-05, .724541D-06, + .385303D-06, .176397D-06, .630359D-07, .141467D-07, + .992279D-09, .000000D+00, .175535D+07, .131674D+07, + .969260D+06, .712901D+06, .523927D+06, .384685D+06, + .282205D+06, .206820D+06, .151431D+06, .110758D+06, + .809277D+05, .590638D+05, .430602D+05, .313539D+05, + .228034D+05, .165625D+05, .120144D+05, .870263D+04, + .629512D+04, .454650D+04, .327879D+04, .236058D+04, + .169682D+04, .121750D+04, .872103D+03, .623455D+03 / DATA (UPDI(I),I=2393,2444) / + .445069D+03, .315574D+03, .224467D+03, .159369D+03, + .112971D+03, .799521D+02, .565049D+02, .399276D+02, + .281703D+02, .198682D+02, .140171D+02, .989498D+01, + .699496D+01, .495265D+01, .351686D+01, .250375D+01, + .178839D+01, .128180D+01, .922294D+00, .665895D+00, + .483254D+00, .351089D+00, .256478D+00, .187463D+00, + .137514D+00, .101039D+00, .743504D-01, .547440D-01, + .403193D-01, .296731D-01, .218162D-01, .160101D-01, + .117253D-01, .856080D-02, .623060D-02, .451606D-02, + .325822D-02, .234190D-02, .167053D-02, .118382D-02, + .833642D-03, .582935D-03, .404978D-03, .279373D-03, + .191613D-03, .130646D-03, .887294D-04, .600764D-04, + .408261D-04, .277306D-04, .189281D-04, .129768D-04 / DATA (UPDI(I),I=2445,2496) / + .893262D-05, .614395D-05, .419934D-05, .282249D-05, + .183906D-05, .114452D-05, .664657D-06, .348309D-06, + .156409D-06, .545279D-07, .119237D-07, .849310D-09, + .000000D+00, .216151D+07, .161660D+07, .118579D+07, + .869056D+06, .636393D+06, .465568D+06, .340291D+06, + .248467D+06, .181245D+06, .132064D+06, .961273D+05, + .698868D+05, .507521D+05, .368094D+05, .266645D+05, + .192890D+05, .139353D+05, .100524D+05, .724122D+04, + .520776D+04, .373964D+04, .268073D+04, .191851D+04, + .137046D+04, .977253D+03, .695426D+03, .494146D+03, + .348703D+03, .246849D+03, .174413D+03, .123027D+03, + .866348D+02, .609167D+02, .428238D+02, .300550D+02, + .210847D+02, .147948D+02, .103867D+02, .730175D+01 / DATA (UPDI(I),I=2497,2548) / + .514083D+01, .362972D+01, .256928D+01, .182458D+01, + .130015D+01, .930035D+00, .667551D+00, .481622D+00, + .347848D+00, .252619D+00, .183560D+00, .133864D+00, + .977863D-01, .715388D-01, .523697D-01, .383478D-01, + .280607D-01, .205130D-01, .149688D-01, .109009D-01, + .791471D-02, .572863D-02, .412985D-02, .296369D-02, + .211920D-02, .150410D-02, .106089D-02, .743834D-03, + .518149D-03, .358815D-03, .246949D-03, .169150D-03, + .115333D-03, .784561D-04, .532996D-04, .364002D-04, + .248855D-04, .171100D-04, .118168D-04, .818469D-05, + .565377D-05, .386917D-05, .259597D-05, .168238D-05, + .103810D-05, .595637D-06, .307360D-06, .135331D-06, + .460358D-07, .981700D-08, .709832D-09, .000000D+00 / DATA (UPDI(I),I=2549,2600) / + .775341D+05, .460803D+05, .355832D+05, .274776D+05, + .212185D+05, .163853D+05, .126532D+05, .977125D+04, + .754586D+04, .582742D+04, .450044D+04, .347575D+04, + .268447D+04, .207343D+04, .160157D+04, .123719D+04, + .955793D+03, .738483D+03, .570658D+03, .441046D+03, + .340943D+03, .263625D+03, .203904D+03, .157771D+03, + .122131D+03, .945946D+02, .733157D+02, .566652D+02, + .440022D+02, .342088D+02, .266318D+02, .207669D+02, + .162245D+02, .127130D+02, .998121D+01, .786001D+01, + .621024D+01, .492449D+01, .391987D+01, .313214D+01, + .251312D+01, .202380D+01, .163537D+01, .132547D+01, + .107695D+01, .876642D+00, .714973D+00, .582638D+00, + .475242D+00, .386760D+00, .314446D+00, .255039D+00 / DATA (UPDI(I),I=2601,2652) / + .206227D+00, .166143D+00, .133277D+00, .106390D+00, + .844629D-01, .666506D-01, .522474D-01, .406623D-01, + .313995D-01, .240421D-01, .182404D-01, .137203D-01, + .101924D-01, .748393D-02, .542601D-02, .388006D-02, + .273308D-02, .189364D-02, .128843D-02, .859270D-03, + .560315D-03, .356142D-03, .221002D-03, .132492D-03, + .766603D-04, .425813D-04, .225566D-04, .113015D-04, + .529881D-05, .229603D-05, .896847D-06, .309982D-06, + .908335D-07, .212466D-07, .358597D-08, .361347D-09, + .142072D-10, .559081D-13, .000000D+00, .855431D+05, + .666397D+05, .512734D+05, .394443D+05, .303433D+05, + .233383D+05, .179498D+05, .138031D+05, .106139D+05, + .816020D+04, .627349D+04, .482220D+04, .370651D+04 / DATA (UPDI(I),I=2653,2704) / + .284849D+04, .218904D+04, .168201D+04, .129241D+04, + .992925D+03, .762863D+03, .586056D+03, .450270D+03, + .345940D+03, .265831D+03, .204292D+03, .157047D+03, + .120761D+03, .929135D+02, .712580D+02, .549039D+02, + .423387D+02, .326903D+02, .252742D+02, .195752D+02, + .152021D+02, .118282D+02, .922858D+01, .722426D+01, + .567465D+01, .447480D+01, .354187D+01, .281563D+01, + .224656D+01, .179912D+01, .144535D+01, .116443D+01, + .940029D+00, .760687D+00, .615146D+00, .498187D+00, + .402627D+00, .325222D+00, .262137D+00, .210731D+00, + .168829D+00, .134731D+00, .107020D+00, .845723D-01, + .664453D-01, .518777D-01, .402216D-01, .309524D-01, + .236248D-01, .178724D-01, .134095D-01, .993935D-02 / DATA (UPDI(I),I=2705,2756) / + .728344D-02, .527182D-02, .376439D-02, .264877D-02, + .183349D-02, .124664D-02, .830615D-03, .541079D-03, + .343039D-03, .211982D-03, .125985D-03, .717091D-04, + .385643D-04, .191566D-04, .837608D-05, .279051D-05, + .208487D-06, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .119395D+06, .927225D+05, + .710854D+05, .544833D+05, .417548D+05, .319910D+05, + .245079D+05, .187697D+05, .143735D+05, .110037D+05, + .842297D+04, .644556D+04, .493179D+04, .377239D+04, + .288523D+04, .220603D+04, .168655D+04, .128903D+04, + .985123D+03, .752672D+03, .575062D+03, .439274D+03, + .335567D+03, .256317D+03, .195815D+03, .149604D+03 / DATA (UPDI(I),I=2757,2808) / + .114353D+03, .870989D+02, .666441D+02, .510238D+02, + .391082D+02, .300082D+02, .230628D+02, .177694D+02, + .137148D+02, .106127D+02, .823908D+01, .641732D+01, + .501786D+01, .393803D+01, .310432D+01, .245622D+01, + .195092D+01, .155465D+01, .124270D+01, .995549D+00, + .799730D+00, .642088D+00, .516498D+00, .414683D+00, + .332875D+00, .266697D+00, .213180D+00, .169863D+00, + .134860D+00, .106596D+00, .838442D-01, .655804D-01, + .509895D-01, .393766D-01, .301911D-01, .229650D-01, + .173186D-01, .129573D-01, .958022D-02, .700487D-02, + .506141D-02, .360962D-02, .253850D-02, .175756D-02, + .119670D-02, .799621D-03, .523532D-03, .334548D-03, + .209351D-03, .126865D-03, .745003D-04, .421358D-04 / DATA (UPDI(I),I=2809,2860) / + .228458D-04, .117548D-04, .568594D-05, .253238D-05, + .100413D-05, .326628D-06, .661236D-07, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .161621D+06, .125136D+06, .955990D+05, + .730096D+05, .557492D+05, .425541D+05, .324765D+05, + .247763D+05, .188983D+05, .144093D+05, .109844D+05, + .837029D+04, .637700D+04, .485640D+04, .369765D+04, + .281421D+04, .214143D+04, .162881D+04, .123869D+04, + .941632D+03, .715726D+03, .543831D+03, .413190D+03, + .313851D+03, .238401D+03, .181071D+03, .137579D+03, + .104134D+03, .791751D+02, .602233D+02, .458520D+02, + .349419D+02, .266666D+02, .203988D+02, .156292D+02, + .120038D+02, .924859D+01, .714829D+01, .554628D+01 / DATA (UPDI(I),I=2861,2912) / + .431889D+01, .337825D+01, .265237D+01, .209070D+01, + .165355D+01, .131210D+01, .104362D+01, .832567D+00, + .663933D+00, .530633D+00, .423359D+00, .337803D+00, + .269081D+00, .213896D+00, .169529D+00, .133912D+00, + .105330D+00, .824621D-01, .642104D-01, .497120D-01, + .382335D-01, .292019D-01, .221317D-01, .166329D-01, + .124046D-01, .914452D-02, .666820D-02, .480676D-02, + .342118D-02, .240244D-02, .166188D-02, .113151D-02, + .756846D-03, .496823D-03, .318968D-03, .201167D-03, + .123427D-03, .739125D-04, .430828D-04, .244913D-04, + .135650D-04, .737893D-05, .395570D-05, .211343D-05, + .112869D-05, .602735D-06, .311563D-06, .149217D-06, + .602331D-07, .160919D-07, .989881D-09, .000000D+00 / DATA (UPDI(I),I=2913,2964) / + .175660D+06, .164807D+06, .125477D+06, .954959D+05, + .726625D+05, .552652D+05, .420234D+05, .319403D+05, + .242704D+05, .184338D+05, .139972D+05, .106232D+05, + .806033D+04, .611274D+04, .463443D+04, .351185D+04, + .266045D+04, .201442D+04, .152485D+04, .115369D+04, + .872670D+03, .659800D+03, .498764D+03, .376886D+03, + .284761D+03, .215103D+03, .162528D+03, .122305D+03, + .924451D+02, .698934D+02, .528862D+02, .400474D+02, + .303648D+02, .230741D+02, .175593D+02, .133931D+02, + .102466D+02, .786329D+01, .605726D+01, .468272D+01, + .363643D+01, .283454D+01, .221837D+01, .174217D+01, + .137289D+01, .108458D+01, .859574D+00, .681059D+00, + .540963D+00, .429000D+00, .340322D+00, .269569D+00 / DATA (UPDI(I),I=2965,3016) / + .213130D+00, .168043D+00, .132075D+00, .103383D+00, + .805613D-01, .624489D-01, .481400D-01, .368709D-01, + .280495D-01, .211778D-01, .158582D-01, .117863D-01, + .866048D-02, .629597D-02, .452582D-02, .321322D-02, + .225170D-02, .155508D-02, .105778D-02, .707448D-03, + .464908D-03, .299289D-03, .189705D-03, .117374D-03, + .712266D-04, .423585D-04, .248044D-04, .143306D-04, + .825707D-05, .476001D-05, .276342D-05, .160436D-05, + .919177D-06, .499579D-06, .245447D-06, .992728D-07, + .260530D-07, .165442D-08, .000000D+00, .299054D+06, + .230002D+06, .174355D+06, .132115D+06, .100076D+06, + .757714D+05, .573501D+05, .433857D+05, .328099D+05, + .247992D+05, .187373D+05, .141495D+05, .106809D+05 / DATA (UPDI(I),I=3017,3068) / + .805796D+04, .607672D+04, .457992D+04, .345040D+04, + .259788D+04, .195520D+04, .147063D+04, .110574D+04, + .830912D+03, .624178D+03, .468641D+03, .351767D+03, + .263937D+03, .198058D+03, .147982D+03, .111046D+03, + .833379D+02, .625816D+02, .470225D+02, .353698D+02, + .266600D+02, .201197D+02, .152164D+02, .115414D+02, + .877980D+01, .670362D+01, .513648D+01, .395334D+01, + .305428D+01, .236926D+01, .184449D+01, .144104D+01, + .112885D+01, .887321D+00, .697385D+00, .549627D+00, + .432563D+00, .340628D+00, .267896D+00, .210348D+00, + .164747D+00, .128649D+00, .100072D+00, .775083D-01, + .597293D-01, .457805D-01, .348693D-01, .263835D-01, + .198154D-01, .147611D-01, .109154D-01, .797979D-02 / DATA (UPDI(I),I=3069,3120) / + .577167D-02, .412751D-02, .291487D-02, .203115D-02, + .139419D-02, .941782D-03, .624714D-03, .406388D-03, + .258191D-03, .160795D-03, .970491D-04, .568174D-04, + .320507D-04, .173401D-04, .889283D-05, .427934D-05, + .188284D-05, .729212D-06, .222139D-06, .345505D-07, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .407837D+06, .312526D+06, + .235912D+06, .177994D+06, .134243D+06, .101193D+06, + .762479D+05, .574200D+05, .432226D+05, .325165D+05, + .244511D+05, .183749D+05, .138021D+05, .103606D+05, + .777334D+04, .582829D+04, .436769D+04, .327087D+04, + .244821D+04, .183119D+04, .136899D+04, .102276D+04, + .763739D+03, .569956D+03, .425165D+03, .316990D+03 / DATA (UPDI(I),I=3121,3172) / + .236332D+03, .175394D+03, .130724D+03, .974271D+02, + .726421D+02, .541859D+02, .404548D+02, .302621D+02, + .226607D+02, .170029D+02, .127926D+02, .965235D+01, + .730898D+01, .555379D+01, .423885D+01, .324756D+01, + .249823D+01, .192888D+01, .149470D+01, .116149D+01, + .905814D+00, .706418D+00, .552566D+00, .431677D+00, + .337497D+00, .263588D+00, .205564D+00, .159940D+00, + .124094D+00, .959269D-01, .738449D-01, .565694D-01, + .431079D-01, .326491D-01, .245682D-01, .183539D-01, + .136012D-01, .100070D-01, .727969D-02, .524033D-02, + .373052D-02, .262326D-02, .182074D-02, .124541D-02, + .838861D-03, .555347D-03, .360989D-03, .229634D-03, + .143593D-03, .874143D-04, .519707D-04, .301005D-04 / DATA (UPDI(I),I=3173,3224) / + .170115D-04, .937265D-05, .507009D-05, .270168D-05, + .143267D-05, .757660D-06, .399749D-06, .203785D-06, + .961600D-07, .378823D-07, .973472D-08, .607524D-09, + .000000D+00, .543953D+06, .415358D+06, .312239D+06, + .234598D+06, .176185D+06, .132238D+06, .992062D+05, + .743793D+05, .557375D+05, .417408D+05, .312423D+05, + .233685D+05, .174693D+05, .130500D+05, .974293D+04, + .726855D+04, .541929D+04, .403741D+04, .300603D+04, + .223637D+04, .166277D+04, .123533D+04, .917235D+03, + .680543D+03, .504657D+03, .373982D+03, .277103D+03, + .204339D+03, .151316D+03, .112032D+03, .829683D+02, + .614628D+02, .455641D+02, .338398D+02, .251536D+02, + .187324D+02, .139865D+02, .104718D+02, .786748D+01 / DATA (UPDI(I),I=3225,3276) / + .593111D+01, .449098D+01, .341347D+01, .260507D+01, + .199557D+01, .153433D+01, .118312D+01, .915715D+00, + .708816D+00, .550410D+00, .426919D+00, .331450D+00, + .257104D+00, .199173D+00, .153963D+00, .118698D+00, + .911869D-01, .697702D-01, .531314D-01, .402530D-01, + .303140D-01, .226844D-01, .168549D-01, .124238D-01, + .909340D-02, .658143D-02, .471436D-02, .334019D-02, + .233824D-02, .161612D-02, .110132D-02, .739469D-03, + .488436D-03, .317160D-03, .201934D-03, .126722D-03, + .777418D-04, .468563D-04, .277563D-04, .162402D-04, + .941663D-05, .546467D-05, .318477D-05, .186889D-05, + .109419D-05, .627839D-06, .339204D-06, .163985D-06, + .642372D-07, .160874D-07, .104872D-08, .000000D+00 / DATA (UPDI(I),I=3277,3328) / + .712020D+06, .541813D+06, .405652D+06, .303536D+06, + .227012D+06, .169671D+06, .126747D+06, .946178D+05, + .705932D+05, .526315D+05, .392164D+05, .291990D+05, + .217266D+05, .161540D+05, .120027D+05, .891094D+04, + .661103D+04, .490057D+04, .363008D+04, .268664D+04, + .198699D+04, .146827D+04, .108422D+04, .799943D+03, + .589820D+03, .434549D+03, .320070D+03, .234575D+03, + .172632D+03, .127008D+03, .934520D+02, .687735D+02, + .506402D+02, .373522D+02, .275697D+02, .203853D+02, + .151100D+02, .112297D+02, .837403D+01, .626555D+01, + .470833D+01, .355155D+01, .268989D+01, .204502D+01, + .156057D+01, .119443D+01, .917734D+00, .705252D+00, + .543775D+00, .418836D+00, .322959D+00, .248849D+00 / DATA (UPDI(I),I=3329,3380) / + .191519D+00, .147100D+00, .112695D+00, .860434D-01, + .654377D-01, .495379D-01, .373126D-01, .279399D-01, + .207911D-01, .153638D-01, .112637D-01, .820090D-02, + .590475D-02, .420842D-02, .296729D-02, .206765D-02, + .142297D-02, .965968D-03, .646490D-03, .426019D-03, + .276327D-03, .176083D-03, .110875D-03, .685178D-04, + .418161D-04, .252613D-04, .152019D-04, .915279D-05, + .555782D-05, .340218D-05, .208923D-05, .126827D-05, + .743622D-06, .404840D-06, .194373D-06, .746230D-07, + .181788D-07, .121185D-08, .000000D+00, .916970D+06, + .695410D+06, .518578D+06, .386477D+06, .287867D+06, + .214269D+06, .159394D+06, .118486D+06, .880225D+05, + .653412D+05, .484723D+05, .359295D+05, .266137D+05 / DATA (UPDI(I),I=3381,3432) / + .196967D+05, .145667D+05, .107633D+05, .794692D+04, + .586207D+04, .432075D+04, .318167D+04, .234104D+04, + .172086D+04, .126398D+04, .927523D+03, .680115D+03, + .498250D+03, .364883D+03, .265833D+03, .194468D+03, + .142202D+03, .103982D+03, .760376D+02, .556262D+02, + .407599D+02, .298822D+02, .219439D+02, .161519D+02, + .119194D+02, .882469D+01, .655512D+01, .489014D+01, + .366183D+01, .275318D+01, .207793D+01, .157423D+01, + .119625D+01, .912637D+00, .696419D+00, .533272D+00, + .407957D+00, .312475D+00, .239198D+00, .182909D+00, + .139602D+00, .106288D+00, .806579D-01, .609749D-01, + .458885D-01, .343639D-01, .255858D-01, .189330D-01, + .139140D-01, .101457D-01, .734775D-02, .526290D-02 / DATA (UPDI(I),I=3433,3484) / + .373200D-02, .261855D-02, .181621D-02, .124455D-02, + .841614D-03, .561464D-03, .369150D-03, .239213D-03, + .152583D-03, .964157D-04, .600121D-04, .370592D-04, + .227835D-04, .140358D-04, .869763D-05, .544768D-05, + .343482D-05, .215860D-05, .132961D-05, .782868D-06, + .424158D-06, .200807D-06, .753159D-07, .178418D-07, + .121130D-08, .000000D+00, .116399D+07, .879813D+06, + .653527D+06, .485127D+06, .359903D+06, .266805D+06, + .197662D+06, .146324D+06, .108246D+06, .800122D+05, + .590997D+05, .436155D+05, .321636D+05, .236972D+05, + .174454D+05, .128308D+05, .942889D+04, .692209D+04, + .507734D+04, .372042D+04, .272374D+04, .199199D+04, + .145555D+04, .106248D+04, .774895D+03, .564576D+03 / DATA (UPDI(I),I=3485,3536) / + .411153D+03, .297819D+03, .216607D+03, .157459D+03, + .114445D+03, .831762D+02, .604677D+02, .440260D+02, + .320669D+02, .233928D+02, .171028D+02, .125352D+02, + .921668D+01, .679872D+01, .503635D+01, .374480D+01, + .279574D+01, .209524D+01, .157623D+01, .118944D+01, + .901218D+00, .683013D+00, .519501D+00, .394784D+00, + .300413D+00, .228491D+00, .173618D+00, .131689D+00, + .996492D-01, .751654D-01, .564861D-01, .422626D-01, + .314666D-01, .232962D-01, .171427D-01, .125294D-01, + .908663D-02, .654594D-02, .466418D-02, .329074D-02, + .229773D-02, .158639D-02, .108245D-02, .729262D-03, + .485024D-03, .318232D-03, .206076D-03, .131615D-03, + .834812D-04, .523385D-04, .326868D-04, .204159D-04 / DATA (UPDI(I),I=3537,3588) / + .128283D-04, .812928D-05, .520353D-05, .334156D-05, + .212482D-05, .131482D-05, .771678D-06, .413996D-06, + .192721D-06, .705461D-07, .162589D-07, .112242D-08, + .000000D+00, .145841D+07, .109877D+07, .813034D+06, + .601193D+06, .444257D+06, .328032D+06, .242044D+06, + .178450D+06, .131468D+06, .967713D+05, .711761D+05, + .523029D+05, .384025D+05, .281693D+05, .206450D+05, + .151153D+05, .110566D+05, .807923D+04, .589804D+04, + .430100D+04, .313340D+04, .228022D+04, .165775D+04, + .120386D+04, .873416D+03, .632962D+03, .458456D+03, + .330225D+03, .238827D+03, .172618D+03, .124731D+03, + .901135D+02, .651137D+02, .471171D+02, .341026D+02, + .247190D+02, .179550D+02, .130733D+02, .954836D+01 / DATA (UPDI(I),I=3589,3640) / + .699606D+01, .514744D+01, .380138D+01, .281862D+01, + .209801D+01, .156760D+01, .117494D+01, .884283D+00, + .665721D+00, .503032D+00, .379787D+00, .287154D+00, + .217033D+00, .163888D+00, .123548D+00, .929246D-01, + .696763D-01, .520541D-01, .387217D-01, .286657D-01, + .211035D-01, .154431D-01, .112258D-01, .809742D-02, + .580260D-02, .411314D-02, .288744D-02, .200647D-02, + .137905D-02, .937090D-03, .629071D-03, .417197D-03, + .273239D-03, .176882D-03, .113157D-03, .720686D-04, + .455156D-04, .287344D-04, .182056D-04, .116318D-04, + .750060D-05, .487481D-05, .316553D-05, .202310D-05, + .125072D-05, .728859D-06, .386194D-06, .176529D-06, + .630477D-07, .141472D-07, .992282D-09, .000000D+00 / DATA (UPDI(I),I=3641,3692) / + .180566D+07, .135606D+07, .999617D+06, .736342D+06, + .542026D+06, .398661D+06, .292997D+06, .215153D+06, + .157866D+06, .115726D+06, .847641D+05, .620261D+05, + .453475D+05, .331201D+05, .241671D+05, .176155D+05, + .128275D+05, .933043D+04, .677987D+04, .492080D+04, + .356781D+04, .258374D+04, .186914D+04, .135056D+04, + .974858D+03, .702799D+03, .506349D+03, .362734D+03, + .260903D+03, .187525D+03, .134733D+03, .967783D+02, + .695180D+02, .500038D+02, .359713D+02, .259122D+02, + .187032D+02, .135314D+02, .981916D+01, .714765D+01, + .522446D+01, .383282D+01, .282313D+01, .208747D+01, + .154943D+01, .115368D+01, .862630D+00, .645202D+00, + .484406D+00, .363399D+00, .273041D+00, .205091D+00 / DATA (UPDI(I),I=3693,3744) / + .153924D+00, .115338D+00, .862329D-01, .642790D-01, + .477434D-01, .353120D-01, .259938D-01, .190299D-01, + .138492D-01, .100128D-01, .718393D-02, .512114D-02, + .361152D-02, .252280D-02, .174483D-02, .119396D-02, + .808099D-03, .540648D-03, .357630D-03, .233883D-03, + .151415D-03, .970649D-04, .620953D-04, .395075D-04, + .251995D-04, .161720D-04, .104778D-04, .684770D-05, + .449712D-05, .293842D-05, .187935D-05, .115684D-05, + .667815D-06, .348953D-06, .156504D-06, .545362D-07, + .119240D-07, .849312D-09, .000000D+00, .221111D+07, + .165536D+07, .121571D+07, .892165D+06, .654237D+06, + .479346D+06, .350929D+06, .256681D+06, .187588D+06, + .136961D+06, .999088D+05, .728067D+05, .530066D+05 / DATA (UPDI(I),I=3745,3796) / + .385501D+05, .280085D+05, .203267D+05, .147364D+05, + .106710D+05, .771877D+04, .557645D+04, .402427D+04, + .290046D+04, .208814D+04, .150141D+04, .107834D+04, + .773447D+03, .554374D+03, .395027D+03, .282615D+03, + .202030D+03, .144353D+03, .103106D+03, .736392D+02, + .526608D+02, .376583D+02, .269644D+02, .193438D+02, + .139084D+02, .100295D+02, .725466D+01, .526890D+01, + .384066D+01, .281071D+01, .206492D+01, .152283D+01, + .112660D+01, .837032D+00, .622082D+00, .464121D+00, + .346011D+00, .258377D+00, .192898D+00, .143903D+00, + .107189D+00, .796696D-01, .590423D-01, .436026D-01, + .320670D-01, .234731D-01, .170898D-01, .123697D-01, + .889531D-02, .634844D-02, .450223D-02, .315905D-02 / DATA (UPDI(I),I=3797,3848) / + .219605D-02, .151188D-02, .103017D-02, .694601D-03, + .463257D-03, .305738D-03, .199729D-03, .129366D-03, + .831358D-04, .534372D-04, .342503D-04, .220591D-04, + .143183D-04, .938439D-05, .619539D-05, .409622D-05, + .268349D-05, .171248D-05, .104720D-05, .597944D-06, + .307824D-06, .135398D-06, .460416D-07, .981722D-08, + .709834D-09, .000000D+00, .628438D+05, .921917D+05, + .711919D+05, .549760D+05, .424542D+05, .327849D+05, + .253183D+05, .195525D+05, .151002D+05, .116620D+05, + .900700D+04, .695673D+04, .537344D+04, .415076D+04, + .320653D+04, .247733D+04, .191417D+04, .147923D+04, + .114331D+04, .883853D+03, .683445D+03, .528635D+03, + .409041D+03, .316643D+03, .245247D+03, .190073D+03 / DATA (UPDI(I),I=3849,3900) / + .147427D+03, .114048D+03, .886548D+02, .690093D+02, + .538042D+02, .420300D+02, .329067D+02, .258505D+02, + .203582D+02, .160909D+02, .127698D+02, .101794D+02, + .815337D+01, .656276D+01, .531066D+01, .431857D+01, + .352850D+01, .289542D+01, .238479D+01, .197019D+01, + .163248D+01, .135296D+01, .112315D+01, .930968D+00, + .771268D+00, .637673D+00, .525749D+00, .431939D+00, + .353364D+00, .287662D+00, .232874D+00, .187354D+00, + .149706D+00, .118735D+00, .934124D-01, .728491D-01, + .562764D-01, .430846D-01, .325695D-01, .243275D-01, + .179366D-01, .130392D-01, .933427D-02, .657058D-02, + .454060D-02, .307464D-02, .203510D-02, .131266D-02, + .826287D-03, .502403D-03, .294741D-03, .165953D-03 / DATA (UPDI(I),I=3901,3952) / + .890890D-04, .452234D-04, .214774D-04, .942422D-05, + .372718D-05, .130400D-05, .386704D-06, .915220D-07, + .156264D-07, .159261D-08, .633211D-10, .251936D-12, + .000000D+00, .143864D+06, .112214D+06, .864673D+05, + .666227D+05, .513316D+05, .395470D+05, .304673D+05, + .234705D+05, .180802D+05, .139269D+05, .107276D+05, + .826267D+04, .636417D+04, .490164D+04, .377531D+04, + .290771D+04, .223962D+04, .172505D+04, .132884D+04, + .102371D+04, .788780D+03, .607861D+03, .468574D+03, + .361308D+03, .278723D+03, .215119D+03, .166152D+03, + .127962D+03, .990248D+02, .767220D+02, .595335D+02, + .462766D+02, .360491D+02, .281721D+02, .220690D+02, + .173477D+02, .136908D+02, .108512D+02, .864120D+01 / DATA (UPDI(I),I=3953,4004) / + .691419D+01, .556172D+01, .449535D+01, .365065D+01, + .297731D+01, .243736D+01, .200135D+01, .164839D+01, + .135793D+01, .112070D+01, .923532D+00, .760766D+00, + .625472D+00, .512872D+00, .419101D+00, .341067D+00, + .276225D+00, .222490D+00, .178116D+00, .141638D+00, + .111804D+00, .875514D-01, .679701D-01, .522722D-01, + .398452D-01, .299907D-01, .223057D-01, .163766D-01, + .118554D-01, .845164D-02, .592455D-02, .407701D-02, + .274873D-02, .181133D-02, .116244D-02, .727626D-03, + .439310D-03, .255322D-03, .141796D-03, .744635D-04, + .363851D-04, .160507D-04, .600714D-05, .151656D-05, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / DATA (UPDI(I),I=4005,4056) / + .177055D+06, .137780D+06, .105880D+06, .813535D+05, + .625050D+05, .480159D+05, .368834D+05, .283275D+05, + .217551D+05, .167050D+05, .128265D+05, .984703D+04, + .755931D+04, .580227D+04, .445350D+04, .341784D+04, + .262302D+04, .201285D+04, .154468D+04, .118536D+04, + .909727D+03, .698220D+03, .536004D+03, .411545D+03, + .316101D+03, .242880D+03, .186749D+03, .143147D+03, + .110251D+03, .850032D+02, .656322D+02, .507572D+02, + .393342D+02, .305761D+02, .238227D+02, .186225D+02, + .146144D+02, .115168D+02, .911818D+01, .725288D+01, + .579970D+01, .465970D+01, .376151D+01, .304933D+01, + .248146D+01, .202544D+01, .165849D+01, .135826D+01, + .111458D+01, .913289D+00, .748161D+00, .611753D+00 / DATA (UPDI(I),I=4057,4108) / + .498945D+00, .405584D+00, .328373D+00, .264604D+00, + .212075D+00, .168953D+00, .133713D+00, .105054D+00, + .818894D-01, .632904D-01, .484581D-01, .367792D-01, + .275655D-01, .204167D-01, .149289D-01, .107649D-01, + .764539D-02, .534025D-02, .366284D-02, .246229D-02, + .161886D-02, .103727D-02, .649109D-03, .392536D-03, + .229243D-03, .128592D-03, .688571D-04, .348963D-04, + .165594D-04, .725065D-05, .284599D-05, .962267D-06, + .251658D-06, .303135D-07, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .218641D+06, + .169694D+06, .130007D+06, .995816D+05, .762690D+05, + .584012D+05, .447147D+05, .342280D+05, .261980D+05, + .200473D+05, .153391D+05, .117340D+05, .897534D+04 / DATA (UPDI(I),I=4109,4160) / + .686375D+04, .524851D+04, .401257D+04, .306750D+04, + .234460D+04, .179203D+04, .136951D+04, .104667D+04, + .799895D+03, .611393D+03, .467346D+03, .357341D+03, + .273299D+03, .209157D+03, .159546D+03, .122283D+03, + .938096D+02, .720651D+02, .554438D+02, .427399D+02, + .330455D+02, .256065D+02, .199059D+02, .155340D+02, + .121716D+02, .958122D+01, .757684D+01, .602340D+01, + .481102D+01, .386086D+01, .311149D+01, .251729D+01, + .204276D+01, .166312D+01, .135428D+01, .110514D+01, + .900544D+00, .733729D+00, .596759D+00, .484175D+00, + .391559D+00, .315424D+00, .252914D+00, .201721D+00, + .159937D+00, .125984D+00, .985257D-01, .764526D-01, + .588266D-01, .448426D-01, .338893D-01, .252917D-01 / DATA (UPDI(I),I=4161,4212) / + .186544D-01, .135845D-01, .975649D-02, .690255D-02, + .480363D-02, .328341D-02, .220032D-02, .144287D-02, + .922677D-03, .576897D-03, .349128D-03, .204593D-03, + .115646D-03, .628572D-04, .327308D-04, .163181D-04, + .780523D-05, .360354D-05, .163846D-05, .750090D-06, + .345544D-06, .154855D-06, .607940D-07, .161141D-07, + .989981D-09, .000000D+00, .161592D+06, .208879D+06, + .159510D+06, .121778D+06, .929586D+05, .709395D+05, + .541281D+05, .412889D+05, .314905D+05, .240104D+05, + .183043D+05, .139503D+05, .106303D+05, .809821D+04, + .616838D+04, .469715D+04, .357642D+04, .272240D+04, + .207216D+04, .157689D+04, .120000D+04, .913063D+03, + .694794D+03, .528695D+03, .402390D+03, .306310D+03 / DATA (UPDI(I),I=4213,4264) / + .233308D+03, .177095D+03, .135065D+03, .103096D+03, + .787950D+02, .603069D+02, .462436D+02, .355633D+02, + .274078D+02, .211888D+02, .164429D+02, .128111D+02, + .100273D+02, .788413D+01, .623171D+01, .494870D+01, + .394848D+01, .316381D+01, .254503D+01, .205355D+01, + .166257D+01, .134629D+01, .109265D+01, .885555D+00, + .717699D+00, .580680D+00, .468721D+00, .377156D+00, + .302322D+00, .241231D+00, .191484D+00, .151107D+00, + .118477D+00, .922333D-01, .712494D-01, .545819D-01, + .414255D-01, .311731D-01, .231659D-01, .170150D-01, + .123398D-01, .882693D-02, .622054D-02, .431272D-02, + .293737D-02, .196198D-02, .128297D-02, .818573D-03, + .511150D-03, .309385D-03, .181750D-03, .103357D-03 / DATA (UPDI(I),I=4265,4316) / + .568491D-04, .302319D-04, .156201D-04, .790711D-05, + .397160D-05, .201414D-05, .103651D-05, .526376D-06, + .249847D-06, .997067D-07, .260701D-07, .165450D-08, + .000000D+00, .354658D+06, .273452D+06, .207908D+06, + .158026D+06, .120086D+06, .912247D+05, .692842D+05, + .526026D+05, .399282D+05, .302972D+05, .229838D+05, + .174297D+05, .132147D+05, .100155D+05, .758905D+04, + .574851D+04, .435345D+04, .329587D+04, .249478D+04, + .188786D+04, .142844D+04, .108059D+04, .817427D+03, + .618290D+03, .467716D+03, .353833D+03, .267816D+03, + .201973D+03, .153038D+03, .116045D+03, .880974D+02, + .669684D+02, .509964D+02, .389446D+02, .298006D+02, + .228733D+02, .176213D+02, .136287D+02, .105886D+02 / DATA (UPDI(I),I=4317,4368) / + .826376D+01, .648327D+01, .511025D+01, .404710D+01, + .321891D+01, .257035D+01, .205890D+01, .165496D+01, + .133056D+01, .107235D+01, .863091D+00, .694745D+00, + .558359D+00, .447746D+00, .357957D+00, .285113D+00, + .226081D+00, .178354D+00, .139894D+00, .109032D+00, + .843802D-01, .648040D-01, .493598D-01, .372477D-01, + .278708D-01, .205940D-01, .150399D-01, .108448D-01, + .771248D-02, .540290D-02, .372287D-02, .251924D-02, + .167100D-02, .108433D-02, .685698D-03, .423652D-03, + .252970D-03, .145918D-03, .808572D-04, .427786D-04, + .214129D-04, .100261D-04, .431683D-05, .165446D-05, + .532743D-06, .122507D-06, .300405D-08, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / DATA (UPDI(I),I=4369,4420) / + .462658D+06, .355365D+06, .268993D+06, .203541D+06, + .153972D+06, .116429D+06, .880141D+05, .665073D+05, + .502408D+05, .379372D+05, .286378D+05, .216089D+05, + .163002D+05, .122905D+05, .926440D+04, .698044D+04, + .525803D+04, .395903D+04, .298018D+04, .224253D+04, + .168713D+04, .126891D+04, .954245D+03, .717474D+03, + .539456D+03, .405592D+03, .305078D+03, .228595D+03, + .172094D+03, .129642D+03, .977670D+02, .738192D+02, + .558294D+02, .423417D+02, .321734D+02, .245201D+02, + .187552D+02, .144015D+02, .111080D+02, .860622D+01, + .670285D+01, .524493D+01, .412361D+01, .325607D+01, + .258137D+01, .205299D+01, .163861D+01, .130821D+01, + .104710D+01, .837031D+00, .669259D+00, .534332D+00 / DATA (UPDI(I),I=4421,4472) / + .425696D+00, .338154D+00, .267642D+00, .210909D+00, + .165364D+00, .128921D+00, .998784D-01, .768404D-01, + .586692D-01, .444300D-01, .333354D-01, .248024D-01, + .182233D-01, .132342D-01, .948998D-02, .671217D-02, + .467693D-02, .320580D-02, .215843D-02, .142492D-02, + .920718D-03, .580181D-03, .357620D-03, .213443D-03, + .123441D-03, .689395D-04, .370860D-04, .191664D-04, + .952330D-05, .456933D-05, .213505D-05, .990797D-06, + .464963D-06, .218325D-06, .984888D-07, .381069D-07, + .974347D-08, .607570D-09, .000000D+00, .598003D+06, + .457595D+06, .344856D+06, .259787D+06, .195636D+06, + .147260D+06, .110807D+06, .833390D+05, .626571D+05, + .470853D+05, .353703D+05, .265571D+05, .199323D+05 / DATA (UPDI(I),I=4473,4524) / + .149528D+05, .112130D+05, .840449D+04, .629711D+04, + .471588D+04, .353051D+04, .264191D+04, .197641D+04, + .147799D+04, .110503D+04, .825956D+03, .617308D+03, + .461303D+03, .344847D+03, .256756D+03, .192068D+03, + .143757D+03, .107704D+03, .807839D+02, .606866D+02, + .457139D+02, .344971D+02, .261089D+02, .198307D+02, + .151201D+02, .115797D+02, .890794D+01, .688849D+01, + .535187D+01, .417780D+01, .327556D+01, .257858D+01, + .203646D+01, .161423D+01, .127989D+01, .101753D+01, + .807950D+00, .641750D+00, .509041D+00, .402947D+00, + .318060D+00, .250166D+00, .195923D+00, .152679D+00, + .118315D+00, .911161D-01, .696866D-01, .528973D-01, + .398282D-01, .297112D-01, .219805D-01, .160584D-01 / DATA (UPDI(I),I=4525,4576) / + .115964D-01, .826929D-02, .581665D-02, .403106D-02, + .274855D-02, .184121D-02, .120976D-02, .778398D-03, + .488813D-03, .300644D-03, .179405D-03, .104068D-03, + .585998D-04, .320489D-04, .170615D-04, .890811D-05, + .461470D-05, .240090D-05, .126878D-05, .676080D-06, + .349824D-06, .165663D-06, .643971D-07, .160936D-07, + .104876D-08, .000000D+00, .765310D+06, .583457D+06, + .437810D+06, .328370D+06, .246190D+06, .184482D+06, + .138185D+06, .103452D+06, .774156D+05, .579009D+05, + .432863D+05, .323428D+05, .241551D+05, .180301D+05, + .134521D+05, .100309D+05, .747649D+04, .556949D+04, + .414716D+04, .308644D+04, .229620D+04, .170748D+04, + .126934D+04, .943275D+03, .700849D+03, .520601D+03 / DATA (UPDI(I),I=4577,4628) / + .386820D+03, .286214D+03, .212770D+03, .158246D+03, + .117799D+03, .877824D+02, .655100D+02, .490198D+02, + .367430D+02, .276199D+02, .208347D+02, .157763D+02, + .119985D+02, .916606D+01, .703882D+01, .543066D+01, + .420988D+01, .327791D+01, .256268D+01, .201008D+01, + .158256D+01, .124633D+01, .984289D+00, .776409D+00, + .612696D+00, .482882D+00, .379820D+00, .297932D+00, + .232886D+00, .181275D+00, .140410D+00, .108157D+00, + .827999D-01, .629550D-01, .475099D-01, .355661D-01, + .263795D-01, .194049D-01, .140963D-01, .101222D-01, + .717774D-02, .502107D-02, .346090D-02, .234740D-02, + .156457D-02, .102320D-02, .655652D-03, .410388D-03, + .251923D-03, .150358D-03, .875208D-04, .497044D-04 / DATA (UPDI(I),I=4629,4680) / + .276252D-04, .151077D-04, .821481D-05, .449463D-05, + .249133D-05, .139874D-05, .779234D-06, .412580D-06, + .195580D-06, .747367D-07, .181832D-07, .121187D-08, + .000000D+00, .969512D+06, .736468D+06, .550285D+06, + .410962D+06, .306776D+06, .228872D+06, .170671D+06, + .127196D+06, .947491D+05, .705366D+05, .524850D+05, + .390291D+05, .290080D+05, .215464D+05, .159957D+05, + .118675D+05, .880019D+04, .652155D+04, .483053D+04, + .357582D+04, .264585D+04, .195666D+04, .144645D+04, + .106879D+04, .789536D+03, .583044D+03, .430647D+03, + .316697D+03, .233994D+03, .172955D+03, .127940D+03, + .947339D+02, .702425D+02, .522199D+02, .388841D+02, + .290354D+02, .217560D+02, .163630D+02, .123606D+02 / DATA (UPDI(I),I=4681,4732) / + .937865D+01, .715316D+01, .548141D+01, .422040D+01, + .326391D+01, .253457D+01, .197472D+01, .154443D+01, + .120827D+01, .948016D+00, .742953D+00, .582547D+00, + .456221D+00, .356606D+00, .277993D+00, .215971D+00, + .167090D+00, .128647D+00, .985074D-01, .749684D-01, + .566678D-01, .425177D-01, .316463D-01, .233377D-01, + .170699D-01, .123298D-01, .880389D-02, .620819D-02, + .431899D-02, .296096D-02, .199784D-02, .132498D-02, + .862557D-03, .550542D-03, .343560D-03, .210569D-03, + .125759D-03, .734945D-04, .421133D-04, .237779D-04, + .133261D-04, .749340D-05, .426761D-05, .246186D-05, + .142690D-05, .809101D-06, .429788D-06, .201674D-06, + .753966D-07, .178449D-07, .121132D-08, .000000D+00 / DATA (UPDI(I),I=4733,4784) / + .121579D+07, .920294D+06, .684787D+06, .509268D+06, + .378545D+06, .281203D+06, .208781D+06, .154912D+06, + .114878D+06, .851346D+05, .630560D+05, .466715D+05, + .345243D+05, .255209D+05, .188543D+05, .139194D+05, + .102701D+05, .757225D+04, .557990D+04, .410897D+04, + .302422D+04, .222443D+04, .163541D+04, .120171D+04, + .882721D+03, .648122D+03, .475936D+03, .347914D+03, + .255523D+03, .187726D+03, .138014D+03, .101559D+03, + .748295D+02, .552773D+02, .408961D+02, .303401D+02, + .225850D+02, .168750D+02, .126633D+02, .954467D+01, + .723153D+01, .550472D+01, .421026D+01, .323455D+01, + .249524D+01, .193132D+01, .150069D+01, .116644D+01, + .909338D+00, .708098D+00, .551721D+00, .429387D+00 / DATA (UPDI(I),I=4785,4836) / + .333559D+00, .258438D+00, .199562D+00, .153468D+00, + .117456D+00, .894079D-01, .676451D-01, .508354D-01, + .379219D-01, .280642D-01, .205779D-01, .149662D-01, + .107491D-01, .763224D-02, .535215D-02, .370314D-02, + .252522D-02, .169508D-02, .111873D-02, .725080D-03, + .461079D-03, .286957D-03, .175676D-03, .105045D-03, + .616712D-04, .356695D-04, .204513D-04, .117189D-04, + .677517D-05, .397502D-05, .235303D-05, .138720D-05, + .790961D-06, .418082D-06, .193342D-06, .706032D-07, + .162611D-07, .112244D-08, .000000D+00, .150948D+07, + .113868D+07, .843855D+06, .624994D+06, .462637D+06, + .342226D+06, .253007D+06, .186917D+06, .138007D+06, + .101822D+06, .750767D+05, .553159D+05, .407298D+05 / DATA (UPDI(I),I=4837,4888) / + .299672D+05, .220341D+05, .161885D+05, .118860D+05, + .872019D+04, .639347D+04, .468403D+04, .342959D+04, + .250932D+04, .183501D+04, .134106D+04, .979661D+03, + .715267D+03, .522264D+03, .379553D+03, .277135D+03, + .202400D+03, .147911D+03, .108182D+03, .792199D+02, + .581584D+02, .427578D+02, .315208D+02, .233143D+02, + .173084D+02, .129048D+02, .966394D+01, .727452D+01, + .550158D+01, .418061D+01, .319102D+01, .244579D+01, + .188089D+01, .145220D+01, .112156D+01, .868851D+00, + .672325D+00, .520598D+00, .402674D+00, .310900D+00, + .239425D+00, .183771D+00, .140485D+00, .106885D+00, + .808848D-01, .608407D-01, .454580D-01, .337162D-01, + .248097D-01, .180882D-01, .130814D-01, .934253D-02 / DATA (UPDI(I),I=4889,4940) / + .659654D-02, .460042D-02, .316582D-02, .214746D-02, + .143424D-02, .942118D-03, .608039D-03, .385324D-03, + .239253D-03, .146375D-03, .876807D-04, .517430D-04, + .302169D-04, .175840D-04, .102785D-04, .607960D-05, + .364631D-05, .219446D-05, .130446D-05, .743002D-06, + .389154D-06, .176973D-06, .630880D-07, .141487D-07, + .992292D-09, .000000D+00, .185601D+07, .139540D+07, + .103000D+07, .759808D+06, .560148D+06, .412656D+06, + .303805D+06, .223500D+06, .164312D+06, .120705D+06, + .886097D+05, .649966D+05, .476420D+05, .348927D+05, + .255365D+05, .186736D+05, .136451D+05, .996228D+04, + .726824D+04, .529836D+04, .385975D+04, .280954D+04, + .204383D+04, .148576D+04, .107953D+04, .783871D+03 / DATA (UPDI(I),I=4941,4992) / + .569186D+03, .411297D+03, .298604D+03, .216822D+03, + .157524D+03, .114532D+03, .833671D+02, .608337D+02, + .444511D+02, .325671D+02, .239386D+02, .176608D+02, + .130849D+02, .973706D+01, .728326D+01, .547336D+01, + .413284D+01, .313463D+01, .238741D+01, .182443D+01, + .139981D+01, .107433D+01, .827116D+00, .636075D+00, + .489515D+00, .376334D+00, .288812D+00, .221086D+00, + .168687D+00, .128194D+00, .969625D-01, .729499D-01, + .545554D-01, .405281D-01, .298884D-01, .218686D-01, + .158537D-01, .114012D-01, .809709D-02, .568555D-02, + .394349D-02, .269926D-02, .182152D-02, .121056D-02, + .791575D-03, .508844D-03, .321455D-03, .199214D-03, + .121861D-03, .731695D-04, .434263D-04, .256102D-04 / DATA (UPDI(I),I=4993,5044) / + .151154D-04, .899287D-05, .541871D-05, .330252D-05, + .200774D-05, .119665D-05, .678168D-06, .351092D-06, + .156821D-06, .545647D-07, .119251D-07, .849319D-09, + .000000D+00, .226075D+07, .169415D+07, .124567D+07, + .915300D+06, .672102D+06, .493143D+06, .361584D+06, + .264910D+06, .193943D+06, .141870D+06, .103700D+06, + .757352D+05, .552687D+05, .402976D+05, .293585D+05, + .213698D+05, .155424D+05, .112938D+05, .820016D+04, + .594859D+04, .431200D+04, .312299D+04, .226028D+04, + .163461D+04, .118145D+04, .853293D+03, .616245D+03, + .442828D+03, .319709D+03, .230842D+03, .166753D+03, + .120543D+03, .872299D+02, .632779D+02, .459615D+02, + .334713D+02, .244542D+02, .179314D+02, .132041D+02 / DATA (UPDI(I),I=5045,5096) / + .976532D+01, .725937D+01, .542171D+01, .406852D+01, + .306677D+01, .232129D+01, .176295D+01, .134434D+01, + .102541D+01, .784649D+00, .599744D+00, .458771D+00, + .350585D+00, .267449D+00, .203521D+00, .154372D+00, + .116630D+00, .877041D-01, .656040D-01, .487804D-01, + .360317D-01, .264219D-01, .192235D-01, .138579D-01, + .991045D-02, .699933D-02, .488781D-02, .337192D-02, + .229590D-02, .154148D-02, .101956D-02, .663773D-03, + .425101D-03, .267804D-03, .165720D-03, .101411D-03, + .610691D-04, .364682D-04, .217194D-04, .129902D-04, + .784844D-05, .479968D-05, .295865D-05, .180847D-05, + .107663D-05, .605505D-06, .309367D-06, .135624D-06, + .460617D-07, .981798D-08, .709839D-09, .000000D+00 / DATA (UPDI(I),I=5097,5148) / + .627884D+05, .921696D+05, .711720D+05, .549582D+05, + .424382D+05, .327706D+05, .253054D+05, .195410D+05, + .150899D+05, .116528D+05, .899870D+04, .694929D+04, + .536677D+04, .414477D+04, .320116D+04, .247250D+04, + .190984D+04, .147534D+04, .113982D+04, .880716D+03, + .680623D+03, .526096D+03, .406753D+03, .314580D+03, + .243384D+03, .188388D+03, .145900D+03, .112662D+03, + .873925D+02, .678557D+02, .527461D+02, .410556D+02, + .320053D+02, .250125D+02, .195754D+02, .153560D+02, + .120766D+02, .952289D+01, .752952D+01, .596855D+01, + .474402D+01, .377839D+01, .301440D+01, .240762D+01, + .192394D+01, .153714D+01, .122803D+01, .978095D+00, + .778234D+00, .616411D+00, .486791D+00, .382707D+00 / DATA (UPDI(I),I=5149,5200) / + .299338D+00, .232779D+00, .179859D+00, .137990D+00, + .105052D+00, .793069D-01, .593293D-01, .439499D-01, + .322129D-01, .233401D-01, .167012D-01, .118085D-01, + .820907D-02, .561474D-02, .377212D-02, .248439D-02, + .160043D-02, .100563D-02, .614259D-03, .363188D-03, + .206643D-03, .112215D-03, .579145D-04, .276818D-04, + .119668D-04, .440972D-05, .115720D-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, .143837D+06, + .112190D+06, .864459D+05, .666035D+05, .513144D+05, + .395316D+05, .304535D+05, .234581D+05, .180691D+05, + .139169D+05, .107186D+05, .825465D+04, .635698D+04 / DATA (UPDI(I),I=5201,5252) / + .489520D+04, .376952D+04, .290252D+04, .223496D+04, + .172087D+04, .132509D+04, .102033D+04, .785742D+03, + .605127D+03, .466111D+03, .359088D+03, .276718D+03, + .213306D+03, .164509D+03, .126473D+03, .976692D+02, + .754844D+02, .583997D+02, .452341D+02, .350867D+02, + .272795D+02, .212376D+02, .165699D+02, .129600D+02, + .101621D+02, .798959D+01, .629688D+01, .497643D+01, + .394077D+01, .312615D+01, .248284D+01, .197321D+01, + .156804D+01, .124630D+01, .987643D+00, .782138D+00, + .616690D+00, .484952D+00, .379743D+00, .295938D+00, + .229370D+00, .176705D+00, .135221D+00, .102724D+00, + .774183D-01, .578524D-01, .428326D-01, .314005D-01, + .227748D-01, .163287D-01, .115813D-01, .808753D-02 / DATA (UPDI(I),I=5253,5304) / + .556514D-02, .376907D-02, .250836D-02, .163793D-02, + .104697D-02, .653752D-03, .397313D-03, .234188D-03, + .132759D-03, .722971D-04, .367992D-04, .170271D-04, + .651790D-05, .131766D-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, .177026D+06, .137755D+06, + .105857D+06, .813329D+05, .624865D+05, .479994D+05, + .368686D+05, .283142D+05, .217432D+05, .166943D+05, + .128169D+05, .983843D+04, .755160D+04, .579535D+04, + .444730D+04, .341227D+04, .261802D+04, .200836D+04, + .154065D+04, .118174D+04, .906471D+03, .695291D+03, + .533365D+03, .409167D+03, .313955D+03, .240939D+03 / DATA (UPDI(I),I=5305,5356) / + .184991D+03, .141555D+03, .108803D+03, .836825D+02, + .644238D+02, .496480D+02, .383121D+02, .296303D+02, + .229442D+02, .178033D+02, .138477D+02, .107969D+02, + .844061D+01, .661425D+01, .519748D+01, .409235D+01, + .322809D+01, .254950D+01, .201518D+01, .159283D+01, + .125952D+01, .993089D+00, .782718D+00, .614311D+00, + .480989D+00, .375094D+00, .291198D+00, .224895D+00, + .172698D+00, .131769D+00, .998439D-01, .750822D-01, + .560094D-01, .414150D-01, .303405D-01, .220054D-01, + .157883D-01, .112163D-01, .785412D-02, .542621D-02, + .369596D-02, .247883D-02, .163581D-02, .106039D-02, + .674839D-03, .420790D-03, .256965D-03, .153086D-03, + .895875D-04, .508997D-04, .282363D-04, .152079D-04 / DATA (UPDI(I),I=5357,5408) / + .796313D-05, .400327D-05, .192328D-05, .849579D-06, + .328276D-06, .871255D-07, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .218611D+06, .169666D+06, .129983D+06, + .995595D+05, .762493D+05, .583835D+05, .446988D+05, + .342138D+05, .261852D+05, .200359D+05, .153288D+05, + .117248D+05, .896710D+04, .685636D+04, .524188D+04, + .400662D+04, .306216D+04, .233981D+04, .178773D+04, + .136564D+04, .104319D+04, .796768D+03, .608577D+03, + .464809D+03, .355052D+03, .271230D+03, .207285D+03, + .157851D+03, .120742D+03, .924064D+02, .707829D+02, + .542688D+02, .416592D+02, .320480D+02, .246825D+02, + .190470D+02, .147329D+02, .114226D+02, .887934D+01 / DATA (UPDI(I),I=5409,5460) / + .691851D+01, .540582D+01, .423237D+01, .331990D+01, + .260754D+01, .204994D+01, .161173D+01, .126796D+01, + .994731D+00, .780282D+00, .609572D+00, .475187D+00, + .369021D+00, .285357D+00, .219569D+00, .168031D+00, + .127802D+00, .965601D-01, .724268D-01, .539100D-01, + .397901D-01, .291105D-01, .210952D-01, .151307D-01, + .107531D-01, .753862D-02, .521900D-02, .356632D-02, + .240292D-02, .159590D-02, .104343D-02, .671712D-03, + .425249D-03, .264974D-03, .162142D-03, .983173D-04, + .586073D-04, .346961D-04, .204099D-04, .120479D-04, + .713048D-05, .427968D-05, .258058D-05, .156595D-05, + .936431D-06, .545769D-06, .298118D-06, .146936D-06, + .600014D-07, .160826D-07, .989837D-09, .000000D+00 / DATA (UPDI(I),I=5461,5512) / + .161524D+06, .208849D+06, .159484D+06, .121755D+06, + .929375D+05, .709206D+05, .541111D+05, .412738D+05, + .314769D+05, .239982D+05, .182934D+05, .139405D+05, + .106216D+05, .809033D+04, .616131D+04, .469081D+04, + .357073D+04, .271730D+04, .206757D+04, .157278D+04, + .119630D+04, .909736D+03, .691799D+03, .525997D+03, + .399958D+03, .304113D+03, .231322D+03, .175298D+03, + .133433D+03, .101610D+03, .774398D+02, .590670D+02, + .451054D+02, .345151D+02, .264395D+02, .202914D+02, + .156090D+02, .120344D+02, .930262D+01, .720760D+01, + .560022D+01, .436013D+01, .340124D+01, .265687D+01, + .207757D+01, .162489D+01, .127184D+01, .992809D+00, + .775074D+00, .602705D+00, .467761D+00, .361719D+00 / DATA (UPDI(I),I=5513,5564) / + .278587D+00, .213545D+00, .162838D+00, .123437D+00, + .929735D-01, .695388D-01, .516291D-01, .380217D-01, + .277650D-01, .200909D-01, .143955D-01, .102253D-01, + .716910D-02, .496685D-02, .339938D-02, .229631D-02, + .153090D-02, .100623D-02, .652422D-03, .416977D-03, + .263077D-03, .163618D-03, .101281D-03, .619973D-04, + .379391D-04, .232402D-04, .143839D-04, .898028D-05, + .569955D-05, .363412D-05, .231898D-05, .144967D-05, + .873786D-06, .488971D-06, .243667D-06, .990936D-07, + .260458D-07, .165439D-08, .000000D+00, .354622D+06, + .273420D+06, .207880D+06, .158001D+06, .120064D+06, + .912042D+05, .692658D+05, .525861D+05, .399135D+05, + .302840D+05, .229720D+05, .174191D+05, .132051D+05 / DATA (UPDI(I),I=5565,5616) / + .100069D+05, .758139D+04, .574164D+04, .434729D+04, + .329034D+04, .248982D+04, .188340D+04, .142444D+04, + .107699D+04, .814192D+03, .615378D+03, .465092D+03, + .351465D+03, .265677D+03, .200040D+03, .151285D+03, + .114452D+03, .866467D+02, .656440D+02, .497840D+02, + .378313D+02, .287758D+02, .219274D+02, .167462D+02, + .128178D+02, .983615D+01, .756551D+01, .583563D+01, + .451064D+01, .349346D+01, .270968D+01, .210418D+01, + .163453D+01, .127094D+01, .985700D+00, .764745D+00, + .591083D+00, .456080D+00, .350725D+00, .268681D+00, + .204908D+00, .155498D+00, .117336D+00, .879981D-01, + .655538D-01, .484896D-01, .355883D-01, .259080D-01, + .186963D-01, .133640D-01, .947333D-02, .663030D-02 / DATA (UPDI(I),I=5617,5668) / + .458699D-02, .313559D-02, .211583D-02, .140887D-02, + .924459D-03, .597719D-03, .380130D-03, .237759D-03, + .145719D-03, .880551D-04, .518515D-04, .298652D-04, + .166970D-04, .904190D-05, .466911D-05, .227887D-05, + .101050D-05, .388364D-06, .104751D-06, .495941D-09, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .462620D+06, .355331D+06, + .268962D+06, .203513D+06, .153947D+06, .116406D+06, + .879942D+05, .664895D+05, .502248D+05, .379228D+05, + .286250D+05, .215975D+05, .162899D+05, .122813D+05, + .925612D+04, .697302D+04, .525138D+04, .395307D+04, + .297483D+04, .223773D+04, .168282D+04, .126503D+04, + .950762D+03, .714341D+03, .536635D+03, .403048D+03 / DATA (UPDI(I),I=5669,5720) / + .302782D+03, .226523D+03, .170218D+03, .127940D+03, + .962204D+02, .724105D+02, .545432D+02, .411644D+02, + .310934D+02, .235273D+02, .178408D+02, .135583D+02, + .103299D+02, .788835D+01, .604113D+01, .463627D+01, + .356539D+01, .274620D+01, .211790D+01, .163409D+01, + .126225D+01, .972634D+00, .749899D+00, .576077D+00, + .441885D+00, .337878D+00, .257421D+00, .195287D+00, + .147448D+00, .110724D+00, .826564D-01, .613059D-01, + .451605D-01, .330175D-01, .239510D-01, .172283D-01, + .122786D-01, .868193D-02, .606340D-02, .418792D-02, + .285974D-02, .192902D-02, .128513D-02, .844636D-03, + .547767D-03, .350100D-03, .220608D-03, .136754D-03, + .840042D-04, .506899D-04, .302540D-04, .178353D-04 / DATA (UPDI(I),I=5721,5772) / + .104415D-04, .605947D-05, .351629D-05, .203104D-05, + .117352D-05, .669444D-06, .374477D-06, .198022D-06, + .952173D-07, .377895D-07, .973103D-08, .607504D-09, + .000000D+00, .597961D+06, .457557D+06, .344822D+06, + .259757D+06, .195610D+06, .147236D+06, .110786D+06, + .833197D+05, .626399D+05, .470699D+05, .353564D+05, + .265447D+05, .199212D+05, .149428D+05, .112041D+05, + .839650D+04, .628994D+04, .470946D+04, .352475D+04, + .263675D+04, .197178D+04, .147383D+04, .110129D+04, + .822595D+03, .614285D+03, .458580D+03, .342391D+03, + .254543D+03, .190068D+03, .141946D+03, .106061D+03, + .792912D+02, .593274D+02, .444736D+02, .333634D+02, + .250708D+02, .188789D+02, .142467D+02, .107780D+02 / DATA (UPDI(I),I=5773,5824) / + .817253D+01, .621473D+01, .473608D+01, .361680D+01, + .276663D+01, .211917D+01, .162415D+01, .124638D+01, + .954226D+00, .731118D+00, .558219D+00, .425650D+00, + .323597D+00, .245168D+00, .184992D+00, .138948D+00, + .103820D+00, .771286D-01, .569424D-01, .417614D-01, + .304050D-01, .219690D-01, .157447D-01, .111828D-01, + .788248D-02, .548965D-02, .378256D-02, .257797D-02, + .173664D-02, .115624D-02, .760173D-03, .493741D-03, + .316575D-03, .200548D-03, .125396D-03, .780089D-04, + .479654D-04, .293952D-04, .179793D-04, .110497D-04, + .682335D-05, .426045D-05, .267035D-05, .167230D-05, + .102805D-05, .609128D-06, .334993D-06, .163305D-06, + .641711D-07, .160848D-07, .104871D-08, .000000D+00 / DATA (UPDI(I),I=5825,5876) / + .765265D+06, .583416D+06, .437774D+06, .328338D+06, + .246161D+06, .184457D+06, .138162D+06, .103431D+06, + .773970D+05, .578843D+05, .432714D+05, .323294D+05, + .241431D+05, .180194D+05, .134425D+05, .100223D+05, + .746880D+04, .556259D+04, .414098D+04, .308090D+04, + .229123D+04, .170302D+04, .126534D+04, .939680D+03, + .697617D+03, .517694D+03, .384202D+03, .283858D+03, + .210643D+03, .156324D+03, .116059D+03, .862059D+02, + .640785D+02, .477177D+02, .355570D+02, .265383D+02, + .198474D+02, .148747D+02, .111754D+02, .841523D+01, + .635505D+01, .480966D+01, .364782D+01, .277143D+01, + .210862D+01, .160537D+01, .122400D+01, .931102D+00, + .708965D+00, .538001D+00, .407798D+00, .308234D+00 / DATA (UPDI(I),I=5877,5928) / + .232216D+00, .174263D+00, .130196D+00, .967808D-01, + .715424D-01, .525656D-01, .383736D-01, .278152D-01, + .200131D-01, .142858D-01, .101082D-01, .709994D-02, + .492855D-02, .338608D-02, .230202D-02, .154770D-02, + .102908D-02, .676270D-03, .439533D-03, .282435D-03, + .179671D-03, .113148D-03, .711394D-04, .444269D-04, + .278069D-04, .174845D-04, .111100D-04, .712740D-05, + .462655D-05, .300844D-05, .194042D-05, .121879D-05, + .729798D-06, .401769D-06, .193884D-06, .745760D-07, + .181770D-07, .121184D-08, .000000D+00, .969464D+06, + .736425D+06, .550246D+06, .410928D+06, .306744D+06, + .228844D+06, .170646D+06, .127174D+06, .947291D+05, + .705187D+05, .524690D+05, .390148D+05, .289951D+05 / DATA (UPDI(I),I=5929,5980) / + .215349D+05, .159855D+05, .118583D+05, .879194D+04, + .651416D+04, .482390D+04, .356989D+04, .264054D+04, + .195190D+04, .144218D+04, .106496D+04, .786092D+03, + .579949D+03, .427864D+03, .314196D+03, .231740D+03, + .170922D+03, .126104D+03, .930743D+02, .687398D+02, + .508575D+02, .376475D+02, .279124D+02, .207353D+02, + .154355D+02, .115182D+02, .861453D+01, .646142D+01, + .485706D+01, .365895D+01, .276132D+01, .208703D+01, + .157855D+01, .119583D+01, .903911D+00, .684005D+00, + .515900D+00, .388725D+00, .292116D+00, .218829D+00, + .163313D+00, .121360D+00, .897415D-01, .660023D-01, + .482569D-01, .350605D-01, .252971D-01, .181210D-01, + .128807D-01, .907726D-02, .635153D-02, .439329D-02 / DATA (UPDI(I),I=5981,6032) / + .300857D-02, .203953D-02, .136800D-02, .908021D-03, + .596186D-03, .387561D-03, .249461D-03, .159277D-03, + .100949D-03, .640744D-04, .405638D-04, .258441D-04, + .166112D-04, .108172D-04, .711928D-05, .472909D-05, + .313412D-05, .204621D-05, .129267D-05, .772676D-06, + .421923D-06, .200456D-06, .752826D-07, .178405D-07, + .121129D-08, .000000D+00, .121574D+07, .920247D+06, + .684745D+06, .509231D+06, .378512D+06, .281173D+06, + .208754D+06, .154888D+06, .114857D+06, .851153D+05, + .630388D+05, .466561D+05, .345105D+05, .255086D+05, + .188433D+05, .139095D+05, .102613D+05, .756435D+04, + .557283D+04, .410264D+04, .301854D+04, .221934D+04, + .163085D+04, .119762D+04, .879059D+03, .644834D+03 / DATA (UPDI(I),I=6033,6084) / + .472984D+03, .345265D+03, .253141D+03, .185582D+03, + .136083D+03, .998173D+02, .732569D+02, .538561D+02, + .396110D+02, .291775D+02, .215331D+02, .159237D+02, + .118037D+02, .876940D+01, .653381D+01, .487884D+01, + .365101D+01, .273722D+01, .205533D+01, .154454D+01, + .116265D+01, .873308D+00, .656789D+00, .492372D+00, + .368800D+00, .275539D+00, .205241D+00, .152324D+00, + .112581D+00, .828108D-01, .605917D-01, .440794D-01, + .318696D-01, .228866D-01, .163197D-01, .115496D-01, + .810495D-02, .564854D-02, .389231D-02, .265629D-02, + .179519D-02, .120102D-02, .795633D-03, .521831D-03, + .339232D-03, .218686D-03, .140115D-03, .893463D-04, + .572161D-04, .366728D-04, .237283D-04, .155280D-04 / DATA (UPDI(I),I=6085,6136) / + .103021D-04, .690203D-05, .465028D-05, .311244D-05, + .204012D-05, .128731D-05, .764180D-06, .412373D-06, + .192469D-06, .705225D-07, .162580D-07, .112242D-08, + .000000D+00, .150943D+07, .113863D+07, .843810D+06, + .624954D+06, .462602D+06, .342194D+06, .252978D+06, + .186891D+06, .137984D+06, .101801D+06, .750583D+05, + .552994D+05, .407151D+05, .299541D+05, .220223D+05, + .161780D+05, .118765D+05, .871174D+04, .638591D+04, + .467727D+04, .342354D+04, .250391D+04, .183016D+04, + .133672D+04, .975775D+03, .711784D+03, .519141D+03, + .376756D+03, .274624D+03, .200145D+03, .145884D+03, + .106359D+03, .775788D+02, .566802D+02, .414260D+02, + .303209D+02, .222336D+02, .163357D+02, .120305D+02 / DATA (UPDI(I),I=6137,6188) / + .887965D+01, .657279D+01, .487594D+01, .362510D+01, + .270021D+01, .201453D+01, .150424D+01, .112522D+01, + .839936D+00, .627842D+00, .467839D+00, .348359D+00, + .258764D+00, .191654D+00, .141452D+00, .103977D+00, + .760757D-01, .553749D-01, .400805D-01, .288354D-01, + .206085D-01, .146270D-01, .103054D-01, .720057D-02, + .499762D-02, .343039D-02, .233270D-02, .157149D-02, + .104855D-02, .693236D-03, .454166D-03, .295253D-03, + .190632D-03, .122573D-03, .786304D-04, .507850D-04, + .329244D-04, .215942D-04, .143433D-04, .965352D-05, + .654847D-05, .444980D-05, .299133D-05, .195942D-05, + .123027D-05, .723355D-06, .385018D-06, .176349D-06, + .630310D-07, .141465D-07, .992277D-09, .000000D+00 / DATA (UPDI(I),I=6189,6240) / + .185595D+07, .139535D+07, .102995D+07, .759764D+06, + .560109D+06, .412621D+06, .303774D+06, .223472D+06, + .164287D+06, .120683D+06, .885900D+05, .649789D+05, + .476262D+05, .348786D+05, .255239D+05, .186623D+05, + .136350D+05, .995328D+04, .726020D+04, .529117D+04, + .385332D+04, .280379D+04, .203869D+04, .148116D+04, + .107542D+04, .780189D+03, .565890D+03, .408350D+03, + .295963D+03, .214456D+03, .155402D+03, .112629D+03, + .816592D+02, .593004D+02, .430749D+02, .313322D+02, + .228312D+02, .166690D+02, .121980D+02, .894588D+01, + .657947D+01, .484966D+01, .358253D+01, .265153D+01, + .196570D+01, .145857D+01, .108431D+01, .804413D+00, + .597660D+00, .442688D+00, .327701D+00, .242019D+00 / DATA (UPDI(I),I=6241,6292) / + .178239D+00, .130821D+00, .956403D-01, .696031D-01, + .503994D-01, .362935D-01, .259810D-01, .184787D-01, + .130538D-01, .915530D-02, .636891D-02, .440196D-02, + .300960D-02, .203916D-02, .136934D-02, .911242D-03, + .601267D-03, .393510D-03, .255862D-03, .165486D-03, + .106799D-03, .689248D-04, .448859D-04, .294096D-04, + .195208D-04, .131267D-04, .893192D-05, .611064D-05, + .417135D-05, .280626D-05, .183156D-05, .114167D-05, + .663784D-06, .348102D-06, .156375D-06, .545244D-07, + .119235D-07, .849308D-09, .000000D+00, .226069D+07, + .169409D+07, .124562D+07, .915253D+06, .672061D+06, + .493107D+06, .361551D+06, .264881D+06, .193917D+06, + .141846D+06, .103679D+06, .757163D+05, .552518D+05 / DATA (UPDI(I),I=6293,6344) / + .402825D+05, .293451D+05, .213578D+05, .155317D+05, + .112843D+05, .819161D+04, .594095D+04, .430517D+04, + .311689D+04, .225483D+04, .162975D+04, .117710D+04, + .849408D+03, .612773D+03, .439730D+03, .316939D+03, + .228365D+03, .164538D+03, .118561D+03, .854572D+02, + .616918D+02, .445432D+02, .322040D+02, .233228D+02, + .169229D+02, .123069D+02, .896935D+01, .655541D+01, + .480160D+01, .352478D+01, .259247D+01, .190995D+01, + .140843D+01, .104064D+01, .767321D+00, .566696D+00, + .417267D+00, .307086D+00, .225497D+00, .165137D+00, + .120535D+00, .876415D-01, .634421D-01, .456986D-01, + .327404D-01, .233204D-01, .165058D-01, .116050D-01, + .810209D-02, .561139D-02, .386213D-02, .263009D-02 / DATA (UPDI(I),I=6345,6396) / + .177561D-02, .118858D-02, .788908D-03, .519584D-03, + .339760D-03, .220997D-03, .143221D-03, .927927D-04, + .602499D-04, .395519D-04, .261692D-04, .175525D-04, + .119225D-04, .817901D-05, .562605D-05, .384705D-05, + .258345D-05, .167670D-05, .103598D-05, .594996D-06, + .307210D-06, .135307D-06, .460333D-07, .981690D-08, + .709831D-09, .000000D+00, .142938D+07, .111493D+07, + .859155D+06, .662062D+06, .510185D+06, .393151D+06, + .302967D+06, .233472D+06, .179920D+06, .138654D+06, + .106854D+06, .823494D+05, .634661D+05, .489146D+05, + .377010D+05, .290596D+05, .224004D+05, .172685D+05, + .133136D+05, .102657D+05, .791672D+04, .610633D+04, + .471097D+04, .363546D+04, .280641D+04, .216731D+04 / DATA (UPDI(I),I=6397,6448) / + .167458D+04, .128994D+04, .998138D+03, .773036D+03, + .599348D+03, .465291D+03, .361783D+03, .282038D+03, + .220232D+03, .172443D+03, .135453D+03, .106783D+03, + .845230D+02, .671951D+02, .536896D+02, .431115D+02, + .347983D+02, .282362D+02, .230308D+02, .188798D+02, + .155620D+02, .128684D+02, .106951D+02, .890964D+01, + .744895D+01, .624249D+01, .524088D+01, .440537D+01, + .370543D+01, .311690D+01, .262054D+01, .220091D+01, + .184552D+01, .154420D+01, .128861D+01, .107182D+01, + .888087D+00, .733242D+00, .601637D+00, .490829D+00, + .397849D+00, .320151D+00, .255543D+00, .202130D+00, + .158266D+00, .122520D+00, .936295D-01, .704946D-01, + .523443D-01, .380811D-01, .271280D-01, .188611D-01 / DATA (UPDI(I),I=6449,6500) / + .127470D-01, .833164D-02, .523259D-02, .313373D-02, + .176267D-02, .920776D-03, .435213D-03, .179439D-03, + .606945D-04, .150112D-04, .209650D-05, .723526D-07, + .000000D+00, .219368D+07, .170558D+07, .130928D+07, + .100478D+07, .771084D+06, .591574D+06, .453843D+06, + .348075D+06, .266947D+06, .204666D+06, .156908D+06, + .120256D+06, .921617D+05, .706077D+05, .540918D+05, + .414257D+05, .317240D+05, .242867D+05, .185923D+05, + .142288D+05, .108894D+05, .833150D+04, .637481D+04, + .487674D+04, .373125D+04, .285453D+04, .218447D+04, + .166568D+04, .127569D+04, .977422D+03, .749543D+03, + .575283D+03, .442143D+03, .340571D+03, .262720D+03, + .203153D+03, .157580D+03, .122642D+03, .958406D+02 / DATA (UPDI(I),I=6501,6552) / + .752114D+02, .593279D+02, .470291D+02, .374815D+02, + .300313D+02, .241932D+02, .195901D+02, .159551D+02, + .130370D+02, .107103D+02, .882027D+01, .729184D+01, + .604359D+01, .501900D+01, .417385D+01, .347376D+01, + .289167D+01, .240618D+01, .200032D+01, .166036D+01, + .137534D+01, .113622D+01, .935715D+00, .767574D+00, + .627454D+00, .509663D+00, .411609D+00, .330237D+00, + .263017D+00, .207749D+00, .162589D+00, .125927D+00, + .964098D-01, .728478D-01, .542090D-01, .397691D-01, + .285725D-01, .200887D-01, .137775D-01, .917714D-02, + .590781D-02, .364940D-02, .214768D-02, .118483D-02, + .606060D-03, .279728D-03, .112325D-03, .368364D-04, + .879930D-05, .119188D-05, .408999D-07, .000000D+00 / DATA (UPDI(I),I=6553,6604) / + .319571D+07, .247596D+07, .189289D+07, .144649D+07, + .110526D+07, .844151D+06, .644652D+06, .492069D+06, + .375551D+06, .286483D+06, .218506D+06, .166573D+06, + .126962D+06, .967192D+05, .736668D+05, .560780D+05, + .426806D+05, .324659D+05, .246912D+05, .187678D+05, + .142630D+05, .108336D+05, .822771D+04, .624564D+04, + .474078D+04, .359693D+04, .272938D+04, .206274D+04, + .156561D+04, .118842D+04, .902678D+03, .686016D+03, + .521956D+03, .397909D+03, .303727D+03, .232338D+03, + .178258D+03, .137202D+03, .106026D+03, .822700D+02, + .641677D+02, .502932D+02, .396345D+02, .314023D+02, + .250186D+02, .200363D+02, .161428D+02, .130487D+02, + .106071D+02, .864392D+01, .707254D+01, .580225D+01 / DATA (UPDI(I),I=6605,6656) / + .477017D+01, .392751D+01, .323656D+01, .266796D+01, + .219853D+01, .181012D+01, .148810D+01, .122092D+01, + .999050D+00, .814967D+00, .662144D+00, .536121D+00, + .431278D+00, .344928D+00, .274024D+00, .216084D+00, + .168958D+00, .130877D+00, .100303D+00, .759702D-01, + .567761D-01, .417702D-01, .302862D-01, .214950D-01, + .149204D-01, .100970D-01, .663090D-02, .420535D-02, + .255600D-02, .147854D-02, .800294D-03, .400969D-03, + .180790D-03, .707254D-04, .224995D-04, .519440D-05, + .682239D-06, .229118D-07, .000000D+00, .447253D+07, + .345298D+07, .262898D+07, .200054D+07, .152203D+07, + .115733D+07, .879836D+06, .668481D+06, .507778D+06, + .385470D+06, .292545D+06, .221878D+06, .168233D+06 / DATA (UPDI(I),I=6657,6708) / + .127471D+06, .965558D+05, .730866D+05, .553036D+05, + .418171D+05, .316086D+05, .238746D+05, .180268D+05, + .136014D+05, .102592D+05, .773290D+04, .582724D+04, + .438818D+04, .330429D+04, .247727D+04, .186500D+04, + .140387D+04, .105720D+04, .796394D+03, .600481D+03, + .453560D+03, .342947D+03, .259821D+03, .197399D+03, + .150430D+03, .115086D+03, .883986D+02, .682493D+02, + .529485D+02, .413031D+02, .323926D+02, .255474D+02, + .202544D+02, .161567D+02, .129305D+02, .104084D+02, + .839961D+01, .680665D+01, .553101D+01, .450427D+01, + .367389D+01, .299942D+01, .244966D+01, .200010D+01, + .163170D+01, .132919D+01, .108062D+01, .876213D+00, + .708280D+00, .570199D+00, .457457D+00, .364589D+00 / DATA (UPDI(I),I=6709,6760) / + .288872D+00, .227324D+00, .177546D+00, .137477D+00, + .105439D+00, .799908D-01, .599602D-01, .443378D-01, + .322620D-01, .231287D-01, .162224D-01, .111224D-01, + .743022D-02, .481347D-02, .300902D-02, .180065D-02, + .102449D-02, .544515D-03, .267458D-03, .117941D-03, + .450102D-04, .139166D-04, .311298D-05, .397051D-06, + .127572D-07, .000000D+00, .606392D+07, .466532D+07, + .353764D+07, .268088D+07, .203106D+07, .153775D+07, + .116391D+07, .880353D+06, .665654D+06, .502957D+06, + .379885D+06, .286713D+06, .216305D+06, .163059D+06, + .122866D+06, .925041D+05, .696126D+05, .523411D+05, + .393357D+05, .295357D+05, .221664D+05, .166209D+05, + .124569D+05, .932808D+04, .698211D+04, .522150D+04 / DATA (UPDI(I),I=6761,6812) / + .390396D+04, .290528D+04, .217091D+04, .162164D+04, + .121160D+04, .905362D+03, .677010D+03, .507063D+03, + .380099D+03, .285441D+03, .214926D+03, .162304D+03, + .123032D+03, .936270D+02, .716125D+02, .550380D+02, + .425303D+02, .330425D+02, .258161D+02, .202764D+02, + .160247D+02, .127060D+02, .101342D+02, .810357D+01, + .650732D+01, .524026D+01, .422936D+01, .341904D+01, + .276668D+01, .223972D+01, .181266D+01, .146586D+01, + .118367D+01, .953928D+00, .766739D+00, .614381D+00, + .490254D+00, .389859D+00, .307942D+00, .241795D+00, + .188545D+00, .145901D+00, .111915D+00, .850152D-01, + .638669D-01, .473969D-01, .346902D-01, .249750D-01, + .177102D-01, .122812D-01, .832066D-02, .548985D-02 / DATA (UPDI(I),I=6813,6864) / + .351011D-02, .216403D-02, .127586D-02, .714474D-03, + .373204D-03, .179883D-03, .776744D-04, .289597D-04, + .871983D-05, .189457D-05, .234958D-06, .700346D-08, + .000000D+00, .855736D+07, .655502D+07, .494537D+07, + .372841D+07, .280982D+07, .211602D+07, .159285D+07, + .119812D+07, .900792D+06, .676704D+06, .508103D+06, + .381186D+06, .285813D+06, .214111D+06, .160302D+06, + .119902D+06, .896277D+05, .669313D+05, .499492D+05, + .372377D+05, .277421D+05, .206463D+05, .153551D+05, + .114082D+05, .847026D+04, .628199D+04, .465711D+04, + .343532D+04, .254412D+04, .188313D+04, .139382D+04, + .103158D+04, .763835D+03, .566392D+03, .420230D+03, + .312296D+03, .232654D+03, .173804D+03, .130313D+03 / DATA (UPDI(I),I=6865,6916) / + .980763D+02, .741824D+02, .563764D+02, .430753D+02, + .330898D+02, .255621D+02, .198510D+02, .155130D+02, + .121621D+02, .959248D+01, .758497D+01, .602350D+01, + .479726D+01, .382934D+01, .306185D+01, .245066D+01, + .196235D+01, .157096D+01, .125666D+01, .100377D+01, + .800196D+00, .636210D+00, .504261D+00, .397984D+00, + .313021D+00, .244507D+00, .189838D+00, .146356D+00, + .111956D+00, .848776D-01, .637131D-01, .472856D-01, + .346587D-01, .250468D-01, .177968D-01, .124511D-01, + .851394D-02, .568472D-02, .369398D-02, .232439D-02, + .140903D-02, .815916D-03, .448250D-03, .229338D-03, + .108089D-03, .455388D-04, .165249D-04, .482841D-05, + .101536D-05, .121781D-06, .309468D-08, .000000D+00 / DATA (UPDI(I),I=6917,6968) / + .117599D+08, .896936D+07, .673275D+07, .505003D+07, + .378600D+07, .283613D+07, .212343D+07, .158849D+07, + .118763D+07, .887144D+06, .662266D+06, .493929D+06, + .368129D+06, .274098D+06, .203936D+06, .151574D+06, + .112569D+06, .835092D+05, .619005D+05, .458303D+05, + .339034D+05, .250506D+05, .184936D+05, .136368D+05, + .100469D+05, .739254D+04, .543623D+04, .397650D+04, + .292002D+04, .214271D+04, .157191D+04, .115288D+04, + .845742D+03, .621223D+03, .456463D+03, .335894D+03, + .247732D+03, .183192D+03, .135939D+03, .101247D+03, + .757771D+02, .569803D+02, .430738D+02, .327361D+02, + .250186D+02, .192211D+02, .148607D+02, .115259D+02, + .899406D+01, .703599D+01, .552828D+01, .435634D+01 / DATA (UPDI(I),I=6969,7020) / + .344071D+01, .272220D+01, .215593D+01, .170827D+01, + .135323D+01, .107116D+01, .846641D+00, .667866D+00, + .525423D+00, .412066D+00, .321766D+00, .250383D+00, + .193470D+00, .148577D+00, .113284D+00, .856911D-01, + .642289D-01, .476570D-01, .349531D-01, .253114D-01, + .180667D-01, .126737D-01, .875126D-02, .590277D-02, + .388564D-02, .248775D-02, .154122D-02, .919061D-03, + .522987D-03, .282036D-03, .141433D-03, .652300D-04, + .268390D-04, .948922D-05, .269431D-05, .549086D-06, + .635704D-07, .119684D-08, .000000D+00, .157770D+08, + .119827D+08, .895034D+07, .667986D+07, .498241D+07, + .371314D+07, .276546D+07, .205779D+07, .153016D+07, + .113672D+07, .843825D+06, .625758D+06, .463676D+06 / DATA (UPDI(I),I=7021,7072) / + .343204D+06, .253815D+06, .187493D+06, .138375D+06, + .102001D+06, .751157D+05, .552467D+05, .405926D+05, + .297863D+05, .218346D+05, .159843D+05, .116896D+05, + .853623D+04, .622888D+04, .451990D+04, .329226D+04, + .239596D+04, .174286D+04, .126726D+04, .921444D+03, + .670763D+03, .488337D+03, .355993D+03, .260057D+03, + .190451D+03, .139942D+03, .103197D+03, .764646D+02, + .569185D+02, .425906D+02, .320395D+02, .242361D+02, + .184293D+02, .141032D+02, .108260D+02, .836179D+01, + .647442D+01, .503523D+01, .392750D+01, .307053D+01, + .240474D+01, .188525D+01, .147872D+01, .115957D+01, + .908620D+00, .710924D+00, .555146D+00, .432327D+00, + .335615D+00, .259391D+00, .199781D+00, .152770D+00 / DATA (UPDI(I),I=7073,7124) / + .116095D+00, .875830D-01, .655415D-01, .485933D-01, + .356582D-01, .258594D-01, .185119D-01, .130588D-01, + .905024D-02, .617228D-02, .411000D-02, .266970D-02, + .168575D-02, .102937D-02, .604597D-03, .338583D-03, + .179531D-03, .884182D-04, .399995D-04, .161198D-04, + .557285D-05, .154460D-05, .306658D-06, .343399D-07, + .349511D-09, .000000D+00, .207163D+08, .156700D+08, + .116482D+08, .865101D+07, .642072D+07, .476105D+07, + .352783D+07, .261150D+07, .193168D+07, .142735D+07, + .105380D+07, .777164D+06, .572628D+06, .421430D+06, + .309853D+06, .227535D+06, .166913D+06, .122282D+06, + .894869D+05, .653968D+05, .477371D+05, .347962D+05, + .253338D+05, .184175D+05, .133735D+05, .969503D+04 / DATA (UPDI(I),I=7125,7176) / + .702210D+04, .505642D+04, .365457D+04, .263864D+04, + .190387D+04, .137292D+04, .989839D+03, .714369D+03, + .515513D+03, .372447D+03, .269601D+03, .195618D+03, + .142392D+03, .104009D+03, .763284D+02, .562691D+02, + .416953D+02, .310599D+02, .232649D+02, .175169D+02, + .132736D+02, .100886D+02, .771591D+01, .591552D+01, + .455549D+01, .351857D+01, .272398D+01, .211256D+01, + .164009D+01, .127394D+01, .989307D+00, .767694D+00, + .594843D+00, .460001D+00, .354757D+00, .272721D+00, + .208720D+00, .159183D+00, .120521D+00, .906749D-01, + .677185D-01, .501616D-01, .368083D-01, .267289D-01, + .191788D-01, .135817D-01, .947586D-02, .649314D-02, + .437761D-02, .288044D-02, .184822D-02, .115233D-02 / DATA (UPDI(I),I=7177,7228) / + .694464D-03, .402344D-03, .222121D-03, .116029D-03, + .562498D-04, .250273D-04, .991080D-05, .336322D-05, + .914225D-06, .177745D-06, .192974D-07, .000000D+00, + .000000D+00, .266815D+08, .201021D+08, .148729D+08, + .109936D+08, .812009D+07, .599182D+07, .441778D+07, + .325388D+07, .239453D+07, .176020D+07, .129270D+07, + .948248D+06, .694880D+06, .508576D+06, .371820D+06, + .271477D+06, .197985D+06, .144185D+06, .104877D+06, + .761716D+05, .552524D+05, .400161D+05, .289434D+05, + .209011D+05, .150732D+05, .108508D+05, .780326D+04, + .557744D+04, .400114D+04, .286692D+04, .205250D+04, + .146838D+04, .105007D+04, .751592D+03, .537796D+03, + .385211D+03, .276402D+03, .198775D+03, .143388D+03 / DATA (UPDI(I),I=7229,7280) / + .103783D+03, .754619D+02, .551146D+02, .404581D+02, + .298554D+02, .221519D+02, .165213D+02, .124011D+02, + .933597D+01, .707297D+01, .537127D+01, .409739D+01, + .313502D+01, .240429D+01, .184720D+01, .142070D+01, + .109326D+01, .841106D+00, .646641D+00, .496406D+00, + .380327D+00, .290598D+00, .221330D+00, .167815D+00, + .126799D+00, .951028D-01, .708776D-01, .524320D-01, + .384675D-01, .279554D-01, .201025D-01, .142822D-01, + .100131D-01, .691528D-02, .468947D-02, .312847D-02, + .203634D-02, .129222D-02, .796566D-03, .474484D-03, + .271601D-03, .148088D-03, .763672D-04, .365305D-04, + .160297D-04, .625748D-05, .209204D-05, .560100D-06, + .107118D-06, .113044D-07, .000000D+00, .000000D+00 / DATA (UPDI(I),I=7281,7332) / + .337691D+08, .253444D+08, .186659D+08, .137338D+08, + .100965D+08, .741488D+07, .544067D+07, .398773D+07, + .292000D+07, .213568D+07, .156042D+07, .113870D+07, + .830037D+06, .604241D+06, .439348D+06, .319003D+06, + .231331D+06, .167502D+06, .121123D+06, .874464D+05, + .630447D+05, .453767D+05, .326129D+05, .233990D+05, + .167633D+05, .119860D+05, .856032D+04, .607498D+04, + .432677D+04, .307754D+04, .218678D+04, .155249D+04, + .110154D+04, .782166D+03, .555121D+03, .394332D+03, + .280564D+03, .200045D+03, .143053D+03, .102633D+03, + .739642D+02, .535381D+02, .389470D+02, .284806D+02, + .209400D+02, .154752D+02, .115106D+02, .858636D+01, + .644610D+01, .485068D+01, .366679D+01, .278026D+01 / DATA (UPDI(I),I=7333,7384) / + .211306D+01, .160891D+01, .122638D+01, .935342D+00, + .713235D+00, .543491D+00, .413547D+00, .314061D+00, + .237862D+00, .179578D+00, .134965D+00, .101087D+00, + .751513D-01, .555145D-01, .407042D-01, .295981D-01, + .213178D-01, .151918D-01, .106956D-01, .743007D-02, + .508403D-02, .341532D-02, .225698D-02, .145494D-02, + .914258D-03, .557973D-03, .328998D-03, .186374D-03, + .100547D-03, .512914D-04, .242647D-04, .105271D-04, + .406226D-05, .134207D-05, .355027D-06, .670044D-07, + .689157D-08, .000000D+00, .000000D+00, .420656D+08, + .314535D+08, .230625D+08, .168924D+08, .123619D+08, + .903676D+07, .659964D+07, .481424D+07, .350821D+07, + .255335D+07, .185632D+07, .134780D+07, .977420D+06 / DATA (UPDI(I),I=7385,7436) / + .707830D+06, .511941D+06, .369713D+06, .266633D+06, + .191989D+06, .138041D+06, .990848D+05, .710143D+05, + .508061D+05, .362913D+05, .258755D+05, .184190D+05, + .130838D+05, .928225D+04, .654193D+04, .462700D+04, + .326779D+04, .230515D+04, .162444D+04, .114388D+04, + .806003D+03, .567547D+03, .399940D+03, .282241D+03, + .199581D+03, .141527D+03, .100679D+03, .719359D+02, + .516214D+02, .372267D+02, .269854D+02, .196672D+02, + .144072D+02, .106226D+02, .785438D+01, .584524D+01, + .436012D+01, .326739D+01, .245604D+01, .185060D+01, + .139703D+01, .105583D+01, .798451D+00, .603728D+00, + .456197D+00, .344234D+00, .259256D+00, .194734D+00, + .145809D+00, .108686D+00, .807408D-01, .595346D-01 / DATA (UPDI(I),I=7437,7488) / + .436191D-01, .317212D-01, .228777D-01, .163428D-01, + .115510D-01, .806560D-02, .555681D-02, .377075D-02, + .251189D-02, .164609D-02, .105214D-02, .655499D-03, + .396599D-03, .231810D-03, .130159D-03, .695940D-04, + .351802D-04, .164901D-04, .708725D-05, .270901D-05, + .886203D-06, .232086D-06, .433018D-07, .435133D-08, + .000000D+00, .000000D+00, .516441D+08, .384760D+08, + .280895D+08, .204845D+08, .149241D+08, .108607D+08, + .789551D+07, .573293D+07, .415807D+07, .301194D+07, + .217913D+07, .157443D+07, .113608D+07, .818568D+06, + .588985D+06, .423129D+06, .303532D+06, .217375D+06, + .155432D+06, .110943D+06, .790580D+05, .562314D+05, + .399279D+05, .282959D+05, .200173D+05, .141291D+05 / DATA (UPDI(I),I=7489,7540) / + .995920D+04, .697220D+04, .489817D+04, .343559D+04, + .240653D+04, .168377D+04, .117699D+04, .823177D+03, + .575237D+03, .402229D+03, .281626D+03, .197559D+03, + .138961D+03, .980456D+02, .694763D+02, .494418D+02, + .353565D+02, .254144D+02, .183663D+02, .133407D+02, + .975378D+01, .715114D+01, .527747D+01, .390369D+01, + .290110D+01, .216275D+01, .161628D+01, .121022D+01, + .907266D+00, .680610D+00, .510537D+00, .382736D+00, + .286543D+00, .214130D+00, .159599D+00, .118586D+00, + .877204D-01, .646744D-01, .473283D-01, .344157D-01, + .248413D-01, .177825D-01, .126089D-01, .884598D-02, + .613122D-02, .419294D-02, .282429D-02, .186748D-02, + .121481D-02, .770715D-03, .476603D-03, .286208D-03 / DATA (UPDI(I),I=7541,7592) / + .166033D-03, .925205D-04, .490930D-04, .246249D-04, + .114518D-04, .488211D-05, .185064D-05, .600062D-06, + .155686D-06, .287322D-07, .282696D-08, .000000D+00, + .000000D+00, .625619D+08, .464464D+08, .337653D+08, + .245186D+08, .177858D+08, .128866D+08, .932660D+07, + .674158D+07, .486728D+07, .350934D+07, .252705D+07, + .181710D+07, .130482D+07, .935521D+06, .669766D+06, + .478717D+06, .341630D+06, .243373D+06, .173088D+06, + .122872D+06, .870723D+05, .615814D+05, .434743D+05, + .306279D+05, .215368D+05, .151082D+05, .105828D+05, + .736079D+04, .513746D+04, .357948D+04, .249028D+04, + .173030D+04, .120096D+04, .833900D+03, .578446D+03, + .401450D+03, .278943D+03, .194169D+03, .135509D+03 / DATA (UPDI(I),I=7593,7644) / + .948552D+02, .666800D+02, .470711D+02, .333896D+02, + .238064D+02, .170649D+02, .122949D+02, .891681D+01, + .648467D+01, .474741D+01, .348358D+01, .256844D+01, + .189975D+01, .140871D+01, .104668D+01, .778689D+00, + .579749D+00, .431633D+00, .321194D+00, .238711D+00, + .177095D+00, .131050D+00, .966839D-01, .710163D-01, + .519960D-01, .377877D-01, .272900D-01, .195644D-01, + .139108D-01, .979773D-02, .682815D-02, .470145D-02, + .319406D-02, .213740D-02, .140405D-02, .907442D-03, + .571965D-03, .351398D-03, .209641D-03, .120818D-03, + .668768D-04, .352475D-04, .175580D-04, .810714D-05, + .343035D-05, .129006D-05, .414666D-06, .106567D-06, + .194493D-07, .187705D-08, .000000D+00, .000000D+00 / DATA (UPDI(I),I=7645,7696) / + .627884D+05, .926274D+05, .715825D+05, .553262D+05, + .427681D+05, .330664D+05, .255706D+05, .197788D+05, + .153030D+05, .118439D+05, .917006D+04, .710294D+04, + .550455D+04, .426833D+04, .331197D+04, .257189D+04, + .199899D+04, .155532D+04, .121158D+04, .945115D+03, + .738430D+03, .578001D+03, .453375D+03, .356472D+03, + .281046D+03, .222267D+03, .176397D+03, .140099D+03, + .112138D+03, .902005D+02, .729511D+02, .593551D+02, + .486096D+02, .401145D+02, .333401D+02, .279349D+02, + .236046D+02, .201194D+02, .172997D+02, .150041D+02, + .131256D+02, .115743D+02, .102830D+02, .919818D+01, + .827771D+01, .748846D+01, .680670D+01, .620541D+01, + .567587D+01, .519894D+01, .476956D+01, .437818D+01 / DATA (UPDI(I),I=7697,7748) / + .401879D+01, .368667D+01, .337819D+01, .309053D+01, + .282153D+01, .256954D+01, .233330D+01, .211183D+01, + .190439D+01, .171038D+01, .152931D+01, .136151D+01, + .120488D+01, .106014D+01, .926955D+00, .804984D+00, + .693876D+00, .593254D+00, .502717D+00, .421833D+00, + .350099D+00, .286975D+00, .232470D+00, .185223D+00, + .145071D+00, .111412D+00, .836365D-01, .611327D-01, + .432895D-01, .295220D-01, .191640D-01, .117366D-01, + .664583D-02, .338163D-02, .147408D-02, .503263D-03, + .110033D-03, .809180D-05, .000000D+00, .144381D+06, + .112678D+06, .868833D+05, .669956D+05, .516659D+05, + .398466D+05, .307359D+05, .237112D+05, .182960D+05, + .141203D+05, .109010D+05, .841813D+04, .650355D+04 / DATA (UPDI(I),I=7749,7800) / + .502659D+04, .388733D+04, .300815D+04, .232969D+04, + .180582D+04, .140128D+04, .108868D+04, .847074D+03, + .660171D+03, .515528D+03, .403468D+03, .316593D+03, + .249155D+03, .196758D+03, .155461D+03, .123792D+03, + .990499D+02, .796860D+02, .644891D+02, .525347D+02, + .431245D+02, .356553D+02, .297202D+02, .249862D+02, + .211903D+02, .181315D+02, .156494D+02, .136253D+02, + .119584D+02, .105751D+02, .941584D+01, .843492D+01, + .759593D+01, .687327D+01, .623769D+01, .567986D+01, + .517912D+01, .473014D+01, .432259D+01, .395010D+01, + .360755D+01, .329104D+01, .299746D+01, .272446D+01, + .247016D+01, .223314D+01, .201224D+01, .180654D+01, + .161531D+01, .143785D+01, .127438D+01, .112267D+01 / DATA (UPDI(I),I=7801,7852) / + .983296D+00, .855797D+00, .739722D+00, .634599D+00, + .539960D+00, .455303D+00, .380124D+00, .313865D+00, + .255904D+00, .206170D+00, .163334D+00, .127168D+00, + .970569D-01, .723830D-01, .525429D-01, .369302D-01, + .249857D-01, .160777D-01, .975241D-02, .546281D-02, + .274567D-02, .117961D-02, .395788D-03, .850182D-04, + .631405D-05, .000000D+00, .177604D+06, .138273D+06, + .106322D+06, .817495D+05, .628599D+05, .483341D+05, + .371685D+05, .285831D+05, .219841D+05, .169103D+05, + .130105D+05, .100119D+05, .770707D+04, .593470D+04, + .457220D+04, .352423D+04, .271839D+04, .209834D+04, + .162133D+04, .125408D+04, .971353D+03, .753492D+03, + .585591D+03, .456043D+03, .356047D+03, .278757D+03 / DATA (UPDI(I),I=7853,7904) / + .218987D+03, .172088D+03, .136294D+03, .108457D+03, + .867781D+02, .698437D+02, .565878D+02, .462015D+02, + .379972D+02, .315069D+02, .263536D+02, .222382D+02, + .189357D+02, .162654D+02, .140957D+02, .123144D+02, + .108409D+02, .960933D+01, .857025D+01, .768389D+01, + .692264D+01, .625508D+01, .567113D+01, .514873D+01, + .468213D+01, .426029D+01, .387645D+01, .352510D+01, + .320204D+01, .290391D+01, .262813D+01, .237261D+01, + .213575D+01, .191621D+01, .171291D+01, .152498D+01, + .135154D+01, .119267D+01, .104604D+01, .912094D+00, + .790242D+00, .679932D+00, .580593D+00, .491669D+00, + .412575D+00, .342743D+00, .281568D+00, .228363D+00, + .182988D+00, .144152D+00, .111571D+00, .846278D-01 / DATA (UPDI(I),I=7905,7956) / + .627017D-01, .452002D-01, .315311D-01, .211620D-01, + .134968D-01, .810733D-02, .449140D-02, .222909D-02, + .943435D-03, .310878D-03, .655548D-04, .491971D-05, + .000000D+00, .219224D+06, .170216D+06, .130475D+06, + .100001D+06, .766452D+05, .587382D+05, .450167D+05, + .344986D+05, .264405D+05, .202646D+05, .155338D+05, + .119085D+05, .913165D+04, .700380D+04, .537400D+04, + .412501D+04, .316825D+04, .243488D+04, .187294D+04, + .144202D+04, .111166D+04, .858158D+03, .663634D+03, + .514198D+03, .399373D+03, .311024D+03, .243029D+03, + .189928D+03, .149597D+03, .118383D+03, .941960D+02, + .753944D+02, .607502D+02, .493315D+02, .403559D+02, + .332882D+02, .277024D+02, .232605D+02, .197109D+02 / DATA (UPDI(I),I=7957,8008) / + .168517D+02, .145372D+02, .126432D+02, .110814D+02, + .977983D+01, .868492D+01, .775355D+01, .695599D+01, + .625868D+01, .565067D+01, .510860D+01, .462624D+01, + .419187D+01, .379830D+01, .343964D+01, .311141D+01, + .280996D+01, .253250D+01, .227674D+01, .204088D+01, + .182342D+01, .162311D+01, .143895D+01, .126987D+01, + .111583D+01, .974412D+00, .845930D+00, .729675D+00, + .625007D+00, .531260D+00, .447803D+00, .373981D+00, + .309171D+00, .252725D+00, .203912D+00, .162530D+00, + .127326D+00, .979780D-01, .738665D-01, .543777D-01, + .389335D-01, .269604D-01, .179523D-01, .113505D-01, + .675317D-02, .370096D-02, .181421D-02, .756699D-03, + .245029D-03, .507674D-04, .384876D-05, .000000D+00 / DATA (UPDI(I),I=8009,8060) / + .161524D+06, .209432D+06, .160006D+06, .122222D+06, + .933564D+05, .712959D+05, .544474D+05, .415750D+05, + .317468D+05, .242400D+05, .185100D+05, .141345D+05, + .107954D+05, .824603D+04, .630079D+04, .481575D+04, + .368265D+04, .281756D+04, .215740D+04, .165325D+04, + .126841D+04, .974354D+03, .749719D+03, .577922D+03, + .446524D+03, .345894D+03, .268822D+03, .208921D+03, + .163650D+03, .128786D+03, .101905D+03, .811137D+02, + .650009D+02, .524990D+02, .427200D+02, .350561D+02, + .290272D+02, .242538D+02, .204553D+02, .174076D+02, + .149495D+02, .129449D+02, .112972D+02, .992822D+01, + .877996D+01, .780599D+01, .697439D+01, .624949D+01, + .561946D+01, .505963D+01, .456328D+01, .411801D+01 / DATA (UPDI(I),I=8061,8112) / + .371623D+01, .335164D+01, .301949D+01, .271586D+01, + .243771D+01, .218258D+01, .194847D+01, .173371D+01, + .153690D+01, .135689D+01, .119247D+01, .104343D+01, + .907322D+00, .784308D+00, .673583D+00, .574418D+00, + .486070D+00, .407841D+00, .339015D+00, .278923D+00, + .226884D+00, .182131D+00, .144411D+00, .112514D+00, + .860861D-01, .645130D-01, .471919D-01, .335623D-01, + .230730D-01, .152449D-01, .955647D-02, .563240D-02, + .305407D-02, .147902D-02, .608129D-03, .193612D-03, + .394452D-04, .302013D-05, .000000D+00, .355321D+06, + .274047D+06, .208441D+06, .158503D+06, .120514D+06, + .916076D+05, .696272D+05, .529098D+05, .402033D+05, + .305435D+05, .232044D+05, .176272D+05, .133915D+05 / DATA (UPDI(I),I=8113,8164) / + .101738D+05, .773084D+04, .587544D+04, .446709D+04, + .339761D+04, .258586D+04, .196939D+04, .150144D+04, + .114594D+04, .875947D+03, .670694D+03, .514655D+03, + .395892D+03, .305508D+03, .235711D+03, .183301D+03, + .143204D+03, .112491D+03, .888928D+02, .707244D+02, + .567204D+02, .458365D+02, .373606D+02, .307331D+02, + .255166D+02, .213884D+02, .180935D+02, .154490D+02, + .133023D+02, .115452D+02, .100913D+02, .887657D+01, + .785017D+01, .697716D+01, .621919D+01, .556314D+01, + .498276D+01, .447056D+01, .401335D+01, .360293D+01, + .323255D+01, .289702D+01, .259211D+01, .231447D+01, + .206139D+01, .183062D+01, .162028D+01, .142876D+01, + .125473D+01, .109679D+01, .954565D+00, .825530D+00 / DATA (UPDI(I),I=8165,8216) / + .709682D+00, .606101D+00, .513955D+00, .432413D+00, + .360701D+00, .298040D+00, .243715D+00, .197007D+00, + .157124D+00, .123756D+00, .957529D-01, .727328D-01, + .540940D-01, .392552D-01, .276825D-01, .188586D-01, + .123398D-01, .765344D-02, .445847D-02, .238617D-02, + .113864D-02, .460236D-03, .143660D-03, .287208D-04, + .222434D-05, .000000D+00, .463370D+06, .356004D+06, + .269565D+06, .204053D+06, .154431D+06, .116839D+06, + .883819D+05, .668366D+05, .505356D+05, .382011D+05, + .288741D+05, .218204D+05, .164895D+05, .124599D+05, + .941599D+04, .711608D+04, .537940D+04, .406762D+04, + .307734D+04, .232944D+04, .176489D+04, .133847D+04, + .101648D+04, .773151D+03, .589278D+03, .450188D+03 / DATA (UPDI(I),I=8217,8268) / + .344997D+03, .264281D+03, .204061D+03, .158288D+03, + .123454D+03, .968653D+02, .765268D+02, .609520D+02, + .489235D+02, .396149D+02, .323798D+02, .267181D+02, + .222619D+02, .187237D+02, .158976D+02, .136139D+02, + .117525D+02, .102186D+02, .894180D+01, .786713D+01, + .695652D+01, .616901D+01, .549016D+01, .489220D+01, + .436687D+01, .390020D+01, .348340D+01, .310925D+01, + .277216D+01, .246759D+01, .219188D+01, .194207D+01, + .171566D+01, .151057D+01, .132501D+01, .115747D+01, + .100636D+01, .871172D+00, .749303D+00, .640602D+00, + .544044D+00, .458715D+00, .383708D+00, .318186D+00, + .261325D+00, .212371D+00, .170582D+00, .135152D+00, + .105730D+00, .812265D-01, .612420D-01, .451939D-01 / DATA (UPDI(I),I=8269,8320) / + .325273D-01, .227379D-01, .153445D-01, .993907D-02, + .609592D-02, .350766D-02, .185143D-02, .869559D-03, + .345008D-03, .105381D-03, .206303D-04, .161844D-05, + .000000D+00, .598767D+06, .458280D+06, .345469D+06, + .260336D+06, .196128D+06, .147700D+06, .111201D+06, + .836916D+05, .629727D+05, .473678D+05, .356230D+05, + .267832D+05, .201346D+05, .151337D+05, .113749D+05, + .854922D+04, .642653D+04, .483160D+04, .363398D+04, + .273441D+04, .205910D+04, .155190D+04, .117110D+04, + .885005D+03, .670092D+03, .508499D+03, .387043D+03, + .294427D+03, .225765D+03, .173907D+03, .134693D+03, + .104955D+03, .823513D+02, .651520D+02, .519512D+02, + .417980D+02, .339527D+02, .278484D+02, .230694D+02 / DATA (UPDI(I),I=8321,8372) / + .192943D+02, .162931D+02, .138787D+02, .119189D+02, + .103103D+02, .897636D+01, .785781D+01, .691355D+01, + .610008D+01, .540165D+01, .478905D+01, .425325D+01, + .377953D+01, .335850D+01, .298253D+01, .264561D+01, + .234288D+01, .207041D+01, .182497D+01, .160385D+01, + .140478D+01, .122576D+01, .106512D+01, .921143D+00, + .793136D+00, .678474D+00, .576854D+00, .487171D+00, + .408432D+00, .339674D+00, .280011D+00, .228584D+00, + .184614D+00, .147346D+00, .115972D+00, .901105D-01, + .687352D-01, .514394D-01, .376642D-01, .268847D-01, + .186289D-01, .124531D-01, .798443D-02, .484246D-02, + .275216D-02, .143258D-02, .662229D-03, .257924D-03, + .771060D-04, .147883D-04, .117519D-05, .000000D+00 / DATA (UPDI(I),I=8373,8424) / + .766129D+06, .584191D+06, .438467D+06, .328959D+06, + .246717D+06, .184954D+06, .138606D+06, .103829D+06, + .777531D+05, .582028D+05, .435563D+05, .325842D+05, + .243710D+05, .182231D+05, .136247D+05, .101851D+05, + .761432D+04, .569264D+04, .425719D+04, .318473D+04, + .238399D+04, .178589D+04, .133936D+04, .100579D+04, + .756675D+03, .570461D+03, .431341D+03, .325905D+03, + .248221D+03, .189915D+03, .146099D+03, .113080D+03, + .881377D+02, .692772D+02, .548889D+02, .438886D+02, + .354372D+02, .288978D+02, .238048D+02, .198016D+02, + .166335D+02, .140960D+02, .120444D+02, .103670D+02, + .898122D+01, .782339D+01, .684953D+01, .601375D+01, + .529897D+01, .467466D+01, .413098D+01, .365254D+01 / DATA (UPDI(I),I=8425,8476) / + .322936D+01, .285338D+01, .251822D+01, .221873D+01, + .195068D+01, .171060D+01, .149558D+01, .130315D+01, + .113114D+01, .977744D+00, .841084D+00, .720336D+00, + .612851D+00, .518195D+00, .435190D+00, .362783D+00, + .299967D+00, .245820D+00, .199460D+00, .160095D+00, + .126964D+00, .992694D-01, .766083D-01, .580199D-01, + .430972D-01, .313094D-01, .221640D-01, .152229D-01, + .100800D-01, .639718D-02, .383641D-02, .215352D-02, + .110545D-02, .502955D-03, .192312D-03, .562855D-04, + .105830D-04, .851817D-06, .000000D+00, .970389D+06, + .737254D+06, .550988D+06, .411592D+06, .307339D+06, + .229376D+06, .171122D+06, .127599D+06, .951095D+05, + .708589D+05, .527731D+05, .392866D+05, .292381D+05 / DATA (UPDI(I),I=8477,8528) / + .217520D+05, .161795D+05, .120316D+05, .894677D+04, + .665243D+04, .494737D+04, .368012D+04, .273893D+04, + .203971D+04, .152054D+04, .113488D+04, .848483D+03, + .635627D+03, .477538D+03, .358442D+03, .271222D+03, + .206156D+03, .157556D+03, .121156D+03, .938268D+02, + .732860D+02, .577080D+02, .458673D+02, .368207D+02, + .298584D+02, .244632D+02, .202429D+02, .169178D+02, + .142656D+02, .121297D+02, .103898D+02, .895755D+01, + .776518D+01, .676588D+01, .591144D+01, .518352D+01, + .455035D+01, .400133D+01, .352038D+01, .309701D+01, + .272273D+01, .239083D+01, .209583D+01, .183325D+01, + .159941D+01, .139117D+01, .120590D+01, .104128D+01, + .895347D+00, .766119D+00, .652634D+00, .552238D+00 / DATA (UPDI(I),I=8529,8580) / + .464376D+00, .387815D+00, .321457D+00, .264260D+00, + .215279D+00, .173622D+00, .138492D+00, .109132D+00, + .847618D-01, .649668D-01, .488519D-01, .360164D-01, + .259601D-01, .182250D-01, .124070D-01, .813753D-02, + .511169D-02, .303111D-02, .168045D-02, .850660D-03, + .380933D-03, .143007D-03, .409901D-04, .756068D-05, + .616305D-06, .000000D+00, .121673D+07, .921134D+06, + .685539D+06, .509941D+06, .379147D+06, .281741D+06, + .209262D+06, .155342D+06, .115263D+06, .854782D+05, + .633631D+05, .469459D+05, .347694D+05, .257398D+05, + .190497D+05, .140939D+05, .104258D+05, .771117D+04, + .570382D+04, .421949D+04, .312276D+04, .231227D+04, + .171369D+04, .127146D+04, .944865D+03, .703487D+03 / DATA (UPDI(I),I=8581,8632) / + .525241D+03, .391742D+03, .294548D+03, .222469D+03, + .168949D+03, .129103D+03, .993616D+02, .771391D+02, + .603820D+02, .477167D+02, .380920D+02, .307233D+02, + .250409D+02, .206165D+02, .171453D+02, .143878D+02, + .121754D+02, .103798D+02, .890672D+01, .768466D+01, + .666407D+01, .579461D+01, .505671D+01, .441746D+01, + .386551D+01, .338418D+01, .296246D+01, .259148D+01, + .226418D+01, .197481D+01, .171864D+01, .149177D+01, + .129089D+01, .111320D+01, .956236D+00, .817915D+00, + .696155D+00, .589872D+00, .496422D+00, .415145D+00, + .344766D+00, .284151D+00, .232240D+00, .188075D+00, + .150764D+00, .119511D+00, .935731D-01, .721951D-01, + .549569D-01, .410290D-01, .300226D-01, .214696D-01 / DATA (UPDI(I),I=8633,8684) / + .149471D-01, .100855D-01, .655193D-02, .407353D-02, + .238833D-02, .130770D-02, .652782D-03, .287718D-03, + .106061D-03, .297810D-04, .539226D-05, .445089D-06, + .000000D+00, .151049D+07, .113958D+07, .844658D+06, + .625713D+06, .463280D+06, .342801D+06, .253520D+06, + .187376D+06, .138417D+06, .102188D+06, .754038D+05, + .556079D+05, .409905D+05, .301999D+05, .222417D+05, + .163738D+05, .120511D+05, .886744D+04, .652472D+04, + .480099D+04, .353377D+04, .260210D+04, .191761D+04, + .141457D+04, .104507D+04, .773471D+03, .574023D+03, + .425491D+03, .317971D+03, .238693D+03, .180164D+03, + .136841D+03, .104688D+03, .808007D+02, .628875D+02, + .494221D+02, .392422D+02, .314875D+02, .255354D+02 / DATA (UPDI(I),I=8685,8736) / + .209215D+02, .173164D+02, .144635D+02, .121829D+02, + .103384D+02, .883029D+01, .758339D+01, .654565D+01, + .566474D+01, .491993D+01, .427728D+01, .372472D+01, + .324501D+01, .282665D+01, .246044D+01, .213896D+01, + .185623D+01, .160727D+01, .138801D+01, .119496D+01, + .102516D+01, .876038D+00, .745396D+00, .631071D+00, + .531875D+00, .445184D+00, .370248D+00, .305763D+00, + .250573D+00, .203609D+00, .163913D+00, .130598D+00, + .102881D+00, .800362D-01, .613398D-01, .463738D-01, + .343726D-01, .249629D-01, .177105D-01, .122272D-01, + .817689D-02, .526134D-02, .323752D-02, .187676D-02, + .101484D-02, .499556D-03, .216719D-03, .784532D-04, + .215868D-04, .383923D-05, .320851D-06, .000000D+00 / DATA (UPDI(I),I=8737,8788) / + .185708D+07, .139636D+07, .103086D+07, .760575D+06, + .560833D+06, .413268D+06, .304352D+06, .223989D+06, + .164749D+06, .121095D+06, .889577D+05, .653071D+05, + .479190D+05, .351398D+05, .257569D+05, .188700D+05, + .138201D+05, .101182D+05, .740710D+04, .542197D+04, + .396976D+04, .290740D+04, .213086D+04, .156313D+04, + .114829D+04, .844964D+03, .623435D+03, .459369D+03, + .341264D+03, .254668D+03, .191091D+03, .144295D+03, + .109757D+03, .842386D+02, .652043D+02, .509710D+02, + .402644D+02, .321475D+02, .259453D+02, .211578D+02, + .174317D+02, .144941D+02, .121537D+02, .102672D+02, + .872991D+01, .746301D+01, .641219D+01, .552332D+01, + .477457D+01, .413108D+01, .358011D+01, .310388D+01 / DATA (UPDI(I),I=8789,8840) / + .269048D+01, .233035D+01, .201579D+01, .174058D+01, + .149954D+01, .128840D+01, .110353D+01, .941848D+00, + .800672D+00, .677706D+00, .570725D+00, .478450D+00, + .398293D+00, .329427D+00, .270530D+00, .220439D+00, + .178084D+00, .142514D+00, .112858D+00, .883510D-01, + .682915D-01, .519894D-01, .390348D-01, .287245D-01, + .207040D-01, .145726D-01, .997657D-02, .661235D-02, + .421392D-02, .256627D-02, .147082D-02, .785434D-03, + .381260D-03, .162801D-03, .578825D-04, .156118D-04, + .272894D-05, .230878D-06, .000000D+00, .226189D+07, + .169518D+07, .124658D+07, .916118D+06, .672833D+06, + .493796D+06, .362167D+06, .265431D+06, .194408D+06, + .142284D+06, .104070D+06, .760650D+05, .555628D+05 / DATA (UPDI(I),I=8841,8892) / + .405597D+05, .295921D+05, .215778D+05, .157276D+05, + .114588D+05, .834689D+04, .607908D+04, .442801D+04, + .322608D+04, .235185D+04, .171592D+04, .125361D+04, + .917323D+03, .673016D+03, .493052D+03, .364202D+03, + .270239D+03, .201626D+03, .151398D+03, .114525D+03, + .874251D+02, .673155D+02, .523541D+02, .411535D+02, + .327012D+02, .262703D+02, .213263D+02, .174928D+02, + .144810D+02, .120896D+02, .101682D+02, .860739D+01, + .732524D+01, .626531D+01, .537183D+01, .462199D+01, + .398009D+01, .343276D+01, .296175D+01, .255475D+01, + .220190D+01, .189524D+01, .162831D+01, .139575D+01, + .119315D+01, .101673D+01, .863296D+00, .730090D+00, + .614731D+00, .514950D+00, .429391D+00, .355512D+00 / DATA (UPDI(I),I=8893,8944) / + .292423D+00, .238799D+00, .193474D+00, .155392D+00, + .123616D+00, .972963D-01, .756925D-01, .581306D-01, + .439580D-01, .327774D-01, .239458D-01, .171292D-01, + .119607D-01, .811970D-02, .533352D-02, .336632D-02, + .202889D-02, .114964D-02, .606273D-03, .290203D-03, + .121976D-03, .425986D-04, .112658D-04, .193663D-05, + .165845D-06, .000000D+00, .628438D+05, .924424D+05, + .714172D+05, .551785D+05, .426362D+05, .329485D+05, + .254654D+05, .196849D+05, .152193D+05, .117692D+05, + .910354D+04, .704368D+04, .545179D+04, .422137D+04, + .327020D+04, .253477D+04, .196601D+04, .152604D+04, + .118561D+04, .922089D+03, .718031D+03, .559940D+03, + .437394D+03, .342341D+03, .268556D+03, .211230D+03 / DATA (UPDI(I),I=8945,8996) / + .166647D+03, .131497D+03, .104532D+03, .834674D+02, + .669805D+02, .540471D+02, .438743D+02, .358695D+02, + .295137D+02, .244616D+02, .204258D+02, .171833D+02, + .145610D+02, .124238D+02, .106702D+02, .921645D+01, + .800076D+01, .697468D+01, .610074D+01, .535005D+01, + .470245D+01, .413441D+01, .363935D+01, .320055D+01, + .281410D+01, .247153D+01, .216737D+01, .189707D+01, + .165681D+01, .144335D+01, .125389D+01, .108597D+01, + .937421D+00, .806295D+00, .690837D+00, .589453D+00, + .500691D+00, .423565D+00, .356080D+00, .297644D+00, + .247254D+00, .204000D+00, .167059D+00, .135685D+00, + .109202D+00, .870025D-01, .685251D-01, .532662D-01, + .409010D-01, .308448D-01, .228335D-01, .165440D-01 / DATA (UPDI(I),I=8997,9048) / + .116904D-01, .802018D-02, .531119D-02, .337220D-02, + .202533D-02, .113917D-02, .586339D-03, .267345D-03, + .102260D-03, .296290D-04, .517089D-05, .261159D-06, + .000000D+00, .144162D+06, .112482D+06, .867083D+05, + .668393D+05, .515263D+05, .397221D+05, .306248D+05, + .236121D+05, .182076D+05, .140416D+05, .108308D+05, + .835563D+04, .644792D+04, .497710D+04, .384333D+04, + .296905D+04, .229496D+04, .177500D+04, .137395D+04, + .106445D+04, .825608D+03, .641167D+03, .498711D+03, + .388594D+03, .303442D+03, .237528D+03, .186479D+03, + .146386D+03, .115759D+03, .919307D+02, .733643D+02, + .588606D+02, .475054D+02, .386087D+02, .315785D+02, + .260147D+02, .215917D+02, .180537D+02, .152066D+02 / DATA (UPDI(I),I=9049,9100) / + .128966D+02, .110110D+02, .945510D+01, .816086D+01, + .707400D+01, .615344D+01, .536698D+01, .469247D+01, + .410414D+01, .359450D+01, .314539D+01, .275220D+01, + .240569D+01, .209982D+01, .182956D+01, .159069D+01, + .137963D+01, .119331D+01, .102906D+01, .884504D+00, + .757566D+00, .646355D+00, .549202D+00, .464543D+00, + .391347D+00, .327603D+00, .272675D+00, .225536D+00, + .185270D+00, .151047D+00, .122125D+00, .978328D-01, + .775727D-01, .608009D-01, .470217D-01, .359173D-01, + .269380D-01, .198266D-01, .142787D-01, .100249D-01, + .683089D-02, .449013D-02, .282838D-02, .168379D-02, + .938069D-03, .477998D-03, .215438D-03, .812800D-04, + .231745D-04, .398443D-05, .203913D-06, .000000D+00 / DATA (UPDI(I),I=9101,9152) / + .177373D+06, .138066D+06, .106137D+06, .815846D+05, + .627127D+05, .482027D+05, .370514D+05, .284786D+05, + .218910D+05, .168273D+05, .129366D+05, .994611D+04, + .764854D+04, .588265D+04, .452593D+04, .348313D+04, + .268190D+04, .206596D+04, .159261D+04, .122863D+04, + .948807D+03, .733531D+03, .567925D+03, .440415D+03, + .342225D+03, .266532D+03, .208172D+03, .162534D+03, + .127829D+03, .100948D+03, .801021D+02, .638926D+02, + .512632D+02, .414145D+02, .336705D+02, .275707D+02, + .227458D+02, .189046D+02, .158289D+02, .133453D+02, + .113283D+02, .967213D+01, .830161D+01, .715655D+01, + .619194D+01, .537221D+01, .467309D+01, .406662D+01, + .354427D+01, .308651D+01, .268803D+01, .233880D+01 / DATA (UPDI(I),I=9153,9204) / + .203224D+01, .176284D+01, .152601D+01, .131786D+01, + .113505D+01, .974716D+00, .834320D+00, .711640D+00, + .604681D+00, .511701D+00, .431049D+00, .361648D+00, + .301489D+00, .249893D+00, .205820D+00, .168351D+00, + .136656D+00, .109999D+00, .877175D-01, .692270D-01, + .540005D-01, .415541D-01, .315780D-01, .235563D-01, + .172399D-01, .123424D-01, .861115D-02, .582868D-02, + .380381D-02, .237772D-02, .140354D-02, .774609D-03, + .390232D-03, .173657D-03, .645654D-04, .181005D-04, + .306326D-05, .158991D-06, .000000D+00, .218980D+06, + .169998D+06, .130281D+06, .998275D+05, .764901D+05, + .585999D+05, .448934D+05, .343887D+05, .263425D+05, + .201773D+05, .154561D+05, .118393D+05, .907016D+04 / DATA (UPDI(I),I=9205,9256) / + .694914D+04, .532543D+04, .408187D+04, .312996D+04, + .240091D+04, .184282D+04, .141533D+04, .108802D+04, + .837223D+03, .645106D+03, .497804D+03, .384869D+03, + .298191D+03, .231671D+03, .179887D+03, .140694D+03, + .110478D+03, .871614D+02, .691172D+02, .551279D+02, + .442721D+02, .357791D+02, .291222D+02, .238831D+02, + .197325D+02, .164258D+02, .137688D+02, .116217D+02, + .986762D+01, .842339D+01, .722285D+01, .621681D+01, + .536632D+01, .464485D+01, .402230D+01, .348905D+01, + .302424D+01, .262180D+01, .227098D+01, .196467D+01, + .169688D+01, .146269D+01, .125790D+01, .107893D+01, + .922742D+00, .786632D+00, .668265D+00, .565551D+00, + .476682D+00, .399940D+00, .334207D+00, .277484D+00 / DATA (UPDI(I),I=9257,9308) / + .229058D+00, .187878D+00, .153032D+00, .123690D+00, + .991294D-01, .786962D-01, .618225D-01, .479985D-01, + .367545D-01, .277899D-01, .206209D-01, .150080D-01, + .106822D-01, .740692D-02, .498088D-02, .322760D-02, + .200235D-02, .117215D-02, .641048D-03, .319668D-03, + .140637D-03, .515934D-04, .142471D-04, .238076D-05, + .125422D-06, .000000D+00, .161592D+06, .209202D+06, + .159801D+06, .122039D+06, .931933D+05, .711505D+05, + .543178D+05, .414595D+05, .316439D+05, .241484D+05, + .184285D+05, .140620D+05, .107309D+05, .818870D+04, + .624986D+04, .477053D+04, .364252D+04, .278196D+04, + .212584D+04, .162529D+04, .124364D+04, .952425D+03, + .730310D+03, .560746D+03, .431325D+03, .332440D+03 / DATA (UPDI(I),I=9309,9360) / + .256909D+03, .198384D+03, .154302D+03, .120479D+03, + .945067D+02, .745066D+02, .590784D+02, .471655D+02, + .378926D+02, .306607D+02, .249979D+02, .205338D+02, + .169952D+02, .141658D+02, .118910D+02, .100416D+02, + .852651D+01, .727339D+01, .622864D+01, .534990D+01, + .460833D+01, .397172D+01, .342928D+01, .295892D+01, + .255379D+01, .220244D+01, .189722D+01, .163174D+01, + .140071D+01, .119968D+01, .102484D+01, .872973D+00, + .741251D+00, .627231D+00, .528739D+00, .443914D+00, + .370982D+00, .308791D+00, .255361D+00, .209949D+00, + .171505D+00, .139119D+00, .111973D+00, .893539D-01, + .706236D-01, .552304D-01, .426822D-01, .325258D-01, + .244705D-01, .180632D-01, .130748D-01, .925277D-02 / DATA (UPDI(I),I=9361,9412) / + .637686D-02, .426061D-02, .274166D-02, .168825D-02, + .980201D-03, .531282D-03, .262284D-03, .114099D-03, + .413214D-04, .112484D-04, .185747D-05, .993310D-07, + .000000D+00, .355046D+06, .273802D+06, .208222D+06, + .158308D+06, .120340D+06, .914525D+05, .694890D+05, + .527867D+05, .400937D+05, .304460D+05, .231176D+05, + .175500D+05, .133229D+05, .101129D+05, .767671D+04, + .582740D+04, .442447D+04, .335981D+04, .255235D+04, + .193971D+04, .147515D+04, .112267D+04, .855343D+03, + .652459D+03, .498513D+03, .381599D+03, .292846D+03, + .224504D+03, .173351D+03, .134356D+03, .104604D+03, + .818443D+02, .644016D+02, .510231D+02, .406779D+02, + .326637D+02, .264295D+02, .215475D+02, .177029D+02 / DATA (UPDI(I),I=9413,9464) / + .146490D+02, .122094D+02, .102390D+02, .863519D+01, + .731729D+01, .622566D+01, .531350D+01, .454876D+01, + .389659D+01, .334456D+01, .286905D+01, .246216D+01, + .211159D+01, .180900D+01, .154749D+01, .132134D+01, + .112578D+01, .956733D+00, .810784D+00, .684945D+00, + .576657D+00, .483661D+00, .404031D+00, .335949D+00, + .278223D+00, .228907D+00, .187230D+00, .152148D+00, + .122765D+00, .982774D-01, .779934D-01, .612965D-01, + .476586D-01, .366119D-01, .277270D-01, .207269D-01, + .151973D-01, .109231D-01, .767292D-02, .524663D-02, + .347624D-02, .221675D-02, .135179D-02, .776442D-03, + .415867D-03, .202562D-03, .867718D-04, .308729D-04, + .822865D-05, .132995D-05, .720324D-07, .000000D+00 / DATA (UPDI(I),I=9465,9516) / + .463077D+06, .355742D+06, .269332D+06, .203845D+06, + .154245D+06, .116674D+06, .882348D+05, .667056D+05, + .504190D+05, .380973D+05, .287818D+05, .217384D+05, + .164166D+05, .123952D+05, .935851D+04, .706508D+04, + .533416D+04, .402752D+04, .304179D+04, .229796D+04, + .173700D+04, .131378D+04, .994625D+03, .753808D+03, + .572152D+03, .435018D+03, .331553D+03, .252377D+03, + .193487D+03, .148879D+03, .115063D+03, .893622D+02, + .697932D+02, .548829D+02, .434285D+02, .346135D+02, + .278010D+02, .225010D+02, .183539D+02, .150810D+02, + .124830D+02, .103979D+02, .871133D+01, .733421D+01, + .620068D+01, .525950D+01, .447542D+01, .381100D+01, + .325218D+01, .277388D+01, .236719D+01, .201900D+01 / DATA (UPDI(I),I=9517,9568) / + .172034D+01, .146383D+01, .124334D+01, .105383D+01, + .890985D+00, .751221D+00, .631415D+00, .528912D+00, + .441388D+00, .366870D+00, .303510D+00, .250089D+00, + .204707D+00, .166570D+00, .134650D+00, .108067D+00, + .860421D-01, .679049D-01, .530641D-01, .410167D-01, + .313205D-01, .235713D-01, .175068D-01, .127494D-01, + .909866D-02, .634374D-02, .430355D-02, .282750D-02, + .178677D-02, .107905D-02, .613214D-03, .324634D-03, + .156084D-03, .658980D-04, .230540D-04, .603299D-05, + .960941D-06, .530437D-07, .000000D+00, .598455D+06, + .458001D+06, .345221D+06, .260114D+06, .195931D+06, + .147524D+06, .111045D+06, .835522D+05, .628487D+05, + .472574D+05, .355249D+05, .266960D+05, .200572D+05 / DATA (UPDI(I),I=9569,9620) / + .150650D+05, .113139D+05, .849512D+04, .637856D+04, + .478908D+04, .359630D+04, .270104D+04, .202955D+04, + .152574D+04, .114794D+04, .864505D+03, .651940D+03, + .492416D+03, .372785D+03, .281798D+03, .214543D+03, + .163919D+03, .125782D+03, .969842D+02, .751967D+02, + .587038D+02, .461148D+02, .364896D+02, .290983D+02, + .233849D+02, .189424D+02, .154584D+02, .127098D+02, + .105175D+02, .875497D+01, .732465D+01, .615449D+01, + .518882D+01, .438926D+01, .371588D+01, .315301D+01, + .267421D+01, .226959D+01, .192529D+01, .163174D+01, + .138114D+01, .116702D+01, .984056D+00, .827755D+00, + .694382D+00, .580705D+00, .483999D+00, .401888D+00, + .332371D+00, .273586D+00, .224297D+00, .182657D+00 / DATA (UPDI(I),I=9621,9672) / + .147860D+00, .118899D+00, .949183D-01, .751630D-01, + .589899D-01, .458350D-01, .352217D-01, .267338D-01, + .199933D-01, .147534D-01, .106714D-01, .756155D-02, + .523266D-02, .352175D-02, .229441D-02, .143679D-02, + .859288D-03, .483142D-03, .252811D-03, .119988D-03, + .499329D-04, .171886D-04, .442074D-05, .694850D-06, + .391365D-07, .000000D+00, .765796D+06, .583894D+06, + .438202D+06, .328723D+06, .246506D+06, .184766D+06, + .138440D+06, .103681D+06, .776213D+05, .580856D+05, + .434522D+05, .324917D+05, .242889D+05, .181502D+05, + .135600D+05, .101278D+05, .756348D+04, .564759D+04, + .421728D+04, .314939D+04, .235270D+04, .175819D+04, + .131483D+04, .984086D+03, .737451D+03, .553425D+03 / DATA (UPDI(I),I=9673,9724) / + .416237D+03, .312523D+03, .236328D+03, .179327D+03, + .136652D+03, .104629D+03, .805529D+02, .624434D+02, + .487073D+02, .382716D+02, .303079D+02, .241906D+02, + .194631D+02, .157783D+02, .128887D+02, .105977D+02, + .876660D+01, .728952D+01, .608819D+01, .510266D+01, + .429148D+01, .361237D+01, .304808D+01, .257095D+01, + .217013D+01, .183109D+01, .154374D+01, .129986D+01, + .109268D+01, .916683D+00, .767185D+00, .640339D+00, + .532833D+00, .441885D+00, .365093D+00, .300437D+00, + .246059D+00, .200714D+00, .162618D+00, .130959D+00, + .104757D+00, .831833D-01, .655127D-01, .511304D-01, + .395017D-01, .301771D-01, .227669D-01, .169196D-01, + .124044D-01, .891131D-02, .626943D-02, .430600D-02 / DATA (UPDI(I),I=9725,9776) / + .287513D-02, .185735D-02, .115257D-02, .682618D-03, + .379733D-03, .196398D-03, .920182D-04, .377473D-04, + .127879D-04, .323341D-05, .501702D-06, .288276D-07, + .000000D+00, .970035D+06, .736938D+06, .550706D+06, + .411341D+06, .307115D+06, .229177D+06, .170945D+06, + .127442D+06, .949696D+05, .707345D+05, .526627D+05, + .391885D+05, .291511D+05, .216748D+05, .161110D+05, + .119709D+05, .889292D+04, .660473D+04, .490512D+04, + .364271D+04, .270581D+04, .201040D+04, .149460D+04, + .111191D+04, .828142D+03, .617601D+03, .461555D+03, + .344280D+03, .258635D+03, .194949D+03, .147558D+03, + .112213D+03, .858034D+02, .660610D+02, .511781D+02, + .399412D+02, .314180D+02, .249108D+02, .199119D+02 / DATA (UPDI(I),I=9777,9828) / + .160387D+02, .130190D+02, .106387D+02, .874714D+01, + .722999D+01, .600309D+01, .500233D+01, .418334D+01, + .350162D+01, .293843D+01, .246500D+01, .206958D+01, + .173705D+01, .145683D+01, .122036D+01, .102063D+01, + .851901D+00, .709387D+00, .589141D+00, .487791D+00, + .402523D+00, .330922D+00, .270964D+00, .220809D+00, + .179212D+00, .144456D+00, .115733D+00, .920923D-01, + .727368D-01, .569738D-01, .442187D-01, .339668D-01, + .257965D-01, .193444D-01, .142855D-01, .104052D-01, + .742414D-02, .518586D-02, .353503D-02, .234160D-02, + .149991D-02, .922314D-03, .540939D-03, .297722D-03, + .152199D-03, .703972D-04, .284684D-04, .949313D-05, + .236056D-05, .361687D-06, .211973D-07, .000000D+00 / DATA (UPDI(I),I=9829,9880) / + .121635D+07, .920798D+06, .685240D+06, .509674D+06, + .378910D+06, .281529D+06, .209074D+06, .155175D+06, + .115115D+06, .853463D+05, .632459D+05, .468419D+05, + .346771D+05, .256579D+05, .189772D+05, .140295D+05, + .103688D+05, .766069D+04, .565913D+04, .417992D+04, + .308774D+04, .228128D+04, .168626D+04, .124718D+04, + .923362D+03, .684431D+03, .508346D+03, .376772D+03, + .281243D+03, .210626D+03, .158385D+03, .119658D+03, + .908921D+02, .695185D+02, .535021D+02, .414820D+02, + .324187D+02, .255399D+02, .202861D+02, .162388D+02, + .131010D+02, .106415D+02, .869783D+01, .714750D+01, + .590066D+01, .488924D+01, .406612D+01, .338478D+01, + .282507D+01, .235721D+01, .196865D+01, .164373D+01 / DATA (UPDI(I),I=9881,9932) / + .137146D+01, .114298D+01, .951076D+00, .789863D+00, + .654444D+00, .540810D+00, .445556D+00, .365852D+00, + .299285D+00, .243843D+00, .197713D+00, .159662D+00, + .128041D+00, .102051D+00, .807799D-01, .634614D-01, + .494378D-01, .381558D-01, .291419D-01, .220019D-01, + .163989D-01, .120338D-01, .870809D-02, .617072D-02, + .427946D-02, .289519D-02, .190250D-02, .120832D-02, + .736260D-03, .427613D-03, .232849D-03, .117657D-03, + .537260D-04, .214201D-04, .703199D-05, .172011D-05, + .260346D-06, .155598D-07, .000000D+00, .151008D+07, + .113922D+07, .844340D+06, .625429D+06, .463028D+06, + .342576D+06, .253321D+06, .187198D+06, .138259D+06, + .102048D+06, .752796D+05, .554977D+05, .408928D+05 / DATA (UPDI(I),I=9933,9984) / + .301132D+05, .221648D+05, .163057D+05, .119908D+05, + .881406D+04, .647747D+04, .475916D+04, .349676D+04, + .256935D+04, .188863D+04, .138893D+04, .102236D+04, + .753346D+03, .556183D+03, .409687D+03, .303928D+03, + .226196D+03, .169021D+03, .126884D+03, .957664D+02, + .727812D+02, .556570D+02, .428805D+02, .333020D+02, + .260738D+02, .205840D+02, .163784D+02, .131356D+02, + .106075D+02, .862024D+01, .704366D+01, .578245D+01, + .476484D+01, .394114D+01, .326302D+01, .270898D+01, + .224840D+01, .186800D+01, .155166D+01, .128803D+01, + .106802D+01, .884232D+00, .730683D+00, .602404D+00, + .495343D+00, .406082D+00, .331794D+00, .270083D+00, + .218961D+00, .176650D+00, .141936D+00, .113245D+00 / DATA (UPDI(I),I=9985,10036) / + .897917D-01, .707025D-01, .552476D-01, .428042D-01, + .328514D-01, .249466D-01, .187234D-01, .138705D-01, + .101140D-01, .727099D-02, .511703D-02, .352322D-02, + .236556D-02, .154206D-02, .971081D-03, .586316D-03, + .337206D-03, .181667D-03, .907331D-04, .409049D-04, + .160796D-04, .519782D-05, .125112D-05, .187118D-06, + .114021D-07, .000000D+00, .185666D+07, .139598D+07, + .103052D+07, .760273D+06, .560565D+06, .413030D+06, + .304141D+06, .223801D+06, .164582D+06, .120947D+06, + .888261D+05, .651904D+05, .478156D+05, .350480D+05, + .256756D+05, .187980D+05, .137564D+05, .100618D+05, + .735717D+04, .537780D+04, .393067D+04, .287283D+04, + .210027D+04, .153606D+04, .112432D+04, .823733D+03 / DATA (UPDI(I),I=10037,10088) / + .604618D+03, .442705D+03, .326462D+03, .241501D+03, + .179357D+03, .133818D+03, .100378D+03, .758183D+02, + .576239D+02, .441256D+02, .340621D+02, .265101D+02, + .208052D+02, .164583D+02, .131241D+02, .105383D+02, + .851620D+01, .692025D+01, .565012D+01, .463062D+01, + .380970D+01, .313742D+01, .259108D+01, .213934D+01, + .176824D+01, .146129D+01, .120688D+01, .995703D+00, + .820246D+00, .674444D+00, .553289D+00, .452714D+00, + .369308D+00, .300261D+00, .243210D+00, .196197D+00, + .157494D+00, .125909D+00, .999442D-01, .788355D-01, + .617491D-01, .479929D-01, .369801D-01, .282225D-01, + .213084D-01, .158982D-01, .117058D-01, .848124D-02, + .605727D-02, .423353D-02, .289391D-02, .192831D-02 / DATA (UPDI(I),I=10089,10140) / + .124696D-02, .778566D-03, .465793D-03, .265275D-03, + .141395D-03, .698034D-04, .310704D-04, .120434D-04, + .383406D-05, .908359D-06, .134289D-06, .834141D-08, + .000000D+00, .226144D+07, .169477D+07, .124622D+07, + .915798D+06, .672549D+06, .493544D+06, .361943D+06, + .265231D+06, .194231D+06, .142127D+06, .103931D+06, + .759415D+05, .554533D+05, .404627D+05, .295062D+05, + .215017D+05, .156603D+05, .113992D+05, .829416D+04, + .603245D+04, .438676D+04, .318960D+04, .231959D+04, + .168737D+04, .122835D+04, .894947D+03, .653191D+03, + .475503D+03, .348621D+03, .256388D+03, .189292D+03, + .140394D+03, .104685D+03, .786034D+02, .593872D+02, + .452089D+02, .346953D+02, .268475D+02, .209503D+02 / DATA (UPDI(I),I=10141,10192) / + .164800D+02, .130685D+02, .104361D+02, .838772D+01, + .677916D+01, .550536D+01, .448806D+01, .367307D+01, + .300906D+01, .247224D+01, .203071D+01, .166990D+01, + .137305D+01, .112830D+01, .926233D+00, .759231D+00, + .621190D+00, .507092D+00, .412877D+00, .335155D+00, + .271155D+00, .218551D+00, .175433D+00, .140121D+00, + .111457D+00, .880204D-01, .690701D-01, .538153D-01, + .416021D-01, .318801D-01, .241937D-01, .181613D-01, + .134698D-01, .985711D-02, .709631D-02, .503486D-02, + .349466D-02, .237160D-02, .156827D-02, .100600D-02, + .622759D-03, .369177D-03, .208196D-03, .109792D-03, + .535762D-04, .235463D-04, .900053D-05, .282241D-05, + .658357D-06, .962403D-07, .609245D-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