C----------------------------------------------------------------------- #include "pdf/pilot.h" Subroutine Ctq5M1 (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=9) DIMENSION > XVI(0:MXX),QLI(0:MXQ),UPDI(MXPQX), > AmassI(6) C C----------------------------------------------------------------------- C Parton Distribution Table : 5mN04 C PARAMETER (ISET=8) DATA DrI, FlI, AlI / 2., 5., .2260 / DATA (AmassI(I),I=1,6) / .000, .000, .200, + 1.300, 4.500, 180.000 / C DATA NXI, NTI, NfMxI / 90, 13, 5 / DATA QINII, QMAXI, (QLI(I), I =0, NTI) / + .100000E+01, .100000E+05, + .100000E+01, .130000E+01, .167097E+01, .222659E+01, .309171E+01, + .450000E+01, .754288E+01, .138228E+02, .281243E+02, .646894E+02, + .171811E+03, .540159E+03, .206963E+04, .100000E+05 / DATA XMINI, (XVI(I), I =0, NXI) / + .100000E-04, + .000000E+00, .100000E-04, .124433E-04, .154836E-04, .192668E-04, + .239740E-04, .298310E-04, .371184E-04, .461852E-04, .574656E-04, + .714994E-04, .889575E-04, .110674E-03, .137686E-03, .171280E-03, + .213055E-03, .264997E-03, .329564E-03, .409809E-03, .509508E-03, + .633332E-03, .787053E-03, .977784E-03, .121428E-02, .150728E-02, + .186993E-02, .231825E-02, .288037E-02, .356397E-02, .440443E-02, + .543508E-02, .669508E-02, .822984E-02, .100851E-01, .123281E-01, + .150167E-01, .182174E-01, .219985E-01, .264278E-01, .315720E-01, + .374800E-01, .442088E-01, .517931E-01, .602576E-01, .696136E-01, + .798586E-01, .909356E-01, .102935E+00, .115681E+00, .129293E+00, + .143599E+00, .158606E+00, .174271E+00, .190550E+00, .207405E+00, + .224796E+00, .242685E+00, .261038E+00, .279820E+00, .299001E+00, + .318550E+00, .338442E+00, .358653E+00, .379067E+00, .399881E+00, + .420953E+00, .442266E+00, .463806E+00, .485559E+00, .507513E+00, + .529656E+00, .551978E+00, .574483E+00, .597187E+00, .619860E+00, + .642828E+00, .665921E+00, .689135E+00, .712467E+00, .735911E+00, + .759464E+00, .783080E+00, .806909E+00, .830741E+00, .854673E+00, + .878696E+00, .902804E+00, .926992E+00, .951257E+00, .975603E+00, + .100000E+01 / C Parton Distribution Table: DATA (UPDI(I),I=1,52) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=53,104) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=105,156) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=157,208) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=209,260) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=261,312) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=313,364) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=365,416) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=417,468) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .210912E+06, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=469,520) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=521,572) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .117022E+06, .893238E+05, + .671006E+05, .503526E+05, .377642E+05, .282901E+05, + .211799E+05, .158372E+05, .118341E+05, .883133E+04, + .658540E+04, .490384E+04, .364852E+04, .271054E+04, + .201176E+04, .149079E+04, .110355E+04, .815544E+03, + .602009E+03, .443583E+03, .326426E+03, .239746E+03, + .175841E+03, .128710E+03, .940701E+02, .686054E+02 / DATA (UPDI(I),I=573,624) / + .499523E+02, .361356E+02, .262191E+02, .189829E+02, + .137247E+02, .990253E+01, .713706E+01, .513972E+01, + .369651E+01, .265603E+01, .190919E+01, .137225E+01, + .987712E+00, .711482E+00, .513961E+00, .371866E+00, + .269991E+00, .196478E+00, .143540E+00, .105129E+00, + .773954E-01, .570150E-01, .422243E-01, .312742E-01, + .232623E-01, .173200E-01, .129256E-01, .964325E-02, + .720276E-02, .537076E-02, .400610E-02, .297956E-02, + .221276E-02, .163550E-02, .120497E-02, .881067E-03, + .640390E-03, .460525E-03, .327373E-03, .228598E-03, + .156623E-03, .103968E-03, .662750E-04, .393454E-04, + .207111E-04, .792526E-05, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=625,676) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .271061E+06, .206213E+06, .154307E+06, + .115343E+06, .861656E+05, .642939E+05, .479414E+05, + .357039E+05, .265699E+05, .197467E+05, .146633E+05, + .108733E+05, .805537E+04, .595882E+04, .440332E+04, + .324872E+04, .239410E+04, .176132E+04, .129418E+04, + .949194E+03, .695196E+03, .508162E+03, .370893E+03, + .270147E+03, .196447E+03, .142534E+03, .103239E+03, + .742820E+02, .536040E+02, .385965E+02, .277469E+02, + .199049E+02, .142608E+02, .102085E+02, .729643E+01, + .520983E+01, .372069E+01, .265687E+01, .189955E+01 / DATA (UPDI(I),I=677,728) / + .135911E+01, .975028E+00, .700612E+00, .505092E+00, + .364997E+00, .264756E+00, .192538E+00, .140735E+00, + .102936E+00, .756867E-01, .556598E-01, .411023E-01, + .303853E-01, .225121E-01, .166764E-01, .123668E-01, + .915734E-02, .678313E-02, .501171E-02, .369837E-02, + .271811E-02, .199278E-02, .145205E-02, .105359E-02, + .758705E-03, .542252E-03, .383190E-03, .268234E-03, + .184797E-03, .125394E-03, .830683E-04, .536791E-04, + .332650E-04, .195124E-04, .105031E-04, .480791E-05, + .133827E-05, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=729,780) / + .470120E+06, .356432E+06, .265654E+06, .197786E+06, + .147156E+06, .109360E+06, .812107E+05, .602322E+05, + .446360E+05, .330345E+05, .244260E+05, .180353E+05, + .133032E+05, .979789E+04, .720810E+04, .529433E+04, + .388386E+04, .284429E+04, .208018E+04, .151852E+04, + .110685E+04, .805165E+03, .584772E+03, .423811E+03, + .306621E+03, .221319E+03, .159462E+03, .114114E+03, + .818969E+02, .586419E+02, .419171E+02, .298972E+02, + .212923E+02, .151505E+02, .107616E+02, .763595E+01, + .541819E+01, .384390E+01, .272991E+01, .194016E+01, + .138235E+01, .986518E+00, .706249E+00, .506831E+00, + .365054E+00, .263630E+00, .191349E+00, .138977E+00, + .101471E+00, .741048E-01, .543397E-01, .398953E-01 / DATA (UPDI(I),I=781,832) / + .293515E-01, .215946E-01, .159030E-01, .116969E-01, + .860519E-02, .631616E-02, .463040E-02, .338212E-02, + .246470E-02, .178646E-02, .129004E-02, .925872E-03, + .660372E-03, .466908E-03, .328033E-03, .228015E-03, + .157205E-03, .107031E-03, .722426E-04, .480605E-04, + .316259E-04, .206444E-04, .134346E-04, .872002E-05, + .574412E-05, .384998E-05, .267603E-05, .191692E-05, + .142795E-05, .107934E-05, .818491E-06, .598693E-06, + .414825E-06, .263396E-06, .146903E-06, .660254E-07, + .194440E-07, .177238E-08, .000000E+00, .723302E+06, + .546488E+06, .405650E+06, .300790E+06, .222872E+06, + .164945E+06, .121975E+06, .900868E+05, .664758E+05, + .489878E+05, .360649E+05, .265133E+05, .194702E+05 / DATA (UPDI(I),I=833,884) / + .142763E+05, .104554E+05, .764468E+04, .558220E+04, + .406908E+04, .296189E+04, .215188E+04, .156091E+04, + .112992E+04, .816545E+03, .588809E+03, .423806E+03, + .304305E+03, .218093E+03, .155220E+03, .110785E+03, + .788861E+02, .560654E+02, .397574E+02, .281461E+02, + .199073E+02, .140529E+02, .990907E+01, .698602E+01, + .492417E+01, .347397E+01, .245257E+01, .173560E+01, + .123024E+01, .874658E+00, .623395E+00, .445900E+00, + .319802E+00, .230519E+00, .166273E+00, .120566E+00, + .874505E-01, .636855E-01, .464420E-01, .339346E-01, + .247999E-01, .181400E-01, .132546E-01, .968624E-02, + .706376E-02, .514494E-02, .373482E-02, .270516E-02, + .194993E-02, .140069E-02, .100109E-02, .711573E-03 / DATA (UPDI(I),I=885,936) / + .502265E-03, .352947E-03, .246186E-03, .170996E-03, + .118012E-03, .813438E-04, .558762E-04, .384856E-04, + .267194E-04, .188193E-04, .134523E-04, .983858E-05, + .732792E-05, .555790E-05, .424111E-05, .323953E-05, + .243776E-05, .178613E-05, .124929E-05, .819016E-06, + .489266E-06, .254898E-06, .106329E-06, .291473E-07, + .272868E-08, .000000E+00, .104039E+07, .783311E+06, + .579042E+06, .427588E+06, .315499E+06, .232519E+06, + .171215E+06, .125916E+06, .925131E+05, .678801E+05, + .497539E+05, .364156E+05, .266224E+05, .194328E+05, + .141669E+05, .103109E+05, .749399E+04, .543704E+04, + .393876E+04, .284785E+04, .205565E+04, .148072E+04, + .106469E+04, .763856E+03, .546958E+03, .390669E+03 / DATA (UPDI(I),I=937,988) / + .278501E+03, .197128E+03, .139921E+03, .990774E+02, + .700132E+02, .493616E+02, .347379E+02, .244226E+02, + .171343E+02, .120067E+02, .841100E+01, .589054E+01, + .412852E+01, .289548E+01, .203530E+01, .143303E+01, + .101190E+01, .716341E+00, .508884E+00, .362502E+00, + .259524E+00, .185925E+00, .133905E+00, .964748E-01, + .697842E-01, .505526E-01, .366912E-01, .266389E-01, + .193564E-01, .140525E-01, .102025E-01, .739323E-02, + .535087E-02, .386086E-02, .277978E-02, .199280E-02, + .142402E-02, .101341E-02, .717707E-03, .505495E-03, + .354986E-03, .248092E-03, .173164E-03, .120622E-03, + .843151E-04, .591126E-04, .418298E-04, .300098E-04, + .219313E-04, .162880E-04, .123261E-04, .943829E-05 / DATA (UPDI(I),I=989,1040) / + .728146E-05, .559828E-05, .426077E-05, .317016E-05, + .227830E-05, .155721E-05, .993142E-06, .574834E-06, + .288538E-06, .115158E-06, .301378E-07, .286834E-08, + .000000E+00, .143163E+07, .107408E+07, .790679E+06, + .581437E+06, .427208E+06, .313515E+06, .229868E+06, + .168323E+06, .123133E+06, .899520E+05, .656399E+05, + .478291E+05, .348088E+05, .252933E+05, .183546E+05, + .132970E+05, .961903E+04, .694586E+04, .500767E+04, + .360322E+04, .258813E+04, .185506E+04, .132714E+04, + .947302E+03, .674802E+03, .479447E+03, .339970E+03, + .239320E+03, .168935E+03, .118956E+03, .835816E+02, + .585886E+02, .409880E+02, .286452E+02, .199740E+02, + .139103E+02, .968301E+01, .673826E+01, .469206E+01 / DATA (UPDI(I),I=1041,1092) / + .326928E+01, .228286E+01, .159670E+01, .111992E+01, + .787526E+00, .555693E+00, .393203E+00, .279625E+00, + .198988E+00, .142362E+00, .101892E+00, .732157E-01, + .526935E-01, .379945E-01, .274081E-01, .197866E-01, + .142744E-01, .102978E-01, .741634E-02, .533464E-02, + .382657E-02, .273922E-02, .195338E-02, .138888E-02, + .984347E-03, .694710E-03, .488276E-03, .342664E-03, + .239873E-03, .168123E-03, .118011E-03, .834115E-04, + .593865E-04, .428312E-04, .313870E-04, .234388E-04, + .177571E-04, .136431E-04, .105500E-04, .816430E-05, + .626169E-05, .472545E-05, .347166E-05, .245249E-05, + .164345E-05, .102423E-05, .577280E-06, .280766E-06, + .107885E-06, .271293E-07, .261924E-08, .000000E+00 / DATA (UPDI(I),I=1093,1144) / + .190743E+07, .142600E+07, .104536E+07, .765500E+06, + .560066E+06, .409269E+06, .298784E+06, .217844E+06, + .158662E+06, .115398E+06, .838345E+05, .608140E+05, + .440588E+05, .318692E+05, .230199E+05, .165995E+05, + .119516E+05, .858940E+04, .616286E+04, .441297E+04, + .315420E+04, .224959E+04, .160130E+04, .113718E+04, + .805875E+03, .569567E+03, .401732E+03, .281252E+03, + .197447E+03, .138262E+03, .965973E+02, .673249E+02, + .468240E+02, .325306E+02, .225461E+02, .156055E+02, + .107953E+02, .746505E+01, .516491E+01, .357560E+01, + .248048E+01, .172361E+01, .120096E+01, .838964E+00, + .588075E+00, .413381E+00, .292045E+00, .206462E+00, + .146747E+00, .104350E+00, .744962E-01, .532728E-01 / DATA (UPDI(I),I=1145,1196) / + .381658E-01, .273584E-01, .196261E-01, .140714E-01, + .100887E-01, .722212E-02, .516405E-02, .368320E-02, + .262205E-02, .186044E-02, .131659E-02, .929566E-03, + .654007E-03, .458860E-03, .321906E-03, .225747E-03, + .158864E-03, .112296E-03, .801391E-04, .577787E-04, + .422807E-04, .314485E-04, .238106E-04, .182410E-04, + .141107E-04, .109386E-04, .844502E-05, .643652E-05, + .480738E-05, .348523E-05, .242169E-05, .159267E-05, + .971389E-06, .534050E-06, .252193E-06, .935468E-07, + .226815E-07, .221932E-08, .000000E+00, .247800E+07, + .184606E+07, .134764E+07, .982727E+06, .715953E+06, + .520961E+06, .378689E+06, .274911E+06, .199351E+06, + .144356E+06, .104406E+06, .753989E+05, .543785E+05 / DATA (UPDI(I),I=1197,1248) / + .391550E+05, .281526E+05, .202066E+05, .144805E+05, + .103577E+05, .739600E+04, .527040E+04, .374862E+04, + .266033E+04, .188418E+04, .133129E+04, .938577E+03, + .659891E+03, .462985E+03, .322377E+03, .225088E+03, + .156750E+03, .108900E+03, .754689E+02, .521838E+02, + .360425E+02, .248307E+02, .170830E+02, .117447E+02, + .807112E+01, .554904E+01, .381716E+01, .263107E+01, + .181651E+01, .125747E+01, .872766E+00, .607795E+00, + .424481E+00, .297955E+00, .209281E+00, .147799E+00, + .104430E+00, .740793E-01, .526427E-01, .374777E-01, + .266994E-01, .190354E-01, .135658E-01, .966771E-02, + .688044E-02, .489150E-02, .346978E-02, .245715E-02, + .173517E-02, .122262E-02, .860249E-03, .603620E-03 / DATA (UPDI(I),I=1249,1300) / + .422951E-03, .296745E-03, .208548E-03, .147376E-03, + .104872E-03, .754910E-04, .550076E-04, .407139E-04, + .306094E-04, .233822E-04, .180204E-04, .139701E-04, + .108136E-04, .830507E-05, .627790E-05, .463605E-05, + .331539E-05, .226641E-05, .146349E-05, .874107E-06, + .469133E-06, .215323E-06, .772240E-07, .180991E-07, + .179380E-08, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=1301,1352) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=1353,1404) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .278503E+05, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=1405,1456) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00 / DATA (UPDI(I),I=1457,1508) / + .278825E+05, .218260E+05, .168799E+05, .130442E+05, + .100760E+05, .777667E+04, .599928E+04, .462387E+04, + .356195E+04, .274117E+04, .210831E+04, .161980E+04, + .124367E+04, .953754E+03, .730888E+03, .559385E+03, + .427778E+03, .326682E+03, .249257E+03, .189896E+03, + .144532E+03, .109825E+03, .833676E+02, .631755E+02, + .478220E+02, .361355E+02, .272728E+02, .204685E+02, + .154085E+02, .115785E+02, .869405E+01, .651730E+01, + .488383E+01, .365769E+01, .273823E+01, .204847E+01, + .153423E+01, .114910E+01, .862457E+00, .647733E+00, + .488072E+00, .368199E+00, .278829E+00, .211487E+00, + .161063E+00, .122854E+00, .941781E-01, .721893E-01, + .556047E-01, .427983E-01, .330747E-01, .255553E-01 / DATA (UPDI(I),I=1509,1560) / + .197921E-01, .153069E-01, .118550E-01, .915680E-02, + .707893E-02, .545312E-02, .419741E-02, .321447E-02, + .245702E-02, .186435E-02, .140938E-02, .105519E-02, + .784565E-03, .575488E-03, .417572E-03, .296895E-03, + .206806E-03, .139119E-03, .897257E-04, .533975E-04, + .279177E-04, .101416E-04, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .677363E+05, + .527696E+05, .405889E+05, .311941E+05, .239640E+05, + .183937E+05, .141116E+05, .108162E+05, .828596E+04, + .634121E+04, .485002E+04, .370544E+04, .282907E+04 / DATA (UPDI(I),I=1561,1612) / + .215742E+04, .164398E+04, .125114E+04, .951370E+03, + .722428E+03, .548080E+03, .415183E+03, .314192E+03, + .237381E+03, .179156E+03, .134982E+03, .101582E+03, + .763091E+02, .572533E+02, .427113E+02, .319587E+02, + .238702E+02, .178129E+02, .132705E+02, .988100E+01, + .735319E+01, .546841E+01, .406393E+01, .302292E+01, + .224865E+01, .167578E+01, .124972E+01, .934834E+00, + .700186E+00, .526307E+00, .396301E+00, .299558E+00, + .226830E+00, .172593E+00, .131329E+00, .100410E+00, + .767279E-01, .588595E-01, .451564E-01, .347192E-01, + .266655E-01, .205061E-01, .157340E-01, .120824E-01, + .925021E-02, .707793E-02, .539298E-02, .410400E-02, + .310488E-02, .234371E-02, .175712E-02, .131232E-02 / DATA (UPDI(I),I=1613,1664) / + .971897E-03, .716745E-03, .523318E-03, .379761E-03, + .272319E-03, .193894E-03, .135979E-03, .944948E-04, + .646761E-04, .436418E-04, .288701E-04, .189134E-04, + .120747E-04, .762681E-05, .467475E-05, .284708E-05, + .169415E-05, .102323E-05, .584218E-06, .330603E-06, + .178586E-06, .925626E-07, .422535E-07, .143796E-07, + .987546E-09, .000000E+00, .121990E+06, .946158E+05, + .724081E+05, .553664E+05, .423174E+05, .323151E+05, + .246651E+05, .188081E+05, .143340E+05, .109131E+05, + .830341E+04, .631083E+04, .479307E+04, .363599E+04, + .275608E+04, .208643E+04, .157811E+04, .119198E+04, + .899477E+03, .677729E+03, .510106E+03, .383317E+03, + .287717E+03, .215590E+03, .161348E+03, .120530E+03 / DATA (UPDI(I),I=1665,1716) / + .899225E+02, .666981E+02, .496194E+02, .368471E+02, + .273341E+02, .202429E+02, .149805E+02, .110800E+02, + .818784E+01, .604637E+01, .446811E+01, .330196E+01, + .244414E+01, .181050E+01, .134496E+01, .100050E+01, + .746762E+00, .558434E+00, .419139E+00, .315196E+00, + .238158E+00, .179976E+00, .136653E+00, .103721E+00, + .790217E-01, .602255E-01, .459932E-01, .350963E-01, + .268109E-01, .204425E-01, .155970E-01, .118683E-01, + .902526E-02, .683760E-02, .517380E-02, .389483E-02, + .292603E-02, .218600E-02, .162793E-02, .120430E-02, + .888611E-03, .651109E-03, .475749E-03, .345317E-03, + .250365E-03, .180485E-03, .130253E-03, .939311E-04, + .679737E-04, .493037E-04, .361717E-04, .266195E-04 / DATA (UPDI(I),I=1717,1768) / + .198048E-04, .147170E-04, .109848E-04, .810286E-05, + .589332E-05, .411707E-05, .274224E-05, .168970E-05, + .930307E-06, .424472E-06, .132192E-06, .117199E-07, + .000000E+00, .168305E+06, .149567E+06, .113914E+06, + .866853E+05, .659356E+05, .501073E+05, .380594E+05, + .288802E+05, .219023E+05, .165931E+05, .125627E+05, + .950070E+04, .717977E+04, .541929E+04, .408714E+04, + .307847E+04, .231662E+04, .174089E+04, .130694E+04, + .979676E+03, .733543E+03, .548347E+03, .409421E+03, + .305165E+03, .227164E+03, .168781E+03, .125234E+03, + .923730E+02, .683363E+02, .504616E+02, .372188E+02, + .274043E+02, .201600E+02, .148224E+02, .108863E+02, + .798965E+01, .586679E+01, .430814E+01, .316816E+01 / DATA (UPDI(I),I=1769,1820) / + .233160E+01, .172055E+01, .127148E+01, .942629E+00, + .700238E+00, .522026E+00, .389975E+00, .292695E+00, + .219735E+00, .165741E+00, .124988E+00, .946026E-01, + .716452E-01, .543621E-01, .412256E-01, .312940E-01, + .237165E-01, .179827E-01, .136024E-01, .102815E-01, + .774501E-02, .582655E-02, .436308E-02, .326043E-02, + .242494E-02, .179809E-02, .132582E-02, .975740E-03, + .714245E-03, .522123E-03, .380123E-03, .277093E-03, + .201611E-03, .147368E-03, .108098E-03, .799084E-04, + .594449E-04, .447749E-04, .338823E-04, .258429E-04, + .196484E-04, .149057E-04, .111221E-04, .811450E-05, + .567092E-05, .375394E-05, .228771E-05, .123699E-05, + .549173E-06, .164601E-06, .148656E-07, .000000E+00 / DATA (UPDI(I),I=1821,1872) / + .306171E+06, .235375E+06, .178304E+06, .134956E+06, + .102095E+06, .771658E+05, .582907E+05, .439898E+05, + .331764E+05, .249952E+05, .188180E+05, .141517E+05, + .106340E+05, .798110E+04, .598472E+04, .448194E+04, + .335320E+04, .250526E+04, .186974E+04, .139332E+04, + .103704E+04, .770606E+03, .571885E+03, .423677E+03, + .313439E+03, .231438E+03, .170646E+03, .125061E+03, + .919207E+02, .674380E+02, .494096E+02, .361384E+02, + .264028E+02, .192795E+02, .140595E+02, .102455E+02, + .746828E+01, .544424E+01, .397361E+01, .290260E+01, + .212554E+01, .155896E+01, .114682E+01, .845492E+00, + .625452E+00, .463729E+00, .345407E+00, .257372E+00, + .192677E+00, .144242E+00, .108368E+00, .814853E-01 / DATA (UPDI(I),I=1873,1924) / + .613768E-01, .462187E-01, .348300E-01, .262128E-01, + .197304E-01, .148181E-01, .111161E-01, .831110E-02, + .620159E-02, .460579E-02, .340982E-02, .251169E-02, + .184115E-02, .134031E-02, .971271E-03, .698207E-03, + .499103E-03, .353634E-03, .249181E-03, .173890E-03, + .120716E-03, .831926E-04, .571418E-04, .390476E-04, + .267822E-04, .183441E-04, .126723E-04, .876229E-05, + .612210E-05, .426734E-05, .296596E-05, .199305E-05, + .128782E-05, .774027E-06, .418390E-06, .187358E-06, + .570842E-07, .504920E-08, .000000E+00, .455811E+06, + .348829E+06, .262863E+06, .197913E+06, .148930E+06, + .111967E+06, .841263E+05, .631459E+05, .473657E+05, + .354914E+05, .265738E+05, .198744E+05, .148513E+05 / DATA (UPDI(I),I=1925,1976) / + .110843E+05, .826497E+04, .615471E+04, .457848E+04, + .340116E+04, .252371E+04, .186975E+04, .138349E+04, + .102199E+04, .753922E+03, .555190E+03, .408236E+03, + .299584E+03, .219522E+03, .159859E+03, .116750E+03, + .851060E+02, .619465E+02, .450099E+02, .326626E+02, + .236892E+02, .171553E+02, .124142E+02, .898444E+01, + .650258E+01, .471131E+01, .341631E+01, .248308E+01, + .180773E+01, .131982E+01, .965810E+00, .709080E+00, + .521842E+00, .385800E+00, .285351E+00, .212049E+00, + .157593E+00, .117532E+00, .877463E-01, .656137E-01, + .490612E-01, .367067E-01, .274331E-01, .205016E-01, + .152905E-01, .113892E-01, .845699E-02, .626626E-02, + .462287E-02, .339922E-02, .248846E-02, .181275E-02 / DATA (UPDI(I),I=1977,2028) / + .131238E-02, .946173E-03, .677534E-03, .482984E-03, + .342023E-03, .241402E-03, .169399E-03, .118714E-03, + .830807E-04, .583525E-04, .410941E-04, .292225E-04, + .209065E-04, .151134E-04, .109541E-04, .796704E-05, + .574040E-05, .406299E-05, .276232E-05, .178035E-05, + .105535E-05, .553083E-06, .235327E-06, .665976E-07, + .609320E-08, .000000E+00, .650558E+06, .495684E+06, + .371619E+06, .278364E+06, .208388E+06, .155855E+06, + .116490E+06, .869790E+05, .648973E+05, .483692E+05, + .360216E+05, .267950E+05, .199139E+05, .147815E+05, + .109610E+05, .811713E+04, .600452E+04, .443541E+04, + .327243E+04, .241060E+04, .177338E+04, .130238E+04, + .955114E+03, .699181E+03, .511026E+03, .372739E+03 / DATA (UPDI(I),I=2029,2080) / + .271453E+03, .196435E+03, .142561E+03, .103262E+03, + .746767E+02, .539063E+02, .388583E+02, .279943E+02, + .201342E+02, .144694E+02, .103982E+02, .747263E+01, + .537518E+01, .386962E+01, .279201E+01, .201785E+01, + .146235E+01, .106230E+01, .774173E+00, .565599E+00, + .415103E+00, .304799E+00, .224868E+00, .165928E+00, + .122863E+00, .910823E-01, .676256E-01, .502152E-01, + .373068E-01, .276910E-01, .205505E-01, .152226E-01, + .112606E-01, .830557E-02, .611240E-02, .448017E-02, + .327283E-02, .238164E-02, .172464E-02, .124203E-02, + .891181E-03, .635851E-03, .452149E-03, .320042E-03, + .226255E-03, .159555E-03, .112742E-03, .799044E-04, + .570984E-04, .410881E-04, .299227E-04, .219684E-04 / DATA (UPDI(I),I=2081,2132) / + .162675E-04, .120515E-04, .890406E-05, .648224E-05, + .459893E-05, .312272E-05, .199692E-05, .116843E-05, + .599729E-06, .247724E-06, .675489E-07, .628860E-08, + .000000E+00, .899511E+06, .682442E+06, .509077E+06, + .379417E+06, .282602E+06, .210286E+06, .156367E+06, + .116152E+06, .862138E+05, .639210E+05, .473523E+05, + .350367E+05, .258997E+05, .191211E+05, .141020E+05, + .103861E+05, .764054E+04, .561256E+04, .411770E+04, + .301613E+04, .220617E+04, .161091E+04, .117450E+04, + .854738E+03, .621010E+03, .450237E+03, .325904E+03, + .234371E+03, .169035E+03, .121670E+03, .874271E+02, + .627037E+02, .449029E+02, .321352E+02, .229563E+02, + .163851E+02, .116933E+02, .834476E+01, .596003E+01 / DATA (UPDI(I),I=2133,2184) / + .426019E+01, .305174E+01, .218975E+01, .157544E+01, + .113622E+01, .822059E+00, .596281E+00, .434492E+00, + .316761E+00, .232040E+00, .170019E+00, .125008E+00, + .920327E-01, .678569E-01, .500435E-01, .369242E-01, + .272230E-01, .200659E-01, .147647E-01, .108487E-01, + .794947E-02, .581204E-02, .423332E-02, .307324E-02, + .222362E-02, .160124E-02, .114753E-02, .819825E-03, + .583100E-03, .413832E-03, .292916E-03, .207488E-03, + .147036E-03, .104697E-03, .750156E-04, .543516E-04, + .397391E-04, .294083E-04, .219293E-04, .164430E-04, + .122963E-04, .912286E-05, .664049E-05, .468482E-05, + .315389E-05, .199048E-05, .114473E-05, .574023E-06, + .229959E-06, .605571E-07, .571895E-08, .000000E+00 / DATA (UPDI(I),I=2185,2236) / + .121245E+07, .916028E+06, .679978E+06, .504300E+06, + .373756E+06, .276728E+06, .204737E+06, .151313E+06, + .111738E+06, .824197E+05, .607392E+05, .447074E+05, + .328743E+05, .241416E+05, .177093E+05, .129726E+05, + .949134E+04, .693389E+04, .505892E+04, .368488E+04, + .268013E+04, .194586E+04, .141055E+04, .102057E+04, + .737134E+03, .531248E+03, .382237E+03, .273191E+03, + .195822E+03, .140076E+03, .100018E+03, .712768E+02, + .507110E+02, .360548E+02, .255847E+02, .181384E+02, + .128561E+02, .911154E+01, .646235E+01, .458694E+01, + .326260E+01, .232453E+01, .166051E+01, .118910E+01, + .854209E+00, .615235E+00, .445154E+00, .322259E+00, + .234428E+00, .170583E+00, .124558E+00, .910788E-01 / DATA (UPDI(I),I=2237,2288) / + .666961E-01, .488579E-01, .358072E-01, .262252E-01, + .192021E-01, .140369E-01, .102467E-01, .746062E-02, + .542012E-02, .392399E-02, .283176E-02, .203780E-02, + .145982E-02, .104151E-02, .741262E-03, .525858E-03, + .372718E-03, .263969E-03, .187449E-03, .133509E-03, + .957724E-04, .692905E-04, .507803E-04, .375786E-04, + .281174E-04, .211639E-04, .159654E-04, .119732E-04, + .886951E-05, .642326E-05, .448976E-05, .298692E-05, + .185593E-05, .104694E-05, .512184E-06, .198841E-06, + .505882E-07, .484219E-08, .000000E+00, .159961E+07, + .120362E+07, .889170E+06, .656268E+06, .484019E+06, + .356614E+06, .262536E+06, .193066E+06, .141854E+06, + .104105E+06, .763291E+05, .558938E+05, .408867E+05 / DATA (UPDI(I),I=2289,2340) / + .298689E+05, .217949E+05, .158806E+05, .115567E+05, + .839706E+04, .609295E+04, .441361E+04, .319228E+04, + .230469E+04, .166118E+04, .119500E+04, .858117E+03, + .614803E+03, .439735E+03, .312375E+03, .222550E+03, + .158218E+03, .112268E+03, .795036E+02, .562021E+02, + .397013E+02, .279873E+02, .197103E+02, .138763E+02, + .976798E+01, .688045E+01, .485008E+01, .342582E+01, + .242388E+01, .171937E+01, .122269E+01, .872211E+00, + .623847E+00, .448272E+00, .322279E+00, .232843E+00, + .168279E+00, .122045E+00, .886450E-01, .644799E-01, + .469235E-01, .341631E-01, .248591E-01, .180836E-01, + .131351E-01, .952750E-02, .689410E-02, .497799E-02, + .358296E-02, .257109E-02, .184078E-02, .131239E-02 / DATA (UPDI(I),I=2341,2392) / + .932578E-03, .661590E-03, .468411E-03, .331792E-03, + .235269E-03, .167576E-03, .119986E-03, .866905E-04, + .632661E-04, .468045E-04, .349522E-04, .263450E-04, + .199322E-04, .150648E-04, .112847E-04, .831902E-05, + .597730E-05, .413116E-05, .271106E-05, .165628E-05, + .915457E-06, .436627E-06, .164242E-06, .404052E-07, + .391806E-08, .000000E+00, .207140E+07, .155242E+07, + .114144E+07, .838484E+06, .615457E+06, .451277E+06, + .330614E+06, .241942E+06, .176889E+06, .129173E+06, + .942331E+05, .686560E+05, .499660E+05, .363140E+05, + .263602E+05, .191066E+05, .138308E+05, .999589E+04, + .721399E+04, .519730E+04, .373846E+04, .268406E+04, + .192378E+04, .137609E+04, .982490E+03, .699828E+03 / DATA (UPDI(I),I=2393,2444) / + .497623E+03, .351376E+03, .248837E+03, .175837E+03, + .124004E+03, .872700E+02, .613033E+02, .430299E+02, + .301377E+02, .210863E+02, .147468E+02, .103116E+02, + .721446E+01, .505109E+01, .354347E+01, .249001E+01, + .175415E+01, .123890E+01, .877720E+00, .623511E+00, + .444995E+00, .317755E+00, .228037E+00, .163706E+00, + .117940E+00, .851007E-01, .614960E-01, .444626E-01, + .321625E-01, .232549E-01, .168093E-01, .121335E-01, + .874672E-02, .629120E-02, .451599E-02, .323238E-02, + .230718E-02, .164397E-02, .116699E-02, .826347E-03, + .584679E-03, .413401E-03, .292840E-03, .208028E-03, + .148694E-03, .107044E-03, .778677E-04, .572626E-04, + .426871E-04, .320878E-04, .242943E-04, .184181E-04 / DATA (UPDI(I),I=2445,2496) / + .139063E-04, .103771E-04, .759638E-05, .540571E-05, + .368952E-05, .238576E-05, .143195E-05, .774971E-06, + .360222E-06, .131313E-06, .312747E-07, .307128E-08, + .000000E+00, .263803E+07, .196941E+07, .144137E+07, + .105390E+07, .769950E+06, .561897E+06, .409697E+06, + .298378E+06, .217094E+06, .157759E+06, .114520E+06, + .830224E+05, .601184E+05, .434717E+05, .313948E+05, + .226387E+05, .163023E+05, .117204E+05, .841369E+04, + .602921E+04, .431342E+04, .307997E+04, .219537E+04, + .156160E+04, .110865E+04, .785180E+03, .555101E+03, + .389647E+03, .274313E+03, .192684E+03, .135064E+03, + .944740E+02, .659522E+02, .460039E+02, .320159E+02, + .222568E+02, .154643E+02, .107425E+02, .746620E+01 / DATA (UPDI(I),I=2497,2548) / + .519258E+01, .361834E+01, .252557E+01, .176721E+01, + .123974E+01, .872414E+00, .615594E+00, .436423E+00, + .309560E+00, .220694E+00, .157395E+00, .112654E+00, + .807624E-01, .579855E-01, .416585E-01, .299437E-01, + .215160E-01, .154560E-01, .110889E-01, .794583E-02, + .568203E-02, .405574E-02, .288759E-02, .205079E-02, + .145486E-02, .102873E-02, .726259E-03, .512809E-03, + .362324E-03, .256833E-03, .182881E-03, .131224E-03, + .949782E-04, .695280E-04, .514642E-04, .385922E-04, + .291379E-04, .221074E-04, .167542E-04, .126099E-04, + .935571E-05, .679065E-05, .478024E-05, .321921E-05, + .204962E-05, .120795E-05, .639850E-06, .289800E-06, + .102413E-06, .236453E-07, .235091E-08, .000000E+00 / DATA (UPDI(I),I=2549,2600) / + .940743E+04, .320823E+04, .264158E+04, .217499E+04, + .179081E+04, .147450E+04, .121407E+04, .999634E+03, + .823081E+03, .677715E+03, .558028E+03, .459482E+03, + .378344E+03, .311539E+03, .256534E+03, .211246E+03, + .173958E+03, .143256E+03, .117978E+03, .971650E+02, + .800284E+02, .659187E+02, .543013E+02, .447358E+02, + .368599E+02, .303749E+02, .250351E+02, .205818E+02, + .169725E+02, .140001E+02, .115519E+02, .953538E+01, + .787421E+01, .650931E+01, .538161E+01, .445250E+01, + .368670E+01, .305517E+01, .253400E+01, .210331E+01, + .174751E+01, .145269E+01, .120814E+01, .100495E+01, + .835823E+00, .694843E+00, .577557E+00, .478909E+00, + .396882E+00, .327814E+00, .270245E+00, .222101E+00 / DATA (UPDI(I),I=2601,2652) / + .181890E+00, .148363E+00, .120472E+00, .973392E-01, + .782191E-01, .624807E-01, .495867E-01, .390786E-01, + .305649E-01, .237111E-01, .182321E-01, .139032E-01, + .104758E-01, .780524E-02, .574497E-02, .417271E-02, + .298707E-02, .210459E-02, .145713E-02, .989569E-03, + .657633E-03, .426396E-03, .270139E-03, .165550E-03, + .980414E-04, .558202E-04, .303609E-04, .156498E-04, + .756678E-05, .339071E-05, .137476E-05, .495377E-06, + .152229E-06, .376441E-07, .679579E-08, .746117E-09, + .330585E-10, .159208E-12, .000000E+00, .206302E+05, + .193719E+05, .153213E+05, .121141E+05, .957900E+04, + .757224E+04, .598635E+04, .473118E+04, .373951E+04, + .295479E+04, .233497E+04, .184460E+04, .145738E+04 / DATA (UPDI(I),I=2653,2704) / + .115109E+04, .909313E+03, .718103E+03, .567213E+03, + .447905E+03, .353784E+03, .279377E+03, .220698E+03, + .174315E+03, .137745E+03, .108841E+03, .860547E+02, + .680474E+02, .538470E+02, .424878E+02, .336723E+02, + .266987E+02, .211981E+02, .168431E+02, .134053E+02, + .106869E+02, .853257E+01, .682222E+01, .546801E+01, + .438996E+01, .353373E+01, .284925E+01, .230377E+01, + .186548E+01, .151399E+01, .123006E+01, .100097E+01, + .814848E+00, .664327E+00, .540686E+00, .440446E+00, + .357825E+00, .290540E+00, .235320E+00, .190149E+00, + .153108E+00, .122866E+00, .981474E-01, .780611E-01, + .617424E-01, .485680E-01, .379522E-01, .294624E-01, + .226931E-01, .173404E-01, .131409E-01, .984959E-02 / DATA (UPDI(I),I=2705,2756) / + .729964E-02, .534654E-02, .386092E-02, .274538E-02, + .191564E-02, .130791E-02, .867339E-03, .555116E-03, + .336567E-03, .188390E-03, .898127E-04, .270146E-04, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .519533E+05, .410400E+05, + .320750E+05, .250583E+05, .195751E+05, .152855E+05, + .119349E+05, .931484E+04, .726929E+04, .567045E+04, + .442286E+04, .344820E+04, .268808E+04, .209455E+04, + .163195E+04, .127094E+04, .989732E+03, .770404E+03, + .599677E+03, .466591E+03, .363065E+03, .282408E+03, + .219707E+03, .170884E+03, .132952E+03, .103429E+03 / DATA (UPDI(I),I=2757,2808) / + .804989E+02, .624460E+02, .486536E+02, .379205E+02, + .295890E+02, .231032E+02, .180670E+02, .141530E+02, + .111030E+02, .872390E+01, .687221E+01, .542413E+01, + .429364E+01, .340580E+01, .271026E+01, .216101E+01, + .172786E+01, .138380E+01, .111065E+01, .892244E+00, + .718319E+00, .577580E+00, .465115E+00, .373714E+00, + .300271E+00, .240774E+00, .192703E+00, .153747E+00, + .122301E+00, .968761E-01, .764318E-01, .599864E-01, + .468358E-01, .363351E-01, .280108E-01, .214283E-01, + .162641E-01, .122428E-01, .911506E-02, .670859E-02, + .487820E-02, .349487E-02, .246302E-02, .170037E-02, + .114556E-02, .746229E-03, .465681E-03, .271270E-03, + .141327E-03, .566426E-04, .549488E-05, .000000E+00 / DATA (UPDI(I),I=2809,2860) / + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .916249E+05, .718365E+05, .556665E+05, + .431150E+05, .333886E+05, .258434E+05, .200000E+05, + .154696E+05, .119633E+05, .924669E+04, .714554E+04, + .551871E+04, .426138E+04, .328860E+04, .253734E+04, + .195656E+04, .150840E+04, .116223E+04, .895346E+03, + .689357E+03, .530690E+03, .408329E+03, .314169E+03, + .241618E+03, .185835E+03, .142886E+03, .109888E+03, + .842005E+02, .647948E+02, .498696E+02, .384165E+02, + .296086E+02, .228503E+02, .176638E+02, .136717E+02, + .105982E+02, .823622E+01, .641370E+01, .500927E+01 / DATA (UPDI(I),I=2861,2912) / + .392120E+01, .307994E+01, .242465E+01, .191459E+01, + .151488E+01, .120161E+01, .954396E+00, .759986E+00, + .604628E+00, .481967E+00, .383467E+00, .305213E+00, + .242531E+00, .192421E+00, .152239E+00, .120124E+00, + .944122E-01, .739303E-01, .576054E-01, .446648E-01, + .344203E-01, .263658E-01, .200477E-01, .151286E-01, + .113271E-01, .839214E-02, .615003E-02, .445655E-02, + .318514E-02, .224297E-02, .155075E-02, .105013E-02, + .691767E-03, .441028E-03, .267895E-03, .152409E-03, + .770341E-04, .318152E-04, .120773E-04, .762681E-05, + .467475E-05, .284708E-05, .169415E-05, .102323E-05, + .584218E-06, .330603E-06, .178586E-06, .925626E-07, + .422535E-07, .143796E-07, .987546E-09, .000000E+00 / DATA (UPDI(I),I=2913,2964) / + .145705E+06, .113543E+06, .873745E+05, .671989E+05, + .516715E+05, .397088E+05, .305088E+05, .234260E+05, + .179830E+05, .137959E+05, .105809E+05, .810974E+04, + .621389E+04, .475802E+04, .364211E+04, .278601E+04, + .213046E+04, .162804E+04, .124373E+04, .949490E+03, + .724657E+03, .552696E+03, .421456E+03, .321193E+03, + .244754E+03, .186413E+03, .141983E+03, .107712E+03, + .820572E+02, .625119E+02, .476531E+02, .363384E+02, + .277405E+02, .212098E+02, .162333E+02, .124427E+02, + .956005E+01, .736020E+01, .568314E+01, .439851E+01, + .341614E+01, .265968E+01, .207735E+01, .162623E+01, + .127655E+01, .100369E+01, .791434E+00, .623653E+00, + .492571E+00, .388415E+00, .306493E+00, .241530E+00 / DATA (UPDI(I),I=2965,3016) / + .190087E+00, .149226E+00, .116859E+00, .911788E-01, + .708948E-01, .548640E-01, .422580E-01, .323581E-01, + .246337E-01, .186202E-01, .139715E-01, .104048E-01, + .767023E-02, .559542E-02, .403861E-02, .287734E-02, + .202216E-02, .139763E-02, .948531E-03, .628857E-03, + .406189E-03, .253071E-03, .151235E-03, .848526E-04, + .451729E-04, .266224E-04, .198048E-04, .147170E-04, + .109848E-04, .810286E-05, .589332E-05, .411707E-05, + .274224E-05, .168970E-05, .930307E-06, .424472E-06, + .132192E-06, .117199E-07, .000000E+00, .161313E+06, + .168361E+06, .128773E+06, .984330E+05, .752220E+05, + .574471E+05, .438601E+05, .334639E+05, .255240E+05, + .194543E+05, .148229E+05, .112858E+05, .858955E+04 / DATA (UPDI(I),I=3017,3068) / + .653252E+04, .496612E+04, .377242E+04, .286445E+04, + .217333E+04, .164829E+04, .124910E+04, .946206E+03, + .716202E+03, .541920E+03, .409759E+03, .309744E+03, + .233984E+03, .176732E+03, .132920E+03, .100382E+03, + .757960E+02, .572567E+02, .432598E+02, .327132E+02, + .247733E+02, .187760E+02, .142501E+02, .108395E+02, + .826166E+01, .631490E+01, .483841E+01, .372016E+01, + .286773E+01, .221790E+01, .171959E+01, .133709E+01, + .104161E+01, .813972E+00, .635789E+00, .497894E+00, + .389367E+00, .304780E+00, .238318E+00, .186141E+00, + .145060E+00, .112786E+00, .873938E-01, .674942E-01, + .518916E-01, .397144E-01, .302233E-01, .228707E-01, + .171881E-01, .128246E-01, .950015E-02, .696789E-02 / DATA (UPDI(I),I=3069,3120) / + .505935E-02, .363632E-02, .258155E-02, .180949E-02, + .124901E-02, .848233E-03, .564542E-03, .367857E-03, + .233179E-03, .143894E-03, .858227E-04, .511200E-04, + .338850E-04, .258429E-04, .196484E-04, .149057E-04, + .111221E-04, .811450E-05, .567092E-05, .375394E-05, + .228771E-05, .123699E-05, .549173E-06, .164601E-06, + .148656E-07, .000000E+00, .329530E+06, .254016E+06, + .193041E+06, .146607E+06, .111304E+06, .844439E+05, + .640422E+05, .485343E+05, .367668E+05, .278314E+05, + .210582E+05, .159209E+05, .120311E+05, .908419E+04, + .685559E+04, .516940E+04, .389583E+04, .293353E+04, + .220772E+04, .166004E+04, .124752E+04, .936687E+03, + .702941E+03, .527093E+03, .395051E+03, .295843E+03 / DATA (UPDI(I),I=3121,3172) / + .221481E+03, .165057E+03, .123504E+03, .923817E+02, + .691151E+02, .517098E+02, .387114E+02, .290190E+02, + .217655E+02, .163459E+02, .123010E+02, .927525E+01, + .701289E+01, .531524E+01, .404260E+01, .308299E+01, + .235900E+01, .180990E+01, .139279E+01, .107408E+01, + .831082E+00, .642894E+00, .498739E+00, .386467E+00, + .299816E+00, .232416E+00, .180001E+00, .139129E+00, + .107308E+00, .825028E-01, .632294E-01, .482503E-01, + .366552E-01, .276937E-01, .208053E-01, .155243E-01, + .114990E-01, .845621E-02, .615495E-02, .443362E-02, + .315927E-02, .222185E-02, .154073E-02, .105022E-02, + .702350E-03, .458475E-03, .291162E-03, .178158E-03, + .104564E-03, .579272E-04, .311253E-04, .183464E-04 / DATA (UPDI(I),I=3173,3224) / + .126723E-04, .876229E-05, .612210E-05, .426734E-05, + .296596E-05, .199305E-05, .128782E-05, .774027E-06, + .418390E-06, .187358E-06, .570842E-07, .504920E-08, + .000000E+00, .478981E+06, .367318E+06, .277480E+06, + .209467E+06, .158062E+06, .119184E+06, .898291E+05, + .676516E+05, .509251E+05, .383030E+05, .287943E+05, + .216278E+05, .162358E+05, .121773E+05, .912778E+04, + .683571E+04, .511592E+04, .382526E+04, .285834E+04, + .213377E+04, .159177E+04, .118629E+04, .883526E+03, + .657419E+03, .488870E+03, .363181E+03, .269686E+03, + .199296E+03, .147862E+03, .109652E+03, .813132E+02, + .602917E+02, .447221E+02, .332137E+02, .246747E+02, + .183526E+02, .136759E+02, .102104E+02, .764305E+01 / DATA (UPDI(I),I=3225,3276) / + .573515E+01, .431835E+01, .326061E+01, .247020E+01, + .187673E+01, .143026E+01, .109251E+01, .837475E+00, + .641903E+00, .493520E+00, .379072E+00, .291558E+00, + .224130E+00, .172159E+00, .132006E+00, .101014E+00, + .770698E-01, .586198E-01, .444032E-01, .334874E-01, + .251207E-01, .187399E-01, .138876E-01, .102169E-01, + .746434E-02, .539790E-02, .386422E-02, .273716E-02, + .191447E-02, .132109E-02, .897038E-03, .598492E-03, + .390803E-03, .249278E-03, .154397E-03, .930218E-04, + .543595E-04, .321143E-04, .209084E-04, .151134E-04, + .109541E-04, .796704E-05, .574040E-05, .406299E-05, + .276232E-05, .178035E-05, .105535E-05, .553083E-06, + .235327E-06, .665976E-07, .609320E-08, .000000E+00 / DATA (UPDI(I),I=3277,3328) / + .673542E+06, .514023E+06, .386117E+06, .289823E+06, + .217445E+06, .163012E+06, .122144E+06, .914462E+05, + .684260E+05, .511563E+05, .382225E+05, .285328E+05, + .212859E+05, .158645E+05, .118158E+05, .879169E+04, + .653679E+04, .485534E+04, .360370E+04, .267190E+04, + .197946E+04, .146489E+04, .108325E+04, .800209E+03, + .590671E+03, .435517E+03, .320935E+03, .235301E+03, + .173193E+03, .127402E+03, .936975E+02, .688925E+02, + .506638E+02, .372998E+02, .274642E+02, .202436E+02, + .149470E+02, .110566E+02, .819927E+01, .609501E+01, + .454624E+01, .340061E+01, .255221E+01, .192115E+01, + .145070E+01, .109814E+01, .834323E+00, .633884E+00, + .483182E+00, .368005E+00, .280707E+00, .214046E+00 / DATA (UPDI(I),I=3329,3380) / + .163107E+00, .124094E+00, .942323E-01, .713574E-01, + .538736E-01, .405124E-01, .303345E-01, .225960E-01, + .167397E-01, .123213E-01, .900372E-02, .653545E-02, + .469595E-02, .334116E-02, .235285E-02, .163691E-02, + .112431E-02, .760735E-03, .506603E-03, .331119E-03, + .212321E-03, .133203E-03, .823095E-04, .503605E-04, + .318397E-04, .219699E-04, .162675E-04, .120515E-04, + .890406E-05, .648224E-05, .459893E-05, .312272E-05, + .199692E-05, .116843E-05, .599729E-06, .247724E-06, + .675489E-07, .628860E-08, .000000E+00, .922310E+06, + .700632E+06, .523456E+06, .390781E+06, .291583E+06, + .217383E+06, .161974E+06, .120581E+06, .897120E+05, + .666837E+05, .495337E+05, .367589E+05, .272592E+05 / DATA (UPDI(I),I=3381,3432) / + .201942E+05, .149487E+05, .110542E+05, .816764E+04, + .602832E+04, .444560E+04, .327469E+04, .241003E+04, + .177161E+04, .130116E+04, .954550E+03, .699650E+03, + .512181E+03, .374690E+03, .272656E+03, .199177E+03, + .145394E+03, .106095E+03, .773880E+02, .564494E+02, + .412177E+02, .300939E+02, .219931E+02, .160983E+02, + .118043E+02, .867646E+01, .639259E+01, .472576E+01, + .350351E+01, .260609E+01, .194445E+01, .145546E+01, + .109223E+01, .822781E+00, .619846E+00, .468584E+00, + .353980E+00, .267848E+00, .202639E+00, .153220E+00, + .115688E+00, .871919E-01, .655416E-01, .491236E-01, + .366773E-01, .272693E-01, .201723E-01, .148420E-01, + .108514E-01, .787716E-02, .568126E-02, .405659E-02 / DATA (UPDI(I),I=3433,3484) / + .286903E-02, .200899E-02, .139062E-02, .951056E-03, + .641568E-03, .426741E-03, .279427E-03, .180303E-03, + .114653E-03, .725884E-04, .461894E-04, .306756E-04, + .219305E-04, .164430E-04, .122963E-04, .912286E-05, + .664049E-05, .468482E-05, .315389E-05, .199048E-05, + .114473E-05, .574023E-06, .229959E-06, .605571E-07, + .571895E-08, .000000E+00, .123506E+07, .934071E+06, + .694239E+06, .515571E+06, .382662E+06, .283765E+06, + .210296E+06, .155704E+06, .115206E+06, .851580E+05, + .629012E+05, .464141E+05, .342214E+05, .252047E+05, + .185480E+05, .136342E+05, .100132E+05, .734547E+04, + .538343E+04, .394069E+04, .288175E+04, .210473E+04, + .153571E+04, .111914E+04, .814753E+03, .592343E+03 / DATA (UPDI(I),I=3485,3536) / + .430314E+03, .310882E+03, .225463E+03, .163376E+03, + .118324E+03, .856529E+02, .619934E+02, .449104E+02, + .325271E+02, .235782E+02, .171162E+02, .124462E+02, + .907127E+01, .662695E+01, .485738E+01, .357051E+01, + .263337E+01, .194823E+01, .144605E+01, .107615E+01, + .804026E+00, .600785E+00, .450548E+00, .337665E+00, + .253517E+00, .190331E+00, .142828E+00, .107041E+00, + .800839E-01, .597649E-01, .444746E-01, .329732E-01, + .243453E-01, .178865E-01, .130716E-01, .949404E-02, + .684702E-02, .490741E-02, .348263E-02, .244888E-02, + .170558E-02, .117505E-02, .800573E-03, .538769E-03, + .358240E-03, .235236E-03, .152912E-03, .986210E-04, + .639022E-04, .420442E-04, .289529E-04, .211648E-04 / DATA (UPDI(I),I=3537,3588) / + .159654E-04, .119732E-04, .886951E-05, .642326E-05, + .448976E-05, .298692E-05, .185593E-05, .104694E-05, + .512184E-06, .198841E-06, .505882E-07, .484219E-08, + .000000E+00, .162204E+07, .122151E+07, .903313E+06, + .667445E+06, .492851E+06, .363591E+06, .268048E+06, + .197419E+06, .145292E+06, .106820E+06, .784717E+05, + .575850E+05, .422213E+05, .309219E+05, .226256E+05, + .165358E+05, .120733E+05, .880442E+04, .641404E+04, + .466665E+04, .339163E+04, .246171E+04, .178482E+04, + .129232E+04, .934694E+03, .675032E+03, .487088E+03, + .349459E+03, .251678E+03, .181084E+03, .130206E+03, + .935651E+02, .672155E+02, .483264E+02, .347318E+02, + .249802E+02, .179905E+02, .129775E+02, .938222E+01 / DATA (UPDI(I),I=3589,3640) / + .679849E+01, .494247E+01, .360342E+01, .263593E+01, + .193428E+01, .142408E+01, .105130E+01, .779231E+00, + .577663E+00, .429851E+00, .319677E+00, .238193E+00, + .177492E+00, .132210E+00, .983639E-01, .730628E-01, + .541394E-01, .400059E-01, .294553E-01, .215994E-01, + .157625E-01, .114431E-01, .825743E-02, .591730E-02, + .421519E-02, .297369E-02, .207946E-02, .144099E-02, + .988518E-03, .671311E-03, .451036E-03, .300078E-03, + .197812E-03, .129672E-03, .848602E-04, .561966E-04, + .380292E-04, .268943E-04, .199329E-04, .150648E-04, + .112847E-04, .831902E-05, .597730E-05, .413116E-05, + .271106E-05, .165628E-05, .915457E-06, .436627E-06, + .164242E-06, .404052E-07, .391806E-08, .000000E+00 / DATA (UPDI(I),I=3641,3692) / + .209365E+07, .157016E+07, .115547E+07, .849568E+06, + .624214E+06, .458195E+06, .336078E+06, .246258E+06, + .180297E+06, .131863E+06, .963563E+05, .703317E+05, + .512882E+05, .373570E+05, .271829E+05, .197553E+05, + .143422E+05, .103990E+05, .753163E+04, .544752E+04, + .393552E+04, .283920E+04, .204588E+04, .147213E+04, + .105801E+04, .759172E+03, .544236E+03, .387840E+03, + .277443E+03, .198260E+03, .141565E+03, .101011E+03, + .720429E+02, .514209E+02, .366820E+02, .261849E+02, + .187146E+02, .133961E+02, .960964E+01, .690888E+01, + .498327E+01, .360459E+01, .261600E+01, .190459E+01, + .139125E+01, .101908E+01, .749541E+00, .551391E+00, + .407207E+00, .300566E+00, .222297E+00, .164437E+00 / DATA (UPDI(I),I=3693,3744) / + .121601E+00, .898260E-01, .662503E-01, .487498E-01, + .357750E-01, .261612E-01, .190550E-01, .138139E-01, + .996316E-02, .714391E-02, .508757E-02, .360268E-02, + .252715E-02, .175795E-02, .121252E-02, .828646E-03, + .561284E-03, .376795E-03, .251073E-03, .166325E-03, + .110049E-03, .730814E-04, .493750E-04, .341984E-04, + .246542E-04, .184186E-04, .139063E-04, .103771E-04, + .759638E-05, .540571E-05, .368952E-05, .238576E-05, + .143195E-05, .774971E-06, .360222E-06, .131313E-06, + .312747E-07, .307128E-08, .000000E+00, .266010E+07, + .198701E+07, .145528E+07, .106489E+07, .778633E+06, + .568756E+06, .415113E+06, .302655E+06, .220471E+06, + .160425E+06, .116624E+06, .846825E+05, .614280E+05 / DATA (UPDI(I),I=3745,3796) / + .445047E+05, .322094E+05, .232809E+05, .168085E+05, + .121192E+05, .872785E+04, .627659E+04, .450815E+04, + .323320E+04, .231588E+04, .165634E+04, .118309E+04, + .843621E+03, .600958E+03, .425477E+03, .302384E+03, + .214655E+03, .152241E+03, .107888E+03, .764137E+02, + .541577E+02, .383580E+02, .271830E+02, .192854E+02, + .137023E+02, .975563E+01, .696092E+01, .498272E+01, + .357679E+01, .257604E+01, .186123E+01, .134927E+01, + .980862E+00, .716042E+00, .522813E+00, .383263E+00, + .280821E+00, .206191E+00, .151433E+00, .111190E+00, + .815612E-01, .597378E-01, .436568E-01, .318203E-01, + .231137E-01, .167241E-01, .120454E-01, .863230E-02, + .615127E-02, .435423E-02, .306577E-02, .213888E-02 / DATA (UPDI(I),I=3797,3848) / + .148057E-02, .101689E-02, .692702E-03, .468313E-03, + .314382E-03, .210010E-03, .139940E-03, .935111E-04, + .629954E-04, .433307E-04, .305792E-04, .223427E-04, + .167545E-04, .126099E-04, .935571E-05, .679065E-05, + .478024E-05, .321921E-05, .204962E-05, .120795E-05, + .639850E-06, .289800E-06, .102413E-06, .236453E-07, + .235091E-08, .000000E+00, .707330E+04, .802858E+04, + .661144E+04, .544445E+04, .448353E+04, .369229E+04, + .304077E+04, .250428E+04, .206251E+04, .169873E+04, + .139917E+04, .115249E+04, .949349E+03, .782061E+03, + .644294E+03, .530837E+03, .437397E+03, .360440E+03, + .297056E+03, .244850E+03, .201848E+03, .166426E+03, + .137246E+03, .113207E+03, .934016E+02, .770830E+02 / DATA (UPDI(I),I=3849,3900) / + .636361E+02, .524121E+02, .433072E+02, .358012E+02, + .296125E+02, .245090E+02, .202996E+02, .168364E+02, + .139711E+02, .116070E+02, .965566E+01, .804418E+01, + .671250E+01, .561064E+01, .469935E+01, .394349E+01, + .331588E+01, .279379E+01, .235851E+01, .199460E+01, + .169029E+01, .143204E+01, .121416E+01, .102657E+01, + .865247E+00, .724807E+00, .601932E+00, .494470E+00, + .401154E+00, .321189E+00, .253839E+00, .198166E+00, + .152967E+00, .116859E+00, .884115E-01, .662616E-01, + .491925E-01, .362148E-01, .263349E-01, .189354E-01, + .134480E-01, .942220E-02, .650339E-02, .441491E-02, + .294242E-02, .192122E-02, .122565E-02, .761391E-03, + .461290E-03, .269536E-03, .151713E-03, .817900E-04 / DATA (UPDI(I),I=3901,3952) / + .419346E-04, .202669E-04, .912865E-05, .378134E-05, + .140293E-05, .457113E-06, .125021E-06, .269414E-07, + .411581E-08, .366141E-09, .122487E-10, .389227E-13, + .000000E+00, .182462E+05, .242764E+05, .193604E+05, + .154405E+05, .123186E+05, .982855E+04, .784475E+04, + .626186E+04, .500034E+04, .399336E+04, .319054E+04, + .254942E+04, .203808E+04, .162954E+04, .130356E+04, + .104298E+04, .834963E+03, .668590E+03, .535704E+03, + .429357E+03, .344366E+03, .276302E+03, .221869E+03, + .178244E+03, .143326E+03, .115320E+03, .928775E+02, + .746361E+02, .602365E+02, .486573E+02, .393588E+02, + .318705E+02, .258484E+02, .210032E+02, .170895E+02, + .139277E+02, .113760E+02, .930964E+01, .763748E+01 / DATA (UPDI(I),I=3953,4004) / + .627872E+01, .517646E+01, .427719E+01, .354367E+01, + .294256E+01, .244940E+01, .204262E+01, .170740E+01, + .142652E+01, .119284E+01, .994370E+00, .826392E+00, + .682587E+00, .559202E+00, .453413E+00, .363442E+00, + .287804E+00, .225236E+00, .174298E+00, .133501E+00, + .101274E+00, .761385E-01, .567349E-01, .418961E-01, + .306875E-01, .222129E-01, .159007E-01, .112456E-01, + .784450E-02, .538860E-02, .363570E-02, .240266E-02, + .154700E-02, .965104E-03, .575676E-03, .323241E-03, + .162276E-03, .639157E-04, .696306E-05, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .542101E-19, .000000E+00, + .000000E+00, .423516E-21, .158819E-21, .000000E+00 / DATA (UPDI(I),I=4005,4056) / + .579497E+05, .460057E+05, .361645E+05, .284261E+05, + .223487E+05, .175698E+05, .138163E+05, .108644E+05, + .854563E+04, .672174E+04, .528885E+04, .416156E+04, + .327576E+04, .257871E+04, .203085E+04, .159961E+04, + .126057E+04, .993587E+03, .783616E+03, .618195E+03, + .488035E+03, .385430E+03, .304651E+03, .240928E+03, + .190720E+03, .151081E+03, .119813E+03, .947995E+02, + .753608E+02, .599721E+02, .478030E+02, .381525E+02, + .305075E+02, .244480E+02, .196245E+02, .157837E+02, + .127274E+02, .102863E+02, .833725E+01, .677401E+01, + .552176E+01, .451249E+01, .369885E+01, .303954E+01, + .250444E+01, .206761E+01, .171121E+01, .141548E+01, + .117187E+01, .967090E+00, .795685E+00, .650718E+00 / DATA (UPDI(I),I=4057,4108) / + .527955E+00, .424138E+00, .337049E+00, .264787E+00, + .205724E+00, .158150E+00, .120398E+00, .908191E-01, + .679152E-01, .503507E-01, .369960E-01, .269651E-01, + .194222E-01, .138330E-01, .973219E-02, .675066E-02, + .460826E-02, .308640E-02, .202108E-02, .128554E-02, + .788283E-03, .457672E-03, .245246E-03, .111704E-03, + .319525E-04, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .976920E+05, + .768607E+05, .598041E+05, .465223E+05, .361948E+05, + .281544E+05, .219033E+05, .170372E+05, .132544E+05, + .103101E+05, .802144E+04, .624018E+04, .485569E+04 / DATA (UPDI(I),I=4109,4160) / + .377816E+04, .294065E+04, .228881E+04, .178214E+04, + .138776E+04, .108118E+04, .842477E+03, .656871E+03, + .512311E+03, .399866E+03, .312248E+03, .244053E+03, + .190878E+03, .149452E+03, .116731E+03, .916214E+02, + .719945E+02, .566675E+02, .446665E+02, .352775E+02, + .279290E+02, .221513E+02, .176075E+02, .140352E+02, + .112162E+02, .899158E+01, .722789E+01, .583070E+01, + .471691E+01, .382839E+01, .311575E+01, .254302E+01, + .207989E+01, .170552E+01, .139769E+01, .114643E+01, + .937259E+00, .763957E+00, .619010E+00, .497712E+00, + .396401E+00, .312453E+00, .243623E+00, .187972E+00, + .143586E+00, .108667E+00, .815212E-01, .606471E-01, + .447430E-01, .327210E-01, .237430E-01, .170296E-01 / DATA (UPDI(I),I=4161,4212) / + .120821E-01, .847140E-02, .585988E-02, .399296E-02, + .267322E-02, .175372E-02, .112170E-02, .695963E-03, + .413769E-03, .232728E-03, .118921E-03, .507298E-04, + .153963E-04, .762670E-05, .467424E-05, .284675E-05, + .169394E-05, .102311E-05, .584152E-06, .330570E-06, + .178571E-06, .925575E-07, .422521E-07, .143794E-07, + .987534E-09, .000000E+00, .151841E+06, .118624E+06, + .915587E+05, .706445E+05, .545091E+05, .420456E+05, + .324333E+05, .250109E+05, .192884E+05, .148710E+05, + .114663E+05, .883903E+04, .681458E+04, .525278E+04, + .404965E+04, .312169E+04, .240697E+04, .185581E+04, + .143136E+04, .110405E+04, .851979E+03, .657578E+03, + .507856E+03, .392366E+03, .303385E+03, .234713E+03 / DATA (UPDI(I),I=4213,4264) / + .181770E+03, .140397E+03, .108983E+03, .846930E+02, + .659267E+02, .513928E+02, .401446E+02, .314371E+02, + .246646E+02, .193966E+02, .152991E+02, .121004E+02, + .960245E+01, .764275E+01, .610590E+01, .489303E+01, + .393471E+01, .317338E+01, .256704E+01, .208108E+01, + .169164E+01, .137417E+01, .111730E+01, .905395E+00, + .731509E+00, .587583E+00, .468450E+00, .370077E+00, + .289478E+00, .224106E+00, .171777E+00, .130417E+00, + .981406E-01, .732316E-01, .542043E-01, .397968E-01, + .289675E-01, .209255E-01, .149446E-01, .105604E-01, + .737752E-02, .508724E-02, .345823E-02, .231228E-02, + .151762E-02, .973888E-03, .609048E-03, .368025E-03, + .213767E-03, .116867E-03, .588424E-04, .289348E-04 / DATA (UPDI(I),I=4265,4316) / + .198047E-04, .147165E-04, .109844E-04, .810263E-05, + .589319E-05, .411700E-05, .274221E-05, .168968E-05, + .930301E-06, .424470E-06, .132192E-06, .117199E-07, + .000000E+00, .158787E+06, .173497E+06, .133003E+06, + .101916E+06, .780905E+05, .598092E+05, .458054E+05, + .350659E+05, .268433E+05, .205407E+05, .157177E+05, + .120227E+05, .919644E+04, .703233E+04, .537776E+04, + .411142E+04, .314365E+04, .240326E+04, .183765E+04, + .140503E+04, .107461E+04, .821936E+03, .628982E+03, + .481439E+03, .368755E+03, .282563E+03, .216717E+03, + .165737E+03, .127389E+03, .980177E+02, .755396E+02, + .582997E+02, .450847E+02, .349553E+02, .271528E+02, + .211436E+02, .165148E+02, .129368E+02, .101693E+02 / DATA (UPDI(I),I=4317,4368) / + .801899E+01, .634833E+01, .504210E+01, .401921E+01, + .321378E+01, .257775E+01, .207227E+01, .167050E+01, + .134566E+01, .108500E+01, .871833E+00, .698508E+00, + .556450E+00, .440064E+00, .344977E+00, .267880E+00, + .205977E+00, .156882E+00, .118406E+00, .886098E-01, + .657739E-01, .484410E-01, .353950E-01, .256431E-01, + .184411E-01, .131133E-01, .922840E-02, .642260E-02, + .441394E-02, .299239E-02, .199725E-02, .131042E-02, + .842611E-03, .529984E-03, .324160E-03, .192794E-03, + .110350E-03, .610747E-04, .355126E-04, .258427E-04, + .196479E-04, .149053E-04, .111218E-04, .811438E-05, + .567086E-05, .375391E-05, .228769E-05, .123699E-05, + .549172E-06, .164601E-06, .148656E-07, .000000E+00 / DATA (UPDI(I),I=4369,4420) / + .335811E+06, .259217E+06, .197325E+06, .150134E+06, + .114209E+06, .868356E+05, .660117E+05, .501561E+05, + .381023E+05, .289311E+05, .219638E+05, .166666E+05, + .126451E+05, .958984E+04, .727196E+04, .551222E+04, + .417810E+04, .316592E+04, .239904E+04, .181753E+04, + .137715E+04, .104338E+04, .790736E+03, .599328E+03, + .454475E+03, .344719E+03, .261671E+03, .198004E+03, + .150583E+03, .114631E+03, .873914E+02, .667174E+02, + .510317E+02, .391366E+02, .300690E+02, .231609E+02, + .178953E+02, .138692E+02, .107873E+02, .841834E+01, + .659656E+01, .518694E+01, .409395E+01, .324189E+01, + .257541E+01, .205077E+01, .163760E+01, .130666E+01, + .104361E+01, .830619E+00, .659219E+00, .520287E+00 / DATA (UPDI(I),I=4421,4472) / + .407756E+00, .316894E+00, .244064E+00, .186232E+00, + .140829E+00, .105578E+00, .785070E-01, .579203E-01, + .424047E-01, .308048E-01, .221875E-01, .158631E-01, + .112123E-01, .784145E-02, .542117E-02, .369889E-02, + .248730E-02, .164446E-02, .106651E-02, .675725E-03, + .416671E-03, .247832E-03, .141511E-03, .760143E-04, + .381363E-04, .194586E-04, .126721E-04, .876175E-05, + .612176E-05, .426714E-05, .296584E-05, .199299E-05, + .128780E-05, .774016E-06, .418386E-06, .187357E-06, + .570841E-07, .504919E-08, .000000E+00, .485342E+06, + .372585E+06, .281817E+06, .213039E+06, .161003E+06, + .121605E+06, .918229E+05, .692933E+05, .522769E+05, + .394160E+05, .297108E+05, .223824E+05, .168570E+05 / DATA (UPDI(I),I=4473,4524) / + .126888E+05, .954884E+04, .718232E+04, .540123E+04, + .406007E+04, .305158E+04, .229277E+04, .172259E+04, + .129390E+04, .972017E+03, .730174E+03, .548673E+03, + .412324E+03, .310052E+03, .232347E+03, .174991E+03, + .131909E+03, .995652E+02, .752514E+02, .569777E+02, + .432552E+02, .328952E+02, .250808E+02, .191825E+02, + .147176E+02, .113332E+02, .875750E+01, .679574E+01, + .529254E+01, .413785E+01, .324617E+01, .255499E+01, + .201584E+01, .159499E+01, .126094E+01, .997830E+00, + .786838E+00, .618727E+00, .483904E+00, .375887E+00, + .289646E+00, .221275E+00, .167557E+00, .125797E+00, + .936698E-01, .692023E-01, .507393E-01, .369241E-01, + .266666E-01, .190958E-01, .135757E-01, .954192E-02 / DATA (UPDI(I),I=4525,4576) / + .663695E-02, .456424E-02, .309869E-02, .207417E-02, + .136601E-02, .883449E-03, .559253E-03, .345621E-03, + .207242E-03, .120618E-03, .675054E-04, .369483E-04, + .216472E-04, .151131E-04, .109536E-04, .796675E-05, + .574023E-05, .406289E-05, .276227E-05, .178033E-05, + .105534E-05, .553080E-06, .235326E-06, .665974E-07, + .609320E-08, .000000E+00, .679983E+06, .519356E+06, + .390508E+06, .293439E+06, .220422E+06, .165463E+06, + .124163E+06, .931079E+05, .697942E+05, .522826E+05, + .391498E+05, .292962E+05, .219143E+05, .163818E+05, + .122415E+05, .914204E+04, .682509E+04, .509254E+04, + .379882E+04, .283238E+04, .211142E+04, .157337E+04, + .117240E+04, .873449E+03, .650819E+03, .484894E+03 / DATA (UPDI(I),I=4577,4628) / + .361449E+03, .268432E+03, .200349E+03, .149646E+03, + .111907E+03, .837882E+02, .628408E+02, .472535E+02, + .355916E+02, .268768E+02, .203591E+02, .154716E+02, + .118010E+02, .903343E+01, .694475E+01, .535900E+01, + .415172E+01, .322777E+01, .251778E+01, .196877E+01, + .154390E+01, .120958E+01, .948610E+00, .741272E+00, + .577666E+00, .447794E+00, .344834E+00, .263510E+00, + .199712E+00, .150095E+00, .111886E+00, .827497E-01, + .607398E-01, .442575E-01, .320121E-01, .229824E-01, + .163613E-01, .115653E-01, .808301E-02, .559134E-02, + .382483E-02, .258382E-02, .172180E-02, .112978E-02, + .728919E-03, .461318E-03, .286021E-03, .173128E-03, + .102822E-03, .598567E-04, .351579E-04, .224584E-04 / DATA (UPDI(I),I=4629,4680) / + .162672E-04, .120511E-04, .890381E-05, .648210E-05, + .459885E-05, .312268E-05, .199690E-05, .116843E-05, + .599727E-06, .247724E-06, .675488E-07, .628859E-08, + .000000E+00, .928832E+06, .706032E+06, .527902E+06, + .394442E+06, .294597E+06, .219864E+06, .164017E+06, + .122263E+06, .910966E+05, .678234E+05, .504719E+05, + .375311E+05, .278948E+05, .207172E+05, .153791E+05, + .114083E+05, .845888E+04, .626785E+04, .464255E+04, + .343660E+04, .254308E+04, .188092E+04, .139093E+04, + .102824E+04, .760110E+03, .561762E+03, .415323E+03, + .305839E+03, .226336E+03, .167604E+03, .124243E+03, + .922037E+02, .685339E+02, .510716E+02, .381182E+02, + .285231E+02, .214093E+02, .161219E+02, .121856E+02 / DATA (UPDI(I),I=4681,4732) / + .924408E+01, .704332E+01, .538706E+01, .413683E+01, + .318819E+01, .246531E+01, .191101E+01, .148561E+01, + .115371E+01, .896864E+00, .694650E+00, .536585E+00, + .412352E+00, .314858E+00, .238645E+00, .179458E+00, + .133875E+00, .990928E-01, .727963E-01, .530892E-01, + .384416E-01, .276363E-01, .197229E-01, .139582E-01, + .981009E-02, .681750E-02, .469014E-02, .319157E-02, + .214561E-02, .142372E-02, .931110E-03, .599643E-03, + .379729E-03, .236480E-03, .144695E-03, .877600E-04, + .530080E-04, .329448E-04, .222525E-04, .164427E-04, + .122960E-04, .912265E-05, .664037E-05, .468476E-05, + .315385E-05, .199046E-05, .114472E-05, .574021E-06, + .229958E-06, .605570E-07, .571895E-08, .000000E+00 / DATA (UPDI(I),I=4733,4784) / + .124167E+07, .939538E+06, .698741E+06, .519277E+06, + .385713E+06, .286277E+06, .212364E+06, .157406E+06, + .116607E+06, .863112E+05, .638503E+05, .471951E+05, + .348640E+05, .257334E+05, .189829E+05, .139920E+05, + .103074E+05, .758728E+04, .558217E+04, .410398E+04, + .301585E+04, .221483E+04, .162606E+04, .119323E+04, + .875485E+03, .642092E+03, .471034E+03, .344090E+03, + .252600E+03, .185530E+03, .136392E+03, .100372E+03, + .739714E+02, .546527E+02, .404386E+02, .299970E+02, + .223196E+02, .166614E+02, .124841E+02, .938881E+01, + .709218E+01, .537819E+01, .409494E+01, .312924E+01, + .239929E+01, .184410E+01, .142146E+01, .109441E+01, + .843475E+00, .647651E+00, .495985E+00, .377923E+00 / DATA (UPDI(I),I=4785,4836) / + .286180E+00, .215175E+00, .160570E+00, .118910E+00, + .874022E-01, .637796E-01, .462142E-01, .332547E-01, + .237617E-01, .168566E-01, .118595E-01, .828731E-02, + .572687E-02, .391854E-02, .265291E-02, .177524E-02, + .117334E-02, .765220E-03, .492271E-03, .312239E-03, + .195571E-03, .121131E-03, .750660E-04, .469112E-04, + .304988E-04, .213765E-04, .159652E-04, .119729E-04, + .886934E-05, .642317E-05, .448971E-05, .298689E-05, + .185592E-05, .104694E-05, .512182E-06, .198841E-06, + .505881E-07, .484219E-08, .000000E+00, .162873E+07, + .122705E+07, .907871E+06, .671197E+06, .495939E+06, + .366133E+06, .270140E+06, .199141E+06, .146709E+06, + .107986E+06, .794316E+05, .583748E+05, .428711E+05 / DATA (UPDI(I),I=4837,4888) / + .314563E+05, .230651E+05, .168972E+05, .123703E+05, + .904845E+04, .661450E+04, .483125E+04, .352673E+04, + .257254E+04, .187568E+04, .136678E+04, .995659E+03, + .724913E+03, .527862E+03, .382662E+03, .278767E+03, + .203159E+03, .148173E+03, .108171E+03, .790727E+02, + .579453E+02, .425208E+02, .312799E+02, .230803E+02, + .170857E+02, .126953E+02, .946831E+01, .709301E+01, + .533447E+01, .402821E+01, .305298E+01, .232156E+01, + .176961E+01, .135274E+01, .103275E+01, .789267E+00, + .600893E+00, .456302E+00, .344799E+00, .258977E+00, + .193193E+00, .143079E+00, .105193E+00, .767859E-01, + .556610E-01, .400730E-01, .286560E-01, .203512E-01, + .143511E-01, .100376E-01, .697428E-02, .479277E-02 / DATA (UPDI(I),I=4889,4940) / + .326207E-02, .219762E-02, .146420E-02, .964391E-03, + .627576E-03, .403630E-03, .256718E-03, .161942E-03, + .101653E-03, .643686E-04, .414835E-04, .279433E-04, + .200715E-04, .150646E-04, .112845E-04, .831888E-05, + .597723E-05, .413112E-05, .271104E-05, .165627E-05, + .915454E-06, .436626E-06, .164242E-06, .404052E-07, + .391806E-08, .000000E+00, .210042E+07, .157577E+07, + .116009E+07, .853366E+06, .627341E+06, .460768E+06, + .338196E+06, .248000E+06, .181731E+06, .133043E+06, + .973271E+05, .711303E+05, .519450E+05, .378971E+05, + .276268E+05, .201202E+05, .146420E+05, .106452E+05, + .773375E+04, .561339E+04, .407156E+04, .295071E+04, + .213722E+04, .154690E+04, .111916E+04, .809147E+03 / DATA (UPDI(I),I=4941,4992) / + .585031E+03, .421008E+03, .304457E+03, .220233E+03, + .159413E+03, .115487E+03, .837654E+02, .609048E+02, + .443390E+02, .323581E+02, .236848E+02, .173928E+02, + .128199E+02, .948459E+01, .704836E+01, .525856E+01, + .393916E+01, .296162E+01, .223402E+01, .168912E+01, + .128074E+01, .969727E+00, .734992E+00, .554919E+00, + .417910E+00, .313214E+00, .233378E+00, .172752E+00, + .126990E+00, .926995E-01, .672037E-01, .483942E-01, + .346191E-01, .246023E-01, .173664E-01, .121737E-01, + .846512E-02, .584868E-02, .399741E-02, .270681E-02, + .181505E-02, .120450E-02, .790991E-03, .513981E-03, + .330807E-03, .211227E-03, .134364E-03, .855543E-04, + .553261E-04, .366365E-04, .253634E-04, .185092E-04 / DATA (UPDI(I),I=4993,5044) / + .139061E-04, .103769E-04, .759628E-05, .540565E-05, + .368949E-05, .238574E-05, .143194E-05, .774969E-06, + .360221E-06, .131313E-06, .312746E-07, .307127E-08, + .000000E+00, .266696E+07, .199269E+07, .145995E+07, + .106873E+07, .781798E+06, .571360E+06, .417257E+06, + .304419E+06, .221922E+06, .161618E+06, .117605E+06, + .854898E+05, .620917E+05, .450503E+05, .326577E+05, + .236492E+05, .171109E+05, .123675E+05, .893155E+04, + .644365E+04, .464506E+04, .334533E+04, .240765E+04, + .173138E+04, .124439E+04, .893650E+03, .641738E+03, + .458579E+03, .329296E+03, .236503E+03, .169950E+03, + .122217E+03, .879875E+02, .634952E+02, .458739E+02, + .332225E+02, .241306E+02, .175835E+02, .128603E+02 / DATA (UPDI(I),I=5045,5096) / + .944083E+01, .696154E+01, .515355E+01, .383051E+01, + .285750E+01, .213858E+01, .160417E+01, .120666E+01, + .906245E+00, .681317E+00, .510193E+00, .381110E+00, + .283345E+00, .209469E+00, .153877E+00, .112287E+00, + .813898E-01, .586051E-01, .419265E-01, .298024E-01, + .210486E-01, .147684E-01, .102917E-01, .711534E-02, + .488900E-02, .332384E-02, .223968E-02, .149529E-02, + .988791E-03, .647791E-03, .420645E-03, .271199E-03, + .174045E-03, .111762E-03, .722190E-04, .476424E-04, + .322911E-04, .228203E-04, .168135E-04, .126098E-04, + .935557E-05, .679056E-05, .478020E-05, .321919E-05, + .204961E-05, .120795E-05, .639849E-06, .289800E-06, + .102413E-06, .236453E-07, .235091E-08, .000000E+00 / DATA (UPDI(I),I=5097,5148) / + .704499E+04, .800973E+04, .659413E+04, .542856E+04, + .446895E+04, .367891E+04, .302849E+04, .249301E+04, + .205217E+04, .168925E+04, .139048E+04, .114452E+04, + .942038E+03, .775359E+03, .638151E+03, .525208E+03, + .432239E+03, .355716E+03, .292730E+03, .240889E+03, + .198223E+03, .163109E+03, .134212E+03, .110433E+03, + .908651E+02, .747645E+02, .615174E+02, .504786E+02, + .415405E+02, .341868E+02, .281368E+02, .231594E+02, + .190645E+02, .157044E+02, .129322E+02, .106516E+02, + .877459E+01, .722899E+01, .595525E+01, .490403E+01, + .403664E+01, .331869E+01, .272377E+01, .223005E+01, + .181987E+01, .147900E+01, .119699E+01, .962079E+00, + .769901E+00, .612204E+00, .485739E+00, .385504E+00 / DATA (UPDI(I),I=5149,5200) / + .307358E+00, .247212E+00, .201102E+00, .165421E+00, + .137187E+00, .114183E+00, .949227E-01, .784992E-01, + .643861E-01, .522730E-01, .419517E-01, .332890E-01, + .260349E-01, .200839E-01, .152717E-01, .114377E-01, + .842935E-02, .610619E-02, .434193E-02, .302575E-02, + .206193E-02, .137021E-02, .889169E-03, .558070E-03, + .338407E-03, .197262E-03, .109843E-03, .579681E-04, + .286985E-04, .131692E-04, .546968E-05, .201933E-05, + .635991E-06, .161246E-06, .298572E-07, .336378E-08, + .153015E-09, .756977E-12, .000000E+00, .182144E+05, + .242528E+05, .193388E+05, .154207E+05, .123005E+05, + .981197E+04, .782957E+04, .624797E+04, .498763E+04, + .398174E+04, .317990E+04, .253970E+04, .202919E+04 / DATA (UPDI(I),I=5201,5252) / + .162142E+04, .129613E+04, .103620E+04, .828773E+03, + .662941E+03, .530549E+03, .424655E+03, .340079E+03, + .272395E+03, .218310E+03, .175002E+03, .140374E+03, + .112634E+03, .904338E+02, .724165E+02, .582178E+02, + .468215E+02, .376890E+02, .303513E+02, .244651E+02, + .197423E+02, .159387E+02, .128756E+02, .104116E+02, + .842318E+01, .681973E+01, .552146E+01, .447211E+01, + .361928E+01, .292657E+01, .236183E+01, .190168E+01, + .152590E+01, .122087E+01, .971096E+00, .770360E+00, + .608145E+00, .479911E+00, .379249E+00, .301273E+00, + .241243E+00, .195077E+00, .159113E+00, .130582E+00, + .107360E+00, .880990E-01, .718885E-01, .582038E-01, + .466612E-01, .370030E-01, .290243E-01, .224530E-01 / DATA (UPDI(I),I=5253,5304) / + .171366E-01, .128965E-01, .955752E-02, .696787E-02, + .498793E-02, .349940E-02, .239781E-02, .159941E-02, + .103077E-02, .638675E-03, .372099E-03, .197835E-03, + .886702E-04, .237543E-04, .000000E+00, .000000E+00, + .000000E+00, .173472E-17, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .169407E-20, .000000E+00, .579199E+05, .459784E+05, + .361395E+05, .284032E+05, .223278E+05, .175507E+05, + .137989E+05, .108485E+05, .853107E+04, .670845E+04, + .527672E+04, .415048E+04, .326566E+04, .256949E+04, + .202245E+04, .159195E+04, .125359E+04, .987236E+03, + .777835E+03, .612935E+03, .483251E+03, .381082E+03, + .300700E+03, .237340E+03, .187463E+03, .148126E+03 / DATA (UPDI(I),I=5305,5356) / + .117132E+03, .923723E+02, .731603E+02, .579776E+02, + .459949E+02, .365132E+02, .290203E+02, .230974E+02, + .183966E+02, .146656E+02, .117070E+02, .935266E+01, + .748018E+01, .598462E+01, .479185E+01, .383518E+01, + .306821E+01, .245093E+01, .195438E+01, .155394E+01, + .123294E+01, .973263E+00, .766992E+00, .602084E+00, + .472918E+00, .372235E+00, .294571E+00, .234858E+00, + .188891E+00, .153028E+00, .124584E+00, .101515E+00, + .825192E-01, .666915E-01, .534864E-01, .424844E-01, + .333885E-01, .259610E-01, .199118E-01, .150687E-01, + .112445E-01, .826139E-02, .596888E-02, .423155E-02, + .293687E-02, .198717E-02, .130536E-02, .824409E-03, + .496448E-03, .276472E-03, .135364E-03, .492021E-04 / DATA (UPDI(I),I=5357,5408) / + .116901E-05, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .000000E+00, .000000E+00, .000000E+00, + .000000E+00, .976579E+05, .768295E+05, .597757E+05, + .464964E+05, .361711E+05, .281328E+05, .218836E+05, + .170192E+05, .132380E+05, .102951E+05, .800780E+04, + .622776E+04, .484438E+04, .376786E+04, .293128E+04, + .228029E+04, .177439E+04, .138072E+04, .107478E+04, + .836672E+03, .651603E+03, .507535E+03, .395537E+03, + .308326E+03, .240503E+03, .187664E+03, .146545E+03, + .114106E+03, .892487E+02, .698503E+02, .547296E+02, + .429152E+02, .336939E+02, .264958E+02, .208529E+02, + .164297E+02, .129646E+02, .102408E+02, .810035E+01 / DATA (UPDI(I),I=5409,5460) / + .641119E+01, .507975E+01, .402440E+01, .318803E+01, + .252268E+01, .199354E+01, .157164E+01, .123723E+01, + .969624E+00, .759272E+00, .592724E+00, .463349E+00, + .363159E+00, .286195E+00, .227134E+00, .181679E+00, + .146223E+00, .118148E+00, .954784E-01, .769429E-01, + .616439E-01, .490146E-01, .386088E-01, .300987E-01, + .232234E-01, .176812E-01, .132872E-01, .985005E-02, + .719262E-02, .516805E-02, .364637E-02, .252149E-02, + .170278E-02, .111931E-02, .710540E-03, .433555E-03, + .248703E-03, .130679E-03, .585857E-04, .188457E-04, + .467333E-05, .284452E-05, .169239E-05, .102208E-05, + .583509E-06, .330196E-06, .178375E-06, .924688E-07, + .422202E-07, .143717E-07, .986748E-09, .000000E+00 / DATA (UPDI(I),I=5461,5512) / + .151802E+06, .118589E+06, .915267E+05, .706153E+05, + .544825E+05, .420214E+05, .324112E+05, .249908E+05, + .192701E+05, .148544E+05, .114512E+05, .882525E+04, + .680205E+04, .524140E+04, .403931E+04, .311230E+04, + .239845E+04, .184808E+04, .142436E+04, .109770E+04, + .846234E+03, .652380E+03, .503155E+03, .388117E+03, + .299547E+03, .231247E+03, .178644E+03, .137581E+03, + .106445E+03, .824055E+02, .638652E+02, .495354E+02, + .384701E+02, .299267E+02, .233009E+02, .181640E+02, + .141829E+02, .110877E+02, .868126E+01, .680273E+01, + .533766E+01, .418882E+01, .328788E+01, .257876E+01, + .202067E+01, .158032E+01, .123484E+01, .961132E+00, + .748028E+00, .580787E+00, .451852E+00, .352604E+00 / DATA (UPDI(I),I=5513,5564) / + .276670E+00, .218535E+00, .173839E+00, .139021E+00, + .111520E+00, .894231E-01, .714821E-01, .568043E-01, + .448048E-01, .350180E-01, .270927E-01, .207524E-01, + .156894E-01, .117114E-01, .862660E-02, .626151E-02, + .447421E-02, .314133E-02, .216351E-02, .145714E-02, + .957273E-03, .609398E-03, .375152E-03, .219656E-03, + .120829E-03, .605855E-04, .275852E-04, .147153E-04, + .109819E-04, .810090E-05, .589205E-05, .411629E-05, + .274180E-05, .168947E-05, .930209E-06, .424438E-06, + .132184E-06, .117191E-07, .000000E+00, .158744E+06, + .173458E+06, .132968E+06, .101884E+06, .780609E+05, + .597824E+05, .457809E+05, .350437E+05, .268231E+05, + .205224E+05, .157010E+05, .120075E+05, .918268E+04 / DATA (UPDI(I),I=5565,5616) / + .701984E+04, .536644E+04, .410116E+04, .313435E+04, + .239484E+04, .183003E+04, .139815E+04, .106839E+04, + .816318E+03, .623912E+03, .476867E+03, .364634E+03, + .278851E+03, .213376E+03, .162735E+03, .124689E+03, + .955916E+02, .733593E+02, .563407E+02, .433240E+02, + .333719E+02, .257280E+02, .198603E+02, .153570E+02, + .118906E+02, .922178E+01, .715912E+01, .556610E+01, + .432927E+01, .336873E+01, .262013E+01, .203665E+01, + .158072E+01, .122640E+01, .948298E+00, .733676E+00, + .566616E+00, .438722E+00, .340835E+00, .266238E+00, + .209277E+00, .165557E+00, .131569E+00, .104811E+00, + .834218E-01, .661752E-01, .521836E-01, .408480E-01, + .316895E-01, .243407E-01, .185153E-01, .139038E-01 / DATA (UPDI(I),I=5617,5668) / + .103115E-01, .754846E-02, .544685E-02, .387084E-02, + .270431E-02, .185475E-02, .124542E-02, .817168E-03, + .521046E-03, .322859E-03, .192001E-03, .109181E-03, + .588393E-04, .312957E-04, .196465E-04, .149027E-04, + .111201E-04, .811326E-05, .567017E-05, .375352E-05, + .228750E-05, .123690E-05, .549142E-06, .164594E-06, + .148649E-07, .000000E+00, .335763E+06, .259173E+06, + .197284E+06, .150097E+06, .114175E+06, .868054E+05, + .659843E+05, .501312E+05, .380798E+05, .289106E+05, + .219452E+05, .166498E+05, .126299E+05, .957601E+04, + .725944E+04, .550090E+04, .416786E+04, .315667E+04, + .239069E+04, .180999E+04, .137036E+04, .103726E+04, + .785228E+03, .594373E+03, .450020E+03, .340716E+03 / DATA (UPDI(I),I=5669,5720) / + .258078E+03, .194785E+03, .147697E+03, .112046E+03, + .850750E+02, .646430E+02, .491738E+02, .374717E+02, + .285767E+02, .218222E+02, .166929E+02, .127877E+02, + .981298E+01, .753910E+01, .580170E+01, .446757E+01, + .344252E+01, .265241E+01, .204312E+01, .157216E+01, + .120998E+01, .928623E+00, .713590E+00, .547717E+00, + .421703E+00, .325870E+00, .253169E+00, .197846E+00, + .155491E+00, .122673E+00, .969464E-01, .765146E-01, + .601704E-01, .470360E-01, .364997E-01, .280750E-01, + .213818E-01, .161294E-01, .120109E-01, .883277E-02, + .641031E-02, .458430E-02, .322693E-02, .223117E-02, + .151242E-02, .100179E-02, .646438E-03, .403456E-03, + .242943E-03, .138652E-03, .740359E-04, .360457E-04 / DATA (UPDI(I),I=5721,5772) / + .163846E-04, .876023E-05, .611939E-05, .426555E-05, + .296483E-05, .199238E-05, .128746E-05, .773846E-06, + .418314E-06, .187333E-06, .570786E-07, .504862E-08, + .000000E+00, .485288E+06, .372535E+06, .281772E+06, + .212998E+06, .160966E+06, .121571E+06, .917924E+05, + .692656E+05, .522518E+05, .393933E+05, .296902E+05, + .223638E+05, .168402E+05, .126735E+05, .953508E+04, + .716990E+04, .539002E+04, .404997E+04, .304248E+04, + .228457E+04, .171521E+04, .128727E+04, .966062E+03, + .724830E+03, .543881E+03, .408028E+03, .306207E+03, + .228913E+03, .171921E+03, .129166E+03, .971153E+02, + .730646E+02, .550258E+02, .415126E+02, .313391E+02, + .236907E+02, .179394E+02, .136049E+02, .103360E+02 / DATA (UPDI(I),I=5773,5824) / + .786271E+01, .599189E+01, .457009E+01, .348866E+01, + .266368E+01, .203390E+01, .155206E+01, .118517E+01, + .902915E+00, .689176E+00, .525708E+00, .402434E+00, + .309269E+00, .238923E+00, .185597E+00, .144900E+00, + .113489E+00, .889856E-01, .696550E-01, .543142E-01, + .420995E-01, .323946E-01, .247123E-01, .186680E-01, + .139714E-01, .103230E-01, .753400E-02, .542722E-02, + .385339E-02, .269365E-02, .185027E-02, .124670E-02, + .821605E-03, .528228E-03, .329328E-03, .199036E-03, + .115051E-03, .633793E-04, .332126E-04, .175681E-04, + .109521E-04, .796461E-05, .573881E-05, .406200E-05, + .276174E-05, .178004E-05, .105520E-05, .553021E-06, + .235307E-06, .665932E-07, .609275E-08, .000000E+00 / DATA (UPDI(I),I=5825,5876) / + .679923E+06, .519301E+06, .390458E+06, .293394E+06, + .220381E+06, .165426E+06, .124129E+06, .930773E+05, + .697665E+05, .522576E+05, .391272E+05, .292757E+05, + .218958E+05, .163651E+05, .122265E+05, .912847E+04, + .681287E+04, .508154E+04, .378893E+04, .282349E+04, + .210344E+04, .156622E+04, .116599E+04, .867709E+03, + .645685E+03, .480304E+03, .357350E+03, .264781E+03, + .197094E+03, .146747E+03, .109326E+03, .814923E+02, + .607986E+02, .454367E+02, .339757E+02, .254392E+02, + .190794E+02, .143317E+02, .107847E+02, .812684E+01, + .613551E+01, .463681E+01, .350780E+01, .265493E+01, + .201012E+01, .152153E+01, .115300E+01, .872106E+00, + .661254E+00, .501302E+00, .381532E+00, .291562E+00 / DATA (UPDI(I),I=5877,5928) / + .223953E+00, .172909E+00, .134097E+00, .104272E+00, + .811279E-01, .629941E-01, .487165E-01, .374497E-01, + .285808E-01, .216276E-01, .162080E-01, .120367E-01, + .882569E-02, .639333E-02, .457208E-02, .322347E-02, + .223818E-02, .152779E-02, .102365E-02, .671572E-03, + .430563E-03, .268496E-03, .163162E-03, .957392E-04, + .544830E-04, .304799E-04, .178830E-04, .120496E-04, + .890196E-05, .648089E-05, .459809E-05, .312224E-05, + .199667E-05, .116831E-05, .599681E-06, .247709E-06, + .675456E-07, .628826E-08, .000000E+00, .928764E+06, + .705971E+06, .527847E+06, .394391E+06, .294551E+06, + .219823E+06, .163979E+06, .122229E+06, .910660E+05, + .677959E+05, .504471E+05, .375087E+05, .278745E+05 / DATA (UPDI(I),I=5929,5980) / + .206989E+05, .153627E+05, .113935E+05, .844561E+04, + .625593E+04, .463185E+04, .342701E+04, .253449E+04, + .187323E+04, .138405E+04, .102209E+04, .754628E+03, + .556874E+03, .410970E+03, .301973E+03, .222899E+03, + .164552E+03, .121534E+03, .898019E+02, .664049E+02, + .491847E+02, .364466E+02, .270422E+02, .200969E+02, + .149587E+02, .111542E+02, .832945E+01, .623221E+01, + .466837E+01, .350105E+01, .262746E+01, .197304E+01, + .148174E+01, .111451E+01, .837062E+00, .630541E+00, + .475089E+00, .359482E+00, .273150E+00, .208589E+00, + .160055E+00, .123302E+00, .951919E-01, .735001E-01, + .566216E-01, .434364E-01, .331221E-01, .250758E-01, + .188260E-01, .139987E-01, .103173E-01, .750849E-02 / DATA (UPDI(I),I=5981,6032) / + .539957E-02, .383406E-02, .268475E-02, .185211E-02, + .125679E-02, .837773E-03, .547537E-03, .350411E-03, + .218860E-03, .133962E-03, .799298E-04, .469778E-04, + .277894E-04, .175029E-04, .122946E-04, .912109E-05, + .663936E-05, .468414E-05, .315350E-05, .199027E-05, + .114464E-05, .573986E-06, .229948E-06, .605548E-07, + .571870E-08, .000000E+00, .124159E+07, .939470E+06, + .698679E+06, .519221E+06, .385663E+06, .286232E+06, + .212323E+06, .157369E+06, .116573E+06, .862810E+05, + .638231E+05, .471706E+05, .348420E+05, .257136E+05, + .189651E+05, .139759E+05, .102930E+05, .757440E+04, + .557063E+04, .409365E+04, .300663E+04, .220659E+04, + .161871E+04, .118668E+04, .869653E+03, .636905E+03 / DATA (UPDI(I),I=6033,6084) / + .466427E+03, .340009E+03, .248983E+03, .182327E+03, + .133559E+03, .978681E+02, .717598E+02, .526999E+02, + .387154E+02, .284770E+02, .209790E+02, .154791E+02, + .114416E+02, .846984E+01, .628261E+01, .466605E+01, + .346997E+01, .258283E+01, .192412E+01, .143396E+01, + .107075E+01, .798652E+00, .597738E+00, .447630E+00, + .336733E+00, .254398E+00, .193125E+00, .147270E+00, + .112696E+00, .863856E-01, .662003E-01, .506035E-01, + .385140E-01, .291372E-01, .218862E-01, .163046E-01, + .120315E-01, .880172E-02, .635865E-02, .454019E-02, + .320165E-02, .222722E-02, .152706E-02, .103055E-02, + .683860E-03, .445605E-03, .284986E-03, .178542E-03, + .110264E-03, .669892E-04, .406209E-04, .251800E-04 / DATA (UPDI(I),I=6085,6136) / + .166588E-04, .119717E-04, .886805E-05, .642235E-05, + .448922E-05, .298661E-05, .185577E-05, .104687E-05, + .512156E-06, .198833E-06, .505865E-07, .484201E-08, + .000000E+00, .162865E+07, .122697E+07, .907803E+06, + .671136E+06, .495884E+06, .366083E+06, .270095E+06, + .199100E+06, .146673E+06, .107953E+06, .794020E+05, + .583482E+05, .428471E+05, .314348E+05, .230458E+05, + .168799E+05, .123548E+05, .903459E+04, .660210E+04, + .482018E+04, .351686E+04, .256374E+04, .186785E+04, + .135982E+04, .989475E+03, .719426E+03, .523001E+03, + .378368E+03, .274972E+03, .199810E+03, .145220E+03, + .105569E+03, .767829E+02, .559311E+02, .407507E+02, + .297254E+02, .217157E+02, .158885E+02, .116455E+02 / DATA (UPDI(I),I=6137,6188) / + .854866E+01, .628829E+01, .463181E+01, .341653E+01, + .252285E+01, .186493E+01, .137950E+01, .102279E+01, + .757722E+00, .563509E+00, .419445E+00, .313695E+00, + .235625E+00, .177813E+00, .134747E+00, .102427E+00, + .779595E-01, .593009E-01, .449845E-01, .339730E-01, + .255031E-01, .190095E-01, .140545E-01, .102937E-01, + .747571E-02, .536211E-02, .380215E-02, .266337E-02, + .184114E-02, .125509E-02, .842795E-03, .557120E-03, + .362262E-03, .231808E-03, .145888E-03, .910445E-04, + .563675E-04, .351976E-04, .226719E-04, .155170E-04, + .112835E-04, .831784E-05, .597657E-05, .413073E-05, + .271082E-05, .165616E-05, .915404E-06, .436607E-06, + .164236E-06, .404041E-07, .391794E-08, .000000E+00 / DATA (UPDI(I),I=6189,6240) / + .210033E+07, .157569E+07, .116001E+07, .853299E+06, + .627280E+06, .460713E+06, .338147E+06, .247956E+06, + .181691E+06, .133007E+06, .972949E+05, .711013E+05, + .519190E+05, .378738E+05, .276060E+05, .201015E+05, + .146253E+05, .106303E+05, .772047E+04, .560155E+04, + .406102E+04, .294134E+04, .212890E+04, .153952E+04, + .111262E+04, .803359E+03, .579917E+03, .416504E+03, + .300488E+03, .216740E+03, .156343E+03, .112791E+03, + .814022E+02, .588340E+02, .425269E+02, .307737E+02, + .223008E+02, .161849E+02, .117668E+02, .856784E+01, + .625167E+01, .456809E+01, .334298E+01, .244950E+01, + .179710E+01, .131969E+01, .971671E+00, .715077E+00, + .528472E+00, .391006E+00, .290726E+00, .217107E+00 / DATA (UPDI(I),I=6241,6292) / + .162862E+00, .122644E+00, .926074E-01, .699921E-01, + .528512E-01, .397914E-01, .298230E-01, .222181E-01, + .164362E-01, .120618E-01, .876965E-02, .632366E-02, + .450419E-02, .317239E-02, .220801E-02, .151729E-02, + .102881E-02, .687800E-03, .453256E-03, .294397E-03, + .188717E-03, .119477E-03, .754387E-04, .476047E-04, + .305304E-04, .202787E-04, .142002E-04, .103760E-04, + .759545E-05, .540513E-05, .368919E-05, .238557E-05, + .143186E-05, .774932E-06, .360207E-06, .131309E-06, + .312739E-07, .307119E-08, .000000E+00, .266686E+07, + .199260E+07, .145987E+07, .106866E+07, .781731E+06, + .571301E+06, .417203E+06, .304371E+06, .221878E+06, + .161579E+06, .117570E+06, .854585E+05, .620637E+05 / DATA (UPDI(I),I=6293,6344) / + .450252E+05, .326353E+05, .236292E+05, .170930E+05, + .123515E+05, .891736E+04, .643102E+04, .463384E+04, + .333538E+04, .239883E+04, .172357E+04, .123749E+04, + .887563E+03, .636374E+03, .453867E+03, .325157E+03, + .232871E+03, .166768E+03, .119434E+03, .855560E+02, + .613731E+02, .440247E+02, .316131E+02, .227317E+02, + .163692E+02, .118078E+02, .853045E+01, .617586E+01, + .447780E+01, .325184E+01, .236485E+01, .172231E+01, + .125581E+01, .918381E+00, .671462E+00, .493183E+00, + .362725E+00, .268135E+00, .199073E+00, .148440E+00, + .111083E+00, .833221E-01, .625366E-01, .468804E-01, + .350355E-01, .260626E-01, .192720E-01, .141514E-01, + .103097E-01, .744209E-02, .532916E-02, .377013E-02 / DATA (UPDI(I),I=6345,6396) / + .263816E-02, .182497E-02, .124707E-02, .841489E-03, + .560432E-03, .368476E-03, .239308E-03, .153860E-03, + .981122E-04, .627284E-04, .403265E-04, .264789E-04, + .180124E-04, .128003E-04, .935484E-05, .678991E-05, + .477980E-05, .321895E-05, .204949E-05, .120788E-05, + .639822E-06, .289790E-06, .102410E-06, .236448E-07, + .235085E-08, .000000E+00, .254421E+05, .215991E+05, + .182692E+05, .154524E+05, .130698E+05, .110545E+05, + .934988E+04, .790805E+04, .668849E+04, .565694E+04, + .478443E+04, .404644E+04, .342223E+04, .289426E+04, + .244771E+04, .207001E+04, .175056E+04, .148038E+04, + .125186E+04, .105860E+04, .895154E+03, .756927E+03, + .640032E+03, .541181E+03, .457593E+03, .386915E+03 / DATA (UPDI(I),I=6397,6448) / + .327156E+03, .275976E+03, .233385E+03, .197380E+03, + .166946E+03, .141226E+03, .119491E+03, .101178E+03, + .856686E+02, .725754E+02, .615236E+02, .521952E+02, + .443210E+02, .376700E+02, .320581E+02, .273121E+02, + .232966E+02, .198951E+02, .170097E+02, .145585E+02, + .124798E+02, .106965E+02, .918253E+01, .787899E+01, + .676593E+01, .581022E+01, .498843E+01, .428087E+01, + .367098E+01, .314483E+01, .269066E+01, .229852E+01, + .195994E+01, .166769E+01, .141557E+01, .119826E+01, + .101117E+01, .850998E+00, .712683E+00, .594282E+00, + .493181E+00, .407106E+00, .334072E+00, .272345E+00, + .220406E+00, .176926E+00, .140715E+00, .110730E+00, + .863076E-01, .662902E-01, .501680E-01, .373252E-01 / DATA (UPDI(I),I=6449,6500) / + .272252E-01, .194014E-01, .134484E-01, .902173E-02, + .579546E-02, .353991E-02, .201989E-02, .105073E-02, + .478351E-03, .176570E-03, .445277E-04, .443931E-05, + .000000E+00, .486943E+06, .388314E+06, .306750E+06, + .242250E+06, .191359E+06, .151118E+06, .119370E+06, + .942675E+05, .744647E+05, .588067E+05, .464554E+05, + .366892E+05, .289857E+05, .228944E+05, .180897E+05, + .142902E+05, .112933E+05, .892315E+04, .705361E+04, + .557486E+04, .440831E+04, .348545E+04, .275737E+04, + .218130E+04, .172672E+04, .136699E+04, .108301E+04, + .855482E+03, .678685E+03, .538649E+03, .428050E+03, + .340399E+03, .271137E+03, .216346E+03, .172896E+03, + .138411E+03, .111106E+03, .893924E+02, .721557E+02 / DATA (UPDI(I),I=6501,6552) / + .584004E+02, .474475E+02, .386651E+02, .316251E+02, + .259480E+02, .213645E+02, .176414E+02, .146222E+02, + .121351E+02, .101064E+02, .842303E+01, .703642E+01, + .588485E+01, .492614E+01, .412588E+01, .345816E+01, + .289606E+01, .242378E+01, .202649E+01, .169196E+01, + .141025E+01, .117291E+01, .973161E+00, .804938E+00, + .664184E+00, .545253E+00, .445707E+00, .362519E+00, + .293261E+00, .235759E+00, .188240E+00, .149126E+00, + .117133E+00, .911058E-01, .700537E-01, .533177E-01, + .399455E-01, .294488E-01, .213166E-01, .150994E-01, + .104301E-01, .698819E-02, .450869E-02, .272570E-02, + .160258E-02, .873673E-03, .430719E-03, .184019E-03, + .623172E-04, .142838E-04, .145691E-05, .000000E+00 / DATA (UPDI(I),I=6553,6604) / + .116035E+07, .915645E+06, .714745E+06, .557651E+06, + .435107E+06, .339324E+06, .264639E+06, .206287E+06, + .160809E+06, .125292E+06, .976241E+05, .760254E+05, + .592079E+05, .460856E+05, .358734E+05, .279088E+05, + .217138E+05, .168846E+05, .131305E+05, .102055E+05, + .793293E+04, .616316E+04, .478898E+04, .371947E+04, + .288946E+04, .224380E+04, .174300E+04, .134900E+04, + .104842E+04, .814832E+03, .633825E+03, .493209E+03, + .384277E+03, .299872E+03, .234306E+03, .183373E+03, + .143894E+03, .113184E+03, .893290E+02, .707113E+02, + .562072E+02, .448325E+02, .359096E+02, .288691E+02, + .233038E+02, .188770E+02, .153595E+02, .125191E+02, + .102470E+02, .839719E+01, .690123E+01, .568111E+01 / DATA (UPDI(I),I=6605,6656) / + .468290E+01, .386416E+01, .319222E+01, .263533E+01, + .217473E+01, .179326E+01, .147688E+01, .121445E+01, + .996593E+00, .815930E+00, .665929E+00, .542225E+00, + .439185E+00, .354178E+00, .284155E+00, .226706E+00, + .179700E+00, .141433E+00, .110404E+00, .854188E-01, + .654136E-01, .494910E-01, .370438E-01, .272702E-01, + .197364E-01, .140101E-01, .971921E-02, .656465E-02, + .429074E-02, .268547E-02, .155893E-02, .892210E-03, + .471170E-03, .223824E-03, .915710E-04, .292896E-04, + .633091E-05, .651981E-06, .000000E+00, .222310E+07, + .173978E+07, .134528E+07, .103960E+07, .803299E+06, + .620326E+06, .478976E+06, .369597E+06, .285158E+06, + .219864E+06, .169495E+06, .130575E+06, .100575E+06 / DATA (UPDI(I),I=6657,6708) / + .774123E+05, .595733E+05, .458110E+05, .352214E+05, + .270590E+05, .207843E+05, .159522E+05, .122412E+05, + .938622E+04, .719603E+04, .551282E+04, .422290E+04, + .323250E+04, .247444E+04, .188622E+04, .144363E+04, + .110460E+04, .845600E+03, .647398E+03, .496113E+03, + .380710E+03, .292432E+03, .224958E+03, .173483E+03, + .134102E+03, .104006E+03, .809114E+02, .632142E+02, + .495694E+02, .390407E+02, .308725E+02, .245204E+02, + .195503E+02, .156638E+02, .125753E+02, .101428E+02, + .819292E+01, .663947E+01, .539126E+01, .438480E+01, + .357121E+01, .291251E+01, .237405E+01, .193465E+01, + .157561E+01, .128175E+01, .104118E+01, .844060E+00, + .682702E+00, .550426E+00, .442740E+00, .354190E+00 / DATA (UPDI(I),I=6709,6760) / + .282083E+00, .223461E+00, .175999E+00, .137684E+00, + .106915E+00, .823134E-01, .627855E-01, .473795E-01, + .353006E-01, .260055E-01, .188254E-01, .133849E-01, + .932368E-02, .633823E-02, .418749E-02, .266983E-02, + .162066E-02, .904261E-03, .503786E-03, .257703E-03, + .117919E-03, .461720E-04, .139246E-04, .283106E-05, + .292953E-06, .000000E+00, .376653E+07, .292715E+07, + .224537E+07, .172119E+07, .131909E+07, .101020E+07, + .773456E+06, .591751E+06, .452607E+06, .345913E+06, + .264288E+06, .201760E+06, .153974E+06, .117406E+06, + .894896E+05, .681506E+05, .518797E+05, .394570E+05, + .299967E+05, .227829E+05, .172967E+05, .131188E+05, + .994611E+04, .753356E+04, .570406E+04, .431470E+04 / DATA (UPDI(I),I=6761,6812) / + .326302E+04, .245631E+04, .185629E+04, .140214E+04, + .105930E+04, .800199E+03, .604850E+03, .457759E+03, + .346669E+03, .262893E+03, .199820E+03, .152227E+03, + .116346E+03, .891963E+02, .686757E+02, .530771E+02, + .412056E+02, .321253E+02, .251605E+02, .197864E+02, + .156407E+02, .123908E+02, .986514E+01, .786740E+01, + .629638E+01, .505038E+01, .405837E+01, .326655E+01, + .263304E+01, .212157E+01, .170920E+01, .137628E+01, + .110702E+01, .889191E+00, .712793E+00, .570090E+00, + .454464E+00, .361436E+00, .285839E+00, .225013E+00, + .176157E+00, .137084E+00, .105931E+00, .812295E-01, + .617340E-01, .464644E-01, .345826E-01, .253970E-01, + .184317E-01, .131330E-01, .918233E-02, .628285E-02 / DATA (UPDI(I),I=6813,6864) / + .418952E-02, .270997E-02, .168679E-02, .994298E-03, + .534408E-03, .290297E-03, .144145E-03, .637055E-04, + .239691E-04, .685295E-05, .131991E-05, .135874E-06, + .000000E+00, .589150E+07, .455051E+07, .346599E+07, + .263793E+07, .200702E+07, .152580E+07, .115953E+07, + .880458E+06, .668277E+06, .506790E+06, .384154E+06, + .290929E+06, .220220E+06, .166536E+06, .125873E+06, + .950425E+05, .717229E+05, .540681E+05, .407346E+05, + .306557E+05, .230562E+05, .173212E+05, .130046E+05, + .975285E+04, .730973E+04, .547219E+04, .409480E+04, + .304890E+04, .227882E+04, .170207E+04, .127119E+04, + .949104E+03, .708878E+03, .530043E+03, .396481E+03, + .296937E+03, .222854E+03, .167625E+03, .126477E+03 / DATA (UPDI(I),I=6865,6916) / + .957235E+02, .727572E+02, .555152E+02, .425511E+02, + .327578E+02, .253367E+02, .196805E+02, .153694E+02, + .120304E+02, .946621E+01, .746203E+01, .590419E+01, + .468300E+01, .372181E+01, .296323E+01, .236286E+01, + .188362E+01, .150147E+01, .119633E+01, .952220E+00, + .756886E+00, .600412E+00, .475196E+00, .374832E+00, + .294960E+00, .230767E+00, .179688E+00, .139121E+00, + .107047E+00, .817707E-01, .619650E-01, .465232E-01, + .345787E-01, .254036E-01, .184037E-01, .131689E-01, + .924360E-02, .636117E-02, .427927E-02, .280162E-02, + .177592E-02, .108018E-02, .619218E-03, .321109E-03, + .170337E-03, .822649E-04, .352052E-04, .127763E-04, + .347907E-05, .637640E-06, .645153E-07, .000000E+00 / DATA (UPDI(I),I=6917,6968) / + .909796E+07, .698247E+07, .527919E+07, .398813E+07, + .301138E+07, .227192E+07, .171315E+07, .129066E+07, + .971813E+06, .731045E+06, .549594E+06, .412769E+06, + .309803E+06, .232277E+06, .174028E+06, .130241E+06, + .973978E+05, .727511E+05, .542978E+05, .404753E+05, + .301463E+05, .224247E+05, .166667E+05, .123713E+05, + .917503E+04, .679513E+04, .502930E+04, .370253E+04, + .273591E+04, .201986E+04, .149069E+04, .109963E+04, + .811204E+03, .599016E+03, .442379E+03, .327053E+03, + .242252E+03, .179820E+03, .133876E+03, .999736E+02, + .749718E+02, .564425E+02, .426858E+02, .324276E+02, + .247523E+02, .189771E+02, .146306E+02, .113066E+02, + .878588E+01, .684023E+01, .534647E+01, .418990E+01 / DATA (UPDI(I),I=6969,7020) / + .329058E+01, .258931E+01, .204072E+01, .160813E+01, + .126724E+01, .998244E+00, .785562E+00, .617368E+00, + .484207E+00, .378889E+00, .295459E+00, .229842E+00, + .177732E+00, .136765E+00, .104625E+00, .795258E-01, + .599946E-01, .448857E-01, .332604E-01, .243882E-01, + .176677E-01, .126132E-01, .888938E-02, .614007E-02, + .415407E-02, .274411E-02, .176158E-02, .109267E-02, + .648420E-03, .360981E-03, .180009E-03, .931920E-04, + .437589E-04, .181326E-04, .635761E-05, .165074E-05, + .287680E-06, .280153E-07, .000000E+00, .134494E+08, + .102601E+08, .770309E+07, .577820E+07, .433176E+07, + .324444E+07, .242850E+07, .181601E+07, .135706E+07, + .101306E+07, .755699E+06, .563108E+06, .419263E+06 / DATA (UPDI(I),I=7021,7072) / + .311803E+06, .231687E+06, .171946E+06, .127491E+06, + .944085E+05, .698418E+05, .515978E+05, .380803E+05, + .280645E+05, .206613E+05, .151891E+05, .111543E+05, + .817825E+04, .599127E+04, .436426E+04, .319068E+04, + .233020E+04, .170076E+04, .124054E+04, .904677E+03, + .660305E+03, .481871E+03, .351986E+03, .257552E+03, + .188836E+03, .138849E+03, .102400E+03, .758338E+02, + .563809E+02, .421085E+02, .315938E+02, .238195E+02, + .180396E+02, .137407E+02, .104919E+02, .805716E+01, + .619981E+01, .479031E+01, .371156E+01, .288228E+01, + .224288E+01, .174820E+01, .136258E+01, .106208E+01, + .827596E+00, .644254E+00, .500866E+00, .388602E+00, + .300793E+00, .232005E+00, .178508E+00, .136504E+00 / DATA (UPDI(I),I=7073,7124) / + .103858E+00, .785436E-01, .590061E-01, .439851E-01, + .325068E-01, .237856E-01, .172150E-01, .123040E-01, + .866074E-02, .601486E-02, .409037E-02, .272200E-02, + .176654E-02, .111245E-02, .675505E-03, .391313E-03, + .211677E-03, .101469E-03, .512688E-04, .234043E-04, + .938820E-05, .317977E-05, .785291E-06, .129140E-06, + .117589E-07, .000000E+00, .191474E+08, .145246E+08, + .108327E+08, .807158E+07, .601006E+07, .447069E+07, + .332312E+07, .246756E+07, .183079E+07, .135686E+07, + .100474E+07, .743125E+06, .549118E+06, .405257E+06, + .298785E+06, .219995E+06, .161808E+06, .118845E+06, + .871894E+05, .638713E+05, .467333E+05, .341410E+05, + .249109E+05, .181472E+05, .132032E+05, .958916E+04 / DATA (UPDI(I),I=7125,7176) / + .695737E+04, .501771E+04, .363174E+04, .262537E+04, + .189629E+04, .136857E+04, .987292E+03, .712747E+03, + .514350E+03, .371476E+03, .268704E+03, .194741E+03, + .141522E+03, .103150E+03, .754920E+02, .554679E+02, + .409404E+02, .303590E+02, .226230E+02, .169362E+02, + .127538E+02, .962826E+01, .731181E+01, .556425E+01, + .425254E+01, .325958E+01, .250443E+01, .192838E+01, + .148737E+01, .114730E+01, .885086E+00, .682630E+00, + .525989E+00, .404764E+00, .310845E+00, .238153E+00, + .181805E+00, .138444E+00, .104761E+00, .788637E-01, + .590022E-01, .438418E-01, .323174E-01, .236117E-01, + .170749E-01, .122089E-01, .861710E-02, .598651E-02, + .410144E-02, .274927E-02, .180186E-02, .115046E-02 / DATA (UPDI(I),I=7177,7228) / + .711834E-03, .423927E-03, .240292E-03, .126694E-03, + .585872E-04, .289613E-04, .128934E-04, .502651E-05, + .165303E-05, .390801E-06, .608022E-07, .500466E-08, + .000000E+00, .263929E+08, .199143E+08, .147591E+08, + .109275E+08, .808422E+07, .597453E+07, .441164E+07, + .325399E+07, .239793E+07, .176501E+07, .129786E+07, + .953169E+06, .699278E+06, .512332E+06, .374938E+06, + .274001E+06, .199994E+06, .145756E+06, .106090E+06, + .770954E+05, .559491E+05, .405350E+05, .293262E+05, + .211801E+05, .152745E+05, .109941E+05, .790400E+04, + .564675E+04, .404832E+04, .289831E+04, .207283E+04, + .148102E+04, .105750E+04, .755541E+03, .539479E+03, + .385463E+03, .275800E+03, .197698E+03, .142085E+03 / DATA (UPDI(I),I=7229,7280) / + .102412E+03, .741176E+02, .538520E+02, .393055E+02, + .288244E+02, .212431E+02, .157297E+02, .117177E+02, + .875133E+01, .657596E+01, .495199E+01, .374570E+01, + .284194E+01, .216163E+01, .164788E+01, .125847E+01, + .961261E+00, .734385E+00, .560946E+00, .428084E+00, + .326273E+00, .248174E+00, .188320E+00, .142381E+00, + .107380E+00, .804626E-01, .599752E-01, .444233E-01, + .326746E-01, .238374E-01, .172325E-01, .123273E-01, + .871636E-02, .608156E-02, .417458E-02, .282479E-02, + .186886E-02, .120804E-02, .760069E-03, .462917E-03, + .270982E-03, .150713E-03, .777404E-04, .348658E-04, + .169028E-04, .736159E-05, .279996E-05, .897959E-06, + .204590E-06, .302340E-07, .217289E-08, .000000E+00 / DATA (UPDI(I),I=7281,7332) / + .353717E+08, .265542E+08, .195623E+08, .143961E+08, + .105849E+08, .777407E+07, .570429E+07, .418067E+07, + .306090E+07, .223826E+07, .163493E+07, .119264E+07, + .868977E+06, .632255E+06, .459441E+06, .333357E+06, + .241548E+06, .174742E+06, .126232E+06, .910331E+05, + .655501E+05, .471157E+05, .338125E+05, .242200E+05, + .173206E+05, .123602E+05, .880901E+04, .623683E+04, + .443100E+04, .314315E+04, .222686E+04, .157592E+04, + .111431E+04, .788294E+03, .557210E+03, .394084E+03, + .279060E+03, .197953E+03, .140775E+03, .100397E+03, + .718900E+02, .516808E+02, .373221E+02, .270822E+02, + .197507E+02, .144732E+02, .106716E+02, .788909E+01, + .586899E+01, .437591E+01, .327777E+01, .246305E+01 / DATA (UPDI(I),I=7333,7384) / + .185568E+01, .140138E+01, .106028E+01, .802442E+00, + .607474E+00, .459818E+00, .347760E+00, .262683E+00, + .198025E+00, .148927E+00, .111592E+00, .834079E-01, + .619358E-01, .457454E-01, .335719E-01, .244630E-01, + .176778E-01, .126564E-01, .896454E-02, .627446E-02, + .433224E-02, .294166E-02, .196839E-02, .128705E-02, + .821770E-03, .510341E-03, .306542E-03, .176788E-03, + .967552E-04, .490165E-04, .214609E-04, .102237E-04, + .436698E-05, .162538E-05, .509741E-06, .112583E-06, + .158824E-07, .967427E-09, .000000E+00, .462452E+08, + .345497E+08, .253063E+08, .185151E+08, .135333E+08, + .988045E+07, .720610E+07, .524913E+07, .381937E+07, + .277539E+07, .201436E+07, .145996E+07, .105678E+07 / DATA (UPDI(I),I=7385,7436) / + .763799E+06, .551283E+06, .397259E+06, .285846E+06, + .205328E+06, .147260E+06, .105422E+06, .753456E+05, + .537467E+05, .382737E+05, .272003E+05, .192961E+05, + .136574E+05, .965262E+04, .677545E+04, .477210E+04, + .335538E+04, .235591E+04, .165206E+04, .115729E+04, + .810996E+03, .567757E+03, .397642E+03, .278807E+03, + .195810E+03, .137856E+03, .973260E+02, .689884E+02, + .490952E+02, .350982E+02, .252140E+02, .182059E+02, + .132100E+02, .964600E+01, .706226E+01, .520438E+01, + .384412E+01, .285302E+01, .212449E+01, .158634E+01, + .118742E+01, .890566E+00, .668207E+00, .501554E+00, + .376444E+00, .282325E+00, .211485E+00, .158110E+00, + .117927E+00, .876340E-01, .649615E-01, .478373E-01 / DATA (UPDI(I),I=7437,7488) / + .350369E-01, .254965E-01, .184203E-01, .131962E-01, + .936483E-02, .657377E-02, .455893E-02, .311816E-02, + .209669E-02, .138899E-02, .898733E-03, .567594E-03, + .348469E-03, .206798E-03, .117749E-03, .635787E-04, + .317478E-04, .136610E-04, .640278E-05, .268654E-05, + .980258E-06, .300933E-06, .647090E-07, .876283E-08, + .443320E-09, .000000E+00, .591409E+08, .439801E+08, + .320357E+08, .233078E+08, .169399E+08, .122969E+08, + .891640E+07, .645685E+07, .467015E+07, .337317E+07, + .243324E+07, .175263E+07, .126064E+07, .905329E+06, + .649196E+06, .464739E+06, .332164E+06, .236979E+06, + .168785E+06, .119983E+06, .851400E+05, .602921E+05, + .426167E+05, .300586E+05, .211598E+05, .148590E+05 / DATA (UPDI(I),I=7489,7540) / + .104181E+05, .725252E+04, .506582E+04, .353189E+04, + .245854E+04, .170897E+04, .118650E+04, .823972E+03, + .571543E+03, .396572E+03, .275440E+03, .191609E+03, + .133608E+03, .934213E+02, .655840E+02, .462244E+02, + .327297E+02, .232891E+02, .166577E+02, .119740E+02, + .866341E+01, .628518E+01, .459054E+01, .336087E+01, + .247283E+01, .182575E+01, .135187E+01, .100356E+01, + .746541E+00, .555654E+00, .413772E+00, .308128E+00, + .229298E+00, .170441E+00, .126450E+00, .935958E-01, + .690240E-01, .507788E-01, .371081E-01, .269703E-01, + .194752E-01, .139606E-01, .992262E-02, .698540E-02, + .486363E-02, .334490E-02, .226834E-02, .151187E-02, + .992580E-03, .636226E-03, .397906E-03, .241817E-03 / DATA (UPDI(I),I=7541,7592) / + .141989E-03, .799564E-04, .426802E-04, .210673E-04, + .896093E-05, .413385E-05, .170490E-05, .610234E-06, + .183341E-06, .384864E-07, .502959E-08, .209337E-09, + .000000E+00, .741452E+08, .548938E+08, .397723E+08, + .287807E+08, .208034E+08, .150180E+08, .108286E+08, + .779719E+07, .560720E+07, .402646E+07, .288735E+07, + .206730E+07, .147796E+07, .105487E+07, .751700E+06, + .534709E+06, .379711E+06, .269130E+06, .190408E+06, + .134439E+06, .947412E+05, .666219E+05, .467552E+05, + .327383E+05, .228758E+05, .159427E+05, .110922E+05, + .766065E+04, .530831E+04, .367100E+04, .253429E+04, + .174686E+04, .120244E+04, .827824E+03, .569160E+03, + .391402E+03, .269400E+03, .185706E+03, .128309E+03 / DATA (UPDI(I),I=7593,7644) / + .888937E+02, .618337E+02, .431827E+02, .302979E+02, + .213643E+02, .151446E+02, .107903E+02, .773947E+01, + .556672E+01, .403176E+01, .292734E+01, .213642E+01, + .156482E+01, .114961E+01, .846847E+00, .625178E+00, + .461855E+00, .341398E+00, .252387E+00, .186470E+00, + .137620E+00, .101380E+00, .745125E-01, .545659E-01, + .398627E-01, .289267E-01, .208761E-01, .149680E-01, + .106530E-01, .751712E-02, .525319E-02, .363035E-02, + .247772E-02, .166719E-02, .110228E-02, .717738E-03, + .456130E-03, .282751E-03, .170256E-03, .990182E-04, + .552095E-04, .291743E-04, .142631E-04, .602241E-05, + .273421E-05, .110834E-05, .389106E-06, .114318E-06, + .234627E-07, .297261E-08, .101697E-09, .000000E+00 / DATA (UPDI(I),I=7645,7696) / + .704499E+04, .832233E+04, .687439E+04, .567984E+04, + .469424E+04, .388092E+04, .320962E+04, .265543E+04, + .219783E+04, .181988E+04, .150764E+04, .124961E+04, + .103632E+04, .859953E+03, .714068E+03, .593351E+03, + .493422E+03, .410666E+03, .342102E+03, .285269E+03, + .238137E+03, .199029E+03, .166563E+03, .139595E+03, + .117182E+03, .985436E+02, .830350E+02, .699566E+02, + .592331E+02, .502945E+02, .428400E+02, .366200E+02, + .314277E+02, .271032E+02, .234801E+02, .204521E+02, + .179192E+02, .157977E+02, .140173E+02, .125184E+02, + .112537E+02, .101794E+02, .926147E+01, .847093E+01, + .778406E+01, .718152E+01, .664953E+01, .617054E+01, + .574065E+01, .534693E+01, .498731E+01, .465530E+01 / DATA (UPDI(I),I=7697,7748) / + .434661E+01, .405727E+01, .378371E+01, .352289E+01, + .327253E+01, .303118E+01, .279816E+01, .257337E+01, + .235703E+01, .214956E+01, .195140E+01, .176378E+01, + .158507E+01, .141670E+01, .125884E+01, .111157E+01, + .974884E+00, .848737E+00, .733003E+00, .627501E+00, + .531937E+00, .445951E+00, .369941E+00, .302391E+00, + .243429E+00, .192562E+00, .149266E+00, .112987E+00, + .831432E-01, .591648E-01, .402918E-01, .260523E-01, + .157087E-01, .861149E-02, .411316E-02, .158037E-02, + .408294E-03, .399741E-04, .000000E+00, .182144E+05, + .246153E+05, .196638E+05, .157122E+05, .125618E+05, + .100463E+05, .803969E+04, .643639E+04, .515662E+04, + .413330E+04, .331585E+04, .266165E+04, .213860E+04 / DATA (UPDI(I),I=7749,7800) / + .171959E+04, .138425E+04, .111529E+04, .899789E+03, + .726720E+03, .587856E+03, .476163E+03, .386403E+03, + .314077E+03, .255845E+03, .208828E+03, .170890E+03, + .140195E+03, .115358E+03, .949580E+02, .786713E+02, + .654150E+02, .546315E+02, .458259E+02, .386400E+02, + .327671E+02, .279443E+02, .239780E+02, .207160E+02, + .180192E+02, .157873E+02, .139273E+02, .123751E+02, + .110666E+02, .995887E+01, .901096E+01, .819416E+01, + .748242E+01, .685931E+01, .630264E+01, .580751E+01, + .535775E+01, .495073E+01, .457800E+01, .423458E+01, + .391552E+01, .361704E+01, .333572E+01, .306928E+01, + .281605E+01, .257519E+01, .234626E+01, .212919E+01, + .192401E+01, .173069E+01, .155011E+01, .138033E+01 / DATA (UPDI(I),I=7801,7852) / + .122240E+01, .107616E+01, .941408E+00, .817856E+00, + .705209E+00, .603091E+00, .511137E+00, .428882E+00, + .355764E+00, .291945E+00, .235954E+00, .187721E+00, + .146679E+00, .112235E+00, .838149E-01, .607970E-01, + .426061E-01, .285310E-01, .181129E-01, .106998E-01, + .573164E-02, .266483E-02, .992157E-03, .248394E-03, + .245823E-04, .000000E+00, .583675E+05, .463802E+05, + .364998E+05, .287263E+05, .226175E+05, .178104E+05, + .140318E+05, .110573E+05, .871836E+04, .687641E+04, + .542737E+04, .428561E+04, .338688E+04, .267825E+04, + .212006E+04, .167955E+04, .133224E+04, .105786E+04, + .841276E+03, .669943E+03, .534508E+03, .427188E+03, + .342204E+03, .274726E+03, .221172E+03, .178552E+03 / DATA (UPDI(I),I=7853,7904) / + .144627E+03, .117215E+03, .956768E+02, .784188E+02, + .645917E+02, .534662E+02, .445152E+02, .372981E+02, + .314472E+02, .266930E+02, .228268E+02, .196632E+02, + .170697E+02, .149266E+02, .131520E+02, .116666E+02, + .104172E+02, .935452E+01, .844420E+01, .765555E+01, + .696918E+01, .635965E+01, .582078E+01, .533426E+01, + .489665E+01, .449831E+01, .413353E+01, .379681E+01, + .348405E+01, .319162E+01, .291708E+01, .265859E+01, + .241510E+01, .218594E+01, .197074E+01, .176926E+01, + .158115E+01, .140702E+01, .124473E+01, .109509E+01, + .957695E+00, .832170E+00, .718048E+00, .614876E+00, + .522132E+00, .439334E+00, .365918E+00, .301217E+00, + .245249E+00, .196595E+00, .155074E+00, .120090E+00 / DATA (UPDI(I),I=7905,7956) / + .910263E-01, .673160E-01, .483083E-01, .334688E-01, + .221318E-01, .138581E-01, .806057E-02, .424254E-02, + .193213E-02, .701939E-03, .171340E-03, .171077E-04, + .000000E+00, .981498E+05, .772711E+05, .601716E+05, + .468514E+05, .364894E+05, .284181E+05, .221394E+05, + .172486E+05, .134437E+05, .104796E+05, .817324E+04, + .637612E+04, .497746E+04, .388724E+04, .303839E+04, + .237640E+04, .186066E+04, .145816E+04, .114433E+04, + .899150E+03, .707757E+03, .558024E+03, .440964E+03, + .349223E+03, .277354E+03, .220903E+03, .176555E+03, + .141193E+03, .113769E+03, .920795E+02, .749200E+02, + .612855E+02, .504475E+02, .418114E+02, .348878E+02, + .293221E+02, .248409E+02, .212085E+02, .182560E+02 / DATA (UPDI(I),I=7957,8008) / + .158358E+02, .138461E+02, .121917E+02, .108087E+02, + .963913E+01, .864277E+01, .778431E+01, .704119E+01, + .638490E+01, .580784E+01, .528971E+01, .482621E+01, + .440662E+01, .402452E+01, .367392E+01, .335038E+01, + .305005E+01, .277029E+01, .250907E+01, .226512E+01, + .203750E+01, .182559E+01, .162888E+01, .144673E+01, + .127949E+01, .112487E+01, .983434E+00, .854598E+00, + .737815E+00, .632473E+00, .537990E+00, .453727E+00, + .379108E+00, .313492E+00, .256137E+00, .206945E+00, + .164557E+00, .128709E+00, .987916E-01, .741813E-01, + .543006E-01, .385449E-01, .263924E-01, .172264E-01, + .106320E-01, .608330E-02, .314159E-02, .139853E-02, + .494173E-03, .117072E-03, .118143E-04, .000000E+00 / DATA (UPDI(I),I=8009,8060) / + .152340E+06, .119071E+06, .919592E+05, .710030E+05, + .548301E+05, .423329E+05, .326906E+05, .252412E+05, + .194946E+05, .150556E+05, .116317E+05, .898707E+04, + .694718E+04, .537155E+04, .415606E+04, .321703E+04, + .249243E+04, .193242E+04, .150008E+04, .116569E+04, + .907314E+03, .707271E+03, .552515E+03, .432525E+03, + .339533E+03, .267284E+03, .211148E+03, .166886E+03, + .132940E+03, .106390E+03, .856128E+02, .692843E+02, + .564414E+02, .463146E+02, .382762E+02, .318770E+02, + .267711E+02, .226681E+02, .193594E+02, .166673E+02, + .144690E+02, .126528E+02, .111431E+02, .987354E+01, + .879756E+01, .787532E+01, .708099E+01, .638305E+01, + .577246E+01, .522704E+01, .474157E+01, .430437E+01 / DATA (UPDI(I),I=8061,8112) / + .390833E+01, .354700E+01, .321558E+01, .291001E+01, + .262742E+01, .236557E+01, .212294E+01, .189836E+01, + .169091E+01, .149985E+01, .132428E+01, .116430E+01, + .101750E+01, .884213E+00, .763698E+00, .655269E+00, + .558185E+00, .471759E+00, .395260E+00, .328036E+00, + .269386E+00, .218521E+00, .175251E+00, .138276E+00, + .107277E+00, .816401E-01, .607500E-01, .440421E-01, + .309380E-01, .209467E-01, .135026E-01, .821954E-02, + .462985E-02, .234813E-02, .102302E-02, .352216E-03, + .811962E-04, .827624E-05, .000000E+00, .158744E+06, + .173982E+06, .133438E+06, .102305E+06, .784386E+05, + .601209E+05, .460844E+05, .353156E+05, .270669E+05, + .207409E+05, .158969E+05, .121832E+05, .934015E+04 / DATA (UPDI(I),I=8113,8164) / + .716103E+04, .549305E+04, .421470E+04, .323620E+04, + .248621E+04, .191202E+04, .147174E+04, .113447E+04, + .875666E+03, .677245E+03, .524815E+03, .407774E+03, + .317695E+03, .248376E+03, .194252E+03, .153147E+03, + .121312E+03, .966410E+02, .774415E+02, .624830E+02, + .507997E+02, .416092E+02, .343581E+02, .286203E+02, + .240467E+02, .203854E+02, .174274E+02, .150272E+02, + .130561E+02, .114265E+02, .100634E+02, .891376E+01, + .793325E+01, .709270E+01, .635770E+01, .571773E+01, + .514884E+01, .464488E+01, .419326E+01, .378622E+01, + .341687E+01, .308007E+01, .277151E+01, .248809E+01, + .222734E+01, .198750E+01, .176714E+01, .156510E+01, + .138038E+01, .121184E+01, .105937E+01, .920441E+00 / DATA (UPDI(I),I=8165,8216) / + .795204E+00, .682764E+00, .582314E+00, .493013E+00, + .414083E+00, .344725E+00, .284225E+00, .231841E+00, + .186752E+00, .148697E+00, .116440E+00, .896248E-01, + .676410E-01, .498918E-01, .358321E-01, .249166E-01, + .166863E-01, .106270E-01, .638303E-02, .354129E-02, + .176495E-02, .753200E-03, .253032E-03, .568954E-04, + .585417E-05, .000000E+00, .336405E+06, .259750E+06, + .197801E+06, .150560E+06, .114591E+06, .871774E+05, + .663177E+05, .504300E+05, .383475E+05, .291505E+05, + .221603E+05, .168424E+05, .128026E+05, .973078E+04, + .739818E+04, .562526E+04, .427936E+04, .325664E+04, + .248035E+04, .189041E+04, .144252E+04, .110202E+04, + .843374E+03, .646599E+03, .496957E+03, .382931E+03 / DATA (UPDI(I),I=8217,8268) / + .296064E+03, .228939E+03, .178482E+03, .139817E+03, + .110159E+03, .873232E+02, .697116E+02, .560986E+02, + .454944E+02, .372102E+02, .307144E+02, .255830E+02, + .215085E+02, .182428E+02, .156114E+02, .134654E+02, + .117019E+02, .102357E+02, .900594E+01, .796297E+01, + .707361E+01, .630016E+01, .563028E+01, .503808E+01, + .451630E+01, .405138E+01, .363474E+01, .325908E+01, + .291879E+01, .260931E+01, .232720E+01, .206974E+01, + .183485E+01, .162082E+01, .142619E+01, .124971E+01, + .108998E+01, .946643E+00, .817073E+00, .701205E+00, + .598004E+00, .506546E+00, .425892E+00, .355181E+00, + .293555E+00, .240247E+00, .194484E+00, .155431E+00, + .122761E+00, .953216E-01, .727258E-01, .543827E-01 / DATA (UPDI(I),I=8269,8320) / + .397246E-01, .282372E-01, .194194E-01, .128516E-01, + .807943E-02, .478448E-02, .261273E-02, .127907E-02, + .534748E-03, .175519E-03, .386224E-04, .400805E-05, + .000000E+00, .485993E+06, .373168E+06, .282339E+06, + .213506E+06, .161421E+06, .121979E+06, .921577E+05, + .695929E+05, .525450E+05, .396559E+05, .299255E+05, + .225745E+05, .170290E+05, .128427E+05, .968665E+04, + .730569E+04, .551169E+04, .415899E+04, .314019E+04, + .237216E+04, .179374E+04, .135768E+04, .102922E+04, + .781498E+03, .594750E+03, .453721E+03, .347261E+03, + .265764E+03, .205077E+03, .159017E+03, .124017E+03, + .973279E+02, .769365E+02, .613242E+02, .492725E+02, + .399428E+02, .326888E+02, .270063E+02, .225283E+02 / DATA (UPDI(I),I=8321,8372) / + .189657E+02, .161141E+02, .138033E+02, .119152E+02, + .103545E+02, .905217E+01, .795351E+01, .702138E+01, + .621490E+01, .551999E+01, .490889E+01, .437326E+01, + .389864E+01, .347572E+01, .309673E+01, .275566E+01, + .244764E+01, .216893E+01, .191653E+01, .168805E+01, + .148152E+01, .129520E+01, .112758E+01, .977048E+00, + .843019E+00, .722809E+00, .616152E+00, .521900E+00, + .439031E+00, .366532E+00, .303482E+00, .248981E+00, + .202228E+00, .162436E+00, .128770E+00, .100858E+00, + .776309E-01, .586876E-01, .434636E-01, .314256E-01, + .220956E-01, .150176E-01, .981288E-02, .608306E-02, + .354670E-02, .190308E-02, .913052E-03, .372816E-03, + .119059E-03, .255168E-04, .267605E-05, .000000E+00 / DATA (UPDI(I),I=8373,8424) / + .680695E+06, .519994E+06, .391079E+06, .293949E+06, + .220879E+06, .165872E+06, .124528E+06, .934350E+05, + .700868E+05, .525444E+05, .393840E+05, .295057E+05, + .221018E+05, .165495E+05, .123916E+05, .927634E+04, + .694528E+04, .520011E+04, .389512E+04, .291859E+04, + .218863E+04, .164253E+04, .123437E+04, .928989E+03, + .700623E+03, .529583E+03, .401558E+03, .304394E+03, + .232666E+03, .178706E+03, .138060E+03, .107341E+03, + .840746E+02, .664178E+02, .529026E+02, .425281E+02, + .345256E+02, .283052E+02, .234382E+02, .195928E+02, + .165338E+02, .140699E+02, .120677E+02, .104213E+02, + .905436E+01, .790691E+01, .693808E+01, .610397E+01, + .538878E+01, .476306E+01, .421743E+01, .373656E+01 / DATA (UPDI(I),I=8425,8476) / + .331049E+01, .293098E+01, .259163E+01, .228728E+01, + .201386E+01, .176810E+01, .154733E+01, .134929E+01, + .117201E+01, .101375E+01, .872705E+00, .748081E+00, + .637162E+00, .539504E+00, .453873E+00, .379168E+00, + .314327E+00, .258385E+00, .210419E+00, .169614E+00, + .135178E+00, .106293E+00, .825578E-01, .629885E-01, + .471814E-01, .346047E-01, .247644E-01, .172218E-01, + .115671E-01, .746200E-02, .456078E-02, .261779E-02, + .137999E-02, .648756E-03, .258679E-03, .803734E-04, + .167826E-04, .177897E-05, .000000E+00, .929609E+06, + .706728E+06, .528525E+06, .394999E+06, .295095E+06, + .220310E+06, .164415E+06, .122620E+06, .914153E+05, + .681085E+05, .507269E+05, .377592E+05, .280987E+05 / DATA (UPDI(I),I=8477,8528) / + .208995E+05, .155422E+05, .115541E+05, .858935E+04, + .638455E+04, .474694E+04, .352999E+04, .262665E+04, + .195570E+04, .145786E+04, .108816E+04, .813775E+03, + .609848E+03, .458413E+03, .344406E+03, .260927E+03, + .198642E+03, .152110E+03, .117234E+03, .910349E+02, + .713157E+02, .563414E+02, .449373E+02, .362059E+02, + .294682E+02, .242316E+02, .201208E+02, .168697E+02, + .142658E+02, .121604E+02, .104381E+02, .901472E+01, + .782556E+01, .682616E+01, .596979E+01, .523904E+01, + .460288E+01, .405095E+01, .356714E+01, .314085E+01, + .276343E+01, .242810E+01, .212938E+01, .186291E+01, + .162515E+01, .141314E+01, .122439E+01, .105669E+01, + .908120E+00, .776694E+00, .661441E+00, .559637E+00 / DATA (UPDI(I),I=8529,8580) / + .470684E+00, .393282E+00, .326277E+00, .268572E+00, + .219181E+00, .177173E+00, .141730E+00, .112072E+00, + .874070E-01, .673199E-01, .509104E-01, .377827E-01, + .274423E-01, .194368E-01, .133683E-01, .887253E-02, + .565041E-02, .340478E-02, .192374E-02, .996256E-03, + .458910E-03, .178704E-03, .540455E-04, .110072E-04, + .117913E-05, .000000E+00, .124252E+07, .940297E+06, + .699419E+06, .519883E+06, .386256E+06, .286762E+06, + .212798E+06, .157794E+06, .116954E+06, .866211E+05, + .641274E+05, .474428E+05, .350854E+05, .259313E+05, + .191598E+05, .141501E+05, .104487E+05, .771359E+04, + .569507E+04, .420489E+04, .310606E+04, .229547E+04, + .169816E+04, .125770E+04, .933144E+03, .693679E+03 / DATA (UPDI(I),I=8581,8632) / + .517184E+03, .385318E+03, .289502E+03, .218567E+03, + .165981E+03, .126877E+03, .977272E+02, .759570E+02, + .595485E+02, .471445E+02, .377139E+02, .304860E+02, + .249037E+02, .205477E+02, .171216E+02, .143919E+02, + .121955E+02, .104071E+02, .893575E+01, .771204E+01, + .668819E+01, .581488E+01, .507316E+01, .443061E+01, + .387592E+01, .339229E+01, .296853E+01, .259561E+01, + .226634E+01, .197500E+01, .171690E+01, .148826E+01, + .128586E+01, .110700E+01, .949260E+00, .810544E+00, + .688737E+00, .582710E+00, .489755E+00, .409142E+00, + .339530E+00, .279729E+00, .228627E+00, .185232E+00, + .148620E+00, .117982E+00, .925601E-01, .715994E-01, + .546804E-01, .409859E-01, .301354E-01, .216742E-01 / DATA (UPDI(I),I=8633,8684) / + .151926E-01, .103337E-01, .677673E-02, .426012E-02, + .253060E-02, .140736E-02, .715954E-03, .323135E-03, + .122906E-03, .361974E-04, .719900E-05, .779201E-06, + .000000E+00, .162965E+07, .122787E+07, .908609E+06, + .671857E+06, .496529E+06, .366661E+06, .270612E+06, + .199562E+06, .147086E+06, .108323E+06, .797322E+05, + .586434E+05, .431110E+05, .316707E+05, .232566E+05, + .170682E+05, .125231E+05, .918488E+04, .673634E+04, + .494005E+04, .362389E+04, .265930E+04, .195316E+04, + .143596E+04, .105744E+04, .780099E+03, .577144E+03, + .426600E+03, .318011E+03, .238211E+03, .179486E+03, + .136142E+03, .104066E+03, .802853E+02, .624878E+02, + .491275E+02, .390365E+02, .313517E+02, .254514E+02 / DATA (UPDI(I),I=8685,8736) / + .208731E+02, .172907E+02, .144503E+02, .121752E+02, + .103309E+02, .882020E+01, .756908E+01, .652684E+01, + .564177E+01, .489355E+01, .424848E+01, .369441E+01, + .321388E+01, .279518E+01, .242890E+01, .210754E+01, + .182507E+01, .157654E+01, .135793E+01, .116580E+01, + .997242E+00, .849666E+00, .720834E+00, .608528E+00, + .511487E+00, .427037E+00, .354347E+00, .292048E+00, + .238935E+00, .193900E+00, .155955E+00, .124198E+00, + .978392E-01, .761517E-01, .584229E-01, .442397E-01, + .328651E-01, .239392E-01, .170487E-01, .118259E-01, + .795428E-02, .515380E-02, .319790E-02, .187251E-02, + .102494E-02, .512158E-03, .226483E-03, .841517E-04, + .241466E-04, .469473E-05, .513329E-06, .000000E+00 / DATA (UPDI(I),I=8737,8788) / + .210142E+07, .157667E+07, .116089E+07, .854083E+06, + .627981E+06, .461340E+06, .338708E+06, .248457E+06, + .182139E+06, .133407E+06, .976528E+05, .714210E+05, + .522046E+05, .381289E+05, .278337E+05, .203049E+05, + .148068E+05, .107922E+05, .786496E+04, .573043E+04, + .417597E+04, .304383E+04, .222026E+04, .162095E+04, + .118519E+04, .868023E+03, .637509E+03, .467700E+03, + .346067E+03, .257308E+03, .192444E+03, .144909E+03, + .109972E+03, .842510E+02, .651291E+02, .508686E+02, + .401644E+02, .320611E+02, .258739E+02, .210980E+02, + .173788E+02, .144436E+02, .121025E+02, .102128E+02, + .867105E+01, .739958E+01, .634484E+01, .545305E+01, + .470259E+01, .405868E+01, .350836E+01, .303363E+01 / DATA (UPDI(I),I=8789,8840) / + .262229E+01, .226461E+01, .195274E+01, .168041E+01, + .144243E+01, .123456E+01, .105316E+01, .895143E+00, + .757792E+00, .638751E+00, .535725E+00, .447349E+00, + .371003E+00, .305773E+00, .250287E+00, .203340E+00, + .163838E+00, .130815E+00, .103398E+00, .808275E-01, + .624121E-01, .474867E-01, .356524E-01, .262489E-01, + .189407E-01, .133557E-01, .916723E-02, .609702E-02, + .390280E-02, .239010E-02, .137942E-02, .743069E-03, + .364702E-03, .158016E-03, .573629E-04, .160442E-04, + .305277E-05, .337133E-06, .000000E+00, .266804E+07, + .199366E+07, .146082E+07, .106951E+07, .782493E+06, + .571981E+06, .417811E+06, .304914E+06, .222364E+06, + .162013E+06, .117957E+06, .858041E+05, .623722E+05 / DATA (UPDI(I),I=8841,8892) / + .453005E+05, .328809E+05, .238483E+05, .172884E+05, + .125257E+05, .907257E+04, .656931E+04, .475702E+04, + .344505E+04, .249646E+04, .181044E+04, .131477E+04, + .956299E+03, .697469E+03, .508057E+03, .373288E+03, + .275601E+03, .204688E+03, .153068E+03, .115379E+03, + .878128E+02, .674486E+02, .523553E+02, .410919E+02, + .326128E+02, .261720E+02, .212246E+02, .173892E+02, + .143751E+02, .119808E+02, .100558E+02, .849146E+01, + .720650E+01, .614495E+01, .525126E+01, .450260E+01, + .386330E+01, .331966E+01, .285319E+01, .245128E+01, + .210386E+01, .180285E+01, .154171E+01, .131505E+01, + .111842E+01, .948028E+00, .800652E+00, .673459E+00, + .564005E+00, .469954E+00, .389856E+00, .321166E+00 / DATA (UPDI(I),I=8893,8944) / + .262908E+00, .213721E+00, .172417E+00, .137929E+00, + .109323E+00, .857617E-01, .665229E-01, .509575E-01, + .384499E-01, .286207E-01, .208824E-01, .149264E-01, + .104206E-01, .707724E-02, .465401E-02, .294299E-02, + .177868E-02, .101174E-02, .536326E-03, .258535E-03, + .109753E-03, .389334E-04, .106198E-04, .197950E-05, + .220748E-06, .000000E+00, .707330E+04, .821779E+04, + .678108E+04, .559656E+04, .461993E+04, .381461E+04, + .315046E+04, .260265E+04, .215074E+04, .177788E+04, + .147018E+04, .121620E+04, .100652E+04, .833381E+03, + .690369E+03, .572214E+03, .474567E+03, .393844E+03, + .327090E+03, .271867E+03, .226167E+03, .188333E+03, + .156997E+03, .131031E+03, .109506E+03, .916527E+02 / DATA (UPDI(I),I=8945,8996) / + .768376E+02, .643786E+02, .541912E+02, .457227E+02, + .386789E+02, .328163E+02, .279338E+02, .238754E+02, + .204812E+02, .176481E+02, .152801E+02, .132973E+02, + .116333E+02, .102317E+02, .904841E+01, .804277E+01, + .718338E+01, .644378E+01, .580215E+01, .524064E+01, + .474630E+01, .430242E+01, .390472E+01, .354050E+01, + .320735E+01, .289934E+01, .261344E+01, .234787E+01, + .210180E+01, .187488E+01, .166680E+01, .147703E+01, + .130471E+01, .114874E+01, .100789E+01, .880909E+00, + .766638E+00, .664451E+00, .572331E+00, .490073E+00, + .416893E+00, .352078E+00, .294966E+00, .244940E+00, + .201416E+00, .163838E+00, .131652E+00, .104327E+00, + .815900E-01, .626243E-01, .471447E-01, .347094E-01 / DATA (UPDI(I),I=8997,9048) / + .249017E-01, .173311E-01, .116339E-01, .748143E-02, + .454750E-02, .258631E-02, .134482E-02, .618817E-03, + .238574E-03, .695509E-04, .121781E-04, .613099E-06, + .000000E+00, .182462E+05, .244956E+05, .195569E+05, + .156167E+05, .124766E+05, .997025E+04, .797182E+04, + .637581E+04, .510255E+04, .408503E+04, .327278E+04, + .262320E+04, .210428E+04, .168895E+04, .135689E+04, + .109087E+04, .877973E+03, .707230E+03, .570435E+03, + .460586E+03, .372465E+03, .301598E+03, .244661E+03, + .198795E+03, .161877E+03, .132085E+03, .108047E+03, + .883628E+02, .726972E+02, .599880E+02, .496842E+02, + .412993E+02, .344801E+02, .289259E+02, .243799E+02, + .206534E+02, .175979E+02, .150792E+02, .130004E+02 / DATA (UPDI(I),I=9049,9100) / + .112729E+02, .983539E+01, .862767E+01, .760888E+01, + .674109E+01, .599715E+01, .535269E+01, .479194E+01, + .429396E+01, .385338E+01, .345498E+01, .309586E+01, + .276876E+01, .247005E+01, .219698E+01, .194796E+01, + .172165E+01, .151694E+01, .133251E+01, .116692E+01, + .101862E+01, .886060E+00, .767783E+00, .662378E+00, + .569082E+00, .485826E+00, .412263E+00, .347500E+00, + .290756E+00, .241293E+00, .198443E+00, .161572E+00, + .130100E+00, .103462E+00, .811071E-01, .627300E-01, + .475917E-01, .353928E-01, .257251E-01, .182287E-01, + .125243E-01, .829019E-02, .525235E-02, .314048E-02, + .175464E-02, .894424E-03, .402636E-03, .151351E-03, + .429240E-04, .733981E-05, .377572E-06, .000000E+00 / DATA (UPDI(I),I=9101,9152) / + .582202E+05, .462485E+05, .363822E+05, .286213E+05, + .225237E+05, .177267E+05, .139570E+05, .109905E+05, + .865875E+04, .682318E+04, .537984E+04, .424317E+04, + .334898E+04, .264440E+04, .208981E+04, .165252E+04, + .130808E+04, .103626E+04, .821955E+03, .652651E+03, + .519021E+03, .413309E+03, .329752E+03, .263543E+03, + .211115E+03, .169493E+03, .136453E+03, .109834E+03, + .889862E+02, .723378E+02, .590467E+02, .483934E+02, + .398556E+02, .330001E+02, .274652E+02, .229872E+02, + .193611E+02, .164072E+02, .139964E+02, .120137E+02, + .103802E+02, .902034E+01, .788338E+01, .692300E+01, + .610641E+01, .540467E+01, .479901E+01, .426555E+01, + .379764E+01, .337837E+01, .300409E+01, .266664E+01 / DATA (UPDI(I),I=9153,9204) / + .236174E+01, .208595E+01, .183703E+01, .161302E+01, + .141220E+01, .123277E+01, .107291E+01, .930803E+00, + .804679E+00, .692956E+00, .594079E+00, .507194E+00, + .430217E+00, .362706E+00, .303714E+00, .252420E+00, + .208050E+00, .169915E+00, .137358E+00, .109795E+00, + .866628E-01, .674102E-01, .517211E-01, .389129E-01, + .286868E-01, .206737E-01, .145154E-01, .987437E-02, + .646650E-02, .405063E-02, .239187E-02, .131838E-02, + .661913E-03, .292960E-03, .107983E-03, .299593E-04, + .502353E-05, .263098E-06, .000000E+00, .979889E+05, + .771272E+05, .600431E+05, .467366E+05, .363868E+05, + .283265E+05, .220576E+05, .171756E+05, .133785E+05, + .104213E+05, .812120E+04, .632963E+04, .493592E+04 / DATA (UPDI(I),I=9205,9256) / + .385012E+04, .300521E+04, .234674E+04, .183414E+04, + .143443E+04, .112309E+04, .880127E+03, .690709E+03, + .542733E+03, .427237E+03, .336886E+03, .266251E+03, + .210896E+03, .167520E+03, .133031E+03, .106369E+03, + .853529E+02, .687875E+02, .556782E+02, .453015E+02, + .370709E+02, .305037E+02, .252516E+02, .210451E+02, + .176547E+02, .149149E+02, .126834E+02, .108610E+02, + .935708E+01, .810970E+01, .706427E+01, .618202E+01, + .542949E+01, .478477E+01, .422121E+01, .373073E+01, + .329486E+01, .290911E+01, .256450E+01, .225601E+01, + .197960E+01, .173237E+01, .151181E+01, .131567E+01, + .114174E+01, .987867E+00, .852012E+00, .732241E+00, + .626858E+00, .534199E+00, .453329E+00, .382167E+00 / DATA (UPDI(I),I=9257,9308) / + .320192E+00, .266419E+00, .220000E+00, .180139E+00, + .146134E+00, .117322E+00, .931195E-01, .729700E-01, + .563337E-01, .428898E-01, .320093E-01, .233996E-01, + .167092E-01, .116167E-01, .782189E-02, .506589E-02, + .313585E-02, .182754E-02, .992894E-03, .490421E-03, + .213074E-03, .768494E-04, .208009E-04, .341369E-05, + .182942E-06, .000000E+00, .152165E+06, .118915E+06, + .918195E+05, .708782E+05, .547186E+05, .422334E+05, + .326016E+05, .251618E+05, .194236E+05, .149922E+05, + .115750E+05, .893643E+04, .690192E+04, .533109E+04, + .411988E+04, .318468E+04, .246348E+04, .190651E+04, + .147687E+04, .114490E+04, .888671E+03, .690543E+03, + .537489E+03, .419016E+03, .327371E+03, .256317E+03 / DATA (UPDI(I),I=9309,9360) / + .201244E+03, .157939E+03, .124827E+03, .990175E+02, + .788952E+02, .631469E+02, .508154E+02, .411398E+02, + .334998E+02, .274530E+02, .226575E+02, .188296E+02, + .157644E+02, .132898E+02, .112855E+02, .964472E+01, + .829397E+01, .717021E+01, .622846E+01, .543079E+01, + .475210E+01, .416302E+01, .365405E+01, .320520E+01, + .281113E+01, .246200E+01, .215211E+01, .187681E+01, + .163261E+01, .141646E+01, .122566E+01, .105763E+01, + .909968E+00, .780428E+00, .666942E+00, .567723E+00, + .481026E+00, .405846E+00, .340120E+00, .283260E+00, + .234256E+00, .192244E+00, .156419E+00, .126074E+00, + .100548E+00, .792651E-01, .616820E-01, .472755E-01, + .357267E-01, .264569E-01, .191848E-01, .135850E-01 / DATA (UPDI(I),I=9361,9412) / + .936029E-02, .624298E-02, .400235E-02, .245088E-02, + .141166E-02, .757310E-03, .368935E-03, .157943E-03, + .560937E-04, .149871E-04, .246443E-05, .139202E-06, + .000000E+00, .158787E+06, .173813E+06, .133286E+06, + .102170E+06, .783178E+05, .600130E+05, .459880E+05, + .352295E+05, .269899E+05, .206721E+05, .158354E+05, + .121282E+05, .929104E+04, .711711E+04, .545377E+04, + .417956E+04, .320475E+04, .245805E+04, .188680E+04, + .144913E+04, .111419E+04, .857462E+03, .660889E+03, + .510105E+03, .394528E+03, .305750E+03, .237588E+03, + .184508E+03, .144314E+03, .113290E+03, .893367E+02, + .707747E+02, .563799E+02, .451955E+02, .364472E+02, + .295886E+02, .241983E+02, .199340E+02, .165479E+02 / DATA (UPDI(I),I=9413,9464) / + .138368E+02, .116578E+02, .988741E+01, .844013E+01, + .724442E+01, .624896E+01, .541135E+01, .470331E+01, + .409285E+01, .356900E+01, .311036E+01, .271065E+01, + .235928E+01, .204984E+01, .177711E+01, .153703E+01, + .132607E+01, .114112E+01, .979328E+00, .838022E+00, + .714818E+00, .607536E+00, .514310E+00, .433340E+00, + .363560E+00, .302937E+00, .250827E+00, .206208E+00, + .168209E+00, .136024E+00, .108948E+00, .863312E-01, + .676093E-01, .522563E-01, .397700E-01, .298381E-01, + .219298E-01, .157775E-01, .110811E-01, .756870E-02, + .500157E-02, .317491E-02, .192384E-02, .109550E-02, + .580509E-03, .279034E-03, .117745E-03, .411901E-04, + .108594E-04, .178226E-05, .105064E-06, .000000E+00 / DATA (UPDI(I),I=9465,9516) / + .336198E+06, .259564E+06, .197635E+06, .150412E+06, + .114458E+06, .870591E+05, .662120E+05, .503355E+05, + .382631E+05, .290751E+05, .220928E+05, .167821E+05, + .127486E+05, .968257E+04, .735504E+04, .558666E+04, + .424480E+04, .322569E+04, .245262E+04, .186555E+04, + .142021E+04, .108199E+04, .825380E+03, .630415E+03, + .482384E+03, .369791E+03, .284200E+03, .218228E+03, + .168780E+03, .131013E+03, .102152E+03, .800255E+02, + .630430E+02, .499884E+02, .398811E+02, .320394E+02, + .259370E+02, .211572E+02, .173968E+02, .144137E+02, + .120366E+02, .101216E+02, .856831E+01, .729512E+01, + .624296E+01, .536429E+01, .462696E+01, .399605E+01, + .345881E+01, .299224E+01, .258899E+01, .223757E+01 / DATA (UPDI(I),I=9517,9568) / + .193076E+01, .166269E+01, .142869E+01, .122474E+01, + .104730E+01, .893208E+00, .759578E+00, .643875E+00, + .543818E+00, .457470E+00, .382990E+00, .319254E+00, + .264279E+00, .217368E+00, .177498E+00, .143798E+00, + .115471E+00, .918273E-01, .722335E-01, .561457E-01, + .430630E-01, .325122E-01, .241932E-01, .176289E-01, + .125703E-01, .874617E-02, .591448E-02, .386703E-02, + .242673E-02, .145242E-02, .815838E-03, .425813E-03, + .201173E-03, .831990E-04, .284041E-04, .726240E-05, + .114803E-05, .669608E-07, .000000E+00, .485766E+06, + .372965E+06, .282157E+06, .213344E+06, .161276E+06, + .121850E+06, .920420E+05, .694895E+05, .524526E+05, + .395733E+05, .298517E+05, .225085E+05, .169700E+05 / DATA (UPDI(I),I=9569,9620) / + .127899E+05, .963938E+04, .726338E+04, .547382E+04, + .412507E+04, .310979E+04, .234490E+04, .176928E+04, + .133572E+04, .100949E+04, .763758E+03, .578780E+03, + .439326E+03, .334273E+03, .254046E+03, .194472E+03, + .149404E+03, .115287E+03, .893849E+02, .696930E+02, + .547030E+02, .432065E+02, .343726E+02, .275608E+02, + .222744E+02, .181514E+02, .149088E+02, .123456E+02, + .102970E+02, .864769E+01, .730579E+01, .620461E+01, + .529152E+01, .453065E+01, .388428E+01, .333791E+01, + .286707E+01, .246332E+01, .211434E+01, .181216E+01, + .155031E+01, .132356E+01, .112745E+01, .958079E+00, + .812042E+00, .686267E+00, .578107E+00, .485208E+00, + .405585E+00, .337374E+00, .279411E+00, .229771E+00 / DATA (UPDI(I),I=9621,9672) / + .187719E+00, .152243E+00, .122482E+00, .976582E-01, + .770990E-01, .601977E-01, .464340E-01, .353355E-01, + .264611E-01, .195259E-01, .141036E-01, .996511E-02, + .686755E-02, .459712E-02, .297345E-02, .184457E-02, + .109049E-02, .604415E-03, .310946E-03, .144615E-03, + .588012E-04, .197205E-04, .495995E-05, .779159E-06, + .474536E-07, .000000E+00, .680447E+06, .519772E+06, + .390880E+06, .293772E+06, .220720E+06, .165730E+06, + .124402E+06, .933220E+05, .699858E+05, .524541E+05, + .393033E+05, .294336E+05, .220372E+05, .164917E+05, + .123399E+05, .923008E+04, .690386E+04, .516301E+04, + .386187E+04, .288879E+04, .216188E+04, .161853E+04, + .121281E+04, .909608E+03, .683184E+03, .513873E+03 / DATA (UPDI(I),I=9673,9724) / + .387393E+03, .291627E+03, .221125E+03, .168258E+03, + .128587E+03, .987388E+02, .762473E+02, .592810E+02, + .463833E+02, .365612E+02, .290523E+02, .232749E+02, + .188057E+02, .153191E+02, .125839E+02, .104142E+02, + .867950E+01, .727807E+01, .613573E+01, .519491E+01, + .441619E+01, .375921E+01, .320780E+01, .273612E+01, + .233470E+01, .199046E+01, .169471E+01, .144046E+01, + .122195E+01, .103438E+01, .873541E+00, .735813E+00, + .617997E+00, .517360E+00, .431502E+00, .358413E+00, + .296223E+00, .243743E+00, .199117E+00, .161585E+00, + .130155E+00, .103984E+00, .823215E-01, .645196E-01, + .500014E-01, .382746E-01, .288979E-01, .214638E-01, + .157057E-01, .112449E-01, .787279E-02, .537375E-02 / DATA (UPDI(I),I=9725,9776) / + .356070E-02, .227831E-02, .139711E-02, .815859E-03, + .446211E-03, .226285E-03, .103620E-03, .414395E-04, + .136646E-04, .338681E-05, .530544E-06, .337940E-07, + .000000E+00, .929338E+06, .706486E+06, .528308E+06, + .394805E+06, .294922E+06, .220155E+06, .164277E+06, + .122496E+06, .913051E+05, .680100E+05, .506388E+05, + .376804E+05, .280282E+05, .208365E+05, .154858E+05, + .115036E+05, .854414E+04, .634406E+04, .471066E+04, + .349747E+04, .259748E+04, .192953E+04, .143437E+04, + .106705E+04, .794793E+03, .592761E+03, .443022E+03, + .330548E+03, .248417E+03, .187335E+03, .141876E+03, + .107960E+03, .826164E+02, .636605E+02, .493697E+02, + .385778E+02, .303943E+02, .241486E+02, .193542E+02 / DATA (UPDI(I),I=9777,9828) / + .156424E+02, .127513E+02, .104740E+02, .866553E+01, + .721415E+01, .603866E+01, .507679E+01, .428578E+01, + .362286E+01, .307026E+01, .260093E+01, .220443E+01, + .186697E+01, .157923E+01, .133372E+01, .112429E+01, + .945793E+00, .793792E+00, .664517E+00, .554668E+00, + .461458E+00, .382467E+00, .315673E+00, .259224E+00, + .211918E+00, .171975E+00, .138622E+00, .110896E+00, + .879811E-01, .691574E-01, .538081E-01, .413894E-01, + .314399E-01, .235509E-01, .173494E-01, .125884E-01, + .893383E-02, .619756E-02, .418969E-02, .274791E-02, + .173930E-02, .105433E-02, .608158E-03, .328223E-03, + .164091E-03, .739949E-04, .291133E-04, .944367E-05, + .230800E-05, .360506E-06, .239552E-07, .000000E+00 / DATA (UPDI(I),I=9829,9880) / + .124222E+07, .940033E+06, .699183E+06, .519672E+06, + .386068E+06, .286594E+06, .212647E+06, .157660E+06, + .116833E+06, .865137E+05, .640314E+05, .473569E+05, + .350086E+05, .258626E+05, .190984E+05, .140950E+05, + .103995E+05, .766949E+04, .565557E+04, .416950E+04, + .307433E+04, .226702E+04, .167262E+04, .123478E+04, + .912544E+03, .675153E+03, .500515E+03, .370330E+03, + .275991E+03, .206377E+03, .154969E+03, .116921E+03, + .887122E+02, .677824E+02, .521272E+02, .403983E+02, + .315724E+02, .248876E+02, .197935E+02, .158778E+02, + .128485E+02, .104784E+02, .860808E+01, .711654E+01, + .591593E+01, .493958E+01, .414167E+01, .347724E+01, + .292707E+01, .246301E+01, .207374E+01, .174483E+01 / DATA (UPDI(I),I=9881,9932) / + .146643E+01, .123063E+01, .103091E+01, .861876E+00, + .718909E+00, .598126E+00, .496168E+00, .410222E+00, + .337869E+00, .277098E+00, .226084E+00, .183626E+00, + .148029E+00, .118517E+00, .941630E-01, .741846E-01, + .578973E-01, .447187E-01, .341407E-01, .257347E-01, + .191251E-01, .139735E-01, .100535E-01, .707197E-02, + .486093E-02, .325445E-02, .211276E-02, .132284E-02, + .792666E-03, .451637E-03, .240540E-03, .118559E-03, + .526571E-04, .203888E-04, .650906E-05, .156938E-05, + .244341E-06, .168956E-07, .000000E+00, .162933E+07, + .122759E+07, .908352E+06, .671628E+06, .496324E+06, + .366477E+06, .270448E+06, .199416E+06, .146955E+06, + .108206E+06, .796277E+05, .585499E+05, .430274E+05 / DATA (UPDI(I),I=9933,9984) / + .315959E+05, .231897E+05, .170083E+05, .124695E+05, + .913694E+04, .669342E+04, .490161E+04, .358945E+04, + .262842E+04, .192547E+04, .141113E+04, .103515E+04, + .760073E+03, .559148E+03, .410443E+03, .303471E+03, + .225117E+03, .167683E+03, .125495E+03, .944512E+02, + .715926E+02, .546219E+02, .420026E+02, .325754E+02, + .254867E+02, .201218E+02, .160259E+02, .128776E+02, + .104299E+02, .850995E+01, .698808E+01, .577025E+01, + .478580E+01, .398611E+01, .332434E+01, .277990E+01, + .232376E+01, .194375E+01, .162493E+01, .135699E+01, + .113165E+01, .942106E+00, .782783E+00, .648925E+00, + .536579E+00, .442363E+00, .363461E+00, .297475E+00, + .242420E+00, .196516E+00, .158573E+00, .126984E+00 / DATA (UPDI(I),I=9985,10036) / + .100982E+00, .796806E-01, .623356E-01, .483021E-01, + .370347E-01, .280624E-01, .209901E-01, .154756E-01, + .112140E-01, .799990E-02, .557767E-02, .379852E-02, + .251857E-02, .161833E-02, .100232E-02, .593696E-03, + .334140E-03, .175626E-03, .853520E-04, .373435E-04, + .142339E-04, .447436E-05, .106476E-05, .165186E-06, + .118596E-07, .000000E+00, .210107E+07, .157635E+07, + .116061E+07, .853834E+06, .627758E+06, .461141E+06, + .338529E+06, .248298E+06, .181997E+06, .133280E+06, + .975391E+05, .713194E+05, .521137E+05, .380476E+05, + .277611E+05, .202399E+05, .147486E+05, .107402E+05, + .781841E+04, .568877E+04, .413866E+04, .301042E+04, + .219033E+04, .159412E+04, .116113E+04, .846438E+03 / DATA (UPDI(I),I=10037,10088) / + .618140E+03, .450338E+03, .330471E+03, .243291E+03, + .179839E+03, .133566E+03, .997580E+02, .750441E+02, + .568258E+02, .433750E+02, .333958E+02, .259431E+02, + .203396E+02, .160888E+02, .128413E+02, .103316E+02, + .837438E+01, .683185E+01, .560447E+01, .461799E+01, + .382135E+01, .316607E+01, .263038E+01, .218449E+01, + .181550E+01, .150807E+01, .125147E+01, .103715E+01, + .858103E+00, .708607E+00, .583829E+00, .479784E+00, + .393094E+00, .320966E+00, .261043E+00, .211377E+00, + .170244E+00, .136478E+00, .108563E+00, .857490E-01, + .671952E-01, .521990E-01, .401577E-01, .305643E-01, + .229854E-01, .170598E-01, .124779E-01, .896718E-02, + .634282E-02, .438311E-02, .295743E-02, .194188E-02 / DATA (UPDI(I),I=10089,10140) / + .123500E-02, .756616E-03, .443011E-03, .246292E-03, + .127761E-03, .612271E-04, .263941E-04, .990654E-05, + .306763E-05, .720778E-06, .111396E-06, .828703E-08, + .000000E+00, .266766E+07, .199332E+07, .146051E+07, + .106924E+07, .782250E+06, .571765E+06, .417617E+06, + .304741E+06, .222209E+06, .161875E+06, .117834E+06, + .856937E+05, .622736E+05, .452123E+05, .328021E+05, + .237778E+05, .172254E+05, .124694E+05, .902218E+04, + .652424E+04, .471669E+04, .340896E+04, .246416E+04, + .178153E+04, .128888E+04, .933098E+03, .676682E+03, + .489458E+03, .356612E+03, .260646E+03, .191271E+03, + .141027E+03, .104567E+03, .780982E+02, .587177E+02, + .445052E+02, .340299E+02, .262570E+02, .204490E+02 / DATA (UPDI(I),I=10141,10192) / + .160697E+02, .127434E+02, .101874E+02, .820490E+01, + .665110E+01, .542149E+01, .443869E+01, .364956E+01, + .300427E+01, .248000E+01, .204638E+01, .168992E+01, + .139490E+01, .115033E+01, .947425E+00, .779049E+00, + .639381E+00, .523563E+00, .427611E+00, .348177E+00, + .282516E+00, .228322E+00, .183702E+00, .146997E+00, + .117072E+00, .925044E-01, .725693E-01, .564747E-01, + .435623E-01, .332724E-01, .251375E-01, .187618E-01, + .138171E-01, .100256E-01, .714517E-02, .501107E-02, + .343204E-02, .229425E-02, .149178E-02, .939015E-03, + .569052E-03, .329362E-03, .180881E-03, .926095E-04, + .437693E-04, .185944E-04, .687444E-05, .209785E-05, + .486854E-06, .749418E-07, .576579E-08, .000000E+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