C----------------------------------------------------------------------- #include "pdf/pilot.h" Subroutine Ctq4RA2 (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 : CTEQ4A2 C PARAMETER (ISET=5) DATA DrI, FlI, AlI / 2., 5., .1690 / 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, .203942D+01, .266851D+01, .359449D+01, .500000D+01, + .802532D+01, .137613D+02, .254432D+02, .512588D+02, .113883D+03, + .282862D+03, .797782D+03, .260074D+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) / + .240472D+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, .103279D+06, + .785852D+05, .588257D+05, .439999D+05, .328913D+05, + .245652D+05, .183349D+05, .136716D+05, .101872D+05, + .758300D+04, .564018D+04, .419047D+04, .311077D+04 / DATA (UPDI(I),I=469,520) / + .230649D+04, .170859D+04, .126404D+04, .934221D+03, + .689492D+03, .508317D+03, .374183D+03, .275123D+03, + .201963D+03, .148067D+03, .108370D+03, .792042D+02, + .577911D+02, .421217D+02, .305046D+02, .221642D+02, + .160754D+02, .116478D+02, .842672D+01, .609181D+01, + .440352D+01, .318085D+01, .229724D+01, .166105D+01, + .120196D+01, .871802D+00, .633493D+00, .462176D+00, + .338198D+00, .248575D+00, .183402D+00, .136023D+00, + .101286D+00, .759004D-01, .569663D-01, .430572D-01, + .325731D-01, .247616D-01, .188561D-01, .143988D-01, + .110030D-01, .842071D-02, .643871D-02, .492180D-02, + .375369D-02, .285909D-02, .216897D-02, .164051D-02, + .123384D-02, .923191D-03, .686805D-03, .506088D-03 / DATA (UPDI(I),I=521,572) / + .368803D-03, .265761D-03, .188611D-03, .131666D-03, + .897929D-04, .595959D-04, .379724D-04, .228716D-04, + .125123D-04, .576448D-05, .144873D-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, .232070D+06, .176164D+06, + .131502D+06, .980842D+05, .731115D+05, .544467D+05, + .405184D+05, .301235D+05, .223782D+05, .166068D+05, + .123136D+05, .911986D+04, .674833D+04, .498736D+04, + .368227D+04, .271508D+04, .199977D+04, .147080D+04, + .108048D+04, .792506D+03, .580556D+03, .424585D+03, + .310091D+03, .226073D+03, .164572D+03, .119591D+03 / DATA (UPDI(I),I=573,624) / + .868007D+02, .625907D+02, .452786D+02, .326946D+02, + .235808D+02, .169804D+02, .122163D+02, .878761D+01, + .631548D+01, .453769D+01, .326358D+01, .234888D+01, + .169421D+01, .122420D+01, .887973D+00, .645988D+00, + .471954D+00, .346122D+00, .255119D+00, .188788D+00, + .140573D+00, .104836D+00, .787208D-01, .591644D-01, + .446763D-01, .337964D-01, .256334D-01, .194568D-01, + .147888D-01, .112317D-01, .852752D-02, .646066D-02, + .488845D-02, .368509D-02, .277024D-02, .207178D-02, + .154230D-02, .114249D-02, .839266D-03, .610814D-03, + .440678D-03, .314264D-03, .221589D-03, .153855D-03, + .105213D-03, .704550D-04, .460809D-04, .292215D-04, + .179840D-04, .104881D-04, .572762D-05, .279523D-05 / DATA (UPDI(I),I=625,676) / + .110547D-05, .195293D-06, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .390898D+06, .296000D+06, .220317D+06, + .163850D+06, .121771D+06, .904130D+05, .670795D+05, + .497175D+05, .368190D+05, .272373D+05, .201311D+05, + .148615D+05, .109606D+05, .807349D+04, .594055D+04, + .436516D+04, .320386D+04, .234803D+04, .171866D+04, + .125598D+04, .916628D+03, .667822D+03, .485839D+03, + .352805D+03, .255792D+03, .185111D+03, .133788D+03, + .960522D+02, .691783D+02, .497286D+02, .357008D+02, + .255875D+02, .183194D+02, .131132D+02, .937631D+01, + .670223D+01, .479469D+01, .343229D+01, .246193D+01 / DATA (UPDI(I),I=677,728) / + .176899D+01, .127574D+01, .922695D+00, .670099D+00, + .488502D+00, .357859D+00, .263187D+00, .194742D+00, + .144323D+00, .107674D+00, .804054D-01, .603188D-01, + .453335D-01, .341562D-01, .257554D-01, .194449D-01, + .146696D-01, .110629D-01, .832605D-02, .625770D-02, + .468644D-02, .349997D-02, .260104D-02, .192437D-02, + .141719D-02, .103537D-02, .749982D-03, .539009D-03, + .383456D-03, .270208D-03, .188029D-03, .129359D-03, + .876620D-04, .585090D-04, .383731D-04, .248848D-04, + .157944D-04, .988499D-05, .608847D-05, .372338D-05, + .226040D-05, .138598D-05, .856565D-06, .539050D-06, + .339686D-06, .211140D-06, .123800D-06, .651677D-07, + .279378D-07, .764683D-08, .507688D-09, .000000D+00 / DATA (UPDI(I),I=729,780) / + .584830D+06, .441723D+06, .327794D+06, .243045D+06, + .180074D+06, .133289D+06, .985795D+05, .728333D+05, + .537644D+05, .396438D+05, .292041D+05, .214878D+05, + .157940D+05, .115939D+05, .850124D+04, .622480D+04, + .455239D+04, .332425D+04, .242422D+04, .176498D+04, + .128319D+04, .931267D+03, .674819D+03, .488074D+03, + .352418D+03, .253971D+03, .182770D+03, .130642D+03, + .936717D+02, .670320D+02, .478994D+02, .341688D+02, + .243443D+02, .173402D+02, .123357D+02, .877213D+01, + .624209D+01, .444441D+01, .317028D+01, .226526D+01, + .162428D+01, .116799D+01, .843232D+00, .611070D+00, + .444930D+00, .325230D+00, .239159D+00, .176140D+00, + .130578D+00, .968913D-01, .722183D-01, .539299D-01 / DATA (UPDI(I),I=781,832) / + .403687D-01, .302428D-01, .226823D-01, .170001D-01, + .127358D-01, .952261D-02, .710972D-02, .529004D-02, + .392504D-02, .289850D-02, .213100D-02, .155987D-02, + .113295D-02, .816304D-03, .583882D-03, .413792D-03, + .290795D-03, .202174D-03, .139282D-03, .948409D-04, + .639004D-04, .425921D-04, .282958D-04, .186173D-04, + .122441D-04, .805765D-05, .534558D-05, .356908D-05, + .241092D-05, .162950D-05, .109360D-05, .714635D-06, + .445254D-06, .255043D-06, .128089D-06, .514140D-07, + .131236D-07, .908238D-09, .000000D+00, .819256D+06, + .617167D+06, .456574D+06, .337478D+06, .249252D+06, + .183908D+06, .135580D+06, .998450D+05, .734612D+05, + .539876D+05, .396366D+05, .290646D+05, .212893D+05 / DATA (UPDI(I),I=833,884) / + .155733D+05, .113786D+05, .830180D+04, .604922D+04, + .440099D+04, .319740D+04, .231906D+04, .167949D+04, + .121410D+04, .876254D+03, .631195D+03, .453876D+03, + .325705D+03, .233384D+03, .166080D+03, .118549D+03, + .844495D+02, .600642D+02, .426439D+02, .302348D+02, + .214299D+02, .151676D+02, .107304D+02, .759508D+01, + .537877D+01, .381568D+01, .271128D+01, .193303D+01, + .138203D+01, .991910D+00, .714582D+00, .517174D+00, + .375757D+00, .274623D+00, .201018D+00, .148089D+00, + .109198D+00, .808752D-01, .600144D-01, .446358D-01, + .332268D-01, .247591D-01, .184375D-01, .137232D-01, + .101953D-01, .756268D-02, .559129D-02, .412207D-02, + .302507D-02, .221032D-02, .160825D-02, .116130D-02 / DATA (UPDI(I),I=885,936) / + .832244D-03, .592371D-03, .418087D-03, .292876D-03, + .203275D-03, .140050D-03, .956212D-04, .648212D-04, + .436703D-04, .294674D-04, .198209D-04, .134059D-04, + .912320D-05, .627301D-05, .433977D-05, .301873D-05, + .208450D-05, .141275D-05, .923103D-06, .569095D-06, + .319951D-06, .156362D-06, .605049D-07, .148353D-07, + .104911D-08, .000000D+00, .109982D+07, .826315D+06, + .609371D+06, .448988D+06, .330544D+06, .243099D+06, + .178627D+06, .131111D+06, .961419D+05, .704170D+05, + .515213D+05, .376487D+05, .274801D+05, .200307D+05, + .145827D+05, .106008D+05, .769589D+04, .557809D+04, + .403719D+04, .291691D+04, .210421D+04, .151511D+04, + .108909D+04, .781301D+03, .559475D+03, .399778D+03 / DATA (UPDI(I),I=937,988) / + .285220D+03, .202064D+03, .143587D+03, .101821D+03, + .720816D+02, .509337D+02, .359368D+02, .253462D+02, + .178485D+02, .125622D+02, .884473D+01, .623035D+01, + .439563D+01, .310613D+01, .220204D+01, .156539D+01, + .111699D+01, .800000D+00, .575555D+00, .415677D+00, + .301963D+00, .219689D+00, .160847D+00, .117874D+00, + .867569D-01, .639799D-01, .472863D-01, .349796D-01, + .258999D-01, .191657D-01, .141748D-01, .104648D-01, + .771353D-02, .566737D-02, .415213D-02, .302866D-02, + .219962D-02, .159115D-02, .114246D-02, .814483D-03, + .576972D-03, .405589D-03, .283230D-03, .196231D-03, + .135171D-03, .924836D-04, .630058D-04, .428092D-04, + .292331D-04, .199817D-04, .137737D-04, .957156D-05 / DATA (UPDI(I),I=989,1040) / + .671452D-05, .472761D-05, .332779D-05, .231206D-05, + .156527D-05, .101574D-05, .618111D-06, .341279D-06, + .162822D-06, .610688D-07, .144755D-07, .104200D-08, + .000000D+00, .143233D+07, .107322D+07, .788915D+06, + .579403D+06, .425163D+06, .311658D+06, .228241D+06, + .166966D+06, .122017D+06, .890624D+05, .649371D+05, + .472858D+05, .343917D+05, .249788D+05, .181189D+05, + .131231D+05, .949145D+04, .685362D+04, .494139D+04, + .355639D+04, .255542D+04, .183267D+04, .131202D+04, + .937364D+03, .668424D+03, .475591D+03, .337837D+03, + .238273D+03, .168558D+03, .118984D+03, .838397D+02, + .589621D+02, .413999D+02, .290561D+02, .203578D+02, + .142550D+02, .998403D+01, .699559D+01, .490877D+01 / DATA (UPDI(I),I=1041,1092) / + .344973D+01, .243195D+01, .171907D+01, .121961D+01, + .868448D+00, .621132D+00, .445945D+00, .322021D+00, + .232878D+00, .169468D+00, .123437D+00, .902949D-01, + .661831D-01, .486129D-01, .357400D-01, .262985D-01, + .193407D-01, .142157D-01, .104307D-01, .764096D-02, + .558004D-02, .406341D-02, .294650D-02, .212748D-02, + .153033D-02, .109284D-02, .775237D-03, .546703D-03, + .382875D-03, .266601D-03, .184426D-03, .127035D-03, + .870964D-04, .596085D-04, .408040D-04, .281437D-04, + .194830D-04, .136193D-04, .959968D-05, .681709D-05, + .484450D-05, .342496D-05, .237930D-05, .160216D-05, + .102979D-05, .617936D-06, .335096D-06, .156245D-06, + .569242D-07, .130832D-07, .957251D-09, .000000D+00 / DATA (UPDI(I),I=1093,1144) / + .182261D+07, .136194D+07, .997898D+06, .730497D+06, + .534266D+06, .390333D+06, .284898D+06, .207705D+06, + .151269D+06, .110032D+06, .799453D+05, .580090D+05, + .420398D+05, .304234D+05, .219874D+05, .158661D+05, + .114324D+05, .822387D+04, .590654D+04, .423450D+04, + .303066D+04, .216482D+04, .154351D+04, .109821D+04, + .779846D+03, .552502D+03, .390770D+03, .274378D+03, + .193230D+03, .135781D+03, .952311D+02, .666582D+02, + .465781D+02, .325308D+02, .226782D+02, .157991D+02, + .110080D+02, .767246D+01, .535481D+01, .374275D+01, + .262391D+01, .184440D+01, .130109D+01, .921179D+00, + .655027D+00, .467538D+00, .335630D+00, .241284D+00, + .174537D+00, .126369D+00, .918826D-01, .669431D-01 / DATA (UPDI(I),I=1145,1196) / + .488736D-01, .357151D-01, .261203D-01, .190937D-01, + .139493D-01, .101740D-01, .740815D-02, .537813D-02, + .389339D-02, .280715D-02, .201547D-02, .144197D-02, + .102443D-02, .723311D-03, .507955D-03, .354532D-03, + .246250D-03, .170148D-03, .117234D-03, .805593D-04, + .553840D-04, .381731D-04, .265598D-04, .185788D-04, + .131266D-04, .934451D-05, .668569D-05, .477231D-05, + .337465D-05, .233626D-05, .156123D-05, .992559D-06, + .586969D-06, .312618D-06, .142530D-06, .505028D-07, + .112767D-07, .837987D-09, .000000D+00, .227643D+07, + .169640D+07, .123890D+07, .903943D+06, .658926D+06, + .479799D+06, .349014D+06, .253582D+06, .184043D+06, + .133407D+06, .965877D+05, .698362D+05, .504294D+05 / DATA (UPDI(I),I=1197,1248) / + .363625D+05, .261832D+05, .188237D+05, .135125D+05, + .968332D+04, .692797D+04, .494746D+04, .352694D+04, + .250924D+04, .178183D+04, .126256D+04, .892806D+03, + .629837D+03, .443541D+03, .310048D+03, .217378D+03, + .152060D+03, .106156D+03, .739572D+02, .514310D+02, + .357461D+02, .247959D+02, .171874D+02, .119135D+02, + .826034D+01, .573445D+01, .398655D+01, .277953D+01, + .194299D+01, .136295D+01, .959531D+00, .678396D+00, + .481432D+00, .343603D+00, .245576D+00, .176598D+00, + .127108D+00, .918736D-01, .665424D-01, .482928D-01, + .350820D-01, .255047D-01, .185336D-01, .134601D-01, + .975989D-02, .706513D-02, .509973D-02, .367089D-02, + .263217D-02, .187966D-02, .133790D-02, .945871D-03 / DATA (UPDI(I),I=1249,1300) / + .664924D-03, .465168D-03, .323692D-03, .224363D-03, + .154908D-03, .106807D-03, .735802D-04, .508152D-04, + .352492D-04, .247149D-04, .174376D-04, .124211D-04, + .890261D-05, .639640D-05, .457164D-05, .322496D-05, + .222031D-05, .147047D-05, .923874D-06, .538245D-06, + .281536D-06, .125551D-06, .433033D-07, .940789D-08, + .709709D-09, .000000D+00, .755795D+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, .333373D+05, .257325D+05, .195868D+05, + .149004D+05, .113325D+05, .861336D+04, .654477D+04, + .496948D+04, .377211D+04, .286105D+04, .216921D+04, + .164329D+04, .124434D+04, .941387D+03, .711846D+03, + .537732D+03, .405985D+03, .306177D+03, .230765D+03, + .173718D+03, .130689D+03, .981920D+02, .737219D+02, + .552747D+02, .414094D+02, .309825D+02, .231695D+02, + .172296D+02, .128584D+02, .958258D+01, .713957D+01, + .531334D+01, .395439D+01, .294360D+01, .219160D+01, + .163193D+01, .121764D+01, .909421D+00, .681379D+00 / DATA (UPDI(I),I=1405,1456) / + .511537D+00, .385856D+00, .291944D+00, .222023D+00, + .169484D+00, .130139D+00, .100310D+00, .778448D-01, + .605018D-01, .473712D-01, .371183D-01, .292343D-01, + .230560D-01, .182407D-01, .144366D-01, .114472D-01, + .906556D-02, .717924D-02, .567099D-02, .447581D-02, + .351782D-02, .275816D-02, .215085D-02, .167000D-02, + .129028D-02, .988912D-03, .750685D-03, .564870D-03, + .420045D-03, .308807D-03, .223414D-03, .159084D-03, + .110716D-03, .752304D-04, .491862D-04, .309941D-04, + .181812D-04, .961151D-05, .406524D-05, .709335D-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) / + .751007D+05, .578440D+05, .439194D+05, .333270D+05, + .252813D+05, .191651D+05, .145233D+05, .109978D+05, + .832471D+04, .629637D+04, .476006D+04, .359551D+04, + .271448D+04, .204742D+04, .154340D+04, .116226D+04, + .874687D+03, .657525D+03, .493931D+03, .370586D+03, + .277835D+03, .208026D+03, .155627D+03, .116266D+03, + .867793D+02, .646850D+02, .481864D+02, .356915D+02, + .265289D+02, .196903D+02, .146085D+02, .108257D+02, + .802125D+01, .594448D+01, .440531D+01, .326505D+01, + .242431D+01, .180183D+01, .134315D+01, .100324D+01, + .752746D+00, .566535D+00, .428486D+00, .325313D+00, + .248381D+00, .190379D+00, .146886D+00, .113511D+00, + .883491D-01, .688233D-01, .538801D-01, .422440D-01 / DATA (UPDI(I),I=1509,1560) / + .332200D-01, .261369D-01, .205995D-01, .162174D-01, + .127666D-01, .100266D-01, .786759D-02, .614951D-02, + .479547D-02, .372059D-02, .287510D-02, .221181D-02, + .168898D-02, .127870D-02, .960838D-03, .714787D-03, + .526949D-03, .383624D-03, .276155D-03, .195749D-03, + .136743D-03, .934852D-04, .630426D-04, .413246D-04, + .264470D-04, .163596D-04, .977556D-05, .556076D-05, + .299859D-05, .149281D-05, .669183D-06, .248165D-06, + .620127D-07, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .126626D+06, + .973160D+05, .737016D+05, .557830D+05, .422049D+05, + .319096D+05, .241156D+05, .182115D+05, .137465D+05, + .103677D+05, .781533D+04, .588610D+04, .443052D+04 / DATA (UPDI(I),I=1561,1612) / + .333169D+04, .250376D+04, .187960D+04, .141003D+04, + .105656D+04, .791068D+03, .591553D+03, .441987D+03, + .329797D+03, .245856D+03, .183020D+03, .136105D+03, + .101076D+03, .750086D+02, .553417D+02, .409713D+02, + .302881D+02, .223780D+02, .165139D+02, .121828D+02, + .898926D+01, .663142D+01, .489251D+01, .361541D+01, + .267429D+01, .198362D+01, .147429D+01, .110050D+01, + .824007D+00, .619909D+00, .468162D+00, .355498D+00, + .271007D+00, .207929D+00, .159799D+00, .123669D+00, + .957957D-01, .745641D-01, .581308D-01, .454482D-01, + .355540D-01, .278576D-01, .218057D-01, .170658D-01, + .133269D-01, .103967D-01, .808068D-02, .626568D-02, + .483459D-02, .371562D-02, .284330D-02, .216001D-02 / DATA (UPDI(I),I=1613,1664) / + .162755D-02, .121763D-02, .902464D-03, .663298D-03, + .482012D-03, .346829D-03, .246302D-03, .172825D-03, + .119236D-03, .815500D-04, .546812D-04, .361968D-04, + .235415D-04, .151274D-04, .955847D-05, .599278D-05, + .370384D-05, .226687D-05, .135820D-05, .791495D-06, + .433846D-06, .215509D-06, .892032D-07, .244622D-07, + .157836D-08, .000000D+00, .201809D+06, .145276D+06, + .109738D+06, .828412D+05, .625097D+05, .471341D+05, + .355236D+05, .267523D+05, .201361D+05, .151435D+05, + .113821D+05, .854726D+04, .641430D+04, .480887D+04, + .360270D+04, .269616D+04, .201615D+04, .150587D+04, + .112378D+04, .837566D+03, .623677D+03, .463774D+03, + .344520D+03, .255559D+03, .189359D+03, .140107D+03 / DATA (UPDI(I),I=1665,1716) / + .103581D+03, .761262D+02, .561371D+02, .413350D+02, + .304147D+02, .223518D+02, .164191D+02, .120629D+02, + .885903D+01, .650656D+01, .478567D+01, .352333D+01, + .260070D+01, .192353D+01, .142862D+01, .106432D+01, + .796556D+00, .598471D+00, .452036D+00, .342783D+00, + .261577D+00, .199952D+00, .153890D+00, .118555D+00, + .917641D-01, .711476D-01, .553128D-01, .430314D-01, + .335252D-01, .260956D-01, .203077D-01, .157706D-01, + .122334D-01, .945564D-02, .729073D-02, .559481D-02, + .427630D-02, .325469D-02, .245926D-02, .184357D-02, + .137245D-02, .101259D-02, .741112D-03, .536666D-03, + .385068D-03, .273022D-03, .191528D-03, .132431D-03, + .909800D-04, .615243D-04, .412570D-04, .273484D-04 / DATA (UPDI(I),I=1717,1768) / + .180280D-04, .117768D-04, .768198D-05, .496580D-05, + .318049D-05, .198965D-05, .120012D-05, .674183D-06, + .338489D-06, .139366D-06, .374176D-07, .248550D-08, + .000000D+00, .288684D+06, .220731D+06, .166179D+06, + .125028D+06, .940195D+05, .706498D+05, .530592D+05, + .398171D+05, .298615D+05, .223761D+05, .167558D+05, + .125356D+05, .937140D+04, .699890D+04, .522281D+04, + .389318D+04, .289949D+04, .215685D+04, .160287D+04, + .118964D+04, .882036D+03, .653061D+03, .482979D+03, + .356666D+03, .263064D+03, .193737D+03, .142547D+03, + .104253D+03, .764973D+02, .560465D+02, .410265D+02, + .299943D+02, .219144D+02, .160135D+02, .116944D+02, + .854067D+01, .624501D+01, .457089D+01, .335347D+01 / DATA (UPDI(I),I=1769,1820) / + .246530D+01, .181953D+01, .134711D+01, .100171D+01, + .747812D+00, .561118D+00, .422731D+00, .320431D+00, + .243321D+00, .185994D+00, .142326D+00, .109406D+00, + .842539D-01, .650477D-01, .502597D-01, .388812D-01, + .300554D-01, .232232D-01, .179085D-01, .137910D-01, + .105831D-01, .809898D-02, .616863D-02, .467775D-02, + .353149D-02, .264521D-02, .196499D-02, .144832D-02, + .105705D-02, .764171D-03, .545696D-03, .385120D-03, + .267715D-03, .183277D-03, .122958D-03, .813042D-04, + .523378D-04, .329128D-04, .200657D-04, .118586D-04, + .672347D-05, .365859D-05, .188321D-05, .916027D-06, + .412541D-06, .173619D-06, .670387D-07, .252846D-07, + .942045D-08, .282142D-08, .124076D-09, .000000D+00 / DATA (UPDI(I),I=1821,1872) / + .413508D+06, .315244D+06, .236520D+06, .177337D+06, + .132887D+06, .995037D+05, .744605D+05, .556749D+05, + .416006D+05, .310569D+05, .231684D+05, .172671D+05, + .128587D+05, .956583D+04, .710996D+04, .527867D+04, + .391529D+04, .290049D+04, .214647D+04, .158636D+04, + .117109D+04, .863295D+03, .635618D+03, .467274D+03, + .343062D+03, .251475D+03, .184147D+03, .134020D+03, + .978534D+02, .713361D+02, .519510D+02, .377846D+02, + .274590D+02, .199575D+02, .144937D+02, .105260D+02, + .765229D+01, .556849D+01, .406100D+01, .296760D+01, + .217680D+01, .160170D+01, .118351D+01, .877983D+00, + .654543D+00, .489949D+00, .368951D+00, .278339D+00, + .211343D+00, .160652D+00, .122660D+00, .938324D-01 / DATA (UPDI(I),I=1873,1924) / + .719504D-01, .552194D-01, .424246D-01, .325721D-01, + .249947D-01, .191440D-01, .146405D-01, .111588D-01, + .848076D-02, .641584D-02, .483203D-02, .362348D-02, + .269580D-02, .198959D-02, .145714D-02, .105718D-02, + .759976D-03, .540072D-03, .379607D-03, .263194D-03, + .180001D-03, .121029D-03, .804908D-04, .524305D-04, + .336245D-04, .211630D-04, .131230D-04, .799651D-05, + .482412D-05, .287280D-05, .169577D-05, .983775D-06, + .556763D-06, .297250D-06, .143816D-06, .573489D-07, + .149090D-07, .985592D-09, .000000D+00, .568445D+06, + .432074D+06, .323046D+06, .241362D+06, .180222D+06, + .134463D+06, .100255D+06, .746867D+05, .555987D+05, + .413512D+05, .307304D+05, .228150D+05, .169238D+05 / DATA (UPDI(I),I=1925,1976) / + .125404D+05, .928354D+04, .686457D+04, .507069D+04, + .374086D+04, .275670D+04, .202868D+04, .149114D+04, + .109441D+04, .802190D+03, .587069D+03, .429033D+03, + .313025D+03, .228127D+03, .165216D+03, .120038D+03, + .870734D+02, .630883D+02, .456481D+02, .329980D+02, + .238552D+02, .172290D+02, .124429D+02, .899432D+01, + .650746D+01, .471783D+01, .342717D+01, .249866D+01, + .182734D+01, .134185D+01, .989267D+00, .732832D+00, + .545074D+00, .407824D+00, .305688D+00, .230591D+00, + .174141D+00, .132080D+00, .100377D+00, .764568D-01, + .582902D-01, .444829D-01, .339251D-01, .258580D-01, + .196735D-01, .149439D-01, .113143D-01, .854112D-02, + .641880D-02, .480205D-02, .357730D-02, .264392D-02 / DATA (UPDI(I),I=1977,2028) / + .193890D-02, .141122D-02, .101788D-02, .727697D-03, + .514641D-03, .360258D-03, .249079D-03, .170131D-03, + .114559D-03, .765236D-04, .503060D-04, .327457D-04, + .210870D-04, .134989D-04, .858409D-05, .545531D-05, + .344929D-05, .216389D-05, .132947D-05, .786702D-06, + .432755D-06, .211393D-06, .834578D-07, .211696D-07, + .144708D-08, .000000D+00, .758556D+06, .574847D+06, + .428278D+06, .318849D+06, .237225D+06, .176350D+06, + .131004D+06, .972316D+05, .721100D+05, .534282D+05, + .395531D+05, .292513D+05, .216129D+05, .159514D+05, + .117612D+05, .866132D+04, .637153D+04, .468097D+04, + .343490D+04, .251697D+04, .184201D+04, .134600D+04, + .982193D+03, .715551D+03, .520526D+03, .378002D+03 / DATA (UPDI(I),I=2029,2080) / + .274171D+03, .197593D+03, .142857D+03, .103111D+03, + .743288D+02, .535047D+02, .384737D+02, .276659D+02, + .198722D+02, .142726D+02, .102586D+02, .737983D+01, + .531911D+01, .384128D+01, .278382D+01, .202362D+01, + .147688D+01, .108213D+01, .796619D+00, .588811D+00, + .437763D+00, .326049D+00, .244368D+00, .183360D+00, + .138171D+00, .104329D+00, .789485D-01, .597989D-01, + .453338D-01, .343482D-01, .260083D-01, .196587D-01, + .148342D-01, .111581D-01, .836789D-02, .624799D-02, + .464389D-02, .343729D-02, .252419D-02, .183969D-02, + .133098D-02, .954597D-03, .678847D-03, .477882D-03, + .333235D-03, .229786D-03, .156776D-03, .105704D-03, + .708840D-04, .469659D-04, .309465D-04, .202836D-04 / DATA (UPDI(I),I=2081,2132) / + .132835D-04, .868502D-05, .568721D-05, .370548D-05, + .238452D-05, .149348D-05, .892393D-06, .491281D-06, + .237625D-06, .918766D-07, .226706D-07, .158186D-08, + .000000D+00, .989232D+06, .747396D+06, .554854D+06, + .411606D+06, .305128D+06, .226000D+06, .167266D+06, + .123683D+06, .913810D+05, .674487D+05, .497400D+05, + .366417D+05, .269667D+05, .198235D+05, .145572D+05, + .106767D+05, .782162D+04, .572231D+04, .418126D+04, + .305076D+04, .222296D+04, .161722D+04, .117484D+04, + .852029D+03, .616961D+03, .445939D+03, .321912D+03, + .230869D+03, .166099D+03, .119293D+03, .855593D+02, + .612735D+02, .438296D+02, .313507D+02, .223969D+02, + .159977D+02, .114341D+02, .817899D+01, .586114D+01 / DATA (UPDI(I),I=2133,2184) / + .420812D+01, .303162D+01, .219063D+01, .158910D+01, + .115729D+01, .846702D+00, .621963D+00, .459530D+00, + .340121D+00, .253303D+00, .188862D+00, .141409D+00, + .106098D+00, .797726D-01, .600374D-01, .452208D-01, + .340429D-01, .256110D-01, .192347D-01, .144206D-01, + .107778D-01, .803095D-02, .595859D-02, .440078D-02, + .323704D-02, .236242D-02, .171153D-02, .123114D-02, + .878234D-03, .621428D-03, .435581D-03, .302671D-03, + .208230D-03, .141962D-03, .958579D-04, .645300D-04, + .430659D-04, .286797D-04, .190711D-04, .127068D-04, + .847016D-05, .565075D-05, .374258D-05, .243560D-05, + .153413D-05, .915364D-06, .499982D-06, .238131D-06, + .899016D-07, .215632D-07, .153121D-08, .000000D+00 / DATA (UPDI(I),I=2185,2236) / + .126611D+07, .953701D+06, .705487D+06, .521470D+06, + .385167D+06, .284239D+06, .209590D+06, .154399D+06, + .113644D+06, .835607D+05, .613838D+05, .450430D+05, + .330188D+05, .241757D+05, .176815D+05, .129152D+05, + .942246D+04, .686470D+04, .499478D+04, .362873D+04, + .263262D+04, .190684D+04, .137907D+04, .995632D+03, + .717644D+03, .516296D+03, .370939D+03, .264739D+03, + .189540D+03, .135459D+03, .966653D+02, .688748D+02, + .490111D+02, .348730D+02, .247794D+02, .176033D+02, + .125119D+02, .889982D+01, .634132D+01, .452669D+01, + .324206D+01, .232889D+01, .167931D+01, .121566D+01, + .884005D+00, .645407D+00, .473926D+00, .348612D+00, + .258012D+00, .191174D+00, .142244D+00, .106059D+00 / DATA (UPDI(I),I=2237,2288) / + .792412D-01, .592633D-01, .443552D-01, .331813D-01, + .248052D-01, .185128D-01, .137919D-01, .102437D-01, + .758528D-02, .559333D-02, .410561D-02, .300166D-02, + .217756D-02, .156856D-02, .112211D-02, .796379D-03, + .560888D-03, .391604D-03, .271271D-03, .186280D-03, + .126961D-03, .858855D-04, .580487D-04, .390078D-04, + .262253D-04, .176509D-04, .119193D-04, .805535D-05, + .543749D-05, .363302D-05, .237349D-05, .149366D-05, + .885410D-06, .478016D-06, .223653D-06, .823600D-07, + .192079D-07, .138634D-08, .000000D+00, .159500D+07, + .119781D+07, .882906D+06, .650268D+06, .478556D+06, + .351863D+06, .258494D+06, .189713D+06, .139109D+06, + .101895D+06, .745630D+05, .545007D+05, .397943D+05 / DATA (UPDI(I),I=2289,2340) / + .290206D+05, .211394D+05, .153781D+05, .111731D+05, + .810620D+04, .587321D+04, .424872D+04, .306909D+04, + .221325D+04, .159357D+04, .114533D+04, .821781D+03, + .588473D+03, .420809D+03, .298882D+03, .212951D+03, + .151445D+03, .107534D+03, .762323D+02, .539675D+02, + .381998D+02, .269989D+02, .190768D+02, .134848D+02, + .953867D+01, .675822D+01, .479684D+01, .341571D+01, + .243935D+01, .174860D+01, .125833D+01, .909553D+00, + .660066D+00, .481761D+00, .352220D+00, .259087D+00, + .190794D+00, .141086D+00, .104550D+00, .776317D-01, + .577019D-01, .429185D-01, .319085D-01, .237063D-01, + .175841D-01, .130193D-01, .961099D-02, .707345D-02, + .518469D-02, .378294D-02, .274958D-02, .198322D-02 / DATA (UPDI(I),I=2341,2392) / + .142075D-02, .101107D-02, .714143D-03, .500813D-03, + .348430D-03, .240727D-03, .165080D-03, .112536D-03, + .762954D-04, .517832D-04, .350280D-04, .237520D-04, + .161493D-04, .110195D-04, .751990D-05, .511213D-05, + .342899D-05, .223902D-05, .140248D-05, .823618D-06, + .438603D-06, .201345D-06, .722983D-07, .164058D-07, + .120271D-08, .000000D+00, .198172D+07, .148378D+07, + .108980D+07, .799773D+06, .586452D+06, .429619D+06, + .314452D+06, .229923D+06, .167957D+06, .122558D+06, + .893391D+05, .650476D+05, .473087D+05, .343639D+05, + .249312D+05, .180630D+05, .130699D+05, .944308D+04, + .681310D+04, .490772D+04, .352988D+04, .253447D+04, + .181681D+04, .129994D+04, .928493D+03, .661826D+03 / DATA (UPDI(I),I=2393,2444) / + .471055D+03, .332967D+03, .236099D+03, .167093D+03, + .118059D+03, .832746D+02, .586525D+02, .413020D+02, + .290380D+02, .204082D+02, .143477D+02, .100934D+02, + .711146D+01, .501919D+01, .355367D+01, .252329D+01, + .179826D+01, .128651D+01, .924435D+00, .666888D+00, + .483844D+00, .351623D+00, .257091D+00, .188181D+00, + .138312D+00, .101877D+00, .751874D-01, .555469D-01, + .410643D-01, .303453D-01, .224086D-01, .165217D-01, + .121591D-01, .892258D-02, .652788D-02, .475695D-02, + .345076D-02, .249398D-02, .178894D-02, .127487D-02, + .902790D-03, .634823D-03, .443450D-03, .307565D-03, + .212035D-03, .145278D-03, .991073D-04, .673628D-04, + .459185D-04, .312570D-04, .213575D-04, .146442D-04 / DATA (UPDI(I),I=2445,2496) / + .100721D-04, .691869D-05, .472080D-05, .316825D-05, + .206168D-05, .128231D-05, .744738D-06, .390713D-06, + .175858D-06, .615718D-07, .136052D-07, .101262D-08, + .000000D+00, .243205D+07, .181555D+07, .132875D+07, + .971659D+06, .709925D+06, .518184D+06, .377882D+06, + .275279D+06, .200337D+06, .145633D+06, .105754D+06, + .767019D+05, .555671D+05, .402035D+05, .290515D+05, + .209635D+05, .151068D+05, .108698D+05, .780977D+04, + .560194D+04, .401200D+04, .286819D+04, .204704D+04, + .145818D+04, .103684D+04, .735680D+03, .521199D+03, + .366664D+03, .258759D+03, .182250D+03, .128138D+03, + .899367D+02, .630255D+02, .441553D+02, .308826D+02, + .215903D+02, .150974D+02, .105634D+02, .740169D+01 / DATA (UPDI(I),I=2497,2548) / + .519505D+01, .365749D+01, .258229D+01, .182976D+01, + .130151D+01, .929776D+00, .666821D+00, .480962D+00, + .347465D+00, .252546D+00, .183757D+00, .134257D+00, + .983038D-01, .721185D-01, .529632D-01, .389207D-01, + .285908D-01, .209879D-01, .153833D-01, .112547D-01, + .821106D-02, .597267D-02, .432776D-02, .312183D-02, + .224398D-02, .160111D-02, .113534D-02, .800271D-03, + .560417D-03, .390097D-03, .269838D-03, .185712D-03, + .127193D-03, .868705D-04, .592135D-04, .405403D-04, + .277593D-04, .190952D-04, .131829D-04, .912002D-05, + .628995D-05, .429656D-05, .287808D-05, .186263D-05, + .114847D-05, .658886D-06, .340268D-06, .150099D-06, + .512502D-07, .110369D-07, .833710D-09, .000000D+00 / DATA (UPDI(I),I=2549,2600) / + .631669D+05, .376362D+05, .292283D+05, .226989D+05, + .176282D+05, .136904D+05, .106323D+05, .825744D+04, + .641313D+04, .498084D+04, .386853D+04, .300471D+04, + .233386D+04, .181287D+04, .140826D+04, .109403D+04, + .849984D+03, .660446D+03, .513237D+03, .398902D+03, + .310096D+03, .241117D+03, .187534D+03, .145909D+03, + .113571D+03, .884453D+02, .689206D+02, .535570D+02, + .418074D+02, .326704D+02, .255626D+02, .200312D+02, + .157241D+02, .123771D+02, .975988D+01, .771737D+01, + .612103D+01, .487105D+01, .388995D+01, .311737D+01, + .250781D+01, .202415D+01, .163891D+01, .133059D+01, + .108265D+01, .882323D+00, .720293D+00, .587419D+00, + .479421D+00, .390328D+00, .317437D+00, .257507D+00 / DATA (UPDI(I),I=2601,2652) / + .208232D+00, .167749D+00, .134544D+00, .107375D+00, + .852166D-01, .672170D-01, .526647D-01, .409629D-01, + .316102D-01, .241849D-01, .183332D-01, .137771D-01, + .102240D-01, .749858D-02, .542988D-02, .387758D-02, + .272732D-02, .188664D-02, .128145D-02, .853006D-03, + .555096D-03, .352042D-03, .217936D-03, .130311D-03, + .751816D-04, .416286D-04, .219755D-04, .109681D-04, + .512050D-05, .220812D-05, .857790D-06, .294623D-06, + .856987D-07, .198691D-07, .331692D-08, .329487D-09, + .126929D-10, .482159D-13, .000000D+00, .807309D+05, + .629527D+05, .484918D+05, .373484D+05, .287657D+05, + .221523D+05, .170594D+05, .131355D+05, .101142D+05, + .778670D+04, .599481D+04, .461465D+04, .355225D+04 / DATA (UPDI(I),I=2653,2704) / + .273409D+04, .210440D+04, .161954D+04, .124645D+04, + .959209D+03, .738216D+03, .568107D+03, .437256D+03, + .336549D+03, .259092D+03, .199485D+03, .153643D+03, + .118371D+03, .912525D+02, .701228D+02, .541350D+02, + .418269D+02, .323576D+02, .250644D+02, .194487D+02, + .151308D+02, .117930D+02, .921597D+01, .722536D+01, + .568338D+01, .448736D+01, .355579D+01, .282951D+01, + .225955D+01, .181086D+01, .145567D+01, .117335D+01, + .947623D+00, .767099D+00, .620498D+00, .502635D+00, + .406289D+00, .328224D+00, .264580D+00, .212708D+00, + .170419D+00, .136002D+00, .108029D+00, .853672D-01, + .670668D-01, .523605D-01, .405935D-01, .312368D-01, + .238405D-01, .180347D-01, .135310D-01, .100295D-01 / DATA (UPDI(I),I=2705,2756) / + .734958D-02, .531996D-02, .379907D-02, .267353D-02, + .185092D-02, .125874D-02, .838809D-03, .546477D-03, + .346370D-03, .213908D-03, .126899D-03, .719416D-04, + .383555D-04, .186865D-04, .778310D-05, .216709D-05, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .121987D+06, .946656D+05, + .725147D+05, .555346D+05, .425276D+05, .325590D+05, + .249251D+05, .190763D+05, .145987D+05, .111691D+05, + .854451D+04, .653490D+04, .499752D+04, .382078D+04, + .292089D+04, .223235D+04, .170602D+04, .130344D+04, + .995827D+03, .760638D+03, .581010D+03, .443729D+03, + .338915D+03, .258840D+03, .197723D+03, .151053D+03 / DATA (UPDI(I),I=2757,2808) / + .115460D+03, .879425D+02, .672916D+02, .515214D+02, + .394920D+02, .303043D+02, .232918D+02, .179465D+02, + .138521D+02, .107190D+02, .832144D+01, .648106D+01, + .506729D+01, .397632D+01, .313409D+01, .247936D+01, + .196897D+01, .156875D+01, .125377D+01, .100426D+01, + .806628D+00, .647549D+00, .520854D+00, .418154D+00, + .335655D+00, .268923D+00, .214966D+00, .171295D+00, + .136009D+00, .107516D+00, .845810D-01, .661683D-01, + .514585D-01, .397493D-01, .304872D-01, .231995D-01, + .175040D-01, .131038D-01, .969544D-02, .709506D-02, + .513176D-02, .366421D-02, .258070D-02, .178993D-02, + .122138D-02, .818254D-03, .537462D-03, .344760D-03, + .216799D-03, .132161D-03, .781936D-04, .446405D-04 / DATA (UPDI(I),I=2809,2860) / + .244982D-04, .128043D-04, .632738D-05, .290541D-05, + .120813D-05, .429887D-06, .113785D-06, .618901D-08, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .173024D+06, .133753D+06, .101998D+06, + .777586D+05, .592709D+05, .451635D+05, .344085D+05, + .262055D+05, .199547D+05, .151894D+05, .115601D+05, + .879463D+04, .668954D+04, .508637D+04, .386672D+04, + .293838D+04, .223254D+04, .169559D+04, .128760D+04, + .977412D+03, .741882D+03, .562930D+03, .427126D+03, + .324008D+03, .245797D+03, .186453D+03, .141496D+03, + .106968D+03, .812330D+02, .617158D+02, .469344D+02, + .357259D+02, .272342D+02, .208097D+02, .159265D+02, + .122186D+02, .940395D+01, .726055D+01, .562754D+01 / DATA (UPDI(I),I=2861,2912) / + .437770D+01, .342097D+01, .268345D+01, .211343D+01, + .167022D+01, .132443D+01, .105279D+01, .839457D+00, + .669135D+00, .534617D+00, .426424D+00, .340190D+00, + .270951D+00, .215377D+00, .170706D+00, .134856D+00, + .106089D+00, .830757D-01, .647070D-01, .501156D-01, + .385613D-01, .294689D-01, .223489D-01, .168096D-01, + .125484D-01, .926112D-02, .676221D-02, .488225D-02, + .348144D-02, .245031D-02, .169958D-02, .116101D-02, + .779696D-03, .514355D-03, .332206D-03, .211126D-03, + .130779D-03, .792773D-04, .469344D-04, .272220D-04, + .154668D-04, .868687D-05, .483795D-05, .269572D-05, + .150147D-05, .831893D-06, .442924D-06, .216974D-06, + .893446D-07, .244676D-07, .157839D-08, .000000D+00 / DATA (UPDI(I),I=2913,2964) / + .189917D+06, .181341D+06, .137746D+06, .104592D+06, + .794010D+05, .602523D+05, .457111D+05, .346643D+05, + .262807D+05, .199157D+05, .150884D+05, .114259D+05, + .865004D+04, .654544D+04, .495155D+04, .374394D+04, + .283009D+04, .213823D+04, .161509D+04, .121935D+04, + .920380D+03, .694406D+03, .523825D+03, .395000D+03, + .297831D+03, .224516D+03, .169298D+03, .127140D+03, + .959079D+02, .723669D+02, .546499D+02, .413016D+02, + .312547D+02, .237043D+02, .180045D+02, .137066D+02, + .104671D+02, .801796D+01, .616564D+01, .475847D+01, + .368942D+01, .287157D+01, .224429D+01, .176033D+01, + .138568D+01, .109362D+01, .866029D+00, .685688D+00, + .544338D+00, .431481D+00, .342179D+00, .270977D+00 / DATA (UPDI(I),I=2965,3016) / + .214217D+00, .168895D+00, .132753D+00, .103929D+00, + .810067D-01, .628148D-01, .484436D-01, .371234D-01, + .282607D-01, .213544D-01, .160061D-01, .119100D-01, + .876345D-02, .638111D-02, .459581D-02, .327033D-02, + .229799D-02, .159224D-02, .108737D-02, .730757D-03, + .483078D-03, .313243D-03, .200374D-03, .125395D-03, + .771945D-04, .467389D-04, .279860D-04, .166073D-04, + .986788D-05, .587875D-05, .352271D-05, .210294D-05, + .123175D-05, .681218D-06, .339611D-06, .139473D-06, + .374217D-07, .248552D-08, .000000D+00, .334022D+06, + .256336D+06, .193829D+06, .146501D+06, .110695D+06, + .836005D+05, .631166D+05, .476279D+05, .359274D+05, + .270872D+05, .204145D+05, .153772D+05, .115784D+05 / DATA (UPDI(I),I=3017,3068) / + .871309D+04, .655423D+04, .492739D+04, .370284D+04, + .278095D+04, .208773D+04, .156638D+04, .117478D+04, + .880590D+03, .659845D+03, .494185D+03, .370016D+03, + .276942D+03, .207306D+03, .154503D+03, .115654D+03, + .865827D+02, .648591D+02, .486148D+02, .364788D+02, + .274299D+02, .206515D+02, .155821D+02, .117918D+02, + .895039D+01, .681935D+01, .521454D+01, .400584D+01, + .308940D+01, .239269D+01, .186006D+01, .145141D+01, + .113574D+01, .891946D+00, .700503D+00, .551775D+00, + .434069D+00, .341720D+00, .268711D+00, .210983D+00, + .165257D+00, .129072D+00, .100430D+00, .778163D-01, + .599964D-01, .460136D-01, .350723D-01, .265602D-01, + .199682D-01, .148926D-01, .110277D-01, .807483D-02 / DATA (UPDI(I),I=3069,3120) / + .585111D-02, .419323D-02, .296861D-02, .207462D-02, + .142890D-02, .969164D-03, .646010D-03, .422710D-03, + .270474D-03, .169956D-03, .103737D-03, .616239D-04, + .354407D-04, .196922D-04, .104922D-04, .534903D-05, + .258280D-05, .117567D-05, .497612D-06, .197103D-06, + .722036D-07, .260992D-07, .949753D-08, .282433D-08, + .124090D-09, .000000D+00, .458269D+06, .350396D+06, + .263818D+06, .198537D+06, .149351D+06, .112289D+06, + .843897D+05, .633861D+05, .475891D+05, .357077D+05, + .267803D+05, .200724D+05, .150373D+05, .112579D+05, + .842418D+04, .629947D+04, .470819D+04, .351643D+04, + .262494D+04, .195810D+04, .145992D+04, .108775D+04, + .810067D+03, .602887D+03, .448506D+03, .333481D+03 / DATA (UPDI(I),I=3121,3172) / + .247951D+03, .183508D+03, .136398D+03, .101377D+03, + .753804D+02, .560750D+02, .417513D+02, .311478D+02, + .232618D+02, .174082D+02, .130640D+02, .983262D+01, + .742780D+01, .563134D+01, .428902D+01, .327963D+01, + .251849D+01, .194148D+01, .150244D+01, .116616D+01, + .908598D+00, .708045D+00, .553522D+00, .432243D+00, + .337854D+00, .263834D+00, .205759D+00, .160114D+00, + .124261D+00, .960915D-01, .740072D-01, .567271D-01, + .432591D-01, .327910D-01, .246992D-01, .184727D-01, + .137072D-01, .101003D-01, .736038D-02, .530896D-02, + .378807D-02, .267083D-02, .185953D-02, .127658D-02, + .863571D-03, .574644D-03, .375829D-03, .240852D-03, + .151994D-03, .935831D-04, .564355D-04, .332809D-04 / DATA (UPDI(I),I=3173,3224) / + .192450D-04, .109158D-04, .612111D-05, .340422D-05, + .189087D-05, .104697D-05, .573991D-06, .300990D-06, + .144398D-06, .574033D-07, .149110D-07, .985602D-09, + .000000D+00, .612638D+06, .466779D+06, .349998D+06, + .262293D+06, .196476D+06, .147086D+06, .110058D+06, + .822997D+05, .615108D+05, .459427D+05, .342962D+05, + .255843D+05, .190744D+05, .142107D+05, .105808D+05, + .787213D+04, .585326D+04, .434872D+04, .322887D+04, + .239548D+04, .177610D+04, .131582D+04, .974240D+03, + .720787D+03, .532976D+03, .393837D+03, .290978D+03, + .213943D+03, .157969D+03, .116618D+03, .861135D+02, + .636072D+02, .470169D+02, .348183D+02, .258071D+02, + .191651D+02, .142704D+02, .106559D+02, .798548D+01 / DATA (UPDI(I),I=3225,3276) / + .600557D+01, .453718D+01, .344147D+01, .262156D+01, + .200488D+01, .153930D+01, .118551D+01, .916657D+00, + .708977D+00, .550209D+00, .426580D+00, .331101D+00, + .256805D+00, .198948D+00, .153813D+00, .118616D+00, + .911600D-01, .697854D-01, .531764D-01, .403175D-01, + .303894D-01, .227643D-01, .169343D-01, .124995D-01, + .916322D-02, .664396D-02, .476898D-02, .338693D-02, + .237750D-02, .164855D-02, .112764D-02, .760519D-03, + .504996D-03, .329980D-03, .211693D-03, .134078D-03, + .831865D-04, .508313D-04, .306174D-04, .182731D-04, + .108404D-04, .644819D-05, .385204D-05, .231013D-05, + .137630D-05, .799310D-06, .435457D-06, .211808D-06, + .834961D-07, .211711D-07, .144709D-08, .000000D+00 / DATA (UPDI(I),I=3277,3328) / + .802189D+06, .609112D+06, .454887D+06, .339514D+06, + .253272D+06, .188813D+06, .140682D+06, .104748D+06, + .779467D+05, .579610D+05, .430732D+05, .319851D+05, + .237359D+05, .176002D+05, .130417D+05, .965579D+04, + .714388D+04, .528084D+04, .390082D+04, .287887D+04, + .212313D+04, .156438D+04, .115186D+04, .847384D+03, + .622973D+03, .457624D+03, .336071D+03, .245559D+03, + .180175D+03, .132158D+03, .969484D+02, .711310D+02, + .522179D+02, .384005D+02, .282592D+02, .208339D+02, + .153984D+02, .114124D+02, .848763D+01, .633459D+01, + .474909D+01, .357460D+01, .270210D+01, .205077D+01, + .156264D+01, .119450D+01, .916837D+00, .703973D+00, + .542450D+00, .417627D+00, .321937D+00, .248029D+00 / DATA (UPDI(I),I=3329,3380) / + .190891D+00, .146639D+00, .112372D+00, .858306D-01, + .653090D-01, .494713D-01, .372905D-01, .279480D-01, + .208186D-01, .154023D-01, .113075D-01, .824582D-02, + .594789D-02, .424798D-02, .300239D-02, .209795D-02, + .144853D-02, .987079D-03, .663607D-03, .439647D-03, + .286990D-03, .184283D-03, .117115D-03, .731816D-04, + .452550D-04, .277628D-04, .169983D-04, .104251D-04, + .644560D-05, .401002D-05, .249391D-05, .152810D-05, + .901599D-06, .493228D-06, .237920D-06, .919036D-07, + .226716D-07, .158186D-08, .000000D+00, .103231D+07, + .781227D+06, .581126D+06, .432008D+06, .320971D+06, + .238304D+06, .176821D+06, .131103D+06, .971432D+05, + .719236D+05, .532150D+05, .393404D+05, .290624D+05 / DATA (UPDI(I),I=3381,3432) / + .214510D+05, .158211D+05, .116582D+05, .858384D+04, + .631426D+04, .464098D+04, .340780D+04, .250025D+04, + .183260D+04, .134213D+04, .981984D+03, .717918D+03, + .524372D+03, .382862D+03, .278074D+03, .202802D+03, + .147841D+03, .107771D+03, .785652D+02, .572975D+02, + .418555D+02, .305917D+02, .223974D+02, .164373D+02, + .120954D+02, .893060D+01, .661665D+01, .492417D+01, + .367915D+01, .276068D+01, .207989D+01, .157329D+01, + .119397D+01, .909913D+00, .693731D+00, .530860D+00, + .405912D+00, .310810D+00, .237884D+00, .181900D+00, + .138847D+00, .105738D+00, .802688D-01, .607092D-01, + .457153D-01, .342587D-01, .255290D-01, .189097D-01, + .139130D-01, .101585D-01, .736844D-02, .528715D-02 / DATA (UPDI(I),I=3433,3484) / + .375691D-02, .264232D-02, .183781D-02, .126346D-02, + .857692D-03, .574800D-03, .379968D-03, .247812D-03, + .159292D-03, .101585D-03, .639224D-04, .399751D-04, + .249276D-04, .155910D-04, .980904D-05, .622871D-05, + .397233D-05, .251723D-05, .155967D-05, .922071D-06, + .501383D-06, .238340D-06, .899205D-07, .215639D-07, + .153121D-08, .000000D+00, .130864D+07, .987102D+06, + .731425D+06, .541613D+06, .400810D+06, .296386D+06, + .219023D+06, .161725D+06, .119332D+06, .879783D+05, + .648142D+05, .477069D+05, .350874D+05, .257821D+05, + .189289D+05, .138839D+05, .101746D+05, .744880D+04, + .544834D+04, .398094D+04, .290612D+04, .211923D+04, + .154400D+04, .112371D+04, .817113D+03, .593541D+03 / DATA (UPDI(I),I=3485,3536) / + .430938D+03, .311181D+03, .225627D+03, .163505D+03, + .118468D+03, .858302D+02, .622011D+02, .451466D+02, + .327811D+02, .238407D+02, .173780D+02, .127000D+02, + .931189D+01, .685085D+01, .506250D+01, .375573D+01, + .279816D+01, .209323D+01, .157222D+01, .118481D+01, + .896693D+00, .678955D+00, .516043D+00, .391943D+00, + .298140D+00, .226713D+00, .172254D+00, .130660D+00, + .988882D-01, .746128D-01, .560936D-01, .419909D-01, + .312846D-01, .231796D-01, .170727D-01, .124919D-01, + .907102D-02, .654441D-02, .467116D-02, .330229D-02, + .231121D-02, .160010D-02, .109536D-02, .740804D-03, + .494959D-03, .326526D-03, .212824D-03, .136984D-03, + .876851D-04, .555643D-04, .351223D-04, .222265D-04 / DATA (UPDI(I),I=3537,3588) / + .141534D-04, .908317D-05, .587693D-05, .380595D-05, + .243427D-05, .151246D-05, .890286D-06, .479021D-06, + .223801D-06, .823732D-07, .192084D-07, .138635D-08, + .000000D+00, .163699D+07, .123079D+07, .908514D+06, + .670154D+06, .493999D+06, .363855D+06, .267806D+06, + .196945D+06, .144724D+06, .106255D+06, .779493D+05, + .571302D+05, .418361D+05, .306061D+05, .223705D+05, + .163341D+05, .119153D+05, .868251D+04, .632067D+04, + .459613D+04, .333882D+04, .242266D+04, .175615D+04, + .127154D+04, .919762D+03, .664530D+03, .479855D+03, + .344559D+03, .248418D+03, .178988D+03, .128926D+03, + .928494D+02, .668778D+02, .482410D+02, .348065D+02, + .251512D+02, .182136D+02, .132226D+02, .963018D+01 / DATA (UPDI(I),I=3589,3640) / + .703715D+01, .516475D+01, .380538D+01, .281569D+01, + .209192D+01, .156050D+01, .116797D+01, .877999D+00, + .660341D+00, .498578D+00, .376196D+00, .284314D+00, + .214824D+00, .162195D+00, .122269D+00, .919715D-01, + .689759D-01, .515475D-01, .383617D-01, .284153D-01, + .209337D-01, .153318D-01, .111562D-01, .805684D-02, + .578165D-02, .410508D-02, .288740D-02, .201105D-02, + .138596D-02, .944836D-03, .636719D-03, .424217D-03, + .279369D-03, .182039D-03, .117369D-03, .754347D-04, + .481421D-04, .307444D-04, .197160D-04, .127462D-04, + .830711D-05, .544548D-05, .355884D-05, .228416D-05, + .141628D-05, .827154D-06, .439323D-06, .201450D-06, + .723075D-07, .164061D-07, .120271D-08, .000000D+00 / DATA (UPDI(I),I=3641,3692) / + .202318D+07, .151634D+07, .111508D+07, .819406D+06, + .601697D+06, .441458D+06, .323645D+06, .237062D+06, + .173501D+06, .126863D+06, .926817D+05, .676431D+05, + .493240D+05, .359287D+05, .261461D+05, .190063D+05, + .138023D+05, .100116D+05, .725448D+04, .525035D+04, + .379584D+04, .274091D+04, .197703D+04, .142428D+04, + .102499D+04, .736694D+03, .529146D+03, .377877D+03, + .270946D+03, .194130D+03, .139037D+03, .995515D+02, + .712817D+02, .511096D+02, .366505D+02, .263191D+02, + .189390D+02, .136613D+02, .988522D+01, .717628D+01, + .523213D+01, .382947D+01, .281466D+01, .207724D+01, + .153924D+01, .114442D+01, .854644D+00, .638561D+00, + .479014D+00, .359109D+00, .269678D+00, .202490D+00 / DATA (UPDI(I),I=3693,3744) / + .151936D+00, .113835D+00, .851093D-01, .634486D-01, + .471373D-01, .348757D-01, .256846D-01, .188148D-01, + .137029D-01, .991610D-02, .712239D-02, .508397D-02, + .359095D-02, .251314D-02, .174205D-02, .119526D-02, + .811584D-03, .545082D-03, .362239D-03, .238220D-03, + .155248D-03, .100307D-03, .647531D-04, .416218D-04, + .268408D-04, .174183D-04, .114037D-04, .752025D-05, + .497310D-05, .326554D-05, .209513D-05, .129241D-05, + .747296D-06, .391227D-06, .175931D-06, .615782D-07, + .136055D-07, .101262D-08, .000000D+00, .247297D+07, + .184769D+07, .135371D+07, .991041D+06, .724976D+06, + .529871D+06, .386958D+06, .282326D+06, .205809D+06, + .149882D+06, .109053D+06, .792637D+05, .575561D+05 / DATA (UPDI(I),I=3745,3796) / + .417478D+05, .302505D+05, .218943D+05, .158294D+05, + .114307D+05, .824511D+04, .593983D+04, .427422D+04, + .307168D+04, .220492D+04, .158066D+04, .113185D+04, + .809358D+03, .578335D+03, .410805D+03, .292982D+03, + .208779D+03, .148700D+03, .105872D+03, .753722D+02, + .537282D+02, .382995D+02, .273375D+02, .195512D+02, + .140155D+02, .100778D+02, .726968D+01, .526629D+01, + .382965D+01, .279658D+01, .205053D+01, .150960D+01, + .111512D+01, .827422D+00, .614253D+00, .457857D+00, + .341081D+00, .254542D+00, .189946D+00, .141654D+00, + .105490D+00, .783989D-01, .581010D-01, .429124D-01, + .315668D-01, .231152D-01, .168375D-01, .121948D-01, + .877668D-02, .627006D-02, .445209D-02, .312853D-02 / DATA (UPDI(I),I=3797,3848) / + .217877D-02, .150326D-02, .102701D-02, .694701D-03, + .465129D-03, .308418D-03, .202620D-03, .132123D-03, + .855824D-04, .555071D-04, .359337D-04, .233858D-04, + .153359D-04, .101445D-04, .674862D-05, .448708D-05, + .295080D-05, .188737D-05, .115586D-05, .660733D-06, + .340634D-06, .150151D-06, .512547D-07, .110371D-07, + .833712D-09, .000000D+00, .506631D+05, .752999D+05, + .584793D+05, .454166D+05, .352721D+05, .273939D+05, + .212757D+05, .165242D+05, .128342D+05, .996850D+04, + .774292D+04, .601447D+04, .467209D+04, .362954D+04, + .281984D+04, .219096D+04, .170252D+04, .132313D+04, + .102846D+04, .799558D+03, .621749D+03, .483618D+03, + .376304D+03, .292923D+03, .228132D+03, .177780D+03 / DATA (UPDI(I),I=3849,3900) / + .138643D+03, .107837D+03, .842710D+02, .659382D+02, + .516714D+02, .405639D+02, .319112D+02, .251838D+02, + .199203D+02, .158102D+02, .125957D+02, .100767D+02, + .809755D+01, .653706D+01, .530368D+01, .432275D+01, + .353884D+01, .290870D+01, .239901D+01, .198412D+01, + .164544D+01, .136458D+01, .113330D+01, .939645D+00, + .778547D+00, .643675D+00, .530614D+00, .435815D+00, + .356395D+00, .289984D+00, .234612D+00, .188620D+00, + .150597D+00, .119335D+00, .937913D-01, .730651D-01, + .563765D-01, .431063D-01, .325408D-01, .242699D-01, + .178656D-01, .129653D-01, .926438D-02, .650860D-02, + .448834D-02, .303243D-02, .200233D-02, .128818D-02, + .808636D-03, .490197D-03, .286649D-03, .160829D-03 / DATA (UPDI(I),I=3901,3952) / + .860074D-04, .434756D-04, .205514D-04, .897138D-05, + .352738D-05, .122591D-05, .360746D-06, .845968D-07, + .142814D-07, .143435D-08, .558570D-10, .214453D-12, + .000000D+00, .128158D+06, .100200D+06, .774196D+05, + .598152D+05, .462146D+05, .357045D+05, .275851D+05, + .213110D+05, .164643D+05, .127193D+05, .982637D+04, + .759116D+04, .586463D+04, .453069D+04, .350036D+04, + .270434D+04, .208954D+04, .161456D+04, .124772D+04, + .964319D+03, .745446D+03, .576353D+03, .445755D+03, + .344855D+03, .266918D+03, .206697D+03, .160182D+03, + .123782D+03, .961074D+02, .747054D+02, .581560D+02, + .453485D+02, .354349D+02, .277739D+02, .218188D+02, + .171969D+02, .136058D+02, .108086D+02, .862529D+01 / DATA (UPDI(I),I=3953,4004) / + .691429D+01, .557089D+01, .450905D+01, .366608D+01, + .299274D+01, .245183D+01, .201436D+01, .165975D+01, + .136760D+01, .112878D+01, .930143D+00, .766084D+00, + .629667D+00, .516116D+00, .421550D+00, .342865D+00, + .277499D+00, .223350D+00, .178658D+00, .141941D+00, + .111934D+00, .875620D-01, .679024D-01, .521580D-01, + .397084D-01, .298479D-01, .221682D-01, .162515D-01, + .117465D-01, .836028D-02, .585036D-02, .401858D-02, + .270403D-02, .177812D-02, .113842D-02, .710714D-03, + .427721D-03, .247563D-03, .136695D-03, .711408D-04, + .342210D-04, .146178D-04, .503962D-05, .849348D-06, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / DATA (UPDI(I),I=4005,4056) / + .168907D+06, .131515D+06, .101133D+06, .777611D+05, + .597898D+05, .459662D+05, .353382D+05, .271643D+05, + .208808D+05, .160489D+05, .123351D+05, .947956D+04, + .728513D+04, .559814D+04, .430189D+04, .330553D+04, + .254007D+04, .195176D+04, .149986D+04, .115259D+04, + .885880D+03, .680945D+03, .523558D+03, .402632D+03, + .309763D+03, .238410D+03, .183628D+03, .141003D+03, + .108790D+03, .840240D+02, .649901D+02, .503475D+02, + .390830D+02, .304304D+02, .237466D+02, .185905D+02, + .146095D+02, .115273D+02, .913670D+01, .727462D+01, + .582187D+01, .468061D+01, .378033D+01, .306569D+01, + .249536D+01, .203698D+01, .166790D+01, .136577D+01, + .112048D+01, .917806D+00, .751538D+00, .614195D+00 / DATA (UPDI(I),I=4057,4108) / + .500637D+00, .406682D+00, .329016D+00, .264905D+00, + .212127D+00, .168833D+00, .133482D+00, .104760D+00, + .815676D-01, .629673D-01, .481514D-01, .365003D-01, + .273206D-01, .202080D-01, .147559D-01, .106253D-01, + .753569D-02, .525630D-02, .360039D-02, .241718D-02, + .158733D-02, .101596D-02, .635280D-03, .383981D-03, + .224247D-03, .125873D-03, .675168D-04, .343260D-04, + .163807D-04, .724007D-05, .288806D-05, .100502D-05, + .280110D-06, .445152D-07, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .219455D+06, + .170218D+06, .130318D+06, .997534D+05, .763531D+05, + .584310D+05, .447130D+05, .342092D+05, .261714D+05, + .200183D+05, .153111D+05, .117086D+05, .895328D+04 / DATA (UPDI(I),I=4109,4160) / + .684518D+04, .523330D+04, .400034D+04, .305787D+04, + .233713D+04, .178635D+04, .136525D+04, .104355D+04, + .797647D+03, .609817D+03, .466274D+03, .356642D+03, + .272872D+03, .208925D+03, .159448D+03, .122272D+03, + .938530D+02, .721403D+02, .555340D+02, .428347D+02, + .331376D+02, .256921D+02, .199825D+02, .156009D+02, + .122287D+02, .962918D+01, .761643D+01, .605574D+01, + .483704D+01, .388157D+01, .312773D+01, .252988D+01, + .205233D+01, .167027D+01, .135946D+01, .110878D+01, + .902951D+00, .735192D+00, .597500D+00, .484384D+00, + .391386D+00, .314991D+00, .252316D+00, .201032D+00, + .159215D+00, .125271D+00, .978504D-01, .758347D-01, + .582769D-01, .443656D-01, .334847D-01, .249562D-01 / DATA (UPDI(I),I=4161,4212) / + .183821D-01, .133683D-01, .958856D-02, .677523D-02, + .470950D-02, .321577D-02, .215321D-02, .141125D-02, + .902323D-03, .564498D-03, .342124D-03, .201073D-03, + .114228D-03, .626095D-04, .330422D-04, .168319D-04, + .832123D-05, .403350D-05, .195517D-05, .961735D-06, + .472528D-06, .221819D-06, .898188D-07, .244859D-07, + .157847D-08, .000000D+00, .177906D+06, .217433D+06, + .165776D+06, .126362D+06, .963087D+05, .733843D+05, + .559103D+05, .425863D+05, .324338D+05, .246953D+05, + .188011D+05, .143100D+05, .108906D+05, .828626D+04, + .630414D+04, .479504D+04, .364696D+04, .277319D+04, + .210872D+04, .160320D+04, .121894D+04, .926697D+03, + .704622D+03, .535784D+03, .407515D+03, .310022D+03 / DATA (UPDI(I),I=4213,4264) / + .236009D+03, .179055D+03, .136499D+03, .104147D+03, + .795695D+02, .608789D+02, .466676D+02, .358785D+02, + .276428D+02, .213639D+02, .165738D+02, .129086D+02, + .101000D+02, .793803D+01, .627156D+01, .497791D+01, + .396969D+01, .317896D+01, .255563D+01, .206072D+01, + .166719D+01, .134898D+01, .109395D+01, .885839D+00, + .717272D+00, .579771D+00, .467510D+00, .375779D+00, + .300881D+00, .239800D+00, .190116D+00, .149837D+00, + .117330D+00, .912173D-01, .703683D-01, .538321D-01, + .407989D-01, .306586D-01, .227515D-01, .166873D-01, + .120857D-01, .863402D-02, .607738D-02, .420909D-02, + .286446D-02, .191233D-02, .125046D-02, .798286D-03, + .499282D-03, .303095D-03, .178960D-03, .102600D-03 / DATA (UPDI(I),I=4265,4316) / + .571598D-04, .309932D-04, .164832D-04, .868520D-05, + .459103D-05, .246193D-05, .133344D-05, .704166D-06, + .343325D-06, .139833D-06, .374356D-07, .248558D-08, + .000000D+00, .379394D+06, .291969D+06, .221502D+06, + .167994D+06, .127388D+06, .965653D+05, .731860D+05, + .554490D+05, .420022D+05, .318059D+05, .240799D+05, + .182246D+05, .137904D+05, .104317D+05, .788956D+04, + .596506D+04, .450927D+04, .340778D+04, .257503D+04, + .194530D+04, .146950D+04, .110988D+04, .838298D+03, + .633135D+03, .478261D+03, .361315D+03, .273124D+03, + .205714D+03, .155686D+03, .117917D+03, .894209D+02, + .679030D+02, .516564D+02, .394105D+02, .301293D+02, + .231047D+02, .177841D+02, .137428D+02, .106683D+02 / DATA (UPDI(I),I=4317,4368) / + .831905D+01, .652133D+01, .513604D+01, .406423D+01, + .322988D+01, .257700D+01, .206249D+01, .165643D+01, + .133057D+01, .107139D+01, .861503D+00, .692790D+00, + .556219D+00, .445557D+00, .355813D+00, .283081D+00, + .224202D+00, .176653D+00, .138383D+00, .107713D+00, + .832482D-01, .638477D-01, .485645D-01, .365967D-01, + .273461D-01, .201785D-01, .147164D-01, .105976D-01, + .752736D-02, .526723D-02, .362578D-02, .245162D-02, + .162535D-02, .105460D-02, .667171D-03, .412734D-03, + .247035D-03, .143077D-03, .798080D-04, .426766D-04, + .217310D-04, .104709D-04, .473547D-05, .198689D-05, + .767357D-06, .272657D-06, .890570D-07, .287944D-07, + .975608D-08, .283424D-08, .124138D-09, .000000D+00 / DATA (UPDI(I),I=4369,4420) / + .503065D+06, .385576D+06, .291140D+06, .219757D+06, + .165831D+06, .125090D+06, .943313D+05, .711079D+05, + .535867D+05, .403665D+05, .303991D+05, .228836D+05, + .172212D+05, .129547D+05, .974252D+04, .732393D+04, + .550434D+04, .413526D+04, .310601D+04, .233216D+04, + .175084D+04, .131408D+04, .986204D+03, .740022D+03, + .555326D+03, .416733D+03, .312884D+03, .234020D+03, + .175874D+03, .132266D+03, .995848D+02, .750739D+02, + .566926D+02, .429338D+02, .325777D+02, .247947D+02, + .189406D+02, .145256D+02, .111903D+02, .865993D+01, + .673719D+01, .526612D+01, .413596D+01, .326251D+01, + .258391D+01, .205298D+01, .163701D+01, .130563D+01, + .104400D+01, .833695D+00, .665892D+00, .531067D+00 / DATA (UPDI(I),I=4421,4472) / + .422620D+00, .335321D+00, .265082D+00, .208632D+00, + .163370D+00, .127199D+00, .984118D-01, .756083D-01, + .576485D-01, .435961D-01, .326639D-01, .242694D-01, + .178073D-01, .129148D-01, .924914D-02, .653410D-02, + .454810D-02, .311481D-02, .209591D-02, .138332D-02, + .894060D-03, .563897D-03, .348267D-03, .208559D-03, + .121277D-03, .683109D-04, .372361D-04, .196338D-04, + .100557D-04, .504117D-05, .250094D-05, .124748D-05, + .629447D-06, .313200D-06, .146324D-06, .575858D-07, + .149180D-07, .985638D-09, .000000D+00, .656866D+06, + .501514D+06, .376974D+06, .283244D+06, .212748D+06, + .159724D+06, .119874D+06, .899236D+05, .674324D+05, + .505424D+05, .378691D+05, .283598D+05, .212306D+05 / DATA (UPDI(I),I=4473,4524) / + .158859D+05, .118824D+05, .888355D+04, .663926D+04, + .495965D+04, .370378D+04, .276475D+04, .206327D+04, + .153923D+04, .114809D+04, .856127D+03, .638385D+03, + .475976D+03, .355033D+03, .263760D+03, .196891D+03, + .147064D+03, .109960D+03, .823159D+02, .617209D+02, + .464083D+02, .349596D+02, .264141D+02, .200299D+02, + .152482D+02, .116605D+02, .895735D+01, .691738D+01, + .536740D+01, .418478D+01, .327716D+01, .257690D+01, + .203286D+01, .160962D+01, .127484D+01, .101241D+01, + .802986D+00, .637084D+00, .504752D+00, .399073D+00, + .314614D+00, .247142D+00, .193301D+00, .150433D+00, + .116414D+00, .895262D-01, .683729D-01, .518254D-01, + .389649D-01, .290252D-01, .214427D-01, .156437D-01 / DATA (UPDI(I),I=4525,4576) / + .112817D-01, .803462D-02, .564504D-02, .390824D-02, + .266275D-02, .178291D-02, .117141D-02, .754138D-03, + .474223D-03, .292428D-03, .175245D-03, .102339D-03, + .582156D-04, .323250D-04, .175879D-04, .946387D-05, + .509393D-05, .276786D-05, .152499D-05, .839915D-06, + .444280D-06, .213181D-06, .836247D-07, .211759D-07, + .144712D-08, .000000D+00, .845857D+06, .643408D+06, + .481522D+06, .360200D+06, .269338D+06, .201291D+06, + .150373D+06, .112275D+06, .837932D+05, .625024D+05, + .466008D+05, .347254D+05, .258647D+05, .192542D+05, + .143267D+05, .106543D+05, .791986D+04, .588396D+04, + .436965D+04, .324339D+04, .240660D+04, .178489D+04, + .132344D+04, .980943D+03, .726982D+03, .538658D+03 / DATA (UPDI(I),I=4577,4628) / + .399251D+03, .294684D+03, .218544D+03, .162160D+03, + .120437D+03, .895482D+02, .666829D+02, .497928D+02, + .372466D+02, .279437D+02, .210395D+02, .159027D+02, + .120740D+02, .920872D+01, .706071D+01, .543960D+01, + .421096D+01, .327441D+01, .255670D+01, .200291D+01, + .157502D+01, .123891D+01, .977259D+00, .769930D+00, + .606838D+00, .477665D+00, .375234D+00, .293945D+00, + .229458D+00, .178358D+00, .137953D+00, .106109D+00, + .811115D-01, .615785D-01, .464008D-01, .346833D-01, + .256858D-01, .188668D-01, .136856D-01, .981364D-02, + .694994D-02, .485607D-02, .334391D-02, .226643D-02, + .151008D-02, .987699D-03, .633428D-03, .397185D-03, + .244596D-03, .146732D-03, .860826D-04, .494583D-04 / DATA (UPDI(I),I=4629,4680) / + .279494D-04, .156357D-04, .875184D-05, .495007D-05, + .283656D-05, .163811D-05, .931265D-06, .499590D-06, + .238896D-06, .919939D-07, .226750D-07, .158188D-08, + .000000D+00, .107543D+07, .815088D+06, .607423D+06, + .452432D+06, .336834D+06, .250624D+06, .186390D+06, + .138535D+06, .102916D+06, .764074D+05, .566979D+05, + .420460D+05, .311642D+05, .230839D+05, .170898D+05, + .126440D+05, .934992D+04, .690967D+04, .510379D+04, + .376762D+04, .278005D+04, .205023D+04, .151146D+04, + .111378D+04, .820534D+03, .604306D+03, .445170D+03, + .326507D+03, .240618D+03, .177399D+03, .130900D+03, + .966893D+02, .715217D+02, .530482D+02, .394124D+02, + .293663D+02, .219583D+02, .164824D+02, .124273D+02 / DATA (UPDI(I),I=4681,4732) / + .941233D+01, .716669D+01, .548295D+01, .421516D+01, + .325512D+01, .252424D+01, .196401D+01, .153404D+01, + .119858D+01, .939194D+00, .735071D+00, .575601D+00, + .450170D+00, .351388D+00, .273536D+00, .212198D+00, + .163926D+00, .126018D+00, .963437D-01, .732058D-01, + .552470D-01, .413851D-01, .307540D-01, .226435D-01, + .165365D-01, .119264D-01, .850356D-02, .598837D-02, + .416113D-02, .284998D-02, .192167D-02, .127414D-02, + .829723D-03, .530165D-03, .331574D-03, .203992D-03, + .122556D-03, .722651D-04, .419445D-04, .241061D-04, + .138237D-04, .798835D-05, .468225D-05, .277315D-05, + .164087D-05, .943696D-06, .505960D-06, .239034D-06, + .899838D-07, .215663D-07, .153122D-08, .000000D+00 / DATA (UPDI(I),I=4733,4784) / + .135121D+07, .102053D+07, .757389D+06, .561778D+06, + .416471D+06, .308550D+06, .228471D+06, .169063D+06, + .125032D+06, .924053D+05, .682529D+05, .503781D+05, + .371625D+05, .273942D+05, .201814D+05, .148571D+05, + .109309D+05, .803657D+04, .590520D+04, .433611D+04, + .318229D+04, .233402D+04, .171109D+04, .125375D+04, + .918344D+03, .672380D+03, .492376D+03, .358923D+03, + .262890D+03, .192617D+03, .141235D+03, .103659D+03, + .761825D+02, .561378D+02, .414330D+02, .306670D+02, + .227775D+02, .169825D+02, .127180D+02, .956738D+01, + .723549D+01, .549819D+01, .419835D+01, .322035D+01, + .248055D+01, .191715D+01, .148756D+01, .115459D+01, + .898842D+00, .698928D+00, .543792D+00, .422595D+00 / DATA (UPDI(I),I=4785,4836) / + .327791D+00, .253579D+00, .195502D+00, .150105D+00, + .114693D+00, .871588D-01, .658318D-01, .493883D-01, + .367793D-01, .271723D-01, .198902D-01, .144423D-01, + .103563D-01, .734216D-02, .514156D-02, .355311D-02, + .242057D-02, .162380D-02, .107153D-02, .694825D-03, + .442450D-03, .276092D-03, .169769D-03, .102203D-03, + .606027D-04, .355434D-04, .207593D-04, .121692D-04, + .721639D-05, .434081D-05, .262496D-05, .157226D-05, + .906013D-06, .482307D-06, .224292D-06, .824176D-07, + .192100D-07, .138636D-08, .000000D+00, .167902D+07, + .126380D+07, .934149D+06, .690064D+06, .509462D+06, + .375865D+06, .277134D+06, .204190D+06, .150351D+06, + .110626D+06, .813443D+05, .597675D+05, .438848D+05 / DATA (UPDI(I),I=4837,4888) / + .321977D+05, .236071D+05, .172949D+05, .126619D+05, + .926272D+04, .677163D+04, .494669D+04, .361137D+04, + .263462D+04, .192102D+04, .139983D+04, .101961D+04, + .742277D+03, .540425D+03, .391610D+03, .285127D+03, + .207653D+03, .151330D+03, .110381D+03, .806144D+02, + .590284D+02, .432877D+02, .318332D+02, .234900D+02, + .173994D+02, .129447D+02, .967394D+01, .726790D+01, + .548643D+01, .416178D+01, .317133D+01, .242678D+01, + .186334D+01, .143645D+01, .110769D+01, .856809D+00, + .661985D+00, .511792D+00, .395234D+00, .304661D+00, + .234232D+00, .179481D+00, .136967D+00, .104024D+00, + .785792D-01, .589993D-01, .440017D-01, .325764D-01, + .239275D-01, .174136D-01, .125716D-01, .896329D-02 / DATA (UPDI(I),I=4889,4940) / + .631868D-02, .440024D-02, .302427D-02, .204945D-02, + .136798D-02, .898550D-03, .580319D-03, .368380D-03, + .229445D-03, .141083D-03, .851568D-04, .508059D-04, + .301138D-04, .178591D-04, .106738D-04, .646272D-05, + .396087D-05, .242592D-05, .146021D-05, .838566D-06, + .441676D-06, .201797D-06, .723385D-07, .164073D-07, + .120272D-08, .000000D+00, .206467D+07, .154893D+07, + .114039D+07, .839063D+06, .616964D+06, .453316D+06, + .332854D+06, .244215D+06, .179057D+06, .131178D+06, + .960335D+05, .702468D+05, .513466D+05, .374999D+05, + .273668D+05, .199548D+05, .145393D+05, .105844D+05, + .769959D+04, .559634D+04, .406482D+04, .295007D+04, + .213970D+04, .155083D+04, .112347D+04, .813350D+03 / DATA (UPDI(I),I=4941,4992) / + .588849D+03, .424237D+03, .307099D+03, .222345D+03, + .161075D+03, .116784D+03, .847709D+02, .616912D+02, + .449591D+02, .328552D+02, .240910D+02, .177313D+02, + .131075D+02, .973285D+01, .726524D+01, .544918D+01, + .410695D+01, .310944D+01, .236416D+01, .180363D+01, + .138157D+01, .105859D+01, .813661D+00, .624687D+00, + .479942D+00, .368341D+00, .282184D+00, .215625D+00, + .164220D+00, .124566D+00, .940402D-01, .706153D-01, + .527068D-01, .390784D-01, .287631D-01, .210045D-01, + .151982D-01, .109096D-01, .773410D-02, .542157D-02, + .375470D-02, .256674D-02, .173042D-02, .114941D-02, + .751643D-03, .483613D-03, .306138D-03, .190410D-03, + .117142D-03, .709335D-04, .426007D-04, .255185D-04 / DATA (UPDI(I),I=4993,5044) / + .153521D-04, .933109D-05, .574386D-05, .356702D-05, + .220026D-05, .132462D-05, .755559D-06, .392909D-06, + .176176D-06, .615998D-07, .136063D-07, .101262D-08, + .000000D+00, .251394D+07, .187986D+07, .137870D+07, + .101045D+07, .740048D+06, .541578D+06, .396050D+06, + .289388D+06, .211294D+06, .154142D+06, .112362D+06, + .818341D+05, .595528D+05, .432989D+05, .314555D+05, + .228305D+05, .165568D+05, .119960D+05, .868442D+04, + .628128D+04, .453964D+04, .327804D+04, .236539D+04, + .170548D+04, .122896D+04, .884925D+03, .637170D+03, + .456471D+03, .328577D+03, .236542D+03, .170370D+03, + .122802D+03, .886117D+02, .641018D+02, .464335D+02, + .337260D+02, .245776D+02, .179777D+02, .132071D+02 / DATA (UPDI(I),I=5045,5096) / + .974568D+01, .722930D+01, .538822D+01, .403549D+01, + .303614D+01, .229392D+01, .173904D+01, .132378D+01, + .100794D+01, .769923D+00, .587432D+00, .448538D+00, + .342131D+00, .260508D+00, .197857D+00, .149781D+00, + .112935D+00, .847525D-01, .632655D-01, .469439D-01, + .346028D-01, .253214D-01, .183848D-01, .132264D-01, + .944037D-02, .665477D-02, .463903D-02, .319527D-02, + .217277D-02, .145742D-02, .963518D-03, .627432D-03, + .402292D-03, .254049D-03, .157864D-03, .972243D-04, + .590948D-04, .357392D-04, .216322D-04, .131868D-04, + .813104D-05, .506975D-05, .317637D-05, .196517D-05, + .117942D-05, .666702D-06, .341833D-06, .150323D-06, + .512697D-07, .110376D-07, .833716D-09, .000000D+00 / DATA (UPDI(I),I=5097,5148) / + .506081D+05, .752777D+05, .584594D+05, .453988D+05, + .352561D+05, .273796D+05, .212628D+05, .165127D+05, + .128239D+05, .995921D+04, .773459D+04, .600700D+04, + .466539D+04, .362353D+04, .281444D+04, .218611D+04, + .169816D+04, .131922D+04, .102494D+04, .796397D+03, + .618906D+03, .481058D+03, .373996D+03, .290842D+03, + .226252D+03, .176078D+03, .137100D+03, .106437D+03, + .829952D+02, .647719D+02, .506014D+02, .395782D+02, + .309991D+02, .243356D+02, .191278D+02, .150661D+02, + .118938D+02, .941177D+01, .746565D+01, .593516D+01, + .472973D+01, .377564D+01, .301822D+01, .241482D+01, + .193253D+01, .154594D+01, .123636D+01, .985606D+00, + .784797D+00, .622006D+00, .491479D+00, .386578D+00 / DATA (UPDI(I),I=5149,5200) / + .302495D+00, .235329D+00, .181900D+00, .139610D+00, + .106329D+00, .803069D-01, .601077D-01, .445525D-01, + .326769D-01, .236956D-01, .169722D-01, .120143D-01, + .836419D-02, .573101D-02, .385869D-02, .254836D-02, + .164728D-02, .103958D-02, .638568D-03, .380341D-03, + .218540D-03, .120298D-03, .632966D-04, .311596D-04, + .141435D-04, .572195D-05, .191399D-05, .406392D-06, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .128131D+06, + .100176D+06, .773980D+05, .597959D+05, .461972D+05, + .356890D+05, .275712D+05, .212985D+05, .164531D+05, + .127092D+05, .981733D+04, .758305D+04, .585736D+04 / DATA (UPDI(I),I=5201,5252) / + .452416D+04, .349450D+04, .269908D+04, .208482D+04, + .161032D+04, .124391D+04, .960891D+03, .742362D+03, + .573577D+03, .443254D+03, .342599D+03, .264881D+03, + .204854D+03, .158512D+03, .122267D+03, .947286D+02, + .734464D+02, .570025D+02, .442878D+02, .344556D+02, + .268657D+02, .209730D+02, .164057D+02, .128626D+02, + .101081D+02, .796315D+01, .628731D+01, .497675D+01, + .394643D+01, .313432D+01, .249180D+01, .198200D+01, + .157613D+01, .125347D+01, .993819D+00, .787378D+00, + .621072D+00, .488587D+00, .382739D+00, .298398D+00, + .231384D+00, .178354D+00, .136569D+00, .103827D+00, + .783201D-01, .585904D-01, .434359D-01, .318934D-01, + .231766D-01, .166551D-01, .118456D-01, .829997D-02 / DATA (UPDI(I),I=5253,5304) / + .573444D-02, .390273D-02, .261267D-02, .171829D-02, + .110790D-02, .699155D-03, .430408D-03, .257736D-03, + .148948D-03, .830874D-04, .436085D-04, .210350D-04, + .862630D-05, .220223D-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, .168878D+06, .131489D+06, + .101110D+06, .777402D+05, .597710D+05, .459494D+05, + .353231D+05, .271508D+05, .208687D+05, .160380D+05, + .123253D+05, .947081D+04, .727728D+04, .559109D+04, + .429557D+04, .329985D+04, .253497D+04, .194719D+04, + .149575D+04, .114889D+04, .882555D+03, .677953D+03, + .520863D+03, .400202D+03, .307569D+03, .236427D+03 / DATA (UPDI(I),I=5305,5356) / + .181832D+03, .139376D+03, .107310D+03, .826738D+02, + .637549D+02, .492137D+02, .380384D+02, .294643D+02, + .228496D+02, .177544D+02, .138274D+02, .107934D+02, + .844656D+01, .662473D+01, .520962D+01, .410441D+01, + .323922D+01, .255927D+01, .202352D+01, .159979D+01, + .126527D+01, .997776D+00, .786544D+00, .617425D+00, + .483537D+00, .377187D+00, .292932D+00, .226342D+00, + .173917D+00, .132802D+00, .100724D+00, .758348D-01, + .566545D-01, .419671D-01, .308122D-01, .224063D-01, + .161270D-01, .115005D-01, .809016D-02, .561993D-02, + .385307D-02, .260453D-02, .173500D-02, .113740D-02, + .733661D-03, .464881D-03, .289379D-03, .176328D-03, + .105966D-03, .620930D-04, .356785D-04, .199947D-04 / DATA (UPDI(I),I=5357,5408) / + .109378D-04, .577610D-05, .293456D-05, .139717D-05, + .606562D-06, .218350D-06, .510504D-07, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .219423D+06, .170190D+06, .130293D+06, + .997309D+05, .763329D+05, .584129D+05, .446968D+05, + .341947D+05, .261583D+05, .200066D+05, .153006D+05, + .116992D+05, .894484D+04, .683761D+04, .522650D+04, + .399424D+04, .305239D+04, .233222D+04, .178193D+04, + .136129D+04, .103998D+04, .794437D+03, .606928D+03, + .463670D+03, .354292D+03, .270748D+03, .207003D+03, + .157708D+03, .120691D+03, .924126D+02, .708245D+02, + .543285D+02, .417265D+02, .321151D+02, .247456D+02, + .191034D+02, .147818D+02, .114635D+02, .891302D+01 / DATA (UPDI(I),I=5409,5460) / + .694556D+01, .542724D+01, .424902D+01, .333269D+01, + .261724D+01, .205725D+01, .161719D+01, .127205D+01, + .997799D+00, .782624D+00, .611385D+00, .476632D+00, + .370204D+00, .286359D+00, .220439D+00, .168806D+00, + .128500D+00, .971936D-01, .730022D-01, .544317D-01, + .402594D-01, .295293D-01, .214647D-01, .154529D-01, + .110308D-01, .777434D-02, .541606D-02, .372863D-02, + .253451D-02, .170095D-02, .112585D-02, .735317D-03, + .473436D-03, .300814D-03, .188216D-03, .117019D-03, + .716945D-04, .436798D-04, .264472D-04, .160343D-04, + .971308D-05, .593236D-05, .362390D-05, .221602D-05, + .133441D-05, .782879D-06, .431484D-06, .215060D-06, + .891533D-07, .244600D-07, .157835D-08, .000000D+00 / DATA (UPDI(I),I=5461,5512) / + .177839D+06, .217403D+06, .165749D+06, .126338D+06, + .962870D+05, .733649D+05, .558929D+05, .425707D+05, + .324198D+05, .246828D+05, .187898D+05, .142999D+05, + .108816D+05, .827815D+04, .629687D+04, .478851D+04, + .364110D+04, .276793D+04, .210400D+04, .159896D+04, + .121512D+04, .923268D+03, .701535D+03, .533004D+03, + .405007D+03, .307757D+03, .233961D+03, .177202D+03, + .134817D+03, .102617D+03, .781741D+02, .596029D+02, + .454971D+02, .348012D+02, .266485D+02, .204435D+02, + .157194D+02, .121139D+02, .935961D+01, .724795D+01, + .562852D+01, .437966D+01, .341451D+01, .266569D+01, + .208331D+01, .162851D+01, .127407D+01, .994136D+00, + .775864D+00, .603184D+00, .468088D+00, .361987D+00 / DATA (UPDI(I),I=5513,5564) / + .278854D+00, .213835D+00, .163160D+00, .123789D+00, + .933456D-01, .699198D-01, .520085D-01, .383884D-01, + .281109D-01, .204095D-01, .146828D-01, .104794D-01, + .738926D-02, .515387D-02, .355538D-02, .242407D-02, + .163373D-02, .108747D-02, .715502D-03, .465049D-03, + .299049D-03, .189981D-03, .120349D-03, .754908D-04, + .473357D-04, .296758D-04, .187366D-04, .118865D-04, + .762623D-05, .489900D-05, .313912D-05, .197063D-05, + .119333D-05, .672345D-06, .338144D-06, .139328D-06, + .374160D-07, .248549D-08, .000000D+00, .379357D+06, + .291936D+06, .221473D+06, .167968D+06, .127364D+06, + .965442D+05, .731670D+05, .554321D+05, .419869D+05, + .317922D+05, .240676D+05, .182137D+05, .137806D+05 / DATA (UPDI(I),I=5565,5616) / + .104229D+05, .788166D+04, .595798D+04, .450291D+04, + .340208D+04, .256991D+04, .194070D+04, .146536D+04, + .110617D+04, .834956D+03, .630127D+03, .475550D+03, + .358869D+03, .270915D+03, .203718D+03, .153877D+03, + .116274D+03, .879253D+02, .665386D+02, .504082D+02, + .382655D+02, .290763D+02, .221341D+02, .168874D+02, + .129131D+02, .989968D+01, .760705D+01, .586218D+01, + .452701D+01, .350306D+01, .271485D+01, .210658D+01, + .163524D+01, .127073D+01, .985025D+00, .763930D+00, + .590301D+00, .455431D+00, .350249D+00, .268387D+00, + .204781D+00, .155514D+00, .117465D+00, .882096D-01, + .658197D-01, .487862D-01, .358954D-01, .262106D-01, + .189828D-01, .136269D-01, .970833D-02, .683510D-02 / DATA (UPDI(I),I=5617,5668) / + .476137D-02, .328100D-02, .223463D-02, .150406D-02, + .999215D-03, .655304D-03, .423593D-03, .269894D-03, + .168937D-03, .104558D-03, .632833D-04, .376176D-04, + .218368D-04, .123817D-04, .679428D-05, .360958D-05, + .182991D-05, .883976D-06, .398080D-06, .168538D-06, + .656840D-07, .250336D-07, .939314D-08, .282024D-08, + .124069D-09, .000000D+00, .503025D+06, .385541D+06, + .291108D+06, .219728D+06, .165806D+06, .125067D+06, + .943107D+05, .710895D+05, .535702D+05, .403517D+05, + .303858D+05, .228717D+05, .172105D+05, .129452D+05, + .973396D+04, .731625D+04, .549745D+04, .412908D+04, + .310047D+04, .232719D+04, .174638D+04, .131007D+04, + .982599D+03, .736780D+03, .552407D+03, .414101D+03 / DATA (UPDI(I),I=5669,5720) / + .310510D+03, .231878D+03, .173935D+03, .130509D+03, + .979888D+02, .736214D+02, .553677D+02, .417223D+02, + .314677D+02, .237757D+02, .180036D+02, .136630D+02, + .103957D+02, .792826D+01, .606416D+01, .464841D+01, + .357074D+01, .274746D+01, .211688D+01, .163193D+01, + .125967D+01, .970063D+00, .747584D+00, .574129D+00, + .440340D+00, .336720D+00, .256613D+00, .194775D+00, + .147177D+00, .110639D+00, .827085D-01, .614525D-01, + .453672D-01, .332561D-01, .242006D-01, .174733D-01, + .125086D-01, .889038D-02, .624664D-02, .434475D-02, + .299086D-02, .203624D-02, .137101D-02, .912011D-03, + .599581D-03, .389139D-03, .249424D-03, .157558D-03, + .987884D-04, .609482D-04, .372361D-04, .224972D-04 / DATA (UPDI(I),I=5721,5772) / + .135032D-04, .803909D-05, .478166D-05, .283058D-05, + .167114D-05, .972889D-06, .553005D-06, .296264D-06, + .143636D-06, .573296D-07, .149082D-07, .985587D-09, + .000000D+00, .656823D+06, .501476D+06, .376939D+06, + .283213D+06, .212720D+06, .159699D+06, .119851D+06, + .899037D+05, .674145D+05, .505264D+05, .378547D+05, + .283470D+05, .212191D+05, .158756D+05, .118731D+05, + .887526D+04, .663183D+04, .495299D+04, .369781D+04, + .275939D+04, .205847D+04, .153491D+04, .114421D+04, + .852643D+03, .635252D+03, .473155D+03, .352490D+03, + .261470D+03, .194822D+03, .145192D+03, .108264D+03, + .807757D+02, .603200D+02, .451315D+02, .337941D+02, + .253486D+02, .190547D+02, .143550D+02, .108422D+02 / DATA (UPDI(I),I=5773,5824) / + .820830D+01, .623266D+01, .474308D+01, .361740D+01, + .276375D+01, .211468D+01, .161914D+01, .124152D+01, + .949859D+00, .727405D+00, .555196D+00, .423285D+00, + .321817D+00, .243891D+00, .184127D+00, .138412D+00, + .103534D+00, .770277D-01, .569717D-01, .418770D-01, + .305720D-01, .221616D-01, .159437D-01, .113754D-01, + .806029D-02, .564776D-02, .391884D-02, .269236D-02, + .183037D-02, .123135D-02, .819079D-03, .538997D-03, + .350632D-03, .225657D-03, .143517D-03, .908883D-04, + .569178D-04, .355102D-04, .220883D-04, .137735D-04, + .860765D-05, .541912D-05, .341599D-05, .214502D-05, + .132130D-05, .783929D-06, .432040D-06, .211265D-06, + .834442D-07, .211690D-07, .144708D-08, .000000D+00 / DATA (UPDI(I),I=5825,5876) / + .845810D+06, .643366D+06, .481485D+06, .360167D+06, + .269308D+06, .201264D+06, .150349D+06, .112253D+06, + .837739D+05, .624852D+05, .465853D+05, .347116D+05, + .258523D+05, .192430D+05, .143168D+05, .106454D+05, + .791186D+04, .587680D+04, .436323D+04, .323763D+04, + .240143D+04, .178026D+04, .131928D+04, .977211D+03, + .723629D+03, .535642D+03, .396537D+03, .292243D+03, + .216343D+03, .160173D+03, .118640D+03, .879209D+02, + .652072D+02, .484523D+02, .360275D+02, .268338D+02, + .200281D+02, .149810D+02, .112343D+02, .844456D+01, + .636649D+01, .481070D+01, .364326D+01, .276424D+01, + .210061D+01, .159757D+01, .121694D+01, .925034D+00, + .703945D+00, .533984D+00, .404680D+00, .305888D+00 / DATA (UPDI(I),I=5877,5928) / + .230511D+00, .173076D+00, .129415D+00, .963082D-01, + .712977D-01, .524827D-01, .384005D-01, .279113D-01, + .201482D-01, .144379D-01, .102622D-01, .724596D-02, + .506052D-02, .350100D-02, .239908D-02, .162753D-02, + .109317D-02, .726566D-03, .478170D-03, .311498D-03, + .201090D-03, .128609D-03, .821347D-04, .520852D-04, + .330566D-04, .210323D-04, .134803D-04, .869608D-05, + .565680D-05, .367933D-05, .237011D-05, .148736D-05, + .890352D-06, .490763D-06, .237533D-06, .918671D-07, + .226702D-07, .158186D-08, .000000D+00, .107537D+07, + .815042D+06, .607383D+06, .452396D+06, .336801D+06, + .250595D+06, .186364D+06, .138512D+06, .102895D+06, + .763888D+05, .566812D+05, .420311D+05, .311508D+05 / DATA (UPDI(I),I=5929,5980) / + .230720D+05, .170790D+05, .126344D+05, .934133D+04, + .690197D+04, .509690D+04, .376145D+04, .277452D+04, + .204527D+04, .150702D+04, .110979D+04, .816956D+03, + .601092D+03, .442282D+03, .323914D+03, .238284D+03, + .175295D+03, .129003D+03, .949757D+02, .699723D+02, + .516455D+02, .381414D+02, .282141D+02, .209132D+02, + .155348D+02, .115686D+02, .863535D+01, .646513D+01, + .485145D+01, .364888D+01, .274968D+01, .207551D+01, + .156800D+01, .118666D+01, .896235D+00, .677767D+00, + .510968D+00, .384920D+00, .289255D+00, .216738D+00, + .161834D+00, .120357D+00, .890987D-01, .656252D-01, + .480696D-01, .350039D-01, .253257D-01, .182010D-01, + .129875D-01, .919385D-02, .646665D-02, .449988D-02 / DATA (UPDI(I),I=5981,6032) / + .310278D-02, .211986D-02, .143446D-02, .961571D-03, + .638301D-03, .419947D-03, .273836D-03, .177249D-03, + .113933D-03, .733203D-04, .470193D-04, .302855D-04, + .196288D-04, .128467D-04, .847329D-05, .562551D-05, + .372213D-05, .242463D-05, .152956D-05, .913865D-06, + .499608D-06, .238066D-06, .898949D-07, .215629D-07, + .153120D-08, .000000D+00, .135116D+07, .102049D+07, + .757345D+06, .561739D+06, .416436D+06, .308519D+06, + .228443D+06, .169038D+06, .125009D+06, .923852D+05, + .682349D+05, .503621D+05, .371481D+05, .273814D+05, + .201699D+05, .148468D+05, .109217D+05, .802833D+04, + .589782D+04, .432951D+04, .317638D+04, .232872D+04, + .170635D+04, .124950D+04, .914536D+03, .668964D+03 / DATA (UPDI(I),I=6033,6084) / + .489311D+03, .356176D+03, .260421D+03, .190398D+03, + .139238D+03, .101860D+03, .745610D+02, .546747D+02, + .401124D+02, .294748D+02, .217011D+02, .160113D+02, + .118426D+02, .877988D+01, .652872D+01, .486601D+01, + .363517D+01, .272105D+01, .204030D+01, .153132D+01, + .115146D+01, .864118D+00, .649420D+00, .486601D+00, + .364373D+00, .272215D+00, .202805D+00, .150586D+00, + .111381D+00, .820158D-01, .600956D-01, .437978D-01, + .317371D-01, .228533D-01, .163488D-01, .116144D-01, + .818685D-02, .573499D-02, .397537D-02, .273136D-02, + .186010D-02, .125521D-02, .839556D-03, .556507D-03, + .365963D-03, .238840D-03, .154998D-03, .100116D-03, + .648999D-04, .420528D-04, .274437D-04, .180646D-04 / DATA (UPDI(I),I=6085,6136) / + .120179D-04, .805368D-05, .541675D-05, .361709D-05, + .236517D-05, .149026D-05, .884313D-06, .477746D-06, + .223607D-06, .823553D-07, .192077D-07, .138634D-08, + .000000D+00, .167896D+07, .126375D+07, .934102D+06, + .690022D+06, .509424D+06, .375831D+06, .277104D+06, + .204163D+06, .150327D+06, .110605D+06, .813250D+05, + .597503D+05, .438694D+05, .321839D+05, .235947D+05, + .172838D+05, .126520D+05, .925390D+04, .676374D+04, + .493964D+04, .360507D+04, .262898D+04, .191598D+04, + .139531D+04, .101557D+04, .738654D+03, .537181D+03, + .388707D+03, .282524D+03, .205317D+03, .149233D+03, + .108498D+03, .789224D+02, .575071D+02, .419197D+02, + .306034D+02, .223848D+02, .164071D+02, .120552D+02 / DATA (UPDI(I),I=6137,6188) / + .887821D+01, .655801D+01, .485544D+01, .360330D+01, + .267949D+01, .199605D+01, .148844D+01, .111211D+01, + .829334D+00, .619435D+00, .461307D+00, .343374D+00, + .255030D+00, .188914D+00, .139486D+00, .102604D+00, + .751478D-01, .547748D-01, .397161D-01, .286359D-01, + .205204D-01, .146110D-01, .103328D-01, .725145D-02, + .505843D-02, .349241D-02, .239068D-02, .162267D-02, + .109186D-02, .728645D-03, .482289D-03, .317021D-03, + .207095D-03, .134761D-03, .874730D-04, .571098D-04, + .373669D-04, .246735D-04, .164548D-04, .110882D-04, + .751555D-05, .509523D-05, .341664D-05, .223272D-05, + .139995D-05, .822816D-06, .438409D-06, .201313D-06, + .722950D-07, .164057D-07, .120271D-08, .000000D+00 / DATA (UPDI(I),I=6189,6240) / + .206461D+07, .154887D+07, .114034D+07, .839018D+06, + .616924D+06, .453279D+06, .332822D+06, .244186D+06, + .179031D+06, .131155D+06, .960128D+05, .702283D+05, + .513301D+05, .374852D+05, .273537D+05, .199430D+05, + .145287D+05, .105750D+05, .769118D+04, .558883D+04, + .405811D+04, .294407D+04, .213434D+04, .154604D+04, + .111918D+04, .809519D+03, .585423D+03, .421177D+03, + .304360D+03, .219894D+03, .158880D+03, .114818D+03, + .830105D+02, .601138D+02, .435463D+02, .315904D+02, + .229595D+02, .167205D+02, .122061D+02, .893115D+01, + .655428D+01, .482116D+01, .355467D+01, .262628D+01, + .194387D+01, .144030D+01, .106940D+01, .792506D+00, + .588309D+00, .435476D+00, .322224D+00, .237928D+00 / DATA (UPDI(I),I=6241,6292) / + .175237D+00, .128661D+00, .941208D-01, .685627D-01, + .497112D-01, .358588D-01, .257244D-01, .183437D-01, + .129988D-01, .915034D-02, .639293D-02, .444051D-02, + .305337D-02, .208233D-02, .140864D-02, .945140D-03, + .629336D-03, .415997D-03, .273374D-03, .178790D-03, + .116686D-03, .761216D-04, .500496D-04, .330487D-04, + .220523D-04, .148688D-04, .101195D-04, .691305D-05, + .470716D-05, .315871D-05, .205692D-05, .128043D-05, + .744153D-06, .390574D-06, .175834D-06, .615695D-07, + .136051D-07, .101261D-08, .000000D+00, .251387D+07, + .187980D+07, .137865D+07, .101040D+07, .740005D+06, + .541539D+06, .396015D+06, .289357D+06, .211266D+06, + .154117D+06, .112340D+06, .818144D+05, .595352D+05 / DATA (UPDI(I),I=6293,6344) / + .432831D+05, .314414D+05, .228179D+05, .165456D+05, + .119859D+05, .867547D+04, .627329D+04, .453251D+04, + .327167D+04, .235971D+04, .170040D+04, .122443D+04, + .880881D+03, .633560D+03, .453254D+03, .325703D+03, + .233976D+03, .168079D+03, .120756D+03, .867851D+02, + .624708D+02, .449784D+02, .324289D+02, .234226D+02, + .169510D+02, .122964D+02, .894025D+01, .651927D+01, + .476489D+01, .349083D+01, .256276D+01, .188488D+01, + .138783D+01, .102406D+01, .754226D+00, .556500D+00, + .409457D+00, .301184D+00, .221103D+00, .161916D+00, + .118215D+00, .860021D-01, .623101D-01, .449386D-01, + .322482D-01, .230169D-01, .163321D-01, .115177D-01, + .807009D-02, .561282D-02, .388193D-02, .265844D-02 / DATA (UPDI(I),I=6345,6396) / + .180624D-02, .121782D-02, .814849D-03, .541452D-03, + .357492D-03, .234923D-03, .153866D-03, .100743D-03, + .660612D-04, .437364D-04, .291282D-04, .196173D-04, + .133473D-04, .915215D-05, .628392D-05, .428562D-05, + .287073D-05, .185906D-05, .114709D-05, .658461D-06, + .340168D-06, .150083D-06, .512486D-07, .110369D-07, + .833710D-09, .000000D+00, .168722D+07, .131115D+07, + .100606D+07, .771969D+06, .592349D+06, .454525D+06, + .348772D+06, .267627D+06, .205363D+06, .157587D+06, + .120928D+06, .927993D+05, .712152D+05, .546531D+05, + .419445D+05, .321926D+05, .247094D+05, .189672D+05, + .145607D+05, .111791D+05, .858408D+04, .659252D+04, + .506405D+04, .389091D+04, .299045D+04, .229924D+04 / DATA (UPDI(I),I=6397,6448) / + .176859D+04, .135611D+04, .104452D+04, .805181D+03, + .621289D+03, .479962D+03, .371311D+03, .287966D+03, + .223655D+03, .174152D+03, .136013D+03, .106594D+03, + .838662D+02, .662672D+02, .526267D+02, .420058D+02, + .337113D+02, .272073D+02, .220839D+02, .180277D+02, + .148094D+02, .122158D+02, .101381D+02, .844264D+01, + .706408D+01, .593146D+01, .499514D+01, .421645D+01, + .356521D+01, .301776D+01, .255547D+01, .216355D+01, + .183021D+01, .154598D+01, .130316D+01, .109550D+01, + .917834D+00, .766523D+00, .636450D+00, .525585D+00, + .431347D+00, .351526D+00, .284214D+00, .227754D+00, + .180695D+00, .141759D+00, .109801D+00, .838048D-01, + .630841D-01, .465380D-01, .336235D-01, .237145D-01 / DATA (UPDI(I),I=6449,6500) / + .162624D-01, .107890D-01, .688036D-02, .418609D-02, + .239381D-02, .127230D-02, .612585D-03, .257708D-03, + .891593D-04, .226441D-04, .327138D-05, .118915D-06, + .000000D+00, .253468D+07, .196483D+07, .150313D+07, + .114959D+07, .879195D+06, .672199D+06, .513933D+06, + .392806D+06, .300220D+06, .229382D+06, .175253D+06, + .133852D+06, .102227D+06, .780472D+05, .595837D+05, + .454720D+05, .347009D+05, .264719D+05, .201936D+05, + .153991D+05, .117428D+05, .895186D+04, .682448D+04, + .520139D+04, .396477D+04, .302160D+04, .230340D+04, + .174932D+04, .133436D+04, .101813D+04, .777444D+03, + .594073D+03, .454510D+03, .348449D+03, .267483D+03, + .205784D+03, .158782D+03, .122906D+03, .955133D+02 / DATA (UPDI(I),I=6501,6552) / + .745311D+02, .584592D+02, .460823D+02, .365298D+02, + .291210D+02, .233523D+02, .188336D+02, .152890D+02, + .124622D+02, .102226D+02, .841425D+01, .695975D+01, + .577734D+01, .481039D+01, .401484D+01, .335675D+01, + .280966D+01, .235282D+01, .196993D+01, .164799D+01, + .137669D+01, .114765D+01, .954166D+00, .790541D+00, + .652909D+00, .536031D+00, .437673D+00, .355102D+00, + .286065D+00, .228587D+00, .181011D+00, .141871D+00, + .109928D+00, .840767D-01, .633377D-01, .470412D-01, + .342228D-01, .243678D-01, .169280D-01, .114235D-01, + .745228D-02, .466645D-02, .278490D-02, .155890D-02, + .809633D-03, .379771D-03, .155196D-03, .519001D-04, + .126879D-04, .177268D-05, .650142D-07, .000000D+00 / DATA (UPDI(I),I=6553,6604) / + .365609D+07, .282529D+07, .215348D+07, .164067D+07, + .124988D+07, .951714D+06, .724606D+06, .551421D+06, + .419576D+06, .319090D+06, .242635D+06, .184399D+06, + .140118D+06, .106410D+06, .807961D+05, .613119D+05, + .465173D+05, .352715D+05, .267391D+05, .202585D+05, + .153456D+05, .116172D+05, .879327D+04, .665215D+04, + .503188D+04, .380426D+04, .287631D+04, .216565D+04, + .163751D+04, .123815D+04, .936685D+03, .708904D+03, + .537055D+03, .407594D+03, .309680D+03, .235751D+03, + .179976D+03, .137811D+03, .105937D+03, .817618D+02, + .634307D+02, .494536D+02, .387749D+02, .305742D+02, + .242528D+02, .193489D+02, .155400D+02, .125313D+02, + .101708D+02, .828303D+01, .677931D+01, .556869D+01 / DATA (UPDI(I),I=6605,6656) / + .458827D+01, .378958D+01, .313546D+01, .259718D+01, + .215228D+01, .178331D+01, .147634D+01, .122046D+01, + .100678D+01, .828311D+00, .679026D+00, .554891D+00, + .450680D+00, .364013D+00, .292112D+00, .232721D+00, + .183871D+00, .143939D+00, .111496D+00, .853625D-01, + .644926D-01, .479710D-01, .351662D-01, .252384D-01, + .177169D-01, .121265D-01, .805582D-02, .516907D-02, + .317932D-02, .186163D-02, .102041D-02, .517975D-03, + .236775D-03, .940090D-04, .303987D-04, .715664D-05, + .966727D-06, .353515D-07, .000000D+00, .509532D+07, + .392432D+07, .297952D+07, .226091D+07, .171531D+07, + .130062D+07, .985974D+06, .746992D+06, .565801D+06, + .428284D+06, .324105D+06, .245101D+06, .185300D+06 / DATA (UPDI(I),I=6657,6708) / + .139990D+06, .105726D+06, .797885D+05, .601935D+05, + .453758D+05, .341934D+05, .257464D+05, .193790D+05, + .145748D+05, .109578D+05, .823219D+04, .618267D+04, + .463979D+04, .348152D+04, .260063D+04, .195067D+04, + .146278D+04, .109726D+04, .823227D+03, .618118D+03, + .464859D+03, .349911D+03, .263860D+03, .199503D+03, + .151279D+03, .115150D+03, .879942D+02, .675893D+02, + .521720D+02, .404997D+02, .316171D+02, .248317D+02, + .196146D+02, .155988D+02, .124545D+02, .100095D+02, + .807166D+01, .654170D+01, .532100D+01, .434133D+01, + .355059D+01, .290896D+01, .238596D+01, .195782D+01, + .160623D+01, .131661D+01, .107764D+01, .880131D+00, + .716895D+00, .581768D+00, .470613D+00, .378310D+00 / DATA (UPDI(I),I=6709,6760) / + .302398D+00, .240122D+00, .189269D+00, .147925D+00, + .114526D+00, .877150D-01, .663842D-01, .495647D-01, + .364184D-01, .263635D-01, .186742D-01, .129307D-01, + .872466D-02, .570902D-02, .360520D-02, .217965D-02, + .125312D-02, .673182D-03, .334312D-03, .149116D-03, + .576068D-04, .180505D-04, .410421D-05, .537143D-06, + .192310D-07, .000000D+00, .689968D+07, .529597D+07, + .400500D+07, .302679D+07, .228687D+07, .172668D+07, + .130331D+07, .983060D+06, .741247D+06, .558501D+06, + .420649D+06, .316575D+06, .238151D+06, .179007D+06, + .134491D+06, .100957D+06, .757483D+05, .567827D+05, + .425439D+05, .318459D+05, .238254D+05, .178080D+05, + .133035D+05, .992924D+04, .740721D+04, .552036D+04 / DATA (UPDI(I),I=6761,6812) / + .411299D+04, .304972D+04, .227047D+04, .168959D+04, + .125746D+04, .935858D+03, .696911D+03, .519733D+03, + .387868D+03, .289939D+03, .217283D+03, .163289D+03, + .123168D+03, .932634D+02, .709804D+02, .542862D+02, + .417524D+02, .322947D+02, .251300D+02, .196672D+02, + .154970D+02, .122588D+02, .976183D+01, .779921D+01, + .626261D+01, .504700D+01, .407968D+01, .330569D+01, + .268314D+01, .218024D+01, .177228D+01, .144036D+01, + .116952D+01, .948187D+00, .767033D+00, .618800D+00, + .497307D+00, .398387D+00, .317093D+00, .250940D+00, + .197250D+00, .153885D+00, .119017D+00, .911679D-01, + .690677D-01, .516925D-01, .381573D-01, .277069D-01, + .198153D-01, .138593D-01, .947076D-02, .630258D-02 / DATA (UPDI(I),I=6813,6864) / + .406458D-02, .252758D-02, .150315D-02, .849133D-03, + .447477D-03, .217628D-03, .948414D-04, .357058D-04, + .108651D-04, .239262D-05, .303916D-06, .103972D-07, + .000000D+00, .962470D+07, .735671D+07, .553624D+07, + .416330D+07, .312959D+07, .235081D+07, .176505D+07, + .132421D+07, .993002D+06, .744019D+06, .557175D+06, + .416887D+06, .311745D+06, .232904D+06, .173896D+06, + .129711D+06, .966899D+05, .720010D+05, .535792D+05, + .398281D+05, .295849D+05, .219521D+05, .162768D+05, + .120556D+05, .892286D+04, .659636D+04, .487418D+04, + .358322D+04, .264456D+04, .195057D+04, .143852D+04, + .106069D+04, .782371D+03, .577842D+03, .426974D+03, + .315972D+03, .234377D+03, .174318D+03, .130114D+03 / DATA (UPDI(I),I=6865,6916) / + .974862D+02, .734073D+02, .555444D+02, .422625D+02, + .323388D+02, .248936D+02, .192721D+02, .150223D+02, + .117543D+02, .925881D+01, .731670D+01, .581109D+01, + .463194D+01, .370306D+01, .296747D+01, .238196D+01, + .191401D+01, .153849D+01, .123633D+01, .992521D+00, + .795566D+00, .636230D+00, .507387D+00, .403037D+00, + .319108D+00, .250984D+00, .196246D+00, .152388D+00, + .117425D+00, .896832D-01, .678235D-01, .507147D-01, + .374529D-01, .272707D-01, .195238D-01, .137620D-01, + .948133D-02, .637823D-02, .417566D-02, .264706D-02, + .161654D-02, .942992D-03, .521888D-03, .268986D-03, + .127718D-03, .542139D-04, .198285D-04, .584365D-05, + .124320D-05, .152688D-06, .471814D-08, .000000D+00 / DATA (UPDI(I),I=6917,6968) / + .131204D+08, .998651D+07, .747826D+07, .559565D+07, + .418487D+07, .312725D+07, .233564D+07, .174292D+07, + .129984D+07, .968523D+06, .721190D+06, .536501D+06, + .398830D+06, .296184D+06, .219791D+06, .162925D+06, + .120675D+06, .892792D+05, .659958D+05, .487263D+05, + .359440D+05, .264822D+05, .194937D+05, .143316D+05, + .105270D+05, .772190D+04, .566066D+04, .412723D+04, + .302079D+04, .220921D+04, .161512D+04, .118039D+04, + .862779D+03, .631378D+03, .462147D+03, .338741D+03, + .248829D+03, .183252D+03, .135423D+03, .100448D+03, + .748735D+02, .560789D+02, .422333D+02, .319855D+02, + .243684D+02, .186708D+02, .144034D+02, .111526D+02, + .869361D+01, .679803D+01, .534246D+01, .421353D+01 / DATA (UPDI(I),I=6969,7020) / + .333287D+01, .264241D+01, .209834D+01, .166799D+01, + .132624D+01, .105418D+01, .837033D+00, .663550D+00, + .524774D+00, .413832D+00, .325011D+00, .254411D+00, + .197791D+00, .152849D+00, .117285D+00, .892903D-01, + .673626D-01, .503093D-01, .371405D-01, .270719D-01, + .194496D-01, .137327D-01, .954345D-02, .647833D-02, + .429151D-02, .276477D-02, .172337D-02, .103390D-02, + .591820D-03, .321014D-03, .161896D-03, .750860D-04, + .310647D-04, .110458D-04, .315585D-05, .649163D-06, + .769298D-07, .196247D-08, .000000D+00, .175005D+08, + .132653D+08, .988523D+07, .736023D+07, .547692D+07, + .407195D+07, .302543D+07, .224580D+07, .166590D+07, + .123453D+07, .914167D+06, .676231D+06, .499816D+06 / DATA (UPDI(I),I=7021,7072) / + .369013D+06, .272203D+06, .200554D+06, .147626D+06, + .108531D+06, .797105D+05, .584665D+05, .428399D+05, + .313472D+05, .229135D+05, .167257D+05, .121958D+05, + .887916D+04, .645938D+04, .467238D+04, .339254D+04, + .246093D+04, .178418D+04, .129290D+04, .936816D+03, + .679528D+03, .492916D+03, .357995D+03, .260531D+03, + .190068D+03, .139124D+03, .102203D+03, .754443D+02, + .559562D+02, .417276D+02, .312916D+02, .236039D+02, + .179054D+02, .136757D+02, .104828D+02, .808960D+01, + .626172D+01, .487111D+01, .380269D+01, .297713D+01, + .233612D+01, .183594D+01, .144425D+01, .113634D+01, + .893754D+00, .702157D+00, .550714D+00, .430877D+00, + .336124D+00, .261107D+00, .202152D+00, .155415D+00 / DATA (UPDI(I),I=7073,7124) / + .118751D+00, .900836D-01, .677895D-01, .505419D-01, + .372961D-01, .271985D-01, .195787D-01, .138873D-01, + .967675D-02, .663462D-02, .444102D-02, .289948D-02, + .183995D-02, .112895D-02, .666162D-03, .374717D-03, + .199534D-03, .986621D-04, .448025D-04, .181196D-04, + .628672D-05, .174956D-05, .349903D-06, .401047D-07, + .719211D-09, .000000D+00, .228804D+08, .172732D+08, + .128104D+08, .949213D+07, .702857D+07, .519954D+07, + .384364D+07, .283850D+07, .209454D+07, .154394D+07, + .113710D+07, .836527D+06, .614835D+06, .451355D+06, + .331013D+06, .242449D+06, .177393D+06, .129618D+06, + .946035D+05, .689497D+05, .501934D+05, .364853D+05, + .264890D+05, .192024D+05, .139031D+05, .100491D+05 / DATA (UPDI(I),I=7125,7176) / + .725676D+04, .520922D+04, .375330D+04, .270132D+04, + .194279D+04, .139637D+04, .100335D+04, .721635D+03, + .518933D+03, .373583D+03, .269449D+03, .194800D+03, + .141284D+03, .102831D+03, .752010D+02, .552529D+02, + .408138D+02, .303160D+02, .226498D+02, .170169D+02, + .128725D+02, .977138D+01, .746763D+01, .572379D+01, + .440906D+01, .340816D+01, .264190D+01, .205250D+01, + .159697D+01, .124368D+01, .968683D+00, .754178D+00, + .586476D+00, .455280D+00, .352546D+00, .272172D+00, + .209218D+00, .160280D+00, .121912D+00, .921499D-01, + .691441D-01, .514592D-01, .379382D-01, .276780D-01, + .199517D-01, .141934D-01, .994673D-02, .684550D-02, + .463455D-02, .306195D-02, .197237D-02, .123431D-02 / DATA (UPDI(I),I=7177,7228) / + .746474D-03, .433890D-03, .240254D-03, .125844D-03, + .611539D-04, .272666D-04, .108171D-04, .367742D-05, + .100199D-05, .195961D-06, .217812D-07, .184495D-09, + .000000D+00, .293706D+08, .220855D+08, .163029D+08, + .120229D+08, .885978D+07, .652235D+07, .479764D+07, + .352527D+07, .258804D+07, .189786D+07, .139040D+07, + .101741D+07, .743713D+06, .542952D+06, .395947D+06, + .288353D+06, .209749D+06, .152352D+06, .110523D+06, + .800571D+05, .579130D+05, .418273D+05, .301689D+05, + .217243D+05, .156218D+05, .112127D+05, .803955D+04, + .572873D+04, .409705D+04, .292647D+04, .208847D+04, + .148928D+04, .106151D+04, .757242D+03, .539999D+03, + .385461D+03, .275625D+03, .197531D+03, .142001D+03 / DATA (UPDI(I),I=7229,7280) / + .102433D+03, .742362D+02, .540504D+02, .395613D+02, + .291163D+02, .215530D+02, .160429D+02, .120232D+02, + .904113D+01, .684495D+01, .519699D+01, .396543D+01, + .303618D+01, .233114D+01, .179377D+01, .138227D+01, + .106611D+01, .822342D+00, .634027D+00, .488235D+00, + .375305D+00, .287759D+00, .219959D+00, .167397D+00, + .126961D+00, .955922D-01, .715189D-01, .531118D-01, + .391166D-01, .285356D-01, .205967D-01, .146870D-01, + .103336D-01, .716117D-02, .487226D-02, .326056D-02, + .212860D-02, .135447D-02, .837048D-03, .499727D-03, + .286620D-03, .156540D-03, .808366D-04, .387077D-04, + .169973D-04, .663819D-05, .222050D-05, .595256D-06, + .114430D-06, .123692D-07, .000000D+00, .000000D+00 / DATA (UPDI(I),I=7281,7332) / + .370730D+08, .277706D+08, .204061D+08, .149795D+08, + .109868D+08, .804983D+07, .589264D+07, .430873D+07, + .314750D+07, .229650D+07, .167383D+07, .121845D+07, + .885959D+06, .643329D+06, .466582D+06, .337907D+06, + .244403D+06, .176502D+06, .127292D+06, .916531D+05, + .658976D+05, .472991D+05, .338995D+05, .242531D+05, + .173252D+05, .123515D+05, .879523D+04, .622266D+04, + .441843D+04, .313300D+04, .221919D+04, .157047D+04, + .111069D+04, .786086D+03, .556055D+03, .393679D+03, + .279163D+03, .198384D+03, .141398D+03, .101120D+03, + .726485D+02, .524315D+02, .380379D+02, .277471D+02, + .203564D+02, .150165D+02, .111532D+02, .831095D+01, + .623535D+01, .469104D+01, .354678D+01, .269084D+01 / DATA (UPDI(I),I=7333,7384) / + .204707D+01, .156072D+01, .119161D+01, .910579D+00, + .695877D+00, .531547D+00, .405515D+00, .308813D+00, + .234564D+00, .177617D+00, .133899D+00, .100598D+00, + .750213D-01, .555910D-01, .408858D-01, .298201D-01, + .215412D-01, .153949D-01, .108684D-01, .756995D-02, + .519255D-02, .349628D-02, .231535D-02, .149543D-02, + .941285D-03, .575295D-03, .339609D-03, .192556D-03, + .103942D-03, .530381D-04, .250898D-04, .108821D-04, + .419744D-05, .138648D-05, .367095D-06, .696348D-07, + .734032D-08, .000000D+00, .000000D+00, .460774D+08, + .343871D+08, .251555D+08, .183829D+08, .134213D+08, + .978811D+07, .713141D+07, .518972D+07, .377271D+07, + .273918D+07, .198652D+07, .143876D+07, .104077D+07 / DATA (UPDI(I),I=7385,7436) / + .751798D+06, .542352D+06, .390662D+06, .281006D+06, + .201802D+06, .144709D+06, .103590D+06, .740399D+05, + .528237D+05, .376265D+05, .267511D+05, .189874D+05, + .134480D+05, .951233D+04, .668368D+04, .471287D+04, + .331818D+04, .233338D+04, .163914D+04, .115054D+04, + .808090D+03, .567168D+03, .398372D+03, .280221D+03, + .197515D+03, .139619D+03, .990159D+02, .705389D+02, + .504779D+02, .363083D+02, .262583D+02, .190983D+02, + .139664D+02, .102836D+02, .759600D+01, .564938D+01, + .421292D+01, .315740D+01, .237443D+01, .179050D+01, + .135311D+01, .102401D+01, .775619D+00, .587518D+00, + .444824D+00, .336365D+00, .253895D+00, .191150D+00, + .143466D+00, .107197D+00, .798268D-01, .590025D-01 / DATA (UPDI(I),I=7437,7488) / + .433319D-01, .315853D-01, .228306D-01, .163441D-01, + .115754D-01, .809796D-02, .558888D-02, .379852D-02, + .253396D-02, .166255D-02, .106372D-02, .663221D-03, + .401482D-03, .234727D-03, .131798D-03, .704516D-04, + .355959D-04, .166725D-04, .715949D-05, .273430D-05, + .894135D-06, .234389D-06, .439695D-07, .453122D-08, + .000000D+00, .000000D+00, .564582D+08, .419815D+08, + .305778D+08, .222472D+08, .161702D+08, .117396D+08, + .851405D+07, .616715D+07, .446212D+07, .322425D+07, + .232696D+07, .167703D+07, .120705D+07, .867482D+06, + .622570D+06, .446090D+06, .319159D+06, .227957D+06, + .162559D+06, .115713D+06, .822296D+05, .583238D+05, + .412965D+05, .291819D+05, .205842D+05, .144864D+05 / DATA (UPDI(I),I=7489,7540) / + .101807D+05, .710555D+04, .497667D+04, .347991D+04, + .242999D+04, .169485D+04, .118098D+04, .823345D+03, + .573516D+03, .399746D+03, .278999D+03, .195104D+03, + .136814D+03, .962447D+02, .680071D+02, .482675D+02, + .344319D+02, .246950D+02, .178119D+02, .129168D+02, + .943142D+01, .690794D+01, .509467D+01, .376725D+01, + .279969D+01, .208775D+01, .156112D+01, .116988D+01, + .877938D+00, .659425D+00, .495340D+00, .371914D+00, + .278898D+00, .208775D+00, .155883D+00, .116033D+00, + .859858D-01, .635078D-01, .465555D-01, .339106D-01, + .245160D-01, .175761D-01, .124799D-01, .876661D-02, + .608306D-02, .416407D-02, .280709D-02, .185727D-02, + .120868D-02, .767010D-03, .474320D-03, .284782D-03 / DATA (UPDI(I),I=7541,7592) / + .165137D-03, .919636D-04, .487567D-04, .244322D-04, + .113495D-04, .483314D-05, .183040D-05, .593344D-06, + .154145D-06, .286173D-07, .288924D-08, .000000D+00, + .000000D+00, .682710D+08, .505865D+08, .366892D+08, + .265790D+08, .192347D+08, .139030D+08, .100379D+08, + .723806D+07, .521287D+07, .374919D+07, .269300D+07, + .193152D+07, .138344D+07, .989329D+06, .706441D+06, + .503599D+06, .358429D+06, .254652D+06, .180617D+06, + .127863D+06, .903565D+05, .637240D+05, .448586D+05, + .315119D+05, .220936D+05, .154529D+05, .107919D+05, + .748328D+04, .520703D+04, .361679D+04, .250842D+04, + .173746D+04, .120213D+04, .832090D+03, .575369D+03, + .398061D+03, .275729D+03, .191346D+03, .133142D+03 / DATA (UPDI(I),I=7593,7644) / + .929303D+02, .651485D+02, .458723D+02, .324624D+02, + .230962D+02, .165250D+02, .118871D+02, .860990D+01, + .625523D+01, .457627D+01, .335663D+01, .247451D+01, + .183050D+01, .135784D+01, .100945D+01, .751547D+00, + .560040D+00, .417383D+00, .310935D+00, .231359D+00, + .171851D+00, .127328D+00, .940546D-01, .691695D-01, + .507033D-01, .368897D-01, .266693D-01, .191377D-01, + .136189D-01, .959915D-02, .669376D-02, .461103D-02, + .313359D-02, .209724D-02, .137764D-02, .890199D-03, + .560888D-03, .344403D-03, .205319D-03, .118221D-03, + .653714D-04, .344137D-04, .171215D-04, .789565D-05, + .333713D-05, .125400D-05, .403068D-06, .103763D-06, + .190592D-07, .188843D-08, .000000D+00, .000000D+00 / DATA (UPDI(I),I=7645,7696) / + .506081D+05, .757076D+05, .588450D+05, .457445D+05, + .355662D+05, .276577D+05, .215123D+05, .167365D+05, + .130246D+05, .101392D+05, .789607D+04, .615186D+04, + .479535D+04, .374013D+04, .291906D+04, .228000D+04, + .178243D+04, .139487D+04, .109286D+04, .857392D+03, + .673699D+03, .530298D+03, .418264D+03, .330659D+03, + .262088D+03, .208354D+03, .166194D+03, .132651D+03, + .106677D+03, .861958D+02, .700132D+02, .571988D+02, + .470266D+02, .389516D+02, .324876D+02, .273120D+02, + .231522D+02, .197945D+02, .170708D+02, .148479D+02, + .130247D+02, .115157D+02, .102568D+02, .919671D+01, + .829504D+01, .751988D+01, .684847D+01, .625461D+01, + .573010D+01, .525633D+01, .482861D+01, .443772D+01 / DATA (UPDI(I),I=7697,7748) / + .407791D+01, .374467D+01, .343454D+01, .314484D+01, + .287351D+01, .261901D+01, .238013D+01, .215597D+01, + .194580D+01, .174907D+01, .156530D+01, .139488D+01, + .123566D+01, .108840D+01, .952776D+00, .828453D+00, + .715082D+00, .612293D+00, .519688D+00, .436842D+00, + .363253D+00, .298384D+00, .242265D+00, .193517D+00, + .151989D+00, .117084D+00, .881954D-01, .647110D-01, + .460196D-01, .315359D-01, .205853D-01, .126881D-01, + .723909D-02, .371723D-02, .163888D-02, .567934D-03, + .126856D-03, .968234D-05, .000000D+00, .128645D+06, + .100638D+06, .778116D+05, .601667D+05, .465298D+05, + .359872D+05, .278386D+05, .215384D+05, .166682D+05, + .129021D+05, .999036D+04, .773823D+04, .599655D+04 / DATA (UPDI(I),I=7749,7800) / + .464901D+04, .360650D+04, .279956D+04, .217497D+04, + .169122D+04, .131653D+04, .102608D+04, .800900D+03, + .626157D+03, .490503D+03, .385075D+03, .303087D+03, + .239244D+03, .189490D+03, .150155D+03, .119901D+03, + .961945D+02, .775908D+02, .629510D+02, .514065D+02, + .422973D+02, .350517D+02, .292825D+02, .246728D+02, + .209702D+02, .179822D+02, .155538D+02, .135708D+02, + .119352D+02, .105758D+02, .943449D+01, .846691D+01, + .763751D+01, .692148D+01, .629020D+01, .573479D+01, + .523500D+01, .478583D+01, .437722D+01, .400304D+01, + .365834D+01, .333937D+01, .304314D+01, .276738D+01, + .251030D+01, .227051D+01, .204690D+01, .183858D+01, + .164483D+01, .146497D+01, .129922D+01, .114533D+01 / DATA (UPDI(I),I=7801,7852) / + .100390D+01, .874454D+00, .756545D+00, .649694D+00, + .553429D+00, .467246D+00, .390639D+00, .323046D+00, + .263842D+00, .212966D+00, .169075D+00, .131947D+00, + .100969D+00, .755215D-01, .550022D-01, .388034D-01, + .263650D-01, .170488D-01, .104007D-01, .586547D-02, + .297236D-02, .129021D-02, .438827D-03, .961628D-04, + .741416D-05, .000000D+00, .169427D+06, .131982D+06, + .101552D+06, .781366D+05, .601265D+05, .462681D+05, + .356089D+05, .274070D+05, .210985D+05, .162441D+05, + .125100D+05, .963645D+04, .742582D+04, .572429D+04, + .441503D+04, .340699D+04, .263107D+04, .203340D+04, + .157310D+04, .121831D+04, .944859D+03, .733888D+03, + .571101D+03, .445339D+03, .348145D+03, .272925D+03 / DATA (UPDI(I),I=7853,7904) / + .214684D+03, .168926D+03, .133958D+03, .106730D+03, + .855011D+02, .688997D+02, .558917D+02, .456896D+02, + .376245D+02, .312391D+02, .261659D+02, .221116D+02, + .188563D+02, .162223D+02, .140807D+02, .123208D+02, + .108634D+02, .964375D+01, .861316D+01, .773246D+01, + .697464D+01, .630871D+01, .572497D+01, .520168D+01, + .473339D+01, .430927D+01, .392277D+01, .356851D+01, + .324244D+01, .294127D+01, .266249D+01, .240409D+01, + .216447D+01, .194235D+01, .173663D+01, .154646D+01, + .137095D+01, .121018D+01, .106179D+01, .926242D+00, + .802915D+00, .691254D+00, .590672D+00, .500605D+00, + .420458D+00, .349657D+00, .287588D+00, .233560D+00, + .187434D+00, .147906D+00, .114698D+00, .871889D-01 / DATA (UPDI(I),I=7905,7956) / + .647582D-01, .468133D-01, .327603D-01, .220675D-01, + .141341D-01, .853238D-02, .475485D-02, .237689D-02, + .101515D-02, .338570D-03, .727048D-04, .566684D-05, + .000000D+00, .220009D+06, .170716D+06, .130764D+06, + .100154D+06, .767118D+05, .587526D+05, .450013D+05, + .344676D+05, .264030D+05, .202260D+05, .154973D+05, + .118755D+05, .910291D+04, .697931D+04, .535355D+04, + .410815D+04, .315454D+04, .242381D+04, .186408D+04, + .143497D+04, .110609D+04, .853759D+03, .660178D+03, + .511485D+03, .397247D+03, .309361D+03, .241731D+03, + .188917D+03, .148807D+03, .117766D+03, .937164D+02, + .750231D+02, .604660D+02, .491169D+02, .401982D+02, + .331766D+02, .276288D+02, .232176D+02, .196932D+02 / DATA (UPDI(I),I=7957,8008) / + .168541D+02, .145556D+02, .126739D+02, .111214D+02, + .982631D+01, .873560D+01, .780644D+01, .700951D+01, + .631153D+01, .570189D+01, .515741D+01, .467216D+01, + .423455D+01, .383760D+01, .347551D+01, .314391D+01, + .283922D+01, .255869D+01, .230009D+01, .206161D+01, + .184178D+01, .163934D+01, .145327D+01, .128250D+01, + .112697D+01, .984229D+00, .854585D+00, .737308D+00, + .631739D+00, .537194D+00, .453029D+00, .378572D+00, + .313191D+00, .256230D+00, .206946D+00, .165137D+00, + .129541D+00, .998349D-01, .753988D-01, .556176D-01, + .399137D-01, .277128D-01, .185106D-01, .117459D-01, + .701830D-02, .386595D-02, .190703D-02, .801745D-03, + .262403D-03, .552795D-04, .435408D-05, .000000D+00 / DATA (UPDI(I),I=8009,8060) / + .177839D+06, .217963D+06, .166251D+06, .126788D+06, + .966900D+05, .737260D+05, .562166D+05, .428608D+05, + .326799D+05, .249158D+05, .189987D+05, .144872D+05, + .110494D+05, .842854D+04, .643166D+04, .490932D+04, + .374940D+04, .286500D+04, .219102D+04, .167698D+04, + .128509D+04, .986017D+03, .757831D+03, .583522D+03, + .450359D+03, .348496D+03, .270571D+03, .210072D+03, + .164400D+03, .129263D+03, .102203D+03, .812951D+02, + .651098D+02, .525646D+02, .427626D+02, .350881D+02, + .290569D+02, .242856D+02, .204917D+02, .174491D+02, + .149961D+02, .129956D+02, .113509D+02, .998352D+01, + .883564D+01, .786086D+01, .702747D+01, .629995D+01, + .566673D+01, .510327D+01, .460307D+01, .415387D+01 / DATA (UPDI(I),I=8061,8112) / + .374819D+01, .337985D+01, .304415D+01, .273723D+01, + .245608D+01, .219826D+01, .196177D+01, .174494D+01, + .154634D+01, .136481D+01, .119909D+01, .104899D+01, + .911997D+00, .788257D+00, .676940D+00, .577296D+00, + .488559D+00, .410012D+00, .340921D+00, .280607D+00, + .228375D+00, .183450D+00, .145574D+00, .113530D+00, + .869640D-01, .652596D-01, .478141D-01, .340683D-01, + .234718D-01, .155482D-01, .977613D-02, .578269D-02, + .314924D-02, .153337D-02, .634821D-03, .204019D-03, + .422052D-04, .335835D-05, .000000D+00, .380030D+06, + .292540D+06, .222014D+06, .168453D+06, .127799D+06, + .969337D+05, .735161D+05, .557448D+05, .422672D+05, + .320433D+05, .242926D+05, .184152D+05, .139612D+05 / DATA (UPDI(I),I=8113,8164) / + .105847D+05, .802660D+04, .608782D+04, .461924D+04, + .350630D+04, .266329D+04, .202437D+04, .154034D+04, + .117337D+04, .895196D+03, .684138D+03, .523995D+03, + .402343D+03, .309939D+03, .238712D+03, .185329D+03, + .144562D+03, .113393D+03, .894875D+02, .711154D+02, + .569786D+02, .460103D+02, .374821D+02, .308240D+02, + .255903D+02, .214534D+02, .181544D+02, .155085D+02, + .133611D+02, .116036D+02, .101487D+02, .893228D+01, + .790348D+01, .702743D+01, .626587D+01, .560588D+01, + .502132D+01, .450489D+01, .404352D+01, .362910D+01, + .325495D+01, .291596D+01, .260792D+01, .232750D+01, + .207199D+01, .183912D+01, .162701D+01, .143403D+01, + .125880D+01, .109989D+01, .956923D+00, .827308D+00 / DATA (UPDI(I),I=8165,8216) / + .711029D+00, .607135D+00, .514772D+00, .433085D+00, + .361280D+00, .298563D+00, .244204D+00, .197476D+00, + .157576D+00, .124191D+00, .961656D-01, .731166D-01, + .544425D-01, .395627D-01, .279451D-01, .190743D-01, + .125097D-01, .778008D-02, .454719D-02, .244340D-02, + .117177D-02, .476655D-03, .150110D-03, .304570D-04, + .245085D-05, .000000D+00, .503751D+06, .386192D+06, + .291692D+06, .220251D+06, .166274D+06, .125486D+06, + .946865D+05, .714261D+05, .538717D+05, .406218D+05, + .306277D+05, .230883D+05, .174045D+05, .131189D+05, + .988953D+04, .745555D+04, .562218D+04, .424076D+04, + .320048D+04, .241673D+04, .182657D+04, .138188D+04, + .104692D+04, .794396D+03, .604033D+03, .460382D+03 / DATA (UPDI(I),I=8217,8268) / + .352005D+03, .269039D+03, .207288D+03, .160459D+03, + .124906D+03, .978311D+02, .771671D+02, .613775D+02, + .492095D+02, .398117D+02, .325212D+02, .268255D+02, + .223493D+02, .187993D+02, .159663D+02, .136780D+02, + .118132D+02, .102761D+02, .899596D+01, .791757D+01, + .700291D+01, .621104D+01, .552769D+01, .492516D+01, + .439538D+01, .392445D+01, .350366D+01, .312585D+01, + .278548D+01, .247802D+01, .219981D+01, .194787D+01, + .171971D+01, .151320D+01, .132651D+01, .115811D+01, + .100637D+01, .870743D+00, .748593D+00, .639741D+00, + .543132D+00, .457825D+00, .382892D+00, .317478D+00, + .260740D+00, .211915D+00, .170250D+00, .134933D+00, + .105606D+00, .811793D-01, .612527D-01, .452444D-01 / DATA (UPDI(I),I=8269,8320) / + .326009D-01, .228209D-01, .154261D-01, .100119D-01, + .615534D-02, .355218D-02, .188161D-02, .887699D-03, + .354246D-03, .109088D-03, .216579D-04, .176514D-05, + .000000D+00, .657604D+06, .502177D+06, .377567D+06, + .283775D+06, .213224D+06, .160150D+06, .120255D+06, + .902654D+05, .677384D+05, .508164D+05, .381144D+05, + .285794D+05, .214272D+05, .160618D+05, .120398D+05, + .902444D+04, .676533D+04, .507245D+04, .380471D+04, + .285504D+04, .214406D+04, .161150D+04, .121274D+04, + .913977D+03, .690152D+03, .522316D+03, .396512D+03, + .300840D+03, .230105D+03, .176824D+03, .136642D+03, + .106250D+03, .832085D+02, .657205D+02, .523310D+02, + .420563D+02, .341342D+02, .279818D+02, .231734D+02 / DATA (UPDI(I),I=8321,8372) / + .193801D+02, .163675D+02, .139453D+02, .119797D+02, + .103661D+02, .902746D+01, .790414D+01, .695504D+01, + .613663D+01, .543332D+01, .481594D+01, .427561D+01, + .379766D+01, .337278D+01, .299335D+01, .265342D+01, + .234812D+01, .207349D+01, .182629D+01, .160378D+01, + .140365D+01, .122387D+01, .106272D+01, .918441D+00, + .790306D+00, .675651D+00, .574146D+00, .484652D+00, + .406154D+00, .337665D+00, .278285D+00, .227136D+00, + .183431D+00, .146407D+00, .115249D+00, .895724D-01, + .683521D-01, .511807D-01, .375018D-01, .267931D-01, + .185864D-01, .124418D-01, .799071D-02, .485625D-02, + .276698D-02, .144478D-02, .670514D-03, .262498D-03, + .790575D-04, .153656D-04, .126840D-05, .000000D+00 / DATA (UPDI(I),I=8373,8424) / + .846650D+06, .644119D+06, .482160D+06, .360771D+06, + .269849D+06, .201749D+06, .150783D+06, .112642D+06, + .841215D+05, .627962D+05, .468637D+05, .349607D+05, + .260752D+05, .194424D+05, .144951D+05, .108049D+05, + .805452D+04, .600437D+04, .447730D+04, .333963D+04, + .249263D+04, .186178D+04, .139217D+04, .104238D+04, + .781895D+03, .587755D+03, .443142D+03, .333863D+03, + .253584D+03, .193504D+03, .148488D+03, .114660D+03, + .891793D+02, .699644D+02, .553446D+02, .441951D+02, + .356491D+02, .290500D+02, .239199D+02, .198933D+02, + .167103D+02, .141625D+02, .121033D+02, .104194D+02, + .902785D+01, .786445D+01, .688520D+01, .604411D+01, + .532424D+01, .469509D+01, .414694D+01, .366442D+01 / DATA (UPDI(I),I=8425,8476) / + .323763D+01, .285851D+01, .252069D+01, .221900D+01, + .194919D+01, .170776D+01, .149175D+01, .129864D+01, + .112624D+01, .972682D+00, .836044D+00, .715465D+00, + .608260D+00, .513963D+00, .431367D+00, .359397D+00, + .297022D+00, .243307D+00, .197356D+00, .158368D+00, + .125577D+00, .981815D-01, .757746D-01, .574001D-01, + .426513D-01, .310008D-01, .219603D-01, .150961D-01, + .100070D-01, .635964D-02, .382044D-02, .214913D-02, + .110614D-02, .504996D-03, .193967D-03, .571516D-04, + .108823D-04, .909745D-06, .000000D+00, .107628D+07, + .815852D+06, .608108D+06, .453045D+06, .337382D+06, + .251115D+06, .186829D+06, .138928D+06, .103267D+06, + .767220D+05, .569792D+05, .422976D+05, .313892D+05 / DATA (UPDI(I),I=8477,8528) / + .232851D+05, .172696D+05, .128047D+05, .949355D+04, + .703800D+04, .521845D+04, .387004D+04, .287153D+04, + .213192D+04, .158440D+04, .117890D+04, .878678D+03, + .656228D+03, .491523D+03, .367822D+03, .277509D+03, + .210341D+03, .160326D+03, .122978D+03, .950201D+02, + .740676D+02, .582217D+02, .462090D+02, .370533D+02, + .300222D+02, .245841D+02, .203365D+02, .169938D+02, + .143294D+02, .121845D+02, .104372D+02, .899840D+01, + .779994D+01, .679489D+01, .593497D+01, .520193D+01, + .456401D+01, .401071D+01, .352597D+01, .309933D+01, + .272231D+01, .238816D+01, .209140D+01, .182750D+01, + .159273D+01, .138392D+01, .119838D+01, .103374D+01, + .887982D+00, .759090D+00, .646055D+00, .546193D+00 / DATA (UPDI(I),I=8529,8580) / + .458915D+00, .382961D+00, .317209D+00, .260601D+00, + .212178D+00, .171038D+00, .136375D+00, .107430D+00, + .834219D-01, .639327D-01, .480744D-01, .354477D-01, + .255571D-01, .179497D-01, .122271D-01, .802602D-02, + .504704D-02, .299685D-02, .166435D-02, .844376D-03, + .379215D-03, .142919D-03, .412114D-04, .769326D-05, + .651243D-06, .000000D+00, .135213D+07, .102135D+07, + .758123D+06, .562435D+06, .417059D+06, .309076D+06, + .228941D+06, .169483D+06, .125408D+06, .927417D+05, + .685536D+05, .506469D+05, .374027D+05, .276089D+05, + .203732D+05, .150284D+05, .110839D+05, .817316D+04, + .602714D+04, .444494D+04, .327940D+04, .242065D+04, + .178837D+04, .132267D+04, .979802D+03, .727190D+03 / DATA (UPDI(I),I=8581,8632) / + .541238D+03, .402407D+03, .301652D+03, .227169D+03, + .172039D+03, .131121D+03, .100673D+03, .779910D+02, + .609363D+02, .480809D+02, .383361D+02, .308920D+02, + .251625D+02, .207082D+02, .172176D+02, .144467D+02, + .122243D+02, .104206D+02, .894059D+01, .771215D+01, + .668570D+01, .581077D+01, .506789D+01, .442413D+01, + .386823D+01, .338350D+01, .295894D+01, .258568D+01, + .225662D+01, .196597D+01, .170894D+01, .148161D+01, + .128059D+01, .110302D+01, .946402D+00, .808592D+00, + .687465D+00, .581895D+00, .489211D+00, .408719D+00, + .339119D+00, .279258D+00, .228060D+00, .184557D+00, + .147847D+00, .117132D+00, .916652D-01, .706945D-01, + .537983D-01, .401560D-01, .293812D-01, .210118D-01 / DATA (UPDI(I),I=8633,8684) / + .146311D-01, .987559D-02, .641895D-02, .399385D-02, + .234398D-02, .128513D-02, .642646D-03, .283920D-03, + .105005D-03, .296421D-04, .542881D-05, .465277D-06, + .000000D+00, .168000D+07, .126468D+07, .934935D+06, + .690768D+06, .510091D+06, .376427D+06, .277637D+06, + .204640D+06, .150754D+06, .110986D+06, .816654D+05, + .600544D+05, .441410D+05, .324265D+05, .238114D+05, + .174772D+05, .128246D+05, .940791D+04, .690112D+04, + .506216D+04, .371431D+04, .272637D+04, .200277D+04, + .147264D+04, .108447D+04, .800035D+03, .591840D+03, + .437292D+03, .325779D+03, .243822D+03, .183510D+03, + .139008D+03, .106085D+03, .816988D+02, .634652D+02, + .497964D+02, .394890D+02, .316546D+02, .256528D+02 / DATA (UPDI(I),I=8685,8736) / + .210075D+02, .173821D+02, .145152D+02, .122242D+02, + .103713D+02, .885608D+01, .760279D+01, .655928D+01, + .567310D+01, .492361D+01, .427684D+01, .372077D+01, + .323815D+01, .281748D+01, .244951D+01, .212680D+01, + .184330D+01, .159399D+01, .137473D+01, .118196D+01, + .101268D+01, .864257D+00, .734442D+00, .621028D+00, + .522785D+00, .437068D+00, .363094D+00, .299536D+00, + .245223D+00, .199074D+00, .160120D+00, .127471D+00, + .100343D+00, .780101D-01, .597517D-01, .451507D-01, + .334524D-01, .242872D-01, .172278D-01, .118931D-01, + .795410D-02, .511917D-02, .315139D-02, .182802D-02, + .989403D-03, .487669D-03, .211949D-03, .769318D-04, + .212674D-04, .382388D-05, .331763D-06, .000000D+00 / DATA (UPDI(I),I=8737,8788) / + .206572D+07, .154987D+07, .114123D+07, .839816D+06, + .617637D+06, .453917D+06, .333392D+06, .244695D+06, + .179486D+06, .131562D+06, .963761D+05, .705527D+05, + .516196D+05, .377436D+05, .275842D+05, .201487D+05, + .147122D+05, .107385D+05, .783694D+04, .571870D+04, + .417379D+04, .304707D+04, .222604D+04, .162765D+04, + .119179D+04, .874114D+03, .642856D+03, .472142D+03, + .349653D+03, .260135D+03, .194628D+03, .146566D+03, + .111205D+03, .851593D+02, .657885D+02, .513437D+02, + .405052D+02, .323067D+02, .260540D+02, .212348D+02, + .174882D+02, .145365D+02, .121857D+02, .102910D+02, + .874667D+01, .747360D+01, .641731D+01, .552355D+01, + .477058D+01, .412349D+01, .356956D+01, .309101D+01 / DATA (UPDI(I),I=8789,8840) / + .267588D+01, .231458D+01, .199936D+01, .172392D+01, + .148303D+01, .127236D+01, .108820D+01, .927414D+00, + .787274D+00, .665429D+00, .559613D+00, .468508D+00, + .389508D+00, .321754D+00, .263910D+00, .214794D+00, + .173332D+00, .138566D+00, .109624D+00, .857407D-01, + .662177D-01, .503714D-01, .377937D-01, .277941D-01, + .200228D-01, .140871D-01, .964115D-02, .638876D-02, + .407117D-02, .247959D-02, .142154D-02, .759520D-03, + .368988D-03, .157765D-03, .562079D-04, .152214D-04, + .268860D-05, .236104D-06, .000000D+00, .251507D+07, + .188087D+07, .137960D+07, .101125D+07, .740768D+06, + .542221D+06, .396624D+06, .289901D+06, .211752D+06, + .154551D+06, .112727D+06, .821599D+05, .598434D+05 / DATA (UPDI(I),I=8841,8892) / + .435581D+05, .316866D+05, .230364D+05, .167403D+05, + .121594D+05, .882990D+04, .641075D+04, .465483D+04, + .338047D+04, .245644D+04, .178638D+04, .130082D+04, + .948746D+03, .693804D+03, .506620D+03, .373044D+03, + .275953D+03, .205288D+03, .153725D+03, .115991D+03, + .883452D+02, .678903D+02, .527136D+02, .413803D+02, + .328467D+02, .263660D+02, .213911D+02, .175376D+02, + .145123D+02, .121110D+02, .101817D+02, .861429D+01, + .732642D+01, .626152D+01, .536372D+01, .461025D+01, + .396539D+01, .341575D+01, .294308D+01, .253501D+01, + .218161D+01, .187488D+01, .160828D+01, .137638D+01, + .117471D+01, .999407D+00, .847242D+00, .715385D+00, + .601418D+00, .503031D+00, .418832D+00, .346267D+00 / DATA (UPDI(I),I=8893,8944) / + .284417D+00, .231944D+00, .187674D+00, .150543D+00, + .119613D+00, .940375D-01, .730775D-01, .560645D-01, + .423545D-01, .315535D-01, .230326D-01, .164636D-01, + .114883D-01, .779452D-02, .511748D-02, .322878D-02, + .194555D-02, .110233D-02, .581388D-03, .278392D-03, + .117100D-03, .409559D-04, .108685D-04, .188709D-05, + .167710D-06, .000000D+00, .506631D+05, .755231D+05, + .586802D+05, .455974D+05, .354349D+05, .275406D+05, + .214078D+05, .166434D+05, .129416D+05, .100654D+05, + .783033D+04, .609338D+04, .474336D+04, .369394D+04, + .287806D+04, .224362D+04, .175018D+04, .136630D+04, + .106758D+04, .835035D+03, .653944D+03, .512855D+03, + .402875D+03, .317092D+03, .250133D+03, .197824D+03 / DATA (UPDI(I),I=8945,8996) / + .156919D+03, .124495D+03, .994862D+02, .798476D+02, + .643972D+02, .522156D+02, .425868D+02, .349734D+02, + .289001D+02, .240506D+02, .201597D+02, .170203D+02, + .144711D+02, .123853D+02, .106674D+02, .923816D+01, + .803878D+01, .702309D+01, .615527D+01, .540760D+01, + .476078D+01, .419192D+01, .369493D+01, .325342D+01, + .286376D+01, .251769D+01, .220988D+01, .193590D+01, + .169203D+01, .147508D+01, .128228D+01, .111122D+01, + .959750D+00, .825923D+00, .707989D+00, .604352D+00, + .513555D+00, .434610D+00, .365491D+00, .305607D+00, + .253941D+00, .209571D+00, .171660D+00, .139449D+00, + .112250D+00, .894416D-01, .704523D-01, .547669D-01, + .420535D-01, .317127D-01, .234738D-01, .170056D-01 / DATA (UPDI(I),I=8997,9048) / + .120142D-01, .824008D-02, .545497D-02, .346206D-02, + .207823D-02, .116819D-02, .600822D-03, .273690D-03, + .104562D-03, .302482D-04, .526694D-05, .264960D-06, + .000000D+00, .128425D+06, .100442D+06, .776366D+05, + .600105D+05, .463905D+05, .358630D+05, .277279D+05, + .214397D+05, .165803D+05, .128239D+05, .992076D+04, + .767636D+04, .594156D+04, .460017D+04, .356316D+04, + .276113D+04, .214091D+04, .166106D+04, .128983D+04, + .100247D+04, .780041D+03, .607738D+03, .474248D+03, + .370738D+03, .290446D+03, .228100D+03, .179665D+03, + .141504D+03, .112262D+03, .894389D+02, .716024D+02, + .576261D+02, .466513D+02, .380270D+02, .311925D+02, + .257680D+02, .214439D+02, .179754D+02, .151768D+02 / DATA (UPDI(I),I=9049,9100) / + .129001D+02, .110370D+02, .949572D+01, .821053D+01, + .712863D+01, .621019D+01, .542375D+01, .474784D+01, + .415710D+01, .364442D+01, .319185D+01, .279501D+01, + .244477D+01, .213521D+01, .186137D+01, .161909D+01, + .140483D+01, .121553D+01, .104852D+01, .901463D+00, + .772251D+00, .658995D+00, .560015D+00, .473734D+00, + .399113D+00, .334113D+00, .278090D+00, .230003D+00, + .188924D+00, .154007D+00, .124498D+00, .997128D-01, + .790433D-01, .619347D-01, .478813D-01, .365587D-01, + .274058D-01, .201598D-01, .145095D-01, .101796D-01, + .693062D-02, .455140D-02, .286392D-02, .170282D-02, + .947766D-03, .482181D-03, .216927D-03, .816603D-04, + .232203D-04, .397942D-05, .203041D-06, .000000D+00 / DATA (UPDI(I),I=9101,9152) / + .169195D+06, .131774D+06, .101366D+06, .779712D+05, + .599790D+05, .461367D+05, .354918D+05, .273027D+05, + .210056D+05, .161614D+05, .124365D+05, .957113D+04, + .736780D+04, .567278D+04, .436933D+04, .336647D+04, + .259517D+04, .200161D+04, .154497D+04, .119344D+04, + .922882D+03, .714480D+03, .553968D+03, .430222D+03, + .334809D+03, .261159D+03, .204301D+03, .159773D+03, + .125865D+03, .995621D+02, .791370D+02, .632307D+02, + .508200D+02, .411271D+02, .334947D+02, .274736D+02, + .227039D+02, .189006D+02, .158508D+02, .133840D+02, + .113776D+02, .972737D+01, .835956D+01, .721482D+01, + .624894D+01, .542679D+01, .472453D+01, .411442D+01, + .358823D+01, .312651D+01, .272413D+01, .237111D+01 / DATA (UPDI(I),I=9153,9204) / + .206095D+01, .178816D+01, .154820D+01, .133718D+01, + .115177D+01, .989083D+00, .846589D+00, .722050D+00, + .613454D+00, .519044D+00, .437147D+00, .366679D+00, + .305598D+00, .253219D+00, .208483D+00, .170461D+00, + .138306D+00, .111272D+00, .886829D-01, .699463D-01, + .545251D-01, .419267D-01, .318355D-01, .237272D-01, + .173479D-01, .124063D-01, .864545D-02, .584423D-02, + .380835D-02, .237671D-02, .140035D-02, .771244D-03, + .387601D-03, .172004D-03, .637289D-04, .177937D-04, + .299787D-05, .155313D-06, .000000D+00, .219763D+06, + .170496D+06, .130568D+06, .999787D+05, .765560D+05, + .586138D+05, .448777D+05, .343576D+05, .263051D+05, + .201389D+05, .154198D+05, .118067D+05, .904180D+04 / DATA (UPDI(I),I=9205,9256) / + .692508D+04, .530545D+04, .406552D+04, .311677D+04, + .239038D+04, .183450D+04, .140881D+04, .108297D+04, + .833342D+03, .642151D+03, .495572D+03, .383202D+03, + .296961D+03, .230780D+03, .179254D+03, .140254D+03, + .110181D+03, .869717D+02, .690063D+02, .550753D+02, + .442609D+02, .357979D+02, .291613D+02, .239361D+02, + .197939D+02, .164920D+02, .138368D+02, .116896D+02, + .993372D+01, .848668D+01, .728250D+01, .627237D+01, + .541746D+01, .469149D+01, .406440D+01, .352676D+01, + .305770D+01, .265128D+01, .229676D+01, .198703D+01, + .171614D+01, .147915D+01, .127187D+01, .109069D+01, + .932564D+00, .794766D+00, .674943D+00, .570980D+00, + .481053D+00, .403416D+00, .336939D+00, .279595D+00 / DATA (UPDI(I),I=9257,9308) / + .230660D+00, .189069D+00, .153893D+00, .124292D+00, + .995302D-01, .789449D-01, .619594D-01, .480561D-01, + .367582D-01, .277602D-01, .205726D-01, .149522D-01, + .106265D-01, .735628D-02, .493805D-02, .319356D-02, + .197699D-02, .115452D-02, .629718D-03, .313061D-03, + .137256D-03, .501496D-04, .137867D-04, .229478D-05, + .120962D-06, .000000D+00, .177906D+06, .217731D+06, + .166044D+06, .126603D+06, .965257D+05, .735797D+05, + .560864D+05, .427449D+05, .325767D+05, .248241D+05, + .189172D+05, .144148D+05, .109851D+05, .837153D+04, + .638111D+04, .486452D+04, .370972D+04, .282988D+04, + .215995D+04, .164951D+04, .126081D+04, .964571D+03, + .738890D+03, .566797D+03, .435590D+03, .335449D+03 / DATA (UPDI(I),I=9309,9360) / + .259040D+03, .199888D+03, .155376D+03, .121252D+03, + .950720D+02, .749261D+02, .593970D+02, .474134D+02, + .380912D+02, .308238D+02, .251355D+02, .206522D+02, + .170990D+02, .142578D+02, .119732D+02, .101152D+02, + .859252D+01, .733241D+01, .628124D+01, .539651D+01, + .464941D+01, .400764D+01, .346049D+01, .298579D+01, + .257675D+01, .222188D+01, .191353D+01, .164530D+01, + .141185D+01, .120873D+01, .103210D+01, .878714D+00, + .745711D+00, .630626D+00, .531257D+00, .445721D+00, + .372217D+00, .309579D+00, .255799D+00, .210123D+00, + .171486D+00, .138966D+00, .111732D+00, .890621D-01, + .703092D-01, .549152D-01, .423818D-01, .322505D-01, + .242264D-01, .178538D-01, .129003D-01, .911205D-02 / DATA (UPDI(I),I=9361,9412) / + .626699D-02, .417793D-02, .268191D-02, .164710D-02, + .953494D-03, .515134D-03, .253383D-03, .109779D-03, + .395718D-04, .107199D-04, .176396D-05, .946019D-07, + .000000D+00, .379753D+06, .292292D+06, .221793D+06, + .168256D+06, .127623D+06, .967775D+05, .733771D+05, + .556212D+05, .421572D+05, .319456D+05, .242058D+05, + .183382D+05, .138928D+05, .105240D+05, .797283D+04, + .604019D+04, .457706D+04, .346897D+04, .263027D+04, + .199518D+04, .151454D+04, .115057D+04, .875057D+03, + .666348D+03, .508276D+03, .388448D+03, .297648D+03, + .227847D+03, .175693D+03, .135997D+03, .105760D+03, + .826625D+02, .649872D+02, .514483D+02, .409926D+02, + .329016D+02, .266142D+02, .216944D+02, .178228D+02 / DATA (UPDI(I),I=9413,9464) / + .147489D+02, .122943D+02, .103118D+02, .869815D+01, + .737190D+01, .627304D+01, .535447D+01, .458406D+01, + .392676D+01, .337018D+01, .289057D+01, .248008D+01, + .212633D+01, .182098D+01, .155709D+01, .132890D+01, + .113161D+01, .961115D+00, .813974D+00, .687162D+00, + .578095D+00, .484483D+00, .404382D+00, .335942D+00, + .277959D+00, .228464D+00, .186673D+00, .151529D+00, + .122123D+00, .976441D-01, .773908D-01, .607397D-01, + .471575D-01, .361714D-01, .273487D-01, .204088D-01, + .149364D-01, .107141D-01, .751013D-02, .512349D-02, + .338622D-02, .215345D-02, .130931D-02, .749553D-03, + .400000D-03, .194026D-03, .827259D-04, .292590D-04, + .774793D-05, .124499D-05, .674507D-07, .000000D+00 / DATA (UPDI(I),I=9465,9516) / + .503454D+06, .385927D+06, .291456D+06, .220041D+06, + .166087D+06, .125320D+06, .945383D+05, .712944D+05, + .537546D+05, .405178D+05, .305353D+05, .230063D+05, + .173318D+05, .130544D+05, .983239D+04, .740494D+04, + .557738D+04, .420112D+04, .316541D+04, .238573D+04, + .179916D+04, .135767D+04, .102552D+04, .775488D+03, + .587321D+03, .445599D+03, .338920D+03, .257463D+03, + .197012D+03, .151319D+03, .116753D+03, .905356D+02, + .706122D+02, .554597D+02, .438399D+02, .349117D+02, + .280219D+02, .226685D+02, .184842D+02, .151847D+02, + .125674D+02, .104677D+02, .876968D+01, .738330D+01, + .624210D+01, .529436D+01, .450465D+01, .383529D+01, + .327219D+01, .279014D+01, .238022D+01, .202925D+01 / DATA (UPDI(I),I=9517,9568) / + .172822D+01, .146971D+01, .124757D+01, .105670D+01, + .892757D+00, .752125D+00, .631644D+00, .528635D+00, + .440743D+00, .365974D+00, .302454D+00, .248949D+00, + .203539D+00, .165421D+00, .133551D+00, .107043D+00, + .851077D-01, .670687D-01, .523293D-01, .403828D-01, + .307832D-01, .231244D-01, .171417D-01, .124577D-01, + .887078D-02, .617023D-02, .417518D-02, .273563D-02, + .172354D-02, .103749D-02, .587467D-03, .309773D-03, + .148274D-03, .622898D-04, .216683D-04, .563678D-05, + .893726D-06, .494969D-07, .000000D+00, .657287D+06, + .501894D+06, .377315D+06, .283551D+06, .213024D+06, + .159973D+06, .120097D+06, .901252D+05, .676138D+05, + .507058D+05, .380162D+05, .284923D+05, .213499D+05 / DATA (UPDI(I),I=9569,9620) / + .159933D+05, .119791D+05, .897071D+04, .671777D+04, + .503037D+04, .376750D+04, .282214D+04, .211497D+04, + .158579D+04, .119003D+04, .893899D+03, .672398D+03, + .506604D+03, .382599D+03, .288524D+03, .219165D+03, + .167086D+03, .127951D+03, .984690D+02, .762156D+02, + .594070D+02, .466041D+02, .368342D+02, .293453D+02, + .235655D+02, .190776D+02, .155619D+02, .127910D+02, + .105822D+02, .880726D+01, .736723D+01, .618926D+01, + .521713D+01, .441218D+01, .373418D+01, .316741D+01, + .268528D+01, .227786D+01, .193122D+01, .163574D+01, + .138356D+01, .116818D+01, .984229D+00, .827176D+00, + .693251D+00, .579189D+00, .482236D+00, .399989D+00, + .330425D+00, .271659D+00, .222440D+00, .180907D+00 / DATA (UPDI(I),I=9621,9672) / + .146244D+00, .117431D+00, .936058D-01, .740071D-01, + .579869D-01, .449775D-01, .344999D-01, .261356D-01, + .195061D-01, .143631D-01, .103653D-01, .732680D-02, + .505704D-02, .339405D-02, .220458D-02, .137603D-02, + .820053D-03, .459283D-03, .239303D-03, .113037D-03, + .467943D-04, .160147D-04, .409522D-05, .641379D-06, + .363194D-07, .000000D+00, .846312D+06, .643818D+06, + .481891D+06, .360532D+06, .269637D+06, .201560D+06, + .150615D+06, .112492D+06, .839890D+05, .626786D+05, + .467593D+05, .348681D+05, .259931D+05, .193697D+05, + .144307D+05, .107479D+05, .800407D+04, .595974D+04, + .443784D+04, .330474D+04, .246179D+04, .183453D+04, + .136807D+04, .102107D+04, .763052D+03, .571074D+03 / DATA (UPDI(I),I=9673,9724) / + .428364D+03, .320775D+03, .241954D+03, .183148D+03, + .139242D+03, .106381D+03, .817382D+02, .632479D+02, + .492560D+02, .386491D+02, .305711D+02, .243772D+02, + .195981D+02, .158780D+02, .129640D+02, .106555D+02, + .881156D+01, .732470D+01, .611573D+01, .512406D+01, + .430788D+01, .362461D+01, .305691D+01, .257694D+01, + .217382D+01, .183292D+01, .154409D+01, .129906D+01, + .109103D+01, .914416D+00, .764505D+00, .637415D+00, + .529799D+00, .438848D+00, .362134D+00, .297618D+00, + .243420D+00, .198284D+00, .160412D+00, .128985D+00, + .103013D+00, .816617D-01, .642019D-01, .500158D-01, + .385665D-01, .294035D-01, .221363D-01, .164141D-01, + .120056D-01, .860326D-02, .603661D-02, .413436D-02 / DATA (UPDI(I),I=9725,9776) / + .275214D-02, .177212D-02, .109579D-02, .646527D-03, + .358150D-03, .184393D-03, .859584D-04, .350686D-04, + .118100D-04, .296973D-05, .459581D-06, .266021D-07, + .000000D+00, .107592D+07, .815531D+06, .607822D+06, + .452791D+06, .337156D+06, .250914D+06, .186650D+06, + .138770D+06, .103127D+06, .765970D+05, .568684D+05, + .421993D+05, .313021D+05, .232079D+05, .172013D+05, + .127442D+05, .944006D+04, .699069D+04, .517662D+04, + .383306D+04, .283884D+04, .210302D+04, .155886D+04, + .115631D+04, .858697D+03, .638535D+03, .475843D+03, + .353932D+03, .265163D+03, .199346D+03, .150508D+03, + .114187D+03, .871213D+02, .669420D+02, .517682D+02, + .403385D+02, .316881D+02, .250967D+02, .200420D+02 / DATA (UPDI(I),I=9777,9828) / + .161313D+02, .130861D+02, .106879D+02, .878359D+01, + .725699D+01, .602290D+01, .501652D+01, .419309D+01, + .350779D+01, .294177D+01, .246605D+01, .206887D+01, + .173499D+01, .145377D+01, .121660D+01, .101641D+01, + .847444D+00, .704850D+00, .584654D+00, .483454D+00, + .398410D+00, .327084D+00, .267434D+00, .217603D+00, + .176335D+00, .141905D+00, .113495D+00, .901520D-01, + .710732D-01, .555637D-01, .430376D-01, .329901D-01, + .249996D-01, .187036D-01, .137786D-01, .100104D-01, + .712302D-02, .496117D-02, .337150D-02, .222596D-02, + .142084D-02, .870376D-03, .508399D-03, .278561D-03, + .141715D-03, .652004D-04, .262167D-04, .868980D-05, + .214943D-05, .328779D-06, .194475D-07, .000000D+00 / DATA (UPDI(I),I=9829,9880) / + .135174D+07, .102101D+07, .757819D+06, .562164D+06, + .416818D+06, .308862D+06, .228751D+06, .169315D+06, + .125258D+06, .926090D+05, .684360D+05, .505427D+05, + .373104D+05, .275271D+05, .203008D+05, .149643D+05, + .110272D+05, .812304D+04, .598282D+04, .440577D+04, + .324478D+04, .239005D+04, .176132D+04, .129874D+04, + .958634D+03, .708442D+03, .524622D+03, .387686D+03, + .288566D+03, .215514D+03, .161633D+03, .121807D+03, + .923087D+02, .704514D+02, .541159D+02, .418866D+02, + .326867D+02, .257189D+02, .204068D+02, .163211D+02, + .131577D+02, .106807D+02, .872476D+01, .716564D+01, + .591232D+01, .489600D+01, .406915D+01, .338492D+01, + .282302D+01, .235350D+01, .196375D+01, .163802D+01 / DATA (UPDI(I),I=9881,9932) / + .136524D+01, .113652D+01, .944560D+00, .783463D+00, + .648282D+00, .534979D+00, .440118D+00, .360847D+00, + .294733D+00, .239749D+00, .194069D+00, .156449D+00, + .125239D+00, .996317D-01, .787115D-01, .617119D-01, + .479739D-01, .369450D-01, .281526D-01, .212042D-01, + .157648D-01, .115380D-01, .832622D-02, .588283D-02, + .406712D-02, .274246D-02, .179580D-02, .113627D-02, + .689545D-03, .398742D-03, .216095D-03, .108633D-03, + .493298D-04, .195514D-04, .637961D-05, .155273D-05, + .234821D-06, .141901D-07, .000000D+00, .167959D+07, + .126431D+07, .934612D+06, .690480D+06, .509835D+06, + .376200D+06, .277435D+06, .204461D+06, .150595D+06, + .110845D+06, .815407D+05, .599438D+05, .440431D+05 / DATA (UPDI(I),I=9933,9984) / + .323398D+05, .237347D+05, .174094D+05, .127646D+05, + .935484D+04, .685421D+04, .502070D+04, .367767D+04, + .269398D+04, .197413D+04, .144732D+04, .106206D+04, + .780191D+03, .574251D+03, .421710D+03, .311929D+03, + .231489D+03, .172503D+03, .129160D+03, .972478D+02, + .737417D+02, .562773D+02, .432802D+02, .335595D+02, + .262399D+02, .206912D+02, .164475D+02, .131798D+02, + .106353D+02, .863677D+01, .705240D+01, .578565D+01, + .476404D+01, .393744D+01, .325721D+01, .270170D+01, + .224014D+01, .185916D+01, .154255D+01, .127891D+01, + .105910D+01, .875667D+00, .722583D+00, .594846D+00, + .488378D+00, .399733D+00, .326067D+00, .264968D+00, + .214435D+00, .172682D+00, .138486D+00, .110275D+00 / DATA (UPDI(I),I=9985,10036) / + .872592D-01, .685633D-01, .534587D-01, .413239D-01, + .316401D-01, .239674D-01, .179421D-01, .132559D-01, + .963826D-02, .690845D-02, .484658D-02, .332589D-02, + .222519D-02, .144510D-02, .906368D-03, .544881D-03, + .311930D-03, .167205D-03, .830606D-04, .372285D-04, + .145454D-04, .467324D-05, .111955D-05, .167446D-06, + .103346D-07, .000000D+00, .206529D+07, .154948D+07, + .114089D+07, .839510D+06, .617365D+06, .453676D+06, + .333178D+06, .244505D+06, .179318D+06, .131412D+06, + .962438D+05, .704355D+05, .515159D+05, .376518D+05, + .275030D+05, .200768D+05, .146486D+05, .106823D+05, + .778730D+04, .567483D+04, .413503D+04, .301282D+04, + .219576D+04, .160087D+04, .116810D+04, .853131D+03 / DATA (UPDI(I),I=10037,10088) / + .624261D+03, .455671D+03, .335016D+03, .247106D+03, + .183006D+03, .136175D+03, .101891D+03, .767826D+02, + .582340D+02, .445089D+02, .343012D+02, .266577D+02, + .208951D+02, .165117D+02, .131542D+02, .105535D+02, + .852159D+01, .691915D+01, .564465D+01, .462220D+01, + .379933D+01, .312581D+01, .257877D+01, .212675D+01, + .175570D+01, .144906D+01, .119514D+01, .984606D+00, + .809884D+00, .664879D+00, .544552D+00, .444812D+00, + .362225D+00, .293970D+00, .237669D+00, .191358D+00, + .153303D+00, .122307D+00, .968784D-01, .762487D-01, + .595866D-01, .462027D-01, .355132D-01, .270339D-01, + .203566D-01, .151460D-01, .111197D-01, .803203D-02, + .571823D-02, .398312D-02, .271306D-02, .180100D-02 / DATA (UPDI(I),I=10089,10140) / + .115997D-02, .721161D-03, .429475D-03, .243397D-03, + .129047D-03, .633479D-04, .280267D-04, .107957D-04, + .341590D-05, .805714D-06, .119217D-06, .751280D-08, + .000000D+00, .251460D+07, .188046D+07, .137923D+07, + .101093D+07, .740479D+06, .541965D+06, .396397D+06, + .289699D+06, .211573D+06, .154393D+06, .112587D+06, + .820357D+05, .597335D+05, .434608D+05, .316006D+05, + .229604D+05, .166731D+05, .121000D+05, .877741D+04, + .636438D+04, .461385D+04, .334426D+04, .242444D+04, + .175809D+04, .127579D+04, .926582D+03, .674167D+03, + .489232D+03, .357598D+03, .262211D+03, .193039D+03, + .142784D+03, .106195D+03, .795485D+02, .599714D+02, + .455650D+02, .349084D+02, .269718D+02, .210196D+02 / DATA (UPDI(I),I=10141,10192) / + .165155D+02, .130830D+02, .104378D+02, .838141D+01, + .676791D+01, .549111D+01, .447204D+01, .365615D+01, + .299184D+01, .245515D+01, .201407D+01, .165396D+01, + .135798D+01, .111422D+01, .913219D+00, .747319D+00, + .610389D+00, .497383D+00, .404222D+00, .327503D+00, + .264441D+00, .212708D+00, .170385D+00, .135796D+00, + .107778D+00, .849189D-01, .664781D-01, .516686D-01, + .398410D-01, .304501D-01, .230452D-01, .172499D-01, + .127559D-01, .930586D-02, .667766D-02, .472179D-02, + .326562D-02, .220778D-02, .145411D-02, .928809D-03, + .572377D-03, .337669D-03, .189448D-03, .993495D-04, + .481946D-04, .210486D-04, .799430D-05, .249163D-05, + .578811D-06, .847519D-07, .545175D-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