C----------------------------------------------------------------------- #include "pdf/pilot.h" Subroutine Ctq4RlQ (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 : CTEQ4LQ C PARAMETER (ISET=10) DATA DrI, FlI, AlI / 2., 5., .1740 / 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) / + .700000D+00, .100000D+05, + .700000D+00, .884564D+00, .116264D+01, .160000D+01, .222267D+01, + .324176D+01, .500000D+01, .927769D+01, .192899D+02, .458922D+02, + .128067D+03, .431700D+03, .182002D+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) / + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .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, .000000D+00, + .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=469,520) / + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .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=521,572) / + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .268222D+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 / DATA (UPDI(I),I=573,624) / + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .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=625,676) / + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .149294D+06, .113339D+06, .846097D+05, + .631068D+05, .470361D+05, .350228D+05, .260582D+05, + .193676D+05, .143832D+05, .106694D+05, .790762D+04, + .585362D+04, .432904D+04, .319738D+04, .235913D+04, + .173822D+04, .127932D+04, .940155D+03, .690086D+03, + .505722D+03, .370145D+03, .270457D+03, .197347D+03, + .143747D+03, .104550D+03, .759118D+02, .550575D+02, + .396746D+02, .286866D+02, .207067D+02, .149336D+02, + .107558D+02, .774303D+01, .557586D+01, .401415D+01, + .289103D+01, .208601D+01, .150750D+01, .109292D+01 / DATA (UPDI(I),I=677,728) / + .794561D+00, .580489D+00, .425739D+00, .313855D+00, + .232399D+00, .173028D+00, .129346D+00, .972718D-01, + .732251D-01, .554518D-01, .419793D-01, .318816D-01, + .242129D-01, .184010D-01, .139648D-01, .105886D-01, + .800264D-02, .603087D-02, .452310D-02, .337855D-02, + .250658D-02, .184855D-02, .135120D-02, .979048D-03, + .702392D-03, .496490D-03, .344673D-03, .234483D-03, + .154942D-03, .986197D-04, .590604D-04, .320532D-04, + .139006D-04, .221766D-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 / DATA (UPDI(I),I=729,780) / + .344401D+06, .260641D+06, .193861D+06, .144061D+06, + .106975D+06, .793545D+05, .588182D+05, .435494D+05, + .322162D+05, .238048D+05, .175731D+05, .129567D+05, + .954329D+04, .701985D+04, .515800D+04, .378457D+04, + .277356D+04, .202953D+04, .148319D+04, .108215D+04, + .788478D+03, .573505D+03, .416535D+03, .301976D+03, + .218583D+03, .157933D+03, .113972D+03, .817071D+02, + .587708D+02, .421990D+02, .302682D+02, .216802D+02, + .155182D+02, .111101D+02, .794996D+01, .569033D+01, + .407938D+01, .292866D+01, .210864D+01, .152218D+01, + .110386D+01, .803438D+00, .587597D+00, .431561D+00, + .318592D+00, .236102D+00, .175974D+00, .131274D+00, + .984874D-01, .738616D-01, .555630D-01, .417995D-01 / DATA (UPDI(I),I=781,832) / + .314636D-01, .236526D-01, .177643D-01, .133010D-01, + .993205D-02, .738315D-02, .546776D-02, .402434D-02, + .294634D-02, .214044D-02, .154376D-02, .110490D-02, + .781810D-03, .546161D-03, .376862D-03, .255799D-03, + .170740D-03, .111310D-03, .707510D-04, .432778D-04, + .251725D-04, .135234D-04, .638757D-05, .211572D-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, .595281D+06, + .449051D+06, .332729D+06, .246314D+06, .182197D+06, + .134631D+06, .993977D+05, .733041D+05, .540105D+05, + .397482D+05, .292228D+05, .214576D+05, .157387D+05 / DATA (UPDI(I),I=833,884) / + .115285D+05, .843468D+04, .616217D+04, .449627D+04, + .327561D+04, .238310D+04, .173087D+04, .125533D+04, + .908822D+03, .656939D+03, .473973D+03, .341402D+03, + .245439D+03, .176217D+03, .125668D+03, .899120D+02, + .642128D+02, .458029D+02, .326230D+02, .232152D+02, + .165226D+02, .117504D+02, .835796D+01, .595276D+01, + .424518D+01, .303534D+01, .217561D+01, .156603D+01, + .113117D+01, .820751D+00, .597941D+00, .437726D+00, + .321626D+00, .237620D+00, .175693D+00, .130618D+00, + .970673D-01, .723466D-01, .539281D-01, .402183D-01, + .299578D-01, .222932D-01, .165415D-01, .122412D-01, + .902064D-02, .662305D-02, .483475D-02, .351174D-02, + .253274D-02, .181469D-02, .129166D-02, .910242D-03 / DATA (UPDI(I),I=885,936) / + .634796D-03, .438660D-03, .299648D-03, .202691D-03, + .135395D-03, .896163D-04, .586115D-04, .380300D-04, + .245491D-04, .159632D-04, .104447D-04, .699907D-05, + .482025D-05, .344493D-05, .253126D-05, .190473D-05, + .143474D-05, .106599D-05, .763182D-06, .515425D-06, + .318182D-06, .171458D-06, .739045D-07, .209272D-07, + .211150D-08, .000000D+00, .913142D+06, .686542D+06, + .506704D+06, .373630D+06, .275272D+06, .202593D+06, + .148968D+06, .109415D+06, .802846D+05, .588393D+05, + .430770D+05, .314966D+05, .230032D+05, .167770D+05, + .122209D+05, .888895D+04, .645683D+04, .468267D+04, + .339114D+04, .245161D+04, .176968D+04, .127509D+04, + .917226D+03, .658518D+03, .471959D+03, .337569D+03 / DATA (UPDI(I),I=937,988) / + .241103D+03, .171023D+03, .121703D+03, .864429D+02, + .613132D+02, .434212D+02, .307176D+02, .217317D+02, + .153591D+02, .108557D+02, .768100D+01, .544099D+01, + .386330D+01, .274936D+01, .196439D+01, .140817D+01, + .101372D+01, .732624D+00, .531891D+00, .387535D+00, + .283856D+00, .208060D+00, .153311D+00, .112921D+00, + .834089D-01, .616223D-01, .455453D-01, .336259D-01, + .248008D-01, .182421D-01, .133832D-01, .977950D-02, + .712067D-02, .515684D-02, .371693D-02, .266171D-02, + .189453D-02, .134079D-02, .940486D-03, .654044D-03, + .451716D-03, .309469D-03, .210891D-03, .142874D-03, + .967254D-04, .654793D-04, .446212D-04, .307744D-04, + .217108D-04, .156266D-04, .115463D-04, .870555D-05 / DATA (UPDI(I),I=989,1040) / + .666564D-05, .511872D-05, .390751D-05, .292289D-05, + .211412D-05, .145779D-05, .939245D-06, .549691D-06, + .278853D-06, .112495D-06, .299440D-07, .308051D-08, + .000000D+00, .130987D+07, .981482D+06, .721477D+06, + .529855D+06, .388782D+06, .284963D+06, .208668D+06, + .152625D+06, .111520D+06, .813848D+05, .593273D+05, + .431912D+05, .314064D+05, .228048D+05, .165377D+05, + .119747D+05, .865858D+04, .625055D+04, .450545D+04, + .324184D+04, .232890D+04, .166989D+04, .119531D+04, + .853889D+03, .608879D+03, .433249D+03, .307812D+03, + .217162D+03, .153695D+03, .108563D+03, .765664D+02, + .539111D+02, .379124D+02, .266603D+02, .187250D+02, + .131506D+02, .924355D+01, .650389D+01, .458591D+01 / DATA (UPDI(I),I=1041,1092) / + .324043D+01, .229821D+01, .163508D+01, .116793D+01, + .837395D+00, .603007D+00, .435722D+00, .316468D+00, + .229992D+00, .168009D+00, .122678D+00, .898270D-01, + .657921D-01, .482062D-01, .352863D-01, .258028D-01, + .188200D-01, .136928D-01, .992523D-02, .716949D-02, + .515295D-02, .368702D-02, .262254D-02, .185503D-02, + .130581D-02, .911986D-03, .632554D-03, .436615D-03, + .299848D-03, .205583D-03, .140851D-03, .969937D-04, + .672710D-04, .473017D-04, .338654D-04, .248559D-04, + .185979D-04, .141929D-04, .109562D-04, .849433D-05, + .654236D-05, .496238D-05, .366481D-05, .260113D-05, + .175286D-05, .109892D-05, .623140D-06, .304610D-06, + .117674D-06, .299865D-07, .312707D-08, .000000D+00 / DATA (UPDI(I),I=1093,1144) / + .179769D+07, .134239D+07, .982750D+06, .718781D+06, + .525226D+06, .383372D+06, .279550D+06, .203607D+06, + .148135D+06, .107641D+06, .781264D+05, .566283D+05, + .409946D+05, .296342D+05, .213931D+05, .154198D+05, + .110982D+05, .797436D+04, .572083D+04, .409672D+04, + .292878D+04, .208975D+04, .148841D+04, .105792D+04, + .750506D+03, .531239D+03, .375431D+03, .263424D+03, + .185416D+03, .130242D+03, .913324D+02, .639360D+02, + .446949D+02, .312400D+02, .218047D+02, .152161D+02, + .106251D+02, .742584D+01, .519975D+01, .364819D+01, + .256852D+01, .181376D+01, .128562D+01, .914588D+00, + .653324D+00, .468250D+00, .337295D+00, .243090D+00, + .176085D+00, .127493D+00, .925642D-01, .672304D-01 / DATA (UPDI(I),I=1145,1196) / + .488476D-01, .354605D-01, .257166D-01, .186061D-01, + .134295D-01, .965955D-02, .692495D-02, .494155D-02, + .351151D-02, .248205D-02, .174562D-02, .122288D-02, + .850879D-03, .588966D-03, .406513D-03, .279954D-03, + .193111D-03, .133679D-03, .934122D-04, .660520D-04, + .475234D-04, .348753D-04, .261996D-04, .199964D-04, + .154703D-04, .120285D-04, .932879D-05, .714791D-05, + .536571D-05, .390751D-05, .272473D-05, .179879D-05, + .110113D-05, .607401D-06, .287426D-06, .106867D-06, + .262025D-07, .276624D-08, .000000D+00, .238877D+07, + .177762D+07, .129602D+07, .943994D+06, .686917D+06, + .499289D+06, .362534D+06, .262921D+06, .190465D+06, + .137800D+06, .995771D+05, .718578D+05, .517873D+05 / DATA (UPDI(I),I=1197,1248) / + .372675D+05, .267811D+05, .192148D+05, .137653D+05, + .984434D+04, .702879D+04, .500920D+04, .356369D+04, + .253025D+04, .179315D+04, .126807D+04, .894974D+03, + .630181D+03, .442988D+03, .309128D+03, .216392D+03, + .151154D+03, .105394D+03, .733523D+02, .509730D+02, + .354131D+02, .245637D+02, .170326D+02, .118158D+02, + .820295D+01, .570446D+01, .397421D+01, .277785D+01, + .194712D+01, .136971D+01, .966924D+00, .685286D+00, + .487251D+00, .348160D+00, .248883D+00, .178806D+00, + .128404D+00, .924623D-01, .666125D-01, .480071D-01, + .345725D-01, .248740D-01, .178572D-01, .127911D-01, + .913280D-02, .650051D-02, .460735D-02, .325308D-02, + .228611D-02, .159953D-02, .111585D-02, .774054D-03 / DATA (UPDI(I),I=1249,1300) / + .535094D-03, .369595D-03, .255403D-03, .177308D-03, + .123970D-03, .877768D-04, .630781D-04, .461925D-04, + .344883D-04, .262864D-04, .202751D-04, .157686D-04, + .122637D-04, .946799D-05, .719397D-05, .533613D-05, + .382971D-05, .262449D-05, .169869D-05, .101654D-05, + .546247D-06, .250664D-06, .899072D-07, .212745D-07, + .227236D-08, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .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, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .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=1405,1456) / + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .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) / + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .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=1509,1560) / + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .841827D+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 / DATA (UPDI(I),I=1561,1612) / + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .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=1613,1664) / + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .527622D+05, .406569D+05, + .308831D+05, .234407D+05, .177827D+05, .134789D+05, + .102110D+05, .772836D+04, .584581D+04, .441753D+04, + .333602D+04, .251665D+04, .189719D+04, .142859D+04, + .107490D+04, .807799D+03, .606563D+03, .454856D+03, + .340785D+03, .254960D+03, .190570D+03, .142229D+03, + .106043D+03, .789389D+02, .586987D+02, .435841D+02 / DATA (UPDI(I),I=1665,1716) / + .323388D+02, .238542D+02, .176578D+02, .130520D+02, + .964505D+01, .712024D+01, .525765D+01, .388473D+01, + .287240D+01, .212582D+01, .157802D+01, .117400D+01, + .877444D+00, .658181D+00, .496904D+00, .376959D+00, + .287911D+00, .221060D+00, .170921D+00, .132769D+00, + .103854D+00, .813559D-01, .641465D-01, .505638D-01, + .399916D-01, .316134D-01, .250081D-01, .197426D-01, + .155701D-01, .122303D-01, .957678D-02, .745791D-02, + .578432D-02, .445384D-02, .340995D-02, .258800D-02, + .194899D-02, .145544D-02, .107375D-02, .780923D-03, + .560102D-03, .394280D-03, .272104D-03, .182446D-03, + .118240D-03, .725658D-04, .411182D-04, .196798D-04, + .595311D-05, .000000D+00, .000000D+00, .000000D+00 / DATA (UPDI(I),I=1717,1768) / + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .122362D+06, .939935D+05, .711393D+05, + .537997D+05, .406641D+05, .307091D+05, .231773D+05, + .174767D+05, .131696D+05, .991426D+04, .745832D+04, + .560483D+04, .420874D+04, .315681D+04, .236584D+04, + .177088D+04, .132435D+04, .989103D+03, .738005D+03, + .549866D+03, .409275D+03, .304171D+03, .225811D+03, + .167373D+03, .123914D+03, .916009D+02, .676603D+02, + .496798D+02, .366043D+02, .269312D+02, .198059D+02, + .145510D+02, .106910D+02, .785972D+01, .578096D+01, + .425569D+01, .314130D+01, .232370D+01, .172618D+01 / DATA (UPDI(I),I=1769,1820) / + .128677D+01, .965011D+00, .727056D+00, .551245D+00, + .420072D+00, .322204D+00, .248245D+00, .192527D+00, + .149520D+00, .116838D+00, .912742D-01, .715313D-01, + .560362D-01, .439239D-01, .343650D-01, .268581D-01, + .209120D-01, .162331D-01, .125365D-01, .964414D-02, + .736939D-02, .560180D-02, .422462D-02, .316444D-02, + .235357D-02, .173276D-02, .126135D-02, .909270D-03, + .647304D-03, .455834D-03, .316296D-03, .216795D-03, + .146062D-03, .969883D-04, .629969D-04, .403821D-04, + .251828D-04, .154079D-04, .911720D-05, .524585D-05, + .286959D-05, .149962D-05, .711948D-06, .306614D-06, + .100808D-06, .172526D-07, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / DATA (UPDI(I),I=1821,1872) / + .225588D+06, .162506D+06, .122549D+06, .923431D+05, + .695416D+05, .523243D+05, .393447D+05, .295572D+05, + .221892D+05, .166413D+05, .124711D+05, .933598D+04, + .698332D+04, .521752D+04, .389480D+04, .290379D+04, + .216289D+04, .160886D+04, .119552D+04, .887092D+03, + .657523D+03, .486620D+03, .359718D+03, .265485D+03, + .195694D+03, .144027D+03, .105906D+03, .774059D+02, + .567692D+02, .415737D+02, .304281D+02, .222474D+02, + .162641D+02, .118970D+02, .870453D+01, .637388D+01, + .467853D+01, .344118D+01, .254095D+01, .188252D+01, + .140259D+01, .104966D+01, .790192D+00, .597792D+00, + .455005D+00, .347829D+00, .267569D+00, .206097D+00, + .159683D+00, .123688D+00, .960958D-01, .746381D-01 / DATA (UPDI(I),I=1873,1924) / + .579993D-01, .449917D-01, .348616D-01, .269161D-01, + .207193D-01, .158715D-01, .121111D-01, .918302D-02, + .692740D-02, .518707D-02, .385895D-02, .285222D-02, + .208823D-02, .151358D-02, .108799D-02, .774089D-03, + .546364D-03, .381674D-03, .264888D-03, .182272D-03, + .124999D-03, .852675D-04, .585411D-04, .402422D-04, + .280221D-04, .196932D-04, .140519D-04, .100949D-04, + .730397D-05, .523992D-05, .370172D-05, .252567D-05, + .163867D-05, .981175D-06, .521386D-06, .226757D-06, + .665588D-07, .663982D-08, .000000D+00, .355526D+06, + .271218D+06, .203634D+06, .152771D+06, .114538D+06, + .857981D+05, .642244D+05, .480309D+05, .358930D+05, + .267959D+05, .199879D+05, .148937D+05, .110880D+05 / DATA (UPDI(I),I=1925,1976) / + .824526D+04, .612541D+04, .454496D+04, .336876D+04, + .249362D+04, .184374D+04, .136127D+04, .100386D+04, + .739160D+03, .543559D+03, .399079D+03, .292605D+03, + .214196D+03, .156640D+03, .113847D+03, .830228D+02, + .604563D+02, .439890D+02, .319737D+02, .232317D+02, + .168899D+02, .122781D+02, .893251D+01, .651190D+01, + .475670D+01, .348671D+01, .256410D+01, .189540D+01, + .140714D+01, .105034D+01, .787778D+00, .594182D+00, + .450072D+00, .342926D+00, .261620D+00, .200701D+00, + .153934D+00, .118394D+00, .910514D-01, .700426D-01, + .537989D-01, .412674D-01, .315494D-01, .240443D-01, + .182393D-01, .137787D-01, .103445D-01, .772370D-02, + .572389D-02, .421174D-02, .307725D-02, .222423D-02 / DATA (UPDI(I),I=1977,2028) / + .158962D-02, .112403D-02, .784410D-03, .540472D-03, + .366286D-03, .244289D-03, .159426D-03, .101700D-03, + .628110D-04, .375967D-04, .212713D-04, .112165D-04, + .515913D-05, .176742D-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, .544803D+06, .414016D+06, + .309454D+06, .231118D+06, .172491D+06, .128622D+06, + .958383D+05, .713432D+05, .530655D+05, .394307D+05, + .292735D+05, .217092D+05, .160843D+05, .119029D+05, + .879951D+04, .649707D+04, .479174D+04, .352923D+04, + .259624D+04, .190711D+04, .139912D+04, .102484D+04, + .749666D+03, .547478D+03, .399244D+03, .290662D+03 / DATA (UPDI(I),I=2029,2080) / + .211376D+03, .152756D+03, .110759D+03, .801886D+02, + .580009D+02, .419063D+02, .302610D+02, .218635D+02, + .157910D+02, .114129D+02, .826328D+01, .599409D+01, + .436183D+01, .318389D+01, .233528D+01, .171993D+01, + .127314D+01, .946800D+00, .707818D+00, .531339D+00, + .401109D+00, .303153D+00, .230340D+00, .174975D+00, + .133271D+00, .101509D+00, .773292D-01, .588268D-01, + .446881D-01, .338406D-01, .255461D-01, .191992D-01, + .143694D-01, .106911D-01, .791117D-02, .581265D-02, + .424110D-02, .307403D-02, .220508D-02, .156546D-02, + .110070D-02, .765114D-03, .526230D-03, .357285D-03, + .239867D-03, .158812D-03, .103897D-03, .670257D-04, + .430114D-04, .272767D-04, .172835D-04, .109401D-04 / DATA (UPDI(I),I=2081,2132) / + .699652D-05, .451689D-05, .297436D-05, .197730D-05, + .132623D-05, .875643D-06, .560351D-06, .334715D-06, + .178932D-06, .778408D-07, .224575D-07, .223748D-08, + .000000D+00, .789994D+06, .598034D+06, .444978D+06, + .330828D+06, .245780D+06, .182430D+06, .135302D+06, + .100251D+06, .742168D+05, .548867D+05, .405537D+05, + .299303D+05, .220678D+05, .162512D+05, .119549D+05, + .878303D+04, .644521D+04, .472307D+04, .345672D+04, + .252612D+04, .184358D+04, .134331D+04, .977388D+03, + .709944D+03, .514900D+03, .372787D+03, .269576D+03, + .193695D+03, .139632D+03, .100502D+03, .722598D+02, + .518929D+02, .372398D+02, .267366D+02, .191851D+02, + .137743D+02, .990472D+01, .713463D+01, .515416D+01 / DATA (UPDI(I),I=2133,2184) / + .373437D+01, .271792D+01, .198594D+01, .145800D+01, + .107521D+01, .796859D+00, .592917D+00, .443565D+00, + .332188D+00, .250058D+00, .188187D+00, .141988D+00, + .107142D+00, .808546D-01, .609383D-01, .458608D-01, + .344107D-01, .257396D-01, .191721D-01, .142214D-01, + .104896D-01, .769575D-02, .560802D-02, .405904D-02, + .291977D-02, .207945D-02, .146705D-02, .102608D-02, + .710652D-03, .487980D-03, .331846D-03, .224067D-03, + .150135D-03, .100204D-03, .667241D-04, .447917D-04, + .302378D-04, .207357D-04, .144436D-04, .102487D-04, + .735649D-05, .531694D-05, .381489D-05, .268286D-05, + .181716D-05, .116198D-05, .680497D-06, .348801D-06, + .143273D-06, .389117D-07, .396932D-08, .000000D+00 / DATA (UPDI(I),I=2185,2236) / + .110230D+07, .831236D+06, .615691D+06, .455663D+06, + .336969D+06, .248960D+06, .183784D+06, .135536D+06, + .998642D+05, .735028D+05, .540477D+05, .396967D+05, + .291258D+05, .213436D+05, .156231D+05, .114206D+05, + .833841D+04, .607931D+04, .442643D+04, .321799D+04, + .233618D+04, .169322D+04, .122537D+04, .885241D+03, + .638510D+03, .459701D+03, .330546D+03, .236125D+03, + .169229D+03, .121090D+03, .865385D+02, .617686D+02, + .440503D+02, .314262D+02, .224032D+02, .159779D+02, + .114106D+02, .816189D+01, .585367D+01, .420985D+01, + .304054D+01, .220427D+01, .160521D+01, .117400D+01, + .862683D+00, .636353D+00, .471875D+00, .350244D+00, + .261270D+00, .194844D+00, .145671D+00, .108928D+00 / DATA (UPDI(I),I=2237,2288) / + .814567D-01, .608407D-01, .453756D-01, .337454D-01, + .250204D-01, .184762D-01, .135882D-01, .993954D-02, + .723283D-02, .522961D-02, .375656D-02, .268301D-02, + .189825D-02, .133164D-02, .927116D-03, .640236D-03, + .439251D-03, .299376D-03, .203367D-03, .137819D-03, + .936230D-04, .639526D-04, .443578D-04, .311616D-04, + .223112D-04, .162311D-04, .119651D-04, .885568D-05, + .652756D-05, .473110D-05, .332549D-05, .223465D-05, + .140649D-05, .805442D-06, .400430D-06, .158310D-06, + .413328D-07, .427215D-08, .000000D+00, .149360D+07, + .112199D+07, .827278D+06, .609466D+06, .448637D+06, + .329930D+06, .242422D+06, .177940D+06, .130488D+06, + .955849D+05, .699470D+05, .511255D+05, .373278D+05 / DATA (UPDI(I),I=2289,2340) / + .272193D+05, .198249D+05, .144195D+05, .104746D+05, + .759775D+04, .550346D+04, .398014D+04, .287426D+04, + .207212D+04, .149150D+04, .107163D+04, .768691D+03, + .550324D+03, .393461D+03, .279431D+03, .199099D+03, + .141622D+03, .100603D+03, .713684D+02, .505784D+02, + .358548D+02, .253936D+02, .179903D+02, .127599D+02, + .906340D+01, .645353D+01, .460715D+01, .330227D+01, + .237546D+01, .171607D+01, .124489D+01, .907144D+00, + .663484D+00, .487768D+00, .358893D+00, .265369D+00, + .196156D+00, .145356D+00, .107739D+00, .798594D-01, + .591287D-01, .437157D-01, .322333D-01, .236971D-01, + .173542D-01, .126586D-01, .918621D-02, .663288D-02, + .476045D-02, .339533D-02, .240908D-02, .169427D-02 / DATA (UPDI(I),I=2341,2392) / + .118264D-02, .820280D-03, .565310D-03, .387895D-03, + .265211D-03, .181377D-03, .124318D-03, .858399D-04, + .599107D-04, .426088D-04, .307615D-04, .226062D-04, + .168223D-04, .126068D-04, .942395D-05, .696460D-05, + .503127D-05, .350364D-05, .232211D-05, .143453D-05, + .802531D-06, .387421D-06, .147752D-06, .371736D-07, + .388860D-08, .000000D+00, .197611D+07, .147880D+07, + .108544D+07, .796026D+06, .583284D+06, .426974D+06, + .312267D+06, .228135D+06, .166507D+06, .121389D+06, + .884037D+05, .643034D+05, .467200D+05, .339004D+05, + .245682D+05, .177801D+05, .128504D+05, .927343D+04, + .668258D+04, .480772D+04, .345359D+04, .247653D+04, + .177299D+04, .126695D+04, .903779D+03, .643409D+03 / DATA (UPDI(I),I=2393,2444) / + .457403D+03, .322952D+03, .228768D+03, .161765D+03, + .114220D+03, .805347D+02, .567186D+02, .399531D+02, + .281123D+02, .197845D+02, .139371D+02, .983090D+01, + .695012D+01, .492552D+01, .350401D+01, .250128D+01, + .179278D+01, .129013D+01, .932430D+00, .676322D+00, + .493036D+00, .359688D+00, .263683D+00, .193238D+00, + .141965D+00, .104329D+00, .766738D-01, .562918D-01, + .412691D-01, .301784D-01, .220058D-01, .159874D-01, + .115703D-01, .833285D-02, .597252D-02, .425672D-02, + .301601D-02, .212707D-02, .148798D-02, .103426D-02, + .715280D-03, .492423D-03, .338279D-03, .232250D-03, + .160024D-03, .110938D-03, .777672D-04, .552771D-04, + .400851D-04, .294965D-04, .220272D-04, .165858D-04 / DATA (UPDI(I),I=2445,2496) / + .125079D-04, .936014D-05, .688842D-05, .493470D-05, + .339342D-05, .221348D-05, .134074D-05, .732444D-06, + .343474D-06, .126500D-06, .307225D-07, .325112D-08, + .000000D+00, .256201D+07, .191003D+07, .139567D+07, + .101893D+07, .743218D+06, .541558D+06, .394238D+06, + .286681D+06, .208255D+06, .151107D+06, .109521D+06, + .792802D+05, .573215D+05, .413893D+05, .298472D+05, + .214927D+05, .154553D+05, .110966D+05, .795525D+04, + .569364D+04, .406852D+04, .290201D+04, .206645D+04, + .146864D+04, .104190D+04, .737596D+03, .521398D+03, + .366002D+03, .257759D+03, .181195D+03, .127173D+03, + .891230D+02, .623780D+02, .436632D+02, .305245D+02, + .213409D+02, .149321D+02, .104603D+02, .734294D+01 / DATA (UPDI(I),I=2497,2548) / + .516642D+01, .364822D+01, .258457D+01, .183816D+01, + .131241D+01, .940933D+00, .676950D+00, .489453D+00, + .354116D+00, .257438D+00, .187087D+00, .136301D+00, + .993391D-01, .724044D-01, .527237D-01, .383400D-01, + .278134D-01, .201223D-01, .145072D-01, .104204D-01, + .745059D-02, .530306D-02, .375494D-02, .264425D-02, + .185473D-02, .129144D-02, .894546D-03, .617404D-03, + .425003D-03, .292604D-03, .201907D-03, .140239D-03, + .983164D-04, .698764D-04, .504350D-04, .371224D-04, + .276760D-04, .208638D-04, .157921D-04, .119160D-04, + .888480D-05, .648857D-05, .459782D-05, .311721D-05, + .199904D-05, .118658D-05, .632871D-06, .288365D-06, + .102652D-06, .241076D-07, .257998D-08, .000000D+00 / DATA (UPDI(I),I=2549,2600) / + .648840D+04, .185518D+04, .153824D+04, .127545D+04, + .105756D+04, .876895D+03, .727094D+03, .602886D+03, + .499899D+03, .414506D+03, .343703D+03, .284996D+03, + .236319D+03, .195959D+03, .162494D+03, .134746D+03, + .111739D+03, .926622D+02, .768449D+02, .637299D+02, + .528554D+02, .438388D+02, .363625D+02, .301635D+02, + .250234D+02, .207613D+02, .172271D+02, .142588D+02, + .118361D+02, .982680D+01, .816031D+01, .677805D+01, + .563144D+01, .468281D+01, .389367D+01, .323908D+01, + .269596D+01, .224515D+01, .187077D+01, .155952D+01, + .130092D+01, .108550D+01, .905921D+00, .756033D+00, + .630772D+00, .525974D+00, .438506D+00, .364723D+00, + .303207D+00, .251279D+00, .207891D+00, .171515D+00 / DATA (UPDI(I),I=2601,2652) / + .141052D+00, .115580D+00, .943234D-01, .766293D-01, + .619455D-01, .498038D-01, .398055D-01, .316107D-01, + .249287D-01, .195113D-01, .151468D-01, .116691D-01, + .888976D-02, .670206D-02, .499558D-02, .367767D-02, + .267091D-02, .191106D-02, .134513D-02, .929771D-03, + .629701D-03, .416684D-03, .269786D-03, .169281D-03, + .102842D-03, .601993D-04, .337483D-04, .179830D-04, + .901985D-05, .421024D-05, .178778D-05, .678974D-06, + .221797D-06, .589853D-07, .116459D-07, .143597D-08, + .749920D-10, .479058D-12, .000000D+00, .170367D+05, + .136042D+05, .107632D+05, .851372D+04, .673594D+04, + .532820D+04, .421573D+04, .333477D+04, .263864D+04, + .208732D+04, .165171D+04, .130667D+04, .103406D+04 / DATA (UPDI(I),I=2653,2704) / + .818117D+03, .647510D+03, .512342D+03, .405561D+03, + .320946D+03, .254104D+03, .201131D+03, .159291D+03, + .126126D+03, .999307D+02, .791627D+02, .627587D+02, + .497558D+02, .394833D+02, .312387D+02, .248278D+02, + .197391D+02, .157198D+02, .125274D+02, .100049D+02, + .800437D+01, .641838D+01, .515578D+01, .415602D+01, + .335790D+01, .272390D+01, .221532D+01, .180954D+01, + .148188D+01, .121822D+01, .100362D+01, .829363D+00, + .686221D+00, .569273D+00, .471755D+00, .391654D+00, + .324398D+00, .268682D+00, .222001D+00, .183077D+00, + .150457D+00, .123273D+00, .100534D+00, .816362D-01, + .659206D-01, .529608D-01, .422649D-01, .335227D-01, + .263891D-01, .206194D-01, .159998D-01, .122853D-01 / DATA (UPDI(I),I=2705,2756) / + .933410D-02, .701610D-02, .520846D-02, .381593D-02, + .275082D-02, .194762D-02, .134611D-02, .904398D-03, + .580455D-03, .352330D-03, .190954D-03, .805233D-04, + .815274D-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, .445524D+05, .351208D+05, + .273853D+05, .213459D+05, .166384D+05, .129642D+05, + .101014D+05, .786766D+04, .612796D+04, .477100D+04, + .371461D+04, .289089D+04, .224992D+04, .175029D+04, + .136170D+04, .105889D+04, .823497D+03, .640125D+03, + .497651D+03, .386706D+03, .300560D+03, .233503D+03, + .181461D+03, .140964D+03, .109551D+03, .851241D+02 / DATA (UPDI(I),I=2757,2808) / + .661907D+02, .512894D+02, .399247D+02, .310855D+02, + .242408D+02, .189169D+02, .147940D+02, .115934D+02, + .910765D+01, .717087D+01, .566875D+01, .449482D+01, + .358117D+01, .286325D+01, .230164D+01, .185690D+01, + .150547D+01, .122444D+01, .999973D+00, .818398D+00, + .672154D+00, .551778D+00, .454133D+00, .373045D+00, + .306566D+00, .251407D+00, .205841D+00, .167993D+00, + .136721D+00, .110776D+00, .893896D-01, .717513D-01, + .573273D-01, .455210D-01, .359556D-01, .282151D-01, + .220117D-01, .170858D-01, .131613D-01, .100684D-01, + .766129D-02, .579800D-02, .437343D-02, .328804D-02, + .247203D-02, .185906D-02, .140299D-02, .106192D-02, + .811813D-03, .622936D-03, .481177D-03, .372448D-03 / DATA (UPDI(I),I=2809,2860) / + .288463D-03, .221785D-03, .168776D-03, .125727D-03, + .910480D-04, .632644D-04, .416179D-04, .252497D-04, + .136569D-04, .613455D-05, .188685D-05, .186636D-06, + .000000D+00, .627748D+05, .674057D+05, .520731D+05, + .402106D+05, .310462D+05, .239593D+05, .184875D+05, + .142584D+05, .109952D+05, .847448D+04, .653071D+04, + .503012D+04, .387376D+04, .298159D+04, .229459D+04, + .176486D+04, .135726D+04, .104317D+04, .801685D+03, + .615734D+03, .472899D+03, .362991D+03, .278635D+03, + .213771D+03, .164030D+03, .125823D+03, .965629D+02, + .738211D+02, .566885D+02, .435377D+02, .334808D+02, + .257641D+02, .198640D+02, .153477D+02, .118856D+02, + .922648D+01, .719126D+01, .562346D+01, .441937D+01 / DATA (UPDI(I),I=2861,2912) / + .348673D+01, .276669D+01, .220445D+01, .176574D+01, + .141964D+01, .114654D+01, .928420D+00, .754752D+00, + .613487D+00, .500147D+00, .407070D+00, .331536D+00, + .269530D+00, .218805D+00, .177100D+00, .142962D+00, + .114916D+00, .920093D-01, .732988D-01, .581347D-01, + .458400D-01, .359675D-01, .280520D-01, .217642D-01, + .168138D-01, .129036D-01, .984855D-02, .749029D-02, + .567882D-02, .430318D-02, .326115D-02, .248077D-02, + .189575D-02, .145946D-02, .113169D-02, .888265D-03, + .701227D-03, .557480D-03, .443717D-03, .352866D-03, + .277908D-03, .216277D-03, .164426D-03, .121390D-03, + .859425D-04, .576158D-04, .356688D-04, .197173D-04, + .910022D-05, .292850D-05, .286945D-06, .000000D+00 / DATA (UPDI(I),I=2913,2964) / + .137513D+06, .106912D+06, .820596D+05, .629556D+05, + .482868D+05, .370176D+05, .283709D+05, .217327D+05, + .166431D+05, .127386D+05, .974726D+04, .745417D+04, + .569884D+04, .435429D+04, .332596D+04, .253892D+04, + .193754D+04, .147766D+04, .112660D+04, .858390D+03, + .653876D+03, .497777D+03, .378869D+03, .288199D+03, + .219206D+03, .166664D+03, .126753D+03, .960024D+02, + .730300D+02, .555591D+02, .423106D+02, .322420D+02, + .246095D+02, .188250D+02, .144295D+02, .110876D+02, + .855272D+01, .662005D+01, .514913D+01, .402166D+01, + .315912D+01, .249260D+01, .197717D+01, .157476D+01, + .126005D+01, .101123D+01, .814864D+00, .656702D+00, + .530912D+00, .428599D+00, .346274D+00, .279326D+00 / DATA (UPDI(I),I=2965,3016) / + .225012D+00, .180762D+00, .144829D+00, .115569D+00, + .918586D-01, .726579D-01, .572139D-01, .447974D-01, + .349002D-01, .270295D-01, .208212D-01, .159703D-01, + .121651D-01, .921498D-02, .695301D-02, .522824D-02, + .392674D-02, .294798D-02, .221939D-02, .167704D-02, + .127539D-02, .976023D-03, .755343D-03, .587534D-03, + .459895D-03, .360364D-03, .281968D-03, .218554D-03, + .167259D-03, .125071D-03, .907307D-04, .630902D-04, + .414845D-04, .251528D-04, .135858D-04, .609686D-05, + .189705D-05, .187373D-06, .000000D+00, .205731D+06, + .159159D+06, .121467D+06, .926559D+05, .706553D+05, + .538497D+05, .410273D+05, .312405D+05, .237797D+05, + .180901D+05, .137565D+05, .104547D+05, .794216D+04 / DATA (UPDI(I),I=3017,3068) / + .602959D+04, .457571D+04, .347006D+04, .263046D+04, + .199261D+04, .150880D+04, .114164D+04, .863498D+03, + .652666D+03, .493137D+03, .372358D+03, .281083D+03, + .212079D+03, .160036D+03, .120240D+03, .907275D+02, + .684588D+02, .516970D+02, .390614D+02, .295556D+02, + .224117D+02, .170251D+02, .129649D+02, .990943D+01, + .760035D+01, .585701D+01, .453268D+01, .352776D+01, + .275825D+01, .216801D+01, .171142D+01, .135727D+01, + .107984D+01, .862715D+00, .689433D+00, .552773D+00, + .442634D+00, .354752D+00, .283937D+00, .226959D+00, + .180952D+00, .143894D+00, .113983D+00, .899398D-01, + .706360D-01, .552296D-01, .429474D-01, .332316D-01, + .255681D-01, .195676D-01, .149146D-01, .112910D-01 / DATA (UPDI(I),I=3069,3120) / + .850340D-02, .638077D-02, .477382D-02, .356875D-02, + .266841D-02, .200162D-02, .150786D-02, .114364D-02, + .873146D-03, .674007D-03, .522859D-03, .407853D-03, + .318312D-03, .247739D-03, .190880D-03, .144951D-03, + .107472D-03, .771412D-04, .530018D-04, .343425D-04, + .204595D-04, .108054D-04, .469816D-05, .139731D-05, + .139576D-06, .000000D+00, .205284D+06, .226629D+06, + .172066D+06, .130569D+06, .990420D+05, .750839D+05, + .568982D+05, .430909D+05, .326202D+05, .246781D+05, + .186612D+05, .141019D+05, .106515D+05, .803966D+04, + .606527D+04, .457240D+04, .344521D+04, .259390D+04, + .195194D+04, .146770D+04, .110305D+04, .828360D+03, + .621778D+03, .466372D+03, .349666D+03, .262009D+03 / DATA (UPDI(I),I=3121,3172) / + .196328D+03, .146442D+03, .109694D+03, .821604D+02, + .615753D+02, .461698D+02, .346603D+02, .260750D+02, + .196473D+02, .148395D+02, .112476D+02, .855444D+01, + .653607D+01, .501516D+01, .386972D+01, .299977D+01, + .233758D+01, .182962D+01, .143869D+01, .113505D+01, + .899312D+00, .712798D+00, .566890D+00, .450325D+00, + .358078D+00, .284396D+00, .225595D+00, .178524D+00, + .140914D+00, .110815D+00, .868149D-01, .677058D-01, + .525723D-01, .406062D-01, .312117D-01, .238601D-01, + .181455D-01, .137467D-01, .103456D-01, .774846D-02, + .578419D-02, .430718D-02, .320616D-02, .238850D-02, + .178585D-02, .134167D-02, .101517D-02, .773410D-03, + .595591D-03, .460799D-03, .358208D-03, .278420D-03 / DATA (UPDI(I),I=3173,3224) / + .215543D-03, .165065D-03, .124394D-03, .914531D-04, + .649717D-04, .441258D-04, .281948D-04, .165211D-04, + .854450D-05, .360979D-05, .103289D-05, .104222D-06, + .000000D+00, .436014D+06, .334117D+06, .252197D+06, + .190256D+06, .143462D+06, .108110D+06, .814299D+05, + .612943D+05, .461138D+05, .346695D+05, .260511D+05, + .195611D+05, .146795D+05, .110079D+05, .824964D+04, + .617765D+04, .462315D+04, .345697D+04, .258328D+04, + .192877D+04, .143918D+04, .107296D+04, .799430D+03, + .595148D+03, .442815D+03, .329242D+03, .244762D+03, + .181088D+03, .134537D+03, .999333D+02, .742591D+02, + .552016D+02, .410747D+02, .306255D+02, .228646D+02, + .171098D+02, .128455D+02, .967656D+01, .732142D+01 / DATA (UPDI(I),I=3225,3276) / + .556292D+01, .424985D+01, .326188D+01, .251642D+01, + .195010D+01, .151816D+01, .118598D+01, .930470D+00, + .730353D+00, .575285D+00, .452676D+00, .356583D+00, + .280620D+00, .220583D+00, .173010D+00, .135359D+00, + .105531D+00, .819709D-01, .633952D-01, .488174D-01, + .374007D-01, .285162D-01, .216274D-01, .163173D-01, + .122648D-01, .915711D-02, .680425D-02, .503860D-02, + .372142D-02, .274658D-02, .202802D-02, .150190D-02, + .111687D-02, .835754D-03, .629170D-03, .478322D-03, + .365019D-03, .279638D-03, .214079D-03, .163129D-03, + .122917D-03, .910727D-04, .658057D-04, .459042D-04, + .305865D-04, .191483D-04, .109751D-04, .553860D-05, + .227335D-05, .630952D-06, .641893D-07, .000000D+00 / DATA (UPDI(I),I=3277,3328) / + .623764D+06, .475713D+06, .357084D+06, .267877D+06, + .200851D+06, .150496D+06, .112703D+06, .843414D+05, + .630803D+05, .471442D+05, .352123D+05, .262800D+05, + .196007D+05, .146072D+05, .108784D+05, .809452D+04, + .601873D+04, .447129D+04, .331922D+04, .246173D+04, + .182442D+04, .135085D+04, .999461D+03, .738812D+03, + .545759D+03, .402820D+03, .297236D+03, .218229D+03, + .160884D+03, .118572D+03, .874065D+02, .644492D+02, + .475580D+02, .351622D+02, .260256D+02, .193052D+02, + .143642D+02, .107229D+02, .803834D+01, .605091D+01, + .457902D+01, .348123D+01, .265990D+01, .204156D+01, + .157407D+01, .121789D+01, .946396D+00, .735806D+00, + .574129D+00, .447559D+00, .349301D+00, .272402D+00 / DATA (UPDI(I),I=3329,3380) / + .212201D+00, .164969D+00, .127942D+00, .988947D-01, + .761683D-01, .584217D-01, .446213D-01, .339154D-01, + .256579D-01, .193137D-01, .144650D-01, .107961D-01, + .800622D-02, .591187D-02, .435247D-02, .319806D-02, + .234954D-02, .172823D-02, .127578D-02, .946313D-03, + .706613D-03, .530981D-03, .402853D-03, .306683D-03, + .234173D-03, .178527D-03, .135293D-03, .101271D-03, + .744148D-04, .532609D-04, .367244D-04, .241446D-04, + .148715D-04, .835805D-05, .411242D-05, .163057D-05, + .433473D-06, .446395D-07, .000000D+00, .867454D+06, + .658550D+06, .491690D+06, .366873D+06, .273585D+06, + .203872D+06, .151830D+06, .112989D+06, .840291D+05, + .624428D+05, .463701D+05, .344060D+05, .255104D+05 / DATA (UPDI(I),I=3381,3432) / + .188982D+05, .139892D+05, .103458D+05, .764527D+04, + .564419D+04, .416342D+04, .306809D+04, .225903D+04, + .166164D+04, .122120D+04, .896617D+03, .657775D+03, + .482100D+03, .353207D+03, .257426D+03, .188386D+03, + .137807D+03, .100812D+03, .737587D+02, .539971D+02, + .396030D+02, .290714D+02, .213846D+02, .157756D+02, + .116746D+02, .867451D+01, .647151D+01, .485287D+01, + .365569D+01, .276734D+01, .210434D+01, .160733D+01, + .123203D+01, .948493D+00, .730599D+00, .564823D+00, + .436284D+00, .337424D+00, .260801D+00, .201374D+00, + .155196D+00, .119330D+00, .914635D-01, .698621D-01, + .531515D-01, .402731D-01, .303740D-01, .228053D-01, + .170418D-01, .126735D-01, .939556D-02, .692329D-02 / DATA (UPDI(I),I=3433,3484) / + .508245D-02, .372209D-02, .272231D-02, .199218D-02, + .146078D-02, .107568D-02, .796436D-03, .593848D-03, + .445692D-03, .337625D-03, .256500D-03, .195268D-03, + .148275D-03, .111772D-03, .831241D-04, .605901D-04, + .429650D-04, .292944D-04, .190123D-04, .115296D-04, + .635985D-05, .305529D-05, .117343D-05, .300240D-06, + .312708D-07, .000000D+00, .117828D+07, .890591D+06, + .661499D+06, .491006D+06, .364227D+06, .269977D+06, + .199983D+06, .148017D+06, .109477D+06, .809041D+05, + .597439D+05, .440790D+05, .324958D+05, .239341D+05, + .176135D+05, .129494D+05, .951197D+04, .697984D+04, + .511711D+04, .374749D+04, .274192D+04, .200399D+04, + .146329D+04, .106732D+04, .777796D+03, .566207D+03 / DATA (UPDI(I),I=3485,3536) / + .411977D+03, .298135D+03, .216631D+03, .157327D+03, + .114246D+03, .829645D+02, .602735D+02, .438647D+02, + .319447D+02, .233090D+02, .170538D+02, .125152D+02, + .921992D+01, .681907D+01, .506866D+01, .378443D+01, + .283912D+01, .213948D+01, .161934D+01, .122997D+01, + .938339D+00, .716233D+00, .548741D+00, .420075D+00, + .322017D+00, .246724D+00, .188862D+00, .144317D+00, + .110034D+00, .836447D-01, .633733D-01, .478340D-01, + .359631D-01, .269197D-01, .200642D-01, .148884D-01, + .109973D-01, .810101D-02, .593380D-02, .433263D-02, + .315784D-02, .230028D-02, .167776D-02, .122714D-02, + .901958D-03, .666969D-03, .496841D-03, .372543D-03, + .281828D-03, .213671D-03, .162159D-03, .122614D-03 / DATA (UPDI(I),I=3537,3588) / + .919120D-04, .678852D-04, .490664D-04, .344549D-04, + .232193D-04, .148681D-04, .887272D-05, .480106D-05, + .225099D-05, .837715D-06, .206873D-06, .217834D-07, + .000000D+00, .156812D+07, .118020D+07, .872196D+06, + .644117D+06, .475358D+06, .350530D+06, .258296D+06, + .190169D+06, .139905D+06, .102834D+06, .755247D+05, + .554158D+05, .406262D+05, .297542D+05, .217721D+05, + .159146D+05, .116221D+05, .847797D+04, .617835D+04, + .449735D+04, .327043D+04, .237544D+04, .172361D+04, + .124918D+04, .904434D+03, .654057D+03, .472719D+03, + .339742D+03, .245163D+03, .176804D+03, .127475D+03, + .919010D+02, .662726D+02, .478692D+02, .345937D+02, + .250450D+02, .181780D+02, .132323D+02, .966782D+01 / DATA (UPDI(I),I=3589,3640) / + .709053D+01, .522563D+01, .386809D+01, .287662D+01, + .214875D+01, .161201D+01, .121358D+01, .917667D+00, + .694263D+00, .527245D+00, .400095D+00, .304052D+00, + .230976D+00, .175316D+00, .132854D+00, .100463D+00, + .757554D-01, .569433D-01, .426497D-01, .318239D-01, + .236478D-01, .175012D-01, .128992D-01, .946659D-02, + .693139D-02, .504884D-02, .366825D-02, .266217D-02, + .193240D-02, .140555D-02, .102602D-02, .753123D-03, + .556446D-03, .414249D-03, .310374D-03, .234481D-03, + .177386D-03, .134173D-03, .100990D-03, .752525D-04, + .551756D-04, .395286D-04, .274740D-04, .182915D-04, + .115500D-04, .677928D-05, .359630D-05, .164482D-05, + .593230D-06, .141674D-06, .150790D-07, .000000D+00 / DATA (UPDI(I),I=3641,3692) / + .204920D+07, .153588D+07, .112948D+07, .829995D+06, + .609475D+06, .447161D+06, .327821D+06, .240115D+06, + .175730D+06, .128488D+06, .938647D+05, .685029D+05, + .499479D+05, .363806D+05, .264729D+05, .192421D+05, + .139721D+05, .101336D+05, .734189D+04, .531281D+04, + .384033D+04, .277249D+04, .199936D+04, .144002D+04, + .103602D+04, .744402D+03, .534513D+03, .381581D+03, + .273508D+03, .195903D+03, .140266D+03, .100410D+03, + .718889D+02, .515476D+02, .369743D+02, .265656D+02, + .191325D+02, .138178D+02, .100147D+02, .728529D+01, + .532483D+01, .390858D+01, .288213D+01, .213452D+01, + .158758D+01, .118489D+01, .888274D+00, .666231D+00, + .501628D+00, .377411D+00, .284396D+00, .214246D+00 / DATA (UPDI(I),I=3693,3744) / + .161278D+00, .121224D+00, .909359D-01, .680333D-01, + .507460D-01, .377231D-01, .279422D-01, .206168D-01, + .151544D-01, .110973D-01, .809424D-02, .589291D-02, + .427022D-02, .308854D-02, .223293D-02, .161592D-02, + .117270D-02, .854764D-03, .626834D-03, .462894D-03, + .344447D-03, .257878D-03, .194536D-03, .146808D-03, + .110638D-03, .828638D-04, .613540D-04, .446378D-04, + .316841D-04, .217869D-04, .143240D-04, .891481D-05, + .514412D-05, .267396D-05, .119257D-05, .416945D-06, + .964641D-07, .103761D-07, .000000D+00, .263368D+07, + .196600D+07, .143885D+07, .105222D+07, .768886D+06, + .561339D+06, .409477D+06, .298416D+06, .217288D+06, + .158058D+06, .114866D+06, .833902D+05, .604799D+05 / DATA (UPDI(I),I=3745,3796) / + .438154D+05, .317098D+05, .229220D+05, .165516D+05, + .119370D+05, .859920D+04, .618677D+04, .444594D+04, + .319072D+04, .228717D+04, .163729D+04, .117069D+04, + .835881D+03, .596385D+03, .422967D+03, .301189D+03, + .214298D+03, .152400D+03, .108348D+03, .770292D+02, + .548417D+02, .390518D+02, .278514D+02, .199077D+02, + .142677D+02, .102604D+02, .740499D+01, .536887D+01, + .390885D+01, .285860D+01, .209953D+01, .154850D+01, + .114601D+01, .851937D+00, .633603D+00, .473081D+00, + .352972D+00, .263791D+00, .197109D+00, .147185D+00, + .109755D+00, .816897D-01, .606487D-01, .448993D-01, + .331337D-01, .243688D-01, .178576D-01, .130403D-01, + .949012D-02, .688167D-02, .498339D-02, .359387D-02 / DATA (UPDI(I),I=3797,3848) / + .258871D-02, .186526D-02, .134637D-02, .975318D-03, + .710106D-03, .520430D-03, .384190D-03, .285766D-03, + .213759D-03, .160980D-03, .121148D-03, .909311D-04, + .677383D-04, .498154D-04, .359475D-04, .252697D-04, + .171835D-04, .111518D-04, .683781D-05, .387728D-05, + .197402D-05, .858292D-06, .290992D-06, .653276D-07, + .710014D-08, .000000D+00, .463332D+04, .556996D+04, + .461891D+04, .383030D+04, .317638D+04, .263414D+04, + .218450D+04, .181166D+04, .150248D+04, .124610D+04, + .103349D+04, .857191D+03, .710990D+03, .589748D+03, + .489205D+03, .405823D+03, .336674D+03, .279327D+03, + .231766D+03, .192321D+03, .159606D+03, .132472D+03, + .109966D+03, .912986D+02, .758145D+02, .629703D+02 / DATA (UPDI(I),I=3849,3900) / + .523156D+02, .433629D+02, .360526D+02, .299871D+02, + .249542D+02, .207780D+02, .173124D+02, .144441D+02, + .120572D+02, .100767D+02, .843293D+01, .706805D+01, + .593397D+01, .499036D+01, .420534D+01, .355006D+01, + .300212D+01, .254274D+01, .215647D+01, .183066D+01, + .155589D+01, .132113D+01, .112238D+01, .951608D+00, + .806021D+00, .681225D+00, .574169D+00, .482324D+00, + .403584D+00, .336183D+00, .278624D+00, .229625D+00, + .188075D+00, .153007D+00, .123566D+00, .989980D-01, + .786329D-01, .619458D-01, .482398D-01, .371575D-01, + .282831D-01, .212520D-01, .157455D-01, .114875D-01, + .824060D-02, .580245D-02, .400141D-02, .269491D-02, + .177487D-02, .113247D-02, .699328D-03, .415923D-03 / DATA (UPDI(I),I=3901,3952) / + .236819D-03, .128116D-03, .652169D-04, .308832D-04, + .133005D-04, .512124D-05, .169555D-05, .456879D-06, + .913703D-07, .114084D-07, .603149D-09, .389953D-11, + .000000D+00, .216220D+05, .174258D+05, .139324D+05, + .111417D+05, .891533D+04, .713548D+04, .571454D+04, + .457771D+04, .366947D+04, .294220D+04, .236072D+04, + .189469D+04, .152178D+04, .122262D+04, .983028D+03, + .790635D+03, .636409D+03, .512436D+03, .412961D+03, + .332917D+03, .268631D+03, .216845D+03, .175210D+03, + .141632D+03, .114607D+03, .927938D+02, .752144D+02, + .608305D+02, .494087D+02, .401627D+02, .326964D+02, + .266445D+02, .217513D+02, .177899D+02, .145741D+02, + .119606D+02, .984137D+01, .811509D+01, .671134D+01 / DATA (UPDI(I),I=3953,4004) / + .556347D+01, .462694D+01, .385711D+01, .322441D+01, + .270098D+01, .226742D+01, .190584D+01, .160483D+01, + .135016D+01, .113705D+01, .955562D+00, .802460D+00, + .672341D+00, .561855D+00, .467898D+00, .388170D+00, + .320530D+00, .263347D+00, .215123D+00, .174668D+00, + .140848D+00, .112760D+00, .895591D-01, .705245D-01, + .550951D-01, .425471D-01, .324977D-01, .245300D-01, + .182775D-01, .134280D-01, .971048D-02, .690009D-02, + .480435D-02, .326858D-02, .215818D-02, .138157D-02, + .841140D-03, .477768D-03, .241821D-03, .941249D-04, + .807806D-05, .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=4005,4056) / + .492419D+05, .390291D+05, .306262D+05, .240332D+05, + .188669D+05, .148120D+05, .116337D+05, .913824D+04, + .718160D+04, .564467D+04, .443912D+04, .349165D+04, + .274812D+04, .216340D+04, .170428D+04, .134296D+04, + .105906D+04, .835455D+03, .659629D+03, .521017D+03, + .411937D+03, .325855D+03, .258043D+03, .204464D+03, + .162208D+03, .128790D+03, .102402D+03, .812391D+02, + .647667D+02, .516918D+02, .413376D+02, .331041D+02, + .265712D+02, .213790D+02, .172400D+02, .139345D+02, + .112999D+02, .918844D+01, .749878D+01, .613772D+01, + .504342D+01, .415610D+01, .343639D+01, .284824D+01, + .236689D+01, .196985D+01, .164296D+01, .136916D+01, + .114247D+01, .951297D+00, .791633D+00, .657265D+00 / DATA (UPDI(I),I=4057,4108) / + .544313D+00, .449217D+00, .369337D+00, .302252D+00, + .246117D+00, .199269D+00, .160384D+00, .128219D+00, + .101796D+00, .802056D-01, .626840D-01, .486368D-01, + .373368D-01, .283842D-01, .213644D-01, .159142D-01, + .117317D-01, .855575D-02, .617652D-02, .441463D-02, + .312825D-02, .219815D-02, .154292D-02, .107816D-02, + .755018D-03, .530930D-03, .376062D-03, .267733D-03, + .191370D-03, .136051D-03, .953140D-04, .648381D-04, + .421134D-04, .253766D-04, .136808D-04, .613738D-05, + .188700D-05, .186637D-06, .000000D+00, .607571D+05, + .713905D+05, .553773D+05, .429502D+05, .333179D+05, + .258428D+05, .200493D+05, .155533D+05, .120689D+05, + .936468D+04, .726881D+04, .564206D+04, .438113D+04 / DATA (UPDI(I),I=4109,4160) / + .340222D+04, .264331D+04, .205395D+04, .159692D+04, + .124183D+04, .966355D+03, .752216D+03, .586018D+03, + .456734D+03, .356319D+03, .278138D+03, .217360D+03, + .170006D+03, .133163D+03, .104055D+03, .817318D+02, + .642790D+02, .506598D+02, .399921D+02, .316497D+02, + .251172D+02, .199831D+02, .159416D+02, .127641D+02, + .102523D+02, .826826D+01, .669052D+01, .543740D+01, + .443340D+01, .362816D+01, .297739D+01, .245039D+01, + .202018D+01, .166949D+01, .137865D+01, .114020D+01, + .941026D+00, .776270D+00, .638948D+00, .524615D+00, + .429285D+00, .349973D+00, .284007D+00, .229336D+00, + .184155D+00, .147015D+00, .116592D+00, .918411D-01, + .718142D-01, .557159D-01, .429322D-01, .327460D-01 / DATA (UPDI(I),I=4161,4212) / + .247517D-01, .185418D-01, .137643D-01, .101303D-01, + .739349D-02, .535857D-02, .386119D-02, .277265D-02, + .198722D-02, .143260D-02, .103617D-02, .756451D-03, + .557356D-03, .414787D-03, .309898D-03, .231744D-03, + .171367D-03, .124200D-03, .869559D-04, .579264D-04, + .357461D-04, .197313D-04, .910183D-05, .292858D-05, + .286946D-06, .000000D+00, .142370D+06, .110960D+06, + .854159D+05, .657382D+05, .505940D+05, .389305D+05, + .299569D+05, .230476D+05, .177332D+05, .136423D+05, + .104965D+05, .807524D+04, .621369D+04, .478104D+04, + .367969D+04, .283209D+04, .218051D+04, .167899D+04, + .129343D+04, .996609D+03, .768382D+03, .592621D+03, + .457419D+03, .353241D+03, .273056D+03, .211240D+03 / DATA (UPDI(I),I=4213,4264) / + .163644D+03, .126444D+03, .982156D+02, .763906D+02, + .595387D+02, .464871D+02, .363879D+02, .285687D+02, + .224876D+02, .177536D+02, .140700D+02, .111894D+02, + .893646D+01, .716340D+01, .576846D+01, .466175D+01, + .378201D+01, .307764D+01, .251208D+01, .205445D+01, + .168449D+01, .138026D+01, .113287D+01, .927953D+00, + .759806D+00, .620825D+00, .506036D+00, .411118D+00, + .332777D+00, .268151D+00, .215016D+00, .171460D+00, + .135936D+00, .107071D+00, .837700D-01, .650645D-01, + .501418D-01, .383819D-01, .290810D-01, .218369D-01, + .162510D-01, .119852D-01, .876326D-02, .635410D-02, + .457472D-02, .327408D-02, .233464D-02, .166087D-02, + .118772D-02, .851441D-03, .615357D-03, .448382D-03 / DATA (UPDI(I),I=4265,4316) / + .329494D-03, .242873D-03, .178898D-03, .130239D-03, + .927987D-04, .638272D-04, .417076D-04, .252076D-04, + .135956D-04, .609797D-05, .189711D-05, .187374D-06, + .000000D+00, .210662D+06, .163268D+06, .124874D+06, + .954805D+05, .729971D+05, .557911D+05, .426368D+05, + .325748D+05, .248858D+05, .190069D+05, .145165D+05, + .110846D+05, .846424D+04, .646225D+04, .493425D+04, + .376714D+04, .287661D+04, .219651D+04, .167769D+04, + .128151D+04, .979318D+03, .748547D+03, .572498D+03, + .438027D+03, .335412D+03, .257013D+03, .197188D+03, + .150864D+03, .116033D+03, .893619D+02, .689586D+02, + .533107D+02, .413159D+02, .321209D+02, .250369D+02, + .195765D+02, .153672D+02, .121073D+02, .958096D+01 / DATA (UPDI(I),I=4317,4368) / + .761144D+01, .607553D+01, .486802D+01, .391621D+01, + .316080D+01, .255921D+01, .207653D+01, .168942D+01, + .137372D+01, .111903D+01, .909802D+00, .739471D+00, + .599834D+00, .485415D+00, .391569D+00, .314721D+00, + .251837D+00, .200539D+00, .158825D+00, .125066D+00, + .978521D-01, .760519D-01, .586873D-01, .449376D-01, + .341835D-01, .257411D-01, .192149D-01, .142192D-01, + .104318D-01, .759089D-02, .548117D-02, .393272D-02, + .280765D-02, .199927D-02, .142203D-02, .101777D-02, + .730922D-03, .529349D-03, .386469D-03, .284187D-03, + .209341D-03, .153691D-03, .111307D-03, .786567D-04, + .535346D-04, .345014D-04, .204979D-04, .108121D-04, + .469892D-05, .139735D-05, .139577D-06, .000000D+00 / DATA (UPDI(I),I=4369,4420) / + .203150D+06, .230799D+06, .175522D+06, .133435D+06, + .101418D+06, .770534D+05, .585308D+05, .444442D+05, + .337420D+05, .256078D+05, .194317D+05, .147404D+05, + .111806D+05, .847807D+04, .642850D+04, .487328D+04, + .369442D+04, .280028D+04, .212282D+04, .160916D+04, + .122013D+04, .925227D+03, .701905D+03, .532630D+03, + .404438D+03, .307271D+03, .233714D+03, .177225D+03, + .135101D+03, .103118D+03, .788560D+02, .604111D+02, + .463923D+02, .357413D+02, .276060D+02, .213914D+02, + .166416D+02, .129960D+02, .101945D+02, .802964D+01, + .635532D+01, .505017D+01, .402967D+01, .322645D+01, + .259182D+01, .208674D+01, .168484D+01, .135968D+01, + .109941D+01, .887296D+00, .715961D+00, .576623D+00 / DATA (UPDI(I),I=4421,4472) / + .463334D+00, .371151D+00, .296246D+00, .235433D+00, + .186207D+00, .146489D+00, .114588D+00, .890696D-01, + .687803D-01, .527408D-01, .401327D-01, .303429D-01, + .227131D-01, .168578D-01, .124071D-01, .905639D-02, + .655975D-02, .471773D-02, .337383D-02, .240287D-02, + .170864D-02, .121488D-02, .869924D-03, .625482D-03, + .453555D-03, .331430D-03, .243625D-03, .179147D-03, + .130990D-03, .943152D-04, .660888D-04, .445134D-04, + .283087D-04, .165482D-04, .854921D-05, .361031D-05, + .103292D-05, .104222D-06, .000000D+00, .441107D+06, + .338360D+06, .255715D+06, .193172D+06, .145879D+06, + .110114D+06, .830904D+05, .626705D+05, .472544D+05, + .356146D+05, .268343D+05, .202100D+05, .152171D+05 / DATA (UPDI(I),I=4473,4524) / + .114532D+05, .861845D+04, .648305D+04, .487601D+04, + .366627D+04, .275650D+04, .207208D+04, .155772D+04, + .117097D+04, .880436D+03, .662073D+03, .498085D+03, + .374865D+03, .282400D+03, .212035D+03, .160039D+03, + .120935D+03, .915433D+02, .694164D+02, .527581D+02, + .402277D+02, .307488D+02, .235809D+02, .181556D+02, + .140336D+02, .108966D+02, .849673D+01, .665834D+01, + .523940D+01, .414030D+01, .328363D+01, .261303D+01, + .208443D+01, .166769D+01, .133373D+01, .106889D+01, + .855112D+00, .684030D+00, .546221D+00, .435209D+00, + .345729D+00, .273685D+00, .215740D+00, .169262D+00, + .132104D+00, .102525D+00, .790761D-01, .605951D-01, + .461132D-01, .348255D-01, .261346D-01, .194179D-01 / DATA (UPDI(I),I=4525,4576) / + .143064D-01, .104527D-01, .757460D-02, .544678D-02, + .388892D-02, .276062D-02, .195128D-02, .137657D-02, + .970553D-03, .688632D-03, .490137D-03, .351408D-03, + .253597D-03, .183855D-03, .133201D-03, .958366D-04, + .678489D-04, .466919D-04, .308562D-04, .192265D-04, + .109934D-04, .554174D-05, .227369D-05, .630969D-06, + .641895D-07, .000000D+00, .628946D+06, .480030D+06, + .360662D+06, .270843D+06, .203309D+06, .152533D+06, + .114391D+06, .857407D+05, .642398D+05, .481049D+05, + .360081D+05, .269392D+05, .201467D+05, .150594D+05, + .112527D+05, .840440D+04, .627520D+04, .468347D+04, + .349473D+04, .260685D+04, .194437D+04, .144995D+04, + .108130D+04, .806364D+03, .601487D+03, .448768D+03 / DATA (UPDI(I),I=4577,4628) / + .335093D+03, .249311D+03, .186456D+03, .139594D+03, + .104674D+03, .786196D+02, .591773D+02, .446872D+02, + .338241D+02, .256864D+02, .195831D+02, .149896D+02, + .115257D+02, .890068D+01, .690807D+01, .538445D+01, + .421491D+01, .331181D+01, .261120D+01, .206405D+01, + .163658D+01, .129720D+01, .103049D+01, .817214D+00, + .648095D+00, .513138D+00, .405415D+00, .319391D+00, + .250757D+00, .196062D+00, .152588D+00, .118147D+00, + .909740D-01, .696258D-01, .529472D-01, .399922D-01, + .299803D-01, .223371D-01, .164799D-01, .120601D-01, + .875520D-02, .630685D-02, .451066D-02, .320544D-02, + .226661D-02, .159751D-02, .112497D-02, .792653D-03, + .562544D-03, .400753D-03, .287581D-03, .207619D-03 / DATA (UPDI(I),I=4629,4680) / + .150378D-03, .108666D-03, .777971D-04, .546918D-04, + .372680D-04, .243278D-04, .149238D-04, .837009D-05, + .411444D-05, .163079D-05, .433484D-06, .446396D-07, + .000000D+00, .872726D+06, .662942D+06, .495330D+06, + .369890D+06, .276085D+06, .205944D+06, .153547D+06, + .114411D+06, .852076D+05, .634191D+05, .471788D+05, + .350757D+05, .260648D+05, .193572D+05, .143691D+05, + .106602D+05, .790529D+04, .585921D+04, .434117D+04, + .321496D+04, .238034D+04, .176179D+04, .130384D+04, + .964754D+03, .713923D+03, .528338D+03, .391251D+03, + .288612D+03, .214002D+03, .158825D+03, .118041D+03, + .878665D+02, .655367D+02, .490374D+02, .367733D+02, + .276666D+02, .208957D+02, .158451D+02, .120696D+02 / DATA (UPDI(I),I=4681,4732) / + .923400D+01, .710031D+01, .548334D+01, .425298D+01, + .331139D+01, .258733D+01, .202692D+01, .159295D+01, + .125152D+01, .985590D+00, .774878D+00, .609295D+00, + .478370D+00, .374804D+00, .292850D+00, .228048D+00, + .176874D+00, .136561D+00, .104909D+00, .801551D-01, + .608782D-01, .459475D-01, .344499D-01, .256386D-01, + .189679D-01, .138985D-01, .101047D-01, .729061D-02, + .522216D-02, .371601D-02, .262940D-02, .185294D-02, + .130286D-02, .916326D-03, .645536D-03, .458431D-03, + .326957D-03, .234857D-03, .169605D-03, .122707D-03, + .884196D-04, .629808D-04, .439624D-04, .296677D-04, + .191361D-04, .115643D-04, .636770D-05, .305659D-05, + .117356D-05, .300247D-06, .312709D-07, .000000D+00 / DATA (UPDI(I),I=4733,4784) / + .118364D+07, .895059D+06, .665202D+06, .494074D+06, + .366770D+06, .272084D+06, .201728D+06, .149463D+06, + .110675D+06, .818961D+05, .605653D+05, .447590D+05, + .330587D+05, .243999D+05, .179989D+05, .132681D+05, + .977549D+04, .719763D+04, .529704D+04, .389606D+04, + .286454D+04, .210513D+04, .154666D+04, .113600D+04, + .834323D+03, .612695D+03, .450172D+03, .329396D+03, + .242262D+03, .178318D+03, .131417D+03, .969912D+02, + .717177D+02, .531953D+02, .395389D+02, .294830D+02, + .220680D+02, .165839D+02, .125186D+02, .949137D+01, + .723261D+01, .553551D+01, .425510D+01, .328366D+01, + .254301D+01, .197473D+01, .153847D+01, .119827D+01, + .935599D+00, .729329D+00, .568670D+00, .442774D+00 / DATA (UPDI(I),I=4785,4836) / + .344067D+00, .266652D+00, .205978D+00, .158489D+00, + .121407D+00, .925458D-01, .701687D-01, .528932D-01, + .396260D-01, .294956D-01, .217959D-01, .160143D-01, + .116563D-01, .842129D-02, .604036D-02, .430355D-02, + .304802D-02, .214839D-02, .150952D-02, .105940D-02, + .744508D-03, .524605D-03, .372876D-03, .266244D-03, + .191392D-03, .138192D-03, .998064D-04, .716618D-04, + .507493D-04, .351472D-04, .234745D-04, .149514D-04, + .889566D-05, .480615D-05, .225181D-05, .837800D-06, + .206877D-06, .217835D-07, .000000D+00, .157358D+07, + .118474D+07, .875963D+06, .647238D+06, .477944D+06, + .352672D+06, .260070D+06, .191639D+06, .141122D+06, + .103842D+06, .763589D+05, .561062D+05, .411975D+05 / DATA (UPDI(I),I=4837,4888) / + .302268D+05, .221629D+05, .162377D+05, .118890D+05, + .869848D+04, .636040D+04, .464757D+04, .339430D+04, + .247752D+04, .180767D+04, .131835D+04, .961295D+03, + .700756D+03, .511029D+03, .371043D+03, .270781D+03, + .197742D+03, .144564D+03, .105828D+03, .776057D+02, + .570829D+02, .420693D+02, .311022D+02, .230795D+02, + .171940D+02, .128663D+02, .967009D+01, .730456D+01, + .554190D+01, .422296D+01, .323064D+01, .248035D+01, + .190952D+01, .147501D+01, .113907D+01, .881911D+00, + .681731D+00, .527166D+00, .407106D+00, .313789D+00, + .241239D+00, .184871D+00, .141134D+00, .107277D+00, + .811512D-01, .610664D-01, .456917D-01, .339825D-01, + .251156D-01, .184306D-01, .134511D-01, .972774D-02 / DATA (UPDI(I),I=4889,4940) / + .698545D-02, .498251D-02, .353213D-02, .249091D-02, + .174968D-02, .122632D-02, .859427D-03, .603757D-03, + .425645D-03, .302840D-03, .216462D-03, .155674D-03, + .112322D-03, .809290D-04, .578579D-04, .407082D-04, + .279525D-04, .184653D-04, .116058D-04, .679439D-05, + .359960D-05, .164534D-05, .593283D-06, .141676D-06, + .150791D-07, .000000D+00, .205475D+07, .154051D+07, + .113331D+07, .833169D+06, .612104D+06, .449339D+06, + .329625D+06, .241609D+06, .176967D+06, .129512D+06, + .947117D+05, .692037D+05, .505275D+05, .368599D+05, + .268690D+05, .195694D+05, .142424D+05, .103568D+05, + .752599D+04, .546460D+04, .396539D+04, .287545D+04, + .208406D+04, .150962D+04, .109317D+04, .791269D+03 / DATA (UPDI(I),I=4941,4992) / + .572900D+03, .412890D+03, .299083D+03, .216762D+03, + .157252D+03, .114219D+03, .830950D+02, .606313D+02, + .443209D+02, .324977D+02, .239149D+02, .176677D+02, + .131097D+02, .976994D+01, .731757D+01, .550478D+01, + .415914D+01, .315491D+01, .240177D+01, .183347D+01, + .140445D+01, .107553D+01, .825850D+00, .633146D+00, + .485618D+00, .372003D+00, .284446D+00, .216955D+00, + .164962D+00, .124964D+00, .942622D-01, .707708D-01, + .528609D-01, .392648D-01, .289946D-01, .212804D-01, + .155105D-01, .112463D-01, .808280D-02, .577060D-02, + .409426D-02, .288892D-02, .202936D-02, .142117D-02, + .994056D-03, .695960D-03, .488916D-03, .344932D-03, + .245665D-03, .175740D-03, .126391D-03, .910745D-04 / DATA (UPDI(I),I=4993,5044) / + .654192D-04, .465350D-04, .325075D-04, .221163D-04, + .144419D-04, .895202D-05, .515402D-05, .267608D-05, + .119290D-05, .416978D-06, .964657D-07, .103761D-07, + .000000D+00, .263933D+07, .197070D+07, .144274D+07, + .105545D+07, .771559D+06, .563553D+06, .411310D+06, + .299934D+06, .218544D+06, .159097D+06, .115726D+06, + .841014D+05, .610679D+05, .443014D+05, .321113D+05, + .232536D+05, .168253D+05, .121627D+05, .878527D+04, + .634005D+04, .457212D+04, .329449D+04, .237244D+04, + .170728D+04, .122807D+04, .882871D+03, .634808D+03, + .454249D+03, .326691D+03, .235053D+03, .169261D+03, + .122019D+03, .880929D+02, .637827D+02, .462593D+02, + .336504D+02, .245650D+02, .180016D+02, .132489D+02 / DATA (UPDI(I),I=5045,5096) / + .979299D+01, .727463D+01, .542743D+01, .406687D+01, + .305948D+01, .230992D+01, .174883D+01, .132867D+01, + .100917D+01, .768620D+00, .584509D+00, .444731D+00, + .337985D+00, .256407D+00, .194049D+00, .146410D+00, + .110068D+00, .824029D-01, .614096D-01, .455349D-01, + .335816D-01, .246248D-01, .179504D-01, .129970D-01, + .936448D-02, .669005D-02, .474985D-02, .335326D-02, + .235587D-02, .164909D-02, .115187D-02, .804388D-03, + .562826D-03, .395496D-03, .279258D-03, .199077D-03, + .142488D-03, .102427D-03, .736639D-04, .527150D-04, + .372840D-04, .258422D-04, .174093D-04, .112313D-04, + .686253D-05, .388374D-05, .197538D-05, .858500D-06, + .291012D-06, .653285D-07, .710015D-08, .000000D+00 / DATA (UPDI(I),I=5097,5148) / + .461958D+04, .555727D+04, .460735D+04, .381977D+04, + .316679D+04, .262540D+04, .217654D+04, .180440D+04, + .149587D+04, .124008D+04, .102801D+04, .852192D+03, + .706434D+03, .585595D+03, .485418D+03, .402371D+03, + .333525D+03, .276453D+03, .229143D+03, .189925D+03, + .157417D+03, .130470D+03, .108133D+03, .896194D+02, + .742736D+02, .615540D+02, .510113D+02, .421603D+02, + .349393D+02, .289532D+02, .239906D+02, .198762D+02, + .164645D+02, .136431D+02, .112967D+02, .935103D+01, + .773720D+01, .639818D+01, .528676D+01, .436352D+01, + .359748D+01, .296068D+01, .243152D+01, .199189D+01, + .162685D+01, .132409D+01, .107423D+01, .866453D+00, + .696232D+00, .555544D+00, .440889D+00, .347506D+00 / DATA (UPDI(I),I=5149,5200) / + .271851D+00, .210916D+00, .162160D+00, .123433D+00, + .929200D-01, .690945D-01, .506751D-01, .365914D-01, + .259540D-01, .180294D-01, .122165D-01, .804427D-02, + .508023D-02, .304093D-02, .167995D-02, .806371D-03, + .274451D-03, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .216035D+05, + .174089D+05, .139170D+05, .111277D+05, .890256D+04, + .712386D+04, .570396D+04, .456808D+04, .366070D+04, + .293422D+04, .235346D+04, .188808D+04, .151576D+04 / DATA (UPDI(I),I=5201,5252) / + .121714D+04, .978039D+03, .786093D+03, .632271D+03, + .508667D+03, .409527D+03, .329787D+03, .265775D+03, + .214239D+03, .172830D+03, .139458D+03, .112618D+03, + .909714D+02, .735423D+02, .592955D+02, .479948D+02, + .388573D+02, .314875D+02, .255218D+02, .207048D+02, + .168108D+02, .136547D+02, .110941D+02, .902172D+01, + .733745D+01, .597160D+01, .485877D+01, .395509D+01, + .321702D+01, .261554D+01, .212354D+01, .172191D+01, + .139308D+01, .112550D+01, .905183D+00, .726707D+00, + .580210D+00, .461720D+00, .365563D+00, .287981D+00, + .225512D+00, .175547D+00, .135693D+00, .104148D+00, + .792937D-01, .598973D-01, .448280D-01, .332501D-01, + .244099D-01, .177351D-01, .127651D-01, .906114D-02 / DATA (UPDI(I),I=5253,5304) / + .634416D-02, .438097D-02, .297733D-02, .199006D-02, + .130178D-02, .830539D-03, .509058D-03, .295025D-03, + .150171D-03, .570569D-04, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .000000D+00, .000000D+00, + .000000D+00, .000000D+00, .492191D+05, .390083D+05, + .306073D+05, .240161D+05, .188513D+05, .147978D+05, + .116208D+05, .912650D+04, .717093D+04, .563497D+04, + .443029D+04, .348363D+04, .274082D+04, .215677D+04, + .169824D+04, .133747D+04, .105407D+04, .830918D+03, + .655501D+03, .517261D+03, .408517D+03, .322741D+03, + .255205D+03, .201877D+03, .159846D+03, .126632D+03 / DATA (UPDI(I),I=5305,5356) / + .100427D+03, .794328D+02, .631089D+02, .501676D+02, + .399326D+02, .318062D+02, .253687D+02, .202616D+02, + .161985D+02, .129611D+02, .103875D+02, .833140D+01, + .669215D+01, .537797D+01, .432760D+01, .348245D+01, + .280357D+01, .225569D+01, .181423D+01, .145698D+01, + .116954D+01, .935202D+00, .747199D+00, .594140D+00, + .471282D+00, .372235D+00, .292797D+00, .229154D+00, + .178465D+00, .138163D+00, .106339D+00, .813050D-01, + .617854D-01, .466138D-01, .349455D-01, .260122D-01, + .192439D-01, .141757D-01, .103727D-01, .755507D-02, + .549626D-02, .400060D-02, .292839D-02, .216007D-02, + .161621D-02, .122766D-02, .950342D-03, .747240D-03, + .599237D-03, .484554D-03, .394465D-03, .320353D-03 / DATA (UPDI(I),I=5357,5408) / + .258655D-03, .205643D-03, .160600D-03, .121887D-03, + .894195D-04, .626490D-04, .414198D-04, .251979D-04, + .136469D-04, .613334D-05, .188679D-05, .186635D-06, + .000000D+00, .607343D+05, .713661D+05, .553551D+05, + .429301D+05, .332996D+05, .258262D+05, .200341D+05, + .155396D+05, .120564D+05, .935334D+04, .725851D+04, + .563270D+04, .437264D+04, .339450D+04, .263631D+04, + .204758D+04, .159114D+04, .123658D+04, .961585D+03, + .747882D+03, .582079D+03, .453152D+03, .353061D+03, + .275173D+03, .214660D+03, .167544D+03, .130917D+03, + .102006D+03, .798574D+02, .625617D+02, .490832D+02, + .385421D+02, .303129D+02, .238817D+02, .188386D+02, + .148791D+02, .117756D+02, .933122D+01, .740881D+01 / DATA (UPDI(I),I=5409,5460) / + .588842D+01, .468893D+01, .373604D+01, .297979D+01, + .237663D+01, .189598D+01, .151114D+01, .120457D+01, + .956963D+00, .760085D+00, .601112D+00, .474477D+00, + .373113D+00, .292347D+00, .228035D+00, .177090D+00, + .136787D+00, .105103D+00, .802807D-01, .609911D-01, + .460438D-01, .345743D-01, .258090D-01, .191743D-01, + .142059D-01, .104752D-01, .770678D-02, .567799D-02, + .419761D-02, .312922D-02, .235700D-02, .180357D-02, + .140242D-02, .111018D-02, .891927D-03, .728357D-03, + .598494D-03, .493983D-03, .406109D-03, .331671D-03, + .266612D-03, .210655D-03, .161834D-03, .120314D-03, + .855453D-04, .574913D-04, .356372D-04, .197114D-04, + .909953D-05, .292846D-05, .286945D-06, .000000D+00 / DATA (UPDI(I),I=5461,5512) / + .142340D+06, .110932D+06, .853908D+05, .657154D+05, + .505733D+05, .389117D+05, .299398D+05, .230321D+05, + .177192D+05, .136296D+05, .104849D+05, .806472D+04, + .620414D+04, .477238D+04, .367183D+04, .282496D+04, + .217404D+04, .167313D+04, .128811D+04, .991778D+03, + .763998D+03, .588640D+03, .453804D+03, .349957D+03, + .270070D+03, .208524D+03, .161171D+03, .124194D+03, + .961620D+02, .745146D+02, .578220D+02, .449139D+02, + .349431D+02, .272393D+02, .212621D+02, .166221D+02, + .130233D+02, .102201D+02, .803816D+01, .633103D+01, + .499756D+01, .394909D+01, .312474D+01, .247362D+01, + .195930D+01, .155113D+01, .122862D+01, .970221D+00, + .766288D+00, .602812D+00, .473445D+00, .370576D+00 / DATA (UPDI(I),I=5513,5564) / + .289090D+00, .224584D+00, .173747D+00, .133736D+00, + .102422D+00, .780013D-01, .590944D-01, .445013D-01, + .333372D-01, .248327D-01, .184092D-01, .136092D-01, + .100094D-01, .734257D-02, .538884D-02, .396421D-02, + .293523D-02, .219175D-02, .165825D-02, .127194D-02, + .991124D-03, .782617D-03, .627489D-03, .506132D-03, + .410043D-03, .331115D-03, .265644D-03, .209942D-03, + .163017D-03, .123137D-03, .899374D-04, .628009D-04, + .413950D-04, .251304D-04, .135817D-04, .609639D-05, + .189703D-05, .187373D-06, .000000D+00, .210628D+06, + .163237D+06, .124846D+06, .954549D+05, .729739D+05, + .557701D+05, .426177D+05, .325575D+05, .248701D+05, + .189927D+05, .145036D+05, .110729D+05, .845363D+04 / DATA (UPDI(I),I=5565,5616) / + .645263D+04, .492553D+04, .375924D+04, .286945D+04, + .219002D+04, .167181D+04, .127618D+04, .974487D+03, + .744168D+03, .568528D+03, .434426D+03, .332144D+03, + .254046D+03, .194492D+03, .148416D+03, .113805D+03, + .873323D+02, .671071D+02, .516196D+02, .397687D+02, + .307031D+02, .237358D+02, .183811D+02, .142673D+02, + .110948D+02, .864846D+01, .675310D+01, .528614D+01, + .414356D+01, .325307D+01, .255605D+01, .201007D+01, + .158044D+01, .124362D+01, .975892D+00, .766138D+00, + .599226D+00, .468029D+00, .364414D+00, .282847D+00, + .218681D+00, .168397D+00, .129051D+00, .984183D-01, + .746570D-01, .563471D-01, .422846D-01, .315719D-01, + .234478D-01, .173338D-01, .127816D-01, .937853D-02 / DATA (UPDI(I),I=5617,5668) / + .686588D-02, .502953D-02, .369379D-02, .273013D-02, + .203491D-02, .153590D-02, .117469D-02, .911941D-03, + .716933D-03, .571674D-03, .458312D-03, .368700D-03, + .295566D-03, .235174D-03, .184323D-03, .141758D-03, + .106034D-03, .765588D-04, .527924D-04, .342787D-04, + .204437D-04, .108025D-04, .469784D-05, .139729D-05, + .139576D-06, .000000D+00, .203119D+06, .230765D+06, + .175491D+06, .133406D+06, .101392D+06, .770300D+05, + .585096D+05, .444250D+05, .337246D+05, .255920D+05, + .194175D+05, .147275D+05, .111689D+05, .846747D+04, + .641889D+04, .486459D+04, .368655D+04, .279316D+04, + .211637D+04, .160332D+04, .121485D+04, .920446D+03, + .697577D+03, .528711D+03, .400888D+03, .304054D+03 / DATA (UPDI(I),I=5669,5720) / + .230797D+03, .174582D+03, .132702D+03, .100938D+03, + .768734D+02, .586062D+02, .447469D+02, .342395D+02, + .262337D+02, .201365D+02, .154931D+02, .119445D+02, + .923188D+01, .714911D+01, .555090D+01, .431700D+01, + .336334D+01, .262323D+01, .204814D+01, .159927D+01, + .125006D+01, .974613D+00, .760381D+00, .591145D+00, + .459032D+00, .355410D+00, .274361D+00, .211012D+00, + .161667D+00, .123288D+00, .935797D-01, .706667D-01, + .531028D-01, .396861D-01, .295151D-01, .218401D-01, + .160893D-01, .118258D-01, .865117D-02, .631683D-02, + .461639D-02, .338344D-02, .249582D-02, .185684D-02, + .139848D-02, .106697D-02, .825795D-03, .646848D-03, + .513411D-03, .409430D-03, .327337D-03, .260658D-03 / DATA (UPDI(I),I=5721,5772) / + .205828D-03, .160048D-03, .121978D-03, .903778D-04, + .645418D-04, .439732D-04, .281490D-04, .165099D-04, + .854254D-05, .360957D-05, .103288D-05, .104222D-06, + .000000D+00, .441064D+06, .338321D+06, .255679D+06, + .193140D+06, .145850D+06, .110087D+06, .830666D+05, + .626489D+05, .472348D+05, .355969D+05, .268183D+05, + .201955D+05, .152040D+05, .114414D+05, .860773D+04, + .647336D+04, .486725D+04, .365835D+04, .274934D+04, + .206561D+04, .155187D+04, .116569D+04, .875665D+03, + .657761D+03, .494188D+03, .371341D+03, .279213D+03, + .209156D+03, .157434D+03, .118575D+03, .894047D+02, + .674771D+02, .509977D+02, .386285D+02, .292951D+02, + .222589D+02, .169530D+02, .129398D+02, .990219D+01 / DATA (UPDI(I),I=5773,5824) / + .759385D+01, .583990D+01, .449948D+01, .347347D+01, + .268511D+01, .207828D+01, .160918D+01, .124754D+01, + .964919D+00, .747019D+00, .576407D+00, .444326D+00, + .341604D+00, .261891D+00, .200084D+00, .152296D+00, + .115413D+00, .870637D-01, .653565D-01, .488266D-01, + .362859D-01, .268373D-01, .197526D-01, .144735D-01, + .105814D-01, .769832D-02, .558965D-02, .406046D-02, + .295665D-02, .216485D-02, .159710D-02, .119107D-02, + .898610D-03, .686735D-03, .530546D-03, .414903D-03, + .325769D-03, .256287D-03, .200782D-03, .155934D-03, + .119243D-03, .893238D-04, .650366D-04, .456005D-04, + .304802D-04, .191168D-04, .109675D-04, .553729D-05, + .227320D-05, .630944D-06, .641892D-07, .000000D+00 / DATA (UPDI(I),I=5825,5876) / + .628897D+06, .479986D+06, .360622D+06, .270807D+06, + .203277D+06, .152504D+06, .114364D+06, .857165D+05, + .642179D+05, .480851D+05, .359903D+05, .269231D+05, + .201322D+05, .150462D+05, .112408D+05, .839365D+04, + .626550D+04, .467472D+04, .348683D+04, .259972D+04, + .193794D+04, .144415D+04, .107607D+04, .801648D+03, + .597235D+03, .444932D+03, .331633D+03, .246194D+03, + .183643D+03, .137055D+03, .102381D+03, .765484D+02, + .573054D+02, .429944D+02, .322932D+02, .243019D+02, + .183310D+02, .138581D+02, .105041D+02, .797983D+01, + .607968D+01, .464144D+01, .355077D+01, .272068D+01, + .208756D+01, .160268D+01, .123222D+01, .945331D+00, + .726059D+00, .555888D+00, .425260D+00, .324533D+00 / DATA (UPDI(I),I=5877,5928) / + .247003D+00, .187378D+00, .141637D+00, .106613D+00, + .798960D-01, .595939D-01, .442446D-01, .326848D-01, + .240346D-01, .175935D-01, .128243D-01, .933004D-02, + .675720D-02, .488683D-02, .353751D-02, .256835D-02, + .187585D-02, .138110D-02, .102799D-02, .774109D-03, + .590245D-03, .454765D-03, .354355D-03, .276992D-03, + .216704D-03, .168694D-03, .130035D-03, .986195D-04, + .731696D-04, .527210D-04, .365145D-04, .240723D-04, + .148505D-04, .835310D-05, .411157D-05, .163048D-05, + .433469D-06, .446394D-07, .000000D+00, .872672D+06, + .662893D+06, .495285D+06, .369850D+06, .276049D+06, + .205911D+06, .153518D+06, .114384D+06, .851833D+05, + .633971D+05, .471589D+05, .350578D+05, .260486D+05 / DATA (UPDI(I),I=5929,5980) / + .193426D+05, .143559D+05, .106483D+05, .789460D+04, + .584958D+04, .433249D+04, .320714D+04, .237330D+04, + .175545D+04, .129813D+04, .959623D+03, .709306D+03, + .524182D+03, .387513D+03, .285255D+03, .210981D+03, + .156108D+03, .115596D+03, .856664D+02, .635568D+02, + .472553D+02, .351697D+02, .262243D+02, .195991D+02, + .146807D+02, .110254D+02, .829949D+01, .626591D+01, + .474076D+01, .359457D+01, .273019D+01, .207681D+01, + .158092D+01, .120540D+01, .917182D+00, .698794D+00, + .530795D+00, .402928D+00, .305171D+00, .230544D+00, + .173624D+00, .130306D+00, .974026D-01, .724991D-01, + .537211D-01, .396289D-01, .290952D-01, .212685D-01, + .154820D-01, .112255D-01, .812696D-02, .585974D-02 / DATA (UPDI(I),I=5981,6032) / + .422162D-02, .304615D-02, .220602D-02, .160805D-02, + .118225D-02, .878920D-03, .661097D-03, .503327D-03, + .387022D-03, .300683D-03, .234127D-03, .182252D-03, + .141033D-03, .107946D-03, .812193D-04, .597075D-04, + .425878D-04, .291499D-04, .189634D-04, .115156D-04, + .635663D-05, .305475D-05, .117337D-05, .300237D-06, + .312708D-07, .000000D+00, .118358D+07, .895004D+06, + .665152D+06, .494030D+06, .366730D+06, .272047D+06, + .201695D+06, .149433D+06, .110648D+06, .818718D+05, + .605434D+05, .447392D+05, .330408D+05, .243838D+05, + .179844D+05, .132550D+05, .976376D+04, .718708D+04, + .528755D+04, .388753D+04, .285687D+04, .209824D+04, + .154047D+04, .113044D+04, .829333D+03, .608216D+03 / DATA (UPDI(I),I=6033,6084) / + .446153D+03, .325796D+03, .239034D+03, .175423D+03, + .128822D+03, .946656D+02, .696338D+02, .513282D+02, + .378674D+02, .279878D+02, .207318D+02, .153915D+02, + .114564D+02, .854746D+01, .639606D+01, .479674D+01, + .360528D+01, .271471D+01, .204740D+01, .154540D+01, + .116856D+01, .881855D+00, .666475D+00, .502228D+00, + .378274D+00, .284314D+00, .213176D+00, .159365D+00, + .118741D+00, .881332D-01, .651489D-01, .479530D-01, + .351449D-01, .256432D-01, .186340D-01, .134887D-01, + .972910D-02, .701009D-02, .503305D-02, .361321D-02, + .259975D-02, .187881D-02, .136756D-02, .100457D-02, + .746343D-03, .561024D-03, .426703D-03, .327556D-03, + .253799D-03, .196881D-03, .152499D-03, .117302D-03 / DATA (UPDI(I),I=6085,6136) / + .891398D-04, .665225D-04, .484435D-04, .341924D-04, + .231203D-04, .148351D-04, .886345D-05, .479896D-05, + .225065D-05, .837679D-06, .206871D-06, .217834D-07, + .000000D+00, .157351D+07, .118468D+07, .875908D+06, + .647188D+06, .477899D+06, .352631D+06, .260034D+06, + .191606D+06, .141092D+06, .103815D+06, .763347D+05, + .560844D+05, .411779D+05, .302092D+05, .221470D+05, + .162234D+05, .118762D+05, .868696D+04, .635006D+04, + .463829D+04, .338598D+04, .247005D+04, .180098D+04, + .131235D+04, .955924D+03, .695947D+03, .506726D+03, + .367201D+03, .267346D+03, .194673D+03, .141823D+03, + .103381D+03, .754223D+02, .551359D+02, .403351D+02, + .295593D+02, .217088D+02, .159784D+02, .117907D+02 / DATA (UPDI(I),I=6137,6188) / + .872096D+01, .646956D+01, .481013D+01, .358437D+01, + .267603D+01, .200120D+01, .149791D+01, .112333D+01, + .840797D+00, .630346D+00, .471234D+00, .352165D+00, + .262667D+00, .195464D+00, .145046D+00, .107290D+00, + .790711D-01, .580478D-01, .424412D-01, .309045D-01, + .224102D-01, .161891D-01, .116549D-01, .836371D-02, + .599883D-02, .428997D-02, .306991D-02, .220347D-02, + .158982D-02, .115610D-02, .848891D-03, .630545D-03, + .473844D-03, .360122D-03, .276017D-03, .213300D-03, + .164835D-03, .127033D-03, .971091D-04, .732518D-04, + .542047D-04, .390908D-04, .272922D-04, .182240D-04, + .115279D-04, .677318D-05, .359495D-05, .164460D-05, + .593207D-06, .141673D-06, .150790D-07, .000000D+00 / DATA (UPDI(I),I=6189,6240) / + .205468D+07, .154044D+07, .113325D+07, .833114D+06, + .612054D+06, .449294D+06, .329584D+06, .241572D+06, + .176934D+06, .129482D+06, .946851D+05, .691798D+05, + .505061D+05, .368406D+05, .268517D+05, .195539D+05, + .142285D+05, .103443D+05, .751476D+04, .545454D+04, + .395639D+04, .286739D+04, .207685D+04, .150318D+04, + .108741D+04, .786127D+03, .568312D+03, .408805D+03, + .295443D+03, .213521D+03, .154368D+03, .111655D+03, + .808173D+02, .586097D+02, .425294D+02, .309126D+02, + .225150D+02, .164339D+02, .120252D+02, .881967D+01, + .648768D+01, .478299D+01, .353419D+01, .261651D+01, + .194042D+01, .144042D+01, .107142D+01, .795445D+00, + .591594D+00, .438773D+00, .325364D+00, .240828D+00 / DATA (UPDI(I),I=6241,6292) / + .177869D+00, .131020D+00, .962154D-01, .704106D-01, + .513363D-01, .372857D-01, .269770D-01, .194434D-01, + .139653D-01, .100005D-01, .714155D-02, .510025D-02, + .363413D-02, .259323D-02, .185758D-02, .133865D-02, + .972928D-03, .714370D-03, .530668D-03, .398747D-03, + .302842D-03, .231745D-03, .178594D-03, .137465D-03, + .105382D-03, .800404D-04, .599162D-04, .439490D-04, + .313776D-04, .216615D-04, .142782D-04, .890003D-05, + .514011D-05, .267309D-05, .119243D-05, .416931D-06, + .964635D-07, .103761D-07, .000000D+00, .263925D+07, + .197063D+07, .144268D+07, .105539D+07, .771504D+06, + .563503D+06, .411265D+06, .299894D+06, .218508D+06, + .159065D+06, .115697D+06, .840752D+05, .610444D+05 / DATA (UPDI(I),I=6293,6344) / + .442803D+05, .320924D+05, .232367D+05, .168101D+05, + .121492D+05, .877312D+04, .632919D+04, .456241D+04, + .328582D+04, .236470D+04, .170038D+04, .122192D+04, + .877393D+03, .629934D+03, .449923D+03, .322849D+03, + .231643D+03, .166238D+03, .119343D+03, .857264D+02, + .616923D+02, .444163D+02, .320287D+02, .231411D+02, + .167546D+02, .121601D+02, .884554D+01, .645322D+01, + .471841D+01, .345775D+01, .253890D+01, .186745D+01, + .137497D+01, .101451D+01, .747158D+00, .551299D+00, + .405689D+00, .298519D+00, .219288D+00, .160756D+00, + .117550D+00, .857068D-01, .622836D-01, .451038D-01, + .325452D-01, .233995D-01, .167647D-01, .119743D-01, + .853086D-02, .606388D-02, .431330D-02, .306331D-02 / DATA (UPDI(I),I=6345,6396) / + .218056D-02, .155946D-02, .112290D-02, .815984D-03, + .599277D-03, .445284D-03, .334572D-03, .253912D-03, + .193958D-03, .149028D-03, .114220D-03, .870776D-04, + .656925D-04, .487862D-04, .354608D-04, .250562D-04, + .170974D-04, .111208D-04, .682798D-05, .387466D-05, + .197346D-05, .858205D-06, .290983D-06, .653272D-07, + .710013D-08, .000000D+00, .119143D-02, .143316D-02, + .174111D-02, .211528D-02, .256992D-02, .312235D-02, + .379364D-02, .460938D-02, .560067D-02, .680535D-02, + .826936D-02, .100486D-01, .122108D-01, .148386D-01, + .180321D-01, .219127D-01, .266281D-01, .323569D-01, + .393159D-01, .477670D-01, .580268D-01, .704765D-01, + .855748D-01, .103871D+00, .126021D+00, .152802D+00 / DATA (UPDI(I),I=6397,6448) / + .185131D+00, .224685D+00, .271587D+00, .327767D+00, + .394801D+00, .474406D+00, .568395D+00, .678236D+00, + .806199D+00, .953390D+00, .112071D+01, .130831D+01, + .151542D+01, .174017D+01, .197894D+01, .222756D+01, + .248018D+01, .273015D+01, .297026D+01, .319315D+01, + .339113D+01, .355988D+01, .369228D+01, .378618D+01, + .383828D+01, .384826D+01, .381682D+01, .374591D+01, + .363859D+01, .349877D+01, .333099D+01, .314020D+01, + .293157D+01, .271027D+01, .248130D+01, .224940D+01, + .201885D+01, .179449D+01, .157726D+01, .137127D+01, + .117871D+01, .100117D+01, .839720D+00, .694919D+00, + .566884D+00, .455326D+00, .359557D+00, .278607D+00, + .211986D+00, .157392D+00, .113925D+00, .801101D-01 / DATA (UPDI(I),I=6449,6500) / + .544872D-01, .356487D-01, .222763D-01, .131835D-01, + .726861D-02, .368584D-02, .167049D-02, .649755D-03, + .202619D-03, .445822D-04, .519520D-05, .128074D-06, + .000000D+00, .266793D+06, .212198D+06, .167115D+06, + .131544D+06, .103553D+06, .814769D+05, .641120D+05, + .504213D+05, .396569D+05, .311738D+05, .245068D+05, + .192551D+05, .151296D+05, .118813D+05, .933099D+04, + .732397D+04, .574898D+04, .451022D+04, .353865D+04, + .277490D+04, .217620D+04, .170583D+04, .133733D+04, + .104802D+04, .821491D+03, .643752D+03, .504664D+03, + .394309D+03, .309371D+03, .242813D+03, .190810D+03, + .150093D+03, .118311D+03, .935132D+02, .741283D+02, + .589911D+02, .472078D+02, .380163D+02, .308688D+02 / DATA (UPDI(I),I=6501,6552) / + .252928D+02, .209596D+02, .175707D+02, .149237D+02, + .128374D+02, .111877D+02, .986337D+01, .879395D+01, + .790227D+01, .715554D+01, .650538D+01, .593534D+01, + .542024D+01, .494904D+01, .450988D+01, .409855D+01, + .370959D+01, .334225D+01, .299451D+01, .266689D+01, + .235914D+01, .207209D+01, .180599D+01, .156113D+01, + .133868D+01, .113624D+01, .954923D+00, .794041D+00, + .652848D+00, .530218D+00, .425013D+00, .335804D+00, + .261256D+00, .199791D+00, .149852D+00, .110323D+00, + .791956D-01, .553579D-01, .375596D-01, .246051D-01, + .154870D-01, .928344D-02, .526335D-02, .276829D-02, + .133653D-02, .573615D-03, .211003D-03, .618598D-04, + .129361D-04, .151705D-05, .479764D-07, .000000D+00 / DATA (UPDI(I),I=6553,6604) / + .887681D+06, .698190D+06, .542954D+06, .421972D+06, + .327952D+06, .254719D+06, .197838D+06, .153559D+06, + .119188D+06, .924475D+05, .717040D+05, .555761D+05, + .430736D+05, .333597D+05, .258349D+05, .199928D+05, + .154707D+05, .119626D+05, .924943D+04, .714631D+04, + .552110D+04, .426242D+04, .329067D+04, .253880D+04, + .195883D+04, .151050D+04, .116502D+04, .895087D+03, + .690558D+03, .532768D+03, .411408D+03, .317874D+03, + .246004D+03, .190801D+03, .148305D+03, .115617D+03, + .905358D+02, .712393D+02, .564215D+02, .449949D+02, + .362015D+02, .293861D+02, .240994D+02, .199633D+02, + .167136D+02, .141295D+02, .120663D+02, .103769D+02, + .899525D+01, .783205D+01, .685137D+01, .600741D+01 / DATA (UPDI(I),I=6605,6656) / + .527431D+01, .462916D+01, .405820D+01, .354882D+01, + .309358D+01, .268536D+01, .231976D+01, .199267D+01, + .170110D+01, .144230D+01, .121356D+01, .101366D+01, + .838292D+00, .686706D+00, .556688D+00, .446293D+00, + .353427D+00, .276225D+00, .212747D+00, .161311D+00, + .120178D+00, .877589D-01, .628709D-01, .438765D-01, + .297828D-01, .196013D-01, .124351D-01, .756806D-02, + .437524D-02, .238775D-02, .120422D-02, .555975D-03, + .227025D-03, .792624D-04, .219520D-04, .438676D-05, + .526889D-06, .200947D-07, .000000D+00, .196446D+07, + .153209D+07, .118000D+07, .908208D+06, .698941D+06, + .537513D+06, .413315D+06, .317582D+06, .243985D+06, + .187301D+06, .143762D+06, .110256D+06, .845419D+05 / DATA (UPDI(I),I=6657,6708) / + .647720D+05, .496144D+05, .379717D+05, .290543D+05, + .222119D+05, .169768D+05, .129642D+05, .989759D+04, + .754979D+04, .575773D+04, .438745D+04, .334277D+04, + .254486D+04, .193743D+04, .146872D+04, .111798D+04, + .850835D+03, .647939D+03, .493599D+03, .376510D+03, + .287759D+03, .220309D+03, .169107D+03, .130316D+03, + .100854D+03, .785035D+02, .614780D+02, .485237D+02, + .385981D+02, .309794D+02, .250851D+02, .205030D+02, + .169031D+02, .140644D+02, .117748D+02, .993324D+01, + .841415D+01, .716133D+01, .611099D+01, .522317D+01, + .446537D+01, .381497D+01, .325333D+01, .276713D+01, + .234515D+01, .197897D+01, .166151D+01, .138698D+01, + .115045D+01, .947280D+00, .774647D+00, .627254D+00 / DATA (UPDI(I),I=6709,6760) / + .503208D+00, .399547D+00, .313756D+00, .243383D+00, + .186316D+00, .140540D+00, .104349D+00, .761118D-01, + .543925D-01, .381279D-01, .260202D-01, .172634D-01, + .110986D-01, .687424D-02, .408164D-02, .230082D-02, + .122372D-02, .601357D-03, .270636D-03, .107949D-03, + .369718D-04, .101539D-04, .205480D-05, .257879D-06, + .974981D-08, .000000D+00, .329453D+07, .255392D+07, + .195342D+07, .149303D+07, .114090D+07, .871169D+06, + .665042D+06, .507293D+06, .386855D+06, .294771D+06, + .224538D+06, .170894D+06, .130022D+06, .988381D+05, + .751058D+05, .570198D+05, .432722D+05, .328083D+05, + .248647D+05, .188262D+05, .142483D+05, .107732D+05, + .814258D+04, .614858D+04, .464131D+04, .350031D+04 / DATA (UPDI(I),I=6761,6812) / + .263942D+04, .198124D+04, .149323D+04, .112505D+04, + .848013D+03, .639328D+03, .482502D+03, .364811D+03, + .276222D+03, .209644D+03, .159689D+03, .122123D+03, + .938932D+02, .725973D+02, .565414D+02, .443549D+02, + .350832D+02, .279773D+02, .225031D+02, .182448D+02, + .149206D+02, .122700D+02, .101641D+02, .845127D+01, + .705967D+01, .591270D+01, .496025D+01, .416299D+01, + .349215D+01, .292490D+01, .244396D+01, .203544D+01, + .168837D+01, .139383D+01, .114436D+01, .933846D+00, + .756615D+00, .609000D+00, .485404D+00, .383375D+00, + .299717D+00, .231765D+00, .177045D+00, .133477D+00, + .991579D-01, .725089D-01, .520880D-01, .366578D-01, + .253073D-01, .170074D-01, .111120D-01, .703545D-02 / DATA (UPDI(I),I=6813,6864) / + .429223D-02, .251092D-02, .139532D-02, .732192D-03, + .355580D-03, .158502D-03, .628846D-04, .215429D-04, + .597875D-05, .123556D-05, .159330D-06, .578102D-08, + .000000D+00, .516324D+07, .398008D+07, .302457D+07, + .229669D+07, .174342D+07, .132239D+07, .100268D+07, + .759643D+06, .575289D+06, .435299D+06, .329234D+06, + .248788D+06, .187912D+06, .141798D+06, .106947D+06, + .805823D+05, .606851D+05, .456542D+05, .343274D+05, + .257837D+05, .193554D+05, .145144D+05, .108783D+05, + .814466D+04, .609485D+04, .455609D+04, .340483D+04, + .253227D+04, .189088D+04, .141131D+04, .105360D+04, + .786624D+03, .587782D+03, .439955D+03, .329694D+03, + .247612D+03, .186589D+03, .141133D+03, .107286D+03 / DATA (UPDI(I),I=6865,6916) / + .819910D+02, .630908D+02, .488776D+02, .381596D+02, + .300213D+02, .238087D+02, .190231D+02, .153242D+02, + .124067D+02, .101154D+02, .827555D+01, .680065D+01, + .560296D+01, .462363D+01, .381741D+01, .315045D+01, + .259645D+01, .213509D+01, .175034D+01, .142938D+01, + .116200D+01, .939627D+00, .755353D+00, .602957D+00, + .478262D+00, .375669D+00, .292439D+00, .225358D+00, + .171790D+00, .129375D+00, .961644D-01, .704367D-01, + .507861D-01, .359749D-01, .249647D-01, .169971D-01, + .112652D-01, .726010D-02, .453518D-02, .273096D-02, + .157770D-02, .866605D-03, .450051D-03, .216750D-03, + .960669D-04, .380591D-04, .130841D-04, .367278D-05, + .772082D-06, .101271D-06, .342774D-08, .000000D+00 / DATA (UPDI(I),I=6917,6968) / + .767710D+07, .588721D+07, .444696D+07, .335636D+07, + .253216D+07, .190877D+07, .143819D+07, .108268D+07, + .814652D+06, .612413D+06, .460134D+06, .345387D+06, + .259106D+06, .194183D+06, .145437D+06, .108812D+06, + .813575D+05, .607629D+05, .453504D+05, .338087D+05, + .251865D+05, .187416D+05, .139361D+05, .103509D+05, + .768289D+04, .569574D+04, .422075D+04, .311192D+04, + .230350D+04, .170411D+04, .126073D+04, .932666D+03, + .690399D+03, .511881D+03, .379878D+03, .282494D+03, + .210729D+03, .157755D+03, .118656D+03, .896987D+02, + .682512D+02, .522672D+02, .403187D+02, .313288D+02, + .245279D+02, .193389D+02, .153671D+02, .122671D+02, + .985922D+01, .794862D+01, .643605D+01, .522427D+01 / DATA (UPDI(I),I=6969,7020) / + .424720D+01, .345474D+01, .280907D+01, .228119D+01, + .184855D+01, .149361D+01, .120234D+01, .963663D+00, + .768383D+00, .609190D+00, .479643D+00, .375336D+00, + .290872D+00, .223424D+00, .169910D+00, .127834D+00, + .950278D-01, .697289D-01, .504254D-01, .359006D-01, + .251151D-01, .172143D-01, .115797D-01, .758422D-02, + .483209D-02, .298551D-02, .177939D-02, .101832D-02, + .554795D-03, .286212D-03, .137241D-03, .607157D-04, + .240964D-04, .832644D-05, .235970D-05, .501322D-06, + .661820D-07, .204894D-08, .000000D+00, .115361D+08, + .879569D+07, .659948D+07, .494746D+07, .370699D+07, + .277511D+07, .207629D+07, .155202D+07, .115940D+07, + .865266D+06, .645318D+06, .480788D+06, .357948D+06 / DATA (UPDI(I),I=7021,7072) / + .266207D+06, .197826D+06, .146844D+06, .108911D+06, + .806820D+05, .597184D+05, .441473D+05, .326074D+05, + .240535D+05, .177280D+05, .130495D+05, .959728D+04, + .704877D+04, .517396D+04, .377750D+04, .276873D+04, + .202790D+04, .148501D+04, .108725D+04, .796333D+03, + .584117D+03, .428737D+03, .315279D+03, .232505D+03, + .172037D+03, .127856D+03, .954756D+02, .717351D+02, + .542264D+02, .412719D+02, .316287D+02, .244109D+02, + .189649D+02, .148438D+02, .116660D+02, .922896D+01, + .732124D+01, .583213D+01, .465698D+01, .372408D+01, + .297975D+01, .238333D+01, .190410D+01, .151813D+01, + .120709D+01, .956358D+00, .754561D+00, .592387D+00, + .462523D+00, .358691D+00, .276543D+00, .211171D+00 / DATA (UPDI(I),I=7073,7124) / + .159863D+00, .119844D+00, .889035D-01, .651783D-01, + .471800D-01, .336677D-01, .236602D-01, .163447D-01, + .110667D-01, .735813D-02, .476610D-02, .300548D-02, + .183957D-02, .108744D-02, .618072D-03, .335026D-03, + .172285D-03, .825610D-04, .365864D-04, .145857D-04, + .507054D-05, .144801D-05, .309315D-06, .408466D-07, + .116274D-08, .000000D+00, .167458D+08, .126972D+08, + .946501D+07, .704929D+07, .524678D+07, .390154D+07, + .289923D+07, .215230D+07, .159663D+07, .118319D+07, + .876120D+06, .648032D+06, .478919D+06, .353529D+06, + .260733D+06, .192061D+06, .141340D+06, .103880D+06, + .762723D+05, .559267D+05, .409655D+05, .299654D+05, + .218960D+05, .159774D+05, .116464D+05, .847652D+04 / DATA (UPDI(I),I=7125,7176) / + .616482D+04, .445830D+04, .323660D+04, .234765D+04, + .170217D+04, .123375D+04, .894363D+03, .649207D+03, + .471439D+03, .342928D+03, .250095D+03, .182966D+03, + .134407D+03, .991818D+02, .736159D+02, .549558D+02, + .412907D+02, .312265D+02, .237737D+02, .182127D+02, + .140523D+02, .108824D+02, .848156D+01, .662675D+01, + .519855D+01, .408754D+01, .321847D+01, .253566D+01, + .199705D+01, .157118D+01, .123373D+01, .966257D+00, + .754192D+00, .586334D+00, .453656D+00, .349154D+00, + .266959D+00, .202979D+00, .152881D+00, .114183D+00, + .844736D-01, .618581D-01, .447805D-01, .320182D-01, + .225774D-01, .156848D-01, .107167D-01, .718027D-02, + .472770D-02, .303465D-02, .189813D-02, .115356D-02 / DATA (UPDI(I),I=7177,7228) / + .677924D-03, .383562D-03, .207298D-03, .106446D-03, + .510278D-04, .226464D-04, .905164D-05, .315328D-05, + .901688D-06, .192227D-06, .252044D-07, .643289D-09, + .000000D+00, .235426D+08, .177564D+08, .131540D+08, + .973525D+07, .719976D+07, .531938D+07, .392702D+07, + .289609D+07, .213401D+07, .157073D+07, .115508D+07, + .848435D+06, .622594D+06, .456304D+06, .334084D+06, + .244281D+06, .178422D+06, .130140D+06, .948139D+05, + .689774D+05, .501213D+05, .363654D+05, .263529D+05, + .190681D+05, .137802D+05, .994187D+04, .716631D+04, + .513504D+04, .369351D+04, .265396D+04, .190583D+04, + .136791D+04, .981744D+03, .705441D+03, .506974D+03, + .364894D+03, .263250D+03, .190477D+03, .138354D+03 / DATA (UPDI(I),I=7229,7280) / + .100922D+03, .740267D+02, .545966D+02, .405129D+02, + .302496D+02, .227301D+02, .171810D+02, .130763D+02, + .998562D+01, .767329D+01, .590955D+01, .456930D+01, + .354093D+01, .274778D+01, .213361D+01, .165626D+01, + .128449D+01, .994365D+00, .767911D+00, .591117D+00, + .453318D+00, .346059D+00, .262854D+00, .198389D+00, + .148951D+00, .110806D+00, .817657D-01, .597866D-01, + .432865D-01, .309956D-01, .219309D-01, .153110D-01, + .105368D-01, .713623D-02, .474247D-02, .309975D-02, + .197671D-02, .122952D-02, .743783D-03, .435572D-03, + .245825D-03, .132669D-03, .680776D-04, .326339D-04, + .144799D-04, .578269D-05, .200868D-05, .571399D-06, + .120763D-06, .156346D-07, .353263D-09, .000000D+00 / DATA (UPDI(I),I=7281,7332) / + .321588D+08, .241327D+08, .177706D+08, .130726D+08, + .960867D+07, .705525D+07, .517582D+07, .379286D+07, + .277680D+07, .203055D+07, .148335D+07, .108227D+07, + .788785D+06, .574128D+06, .417406D+06, .303041D+06, + .219743D+06, .159106D+06, .115053D+06, .830685D+05, + .598952D+05, .431168D+05, .309960D+05, .222457D+05, + .159435D+05, .114054D+05, .815063D+04, .578853D+04, + .412638D+04, .293806D+04, .209026D+04, .148612D+04, + .105628D+04, .751556D+03, .534688D+03, .380902D+03, + .271925D+03, .194655D+03, .139846D+03, .100874D+03, + .731471D+02, .533183D+02, .390910D+02, .288309D+02, + .213929D+02, .159635D+02, .119921D+02, .903622D+01, + .685111D+01, .520493D+01, .396988D+01, .303463D+01 / DATA (UPDI(I),I=7333,7384) / + .232293D+01, .177937D+01, .136276D+01, .104285D+01, + .796727D+00, .607346D+00, .461592D+00, .349590D+00, + .263630D+00, .197870D+00, .147615D+00, .109591D+00, + .806396D-01, .588811D-01, .426204D-01, .305613D-01, + .216841D-01, .152107D-01, .105341D-01, .719559D-02, + .484038D-02, .319712D-02, .207858D-02, .131941D-02, + .817559D-03, .493044D-03, .288046D-03, .162259D-03, + .874373D-04, .447962D-04, .214315D-04, .947957D-05, + .376769D-05, .129899D-05, .365771D-06, .763035D-07, + .972553D-08, .193000D-09, .000000D+00, .428049D+08, + .319664D+08, .234035D+08, .171161D+08, .125065D+08, + .912831D+07, .665614D+07, .484783D+07, .352713D+07, + .256305D+07, .186042D+07, .134862D+07, .976464D+06 / DATA (UPDI(I),I=7385,7436) / + .706014D+06, .509824D+06, .367605D+06, .264702D+06, + .190305D+06, .136624D+06, .979222D+05, .700797D+05, + .500668D+05, .357148D+05, .254313D+05, .180806D+05, + .128285D+05, .909142D+04, .640120D+04, .452368D+04, + .319259D+04, .225091D+04, .158569D+04, .111648D+04, + .786831D+03, .554323D+03, .390965D+03, .276272D+03, + .195718D+03, .139120D+03, .992649D+02, .711847D+02, + .513018D+02, .371779D+02, .270968D+02, .198645D+02, + .146415D+02, .108629D+02, .808199D+01, .605015D+01, + .453766D+01, .341675D+01, .257854D+01, .194878D+01, + .147401D+01, .111487D+01, .842705D+00, .636069D+00, + .479159D+00, .359973D+00, .269568D+00, .201069D+00, + .149321D+00, .110260D+00, .810589D-01, .590840D-01 / DATA (UPDI(I),I=7437,7488) / + .427551D-01, .306854D-01, .218274D-01, .153716D-01, + .107081D-01, .736886D-02, .500443D-02, .334902D-02, + .220190D-02, .142585D-02, .901939D-03, .557211D-03, + .335145D-03, .195324D-03, .109755D-03, .589828D-04, + .301137D-04, .143419D-04, .630427D-05, .248494D-05, + .847307D-06, .235368D-06, .483376D-07, .605803D-08, + .105155D-09, .000000D+00, .556565D+08, .413708D+08, + .301202D+08, .219046D+08, .159142D+08, .115486D+08, + .837180D+07, .606138D+07, .438364D+07, .316613D+07, + .228402D+07, .164538D+07, .118378D+07, .850417D+06, + .610091D+06, .436992D+06, .312548D+06, .223168D+06, + .159103D+06, .113228D+06, .804504D+05, .570554D+05, + .403965D+05, .285466D+05, .201381D+05, .141752D+05 / DATA (UPDI(I),I=7489,7540) / + .996503D+04, .695792D+04, .487594D+04, .341184D+04, + .238452D+04, .166489D+04, .116159D+04, .811059D+03, + .565983D+03, .395336D+03, .276607D+03, .193985D+03, + .136472D+03, .963544D+02, .683583D+02, .487272D+02, + .349189D+02, .251619D+02, .182335D+02, .132821D+02, + .973820D+01, .715856D+01, .529488D+01, .392344D+01, + .291894D+01, .217668D+01, .162571D+01, .121537D+01, + .908750D+00, .679216D+00, .507062D+00, .377909D+00, + .280975D+00, .208306D+00, .153878D+00, .113219D+00, + .828627D-01, .604064D-01, .436788D-01, .313696D-01, + .223556D-01, .157980D-01, .110583D-01, .766061D-02, + .524510D-02, .354575D-02, .236305D-02, .154781D-02, + .998909D-03, .629864D-03, .387946D-03, .232617D-03 / DATA (UPDI(I),I=7541,7592) / + .135124D-03, .756396D-04, .404666D-04, .205445D-04, + .971574D-05, .423292D-05, .165020D-05, .555102D-06, + .151796D-06, .306459D-07, .377574D-08, .573060D-10, + .000000D+00, .708437D+08, .524243D+08, .379622D+08, + .274575D+08, .198385D+08, .143162D+08, .103194D+08, + .742879D+07, .534139D+07, .383524D+07, .275022D+07, + .196927D+07, .140812D+07, .100530D+07, .716647D+06, + .510028D+06, .362408D+06, .257059D+06, .182030D+06, + .128659D+06, .907772D+05, .639231D+05, .449320D+05, + .315181D+05, .220675D+05, .154142D+05, .107515D+05, + .744655D+04, .517601D+04, .359185D+04, .248911D+04, + .172295D+04, .119151D+04, .824492D+03, .570075D+03, + .394468D+03, .273361D+03, .189841D+03, .132228D+03 / DATA (UPDI(I),I=7593,7644) / + .924117D+02, .648839D+02, .457641D+02, .324444D+02, + .231249D+02, .165729D+02, .119380D+02, .865502D+01, + .629044D+01, .460057D+01, .337062D+01, .247976D+01, + .182884D+01, .135112D+01, .999346D+00, .739455D+00, + .547084D+00, .404406D+00, .298536D+00, .219930D+00, + .161617D+00, .118386D+00, .864089D-01, .627616D-01, + .454269D-01, .326267D-01, .232848D-01, .164971D-01, + .115949D-01, .807569D-02, .556862D-02, .379656D-02, + .255636D-02, .169736D-02, .110783D-02, .712503D-03, + .447687D-03, .274723D-03, .164058D-03, .948634D-04, + .528185D-04, .280795D-04, .141480D-04, .662990D-05, + .285707D-05, .109953D-05, .364295D-06, .979456D-07, + .194256D-07, .235368D-08, .313506D-10, .000000D+00 / DATA (UPDI(I),I=7645,7696) / + .461958D+04, .573651D+04, .477062D+04, .396850D+04, + .330226D+04, .274881D+04, .228896D+04, .190681D+04, + .158916D+04, .132506D+04, .110543D+04, .922723D+03, + .770691D+03, .644140D+03, .538762D+03, .450979D+03, + .377822D+03, .316826D+03, .265944D+03, .223477D+03, + .188012D+03, .158377D+03, .133597D+03, .112863D+03, + .955020D+02, .809539D+02, .687538D+02, .583820D+02, + .498070D+02, .425987D+02, .365352D+02, .314314D+02, + .271332D+02, .235219D+02, .204708D+02, .179005D+02, + .157351D+02, .139110D+02, .123741D+02, .110783D+02, + .998650D+01, .906355D+01, .828162D+01, .761642D+01, + .704723D+01, .655646D+01, .613066D+01, .575322D+01, + .541832D+01, .511319D+01, .483388D+01, .457357D+01 / DATA (UPDI(I),I=7697,7748) / + .432778D+01, .409303D+01, .386668D+01, .364683D+01, + .343216D+01, .322183D+01, .301542D+01, .281280D+01, + .261411D+01, .241964D+01, .222981D+01, .204597D+01, + .186674D+01, .169384D+01, .152787D+01, .136937D+01, + .121885D+01, .107680D+01, .943702D+00, .819662D+00, + .704884D+00, .599453D+00, .504369D+00, .418201D+00, + .341528D+00, .274116D+00, .215648D+00, .165727D+00, + .123875D+00, .895965D-01, .620773D-01, .408822D-01, + .251481D-01, .140965D-01, .690782D-02, .273790D-02, + .737015D-03, .770655D-04, .000000D+00, .218551D+05, + .176381D+05, .141256D+05, .113176D+05, .907538D+04, + .728111D+04, .584707D+04, .469828D+04, .377918D+04, + .304201D+04, .245153D+04, .197730D+04, .159693D+04 / DATA (UPDI(I),I=7749,7800) / + .129099D+04, .104522D+04, .847207D+03, .687874D+03, + .559250D+03, .455553D+03, .371664D+03, .303889D+03, + .248929D+03, .204415D+03, .168221D+03, .138825D+03, + .114862D+03, .953345D+02, .791617D+02, .661487D+02, + .554629D+02, .467004D+02, .394790D+02, .335371D+02, + .286360D+02, .245794D+02, .212145D+02, .184282D+02, + .161086D+02, .141804D+02, .125674D+02, .112203D+02, + .100855D+02, .912840D+01, .831350D+01, .761659D+01, + .701370D+01, .648983D+01, .602403D+01, .561068D+01, + .523410D+01, .489098D+01, .457304D+01, .427597D+01, + .399562D+01, .372947D+01, .347516D+01, .323142D+01, + .299710D+01, .277169D+01, .255476D+01, .234624D+01, + .214614D+01, .195453D+01, .177246D+01, .159818D+01 / DATA (UPDI(I),I=7801,7852) / + .143310D+01, .127740D+01, .113128D+01, .994876D+00, + .868273D+00, .751482D+00, .644507D+00, .547202D+00, + .459277D+00, .381303D+00, .311815D+00, .251055D+00, + .198549D+00, .153801D+00, .116294D+00, .854348D-01, + .606730D-01, .412082D-01, .265615D-01, .159549D-01, + .870978D-02, .414049D-02, .158568D-02, .413314D-03, + .436283D-04, .000000D+00, .495202D+05, .392825D+05, + .308566D+05, .242428D+05, .190574D+05, .149852D+05, + .117912D+05, .928138D+04, .731172D+04, .576292D+04, + .454659D+04, .358930D+04, .283685D+04, .224401D+04, + .177752D+04, .140949D+04, .111950D+04, .890354D+03, + .709502D+03, .566316D+03, .453092D+03, .363240D+03, + .292014D+03, .235334D+03, .190272D+03, .154312D+03 / DATA (UPDI(I),I=7853,7904) / + .125621D+03, .102346D+03, .839955D+02, .692214D+02, + .573387D+02, .477250D+02, .399551D+02, .336528D+02, + .285196D+02, .243232D+02, .208959D+02, .180765D+02, + .157583D+02, .138362D+02, .122439D+02, .109103D+02, + .979120D+01, .884146D+01, .803153D+01, .733216D+01, + .672570D+01, .618759D+01, .571158D+01, .527961D+01, + .488827D+01, .452816D+01, .419460D+01, .388290D+01, + .359029D+01, .331404D+01, .305265D+01, .280467D+01, + .256935D+01, .234598D+01, .213422D+01, .193380D+01, + .174446D+01, .156697D+01, .139933D+01, .124263D+01, + .109676D+01, .961647D+00, .837136D+00, .723067D+00, + .619186D+00, .525276D+00, .440991D+00, .365825D+00, + .300071D+00, .242281D+00, .192442D+00, .150027D+00 / DATA (UPDI(I),I=7905,7956) / + .114443D+00, .851205D-01, .614114D-01, .427599D-01, + .283999D-01, .178496D-01, .104095D-01, .548554D-02, + .249468D-02, .901551D-03, .219283D-03, .236238D-04, + .000000D+00, .607343D+05, .716834D+05, .556435D+05, + .431921D+05, .335376D+05, .260424D+05, .202306D+05, + .157180D+05, .122184D+05, .950046D+04, .739210D+04, + .575396D+04, .448272D+04, .349441D+04, .272698D+04, + .212986D+04, .166579D+04, .130430D+04, .102304D+04, + .803631D+03, .632663D+03, .499042D+03, .394704D+03, + .312962D+03, .248964D+03, .198697D+03, .159216D+03, + .127689D+03, .103217D+03, .838208D+02, .684539D+02, + .562082D+02, .464514D+02, .386491D+02, .323770D+02, + .273145D+02, .232271D+02, .199010D+02, .171919D+02 / DATA (UPDI(I),I=7957,8008) / + .149652D+02, .131337D+02, .116096D+02, .103372D+02, + .926231D+01, .834897D+01, .756315D+01, .688394D+01, + .628356D+01, .575466D+01, .527715D+01, .484705D+01, + .445403D+01, .409280D+01, .375818D+01, .344699D+01, + .315613D+01, .288377D+01, .262817D+01, .238828D+01, + .216308D+01, .195196D+01, .175437D+01, .156975D+01, + .139859D+01, .123868D+01, .109083D+01, .954692D+00, + .829955D+00, .716239D+00, .613184D+00, .520346D+00, + .437339D+00, .363670D+00, .298699D+00, .242514D+00, + .193715D+00, .152137D+00, .117200D+00, .882745D-01, + .647706D-01, .460434D-01, .315477D-01, .205785D-01, + .126743D-01, .721967D-02, .369986D-02, .162519D-02, + .561656D-03, .129528D-03, .141864D-04, .000000D+00 / DATA (UPDI(I),I=8009,8060) / + .142731D+06, .111288D+06, .857140D+05, .660088D+05, + .508397D+05, .391535D+05, .301593D+05, .232313D+05, + .179000D+05, .137936D+05, .106337D+05, .819969D+04, + .632656D+04, .488338D+04, .377248D+04, .291619D+04, + .225674D+04, .174807D+04, .135603D+04, .105332D+04, + .819772D+03, .639175D+03, .499600D+03, .391455D+03, + .307687D+03, .242631D+03, .192102D+03, .152215D+03, + .121600D+03, .976182D+02, .788271D+02, .640254D+02, + .523574D+02, .431303D+02, .357866D+02, .299197D+02, + .252251D+02, .214392D+02, .183789D+02, .158822D+02, + .138411D+02, .121526D+02, .107494D+02, .956936D+01, + .857036D+01, .771422D+01, .697677D+01, .632752D+01, + .575788D+01, .524610D+01, .478748D+01, .437094D+01 / DATA (UPDI(I),I=8061,8112) / + .399052D+01, .364065D+01, .331765D+01, .301817D+01, + .273997D+01, .248109D+01, .224015D+01, .201592D+01, + .180750D+01, .161412D+01, .143497D+01, .127028D+01, + .111771D+01, .977853D+00, .850148D+00, .734125D+00, + .629240D+00, .534985D+00, .450793D+00, .376160D+00, + .310498D+00, .253088D+00, .203883D+00, .161533D+00, + .125789D+00, .960444D-01, .716659D-01, .520647D-01, + .366199D-01, .248065D-01, .159805D-01, .970850D-02, + .544613D-02, .274280D-02, .118073D-02, .398852D-03, + .901138D-04, .993876D-05, .000000D+00, .211064D+06, + .163633D+06, .125205D+06, .957808D+05, .732696D+05, + .560384D+05, .428610D+05, .327782D+05, .250702D+05, + .191741D+05, .146681D+05, .112219D+05, .858867D+04 / DATA (UPDI(I),I=8113,8164) / + .657496D+04, .503635D+04, .385959D+04, .296032D+04, + .227230D+04, .174629D+04, .134359D+04, .103550D+04, + .799380D+03, .618496D+03, .479643D+03, .373071D+03, + .291099D+03, .228039D+03, .178753D+03, .141294D+03, + .112249D+03, .897115D+02, .721391D+02, .584191D+02, + .476764D+02, .392041D+02, .324981D+02, .271766D+02, + .229205D+02, .195047D+02, .167376D+02, .144887D+02, + .126391D+02, .111089D+02, .982818D+01, .874810D+01, + .782626D+01, .703518D+01, .634160D+01, .573564D+01, + .519387D+01, .471084D+01, .427468D+01, .387873D+01, + .351700D+01, .318534D+01, .288006D+01, .259858D+01, + .233865D+01, .209860D+01, .187696D+01, .167256D+01, + .148443D+01, .131148D+01, .115376D+01, .100880D+01 / DATA (UPDI(I),I=8165,8216) / + .876958D+00, .757527D+00, .649879D+00, .553338D+00, + .467276D+00, .391020D+00, .323975D+00, .265480D+00, + .214765D+00, .171670D+00, .134908D+00, .104165D+00, + .788247D-01, .582627D-01, .419022D-01, .291534D-01, + .195181D-01, .124118D-01, .743301D-02, .410251D-02, + .202787D-02, .853980D-03, .281245D-03, .620756D-04, + .690159D-05, .000000D+00, .203119D+06, .231202D+06, + .175888D+06, .133766D+06, .101718D+06, .773258D+05, + .587777D+05, .446679D+05, .339447D+05, .257914D+05, + .195981D+05, .148910D+05, .113170D+05, .860147D+04, + .654017D+04, .497431D+04, .378581D+04, .288293D+04, + .219755D+04, .167671D+04, .128119D+04, .980408D+03, + .751773D+03, .577686D+03, .445152D+03, .344068D+03 / DATA (UPDI(I),I=8217,8268) / + .266966D+03, .207233D+03, .162231D+03, .127652D+03, + .101056D+03, .805087D+02, .646051D+02, .522643D+02, + .426129D+02, .350386D+02, .290744D+02, .243410D+02, + .205680D+02, .175318D+02, .150782D+02, .130713D+02, + .114187D+02, .100420D+02, .888550D+01, .790257D+01, + .706231D+01, .632875D+01, .569058D+01, .512280D+01, + .461908D+01, .416681D+01, .375859D+01, .338802D+01, + .305044D+01, .274184D+01, .245928D+01, .220023D+01, + .196272D+01, .174503D+01, .154577D+01, .136373D+01, + .119762D+01, .104725D+01, .910082D+00, .786266D+00, + .674946D+00, .575366D+00, .486738D+00, .408333D+00, + .339400D+00, .279269D+00, .227227D+00, .182470D+00, + .144755D+00, .112857D+00, .864178D-01, .648260D-01 / DATA (UPDI(I),I=8269,8320) / + .474750D-01, .338089D-01, .232744D-01, .154045D-01, + .967297D-02, .571229D-02, .310332D-02, .150633D-02, + .620994D-03, .199600D-03, .430945D-04, .482861D-05, + .000000D+00, .441605D+06, .338812D+06, .256125D+06, + .193543D+06, .146216D+06, .110418D+06, .833665D+05, + .629204D+05, .474807D+05, .358194D+05, .270196D+05, + .203776D+05, .153687D+05, .115902D+05, .874232D+04, + .659498D+04, .497714D+04, .375760D+04, .283897D+04, + .214653D+04, .162492D+04, .123160D+04, .935145D+03, + .711422D+03, .542599D+03, .415022D+03, .318616D+03, + .244649D+03, .189460D+03, .147478D+03, .115500D+03, + .910458D+02, .723018D+02, .579034D+02, .467486D+02, + .380789D+02, .313122D+02, .259894D+02, .217797D+02 / DATA (UPDI(I),I=8321,8372) / + .184183D+02, .157201D+02, .135276D+02, .117322D+02, + .102450D+02, .900185D+01, .795063D+01, .705634D+01, + .627967D+01, .560757D+01, .501311D+01, .448889D+01, + .402135D+01, .360224D+01, .322458D+01, .288313D+01, + .257349D+01, .229224D+01, .203653D+01, .180405D+01, + .159278D+01, .140105D+01, .122739D+01, .107028D+01, + .929285D+00, .801778D+00, .687685D+00, .586003D+00, + .495841D+00, .416304D+00, .346566D+00, .285806D+00, + .233288D+00, .188258D+00, .149894D+00, .117877D+00, + .910671D-01, .690735D-01, .513024D-01, .371800D-01, + .261855D-01, .178141D-01, .116418D-01, .720978D-02, + .419372D-02, .224035D-02, .106709D-02, .430628D-03, + .135247D-03, .286371D-04, .323168D-05, .000000D+00 / DATA (UPDI(I),I=8373,8424) / + .629503D+06, .480536D+06, .361120D+06, .271257D+06, + .203685D+06, .152873D+06, .114699D+06, .860188D+05, + .644913D+05, .483323D+05, .362137D+05, .271250D+05, + .203146D+05, .152109D+05, .113896D+05, .852791D+04, + .638664D+04, .478399D+04, .358538D+04, .268857D+04, + .201801D+04, .151630D+04, .114107D+04, .860182D+03, + .649946D+03, .492400D+03, .374363D+03, .284598D+03, + .218216D+03, .168177D+03, .130405D+03, .101786D+03, + .800480D+02, .635033D+02, .507981D+02, .410110D+02, + .334352D+02, .275248D+02, .228849D+02, .192071D+02, + .162736D+02, .139048D+02, .119756D+02, .103862D+02, + .906412D+01, .795180D+01, .701011D+01, .619650D+01, + .549613D+01, .488023D+01, .434033D+01, .386191D+01 / DATA (UPDI(I),I=8425,8476) / + .343589D+01, .305473D+01, .271261D+01, .240472D+01, + .212722D+01, .187694D+01, .165120D+01, .144774D+01, + .126461D+01, .110012D+01, .952530D+00, .821187D+00, + .703410D+00, .598918D+00, .506589D+00, .425427D+00, + .354452D+00, .292770D+00, .239510D+00, .193893D+00, + .155146D+00, .122446D+00, .954222D-01, .730208D-01, + .548364D-01, .403031D-01, .288858D-01, .201042D-01, + .135033D-01, .870357D-02, .530866D-02, .303622D-02, + .159142D-02, .741648D-03, .291850D-03, .891149D-04, + .184125D-04, .209674D-05, .000000D+00, .873348D+06, + .663505D+06, .495840D+06, .370352D+06, .276503D+06, + .206322D+06, .153889D+06, .114720D+06, .854864D+05, + .636709D+05, .474061D+05, .352809D+05, .262500D+05 / DATA (UPDI(I),I=8477,8528) / + .195242D+05, .145197D+05, .107960D+05, .802767D+04, + .596945D+04, .444044D+04, .330432D+04, .246076D+04, + .183412D+04, .136888D+04, .102322D+04, .766471D+03, + .575559D+03, .433663D+03, .326638D+03, .248146D+03, + .189477D+03, .145562D+03, .112574D+03, .877281D+02, + .689797D+02, .547006D+02, .437920D+02, .354136D+02, + .289269D+02, .238705D+02, .198897D+02, .167339D+02, + .142006D+02, .121483D+02, .104663D+02, .907394D+01, + .790822D+01, .692607D+01, .608182D+01, .535887D+01, + .472671D+01, .417580D+01, .369071D+01, .326155D+01, + .288022D+01, .254038D+01, .223679D+01, .196522D+01, + .172217D+01, .150467D+01, .131019D+01, .113654D+01, + .981828D+00, .844132D+00, .722593D+00, .614508D+00 / DATA (UPDI(I),I=8529,8580) / + .519413D+00, .436096D+00, .363477D+00, .300518D+00, + .246280D+00, .199863D+00, .160465D+00, .127311D+00, + .995926D-01, .769083D-01, .582929D-01, .433397D-01, + .315189D-01, .223388D-01, .153629D-01, .101867D-01, + .647497D-02, .388907D-02, .218668D-02, .112428D-02, + .512513D-03, .196615D-03, .583551D-04, .117653D-04, + .135227D-05, .000000D+00, .118434D+07, .895685D+06, + .665768D+06, .494587D+06, .367233D+06, .272502D+06, + .202106D+06, .149804D+06, .110983D+06, .821739D+05, + .608159D+05, .449850D+05, .332624D+05, .245835D+05, + .181642D+05, .134169D+05, .990946D+04, .731814D+04, + .540541D+04, .399347D+04, .295205D+04, .218372D+04, + .161721D+04, .119930D+04, .891104D+03, .663618D+03 / DATA (UPDI(I),I=8581,8632) / + .495811D+03, .370221D+03, .278831D+03, .211063D+03, + .160736D+03, .123238D+03, .952183D+02, .742445D+02, + .583943D+02, .463791D+02, .372183D+02, .301769D+02, + .247244D+02, .204591D+02, .170975D+02, .144139D+02, + .122509D+02, .104870D+02, .903368D+01, .782274D+01, + .680734D+01, .593887D+01, .519902D+01, .455570D+01, + .399829D+01, .351050D+01, .308172D+01, .270329D+01, + .236836D+01, .207132D+01, .180756D+01, .157327D+01, + .136520D+01, .118061D+01, .101707D+01, .872520D+00, + .744888D+00, .633138D+00, .534565D+00, .448552D+00, + .373817D+00, .309225D+00, .253703D+00, .206283D+00, + .166059D+00, .132224D+00, .104012D+00, .806471D-01, + .617103D-01, .463259D-01, .340972D-01, .245354D-01 / DATA (UPDI(I),I=8633,8684) / + .171947D-01, .116839D-01, .764754D-02, .479327D-02, + .283478D-02, .156678D-02, .790136D-03, .352317D-03, + .131782D-03, .380370D-04, .749099D-05, .868892D-06, + .000000D+00, .157435D+07, .118544D+07, .876590D+06, + .647805D+06, .478456D+06, .353134D+06, .260487D+06, + .192015D+06, .141461D+06, .104147D+06, .766345D+05, + .563544D+05, .414210D+05, .304279D+05, .223438D+05, + .164004D+05, .120352D+05, .882983D+04, .647833D+04, + .475341D+04, .348924D+04, .256263D+04, .188394D+04, + .138666D+04, .102245D+04, .755488D+03, .559974D+03, + .414722D+03, .309809D+03, .232598D+03, .175687D+03, + .133606D+03, .102398D+03, .792146D+02, .618227D+02, + .487349D+02, .388252D+02, .312596D+02, .254378D+02 / DATA (UPDI(I),I=8685,8736) / + .209110D+02, .173627D+02, .145451D+02, .122850D+02, + .104508D+02, .894639D+01, .769868D+01, .665735D+01, + .577105D+01, .501988D+01, .437030D+01, .381067D+01, + .332393D+01, .289874D+01, .252598D+01, .219830D+01, + .190975D+01, .165536D+01, .143107D+01, .123338D+01, + .105932D+01, .906303D+00, .772103D+00, .654536D+00, + .552413D+00, .463056D+00, .385717D+00, .319072D+00, + .261950D+00, .213263D+00, .172039D+00, .137375D+00, + .108477D+00, .846036D-01, .650155D-01, .492934D-01, + .366485D-01, .267025D-01, .190102D-01, .131726D-01, + .884318D-02, .571320D-02, .353067D-02, .205580D-02, + .111681D-02, .552387D-03, .240919D-03, .878785D-04, + .246813D-04, .475337D-05, .556303D-06, .000000D+00 / DATA (UPDI(I),I=8737,8788) / + .205560D+07, .154127D+07, .113400D+07, .833795D+06, + .612669D+06, .449848D+06, .330084D+06, .242023D+06, + .177340D+06, .129847D+06, .950139D+05, .694756D+05, + .507721D+05, .370797D+05, .270665D+05, .197467D+05, + .144016D+05, .104995D+05, .765398D+04, .557928D+04, + .406809D+04, .296737D+04, .216627D+04, .158311D+04, + .115883D+04, .849909D+03, .625221D+03, .459468D+03, + .340596D+03, .253739D+03, .190173D+03, .143513D+03, + .109156D+03, .838152D+02, .649370D+02, .508285D+02, + .402156D+02, .321645D+02, .260055D+02, .212436D+02, + .175303D+02, .145963D+02, .122536D+02, .103611D+02, + .881570D+01, .753973D+01, .647972D+01, .558185D+01, + .482474D+01, .417356D+01, .361572D+01, .313344D+01 / DATA (UPDI(I),I=8789,8840) / + .271478D+01, .235012D+01, .203173D+01, .175330D+01, + .150958D+01, .129625D+01, .110961D+01, .946513D+00, + .804224D+00, .680391D+00, .572742D+00, .479965D+00, + .399432D+00, .330291D+00, .271196D+00, .220963D+00, + .178507D+00, .142864D+00, .113156D+00, .886088D-01, + .685150D-01, .521817D-01, .391988D-01, .288616D-01, + .208157D-01, .146609D-01, .100437D-01, .666106D-02, + .424730D-02, .258773D-02, .148333D-02, .791964D-03, + .384159D-03, .163884D-03, .583071D-04, .159437D-04, + .300612D-05, .354902D-06, .000000D+00, .264027D+07, + .197155D+07, .144351D+07, .105614D+07, .772181D+06, + .564113D+06, .411814D+06, .300388D+06, .218952D+06, + .159465D+06, .116057D+06, .843985D+05, .613348D+05 / DATA (UPDI(I),I=8841,8892) / + .445410D+05, .323263D+05, .234464D+05, .169981D+05, + .123175D+05, .892380D+04, .646398D+04, .468291D+04, + .339347D+04, .246080D+04, .178611D+04, .129836D+04, + .945507D+03, .690566D+03, .503763D+03, .370707D+03, + .274150D+03, .203968D+03, .152807D+03, .115391D+03, + .879824D+02, .676977D+02, .526363D+02, .413764D+02, + .328853D+02, .264257D+02, .214577D+02, .176026D+02, + .145707D+02, .121605D+02, .102219D+02, .864561D+01, + .734981D+01, .627818D+01, .537477D+01, .461681D+01, + .396839D+01, .341603D+01, .294132D+01, .253177D+01, + .217736D+01, .186996D+01, .160299D+01, .137094D+01, + .116930D+01, .994156D+00, .842246D+00, .710712D+00, + .597108D+00, .499107D+00, .415300D+00, .343127D+00 / DATA (UPDI(I),I=8893,8944) / + .281656D+00, .229544D+00, .185609D+00, .148786D+00, + .118135D+00, .928091D-01, .720686D-01, .552455D-01, + .416981D-01, .310337D-01, .226275D-01, .161531D-01, + .112547D-01, .762234D-02, .499362D-02, .314231D-02, + .188732D-02, .106493D-02, .558754D-03, .265793D-03, + .110911D-03, .384969D-04, .102548D-04, .189491D-05, + .225627D-06, .000000D+00, .463332D+04, .568622D+04, + .472484D+04, .392682D+04, .326433D+04, .271429D+04, + .225755D+04, .187823D+04, .156316D+04, .130141D+04, + .108393D+04, .903179D+03, .752931D+03, .628006D+03, + .524111D+03, .437680D+03, .365757D+03, .305886D+03, + .256031D+03, .214499D+03, .179888D+03, .151032D+03, + .126962D+03, .106875D+03, .901021D+02, .760895D+02 / DATA (UPDI(I),I=8945,8996) / + .643758D+02, .544508D+02, .462735D+02, .394236D+02, + .336813D+02, .288637D+02, .248183D+02, .214274D+02, + .185666D+02, .161570D+02, .141239D+02, .124047D+02, + .109469D+02, .970564D+01, .864569D+01, .773417D+01, + .694570D+01, .625881D+01, .565579D+01, .512224D+01, + .464812D+01, .421945D+01, .383397D+01, .348100D+01, + .315942D+01, .286420D+01, .259245D+01, .234183D+01, + .211051D+01, .189698D+01, .170000D+01, .151851D+01, + .135161D+01, .119847D+01, .105832D+01, .930449D+00, + .814156D+00, .709234D+00, .613942D+00, .528316D+00, + .451727D+00, .383560D+00, .323217D+00, .270114D+00, + .223686D+00, .183382D+00, .148649D+00, .118954D+00, + .940430D-01, .730689D-01, .557637D-01, .416873D-01 / DATA (UPDI(I),I=8997,9048) / + .304249D-01, .215871D-01, .148095D-01, .976109D-02, + .610364D-02, .358652D-02, .193782D-02, .933700D-03, + .381114D-03, .119685D-03, .232959D-04, .140766D-05, + .000000D+00, .217853D+05, .175746D+05, .140678D+05, + .112650D+05, .902754D+04, .723762D+04, .580753D+04, + .466235D+04, .374652D+04, .301234D+04, .242458D+04, + .195283D+04, .157472D+04, .127082D+04, .102693D+04, + .830621D+03, .672840D+03, .545629D+03, .443218D+03, + .360500D+03, .293789D+03, .239797D+03, .196163D+03, + .160769D+03, .132097D+03, .108790D+03, .898564D+02, + .742272D+02, .616956D+02, .514422D+02, .430652D+02, + .361866D+02, .305463D+02, .259083D+02, .220789D+02, + .189072D+02, .162816D+02, .140930D+02, .122674D+02 / DATA (UPDI(I),I=9049,9100) / + .107315D+02, .943833D+01, .833741D+01, .739691D+01, + .658498D+01, .588038D+01, .526276D+01, .472022D+01, + .423473D+01, .380353D+01, .341321D+01, .306231D+01, + .274422D+01, .245549D+01, .219282D+01, .195384D+01, + .173632D+01, .153852D+01, .135886D+01, .119600D+01, + .104868D+01, .915767D+00, .796215D+00, .688967D+00, + .593564D+00, .508081D+00, .432322D+00, .365472D+00, + .306788D+00, .255543D+00, .211064D+00, .172701D+00, + .139862D+00, .111965D+00, .884431D-01, .689992D-01, + .528694D-01, .397616D-01, .292699D-01, .210121D-01, + .146470D-01, .989162D-02, .641414D-02, .393851D-02, + .226901D-02, .119915D-02, .563854D-03, .223813D-03, + .682243D-04, .129493D-04, .797682D-06, .000000D+00 / DATA (UPDI(I),I=9101,9152) / + .494371D+05, .392069D+05, .307879D+05, .241803D+05, + .190007D+05, .149337D+05, .117443D+05, .923883D+04, + .727308D+04, .572785D+04, .451475D+04, .356042D+04, + .281065D+04, .222025D+04, .175598D+04, .138997D+04, + .110183D+04, .874350D+03, .695016D+03, .553211D+03, + .441239D+03, .352526D+03, .282332D+03, .226588D+03, + .182371D+03, .147176D+03, .119176D+03, .965309D+02, + .787380D+02, .644635D+02, .530254D+02, .438069D+02, + .363844D+02, .303856D+02, .255152D+02, .215440D+02, + .183059D+02, .156435D+02, .134521D+02, .116304D+02, + .101144D+02, .883723D+01, .775745D+01, .683423D+01, + .604092D+01, .535210D+01, .475299D+01, .422211D+01, + .375549D+01, .333746D+01, .296571D+01, .263239D+01 / DATA (UPDI(I),I=9153,9204) / + .233320D+01, .206408D+01, .182199D+01, .160414D+01, + .140828D+01, .123239D+01, .107476D+01, .933763D+00, + .807972D+00, .696102D+00, .596827D+00, .509498D+00, + .432092D+00, .364249D+00, .305036D+00, .253633D+00, + .209239D+00, .171140D+00, .138646D+00, .111151D+00, + .880693D-01, .688337D-01, .531262D-01, .402576D-01, + .299329D-01, .217789D-01, .154484D-01, .106389D-01, + .706917D-02, .450590D-02, .271681D-02, .153607D-02, + .796003D-03, .367173D-03, .143265D-03, .434405D-04, + .856198D-05, .616122D-06, .000000D+00, .607571D+05, + .715962D+05, .555642D+05, .431201D+05, .334722D+05, + .259831D+05, .201767D+05, .156691D+05, .121740D+05, + .946019D+04, .735557D+04, .572085D+04, .445270D+04 / DATA (UPDI(I),I=9205,9256) / + .346720D+04, .270234D+04, .210754D+04, .164559D+04, + .128602D+04, .100650D+04, .788676D+03, .619141D+03, + .486822D+03, .383661D+03, .302985D+03, .239951D+03, + .190552D+03, .151855D+03, .121042D+03, .972012D+02, + .783699D+02, .635053D+02, .517062D+02, .423423D+02, + .348839D+02, .289107D+02, .241059D+02, .202372D+02, + .170954D+02, .145385D+02, .124365D+02, .107048D+02, + .926060D+01, .805085D+01, .702612D+01, .615344D+01, + .540257D+01, .475534D+01, .418707D+01, .369225D+01, + .325315D+01, .286639D+01, .252298D+01, .221774D+01, + .194588D+01, .170372D+01, .148794D+01, .129582D+01, + .112498D+01, .973328D+00, .838983D+00, .720263D+00, + .615680D+00, .523728D+00, .443591D+00, .373214D+00 / DATA (UPDI(I),I=9257,9308) / + .312106D+00, .259263D+00, .213818D+00, .174938D+00, + .141884D+00, .113962D+00, .905657D-01, .711204D-01, + .550762D-01, .421097D-01, .315993D-01, .232589D-01, + .167470D-01, .117511D-01, .800253D-02, .525593D-02, + .331082D-02, .197244D-02, .110246D-02, .565527D-03, + .259196D-03, .101372D-03, .315304D-04, .674593D-05, + .542166D-06, .000000D+00, .142623D+06, .111190D+06, + .856252D+05, .659283D+05, .507666D+05, .390872D+05, + .300991D+05, .231767D+05, .178505D+05, .137487D+05, + .105930D+05, .816281D+04, .629314D+04, .485312D+04, + .374508D+04, .289139D+04, .223430D+04, .172778D+04, + .133768D+04, .103673D+04, .804775D+03, .625625D+03, + .487358D+03, .380397D+03, .297695D+03, .233601D+03 / DATA (UPDI(I),I=9309,9360) / + .183939D+03, .144842D+03, .114923D+03, .915654D+02, + .733290D+02, .590206D+02, .477869D+02, .389408D+02, + .319293D+02, .263504D+02, .219021D+02, .183260D+02, + .154418D+02, .130927D+02, .111735D+02, .958647D+01, + .826723D+01, .715875D+01, .622176D+01, .542183D+01, + .473745D+01, .414125D+01, .362606D+01, .317252D+01, + .277613D+01, .242700D+01, .211911D+01, .184707D+01, + .160665D+01, .139410D+01, .120632D+01, .104063D+01, + .894673D+00, .766352D+00, .653804D+00, .555396D+00, + .469502D+00, .395189D+00, .330402D+00, .274555D+00, + .226614D+00, .185686D+00, .150926D+00, .121593D+00, + .969996D-01, .765494D-01, .596850D-01, .458787D-01, + .348111D-01, .259147D-01, .189162D-01, .135013D-01 / DATA (UPDI(I),I=9361,9412) / + .938625D-02, .632935D-02, .411305D-02, .256139D-02, + .150678D-02, .830487D-03, .419315D-03, .188704D-03, + .722220D-04, .218824D-04, .453874D-05, .366573D-06, + .000000D+00, .210944D+06, .163524D+06, .125107D+06, + .956914D+05, .731885D+05, .559648D+05, .427943D+05, + .327176D+05, .250154D+05, .191244D+05, .146230D+05, + .111811D+05, .855174D+04, .654154D+04, .500610D+04, + .383223D+04, .293557D+04, .224992D+04, .172607D+04, + .132532D+04, .101899D+04, .784466D+03, .605024D+03, + .467476D+03, .362078D+03, .281164D+03, .219058D+03, + .170641D+03, .133947D+03, .105587D+03, .836593D+02, + .666291D+02, .533872D+02, .430646D+02, .349599D+02, + .285741D+02, .235283D+02, .195092D+02, .162952D+02 / DATA (UPDI(I),I=9413,9464) / + .137000D+02, .115963D+02, .987076D+01, .844688D+01, + .725964D+01, .626324D+01, .541893D+01, .470176D+01, + .408162D+01, .354965D+01, .308487D+01, .268165D+01, + .232919D+01, .202067D+01, .175013D+01, .151279D+01, + .130452D+01, .112187D+01, .961878D+00, .821952D+00, + .699815D+00, .593449D+00, .501103D+00, .421054D+00, + .352278D+00, .292733D+00, .241761D+00, .198311D+00, + .161475D+00, .130410D+00, .104383D+00, .827181D-01, + .648358D-01, .502006D-01, .383100D-01, .288531D-01, + .213132D-01, .154320D-01, .109216D-01, .752556D-02, + .502717D-02, .323429D-02, .199285D-02, .115896D-02, + .630977D-03, .314381D-03, .139478D-03, .525823D-04, + .156845D-04, .319911D-05, .263962D-06, .000000D+00 / DATA (UPDI(I),I=9465,9516) / + .203150D+06, .231082D+06, .175779D+06, .133667D+06, + .101629D+06, .772446D+05, .587041D+05, .446012D+05, + .338843D+05, .257367D+05, .195485D+05, .148462D+05, + .112764D+05, .856476D+04, .650696D+04, .494428D+04, + .375867D+04, .285840D+04, .217538D+04, .165669D+04, + .126311D+04, .964084D+03, .737031D+03, .564376D+03, + .433130D+03, .333204D+03, .257146D+03, .198364D+03, + .154200D+03, .120370D+03, .944417D+02, .744877D+02, + .591085D+02, .472292D+02, .379831D+02, .307631D+02, + .251061D+02, .206388D+02, .170948D+02, .142562D+02, + .119726D+02, .101136D+02, .859052D+01, .732984D+01, + .627912D+01, .539512D+01, .464943D+01, .400922D+01, + .346390D+01, .299087D+01, .258341D+01, .222981D+01 / DATA (UPDI(I),I=9517,9568) / + .192248D+01, .165492D+01, .142184D+01, .121876D+01, + .104190D+01, .888054D+00, .754424D+00, .638579D+00, + .538374D+00, .451961D+00, .377550D+00, .314039D+00, + .259419D+00, .212975D+00, .173648D+00, .140532D+00, + .112794D+00, .897131D-01, .706343D-01, .549987D-01, + .422956D-01, .320507D-01, .239647D-01, .175687D-01, + .126207D-01, .885852D-02, .605117D-02, .400532D-02, + .255180D-02, .155609D-02, .894893D-03, .481404D-03, + .236779D-03, .103605D-03, .384925D-04, .113096D-04, + .227157D-05, .191209D-06, .000000D+00, .441456D+06, + .338677D+06, .256002D+06, .193432D+06, .146115D+06, + .110327D+06, .832840D+05, .628457D+05, .474130D+05, + .357582D+05, .269642D+05, .203275D+05, .153234D+05 / DATA (UPDI(I),I=9569,9620) / + .115493D+05, .870529D+04, .656152D+04, .494691D+04, + .373030D+04, .281432D+04, .212428D+04, .160483D+04, + .121347D+04, .918783D+03, .696654D+03, .529266D+03, + .402978D+03, .307734D+03, .234824D+03, .180567D+03, + .139417D+03, .108182D+03, .843890D+02, .662299D+02, + .523473D+02, .416473D+02, .333769D+02, .269586D+02, + .219401D+02, .179951D+02, .148651D+02, .123688D+02, + .103549D+02, .871859D+01, .737581D+01, .626577D+01, + .533972D+01, .456493D+01, .390530D+01, .334807D+01, + .286880D+01, .245939D+01, .210710D+01, .180345D+01, + .154129D+01, .131480D+01, .111908D+01, .950012D+00, + .804138D+00, .678439D+00, .570336D+00, .477563D+00, + .398183D+00, .330353D+00, .272905D+00, .223881D+00 / DATA (UPDI(I),I=9621,9672) / + .182519D+00, .147768D+00, .118734D+00, .946074D-01, + .746914D-01, .583626D-01, .450913D-01, .344007D-01, + .258528D-01, .191662D-01, .139257D-01, .991061D-02, + .688820D-02, .465660D-02, .304827D-02, .191904D-02, + .115527D-02, .655037D-03, .346892D-03, .167629D-03, + .718716D-04, .260748D-04, .744601D-05, .144963D-05, + .122561D-06, .000000D+00, .629337D+06, .480384D+06, + .360983D+06, .271133D+06, .203572D+06, .152771D+06, + .114606D+06, .859354D+05, .644159D+05, .482641D+05, + .361520D+05, .270692D+05, .202642D+05, .151654D+05, + .113484D+05, .849075D+04, .635309D+04, .475371D+04, + .355805D+04, .266392D+04, .199577D+04, .149624D+04, + .112297D+04, .843861D+03, .635219D+03, .479105D+03 / DATA (UPDI(I),I=9673,9724) / + .362358D+03, .273766D+03, .208417D+03, .159303D+03, + .122355D+03, .944711D+02, .733837D+02, .574143D+02, + .452178D+02, .358792D+02, .286970D+02, .231325D+02, + .187962D+02, .153861D+02, .126889D+02, .105312D+02, + .879205D+01, .737656D+01, .621561D+01, .525487D+01, + .445738D+01, .378389D+01, .321949D+01, .273799D+01, + .232997D+01, .198174D+01, .168398D+01, .142899D+01, + .121044D+01, .102309D+01, .862527D+00, .725077D+00, + .607556D+00, .507269D+00, .421864D+00, .349349D+00, + .287853D+00, .236164D+00, .192393D+00, .155746D+00, + .125196D+00, .998709D-01, .789921D-01, .618951D-01, + .479922D-01, .367867D-01, .278377D-01, .207445D-01, + .152460D-01, .109770D-01, .773825D-02, .532506D-02 / DATA (UPDI(I),I=9725,9776) / + .356236D-02, .230625D-02, .143486D-02, .853018D-03, + .477164D-03, .249055D-03, .118487D-03, .499569D-04, + .178066D-04, .499046D-05, .953828D-06, .824990D-07, + .000000D+00, .873162D+06, .663336D+06, .495687D+06, + .370213D+06, .276377D+06, .206208D+06, .153786D+06, + .114627D+06, .854024D+05, .635950D+05, .473375D+05, + .352189D+05, .261941D+05, .194737D+05, .144741D+05, + .107548D+05, .799055D+04, .593597D+04, .441025D+04, + .327710D+04, .243622D+04, .181200D+04, .134894D+04, + .100525D+04, .750266D+03, .560940D+03, .420473D+03, + .314746D+03, .237398D+03, .179754D+03, .136751D+03, + .104579D+03, .804552D+02, .623469D+02, .486352D+02, + .382285D+02, .302926D+02, .241971D+02, .194860D+02 / DATA (UPDI(I),I=9777,9828) / + .158118D+02, .129289D+02, .106410D+02, .881093D+01, + .733315D+01, .613029D+01, .514254D+01, .432889D+01, + .364708D+01, .308011D+01, .260022D+01, .219673D+01, + .185508D+01, .156522D+01, .131892D+01, .110946D+01, + .931297D+00, .779774D+00, .651058D+00, .541839D+00, + .449343D+00, .371167D+00, .305286D+00, .249832D+00, + .203570D+00, .164691D+00, .132386D+00, .105663D+00, + .836804D-01, .656997D-01, .510929D-01, .393116D-01, + .298949D-01, .224388D-01, .165802D-01, .120796D-01, + .861820D-02, .601779D-02, .409997D-02, .271414D-02, + .173770D-02, .106844D-02, .627260D-03, .346183D-03, + .178107D-03, .834407D-04, .346108D-04, .121300D-04, + .334102D-05, .628607D-06, .556708D-07, .000000D+00 / DATA (UPDI(I),I=9829,9880) / + .118413D+07, .895497D+06, .665598D+06, .494432D+06, + .367094D+06, .272376D+06, .201992D+06, .149701D+06, + .110890D+06, .820898D+05, .607400D+05, .449164D+05, + .332005D+05, .245276D+05, .181138D+05, .133715D+05, + .986849D+04, .728122D+04, .537214D+04, .396349D+04, + .292506D+04, .215941D+04, .159531D+04, .117957D+04, + .873335D+03, .647602D+03, .481374D+03, .357218D+03, + .267092D+03, .200457D+03, .151139D+03, .114542D+03, + .873229D+02, .670592D+02, .518399D+02, .403844D+02, + .317189D+02, .251169D+02, .200544D+02, .161371D+02, + .130866D+02, .106841D+02, .877660D+01, .724775D+01, + .601241D+01, .500550D+01, .418219D+01, .349745D+01, + .293229D+01, .245758D+01, .206146D+01, .172860D+01 / DATA (UPDI(I),I=9881,9932) / + .144834D+01, .121202D+01, .101255D+01, .844162D+00, + .702033D+00, .582200D+00, .481275D+00, .396437D+00, + .325265D+00, .265728D+00, .215983D+00, .174789D+00, + .140428D+00, .112092D+00, .888299D-01, .698414D-01, + .544307D-01, .420108D-01, .320745D-01, .241982D-01, + .180150D-01, .131987D-01, .953230D-02, .673880D-02, + .466071D-02, .314374D-02, .205933D-02, .130388D-02, + .792278D-03, .459340D-03, .250127D-03, .126860D-03, + .585339D-04, .238917D-04, .823538D-05, .222980D-05, + .413301D-06, .374484D-07, .000000D+00, .157412D+07, + .118523D+07, .876401D+06, .647633D+06, .478301D+06, + .352994D+06, .260361D+06, .191901D+06, .141358D+06, + .104054D+06, .765505D+05, .562786D+05, .413526D+05 / DATA (UPDI(I),I=9933,9984) / + .303663D+05, .222883D+05, .163503D+05, .119901D+05, + .878922D+04, .644178D+04, .472050D+04, .345963D+04, + .253598D+04, .185996D+04, .136508D+04, .100303D+04, + .738000D+03, .544228D+03, .400558D+03, .297039D+03, + .221076D+03, .165279D+03, .124193D+03, .938690D+02, + .714708D+02, .547782D+02, .423120D+02, .329540D+02, + .258793D+02, .204947D+02, .163593D+02, .131621D+02, + .106623D+02, .869158D+01, .712336D+01, .586511D+01, + .484685D+01, .402020D+01, .333764D+01, .277836D+01, + .231206D+01, .192581D+01, .160366D+01, .133442D+01, + .110906D+01, .920251D+00, .762042D+00, .629485D+00, + .518541D+00, .425786D+00, .348386D+00, .283926D+00, + .230397D+00, .185996D+00, .149496D+00, .119277D+00 / DATA (UPDI(I),I=9985,10036) / + .945418D-01, .743892D-01, .580645D-01, .449187D-01, + .344076D-01, .260665D-01, .195094D-01, .144056D-01, + .104646D-01, .749164D-02, .524771D-02, .359482D-02, + .240055D-02, .155599D-02, .974271D-03, .585045D-03, + .334975D-03, .179983D-03, .899956D-04, .409036D-04, + .164325D-04, .557223D-05, .148333D-05, .270992D-06, + .250989D-07, .000000D+00, .205535D+07, .154104D+07, + .113379D+07, .833605D+06, .612497D+06, .449694D+06, + .329944D+06, .241896D+06, .177226D+06, .129744D+06, + .949212D+05, .693920D+05, .506968D+05, .370118D+05, + .270054D+05, .196917D+05, .143521D+05, .104550D+05, + .761391D+04, .554324D+04, .403569D+04, .293823D+04, + .214009D+04, .155957D+04, .113767D+04, .830876D+03 / DATA (UPDI(I),I=10037,10088) / + .608105D+03, .444094D+03, .326757D+03, .241272D+03, + .178932D+03, .133367D+03, .999845D+02, .755100D+02, + .574043D+02, .439832D+02, .339818D+02, .264759D+02, + .208037D+02, .164783D+02, .131573D+02, .105786D+02, + .855941D+01, .696363D+01, .569196D+01, .466989D+01, + .384588D+01, .317025D+01, .262056D+01, .216552D+01, + .179131D+01, .148145D+01, .122434D+01, .101070D+01, + .832998D+00, .685174D+00, .562214D+00, .460043D+00, + .375239D+00, .304981D+00, .246892D+00, .199001D+00, + .159562D+00, .127376D+00, .100925D+00, .794345D-01, + .620572D-01, .480876D-01, .369255D-01, .280708D-01, + .211010D-01, .156671D-01, .114736D-01, .826369D-02, + .586411D-02, .406996D-02, .276136D-02, .182551D-02 / DATA (UPDI(I),I=10089,10140) / + .117083D-02, .724973D-03, .430233D-03, .243280D-03, + .128986D-03, .635923D-04, .284755D-04, .112618D-04, + .375766D-05, .983600D-06, .177197D-06, .167615D-07, + .000000D+00, .263999D+07, .197129D+07, .144328D+07, + .105593D+07, .771991D+06, .563942D+06, .411660D+06, + .300248D+06, .218827D+06, .159351D+06, .115955D+06, + .843065D+05, .612520D+05, .444665D+05, .322592D+05, + .233860D+05, .169438D+05, .122687D+05, .887998D+04, + .642461D+04, .464754D+04, .336171D+04, .243228D+04, + .176051D+04, .127537D+04, .924858D+03, .672023D+03, + .487133D+03, .355762D+03, .260712D+03, .191876D+03, + .141918D+03, .105573D+03, .791163D+02, .596816D+02, + .453775D+02, .347921D+02, .269031D+02, .209817D+02 / DATA (UPDI(I),I=10141,10192) / + .164968D+02, .130759D+02, .104372D+02, .838438D+01, + .677269D+01, .549674D+01, .447801D+01, .366219D+01, + .299780D+01, .246096D+01, .201966D+01, .165928D+01, + .136297D+01, .111884D+01, .917426D+00, .751082D+00, + .613688D+00, .500216D+00, .406599D+00, .329447D+00, + .265984D+00, .213887D+00, .171242D+00, .136374D+00, + .108124D+00, .850767D-01, .664906D-01, .515744D-01, + .396741D-01, .302390D-01, .228133D-01, .170155D-01, + .125326D-01, .910262D-02, .649994D-02, .457193D-02, + .314393D-02, .211261D-02, .138261D-02, .877432D-03, + .537278D-03, .315107D-03, .175977D-03, .920744D-04, + .447635D-04, .197510D-04, .769156D-05, .252574D-05, + .650197D-06, .115560D-06, .111547D-07, .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