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

ctq4rl.F

C-----------------------------------------------------------------------
#include "pdf/pilot.h"
      Subroutine Ctq4RL (Iset)
#include "pdf/impdp.inc"
      PARAMETER (MXX = 105, MXQ = 25, MXF = 6)
      PARAMETER (MXPQX = (MXF *2 +2) * MXQ * MXX)
      PARAMETER (NxI = 90, NtI = 13, NfMxI = 5)
      COMMON / W5051IC / Al, XV(0:MXX), QL(0:MXQ), UPD(MXPQX)
      COMMON / W5051ID / Nx, Nt, NfMx
      COMMON / W5051IE / Qini, Qmax, Xmin
      DIMENSION Amass(6)
      PARAMETER (NSETS=10)
      DIMENSION 
     >  XVI(0:MXX),QLI(0:MXQ),UPDI(MXPQX),
     >  AmassI(6)
C
C-----------------------------------------------------------------------
C Parton Distribution Table : CTEQ4L
C       PARAMETER (ISET=3)                                            
        DATA  DrI, FlI, AlI /             1.,   5.,  .1810 /
        DATA  (AmassI(I),I=1,6) /     .000,     .000,     .200,
     +                                 1.600,    5.000,  180.000 /
C        DATA  NXI,  NTI, NfMxI /    90,    13,     5 /
        DATA  QINII, QMAXI, (QLI(I), I =0, NTI) /
     +  .160000D+01, .100000D+05,
     +  .160000D+01, .203730D+01, .266455D+01, .359020D+01, .500000D+01,
     +  .799639D+01, .136669D+02, .251990D+02, .506628D+02, .112437D+03,
     +  .279329D+03, .789295D+03, .258339D+04, .100000D+05 /
        DATA  XMINI, (XVI(I), I =0, NXI) /
     +  .100000D-04,
     +  .000000D+00, .999983D-05, .124433D-04, .154836D-04, .192668D-04,
     +  .239740D-04, .298310D-04, .371184D-04, .461852D-04, .574656D-04,
     +  .714994D-04, .889575D-04, .110674D-03, .137686D-03, .171280D-03,
     +  .213055D-03, .264997D-03, .329564D-03, .409809D-03, .509508D-03,
     +  .633332D-03, .787053D-03, .977784D-03, .121428D-02, .150728D-02,
     +  .186993D-02, .231825D-02, .288037D-02, .356397D-02, .440443D-02,
     +  .543508D-02, .669508D-02, .822984D-02, .100851D-01, .123281D-01,
     +  .150167D-01, .182174D-01, .219985D-01, .264278D-01, .315720D-01,
     +  .374800D-01, .442088D-01, .517931D-01, .602576D-01, .696136D-01,
     +  .798586D-01, .909356D-01, .102935D+00, .115681D+00, .129293D+00,
     +  .143599D+00, .158606D+00, .174271D+00, .190550D+00, .207405D+00,
     +  .224796D+00, .242685D+00, .261038D+00, .279820D+00, .299001D+00,
     +  .318550D+00, .338442D+00, .358653D+00, .379067D+00, .399881D+00,
     +  .420953D+00, .442266D+00, .463806D+00, .485559D+00, .507513D+00,
     +  .529656D+00, .551978D+00, .574483D+00, .597187D+00, .619860D+00,
     +  .642828D+00, .665921D+00, .689135D+00, .712467D+00, .735911D+00,
     +  .759464D+00, .783080D+00, .806909D+00, .830741D+00, .854673D+00,
     +  .878696D+00, .902804D+00, .926992D+00, .951257D+00, .975603D+00,
     +  .100000D+01 /
C Parton Distribution Table:                                                     
        DATA (UPDI(I),I=1,52) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=53,104) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=105,156) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=157,208) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=209,260) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=261,312) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=313,364) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=365,416) /
     +  .278665D+06, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=417,468) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .132963D+06,
     +  .100189D+06, .741546D+05, .548596D+05, .405595D+05,
     +  .299670D+05, .221256D+05, .163242D+05, .120349D+05,
     +  .886568D+04, .652565D+04, .479912D+04, .352623D+04 /
        DATA (UPDI(I),I=469,520) /
     +  .258852D+04, .189832D+04, .139072D+04, .101777D+04,
     +  .743999D+03, .543244D+03, .396178D+03, .288567D+03,
     +  .209911D+03, .152492D+03, .110625D+03, .801401D+02,
     +  .579715D+02, .418800D+02, .300726D+02, .216679D+02,
     +  .155921D+02, .112068D+02, .804661D+01, .577271D+01,
     +  .414331D+01, .297103D+01, .213137D+01, .153051D+01,
     +  .110076D+01, .793429D+00, .573441D+00, .416033D+00,
     +  .303007D+00, .221688D+00, .162989D+00, .120455D+00,
     +  .894941D-01, .669241D-01, .502184D-01, .379402D-01,
     +  .287514D-01, .219060D-01, .167564D-01, .128616D-01,
     +  .990087D-02, .763937D-02, .590448D-02, .456844D-02,
     +  .353613D-02, .273626D-02, .211510D-02, .163190D-02,
     +  .125570D-02, .962520D-03, .735143D-03, .557137D-03 /
        DATA (UPDI(I),I=521,572) /
     +  .419009D-03, .312138D-03, .229783D-03, .166661D-03,
     +  .118615D-03, .823654D-04, .553106D-04, .354601D-04,
     +  .210951D-04, .110714D-04, .421785D-05, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .305489D+06, .229635D+06,
     +  .169475D+06, .125009D+06, .921462D+05, .678731D+05,
     +  .499564D+05, .367403D+05, .269984D+05, .198226D+05,
     +  .145411D+05, .106568D+05, .780258D+04, .570697D+04,
     +  .416980D+04, .304328D+04, .221856D+04, .161538D+04,
     +  .117474D+04, .853172D+03, .618801D+03, .448180D+03,
     +  .324140D+03, .234076D+03, .168783D+03, .121506D+03 /
        DATA (UPDI(I),I=573,624) /
     +  .873488D+02, .624023D+02, .447306D+02, .320177D+02,
     +  .228879D+02, .163426D+02, .116576D+02, .831850D+01,
     +  .592935D+01, .422774D+01, .301704D+01, .215618D+01,
     +  .154419D+01, .110877D+01, .799112D+00, .578130D+00,
     +  .420127D+00, .306786D+00, .225177D+00, .166141D+00,
     +  .123382D+00, .919300D-01, .689634D-01, .518861D-01,
     +  .392470D-01, .298013D-01, .227053D-01, .173476D-01,
     +  .132838D-01, .101885D-01, .782234D-02, .600797D-02,
     +  .461317D-02, .353884D-02, .271020D-02, .207067D-02,
     +  .157681D-02, .119742D-02, .903284D-03, .677333D-03,
     +  .504289D-03, .372294D-03, .272127D-03, .196591D-03,
     +  .140067D-03, .981673D-04, .674484D-04, .451910D-04,
     +  .294801D-04, .184481D-04, .109576D-04, .603335D-05 /
        DATA (UPDI(I),I=625,676) /
     +  .293292D-05, .109535D-05, .103726D-06, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .524297D+06, .393110D+06, .289242D+06,
     +  .212693D+06, .156286D+06, .114749D+06, .841828D+05,
     +  .617065D+05, .451914D+05, .330660D+05, .241709D+05,
     +  .176510D+05, .128765D+05, .938318D+04, .682990D+04,
     +  .496551D+04, .360565D+04, .261482D+04, .189377D+04,
     +  .136963D+04, .989151D+03, .713289D+03, .513582D+03,
     +  .369190D+03, .264970D+03, .189836D+03, .135807D+03,
     +  .965303D+02, .688411D+02, .490188D+02, .348540D+02,
     +  .247509D+02, .175566D+02, .124564D+02, .882699D+01,
     +  .625630D+01, .443759D+01, .315180D+01, .224308D+01 /
        DATA (UPDI(I),I=677,728) /
     +  .160034D+01, .114597D+01, .823676D+00, .594634D+00,
     +  .431340D+00, .314490D+00, .230478D+00, .170009D+00,
     +  .125806D+00, .937315D-01, .700327D-01, .526046D-01,
     +  .396638D-01, .300051D-01, .227608D-01, .173028D-01,
     +  .131741D-01, .100400D-01, .765394D-02, .583308D-02,
     +  .444115D-02, .337585D-02, .256023D-02, .193549D-02,
     +  .145956D-02, .109378D-02, .815267D-03, .603886D-03,
     +  .444113D-03, .323965D-03, .234167D-03, .167543D-03,
     +  .118540D-03, .828232D-04, .570586D-04, .388803D-04,
     +  .260468D-04, .172055D-04, .112191D-04, .723989D-05,
     +  .464030D-05, .297433D-05, .191524D-05, .123851D-05,
     +  .803010D-06, .512406D-06, .311845D-06, .171966D-06,
     +  .790334D-07, .241300D-07, .198761D-08, .000000D+00 /
        DATA (UPDI(I),I=729,780) /
     +  .796347D+06, .595511D+06, .436780D+06, .320154D+06,
     +  .234481D+06, .171591D+06, .125460D+06, .916482D+05,
     +  .668863D+05, .487670D+05, .355202D+05, .258442D+05,
     +  .187834D+05, .136359D+05, .988732D+04, .716023D+04,
     +  .517863D+04, .374034D+04, .269774D+04, .194289D+04,
     +  .139716D+04, .100311D+04, .719042D+03, .514536D+03,
     +  .367576D+03, .262093D+03, .186594D+03, .131966D+03,
     +  .936381D+02, .663325D+02, .469166D+02, .331381D+02,
     +  .233769D+02, .164932D+02, .116208D+02, .818845D+01,
     +  .577361D+01, .407598D+01, .288305D+01, .204417D+01,
     +  .145461D+01, .103888D+01, .745197D+00, .537069D+00,
     +  .389037D+00, .283243D+00, .207563D+00, .152574D+00,
     +  .112920D+00, .838022D-01, .625224D-01, .468207D-01 /
        DATA (UPDI(I),I=781,832) /
     +  .351761D-01, .264984D-01, .200032D-01, .151226D-01,
     +  .114429D-01, .866079D-02, .655273D-02, .495288D-02,
     +  .373753D-02, .281412D-02, .211223D-02, .158178D-02,
     +  .117739D-02, .872035D-03, .642229D-03, .470001D-03,
     +  .341584D-03, .246404D-03, .176352D-03, .125205D-03,
     +  .881595D-04, .615613D-04, .428317D-04, .295812D-04,
     +  .203776D-04, .140382D-04, .969633D-05, .672368D-05,
     +  .468307D-05, .326037D-05, .224493D-05, .151202D-05,
     +  .974170D-06, .582408D-06, .308228D-06, .132863D-06,
     +  .376866D-07, .321032D-08, .000000D+00, .112848D+07,
     +  .841593D+06, .615267D+06, .449498D+06, .328114D+06,
     +  .239297D+06, .174363D+06, .126928D+06, .923070D+05,
     +  .670598D+05, .486662D+05, .352783D+05, .255438D+05 /
        DATA (UPDI(I),I=833,884) /
     +  .184730D+05, .133428D+05, .962462D+04, .693319D+04,
     +  .498724D+04, .358223D+04, .256904D+04, .183953D+04,
     +  .131497D+04, .938417D+03, .668486D+03, .475360D+03,
     +  .337349D+03, .239025D+03, .168212D+03, .118765D+03,
     +  .837060D+02, .588988D+02, .413822D+02, .290355D+02,
     +  .203734D+02, .142744D+02, .100010D+02, .701081D+01,
     +  .492027D+01, .345948D+01, .243803D+01, .172427D+01,
     +  .122386D+01, .872411D+00, .624801D+00, .449728D+00,
     +  .325341D+00, .236892D+00, .173005D+00, .127214D+00,
     +  .937919D-01, .695158D-01, .517134D-01, .385928D-01,
     +  .288768D-01, .216508D-01, .162564D-01, .122160D-01,
     +  .918181D-02, .689847D-02, .517774D-02, .387989D-02,
     +  .290104D-02, .216248D-02, .160855D-02, .118952D-02 /
        DATA (UPDI(I),I=885,936) /
     +  .875588D-03, .641211D-03, .466957D-03, .338057D-03,
     +  .243257D-03, .174001D-03, .123768D-03, .875965D-04,
     +  .617294D-04, .435440D-04, .306536D-04, .216377D-04,
     +  .153425D-04, .109345D-04, .782185D-05, .559704D-05,
     +  .397531D-05, .276671D-05, .186425D-05, .118947D-05,
     +  .697546D-06, .358819D-06, .148612D-06, .402293D-07,
     +  .349213D-08, .000000D+00, .152723D+07, .113585D+07,
     +  .827651D+06, .602643D+06, .438415D+06, .318647D+06,
     +  .231375D+06, .167838D+06, .121623D+06, .880382D+05,
     +  .636565D+05, .459734D+05, .331624D+05, .238911D+05,
     +  .171893D+05, .123505D+05, .886126D+04, .634832D+04,
     +  .454110D+04, .324309D+04, .231232D+04, .164579D+04,
     +  .116935D+04, .829272D+03, .587015D+03, .414649D+03 /
        DATA (UPDI(I),I=937,988) /
     +  .292413D+03, .204783D+03, .143879D+03, .100902D+03,
     +  .706385D+02, .493742D+02, .344605D+02, .240505D+02,
     +  .167586D+02, .116762D+02, .813884D+01, .567914D+01,
     +  .396980D+01, .278117D+01, .195523D+01, .137943D+01,
     +  .977333D+00, .695657D+00, .497647D+00, .357768D+00,
     +  .258885D+00, .187873D+00, .137278D+00, .100566D+00,
     +  .740605D-01, .547398D-01, .405866D-01, .301705D-01,
     +  .224721D-01, .167613D-01, .125114D-01, .934085D-02,
     +  .697075D-02, .519675D-02, .386798D-02, .287290D-02,
     +  .212740D-02, .157234D-02, .115555D-02, .845635D-03,
     +  .615995D-03, .446540D-03, .322117D-03, .231261D-03,
     +  .165327D-03, .117785D-03, .837224D-04, .594364D-04,
     +  .423746D-04, .302487D-04, .217076D-04, .156697D-04 /
        DATA (UPDI(I),I=989,1040) /
     +  .113642D-04, .825288D-05, .596837D-05, .426071D-05,
     +  .296193D-05, .198090D-05, .124676D-05, .716879D-06,
     +  .359257D-06, .143690D-06, .373766D-07, .329571D-08,
     +  .000000D+00, .199870D+07, .148239D+07, .107658D+07,
     +  .781264D+06, .566429D+06, .410272D+06, .296869D+06,
     +  .214587D+06, .154944D+06, .111753D+06, .805074D+05,
     +  .579275D+05, .416284D+05, .298759D+05, .214123D+05,
     +  .153245D+05, .109514D+05, .781416D+04, .556683D+04,
     +  .395916D+04, .281100D+04, .199218D+04, .140933D+04,
     +  .995044D+03, .701203D+03, .493038D+03, .346083D+03,
     +  .241210D+03, .168660D+03, .117703D+03, .819911D+02,
     +  .570196D+02, .395913D+02, .274867D+02, .190506D+02,
     +  .132011D+02, .915097D+01, .634961D+01, .441328D+01 /
        DATA (UPDI(I),I=1041,1092) /
     +  .307407D+01, .214860D+01, .150695D+01, .106136D+01,
     +  .750954D+00, .533979D+00, .381561D+00, .274431D+00,
     +  .197930D+00, .143739D+00, .104647D+00, .765859D-01,
     +  .562520D-01, .414452D-01, .306134D-01, .226565D-01,
     +  .167904D-01, .124524D-01, .923658D-02, .684824D-02,
     +  .507234D-02, .375107D-02, .276836D-02, .203715D-02,
     +  .149652D-02, .109344D-02, .795846D-03, .576905D-03,
     +  .416480D-03, .299492D-03, .214621D-03, .153397D-03,
     +  .109474D-03, .781311D-04, .558281D-04, .401537D-04,
     +  .289744D-04, .210413D-04, .153675D-04, .112582D-04,
     +  .823536D-05, .597433D-05, .425950D-05, .294336D-05,
     +  .194768D-05, .120736D-05, .680559D-06, .332555D-06,
     +  .128736D-06, .322975D-07, .288884D-08, .000000D+00 /
        DATA (UPDI(I),I=1093,1144) /
     +  .254837D+07, .188486D+07, .136432D+07, .986753D+06,
     +  .712982D+06, .514648D+06, .371099D+06, .267300D+06,
     +  .192319D+06, .138210D+06, .992042D+05, .711171D+05,
     +  .509158D+05, .364031D+05, .259905D+05, .185288D+05,
     +  .131893D+05, .937343D+04, .665069D+04, .471063D+04,
     +  .333066D+04, .235051D+04, .165571D+04, .116392D+04,
     +  .816591D+03, .571584D+03, .399393D+03, .277058D+03,
     +  .192815D+03, .133917D+03, .928312D+02, .642387D+02,
     +  .443789D+02, .306529D+02, .211343D+02, .145673D+02,
     +  .100436D+02, .693092D+01, .479065D+01, .331821D+01,
     +  .230610D+01, .160815D+01, .112609D+01, .792119D+00,
     +  .559953D+00, .397758D+00, .284391D+00, .203885D+00,
     +  .147179D+00, .106503D+00, .774721D-01, .565564D-01 /
        DATA (UPDI(I),I=1145,1196) /
     +  .414142D-01, .304021D-01, .223609D-01, .164683D-01,
     +  .121373D-01, .894655D-02, .659175D-02, .485197D-02,
     +  .356597D-02, .261580D-02, .191344D-02, .139763D-02,
     +  .101564D-02, .735536D-03, .530837D-03, .381833D-03,
     +  .273859D-03, .195988D-03, .140107D-03, .100186D-03,
     +  .717866D-04, .515964D-04, .373870D-04, .272081D-04,
     +  .199289D-04, .146657D-04, .108032D-04, .792297D-05,
     +  .574147D-05, .407414D-05, .279132D-05, .182464D-05,
     +  .111317D-05, .615068D-06, .293209D-06, .110013D-06,
     +  .266914D-07, .241982D-08, .000000D+00, .318100D+07,
     +  .234634D+07, .169273D+07, .122018D+07, .878665D+06,
     +  .632075D+06, .454198D+06, .326013D+06, .233733D+06,
     +  .167371D+06, .119702D+06, .854973D+05, .609847D+05 /
        DATA (UPDI(I),I=1197,1248) /
     +  .434387D+05, .308961D+05, .219415D+05, .155579D+05,
     +  .110132D+05, .778304D+04, .549038D+04, .386610D+04,
     +  .271706D+04, .190585D+04, .133404D+04, .931883D+03,
     +  .649398D+03, .451740D+03, .311929D+03, .216082D+03,
     +  .149374D+03, .103053D+03, .709669D+02, .487853D+02,
     +  .335281D+02, .229989D+02, .157704D+02, .108160D+02,
     +  .742415D+01, .510386D+01, .351581D+01, .242992D+01,
     +  .168504D+01, .117328D+01, .820629D+00, .576794D+00,
     +  .407360D+00, .289579D+00, .206391D+00, .148120D+00,
     +  .106552D+00, .770506D-01, .559151D-01, .407007D-01,
     +  .296995D-01, .217128D-01, .158946D-01, .116437D-01,
     +  .853087D-02, .624762D-02, .457117D-02, .333976D-02,
     +  .243572D-02, .177169D-02, .128717D-02, .930657D-03 /
        DATA (UPDI(I),I=1249,1300) /
     +  .670910D-03, .482289D-03, .345827D-03, .247513D-03,
     +  .176983D-03, .126596D-03, .907234D-04, .652586D-04,
     +  .471531D-04, .343814D-04, .251864D-04, .185597D-04,
     +  .137204D-04, .101300D-04, .742536D-05, .536071D-05,
     +  .377800D-05, .256251D-05, .165318D-05, .992160D-06,
     +  .537378D-06, .250008D-06, .910197D-07, .214023D-07,
     +  .196555D-08, .000000D+00, .100081D+06, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=1301,1352) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=1353,1404) /
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .325100D+05, .247910D+05, .186121D+05,
     +  .139736D+05, .104900D+05, .787396D+04, .590965D+04,
     +  .443482D+04, .332760D+04, .249646D+04, .187263D+04,
     +  .140446D+04, .105315D+04, .789562D+03, .591832D+03,
     +  .443523D+03, .332305D+03, .248914D+03, .186403D+03,
     +  .139551D+03, .104446D+03, .781476D+02, .584526D+02,
     +  .437065D+02, .326697D+02, .244110D+02, .182346D+02,
     +  .135604D+02, .101247D+02, .755786D+01, .564094D+01,
     +  .421012D+01, .314260D+01, .234861D+01, .175511D+01,
     +  .131305D+01, .983816D+00, .738593D+00, .555868D+00 /
        DATA (UPDI(I),I=1405,1456) /
     +  .419542D+00, .317850D+00, .241724D+00, .184627D+00,
     +  .141671D+00, .109240D+00, .846528D-01, .659929D-01,
     +  .516206D-01, .406316D-01, .320803D-01, .254579D-01,
     +  .202805D-01, .162118D-01, .129980D-01, .104473D-01,
     +  .841376D-02, .678573D-02, .547753D-02, .442286D-02,
     +  .357024D-02, .287923D-02, .231840D-02, .186237D-02,
     +  .149292D-02, .119046D-02, .944650D-03, .745170D-03,
     +  .583626D-03, .453232D-03, .348403D-03, .264621D-03,
     +  .197984D-03, .145624D-03, .104699D-03, .734466D-04,
     +  .496152D-04, .319365D-04, .191640D-04, .102270D-04,
     +  .429731D-05, .582331D-06, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=1457,1508) /
     +  .773370D+05, .588903D+05, .441370D+05, .330771D+05,
     +  .247837D+05, .185657D+05, .139047D+05, .104113D+05,
     +  .779370D+04, .583264D+04, .436380D+04, .326388D+04,
     +  .244044D+04, .182414D+04, .136300D+04, .101805D+04,
     +  .760106D+03, .567281D+03, .423190D+03, .315553D+03,
     +  .235182D+03, .175193D+03, .130440D+03, .970655D+02,
     +  .721921D+02, .536603D+02, .398669D+02, .294787D+02,
     +  .218820D+02, .162361D+02, .120429D+02, .893090D+01,
     +  .662265D+01, .491627D+01, .364877D+01, .271073D+01,
     +  .201672D+01, .150325D+01, .112324D+01, .841667D+00,
     +  .633074D+00, .477997D+00, .362484D+00, .276173D+00,
     +  .211453D+00, .162712D+00, .125969D+00, .978518D-01,
     +  .764940D-01, .599806D-01, .472736D-01, .374024D-01 /
        DATA (UPDI(I),I=1509,1560) /
     +  .296942D-01, .236444D-01, .188735D-01, .150945D-01,
     +  .120891D-01, .969039D-02, .776989D-02, .622826D-02,
     +  .498811D-02, .398902D-02, .318292D-02, .253513D-02,
     +  .200917D-02, .158539D-02, .124448D-02, .970873D-03,
     +  .752000D-03, .577638D-03, .439449D-03, .330621D-03,
     +  .245569D-03, .179584D-03, .129420D-03, .912071D-04,
     +  .627684D-04, .419832D-04, .271229D-04, .167820D-04,
     +  .981911D-05, .534013D-05, .259992D-05, .106568D-05,
     +  .299579D-06, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .137095D+06,
     +  .104214D+06, .779440D+05, .582865D+05, .435741D+05,
     +  .325654D+05, .243302D+05, .181714D+05, .135668D+05,
     +  .101253D+05, .755377D+04, .563302D+04, .419886D+04 /
        DATA (UPDI(I),I=1561,1612) /
     +  .312840D+04, .232973D+04, .173407D+04, .129004D+04,
     +  .959161D+03, .712741D+03, .529302D+03, .392831D+03,
     +  .291350D+03, .215941D+03, .159935D+03, .118371D+03,
     +  .875393D+02, .646982D+02, .475782D+02, .351209D+02,
     +  .259098D+02, .191050D+02, .140824D+02, .103779D+02,
     +  .765527D+01, .564489D+01, .416614D+01, .307889D+01,
     +  .227955D+01, .169178D+01, .125906D+01, .940588D+00,
     +  .705357D+00, .531278D+00, .402048D+00, .305770D+00,
     +  .233722D+00, .179753D+00, .138709D+00, .107727D+00,
     +  .839192D-01, .657114D-01, .516528D-01, .407414D-01,
     +  .322297D-01, .255583D-01, .203065D-01, .161559D-01,
     +  .128641D-01, .102456D-01, .815748D-02, .648909D-02,
     +  .515424D-02, .408478D-02, .323158D-02, .254400D-02 /
        DATA (UPDI(I),I=1613,1664) /
     +  .199423D-02, .155543D-02, .120609D-02, .928901D-03,
     +  .709907D-03, .537772D-03, .403376D-03, .299134D-03,
     +  .218902D-03, .158339D-03, .112477D-03, .784948D-04,
     +  .536959D-04, .359279D-04, .234417D-04, .148894D-04,
     +  .918520D-05, .547268D-05, .315573D-05, .175057D-05,
     +  .926526D-06, .455826D-06, .198433D-06, .627099D-07,
     +  .455117D-08, .000000D+00, .239826D+06, .162828D+06,
     +  .121498D+06, .906360D+05, .675886D+05, .503824D+05,
     +  .375412D+05, .279610D+05, .208163D+05, .154901D+05,
     +  .115210D+05, .856452D+04, .636332D+04, .472517D+04,
     +  .350669D+04, .260079D+04, .192768D+04, .142780D+04,
     +  .105681D+04, .781624D+03, .577662D+03, .426577D+03,
     +  .314755D+03, .232044D+03, .170923D+03, .125781D+03 /
        DATA (UPDI(I),I=1665,1716) /
     +  .924920D+02, .676585D+02, .496766D+02, .364468D+02,
     +  .267232D+02, .195841D+02, .143471D+02, .105195D+02,
     +  .770934D+01, .565431D+01, .415228D+01, .305466D+01,
     +  .225245D+01, .166550D+01, .123617D+01, .921021D+00,
     +  .689239D+00, .518231D+00, .391611D+00, .297427D+00,
     +  .227305D+00, .174293D+00, .134516D+00, .104131D+00,
     +  .810287D-01, .632955D-01, .496126D-01, .390016D-01,
     +  .307339D-01, .242641D-01, .191817D-01, .151755D-01,
     +  .120085D-01, .949900D-02, .750683D-02, .592349D-02,
     +  .466337D-02, .366499D-02, .286609D-02, .223194D-02,
     +  .172954D-02, .133258D-02, .102004D-02, .775039D-03,
     +  .583984D-03, .436000D-03, .322109D-03, .235121D-03,
     +  .169935D-03, .120898D-03, .847634D-04, .584977D-04 /
        DATA (UPDI(I),I=1717,1768) /
     +  .397046D-04, .264652D-04, .173288D-04, .111341D-04,
     +  .698958D-05, .428861D-05, .254528D-05, .143568D-05,
     +  .741154D-06, .327770D-06, .100882D-06, .789558D-08,
     +  .000000D+00, .341951D+06, .258728D+06, .192441D+06,
     +  .143089D+06, .106345D+06, .789983D+05, .586547D+05,
     +  .435272D+05, .322836D+05, .239307D+05, .177284D+05,
     +  .131254D+05, .971126D+04, .718026D+04, .530516D+04,
     +  .391680D+04, .288955D+04, .212997D+04, .156876D+04,
     +  .115439D+04, .848712D+03, .623376D+03, .457433D+03,
     +  .335318D+03, .245558D+03, .179619D+03, .131271D+03,
     +  .954125D+02, .696018D+02, .507276D+02, .369420D+02,
     +  .268854D+02, .195565D+02, .142358D+02, .103562D+02,
     +  .753894D+01, .549444D+01, .401115D+01, .293500D+01 /
        DATA (UPDI(I),I=1769,1820) /
     +  .215338D+01, .158589D+01, .117241D+01, .870560D+00,
     +  .649505D+00, .487035D+00, .367063D+00, .278395D+00,
     +  .211842D+00, .162266D+00, .124664D+00, .962788D-01,
     +  .746444D-01, .580691D-01, .453058D-01, .354316D-01,
     +  .277598D-01, .217762D-01, .170938D-01, .134193D-01,
     +  .105292D-01, .825202D-02, .645612D-02, .503771D-02,
     +  .392281D-02, .303789D-02, .234131D-02, .179421D-02,
     +  .136580D-02, .103165D-02, .772307D-03, .572212D-03,
     +  .418968D-03, .302615D-03, .214972D-03, .150382D-03,
     +  .102743D-03, .684710D-04, .442982D-04, .276540D-04,
     +  .165196D-04, .933641D-05, .491931D-05, .234385D-05,
     +  .972839D-06, .320666D-06, .644642D-07, .000000D+00,
     +  .000000D+00, .518533D-09, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=1821,1872) /
     +  .508980D+06, .383992D+06, .284630D+06, .210892D+06,
     +  .156173D+06, .115587D+06, .854987D+05, .632041D+05,
     +  .466936D+05, .344732D+05, .254337D+05, .187509D+05,
     +  .138138D+05, .101687D+05, .747933D+04, .549655D+04,
     +  .403588D+04, .296061D+04, .216977D+04, .158857D+04,
     +  .116188D+04, .848873D+03, .619522D+03, .451610D+03,
     +  .328838D+03, .239128D+03, .173722D+03, .125486D+03,
     +  .909690D+02, .658780D+02, .476628D+02, .344574D+02,
     +  .248945D+02, .179969D+02, .130005D+02, .939656D+01,
     +  .679897D+01, .492739D+01, .357898D+01, .260649D+01,
     +  .190538D+01, .139815D+01, .103048D+01, .763121D+00,
     +  .568002D+00, .424922D+00, .319917D+00, .241642D+00,
     +  .183739D+00, .140124D+00, .107425D+00, .826749D-01 /
        DATA (UPDI(I),I=1873,1924) /
     +  .638428D-01, .494421D-01, .383789D-01, .298439D-01,
     +  .232346D-01, .181002D-01, .141006D-01, .109785D-01,
     +  .853744D-02, .662739D-02, .513078D-02, .396405D-02,
     +  .304576D-02, .232914D-02, .177124D-02, .133829D-02,
     +  .100369D-02, .746392D-03, .549740D-03, .400543D-03,
     +  .288295D-03, .204501D-03, .143262D-03, .984246D-04,
     +  .663514D-04, .437990D-04, .282513D-04, .177676D-04,
     +  .108811D-04, .648759D-05, .375200D-05, .211553D-05,
     +  .115847D-05, .610170D-06, .299745D-06, .128077D-06,
     +  .379797D-07, .291259D-08, .000000D+00, .722429D+06,
     +  .543391D+06, .401344D+06, .296288D+06, .218599D+06,
     +  .161178D+06, .118763D+06, .874499D+05, .643472D+05,
     +  .473127D+05, .347611D+05, .255188D+05, .187183D+05 /
        DATA (UPDI(I),I=1925,1976) /
     +  .137181D+05, .100446D+05, .734784D+04, .536989D+04,
     +  .392034D+04, .285910D+04, .208281D+04, .151561D+04,
     +  .110154D+04, .799653D+03, .579753D+03, .419803D+03,
     +  .303541D+03, .219242D+03, .157419D+03, .113431D+03,
     +  .816394D+02, .586958D+02, .421626D+02, .302630D+02,
     +  .217334D+02, .155941D+02, .111943D+02, .804379D+01,
     +  .578886D+01, .417514D+01, .301911D+01, .219134D+01,
     +  .159651D+01, .116828D+01, .858993D+00, .634807D+00,
     +  .471512D+00, .352480D+00, .264340D+00, .199577D+00,
     +  .151119D+00, .115032D+00, .878994D-01, .673928D-01,
     +  .518174D-01, .399330D-01, .308274D-01, .238253D-01,
     +  .184240D-01, .142468D-01, .110097D-01, .849766D-02,
     +  .654698D-02, .503024D-02, .385715D-02, .294129D-02 /
        DATA (UPDI(I),I=1977,2028) /
     +  .223246D-02, .168527D-02, .126427D-02, .941733D-03,
     +  .695886D-03, .509645D-03, .369587D-03, .265120D-03,
     +  .187775D-03, .131680D-03, .908760D-04, .618308D-04,
     +  .414543D-04, .273825D-04, .178209D-04, .114380D-04,
     +  .724437D-05, .450902D-05, .275660D-05, .163330D-05,
     +  .916265D-06, .465931D-06, .197964D-06, .564371D-07,
     +  .462815D-08, .000000D+00, .989256D+06, .741818D+06,
     +  .545905D+06, .401518D+06, .295122D+06, .216768D+06,
     +  .159102D+06, .116689D+06, .855162D+05, .626200D+05,
     +  .458157D+05, .334915D+05, .244603D+05, .178474D+05,
     +  .130096D+05, .947344D+04, .689118D+04, .500718D+04,
     +  .363415D+04, .263443D+04, .190742D+04, .137924D+04,
     +  .996046D+03, .718311D+03, .517324D+03, .371986D+03 /
        DATA (UPDI(I),I=2029,2080) /
     +  .267171D+03, .190719D+03, .136624D+03, .977484D+02,
     +  .698522D+02, .498675D+02, .355688D+02, .253813D+02,
     +  .180936D+02, .129033D+02, .921026D+01, .658383D+01,
     +  .471635D+01, .338722D+01, .244168D+01, .176667D+01,
     +  .128390D+01, .937494D+00, .688050D+00, .507534D+00,
     +  .376808D+00, .280631D+00, .210424D+00, .158233D+00,
     +  .119618D+00, .907728D-01, .691140D-01, .527714D-01,
     +  .403841D-01, .309567D-01, .237562D-01, .182400D-01,
     +  .140037D-01, .107441D-01, .823280D-02, .629708D-02,
     +  .480312D-02, .365644D-02, .276815D-02, .208611D-02,
     +  .156384D-02, .116529D-02, .862476D-03, .633575D-03,
     +  .461607D-03, .333335D-03, .238419D-03, .168665D-03,
     +  .118413D-03, .820612D-04, .562805D-04, .382133D-04 /
        DATA (UPDI(I),I=2081,2132) /
     +  .257008D-04, .171304D-04, .113209D-04, .741036D-05,
     +  .477137D-05, .300675D-05, .182146D-05, .103209D-05,
     +  .522355D-06, .216872D-06, .596064D-07, .502921D-08,
     +  .000000D+00, .131629D+07, .984023D+06, .721488D+06,
     +  .528687D+06, .387125D+06, .283255D+06, .207092D+06,
     +  .151285D+06, .110424D+06, .805292D+05, .586746D+05,
     +  .427106D+05, .310599D+05, .225642D+05, .163751D+05,
     +  .118705D+05, .859536D+04, .621641D+04, .449045D+04,
     +  .323950D+04, .233403D+04, .167931D+04, .120659D+04,
     +  .865651D+03, .620158D+03, .443531D+03, .316822D+03,
     +  .224888D+03, .160193D+03, .113951D+03, .809545D+02,
     +  .574495D+02, .407285D+02, .288849D+02, .204626D+02,
     +  .145004D+02, .102840D+02, .730375D+01, .519791D+01 /
        DATA (UPDI(I),I=2133,2184) /
     +  .370849D+01, .265560D+01, .190869D+01, .137787D+01,
     +  .999405D+00, .728597D+00, .533851D+00, .393713D+00,
     +  .291256D+00, .216938D+00, .162037D+00, .121675D+00,
     +  .917148D-01, .693617D-01, .526031D-01, .399824D-01,
     +  .304400D-01, .231997D-01, .176902D-01, .134877D-01,
     +  .102764D-01, .781964D-02, .593948D-02, .449878D-02,
     +  .340114D-02, .255719D-02, .191412D-02, .142550D-02,
     +  .105552D-02, .776619D-03, .567442D-03, .411510D-03,
     +  .296072D-03, .211275D-03, .149365D-03, .105019D-03,
     +  .730804D-04, .504856D-04, .346474D-04, .236351D-04,
     +  .160279D-04, .107960D-04, .720241D-05, .471524D-05,
     +  .300581D-05, .182862D-05, .103134D-05, .514403D-06,
     +  .207827D-06, .551054D-07, .474500D-08, .000000D+00 /
        DATA (UPDI(I),I=2185,2236) /
     +  .171008D+07, .127450D+07, .931042D+06, .679711D+06,
     +  .495839D+06, .361414D+06, .263213D+06, .191527D+06,
     +  .139241D+06, .101134D+06, .733849D+05, .531963D+05,
     +  .385217D+05, .278650D+05, .201339D+05, .145307D+05,
     +  .104744D+05, .754079D+04, .542187D+04, .389302D+04,
     +  .279146D+04, .199864D+04, .142893D+04, .102000D+04,
     +  .726994D+03, .517221D+03, .367505D+03, .259439D+03,
     +  .183792D+03, .130010D+03, .918400D+02, .647993D+02,
     +  .456701D+02, .321974D+02, .226717D+02, .159676D+02,
     +  .112544D+02, .794299D+01, .561717D+01, .398212D+01,
     +  .283331D+01, .202333D+01, .145121D+01, .104580D+01,
     +  .757491D+00, .551423D+00, .404050D+00, .296957D+00,
     +  .219754D+00, .163072D+00, .121656D+00, .911029D-01 /
        DATA (UPDI(I),I=2237,2288) /
     +  .684487D-01, .515704D-01, .389394D-01, .294500D-01,
     +  .222962D-01, .168879D-01, .127899D-01, .967940D-02,
     +  .731599D-02, .551976D-02, .415294D-02, .311897D-02,
     +  .232971D-02, .173271D-02, .128244D-02, .944039D-03,
     +  .690828D-03, .502317D-03, .362803D-03, .260231D-03,
     +  .185381D-03, .131045D-03, .923097D-04, .645036D-04,
     +  .448574D-04, .310663D-04, .214302D-04, .147153D-04,
     +  .100349D-04, .676655D-05, .446234D-05, .285116D-05,
     +  .172791D-05, .964104D-06, .472035D-06, .185346D-06,
     +  .474753D-07, .415865D-08, .000000D+00, .217671D+07,
     +  .161736D+07, .117721D+07, .856265D+06, .622303D+06,
     +  .451880D+06, .327838D+06, .237626D+06, .172075D+06,
     +  .124484D+06, .899631D+05, .649463D+05, .468350D+05 /
        DATA (UPDI(I),I=2289,2340) /
     +  .337356D+05, .242715D+05, .174408D+05, .125167D+05,
     +  .897088D+04, .642087D+04, .458909D+04, .327519D+04,
     +  .233384D+04, .166053D+04, .117951D+04, .836492D+03,
     +  .592098D+03, .418545D+03, .293904D+03, .207101D+03,
     +  .145707D+03, .102364D+03, .718220D+02, .503327D+02,
     +  .352809D+02, .246979D+02, .172918D+02, .121148D+02,
     +  .849846D+01, .597330D+01, .420850D+01, .297584D+01,
     +  .211188D+01, .150525D+01, .107794D+01, .775876D+00,
     +  .561249D+00, .408672D+00, .298453D+00, .219473D+00,
     +  .161832D+00, .119967D+00, .892691D-01, .666447D-01,
     +  .498912D-01, .374306D-01, .281272D-01, .211576D-01,
     +  .159220D-01, .119803D-01, .900801D-02, .676453D-02,
     +  .507087D-02, .379076D-02, .282904D-02, .210003D-02 /
        DATA (UPDI(I),I=2341,2392) /
     +  .155247D-02, .114241D-02, .836401D-03, .609037D-03,
     +  .440936D-03, .317357D-03, .227074D-03, .161577D-03,
     +  .114262D-03, .806621D-04, .565960D-04, .395951D-04,
     +  .276316D-04, .192263D-04, .133182D-04, .915091D-05,
     +  .620248D-05, .409685D-05, .260993D-05, .156884D-05,
     +  .863266D-06, .414117D-06, .157988D-06, .391549D-07,
     +  .348320D-08, .000000D+00, .272166D+07, .201624D+07,
     +  .146227D+07, .105974D+07, .767347D+06, .555125D+06,
     +  .401222D+06, .289705D+06, .208976D+06, .150585D+06,
     +  .108394D+06, .779370D+05, .559736D+05, .401514D+05,
     +  .287664D+05, .205829D+05, .147080D+05, .104953D+05,
     +  .747868D+04, .532108D+04, .378027D+04, .268128D+04,
     +  .189877D+04, .134229D+04, .947316D+03, .667227D+03 /
        DATA (UPDI(I),I=2393,2444) /
     +  .469296D+03, .327844D+03, .229826D+03, .160849D+03,
     +  .112400D+03, .784375D+02, .546669D+02, .381060D+02,
     +  .265248D+02, .184645D+02, .128614D+02, .896932D+01,
     +  .626695D+01, .438903D+01, .308485D+01, .217602D+01,
     +  .154156D+01, .109722D+01, .784937D+00, .564327D+00,
     +  .408408D+00, .296424D+00, .216647D+00, .158763D+00,
     +  .116968D+00, .865004D-01, .641785D-01, .477471D-01,
     +  .355992D-01, .265842D-01, .198719D-01, .148609D-01,
     +  .111118D-01, .830271D-02, .619603D-02, .461598D-02,
     +  .342952D-02, .254407D-02, .187736D-02, .137998D-02,
     +  .101001D-02, .735777D-03, .533370D-03, .384685D-03,
     +  .276053D-03, .197142D-03, .140191D-03, .992180D-04,
     +  .702059D-04, .494527D-04, .347808D-04, .244228D-04 /
        DATA (UPDI(I),I=2445,2496) /
     +  .171030D-04, .119156D-04, .821955D-05, .557853D-05,
     +  .367670D-05, .232769D-05, .138420D-05, .749807D-06,
     +  .352067D-06, .130522D-06, .313490D-07, .282918D-08,
     +  .000000D+00, .334969D+07, .247421D+07, .178805D+07,
     +  .129120D+07, .931558D+06, .671450D+06, .483495D+06,
     +  .347800D+06, .249927D+06, .179401D+06, .128633D+06,
     +  .921234D+05, .658976D+05, .470786D+05, .335909D+05,
     +  .239349D+05, .170312D+05, .121012D+05, .858566D+04,
     +  .608187D+04, .430153D+04, .303722D+04, .214098D+04,
     +  .150647D+04, .105817D+04, .741718D+03, .519156D+03,
     +  .360860D+03, .251705D+03, .175265D+03, .121842D+03,
     +  .845810D+02, .586346D+02, .406515D+02, .281416D+02,
     +  .194812D+02, .134933D+02, .935652D+01, .649998D+01 /
        DATA (UPDI(I),I=2497,2548) /
     +  .452586D+01, .316248D+01, .221769D+01, .156182D+01,
     +  .110506D+01, .785857D+00, .561623D+00, .404038D+00,
     +  .291493D+00, .211774D+00, .154260D+00, .112969D+00,
     +  .830410D-01, .612407D-01, .452864D-01, .335604D-01,
     +  .249097D-01, .185072D-01, .137562D-01, .102234D-01,
     +  .759268D-02, .563209D-02, .417089D-02, .308060D-02,
     +  .227215D-02, .166733D-02, .121905D-02, .887752D-03,
     +  .643748D-03, .464778D-03, .334100D-03, .239163D-03,
     +  .170554D-03, .121260D-03, .859129D-04, .609370D-04,
     +  .430787D-04, .304337D-04, .214735D-04, .151046D-04,
     +  .105577D-04, .729134D-05, .494112D-05, .324102D-05,
     +  .203462D-05, .119499D-05, .636536D-06, .292394D-06,
     +  .105377D-06, .245667D-07, .224748D-08, .000000D+00 /
        DATA (UPDI(I),I=2549,2600) /
     +  .846377D+05, .501568D+05, .385858D+05, .296844D+05,
     +  .228366D+05, .175687D+05, .135161D+05, .103985D+05,
     +  .800014D+04, .615508D+04, .473568D+04, .364372D+04,
     +  .280366D+04, .215738D+04, .166019D+04, .127767D+04,
     +  .983383D+03, .756966D+03, .582763D+03, .448728D+03,
     +  .345594D+03, .266234D+03, .205164D+03, .158164D+03,
     +  .121989D+03, .941427D+02, .727039D+02, .559905D+02,
     +  .433268D+02, .335685D+02, .260462D+02, .202447D+02,
     +  .157677D+02, .123191D+02, .964589D+01, .757756D+01,
     +  .597464D+01, .472984D+01, .376066D+01, .300339D+01,
     +  .241035D+01, .194313D+01, .157341D+01, .127925D+01,
     +  .104389D+01, .854504D+00, .701757D+00, .576676D+00,
     +  .474998D+00, .390962D+00, .321949D+00, .264882D+00 /
        DATA (UPDI(I),I=2601,2652) /
     +  .217597D+00, .178367D+00, .145804D+00, .118785D+00,
     +  .963921D-01, .778694D-01, .625887D-01, .500248D-01,
     +  .397359D-01, .313492D-01, .245490D-01, .190905D-01,
     +  .146922D-01, .111982D-01, .844527D-02, .629574D-02,
     +  .463407D-02, .336369D-02, .240428D-02, .168950D-02,
     +  .116469D-02, .785553D-03, .519109D-03, .333046D-03,
     +  .207275D-03, .124562D-03, .718713D-04, .395322D-04,
     +  .205395D-04, .997238D-05, .442855D-05, .177028D-05,
     +  .613953D-06, .175398D-06, .378401D-07, .523723D-08,
     +  .322446D-09, .273778D-11, .000000D+00, .960241D+05,
     +  .742599D+05, .566689D+05, .432509D+05, .330134D+05,
     +  .252017D+05, .192404D+05, .146907D+05, .112180D+05,
     +  .856706D+04, .654329D+04, .499813D+04, .381828D+04 /
        DATA (UPDI(I),I=2653,2704) /
     +  .291728D+04, .222918D+04, .170360D+04, .130214D+04,
     +  .995434D+03, .761112D+03, .582064D+03, .445244D+03,
     +  .340675D+03, .260750D+03, .199650D+03, .152937D+03,
     +  .117212D+03, .898936D+02, .687371D+02, .528132D+02,
     +  .406236D+02, .312891D+02, .241380D+02, .186562D+02,
     +  .144624D+02, .112336D+02, .875281D+01, .684387D+01,
     +  .537211D+01, .423469D+01, .335269D+01, .266731D+01,
     +  .213163D+01, .171116D+01, .137942D+01, .111624D+01,
     +  .906270D+00, .738403D+00, .602122D+00, .492309D+00,
     +  .402331D+00, .329068D+00, .268991D+00, .219616D+00,
     +  .178973D+00, .145495D+00, .117920D+00, .952259D-01,
     +  .765798D-01, .612950D-01, .488033D-01, .386314D-01,
     +  .303853D-01, .237302D-01, .184121D-01, .141444D-01 /
        DATA (UPDI(I),I=2705,2756) /
     +  .107664D-01, .811318D-02, .604676D-02, .445248D-02,
     +  .323512D-02, .231621D-02, .163119D-02, .112781D-02,
     +  .763058D-03, .505750D-03, .325140D-03, .202236D-03,
     +  .120773D-03, .684142D-04, .360508D-04, .169405D-04,
     +  .641680D-05, .112816D-05, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .139991D+06, .107690D+06,
     +  .816785D+05, .619580D+05, .470021D+05, .356588D+05,
     +  .270548D+05, .205282D+05, .155771D+05, .118210D+05,
     +  .897113D+04, .680881D+04, .516805D+04, .392296D+04,
     +  .297809D+04, .226099D+04, .171673D+04, .130362D+04,
     +  .990047D+03, .752005D+03, .571300D+03, .434103D+03,
     +  .329938D+03, .250839D+03, .190776D+03, .145150D+03 /
        DATA (UPDI(I),I=2757,2808) /
     +  .110503D+03, .838578D+02, .639441D+02, .488078D+02,
     +  .372995D+02, .285465D+02, .218856D+02, .168270D+02,
     +  .129615D+02, .100139D+02, .776305D+01, .604112D+01,
     +  .472081D+01, .370510D+01, .292219D+01, .231524D+01,
     +  .184277D+01, .147310D+01, .118231D+01, .952244D+00,
     +  .769878D+00, .623057D+00, .505750D+00, .410425D+00,
     +  .333441D+00, .270816D+00, .219746D+00, .178027D+00,
     +  .143913D+00, .116015D+00, .932115D-01, .745989D-01,
     +  .594380D-01, .471226D-01, .371524D-01, .291151D-01,
     +  .226612D-01, .175293D-01, .134302D-01, .101996D-01,
     +  .767239D-02, .571126D-02, .420311D-02, .305471D-02,
     +  .218978D-02, .154613D-02, .107358D-02, .731106D-03,
     +  .489233D-03, .318983D-03, .202563D-03, .124777D-03 /
        DATA (UPDI(I),I=2809,2860) /
     +  .741665D-04, .422441D-04, .228200D-04, .115375D-04,
     +  .529771D-05, .212115D-05, .657170D-06, .899277D-07,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .198910D+06, .152360D+06, .114983D+06,
     +  .867808D+05, .654950D+05, .494295D+05, .373042D+05,
     +  .281528D+05, .212460D+05, .160333D+05, .120993D+05,
     +  .913039D+04, .688986D+04, .519903D+04, .392311D+04,
     +  .296028D+04, .223377D+04, .168556D+04, .127193D+04,
     +  .959836D+03, .724377D+03, .546724D+03, .412702D+03,
     +  .311586D+03, .235306D+03, .177743D+03, .134331D+03,
     +  .101174D+03, .765672D+02, .579953D+02, .439756D+02,
     +  .333898D+02, .253930D+02, .193650D+02, .147933D+02,
     +  .113337D+02, .871226D+01, .672238D+01, .520861D+01 /
        DATA (UPDI(I),I=2861,2912) /
     +  .405329D+01, .316986D+01, .249049D+01, .196593D+01,
     +  .155883D+01, .124121D+01, .991948D+00, .795978D+00,
     +  .639467D+00, .515424D+00, .415421D+00, .335287D+00,
     +  .270595D+00, .218232D+00, .175768D+00, .141289D+00,
     +  .113285D+00, .905472D-01, .721074D-01, .571804D-01,
     +  .451275D-01, .354264D-01, .276499D-01, .214376D-01,
     +  .165231D-01, .126167D-01, .955250D-02, .716593D-02,
     +  .532168D-02, .390893D-02, .283703D-02, .203230D-02,
     +  .143519D-02, .997859D-03, .681425D-03, .458170D-03,
     +  .301020D-03, .193407D-03, .121258D-03, .740227D-04,
     +  .438937D-04, .252411D-04, .140742D-04, .757950D-05,
     +  .397103D-05, .202352D-05, .100156D-05, .471371D-06,
     +  .200497D-06, .628339D-07, .455235D-08, .000000D+00 /
        DATA (UPDI(I),I=2913,2964) /
     +  .225198D+06, .210336D+06, .158046D+06, .118753D+06,
     +  .892191D+05, .670230D+05, .503432D+05, .378100D+05,
     +  .283936D+05, .213197D+05, .160062D+05, .120154D+05,
     +  .901854D+04, .676826D+04, .507885D+04, .381065D+04,
     +  .285881D+04, .214447D+04, .160850D+04, .120637D+04,
     +  .904734D+03, .678489D+03, .508835D+03, .381614D+03,
     +  .286241D+03, .214723D+03, .161139D+03, .120484D+03,
     +  .905168D+02, .680530D+02, .512127D+02, .385869D+02,
     +  .291168D+02, .220300D+02, .166946D+02, .126872D+02,
     +  .967337D+01, .740299D+01, .568905D+01, .439100D+01,
     +  .340612D+01, .265462D+01, .207888D+01, .163554D+01,
     +  .129237D+01, .102512D+01, .816658D+00, .651437D+00,
     +  .521494D+00, .417523D+00, .334827D+00, .268551D+00 /
        DATA (UPDI(I),I=2965,3016) /
     +  .215289D+00, .172395D+00, .137804D+00, .109894D+00,
     +  .873795D-01, .692347D-01, .546357D-01, .429173D-01,
     +  .335395D-01, .260642D-01, .201238D-01, .154489D-01,
     +  .117516D-01, .886553D-02, .662830D-02, .490725D-02,
     +  .359458D-02, .260270D-02, .186093D-02, .131253D-02,
     +  .912215D-03, .623355D-03, .420030D-03, .277132D-03,
     +  .179332D-03, .113700D-03, .705954D-04, .429172D-04,
     +  .255844D-04, .149976D-04, .863804D-05, .491972D-05,
     +  .275411D-05, .149236D-05, .752741D-06, .329288D-06,
     +  .100972D-06, .789647D-08, .000000D+00, .401936D+06,
     +  .305449D+06, .228384D+06, .170740D+06, .127617D+06,
     +  .953632D+05, .712445D+05, .532129D+05, .397352D+05,
     +  .296636D+05, .221391D+05, .165190D+05, .123223D+05 /
        DATA (UPDI(I),I=3017,3068) /
     +  .918934D+04, .685113D+04, .510647D+04, .380511D+04,
     +  .283464D+04, .211118D+04, .157198D+04, .117025D+04,
     +  .871004D+03, .648193D+03, .482311D+03, .358870D+03,
     +  .266995D+03, .198693D+03, .147280D+03, .109687D+03,
     +  .817360D+02, .609556D+02, .455071D+02, .340188D+02,
     +  .254963D+02, .191367D+02, .144025D+02, .108743D+02,
     +  .824061D+01, .627071D+01, .479259D+01, .368150D+01,
     +  .284158D+01, .220411D+01, .171783D+01, .134493D+01,
     +  .105723D+01, .834878D+00, .660263D+00, .524187D+00,
     +  .416287D+00, .331226D+00, .263649D+00, .209804D+00,
     +  .166804D+00, .132412D+00, .104884D+00, .828503D-01,
     +  .652284D-01, .511552D-01, .399405D-01, .310290D-01,
     +  .239741D-01, .184044D-01, .140496D-01, .106272D-01 /
        DATA (UPDI(I),I=3069,3120) /
     +  .797213D-02, .592637D-02, .436188D-02, .317552D-02,
     +  .228420D-02, .162141D-02, .113420D-02, .780758D-03,
     +  .527249D-03, .350044D-03, .226502D-03, .142778D-03,
     +  .873080D-04, .515100D-04, .291075D-04, .155907D-04,
     +  .781590D-05, .356594D-05, .143515D-05, .471688D-06,
     +  .104899D-06, .346919D-08, .000000D+00, .580748D-09,
     +  .000000D+00, .000000D+00, .567971D+06, .429939D+06,
     +  .319977D+06, .238084D+06, .177093D+06, .131681D+06,
     +  .978797D+05, .727291D+05, .540215D+05, .401109D+05,
     +  .297711D+05, .220881D+05, .163814D+05, .121443D+05,
     +  .899950D+04, .666634D+04, .493611D+04, .365345D+04,
     +  .270306D+04, .199910D+04, .147796D+04, .109227D+04,
     +  .807002D+03, .596054D+03, .440164D+03, .324953D+03 /
        DATA (UPDI(I),I=3121,3172) /
     +  .239929D+03, .176402D+03, .130304D+03, .962911D+02,
     +  .712018D+02, .526983D+02, .390492D+02, .290069D+02,
     +  .215755D+02, .160902D+02, .120370D+02, .903761D+01,
     +  .681361D+01, .515938D+01, .392682D+01, .300326D+01,
     +  .230849D+01, .178316D+01, .138385D+01, .107846D+01,
     +  .844509D+00, .662363D+00, .521646D+00, .411014D+00,
     +  .324534D+00, .256400D+00, .202555D+00, .159900D+00,
     +  .126053D+00, .991728D-01, .778218D-01, .608736D-01,
     +  .474380D-01, .368088D-01, .284226D-01, .218299D-01,
     +  .166603D-01, .126455D-01, .951136D-02, .709592D-02,
     +  .524688D-02, .384189D-02, .278322D-02, .199280D-02,
     +  .140865D-02, .981867D-03, .674073D-03, .454524D-03,
     +  .301864D-03, .195923D-03, .124387D-03, .770882D-04 /
        DATA (UPDI(I),I=3173,3224) /
     +  .465403D-04, .273209D-04, .155764D-04, .863723D-05,
     +  .464763D-05, .244978D-05, .126606D-05, .638519D-06,
     +  .305363D-06, .128790D-06, .380214D-07, .291304D-08,
     +  .000000D+00, .780444D+06, .588577D+06, .436105D+06,
     +  .323030D+06, .239171D+06, .177005D+06, .130939D+06,
     +  .968168D+05, .715534D+05, .528568D+05, .390265D+05,
     +  .288004D+05, .212432D+05, .156608D+05, .115394D+05,
     +  .849805D+04, .625502D+04, .460153D+04, .338339D+04,
     +  .248638D+04, .182630D+04, .134077D+04, .983892D+03,
     +  .721676D+03, .529164D+03, .387829D+03, .284245D+03,
     +  .207390D+03, .152019D+03, .111459D+03, .817614D+02,
     +  .600232D+02, .441101D+02, .324926D+02, .239631D+02,
     +  .177175D+02, .131397D+02, .977960D+01, .730860D+01 /
        DATA (UPDI(I),I=3225,3276) /
     +  .548581D+01, .413890D+01, .313804D+01, .239137D+01,
     +  .183150D+01, .140948D+01, .108938D+01, .846198D+00,
     +  .658408D+00, .514520D+00, .402311D+00, .315303D+00,
     +  .247296D+00, .193973D+00, .152059D+00, .119054D+00,
     +  .930390D-01, .725288D-01, .563672D-01, .436475D-01,
     +  .336563D-01, .258289D-01, .197181D-01, .149586D-01,
     +  .112874D-01, .844070D-02, .626138D-02, .460411D-02,
     +  .335309D-02, .241658D-02, .172187D-02, .121173D-02,
     +  .841374D-03, .575916D-03, .387663D-03, .257482D-03,
     +  .167575D-03, .107094D-03, .671830D-04, .413834D-04,
     +  .250608D-04, .149578D-04, .883731D-05, .516442D-05,
     +  .299790D-05, .170982D-05, .936108D-06, .469797D-06,
     +  .198446D-06, .564650D-07, .462846D-08, .000000D+00 /
        DATA (UPDI(I),I=3277,3328) /
     +  .104631D+07, .786254D+06, .580090D+06, .427816D+06,
     +  .315353D+06, .232332D+06, .171076D+06, .125901D+06,
     +  .926028D+05, .680720D+05, .500101D+05, .367185D+05,
     +  .269430D+05, .197576D+05, .144794D+05, .106044D+05,
     +  .776143D+04, .567688D+04, .414956D+04, .303113D+04,
     +  .221279D+04, .161434D+04, .117708D+04, .857741D+03,
     +  .624739D+03, .454750D+03, .330978D+03, .239751D+03,
     +  .174469D+03, .126977D+03, .924453D+02, .673480D+02,
     +  .491080D+02, .358894D+02, .262564D+02, .192557D+02,
     +  .141638D+02, .104550D+02, .774875D+01, .576799D+01,
     +  .431582D+01, .324522D+01, .245282D+01, .186335D+01,
     +  .142252D+01, .109077D+01, .840716D+00, .649123D+00,
     +  .503469D+00, .390761D+00, .304038D+00, .236769D+00 /
        DATA (UPDI(I),I=3329,3380) /
     +  .184423D+00, .143583D+00, .111662D+00, .866850D-01,
     +  .671355D-01, .518410D-01, .398889D-01, .305662D-01,
     +  .233131D-01, .176895D-01, .133389D-01, .100057D-01,
     +  .743839D-02, .548609D-02, .401132D-02, .290542D-02,
     +  .208298D-02, .147687D-02, .103467D-02, .715677D-03,
     +  .488454D-03, .328248D-03, .218063D-03, .142317D-03,
     +  .915348D-04, .580727D-04, .364055D-04, .226102D-04,
     +  .139563D-04, .858941D-05, .525044D-05, .318076D-05,
     +  .187584D-05, .104597D-05, .525014D-06, .217198D-06,
     +  .596251D-07, .502943D-08, .000000D+00, .137240D+07,
     +  .102772D+07, .755107D+06, .554549D+06, .407021D+06,
     +  .298560D+06, .218867D+06, .160344D+06, .117393D+06,
     +  .858905D+05, .627991D+05, .458838D+05, .335012D+05 /
        DATA (UPDI(I),I=3381,3432) /
     +  .244425D+05, .178203D+05, .129824D+05, .945095D+04,
     +  .687478D+04, .499710D+04, .362943D+04, .263415D+04,
     +  .191033D+04, .138446D+04, .100261D+04, .725645D+03,
     +  .524785D+03, .379442D+03, .272988D+03, .197298D+03,
     +  .142591D+03, .103076D+03, .745502D+02, .539600D+02,
     +  .391416D+02, .284188D+02, .206819D+02, .150950D+02,
     +  .110554D+02, .812949D+01, .600377D+01, .445692D+01,
     +  .332502D+01, .249351D+01, .187958D+01, .142391D+01,
     +  .108354D+01, .828915D+00, .635268D+00, .489154D+00,
     +  .376925D+00, .291209D+00, .225209D+00, .174223D+00,
     +  .134731D+00, .104085D+00, .802761D-01, .617719D-01,
     +  .473963D-01, .362400D-01, .275979D-01, .209202D-01,
     +  .157776D-01, .118257D-01, .881821D-02, .651714D-02 /
        DATA (UPDI(I),I=3433,3484) /
     +  .477896D-02, .347464D-02, .250300D-02, .178516D-02,
     +  .125957D-02, .878595D-03, .605493D-03, .412147D-03,
     +  .276596D-03, .183846D-03, .120355D-03, .779087D-04,
     +  .499569D-04, .318092D-04, .201704D-04, .127669D-04,
     +  .807412D-05, .506505D-05, .313117D-05, .186723D-05,
     +  .104104D-05, .516231D-06, .208047D-06, .551180D-07,
     +  .474515D-08, .000000D+00, .176526D+07, .131747D+07,
     +  .964104D+06, .705145D+06, .515405D+06, .376466D+06,
     +  .274792D+06, .200435D+06, .146094D+06, .106406D+06,
     +  .774408D+05, .563165D+05, .409223D+05, .297118D+05,
     +  .215548D+05, .156239D+05, .113155D+05, .818799D+04,
     +  .591989D+04, .427626D+04, .308640D+04, .222564D+04,
     +  .160367D+04, .115452D+04, .830570D+03, .596977D+03 /
        DATA (UPDI(I),I=3485,3536) /
     +  .428946D+03, .306611D+03, .220161D+03, .158063D+03,
     +  .113491D+03, .815206D+02, .585937D+02, .422027D+02,
     +  .304212D+02, .219781D+02, .159231D+02, .115754D+02,
     +  .844836D+01, .619249D+01, .456255D+01, .337831D+01,
     +  .251455D+01, .188136D+01, .141475D+01, .106870D+01,
     +  .811678D+00, .617598D+00, .472207D+00, .361329D+00,
     +  .277246D+00, .212961D+00, .163649D+00, .125721D+00,
     +  .964929D-01, .739428D-01, .565373D-01, .431076D-01,
     +  .327560D-01, .247914D-01, .186786D-01, .140023D-01,
     +  .104324D-01, .773359D-02, .568231D-02, .414302D-02,
     +  .299554D-02, .214633D-02, .152302D-02, .106957D-02,
     +  .742973D-03, .510293D-03, .346538D-03, .232346D-03,
     +  .154583D-03, .101546D-03, .661615D-04, .428534D-04 /
        DATA (UPDI(I),I=3537,3588) /
     +  .276644D-04, .178431D-04, .115072D-04, .741032D-05,
     +  .471750D-05, .294140D-05, .175531D-05, .970880D-06,
     +  .473291D-06, .185495D-06, .474837D-07, .415876D-08,
     +  .000000D+00, .223097D+07, .165962D+07, .120972D+07,
     +  .881277D+06, .641545D+06, .466682D+06, .339225D+06,
     +  .246386D+06, .178814D+06, .129668D+06, .939513D+05,
     +  .680145D+05, .491953D+05, .355514D+05, .256685D+05,
     +  .185156D+05, .133436D+05, .960707D+04, .691036D+04,
     +  .496573D+04, .356500D+04, .255686D+04, .183217D+04,
     +  .131161D+04, .938174D+03, .670366D+03, .478814D+03,
     +  .340152D+03, .242737D+03, .173175D+03, .123545D+03,
     +  .881643D+02, .629487D+02, .450348D+02, .322408D+02,
     +  .231314D+02, .166414D+02, .120121D+02, .870470D+01 /
        DATA (UPDI(I),I=3589,3640) /
     +  .633473D+01, .463390D+01, .340651D+01, .251738D+01,
     +  .187003D+01, .139626D+01, .104729D+01, .789882D+00,
     +  .596839D+00, .453222D+00, .344448D+00, .262527D+00,
     +  .200322D+00, .152931D+00, .116729D+00, .890195D-01,
     +  .677849D-01, .515048D-01, .390273D-01, .294737D-01,
     +  .221717D-01, .166044D-01, .123734D-01, .916432D-02,
     +  .675416D-02, .493420D-02, .357739D-02, .257249D-02,
     +  .183361D-02, .129474D-02, .905201D-03, .626360D-03,
     +  .428890D-03, .290697D-03, .194812D-03, .129793D-03,
     +  .855829D-04, .561247D-04, .366956D-04, .239752D-04,
     +  .156771D-04, .102494D-04, .667740D-05, .428279D-05,
     +  .267482D-05, .158826D-05, .867996D-06, .414980D-06,
     +  .158089D-06, .391605D-07, .348328D-08, .000000D+00 /
        DATA (UPDI(I),I=3641,3692) /
     +  .277503D+07, .205780D+07, .149424D+07, .108434D+07,
     +  .786268D+06, .569681D+06, .412419D+06, .298320D+06,
     +  .215602D+06, .155683D+06, .112316D+06, .809538D+05,
     +  .582945D+05, .419368D+05, .301398D+05, .216395D+05,
     +  .155209D+05, .111207D+05, .795977D+04, .569120D+04,
     +  .406503D+04, .290037D+04, .206734D+04, .147199D+04,
     +  .104712D+04, .744019D+03, .528402D+03, .373174D+03,
     +  .264731D+03, .187733D+03, .133112D+03, .944014D+02,
     +  .669755D+02, .476087D+02, .338613D+02, .241336D+02,
     +  .172464D+02, .123648D+02, .889933D+01, .643201D+01,
     +  .467275D+01, .341142D+01, .250365D+01, .184705D+01,
     +  .136966D+01, .102033D+01, .764366D+00, .573666D+00,
     +  .432736D+00, .326704D+00, .247379D+00, .187544D+00 /
        DATA (UPDI(I),I=3693,3744) /
     +  .142260D+00, .107897D+00, .817675D-01, .618759D-01,
     +  .467254D-01, .351897D-01, .264148D-01, .197516D-01,
     +  .147042D-01, .108931D-01, .802099D-02, .587778D-02,
     +  .426978D-02, .307867D-02, .220214D-02, .156172D-02,
     +  .109758D-02, .764136D-03, .526872D-03, .359804D-03,
     +  .243506D-03, .163183D-03, .108919D-03, .721077D-04,
     +  .475901D-04, .313843D-04, .207162D-04, .136926D-04,
     +  .903830D-05, .592851D-05, .381205D-05, .237430D-05,
     +  .139796D-05, .753107D-06, .352660D-06, .130590D-06,
     +  .313528D-07, .282923D-08, .000000D+00, .340217D+07,
     +  .251509D+07, .181949D+07, .131539D+07, .950166D+06,
     +  .685764D+06, .494507D+06, .356271D+06, .256443D+06,
     +  .184414D+06, .132489D+06, .950897D+05, .681794D+05 /
        DATA (UPDI(I),I=3745,3796) /
     +  .488339D+05, .349412D+05, .249736D+05, .178303D+05,
     +  .127158D+05, .905845D+04, .644555D+04, .458129D+04,
     +  .325241D+04, .230651D+04, .163380D+04, .115611D+04,
     +  .817045D+03, .577105D+03, .405276D+03, .285883D+03,
     +  .201568D+03, .142086D+03, .100167D+03, .706363D+02,
     +  .499033D+02, .352721D+02, .249803D+02, .177374D+02,
     +  .126346D+02, .903426D+01, .648664D+01, .468135D+01,
     +  .339507D+01, .247512D+01, .181390D+01, .133618D+01,
     +  .988820D+00, .735914D+00, .548694D+00, .411226D+00,
     +  .308462D+00, .232077D+00, .174831D+00, .131786D+00,
     +  .993313D-01, .748125D-01, .562669D-01, .422322D-01,
     +  .316146D-01, .235898D-01, .175350D-01, .129777D-01,
     +  .955853D-02, .699804D-02, .509944D-02, .368395D-02 /
        DATA (UPDI(I),I=3797,3848) /
     +  .264205D-02, .188012D-02, .132689D-02, .928396D-03,
     +  .643813D-03, .442483D-03, .301485D-03, .203820D-03,
     +  .136644D-03, .914030D-04, .607629D-04, .403479D-04,
     +  .268138D-04, .178505D-04, .118948D-04, .790090D-05,
     +  .519877D-05, .333945D-05, .206809D-05, .120473D-05,
     +  .638837D-06, .292801D-06, .105423D-06, .245692D-07,
     +  .224751D-08, .000000D+00, .690363D+05, .100351D+06,
     +  .772021D+05, .593938D+05, .456938D+05, .351545D+05,
     +  .270465D+05, .208090D+05, .160103D+05, .123187D+05,
     +  .947858D+04, .729359D+04, .561259D+04, .431929D+04,
     +  .332427D+04, .255872D+04, .196969D+04, .151648D+04,
     +  .116774D+04, .899396D+03, .692889D+03, .533963D+03,
     +  .411643D+03, .317489D+03, .245006D+03, .189198D+03 /
        DATA (UPDI(I),I=3849,3900) /
     +  .146220D+03, .112705D+03, .873026D+02, .677211D+02,
     +  .526205D+02, .409691D+02, .319734D+02, .250407D+02,
     +  .196636D+02, .155007D+02, .122723D+02, .976325D+01,
     +  .780793D+01, .627837D+01, .507872D+01, .413167D+01,
     +  .338021D+01, .278015D+01, .229772D+01, .190711D+01,
     +  .158960D+01, .132713D+01, .111135D+01, .930662D+00,
     +  .780080D+00, .653526D+00, .546804D+00, .456590D+00,
     +  .380225D+00, .315560D+00, .260840D+00, .214609D+00,
     +  .175648D+00, .142922D+00, .115545D+00, .927536D-01,
     +  .738834D-01, .584219D-01, .457088D-01, .354063D-01,
     +  .271287D-01, .205405D-01, .153512D-01, .113104D-01,
     +  .820355D-02, .584796D-02, .408851D-02, .279594D-02,
     +  .187260D-02, .121745D-02, .767606D-03, .467212D-03 /
        DATA (UPDI(I),I=3901,3952) /
     +  .272969D-03, .151998D-03, .799288D-04, .392679D-04,
     +  .176423D-04, .713316D-05, .250170D-05, .722606D-06,
     +  .157588D-06, .220439D-07, .137145D-08, .117649D-10,
     +  .000000D+00, .159584D+06, .123767D+06, .947565D+05,
     +  .725537D+05, .555579D+05, .425469D+05, .325857D+05,
     +  .249588D+05, .191187D+05, .146464D+05, .112214D+05,
     +  .859818D+04, .658889D+04, .504972D+04, .387059D+04,
     +  .296721D+04, .227503D+04, .174462D+04, .133815D+04,
     +  .102662D+04, .787832D+03, .604777D+03, .464436D+03,
     +  .356821D+03, .274293D+03, .210981D+03, .162415D+03,
     +  .124684D+03, .961923D+02, .743114D+02, .575000D+02,
     +  .445772D+02, .346368D+02, .270048D+02, .211076D+02,
     +  .165595D+02, .130461D+02, .103262D+02, .821495D+01 /
        DATA (UPDI(I),I=3953,4004) /
     +  .657014D+01, .528546D+01, .427561D+01, .347784D+01,
     +  .284373D+01, .233638D+01, .192760D+01, .159710D+01,
     +  .132535D+01, .110323D+01, .918345D+00, .765208D+00,
     +  .637317D+00, .530160D+00, .440167D+00, .364488D+00,
     +  .300827D+00, .247308D+00, .202387D+00, .164775D+00,
     +  .133384D+00, .107289D+00, .857033D-01, .679357D-01,
     +  .534643D-01, .416351D-01, .321039D-01, .244890D-01,
     +  .184614D-01, .137390D-01, .100808D-01, .728222D-02,
     +  .517036D-02, .360093D-02, .245263D-02, .163580D-02,
     +  .105851D-02, .663590D-03, .400821D-03, .231504D-03,
     +  .126525D-03, .643030D-04, .295673D-04, .114676D-04,
     +  .307958D-05, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=4005,4056) /
     +  .202691D+06, .156527D+06, .119252D+06, .908649D+05,
     +  .692421D+05, .527697D+05, .402200D+05, .306578D+05,
     +  .233713D+05, .178183D+05, .135862D+05, .103604D+05,
     +  .790135D+04, .602670D+04, .459743D+04, .350760D+04,
     +  .267655D+04, .204275D+04, .155935D+04, .119060D+04,
     +  .909303D+03, .694672D+03, .530902D+03, .405911D+03,
     +  .310511D+03, .237664D+03, .182053D+03, .139054D+03,
     +  .106740D+03, .820404D+02, .631540D+02, .487055D+02,
     +  .376444D+02, .291926D+02, .226934D+02, .177051D+02,
     +  .138702D+02, .109159D+02, .863392D+01, .686478D+01,
     +  .548982D+01, .441438D+01, .356911D+01, .290069D+01,
     +  .236873D+01, .194241D+01, .159967D+01, .131943D+01,
     +  .109174D+01, .903361D+00, .748293D+00, .619601D+00 /
        DATA (UPDI(I),I=4057,4108) /
     +  .512460D+00, .423058D+00, .348360D+00, .285929D+00,
     +  .233782D+00, .190294D+00, .154111D+00, .124104D+00,
     +  .993147D-01, .789372D-01, .622624D-01, .487623D-01,
     +  .377921D-01, .290044D-01, .220239D-01, .165296D-01,
     +  .122489D-01, .895100D-02, .644139D-02, .455748D-02,
     +  .316477D-02, .215045D-02, .143221D-02, .926689D-03,
     +  .582094D-03, .353412D-03, .206255D-03, .114906D-03,
     +  .605145D-04, .297863D-04, .133634D-04, .532383D-05,
     +  .175808D-05, .400927D-06, .557918D-08, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .260773D+06,
     +  .200544D+06, .152054D+06, .115302D+06, .874380D+05,
     +  .663121D+05, .502937D+05, .381472D+05, .289362D+05,
     +  .219507D+05, .166529D+05, .126346D+05, .958677D+04 /
        DATA (UPDI(I),I=4109,4160) /
     +  .727478D+04, .552092D+04, .419034D+04, .318085D+04,
     +  .241488D+04, .183368D+04, .139262D+04, .105790D+04,
     +  .803846D+03, .611009D+03, .464607D+03, .353458D+03,
     +  .269031D+03, .204931D+03, .155635D+03, .118791D+03,
     +  .907813D+02, .694799D+02, .532730D+02, .409331D+02,
     +  .315557D+02, .243842D+02, .189100D+02, .147246D+02,
     +  .115178D+02, .905437D+01, .715490D+01, .568667D+01,
     +  .454452D+01, .365171D+01, .294958D+01, .239392D+01,
     +  .195108D+01, .159712D+01, .130938D+01, .107699D+01,
     +  .885883D+00, .729540D+00, .600596D+00, .493918D+00,
     +  .405463D+00, .332023D+00, .271031D+00, .220406D+00,
     +  .178452D+00, .143762D+00, .115170D+00, .916956D-01,
     +  .725159D-01, .569125D-01, .443542D-01, .342088D-01 /
        DATA (UPDI(I),I=4161,4212) /
     +  .261289D-01, .197473D-01, .147528D-01, .108833D-01,
     +  .791860D-02, .567480D-02, .399948D-02, .276768D-02,
     +  .187494D-02, .124590D-02, .805196D-03, .506033D-03,
     +  .308183D-03, .181167D-03, .102346D-03, .552947D-04,
     +  .284869D-04, .138845D-04, .644696D-05, .286438D-05,
     +  .123599D-05, .520610D-06, .207122D-06, .632375D-07,
     +  .455622D-08, .000000D+00, .210378D+06, .257883D+06,
     +  .194627D+06, .146897D+06, .110872D+06, .836825D+05,
     +  .631611D+05, .476724D+05, .359823D+05, .271591D+05,
     +  .204997D+05, .154735D+05, .116799D+05, .881667D+04,
     +  .665563D+04, .502453D+04, .379344D+04, .286422D+04,
     +  .216288D+04, .163348D+04, .123389D+04, .932241D+03,
     +  .704543D+03, .532629D+03, .402842D+03, .304809D+03 /
        DATA (UPDI(I),I=4213,4264) /
     +  .230808D+03, .174225D+03, .132179D+03, .100400D+03,
     +  .763724D+02, .581979D+02, .444407D+02, .340475D+02,
     +  .261455D+02, .201490D+02, .155910D+02, .121190D+02,
     +  .946722D+01, .743426D+01, .587182D+01, .466328D+01,
     +  .372393D+01, .298940D+01, .241142D+01, .195341D+01,
     +  .158945D+01, .129530D+01, .105916D+01, .866130D+00,
     +  .709172D+00, .580513D+00, .474725D+00, .387549D+00,
     +  .315618D+00, .256248D+00, .207274D+00, .166934D+00,
     +  .133783D+00, .106624D+00, .844596D-01, .664587D-01,
     +  .518982D-01, .402474D-01, .308894D-01, .234793D-01,
     +  .176600D-01, .131313D-01, .964241D-02, .698409D-02,
     +  .498324D-02, .349751D-02, .241111D-02, .162778D-02,
     +  .107867D-02, .695833D-03, .437130D-03, .266708D-03 /
        DATA (UPDI(I),I=4265,4316) /
     +  .157620D-03, .900071D-04, .495837D-04, .264002D-04,
     +  .135761D-04, .683780D-05, .339783D-05, .166953D-05,
     +  .789450D-06, .334159D-06, .101266D-06, .789939D-08,
     +  .000000D+00, .461970D+06, .352211D+06, .264360D+06,
     +  .198419D+06, .148912D+06, .111748D+06, .838508D+05,
     +  .629125D+05, .471986D+05, .354066D+05, .265586D+05,
     +  .199201D+05, .149399D+05, .112040D+05, .840197D+04,
     +  .630038D+04, .472439D+04, .354257D+04, .265647D+04,
     +  .199208D+04, .149401D+04, .112059D+04, .840690D+03,
     +  .630846D+03, .473554D+03, .355595D+03, .267209D+03,
     +  .200127D+03, .150652D+03, .113537D+03, .856859D+02,
     +  .647785D+02, .490722D+02, .372965D+02, .284113D+02,
     +  .217199D+02, .166721D+02, .128559D+02, .996296D+01 /
        DATA (UPDI(I),I=4317,4368) /
     +  .776156D+01, .608210D+01, .479251D+01, .379744D+01,
     +  .302496D+01, .242152D+01, .194677D+01, .157227D+01,
     +  .127180D+01, .103238D+01, .838126D+00, .681360D+00,
     +  .553827D+00, .449759D+00, .364651D+00, .294960D+00,
     +  .237874D+00, .191139D+00, .152932D+00, .121768D+00,
     +  .964257D-01, .758958D-01, .593439D-01, .460499D-01,
     +  .354885D-01, .270655D-01, .204428D-01, .152783D-01,
     +  .112871D-01, .823374D-02, .592343D-02, .419662D-02,
     +  .292342D-02, .199924D-02, .133759D-02, .877321D-03,
     +  .559010D-03, .345806D-03, .206769D-03, .118841D-03,
     +  .651963D-04, .337981D-04, .163752D-04, .723058D-05,
     +  .284139D-05, .937523D-06, .231339D-06, .292941D-07,
     +  .000000D+00, .783153D-09, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=4369,4420) /
     +  .627013D+06, .475928D+06, .355359D+06, .265306D+06,
     +  .198036D+06, .147794D+06, .110278D+06, .822687D+05,
     +  .613618D+05, .457592D+05, .341177D+05, .254331D+05,
     +  .189559D+05, .141258D+05, .105248D+05, .784062D+04,
     +  .584027D+04, .434974D+04, .323939D+04, .241230D+04,
     +  .179640D+04, .133776D+04, .996335D+03, .742144D+03,
     +  .552956D+03, .412085D+03, .307305D+03, .228365D+03,
     +  .170577D+03, .127550D+03, .955048D+02, .716310D+02,
     +  .538322D+02, .405891D+02, .306729D+02, .232619D+02,
     +  .177137D+02, .135507D+02, .104186D+02, .805289D+01,
     +  .626131D+01, .489565D+01, .384950D+01, .304321D+01,
     +  .241786D+01, .192939D+01, .154683D+01, .124209D+01,
     +  .100104D+01, .806888D+00, .651356D+00, .525759D+00 /
        DATA (UPDI(I),I=4421,4472) /
     +  .424030D+00, .341452D+00, .274334D+00, .219764D+00,
     +  .175419D+00, .139435D+00, .110299D+00, .867798D-01,
     +  .678662D-01, .527281D-01, .406560D-01, .311342D-01,
     +  .235947D-01, .177091D-01, .131524D-01, .965607D-02,
     +  .700043D-02, .500543D-02, .352501D-02, .244135D-02,
     +  .166047D-02, .110534D-02, .721909D-03, .458568D-03,
     +  .283342D-03, .169753D-03, .982614D-04, .547583D-04,
     +  .292666D-04, .149979D-04, .733642D-05, .346746D-05,
     +  .159818D-05, .727214D-06, .323172D-06, .131079D-06,
     +  .381572D-07, .291450D-08, .000000D+00, .838509D+06,
     +  .633805D+06, .470902D+06, .349801D+06, .259769D+06,
     +  .192853D+06, .143132D+06, .106199D+06, .787726D+05,
     +  .584119D+05, .433014D+05, .320903D+05, .237752D+05 /
        DATA (UPDI(I),I=4473,4524) /
     +  .176097D+05, .130396D+05, .965302D+04, .714432D+04,
     +  .528637D+04, .391090D+04, .289279D+04, .213950D+04,
     +  .158222D+04, .117011D+04, .865354D+03, .640088D+03,
     +  .473512D+03, .350493D+03, .258477D+03, .191607D+03,
     +  .142180D+03, .105639D+03, .786178D+02, .586223D+02,
     +  .438562D+02, .328823D+02, .247423D+02, .186938D+02,
     +  .141892D+02, .108252D+02, .830275D+01, .640638D+01,
     +  .497120D+01, .387961D+01, .304425D+01, .240092D+01,
     +  .190192D+01, .151387D+01, .120692D+01, .965846D+00,
     +  .773066D+00, .619738D+00, .496814D+00, .397969D+00,
     +  .318313D+00, .254041D+00, .202164D+00, .160313D+00,
     +  .126598D+00, .994978D-01, .777789D-01, .604387D-01,
     +  .466593D-01, .357480D-01, .272029D-01, .204850D-01 /
        DATA (UPDI(I),I=4525,4576) /
     +  .152781D-01, .112755D-01, .822625D-02, .592677D-02,
     +  .421172D-02, .294820D-02, .203002D-02, .137319D-02,
     +  .909553D-03, .591595D-03, .374723D-03, .231357D-03,
     +  .138955D-03, .810546D-04, .458898D-04, .252363D-04,
     +  .135571D-04, .713421D-05, .373323D-05, .194623D-05,
     +  .998224D-06, .482057D-06, .199994D-06, .565559D-07,
     +  .462949D-08, .000000D+00, .110341D+07, .830735D+06,
     +  .614312D+06, .454145D+06, .335611D+06, .247918D+06,
     +  .183068D+06, .135128D+06, .997029D+05, .735355D+05,
     +  .542146D+05, .399541D+05, .294334D+05, .216745D+05,
     +  .159550D+05, .117403D+05, .863610D+04, .635046D+04,
     +  .466839D+04, .343085D+04, .252084D+04, .185181D+04,
     +  .136022D+04, .999038D+03, .733817D+03, .538999D+03 /
        DATA (UPDI(I),I=4577,4628) /
     +  .396111D+03, .289970D+03, .213377D+03, .157162D+03,
     +  .115899D+03, .856049D+02, .633493D+02, .470335D+02,
     +  .349962D+02, .261324D+02, .195940D+02, .147599D+02,
     +  .111757D+02, .850741D+01, .651554D+01, .501863D+01,
     +  .388800D+01, .302874D+01, .237155D+01, .186527D+01,
     +  .147427D+01, .116711D+01, .927545D+00, .737301D+00,
     +  .587051D+00, .467440D+00, .371938D+00, .295522D+00,
     +  .234300D+00, .185237D+00, .145937D+00, .114503D+00,
     +  .894150D-01, .694512D-01, .536252D-01, .411375D-01,
     +  .313179D-01, .236819D-01, .177209D-01, .131333D-01,
     +  .963172D-02, .698312D-02, .499996D-02, .353139D-02,
     +  .245722D-02, .168227D-02, .113190D-02, .746135D-03,
     +  .483438D-03, .305462D-03, .188542D-03, .113588D-03 /
        DATA (UPDI(I),I=4629,4680) /
     +  .667937D-04, .384019D-04, .216637D-04, .120873D-04,
     +  .669187D-05, .371154D-05, .204396D-05, .108944D-05,
     +  .533449D-06, .218245D-06, .596860D-07, .503015D-08,
     +  .000000D+00, .142856D+07, .107147D+07, .788763D+06,
     +  .580443D+06, .426944D+06, .313889D+06, .230661D+06,
     +  .169419D+06, .124376D+06, .912639D+05, .669343D+05,
     +  .490662D+05, .359505D+05, .263277D+05, .192715D+05,
     +  .140997D+05, .103112D+05, .753727D+04, .550739D+04,
     +  .402256D+04, .293712D+04, .214388D+04, .156456D+04,
     +  .114156D+04, .832900D+03, .607617D+03, .443470D+03,
     +  .322345D+03, .235530D+03, .172243D+03, .126107D+03,
     +  .924698D+02, .679298D+02, .500654D+02, .369781D+02,
     +  .274091D+02, .204002D+02, .152545D+02, .114658D+02 /
        DATA (UPDI(I),I=4681,4732) /
     +  .866487D+01, .658828D+01, .503831D+01, .387550D+01,
     +  .299771D+01, .233083D+01, .182050D+01, .142901D+01,
     +  .112352D+01, .886862D+00, .700204D+00, .553792D+00,
     +  .438036D+00, .346249D+00, .273314D+00, .215287D+00,
     +  .169107D+00, .132375D+00, .103199D+00, .800759D-01,
     +  .618039D-01, .474199D-01, .361488D-01, .273469D-01,
     +  .205499D-01, .152807D-01, .112539D-01, .820189D-02,
     +  .590959D-02, .420534D-02, .295224D-02, .204219D-02,
     +  .139033D-02, .930677D-03, .610720D-03, .394326D-03,
     +  .248666D-03, .153536D-03, .928396D-04, .550565D-04,
     +  .321278D-04, .185392D-04, .106635D-04, .611869D-05,
     +  .351391D-05, .198669D-05, .107144D-05, .522032D-06,
     +  .208755D-06, .551587D-07, .474565D-08, .000000D+00 /
        DATA (UPDI(I),I=4733,4784) /
     +  .182049D+07, .136050D+07, .997204D+06, .730611D+06,
     +  .534998D+06, .391541D+06, .286391D+06, .209361D+06,
     +  .152961D+06, .111690D+06, .815078D+05, .594464D+05,
     +  .433312D+05, .315660D+05, .229821D+05, .167228D+05,
     +  .121616D+05, .883957D+04, .642177D+04, .466291D+04,
     +  .338435D+04, .245532D+04, .178078D+04, .129115D+04,
     +  .936024D+03, .678405D+03, .491880D+03, .355114D+03,
     +  .257722D+03, .187184D+03, .136100D+03, .991028D+02,
     +  .722916D+02, .529052D+02, .387988D+02, .285546D+02,
     +  .211021D+02, .156676D+02, .116933D+02, .877461D+01,
     +  .662512D+01, .503129D+01, .384338D+01, .295247D+01,
     +  .228002D+01, .176873D+01, .137907D+01, .107697D+01,
     +  .844489D+00, .662334D+00, .520406D+00, .408946D+00 /
        DATA (UPDI(I),I=4785,4836) /
     +  .321161D+00, .251878D+00, .197132D+00, .153860D+00,
     +  .119676D+00, .927102D-01, .714846D-01, .548273D-01,
     +  .418043D-01, .316695D-01, .238087D-01, .177802D-01,
     +  .131388D-01, .961639D-02, .696518D-02, .498777D-02,
     +  .352789D-02, .246199D-02, .169333D-02, .114662D-02,
     +  .763797D-03, .499118D-03, .321290D-03, .202322D-03,
     +  .125041D-03, .759350D-04, .454260D-04, .268860D-04,
     +  .158251D-04, .932495D-05, .548685D-05, .321712D-05,
     +  .184011D-05, .992125D-06, .477279D-06, .185974D-06,
     +  .475110D-07, .415911D-08, .000000D+00, .228529D+07,
     +  .170193D+07, .124228D+07, .906322D+06, .660815D+06,
     +  .481508D+06, .350633D+06, .255164D+06, .185569D+06,
     +  .134866D+06, .979512D+05, .710928D+05, .515646D+05 /
        DATA (UPDI(I),I=4837,4888) /
     +  .373751D+05, .270723D+05, .195964D+05, .141758D+05,
     +  .102479D+05, .740395D+04, .534598D+04, .385802D+04,
     +  .278272D+04, .200632D+04, .144594D+04, .104185D+04,
     +  .750406D+03, .540663D+03, .387808D+03, .279630D+03,
     +  .201768D+03, .145733D+03, .105409D+03, .763740D+02,
     +  .555150D+02, .404357D+02, .295563D+02, .216931D+02,
     +  .159965D+02, .118574D+02, .883737D+01, .662741D+01,
     +  .499913D+01, .379323D+01, .289450D+01, .222043D+01,
     +  .171111D+01, .132540D+01, .102826D+01, .801061D+00,
     +  .624191D+00, .487277D+00, .380458D+00, .296883D+00,
     +  .231359D+00, .179929D+00, .139549D+00, .107865D+00,
     +  .830387D-01, .636289D-01, .484994D-01, .367507D-01,
     +  .276693D-01, .206728D-01, .153434D-01, .112683D-01 /
        DATA (UPDI(I),I=4889,4940) /
     +  .819672D-02, .590069D-02, .419998D-02, .295304D-02,
     +  .204891D-02, .140142D-02, .944066D-03, .625987D-03,
     +  .407511D-03, .261650D-03, .164627D-03, .101906D-03,
     +  .621834D-04, .375286D-04, .225075D-04, .134757D-04,
     +  .809153D-05, .484396D-05, .287325D-05, .164842D-05,
     +  .882834D-06, .417721D-06, .158412D-06, .391788D-07,
     +  .348352D-08, .000000D+00, .282845D+07, .209942D+07,
     +  .152626D+07, .110897D+07, .805220D+06, .584263D+06,
     +  .423639D+06, .306953D+06, .222245D+06, .160795D+06,
     +  .116250D+06, .839814D+05, .606246D+05, .437304D+05,
     +  .315205D+05, .227024D+05, .163393D+05, .117509D+05,
     +  .844520D+04, .606515D+04, .435318D+04, .312245D+04,
     +  .223857D+04, .160406D+04, .114903D+04, .822684D+03 /
        DATA (UPDI(I),I=4941,4992) /
     +  .589175D+03, .419987D+03, .300960D+03, .215799D+03,
     +  .154880D+03, .111308D+03, .801275D+02, .578658D+02,
     +  .418724D+02, .304057D+02, .221699D+02, .162406D+02,
     +  .119593D+02, .885484D+01, .659710D+01, .494381D+01,
     +  .372685D+01, .282541D+01, .215342D+01, .164876D+01,
     +  .126893D+01, .978117D+00, .757150D+00, .586211D+00,
     +  .454730D+00, .352807D+00, .273575D+00, .211862D+00,
     +  .163738D+00, .126203D+00, .969446D-01, .741711D-01,
     +  .564841D-01, .427891D-01, .322252D-01, .241138D-01,
     +  .179061D-01, .132092D-01, .964185D-02, .697110D-02,
     +  .498824D-02, .352946D-02, .246718D-02, .170219D-02,
     +  .115806D-02, .776302D-03, .512554D-03, .332537D-03,
     +  .213071D-03, .134024D-03, .831400D-04, .509966D-04 /
        DATA (UPDI(I),I=4993,5044) /
     +  .310457D-04, .188457D-04, .114461D-04, .697183D-05,
     +  .422097D-05, .251699D-05, .144060D-05, .763463D-06,
     +  .354542D-06, .130809D-06, .313650D-07, .282940D-08,
     +  .000000D+00, .345471D+07, .255601D+07, .185098D+07,
     +  .133962D+07, .968805D+06, .700105D+06, .505541D+06,
     +  .364761D+06, .262977D+06, .189441D+06, .136358D+06,
     +  .980674D+05, .704712D+05, .505979D+05, .362990D+05,
     +  .260190D+05, .186352D+05, .133356D+05, .953583D+04,
     +  .681329D+04, .486463D+04, .347078D+04, .247486D+04,
     +  .176363D+04, .125627D+04, .894347D+03, .636810D+03,
     +  .451253D+03, .321450D+03, .229108D+03, .163435D+03,
     +  .116736D+03, .835143D+02, .599363D+02, .430985D+02,
     +  .310987D+02, .225319D+02, .164012D+02, .120012D+02 /
        DATA (UPDI(I),I=5045,5096) /
     +  .882949D+01, .653661D+01, .486751D+01, .364616D+01,
     +  .274680D+01, .208032D+01, .158276D+01, .121051D+01,
     +  .927201D+00, .713256D+00, .548766D+00, .423032D+00,
     +  .326175D+00, .251358D+00, .193454D+00, .148591D+00,
     +  .113825D+00, .869013D-01, .660811D-01, .500168D-01,
     +  .376597D-01, .281903D-01, .209669D-01, .154751D-01,
     +  .113474D-01, .823297D-02, .591693D-02, .420889D-02,
     +  .296071D-02, .205789D-02, .141208D-02, .955772D-03,
     +  .637738D-03, .419416D-03, .271304D-03, .173562D-03,
     +  .109200D-03, .679183D-04, .418863D-04, .257134D-04,
     +  .157779D-04, .969581D-05, .596769D-05, .363712D-05,
     +  .217059D-05, .123492D-05, .646061D-06, .294094D-06,
     +  .105571D-06, .245774D-07, .224763D-08, .000000D+00 /
        DATA (UPDI(I),I=5097,5148) /
     +  .689519D+05, .100320D+06, .771748D+05, .593696D+05,
     +  .456725D+05, .351355D+05, .270297D+05, .207941D+05,
     +  .159972D+05, .123070D+05, .946826D+04, .728445D+04,
     +  .560449D+04, .431212D+04, .331792D+04, .255308D+04,
     +  .196470D+04, .151205D+04, .116381D+04, .895906D+03,
     +  .689790D+03, .531207D+03, .409191D+03, .315304D+03,
     +  .243056D+03, .187455D+03, .144659D+03, .111306D+03,
     +  .860423D+02, .665821D+02, .515871D+02, .400274D+02,
     +  .311110D+02, .242466D+02, .189284D+02, .148162D+02,
     +  .116315D+02, .916024D+01, .723799D+01, .573781D+01,
     +  .456480D+01, .364255D+01, .291479D+01, .233797D+01,
     +  .187876D+01, .151166D+01, .121804D+01, .980079D+00,
     +  .789061D+00, .633525D+00, .507997D+00, .406235D+00 /
        DATA (UPDI(I),I=5149,5200) /
     +  .323774D+00, .257032D+00, .203117D+00, .159682D+00,
     +  .124812D+00, .969366D-01, .747618D-01, .572211D-01,
     +  .434332D-01, .326706D-01, .243340D-01, .179568D-01,
     +  .130728D-01, .939625D-02, .665972D-02, .464795D-02,
     +  .318915D-02, .214728D-02, .141566D-02, .911529D-03,
     +  .571275D-03, .346958D-03, .204287D-03, .115027D-03,
     +  .616741D-04, .311453D-04, .145787D-04, .616563D-05,
     +  .224689D-05, .630335D-06, .757438D-07, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .159548D+06,
     +  .123734D+06, .947278D+05, .725282D+05, .555353D+05,
     +  .425270D+05, .325680D+05, .249431D+05, .191048D+05,
     +  .146342D+05, .112105D+05, .858854D+04, .658035D+04 /
        DATA (UPDI(I),I=5201,5252) /
     +  .504215D+04, .386389D+04, .296126D+04, .226975D+04,
     +  .173994D+04, .133399D+04, .102292D+04, .784548D+03,
     +  .601856D+03, .461834D+03, .354501D+03, .272221D+03,
     +  .209127D+03, .160753D+03, .123192D+03, .948482D+02,
     +  .730960D+02, .563969D+02, .435719D+02, .337165D+02,
     +  .261580D+02, .203247D+02, .158321D+02, .123668D+02,
     +  .968912D+01, .761529D+01, .600408D+01, .475015D+01,
     +  .376909D+01, .299889D+01, .239168D+01, .191099D+01,
     +  .152889D+01, .122511D+01, .980375D+00, .785135D+00,
     +  .627141D+00, .500414D+00, .398304D+00, .316056D+00,
     +  .249875D+00, .196714D+00, .154120D+00, .120101D+00,
     +  .930389D-01, .716090D-01, .547285D-01, .415091D-01,
     +  .312256D-01, .232795D-01, .172131D-01, .125730D-01 /
        DATA (UPDI(I),I=5253,5304) /
     +  .908107D-02, .647979D-02, .456318D-02, .316793D-02,
     +  .216535D-02, .145517D-02, .959683D-03, .619920D-03,
     +  .390779D-03, .240685D-03, .143062D-03, .816287D-04,
     +  .440329D-04, .217495D-04, .911173D-05, .230842D-05,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .000000D+00, .202653D+06, .156493D+06,
     +  .119221D+06, .908381D+05, .692184D+05, .527487D+05,
     +  .402014D+05, .306413D+05, .233567D+05, .178054D+05,
     +  .135747D+05, .103502D+05, .789235D+04, .601871D+04,
     +  .459035D+04, .350132D+04, .267098D+04, .203780D+04,
     +  .155495D+04, .118669D+04, .905827D+03, .691578D+03,
     +  .528144D+03, .403450D+03, .308312D+03, .235695D+03 /
        DATA (UPDI(I),I=5305,5356) /
     +  .180286D+03, .137468D+03, .105309D+03, .807470D+02,
     +  .619800D+02, .476360D+02, .366659D+02, .282932D+02,
     +  .218632D+02, .169354D+02, .131535D+02, .102461D+02,
     +  .800597D+01, .627479D+01, .493478D+01, .389218D+01,
     +  .307832D+01, .244041D+01, .193846D+01, .154183D+01,
     +  .122847D+01, .977551D+00, .778644D+00, .618684D+00,
     +  .491174D+00, .389060D+00, .307300D+00, .241895D+00,
     +  .189656D+00, .148028D+00, .114956D+00, .887780D-01,
     +  .681461D-01, .519659D-01, .393466D-01, .295672D-01,
     +  .220334D-01, .162978D-01, .119202D-01, .863091D-02,
     +  .618235D-02, .437788D-02, .306249D-02, .211473D-02,
     +  .144035D-02, .966842D-03, .639119D-03, .415286D-03,
     +  .266194D-03, .167028D-03, .102743D-03, .618008D-04 /
        DATA (UPDI(I),I=5357,5408) /
     +  .362065D-04, .205286D-04, .111388D-04, .568892D-05,
     +  .262998D-05, .103034D-05, .271756D-06, .000000D+00,
     +  .000000D+00, .000000D+00, .000000D+00, .000000D+00,
     +  .000000D+00, .260732D+06, .200509D+06, .152022D+06,
     +  .115273D+06, .874131D+05, .662900D+05, .502741D+05,
     +  .381299D+05, .289208D+05, .219371D+05, .166408D+05,
     +  .126239D+05, .957729D+04, .726636D+04, .551346D+04,
     +  .418371D+04, .317497D+04, .240966D+04, .182904D+04,
     +  .138849D+04, .105423D+04, .800571D+03, .608089D+03,
     +  .461999D+03, .351127D+03, .266942D+03, .203056D+03,
     +  .153952D+03, .117273D+03, .894083D+02, .682340D+02,
     +  .521385D+02, .398961D+02, .306039D+02, .235072D+02,
     +  .180988D+02, .139716D+02, .108165D+02, .839958D+01 /
        DATA (UPDI(I),I=5409,5460) /
     +  .654254D+01, .511355D+01, .400830D+01, .315071D+01,
     +  .248264D+01, .196021D+01, .154993D+01, .122783D+01,
     +  .971513D+00, .769611D+00, .608253D+00, .480421D+00,
     +  .378670D+00, .297684D+00, .233274D+00, .182118D+00,
     +  .141576D+00, .109536D+00, .843017D-01, .645090D-01,
     +  .490571D-01, .370571D-01, .277947D-01, .206835D-01,
     +  .152867D-01, .111789D-01, .809923D-02, .581047D-02,
     +  .412537D-02, .289720D-02, .201156D-02, .138016D-02,
     +  .935424D-03, .626099D-03, .413363D-03, .270361D-03,
     +  .174092D-03, .110705D-03, .695154D-04, .431017D-04,
     +  .263626D-04, .159000D-04, .944362D-05, .548993D-05,
     +  .312641D-05, .172880D-05, .917276D-06, .453239D-06,
     +  .198001D-06, .626786D-07, .455082D-08, .000000D+00 /
        DATA (UPDI(I),I=5461,5512) /
     +  .210276D+06, .257845D+06, .194594D+06, .146867D+06,
     +  .110846D+06, .836593D+05, .631405D+05, .476542D+05,
     +  .359661D+05, .271447D+05, .204870D+05, .154622D+05,
     +  .116699D+05, .880781D+04, .664777D+04, .501754D+04,
     +  .378724D+04, .285871D+04, .215797D+04, .162911D+04,
     +  .123001D+04, .928780D+03, .701455D+03, .529871D+03,
     +  .400375D+03, .302598D+03, .228823D+03, .172442D+03,
     +  .130571D+03, .989459D+02, .750536D+02, .569980D+02,
     +  .433452D+02, .330434D+02, .252223D+02, .192972D+02,
     +  .148027D+02, .113874D+02, .878704D+01, .680110D+01,
     +  .528222D+01, .411466D+01, .321431D+01, .251728D+01,
     +  .197561D+01, .155287D+01, .122309D+01, .962276D+00,
     +  .758125D+00, .595974D+00, .468298D+00, .367280D+00 /
        DATA (UPDI(I),I=5513,5564) /
     +  .287349D+00, .224143D+00, .174223D+00, .134875D+00,
     +  .103941D+00, .797008D-01, .607795D-01, .460761D-01,
     +  .347074D-01, .259685D-01, .192838D-01, .142284D-01,
     +  .103926D-01, .752476D-02, .539837D-02, .383565D-02,
     +  .269808D-02, .187823D-02, .129361D-02, .881377D-03,
     +  .594046D-03, .395743D-03, .261799D-03, .171035D-03,
     +  .110755D-03, .711447D-04, .453791D-04, .287459D-04,
     +  .181037D-04, .113255D-04, .699838D-05, .426442D-05,
     +  .252822D-05, .142861D-05, .739216D-06, .327452D-06,
     +  .100859D-06, .789532D-08, .000000D+00, .461925D+06,
     +  .352171D+06, .264325D+06, .198387D+06, .148884D+06,
     +  .111723D+06, .838288D+05, .628931D+05, .471814D+05,
     +  .353913D+05, .265450D+05, .199080D+05, .149292D+05 /
        DATA (UPDI(I),I=5565,5616) /
     +  .111946D+05, .839356D+04, .629292D+04, .471776D+04,
     +  .353667D+04, .265122D+04, .198741D+04, .148985D+04,
     +  .111689D+04, .837381D+03, .627889D+03, .470908D+03,
     +  .353223D+03, .265080D+03, .198215D+03, .148928D+03,
     +  .111979D+03, .842737D+02, .634952D+02, .479025D+02,
     +  .362269D+02, .274306D+02, .208181D+02, .158408D+02,
     +  .120880D+02, .925277D+01, .710431D+01, .547394D+01,
     +  .423045D+01, .327906D+01, .254830D+01, .198489D+01,
     +  .154861D+01, .121094D+01, .945955D+00, .740155D+00,
     +  .577946D+00, .451191D+00, .351645D+00, .273452D+00,
     +  .212059D+00, .163907D+00, .126208D+00, .967633D-01,
     +  .738356D-01, .560469D-01, .423035D-01, .317359D-01,
     +  .236555D-01, .175039D-01, .128730D-01, .937404D-02 /
        DATA (UPDI(I),I=5617,5668) /
     +  .676803D-02, .484240D-02, .343143D-02, .240691D-02,
     +  .167007D-02, .114550D-02, .776081D-03, .518985D-03,
     +  .341733D-03, .222265D-03, .141619D-03, .884278D-04,
     +  .539047D-04, .319115D-04, .182055D-04, .989739D-05,
     +  .505229D-05, .234658D-05, .953931D-06, .308029D-06,
     +  .593650D-07, .000000D+00, .000000D+00, .502828D-09,
     +  .000000D+00, .000000D+00, .626965D+06, .475885D+06,
     +  .355321D+06, .265272D+06, .198006D+06, .147768D+06,
     +  .110254D+06, .822480D+05, .613435D+05, .457430D+05,
     +  .341032D+05, .254203D+05, .189445D+05, .141157D+05,
     +  .105159D+05, .783265D+04, .583319D+04, .434344D+04,
     +  .323378D+04, .240731D+04, .179195D+04, .133379D+04,
     +  .992792D+03, .738978D+03, .550123D+03, .409546D+03 /
        DATA (UPDI(I),I=5669,5720) /
     +  .305026D+03, .226318D+03, .168733D+03, .125885D+03,
     +  .939974D+02, .702634D+02, .525881D+02, .394544D+02,
     +  .296356D+02, .223114D+02, .168411D+02, .127486D+02,
     +  .968066D+01, .737389D+01, .563698D+01, .432250D+01,
     +  .332460D+01, .256406D+01, .198225D+01, .153518D+01,
     +  .119183D+01, .924443D+00, .718364D+00, .557156D+00,
     +  .432120D+00, .334642D+00, .258624D+00, .199359D+00,
     +  .153198D+00, .117300D+00, .894464D-01, .678966D-01,
     +  .512807D-01, .385208D-01, .287667D-01, .213501D-01,
     +  .157336D-01, .115274D-01, .836486D-02, .602043D-02,
     +  .429569D-02, .303708D-02, .212664D-02, .147406D-02,
     +  .101088D-02, .685535D-03, .459565D-03, .303972D-03,
     +  .199159D-03, .128360D-03, .815553D-04, .510313D-04 /
        DATA (UPDI(I),I=5721,5772) /
     +  .314131D-04, .189986D-04, .112808D-04, .657766D-05,
     +  .375090D-05, .210089D-05, .114922D-05, .606546D-06,
     +  .298794D-06, .127927D-06, .379691D-07, .291247D-08,
     +  .000000D+00, .838457D+06, .633759D+06, .470862D+06,
     +  .349766D+06, .259737D+06, .192825D+06, .143107D+06,
     +  .106177D+06, .787531D+05, .583946D+05, .432860D+05,
     +  .320767D+05, .237631D+05, .175989D+05, .130300D+05,
     +  .964451D+04, .713675D+04, .527964D+04, .390491D+04,
     +  .288745D+04, .213475D+04, .157797D+04, .116632D+04,
     +  .861969D+03, .637059D+03, .470797D+03, .348058D+03,
     +  .256291D+03, .189639D+03, .140405D+03, .104035D+03,
     +  .771652D+02, .573040D+02, .426569D+02, .317894D+02,
     +  .237447D+02, .177819D+02, .133550D+02, .100617D+02 /
        DATA (UPDI(I),I=5773,5824) /
     +  .760441D+01, .576826D+01, .438926D+01, .335036D+01,
     +  .256461D+01, .196807D+01, .151314D+01, .116640D+01,
     +  .898376D+00, .693357D+00, .534160D+00, .411585D+00,
     +  .316712D+00, .243250D+00, .186375D+00, .142377D+00,
     +  .108392D+00, .821943D-01, .620554D-01, .466244D-01,
     +  .348466D-01, .258966D-01, .191306D-01, .140348D-01,
     +  .102390D-01, .740007D-02, .530607D-02, .377300D-02,
     +  .265940D-02, .185738D-02, .128487D-02, .880062D-03,
     +  .596712D-03, .400502D-03, .265722D-03, .175083D-03,
     +  .113893D-03, .733964D-04, .468906D-04, .297264D-04,
     +  .187179D-04, .117220D-04, .730485D-05, .450599D-05,
     +  .274535D-05, .162654D-05, .913696D-06, .465272D-06,
     +  .197862D-06, .564300D-07, .462806D-08, .000000D+00 /
        DATA (UPDI(I),I=5825,5876) /
     +  .110336D+07, .830686D+06, .614269D+06, .454107D+06,
     +  .335577D+06, .247888D+06, .183042D+06, .135104D+06,
     +  .996820D+05, .735170D+05, .541981D+05, .399395D+05,
     +  .294204D+05, .216629D+05, .159447D+05, .117312D+05,
     +  .862802D+04, .634327D+04, .466199D+04, .342515D+04,
     +  .251576D+04, .184728D+04, .135617D+04, .995424D+03,
     +  .730584D+03, .536103D+03, .393514D+03, .287642D+03,
     +  .211284D+03, .155276D+03, .114197D+03, .840671D+02,
     +  .619570D+02, .457706D+02, .338492D+02, .250895D+02,
     +  .186450D+02, .138958D+02, .103892D+02, .779217D+01,
     +  .586603D+01, .443020D+01, .335651D+01, .255047D+01,
     +  .194307D+01, .148325D+01, .113538D+01, .868439D+00,
     +  .665740D+00, .509478D+00, .390024D+00, .298218D+00 /
        DATA (UPDI(I),I=5877,5928) /
     +  .227625D+00, .173347D+00, .131641D+00, .996384D-01,
     +  .751301D-01, .564100D-01, .421557D-01, .313426D-01,
     +  .231749D-01, .170363D-01, .124390D-01, .903367D-02,
     +  .650043D-02, .464179D-02, .328800D-02, .230948D-02,
     +  .160808D-02, .110966D-02, .758757D-03, .514105D-03,
     +  .345294D-03, .229667D-03, .152073D-03, .997357D-04,
     +  .650667D-04, .422940D-04, .274358D-04, .177828D-04,
     +  .115221D-04, .745061D-05, .476757D-05, .299815D-05,
     +  .181654D-05, .103027D-05, .521899D-06, .216803D-06,
     +  .596017D-07, .502915D-08, .000000D+00, .142850D+07,
     +  .107142D+07, .788718D+06, .580403D+06, .426908D+06,
     +  .313857D+06, .230633D+06, .169393D+06, .124354D+06,
     +  .912442D+05, .669168D+05, .490506D+05, .359367D+05 /
        DATA (UPDI(I),I=5929,5980) /
     +  .263154D+05, .192606D+05, .140900D+05, .103026D+05,
     +  .752960D+04, .550056D+04, .401648D+04, .293170D+04,
     +  .213905D+04, .156025D+04, .113771D+04, .829455D+03,
     +  .604533D+03, .440707D+03, .319871D+03, .233308D+03,
     +  .170245D+03, .124307D+03, .908469D+02, .664645D+02,
     +  .487403D+02, .357789D+02, .263230D+02, .194162D+02,
     +  .143630D+02, .106588D+02, .793522D+01, .592978D+01,
     +  .444560D+01, .334378D+01, .252257D+01, .190820D+01,
     +  .144644D+01, .109960D+01, .835343D+00, .636114D+00,
     +  .483609D+00, .367842D+00, .279486D+00, .212009D+00,
     +  .160477D+00, .121144D+00, .911608D-01, .683467D-01,
     +  .510311D-01, .379285D-01, .280499D-01, .206330D-01,
     +  .150913D-01, .109648D-01, .792542D-02, .567696D-02 /
        DATA (UPDI(I),I=5981,6032) /
     +  .403621D-02, .284745D-02, .199263D-02, .138295D-02,
     +  .951769D-03, .649574D-03, .439764D-03, .295538D-03,
     +  .197044D-03, .131089D-03, .866353D-04, .571518D-04,
     +  .377064D-04, .249175D-04, .165016D-04, .109381D-04,
     +  .722892D-05, .471134D-05, .299928D-05, .182504D-05,
     +  .103006D-05, .514088D-06, .207780D-06, .551023D-07,
     +  .474495D-08, .000000D+00, .182043D+07, .136044D+07,
     +  .997155D+06, .730568D+06, .534960D+06, .391507D+06,
     +  .286361D+06, .209334D+06, .152938D+06, .111669D+06,
     +  .814891D+05, .594299D+05, .433165D+05, .315529D+05,
     +  .229705D+05, .167125D+05, .121524D+05, .883139D+04,
     +  .641449D+04, .465642D+04, .337858D+04, .245017D+04,
     +  .177618D+04, .128705D+04, .932360D+03, .675129D+03 /
        DATA (UPDI(I),I=6033,6084) /
     +  .488947D+03, .352491D+03, .255369D+03, .185073D+03,
     +  .134202D+03, .973956D+02, .707544D+02, .515195D+02,
     +  .375494D+02, .274277D+02, .200857D+02, .147514D+02,
     +  .108683D+02, .803306D+01, .595999D+01, .443647D+01,
     +  .331334D+01, .248211D+01, .186458D+01, .140367D+01,
     +  .105990D+01, .799791D+00, .605053D+00, .457012D+00,
     +  .345403D+00, .260798D+00, .196619D+00, .147930D+00,
     +  .111011D+00, .830502D-01, .619106D-01, .459670D-01,
     +  .339772D-01, .249929D-01, .182879D-01, .133077D-01,
     +  .962053D-02, .692030D-02, .493391D-02, .349238D-02,
     +  .245359D-02, .171053D-02, .118325D-02, .812167D-03,
     +  .553286D-03, .374306D-03, .251732D-03, .168265D-03,
     +  .112476D-03, .748859D-04, .499086D-04, .333562D-04 /
        DATA (UPDI(I),I=6085,6136) /
     +  .223767D-04, .150586D-04, .101350D-04, .678379D-05,
     +  .445870D-05, .284623D-05, .172532D-05, .963194D-06,
     +  .471817D-06, .185315D-06, .474732D-07, .415862D-08,
     +  .000000D+00, .228522D+07, .170188D+07, .124223D+07,
     +  .906277D+06, .660774D+06, .481472D+06, .350600D+06,
     +  .255136D+06, .185543D+06, .134843D+06, .979313D+05,
     +  .710751D+05, .515489D+05, .373611D+05, .270599D+05,
     +  .195853D+05, .141660D+05, .102392D+05, .739620D+04,
     +  .533908D+04, .385187D+04, .277724D+04, .200144D+04,
     +  .144159D+04, .103796D+04, .746931D+03, .537557D+03,
     +  .385033D+03, .277146D+03, .199542D+03, .143738D+03,
     +  .103618D+03, .747663D+02, .540707D+02, .391383D+02,
     +  .283909D+02, .206470D+02, .150582D+02, .110172D+02 /
        DATA (UPDI(I),I=6137,6188) /
     +  .808641D+01, .595795D+01, .440428D+01, .326667D+01,
     +  .243043D+01, .181339D+01, .135597D+01, .101711D+01,
     +  .762451D+00, .573086D+00, .430098D+00, .323021D+00,
     +  .242390D+00, .181629D+00, .135834D+00, .101333D+00,
     +  .753705D-01, .558656D-01, .412465D-01, .303205D-01,
     +  .221829D-01, .161463D-01, .116888D-01, .840769D-02,
     +  .601856D-02, .427091D-02, .300967D-02, .210571D-02,
     +  .146252D-02, .100844D-02, .690423D-03, .469577D-03,
     +  .317523D-03, .213758D-03, .143281D-03, .962421D-04,
     +  .645383D-04, .434176D-04, .293436D-04, .199238D-04,
     +  .135665D-04, .922120D-05, .621352D-05, .409364D-05,
     +  .260621D-05, .156696D-05, .862624D-06, .413967D-06,
     +  .157966D-06, .391534D-07, .348318D-08, .000000D+00 /
        DATA (UPDI(I),I=6189,6240) /
     +  .282838D+07, .209935D+07, .152620D+07, .110892D+07,
     +  .805177D+06, .584224D+06, .423605D+06, .306922D+06,
     +  .222218D+06, .160771D+06, .116229D+06, .839626D+05,
     +  .606079D+05, .437155D+05, .315073D+05, .226907D+05,
     +  .163289D+05, .117416D+05, .843695D+04, .605781D+04,
     +  .434665D+04, .311664D+04, .223339D+04, .159944D+04,
     +  .114491D+04, .819006D+03, .585891D+03, .417059D+03,
     +  .298343D+03, .213459D+03, .152787D+03, .109436D+03,
     +  .784515D+02, .563652D+02, .405297D+02, .292047D+02,
     +  .210968D+02, .152829D+02, .111064D+02, .809694D+01,
     +  .592556D+01, .435089D+01, .320546D+01, .236900D+01,
     +  .175586D+01, .130432D+01, .972022D+00, .723940D+00,
     +  .540688D+00, .403225D+00, .300962D+00, .224456D+00 /
        DATA (UPDI(I),I=6241,6292) /
     +  .167177D+00, .124283D+00, .921739D-01, .681629D-01,
     +  .502367D-01, .368837D-01, .269648D-01, .196217D-01,
     +  .142069D-01, .102319D-01, .732281D-02, .521664D-02,
     +  .368462D-02, .258511D-02, .180133D-02, .124658D-02,
     +  .856910D-03, .585317D-03, .397545D-03, .268770D-03,
     +  .181179D-03, .121815D-03, .822281D-04, .555211D-04,
     +  .376699D-04, .257010D-04, .176163D-04, .120949D-04,
     +  .826874D-05, .558546D-05, .367396D-05, .232490D-05,
     +  .138285D-05, .749354D-06, .351963D-06, .130507D-06,
     +  .313480D-07, .282916D-08, .000000D+00, .345464D+07,
     +  .255595D+07, .185092D+07, .133956D+07, .968759D+06,
     +  .700064D+06, .505505D+06, .364729D+06, .262948D+06,
     +  .189416D+06, .136335D+06, .980473D+05, .704534D+05 /
        DATA (UPDI(I),I=6293,6344) /
     +  .505821D+05, .362850D+05, .260065D+05, .186241D+05,
     +  .133258D+05, .952706D+04, .680549D+04, .485770D+04,
     +  .346461D+04, .246936D+04, .175873D+04, .125191D+04,
     +  .890462D+03, .633347D+03, .448170D+03, .318700D+03,
     +  .226655D+03, .161246D+03, .114783D+03, .817721D+02,
     +  .583820D+02, .417131D+02, .298650D+02, .214346D+02,
     +  .154270D+02, .111381D+02, .806708D+01, .586515D+01,
     +  .427840D+01, .313150D+01, .229929D+01, .169317D+01,
     +  .124965D+01, .925364D+00, .684812D+00, .508273D+00,
     +  .376697D+00, .279442D+00, .207148D+00, .153366D+00,
     +  .113345D+00, .835741D-01, .614499D-01, .450340D-01,
     +  .328806D-01, .239071D-01, .173037D-01, .124629D-01,
     +  .893009D-02, .635927D-02, .450858D-02, .316991D-02 /
        DATA (UPDI(I),I=6345,6396) /
     +  .221442D-02, .153696D-02, .105994D-02, .726539D-03,
     +  .495245D-03, .336011D-03, .227209D-03, .153416D-03,
     +  .103488D-03, .702026D-04, .477096D-04, .326146D-04,
     +  .224266D-04, .154818D-04, .106869D-04, .732563D-05,
     +  .494536D-05, .323874D-05, .203255D-05, .119401D-05,
     +  .636217D-06, .292323D-06, .105367D-06, .245660D-07,
     +  .224747D-08, .000000D+00, .377079D+07, .287859D+07,
     +  .216386D+07, .162661D+07, .122275D+07, .919172D+06,
     +  .690971D+06, .519432D+06, .390485D+06, .293554D+06,
     +  .220689D+06, .165915D+06, .124741D+06, .937880D+05,
     +  .705195D+05, .530273D+05, .398772D+05, .299910D+05,
     +  .225584D+05, .169703D+05, .127687D+05, .960948D+04,
     +  .723382D+04, .544722D+04, .410350D+04, .309272D+04 /
        DATA (UPDI(I),I=6397,6448) /
     +  .233228D+04, .175304D+04, .132423D+04, .100133D+04,
     +  .758098D+03, .574789D+03, .436564D+03, .332536D+03,
     +  .253753D+03, .194215D+03, .149159D+03, .115004D+03,
     +  .890570D+02, .692882D+02, .542022D+02, .426294D+02,
     +  .337197D+02, .268286D+02, .214721D+02, .172862D+02,
     +  .140075D+02, .113990D+02, .933685D+01, .767654D+01,
     +  .634531D+01, .526727D+01, .438931D+01, .367031D+01,
     +  .307835D+01, .258852D+01, .218129D+01, .184123D+01,
     +  .155613D+01, .131621D+01, .111363D+01, .942068D+00,
     +  .796386D+00, .672932D+00, .567027D+00, .476660D+00,
     +  .399493D+00, .333583D+00, .277314D+00, .229328D+00,
     +  .188481D+00, .153804D+00, .124453D+00, .997022D-01,
     +  .791370D-01, .619169D-01, .477296D-01, .361581D-01 /
        DATA (UPDI(I),I=6449,6500) /
     +  .268354D-01, .194358D-01, .136689D-01, .928055D-02,
     +  .601348D-02, .368696D-02, .209719D-02, .107649D-02,
     +  .476024D-03, .166235D-03, .377135D-04, .297705D-05,
     +  .000000D+00, .549014D+07, .418523D+07, .314070D+07,
     +  .235652D+07, .176790D+07, .132612D+07, .994577D+06,
     +  .745804D+06, .559163D+06, .419155D+06, .314147D+06,
     +  .235399D+06, .176357D+06, .132096D+06, .989231D+05,
     +  .740646D+05, .554412D+05, .414915D+05, .310455D+05,
     +  .232245D+05, .173707D+05, .129901D+05, .971308D+04,
     +  .726191D+04, .542924D+04, .405875D+04, .303485D+04,
     +  .226041D+04, .169140D+04, .126630D+04, .948751D+03,
     +  .711553D+03, .534335D+03, .402256D+03, .303244D+03,
     +  .229210D+03, .173800D+03, .132270D+03, .101090D+03 /
        DATA (UPDI(I),I=6501,6552) /
     +  .776157D+02, .599183D+02, .465075D+02, .363092D+02,
     +  .285179D+02, .225360D+02, .179167D+02, .143424D+02,
     +  .115312D+02, .933457D+01, .758595D+01, .619941D+01,
     +  .508874D+01, .419380D+01, .346856D+01, .287762D+01,
     +  .239363D+01, .199533D+01, .166611D+01, .139289D+01,
     +  .116532D+01, .975153D+00, .815827D+00, .681915D+00,
     +  .569667D+00, .474443D+00, .394119D+00, .326334D+00,
     +  .269139D+00, .220920D+00, .180329D+00, .146238D+00,
     +  .117696D+00, .938998D-01, .741212D-01, .579438D-01,
     +  .446179D-01, .338256D-01, .251804D-01, .183460D-01,
     +  .130299D-01, .897238D-02, .595591D-02, .376493D-02,
     +  .224640D-02, .123940D-02, .614401D-03, .260848D-03,
     +  .866885D-04, .186612D-04, .150176D-05, .000000D+00 /
        DATA (UPDI(I),I=6553,6604) /
     +  .770869D+07, .586336D+07, .438826D+07, .328339D+07,
     +  .245604D+07, .183664D+07, .137305D+07, .102616D+07,
     +  .766659D+06, .572587D+06, .427492D+06, .319046D+06,
     +  .238020D+06, .177501D+06, .132315D+06, .985897D+05,
     +  .734292D+05, .546649D+05, .406779D+05, .302556D+05,
     +  .224940D+05, .167159D+05, .124171D+05, .921994D+04,
     +  .684384D+04, .507777D+04, .376722D+04, .278275D+04,
     +  .206462D+04, .153211D+04, .113740D+04, .844954D+03,
     +  .628281D+03, .468200D+03, .349278D+03, .261184D+03,
     +  .195883D+03, .147422D+03, .111404D+03, .845647D+02,
     +  .645407D+02, .495253D+02, .382271D+02, .296865D+02,
     +  .231984D+02, .182398D+02, .144429D+02, .114867D+02,
     +  .920038D+01, .739838D+01, .598354D+01, .486116D+01 /
        DATA (UPDI(I),I=6605,6656) /
     +  .396543D+01, .324642D+01, .266607D+01, .219521D+01,
     +  .181136D+01, .149706D+01, .123870D+01, .102557D+01,
     +  .849217D+00, .702939D+00, .581204D+00, .480218D+00,
     +  .395458D+00, .324743D+00, .265741D+00, .216537D+00,
     +  .175554D+00, .141485D+00, .113241D+00, .899109D-01,
     +  .707391D-01, .550294D-01, .423753D-01, .321169D-01,
     +  .239473D-01, .175179D-01, .125292D-01, .872504D-02,
     +  .588166D-02, .381602D-02, .235229D-02, .136505D-02,
     +  .729915D-03, .349059D-03, .142062D-03, .448559D-04,
     +  .915196D-05, .749744D-06, .000000D+00, .104860D+08,
     +  .795473D+07, .593475D+07, .442603D+07, .329959D+07,
     +  .245885D+07, .183157D+07, .136372D+07, .101492D+07,
     +  .754968D+06, .561324D+06, .417132D+06, .309816D+06 /
        DATA (UPDI(I),I=6657,6708) /
     +  .229980D+06, .170621D+06, .126506D+06, .937414D+05,
     +  .694182D+05, .513742D+05, .379951D+05, .280826D+05,
     +  .207421D+05, .153110D+05, .112946D+05, .832715D+04,
     +  .613483D+04, .451847D+04, .331227D+04, .243840D+04,
     +  .179495D+04, .132147D+04, .973298D+03, .717326D+03,
     +  .529718D+03, .391491D+03, .289962D+03, .215352D+03,
     +  .160473D+03, .120053D+03, .902093D+02, .681497D+02,
     +  .517623D+02, .395474D+02, .304005D+02, .235173D+02,
     +  .183054D+02, .143518D+02, .113015D+02, .896411D+01,
     +  .713846D+01, .571788D+01, .460093D+01, .371738D+01,
     +  .301436D+01, .245188D+01, .199952D+01, .163400D+01,
     +  .133737D+01, .109572D+01, .898192D+00, .736268D+00,
     +  .603236D+00, .493576D+00, .403510D+00, .328687D+00 /
        DATA (UPDI(I),I=6709,6760) /
     +  .266921D+00, .215946D+00, .173914D+00, .139312D+00,
     +  .110894D+00, .876280D-01, .686618D-01, .532889D-01,
     +  .408668D-01, .310083D-01, .231395D-01, .169746D-01,
     +  .122056D-01, .857224D-02, .585475D-02, .386500D-02,
     +  .245170D-02, .147424D-02, .832380D-03, .431570D-03,
     +  .199226D-03, .778045D-04, .233946D-04, .454374D-05,
     +  .376939D-06, .000000D+00, .138807D+08, .105000D+08,
     +  .780722D+07, .580222D+07, .431006D+07, .320003D+07,
     +  .237464D+07, .176119D+07, .130547D+07, .967103D+06,
     +  .716001D+06, .529757D+06, .391701D+06, .289422D+06,
     +  .213700D+06, .157672D+06, .116247D+06, .856381D+05,
     +  .630397D+05, .463660D+05, .340754D+05, .250214D+05,
     +  .183587D+05, .134587D+05, .985916D+04, .721533D+04 /
        DATA (UPDI(I),I=6761,6812) /
     +  .527815D+04, .384164D+04, .280768D+04, .205140D+04,
     +  .149871D+04, .109515D+04, .800591D+03, .586309D+03,
     +  .429630D+03, .315445D+03, .232205D+03, .171474D+03,
     +  .127115D+03, .946363D+02, .708322D+02, .532995D+02,
     +  .403428D+02, .307238D+02, .235474D+02, .181596D+02,
     +  .141074D+02, .110073D+02, .865174D+01, .682727D+01,
     +  .541939D+01, .432155D+01, .346027D+01, .278060D+01,
     +  .224127D+01, .181113D+01, .146645D+01, .118911D+01,
     +  .965109D+00, .783604D+00, .636139D+00, .516085D+00,
     +  .418034D+00, .338271D+00, .272660D+00, .219049D+00,
     +  .175269D+00, .139561D+00, .110496D+00, .869030D-01,
     +  .678214D-01, .524629D-01, .401779D-01, .303855D-01,
     +  .227252D-01, .167025D-01, .120583D-01, .852565D-02 /
        DATA (UPDI(I),I=6813,6864) /
     +  .588159D-02, .394106D-02, .254868D-02, .158120D-02,
     +  .927825D-03, .509915D-03, .256479D-03, .114368D-03,
     +  .429037D-04, .123111D-04, .228366D-05, .190543D-06,
     +  .000000D+00, .189529D+08, .142838D+08, .105737D+08,
     +  .782272D+07, .578405D+07, .427404D+07, .315623D+07,
     +  .232922D+07, .171773D+07, .126586D+07, .932176D+06,
     +  .685919D+06, .504317D+06, .370487D+06, .271940D+06,
     +  .199427D+06, .146119D+06, .106958D+06, .782187D+05,
     +  .571441D+05, .417072D+05, .304086D+05, .221493D+05,
     +  .161163D+05, .117154D+05, .850589D+04, .617186D+04,
     +  .445419D+04, .322755D+04, .233748D+04, .169232D+04,
     +  .122520D+04, .887178D+03, .643434D+03, .466815D+03,
     +  .339281D+03, .247180D+03, .180625D+03, .132482D+03 /
        DATA (UPDI(I),I=6865,6916) /
     +  .975765D+02, .722469D+02, .537759D+02, .402621D+02,
     +  .303298D+02, .229938D+02, .175409D+02, .134805D+02,
     +  .104047D+02, .809083D+01, .631619D+01, .496017D+01,
     +  .391310D+01, .309966D+01, .246403D+01, .196461D+01,
     +  .157024D+01, .125740D+01, .100823D+01, .809067D+00,
     +  .649383D+00, .521042D+00, .417703D+00, .334246D+00,
     +  .267142D+00, .212601D+00, .168585D+00, .133097D+00,
     +  .104533D+00, .815994D-01, .632462D-01, .486200D-01,
     +  .370274D-01, .279019D-01, .207474D-01, .152476D-01,
     +  .110018D-01, .779033D-02, .539659D-02, .364313D-02,
     +  .238534D-02, .150471D-02, .908850D-03, .517845D-03,
     +  .275546D-03, .133681D-03, .572241D-04, .204873D-04,
     +  .557624D-05, .983072D-06, .814691D-07, .000000D+00 /
        DATA (UPDI(I),I=6917,6968) /
     +  .252017D+08, .189213D+08, .139434D+08, .102681D+08,
     +  .755640D+07, .555686D+07, .408342D+07, .299837D+07,
     +  .219989D+07, .161272D+07, .118127D+07, .864469D+06,
     +  .632055D+06, .461683D+06, .336908D+06, .245602D+06,
     +  .178856D+06, .130107D+06, .945424D+05, .686198D+05,
     +  .497490D+05, .360243D+05, .260564D+05, .188233D+05,
     +  .135827D+05, .978722D+04, .704690D+04, .504498D+04,
     +  .362607D+04, .260434D+04, .186954D+04, .134175D+04,
     +  .962937D+03, .692054D+03, .497436D+03, .358124D+03,
     +  .258403D+03, .186987D+03, .135796D+03, .990212D+02,
     +  .725815D+02, .534800D+02, .396354D+02, .295552D+02,
     +  .221796D+02, .167481D+02, .127415D+02, .973450D+01,
     +  .749343D+01, .579051D+01, .450135D+01, .351510D+01 /
        DATA (UPDI(I),I=6969,7020) /
     +  .275602D+01, .216838D+01, .171101D+01, .135327D+01,
     +  .107222D+01, .850546D+00, .675117D+00, .535893D+00,
     +  .425154D+00, .336931D+00, .266455D+00, .210421D+00,
     +  .165404D+00, .129506D+00, .100921D+00, .782056D-01,
     +  .602090D-01, .460041D-01, .348452D-01, .261323D-01,
     +  .193796D-01, .141709D-01, .102347D-01, .725007D-02,
     +  .503502D-02, .341687D-02, .225661D-02, .144316D-02,
     +  .887490D-03, .521442D-03, .288163D-03, .148219D-03,
     +  .692078D-04, .283536D-04, .964718D-05, .247582D-05,
     +  .411118D-06, .331581D-07, .000000D+00, .327210D+08,
     +  .244741D+08, .179541D+08, .131610D+08, .963998D+07,
     +  .705531D+07, .515938D+07, .376969D+07, .275187D+07,
     +  .200700D+07, .146236D+07, .106446D+07, .774043D+06 /
        DATA (UPDI(I),I=7021,7072) /
     +  .562257D+06, .407974D+06, .295688D+06, .214059D+06,
     +  .154776D+06, .111776D+06, .806173D+05, .580716D+05,
     +  .417745D+05, .300126D+05, .215323D+05, .154282D+05,
     +  .110368D+05, .788821D+04, .560418D+04, .399701D+04,
     +  .284817D+04, .202811D+04, .144359D+04, .102731D+04,
     +  .732001D+03, .521548D+03, .372141D+03, .266089D+03,
     +  .190783D+03, .137268D+03, .991559D+02, .719944D+02,
     +  .525438D+02, .385706D+02, .284865D+02, .211733D+02,
     +  .158352D+02, .119322D+02, .902863D+01, .688375D+01,
     +  .526823D+01, .405600D+01, .313678D+01, .243553D+01,
     +  .189751D+01, .148251D+01, .116087D+01, .910505D+00,
     +  .714888D+00, .561554D+00, .441050D+00, .346153D+00,
     +  .271322D+00, .212166D+00, .165638D+00, .128672D+00 /
        DATA (UPDI(I),I=7073,7124) /
     +  .995312D-01, .766011D-01, .586026D-01, .445233D-01,
     +  .335563D-01, .250588D-01, .185181D-01, .135240D-01,
     +  .973137D-02, .691192D-02, .481046D-02, .327900D-02,
     +  .218160D-02, .141071D-02, .881972D-03, .529254D-03,
     +  .302795D-03, .162478D-03, .808884D-04, .364050D-04,
     +  .143005D-04, .463516D-05, .112501D-05, .175958D-06,
     +  .133046D-07, .000000D+00, .415908D+08, .309931D+08,
     +  .226353D+08, .165173D+08, .120427D+08, .877257D+07,
     +  .638462D+07, .464229D+07, .337215D+07, .244704D+07,
     +  .177387D+07, .128449D+07, .929086D+06, .671232D+06,
     +  .484366D+06, .349084D+06, .251269D+06, .180621D+06,
     +  .129664D+06, .929513D+05, .665414D+05, .475645D+05,
     +  .339516D+05, .241975D+05, .172209D+05, .122340D+05 /
        DATA (UPDI(I),I=7125,7176) /
     +  .868235D+04, .612337D+04, .433521D+04, .306596D+04,
     +  .216645D+04, .152999D+04, .108009D+04, .763348D+03,
     +  .539367D+03, .381606D+03, .270518D+03, .192273D+03,
     +  .137125D+03, .981739D+02, .706450D+02, .510957D+02,
     +  .371693D+02, .272034D+02, .200366D+02, .148491D+02,
     +  .110880D+02, .831348D+01, .628109D+01, .476311D+01,
     +  .363363D+01, .278436D+01, .214196D+01, .165329D+01,
     +  .127960D+01, .992490D+00, .770976D+00, .599456D+00,
     +  .466239D+00, .362519D+00, .281618D+00, .218444D+00,
     +  .169001D+00, .130512D+00, .100255D+00, .766642D-01,
     +  .583097D-01, .440701D-01, .330653D-01, .245999D-01,
     +  .181257D-01, .132094D-01, .950825D-02, .673868D-02,
     +  .471142D-02, .322473D-02, .215975D-02, .141037D-02 /
        DATA (UPDI(I),I=7177,7228) /
     +  .894036D-03, .547155D-03, .320859D-03, .179037D-03,
     +  .934538D-04, .451268D-04, .196255D-04, .741431D-05,
     +  .229799D-05, .529713D-06, .779615D-07, .521459D-08,
     +  .000000D+00, .518710D+08, .385137D+08, .280051D+08,
     +  .203451D+08, .147667D+08, .107076D+08, .775665D+07,
     +  .561322D+07, .405781D+07, .293019D+07, .211354D+07,
     +  .152270D+07, .109571D+07, .787463D+06, .565205D+06,
     +  .405131D+06, .289996D+06, .207283D+06, .147948D+06,
     +  .105437D+06, .750283D+05, .533039D+05, .378118D+05,
     +  .267774D+05, .189334D+05, .133612D+05, .941826D+04,
     +  .659590D+04, .463687D+04, .325573D+04, .228367D+04,
     +  .160070D+04, .112138D+04, .786384D+03, .551246D+03,
     +  .386873D+03, .272014D+03, .191739D+03, .135602D+03 /
        DATA (UPDI(I),I=7229,7280) /
     +  .962647D+02, .686835D+02, .492530D+02, .355220D+02,
     +  .257746D+02, .188211D+02, .138281D+02, .102371D+02,
     +  .760904D+01, .569942D+01, .428453D+01, .324021D+01,
     +  .246129D+01, .187685D+01, .143589D+01, .110146D+01,
     +  .846658D+00, .651724D+00, .502077D+00, .386861D+00,
     +  .297954D+00, .229234D+00, .176069D+00, .134855D+00,
     +  .103084D+00, .783569D-01, .592766D-01, .445891D-01,
     +  .333193D-01, .247081D-01, .181615D-01, .132156D-01,
     +  .950711D-02, .675175D-02, .471817D-02, .325092D-02,
     +  .219102D-02, .144378D-02, .926750D-03, .576827D-03,
     +  .346188D-03, .198782D-03, .108423D-03, .551965D-04,
     +  .259301D-04, .109362D-04, .399093D-05, .118908D-05,
     +  .261791D-06, .362235D-07, .195957D-08, .000000D+00 /
        DATA (UPDI(I),I=7281,7332) /
     +  .635998D+08, .470554D+08, .340701D+08, .246439D+08,
     +  .178081D+08, .128553D+08, .927015D+07, .667755D+07,
     +  .480462D+07, .345295D+07, .247856D+07, .177689D+07,
     +  .127223D+07, .909668D+06, .649538D+06, .463126D+06,
     +  .329732D+06, .234398D+06, .166372D+06, .117895D+06,
     +  .834089D+05, .589090D+05, .415372D+05, .292355D+05,
     +  .205422D+05, .144039D+05, .100873D+05, .701693D+04,
     +  .489949D+04, .341640D+04, .237950D+04, .165592D+04,
     +  .115158D+04, .801566D+03, .557636D+03, .388350D+03,
     +  .270925D+03, .189465D+03, .132927D+03, .936072D+02,
     +  .662477D+02, .471204D+02, .337070D+02, .242579D+02,
     +  .175688D+02, .128023D+02, .940043D+01, .692977D+01,
     +  .514826D+01, .383836D+01, .287894D+01, .216883D+01 /
        DATA (UPDI(I),I=7333,7384) /
     +  .164014D+01, .124434D+01, .946508D+00, .721388D+00,
     +  .550547D+00, .420465D+00, .321140D+00, .245140D+00,
     +  .186902D+00, .142240D+00, .107927D+00, .817178D-01,
     +  .615117D-01, .460703D-01, .343020D-01, .253644D-01,
     +  .186071D-01, .135258D-01, .973006D-02, .691708D-02,
     +  .485229D-02, .334759D-02, .227616D-02, .151279D-02,
     +  .982344D-03, .620892D-03, .380184D-03, .224234D-03,
     +  .126380D-03, .675662D-04, .336541D-04, .154385D-04,
     +  .634263D-05, .224784D-05, .647960D-06, .137200D-06,
     +  .178677D-07, .677722D-09, .000000D+00, .767923D+08,
     +  .566206D+08, .408248D+08, .294049D+08, .211572D+08,
     +  .152064D+08, .109171D+08, .782858D+07, .560712D+07,
     +  .401103D+07, .286561D+07, .204456D+07, .145676D+07 /
        DATA (UPDI(I),I=7385,7436) /
     +  .103647D+07, .736363D+06, .522351D+06, .369967D+06,
     +  .261609D+06, .184686D+06, .130155D+06, .915692D+05,
     +  .643045D+05, .450788D+05, .315406D+05, .220284D+05,
     +  .153507D+05, .106831D+05, .738326D+04, .512173D+04,
     +  .354766D+04, .245422D+04, .169616D+04, .117128D+04,
     +  .809476D+03, .559055D+03, .386473D+03, .267606D+03,
     +  .185733D+03, .129316D+03, .903661D+02, .634609D+02,
     +  .447886D+02, .317902D+02, .227006D+02, .163131D+02,
     +  .117948D+02, .859359D+01, .628559D+01, .463354D+01,
     +  .342768D+01, .255092D+01, .190674D+01, .143066D+01,
     +  .107689D+01, .812666D+00, .614452D+00, .465175D+00,
     +  .352387D+00, .266942D+00, .202081D+00, .152780D+00,
     +  .115283D+00, .867158D-01, .650829D-01, .485506D-01 /
        DATA (UPDI(I),I=7437,7488) /
     +  .360302D-01, .265760D-01, .194636D-01, .141385D-01,
     +  .101743D-01, .724338D-02, .509442D-02, .353436D-02,
     +  .241048D-02, .161970D-02, .106321D-02, .681521D-03,
     +  .424946D-03, .256509D-03, .149022D-03, .826548D-04,
     +  .434412D-04, .212425D-04, .955343D-05, .384106D-05,
     +  .132937D-05, .373183D-06, .765552D-07, .942683D-08,
     +  .191805D-09, .000000D+00, .914401D+08, .671952D+08,
     +  .482522D+08, .346111D+08, .247989D+08, .177481D+08,
     +  .126870D+08, .905800D+07, .645890D+07, .459954D+07,
     +  .327103D+07, .232297D+07, .164732D+07, .116643D+07,
     +  .824658D+06, .582087D+06, .410198D+06, .288571D+06,
     +  .202658D+06, .142063D+06, .994066D+05, .694241D+05,
     +  .483951D+05, .336675D+05, .233769D+05, .161934D+05 /
        DATA (UPDI(I),I=7489,7540) /
     +  .112016D+05, .769321D+04, .530326D+04, .364993D+04,
     +  .250853D+04, .172221D+04, .118125D+04, .810781D+03,
     +  .556058D+03, .381689D+03, .262405D+03, .180809D+03,
     +  .124972D+03, .866894D+02, .604308D+02, .423350D+02,
     +  .298263D+02, .211406D+02, .150797D+02, .108224D+02,
     +  .782717D+01, .568269D+01, .415840D+01, .305352D+01,
     +  .225578D+01, .167374D+01, .124660D+01, .931411D+00,
     +  .697675D+00, .523580D+00, .393409D+00, .295773D+00,
     +  .222350D+00, .167031D+00, .125301D+00, .938056D-01,
     +  .699987D-01, .521139D-01, .385567D-01, .283747D-01,
     +  .207514D-01, .150661D-01, .108473D-01, .773518D-02,
     +  .545584D-02, .380065D-02, .261094D-02, .176266D-02,
     +  .117212D-02, .761082D-03, .482374D-03, .297254D-03 /
        DATA (UPDI(I),I=7541,7592) /
     +  .177237D-03, .101649D-03, .556192D-04, .288162D-04,
     +  .138771D-04, .614031D-05, .242603D-05, .823876D-06,
     +  .226482D-06, .453042D-07, .531660D-08, .207139D-10,
     +  .000000D+00, .107511D+09, .787483D+08, .563239D+08,
     +  .402382D+08, .287131D+08, .204643D+08, .145672D+08,
     +  .103562D+08, .735266D+07, .521306D+07, .369085D+07,
     +  .260928D+07, .184187D+07, .129811D+07, .913409D+06,
     +  .641630D+06, .449948D+06, .314960D+06, .220072D+06,
     +  .153476D+06, .106831D+06, .742116D+05, .514518D+05,
     +  .355961D+05, .245769D+05, .169267D+05, .116405D+05,
     +  .794643D+04, .544466D+04, .372415D+04, .254349D+04,
     +  .173506D+04, .118234D+04, .806194D+03, .549214D+03,
     +  .374437D+03, .255656D+03, .174940D+03, .120073D+03 /
        DATA (UPDI(I),I=7593,7644) /
     +  .827073D+02, .572496D+02, .398237D+02, .278592D+02,
     +  .196071D+02, .138876D+02, .989679D+01, .710790D+01,
     +  .512436D+01, .372384D+01, .271539D+01, .199211D+01,
     +  .146788D+01, .108572D+01, .805595D+00, .599250D+00,
     +  .446590D+00, .333219D+00, .248764D+00, .185692D+00,
     +  .138503D+00, .103156D+00, .766694D-01, .567937D-01,
     +  .419721D-01, .308208D-01, .225096D-01, .163353D-01,
     +  .117671D-01, .840460D-02, .594465D-02, .415818D-02,
     +  .287211D-02, .195592D-02, .130865D-02, .862275D-03,
     +  .554596D-03, .348066D-03, .212317D-03, .125261D-03,
     +  .710520D-04, .384322D-04, .196724D-04, .935306D-05,
     +  .408295D-05, .159006D-05, .531641D-06, .143661D-06,
     +  .281551D-07, .317853D-08, .000000D+00, .000000D+00 /
        DATA (UPDI(I),I=7645,7696) /
     +  .689519D+05, .101068D+06, .778373D+05, .599561D+05,
     +  .461917D+05, .355953D+05, .274368D+05, .211545D+05,
     +  .163162D+05, .125895D+05, .971836D+04, .750589D+04,
     +  .580055D+04, .448571D+04, .347162D+04, .268919D+04,
     +  .208522D+04, .161878D+04, .125834D+04, .979625D+03,
     +  .763947D+03, .596905D+03, .467404D+03, .366897D+03,
     +  .288794D+03, .228015D+03, .180643D+03, .143193D+03,
     +  .114367D+03, .917631D+02, .739952D+02, .599923D+02,
     +  .489252D+02, .401752D+02, .331974D+02, .276308D+02,
     +  .231735D+02, .195902D+02, .166972D+02, .143498D+02,
     +  .124382D+02, .108703D+02, .957701D+01, .850274D+01,
     +  .760359D+01, .684467D+01, .620041D+01, .564258D+01,
     +  .516042D+01, .473396D+01, .435640D+01, .401725D+01 /
        DATA (UPDI(I),I=7697,7748) /
     +  .370951D+01, .342763D+01, .316728D+01, .292508D+01,
     +  .269841D+01, .248528D+01, .228421D+01, .209406D+01,
     +  .191403D+01, .174353D+01, .158214D+01, .143025D+01,
     +  .128610D+01, .115051D+01, .102339D+01, .904691D+00,
     +  .794340D+00, .692273D+00, .598402D+00, .512615D+00,
     +  .434720D+00, .364475D+00, .302260D+00, .246885D+00,
     +  .198499D+00, .156737D+00, .121197D+00, .914452D-01,
     +  .670156D-01, .474432D-01, .321009D-01, .205895D-01,
     +  .122895D-01, .665027D-02, .312277D-02, .117208D-02,
     +  .292395D-03, .268721D-04, .000000D+00, .160435D+06,
     +  .124521D+06, .954243D+05, .731448D+05, .560812D+05,
     +  .430102D+05, .329959D+05, .253219D+05, .194402D+05,
     +  .149311D+05, .114734D+05, .882124D+04, .678637D+04 /
        DATA (UPDI(I),I=7749,7800) /
     +  .522455D+04, .402537D+04, .310423D+04, .239634D+04,
     +  .185203D+04, .143325D+04, .111082D+04, .862393D+03,
     +  .670807D+03, .522916D+03, .408622D+03, .320185D+03,
     +  .251653D+03, .198467D+03, .156600D+03, .124511D+03,
     +  .994533D+02, .798392D+02, .644452D+02, .523284D+02,
     +  .427870D+02, .352078D+02, .291846D+02, .243793D+02,
     +  .205296D+02, .174316D+02, .149253D+02, .128897D+02,
     +  .112239D+02, .985255D+01, .871525D+01, .776446D+01,
     +  .696280D+01, .628271D+01, .569431D+01, .518608D+01,
     +  .473698D+01, .433991D+01, .398388D+01, .366158D+01,
     +  .336727D+01, .309643D+01, .284555D+01, .261191D+01,
     +  .239343D+01, .218850D+01, .199591D+01, .181476D+01,
     +  .164437D+01, .148418D+01, .133448D+01, .119341D+01 /
        DATA (UPDI(I),I=7801,7852) /
     +  .106169D+01, .939092D+00, .825447D+00, .720575D+00,
     +  .624292D+00, .536398D+00, .456673D+00, .384856D+00,
     +  .320573D+00, .264085D+00, .214209D+00, .170986D+00,
     +  .133995D+00, .102791D+00, .769095D-01, .558567D-01,
     +  .391652D-01, .262237D-01, .166273D-01, .979734D-02,
     +  .522417D-02, .241121D-02, .886146D-03, .216091D-03,
     +  .200316D-04, .000000D+00, .203585D+06, .157319D+06,
     +  .119953D+06, .914859D+05, .697918D+05, .532564D+05,
     +  .406508D+05, .310391D+05, .237089D+05, .181172D+05,
     +  .138507D+05, .105945D+05, .810865D+04, .621020D+04,
     +  .475986D+04, .365139D+04, .280383D+04, .215541D+04,
     +  .165908D+04, .127889D+04, .987456D+03, .763863D+03,
     +  .592162D+03, .460156D+03, .358550D+03, .280222D+03 /
        DATA (UPDI(I),I=7853,7904) /
     +  .219760D+03, .172418D+03, .136326D+03, .108292D+03,
     +  .864633D+02, .694207D+02, .560753D+02, .456195D+02,
     +  .373549D+02, .308182D+02, .256270D+02, .214861D+02,
     +  .181671D+02, .154918D+02, .133262D+02, .115593D+02,
     +  .101082D+02, .890738D+01, .790522D+01, .706152D+01,
     +  .634665D+01, .572892D+01, .519600D+01, .472576D+01,
     +  .431074D+01, .393941D+01, .360417D+01, .329904D+01,
     +  .301930D+01, .276131D+01, .252220D+01, .229978D+01,
     +  .209233D+01, .189854D+01, .171740D+01, .154812D+01,
     +  .138999D+01, .124322D+01, .110584D+01, .978441D+00,
     +  .860696D+00, .752310D+00, .652995D+00, .562462D+00,
     +  .480408D+00, .406519D+00, .340465D+00, .281768D+00,
     +  .230583D+00, .185742D+00, .147195D+00, .114480D+00 /
        DATA (UPDI(I),I=7905,7956) /
     +  .871215D-01, .646358D-01, .465159D-01, .322970D-01,
     +  .213921D-01, .134027D-01, .779158D-02, .409072D-02,
     +  .185383D-02, .666060D-03, .158444D-03, .148292D-04,
     +  .000000D+00, .261711D+06, .201376D+06, .152791D+06,
     +  .115953D+06, .880151D+05, .668229D+05, .507459D+05,
     +  .385474D+05, .292904D+05, .222643D+05, .169304D+05,
     +  .128803D+05, .980421D+04, .746722D+04, .569124D+04,
     +  .434108D+04, .331425D+04, .253295D+04, .193817D+04,
     +  .148509D+04, .113974D+04, .876273D+03, .675111D+03,
     +  .521347D+03, .403685D+03, .313509D+03, .244319D+03,
     +  .190466D+03, .149659D+03, .118152D+03, .937647D+02,
     +  .748373D+02, .601023D+02, .486239D+02, .396016D+02,
     +  .325039D+02, .268962D+02, .224448D+02, .188930D+02 /
        DATA (UPDI(I),I=7957,8008) /
     +  .160420D+02, .137428D+02, .118730D+02, .103419D+02,
     +  .907799D+01, .802539D+01, .714088D+01, .639262D+01,
     +  .574705D+01, .519100D+01, .470123D+01, .426986D+01,
     +  .388485D+01, .353828D+01, .322390D+01, .293680D+01,
     +  .267316D+01, .243000D+01, .220496D+01, .199623D+01,
     +  .180236D+01, .162223D+01, .145494D+01, .129964D+01,
     +  .115642D+01, .102324D+01, .900541D+00, .787901D+00,
     +  .684910D+00, .591179D+00, .506321D+00, .429942D+00,
     +  .361645D+00, .301038D+00, .247561D+00, .201273D+00,
     +  .161031D+00, .126708D+00, .978147D-01, .738559D-01,
     +  .543388D-01, .387557D-01, .266506D-01, .174659D-01,
     +  .108154D-01, .620502D-02, .320864D-02, .142819D-02,
     +  .501983D-03, .116640D-03, .110182D-04, .000000D+00 /
        DATA (UPDI(I),I=8009,8060) /
     +  .210276D+06, .258756D+06, .195400D+06, .147580D+06,
     +  .111477D+06, .842183D+05, .636354D+05, .480922D+05,
     +  .363538D+05, .274879D+05, .207907D+05, .157310D+05,
     +  .119078D+05, .901834D+04, .683408D+04, .518243D+04,
     +  .393316D+04, .298784D+04, .227225D+04, .173024D+04,
     +  .131950D+04, .100798D+04, .771550D+03, .591916D+03,
     +  .455299D+03, .351240D+03, .271902D+03, .210542D+03,
     +  .164342D+03, .128898D+03, .101637D+03, .806124D+02,
     +  .643464D+02, .517527D+02, .419124D+02, .342157D+02,
     +  .281681D+02, .233922D+02, .195999D+02, .165692D+02,
     +  .141349D+02, .121623D+02, .105520D+02, .922624D+01,
     +  .812476D+01, .720108D+01, .642115D+01, .574948D+01,
     +  .517202D+01, .466443D+01, .421839D+01, .382134D+01 /
        DATA (UPDI(I),I=8061,8112) /
     +  .346503D+01, .314294D+01, .284995D+01, .258207D+01,
     +  .233615D+01, .210972D+01, .190081D+01, .170787D+01,
     +  .152963D+01, .136510D+01, .121327D+01, .107410D+01,
     +  .945510D+00, .827794D+00, .720420D+00, .622882D+00,
     +  .534697D+00, .455388D+00, .384482D+00, .321512D+00,
     +  .266026D+00, .217406D+00, .175626D+00, .139572D+00,
     +  .109057D+00, .835726D-01, .626152D-01, .456912D-01,
     +  .323007D-01, .220015D-01, .142690D-01, .873443D-02,
     +  .494635D-02, .251986D-02, .110206D-02, .379193D-03,
     +  .861754D-04, .821416D-05, .000000D+00, .463016D+06,
     +  .353138D+06, .265181D+06, .199145D+06, .149555D+06,
     +  .112316D+06, .843541D+05, .633579D+05, .475928D+05,
     +  .357554D+05, .268672D+05, .201931D+05, .151815D+05 /
        DATA (UPDI(I),I=8113,8164) /
     +  .114178D+05, .859106D+04, .646766D+04, .487235D+04,
     +  .367344D+04, .277221D+04, .209443D+04, .158452D+04,
     +  .120064D+04, .911464D+03, .693428D+03, .528891D+03,
     +  .404542D+03, .310497D+03, .238350D+03, .184472D+03,
     +  .143473D+03, .112196D+03, .882693D+02, .699064D+02,
     +  .558009D+02, .448639D+02, .363728D+02, .297482D+02,
     +  .245516D+02, .204509D+02, .171925D+02, .145888D+02,
     +  .124885D+02, .107811D+02, .938030D+01, .822013D+01,
     +  .724993D+01, .643285D+01, .573093D+01, .512905D+01,
     +  .460147D+01, .413933D+01, .372941D+01, .336303D+01,
     +  .303332D+01, .273491D+01, .246356D+01, .221592D+01,
     +  .198934D+01, .178167D+01, .159118D+01, .141646D+01,
     +  .125635D+01, .110969D+01, .976274D+00, .853935D+00 /
        DATA (UPDI(I),I=8165,8216) /
     +  .742813D+00, .642249D+00, .551620D+00, .470336D+00,
     +  .397826D+00, .333527D+00, .276903D+00, .227435D+00,
     +  .184455D+00, .147846D+00, .116540D+00, .902897D-01,
     +  .685786D-01, .509032D-01, .367791D-01, .257265D-01,
     +  .173262D-01, .110987D-01, .670239D-02, .373868D-02,
     +  .187229D-02, .802815D-03, .269938D-03, .599821D-04,
     +  .577233D-05, .000000D+00, .628123D+06, .476911D+06,
     +  .356229D+06, .266076D+06, .198718D+06, .148398D+06,
     +  .110812D+06, .827412D+05, .617799D+05, .461291D+05,
     +  .344449D+05, .257225D+05, .192119D+05, .143522D+05,
     +  .107251D+05, .801772D+04, .599686D+04, .448819D+04,
     +  .336178D+04, .252049D+04, .189202D+04, .142227D+04,
     +  .107101D+04, .808137D+03, .611267D+03, .463624D+03 /
        DATA (UPDI(I),I=8217,8268) /
     +  .352845D+03, .268538D+03, .206087D+03, .158946D+03,
     +  .123275D+03, .962058D+02, .755965D+02, .598895D+02,
     +  .478037D+02, .384902D+02, .312752D+02, .256533D+02,
     +  .212445D+02, .177612D+02, .149921D+02, .127688D+02,
     +  .109686D+02, .949714D+01, .828231D+01, .726932D+01,
     +  .641856D+01, .568967D+01, .506640D+01, .452172D+01,
     +  .404619D+01, .362596D+01, .325191D+01, .291684D+01,
     +  .261511D+01, .234222D+01, .209463D+01, .186947D+01,
     +  .166444D+01, .147762D+01, .130746D+01, .115262D+01,
     +  .101180D+01, .884627D+00, .768881D+00, .664540D+00,
     +  .570833D+00, .487036D+00, .412467D+00, .346475D+00,
     +  .288426D+00, .237726D+00, .193807D+00, .155969D+00,
     +  .124022D+00, .969487D-01, .744597D-01, .560398D-01 /
        DATA (UPDI(I),I=8269,8320) /
     +  .411959D-01, .294606D-01, .203802D-01, .135629D-01,
     +  .857474D-02, .510360D-02, .280067D-02, .137646D-02,
     +  .577335D-03, .189097D-03, .409337D-04, .398335D-05,
     +  .000000D+00, .839687D+06, .634849D+06, .471826D+06,
     +  .350619D+06, .260492D+06, .193493D+06, .143699D+06,
     +  .106700D+06, .792159D+05, .588040D+05, .436481D+05,
     +  .323970D+05, .240464D+05, .178495D+05, .132516D+05,
     +  .984040D+04, .730994D+04, .543274D+04, .404022D+04,
     +  .300705D+04, .224043D+04, .167136D+04, .124883D+04,
     +  .934869D+03, .701463D+03, .527712D+03, .398341D+03,
     +  .300642D+03, .228836D+03, .175057D+03, .134680D+03,
     +  .104281D+03, .813156D+02, .639466D+02, .506816D+02,
     +  .405331D+02, .327255D+02, .266814D+02, .219702D+02 /
        DATA (UPDI(I),I=8321,8372) /
     +  .182688D+02, .153411D+02, .130010D+02, .111139D+02,
     +  .957684D+01, .831197D+01, .726032D+01, .637961D+01,
     +  .562714D+01, .498562D+01, .442676D+01, .394053D+01,
     +  .351250D+01, .313311D+01, .279485D+01, .249177D+01,
     +  .221915D+01, .197322D+01, .175093D+01, .154979D+01,
     +  .136772D+01, .120299D+01, .105414D+01, .919697D+00,
     +  .799158D+00, .690241D+00, .592779D+00, .505904D+00,
     +  .428802D+00, .360718D+00, .300932D+00, .248757D+00,
     +  .203556D+00, .164724D+00, .131546D+00, .103776D+00,
     +  .804518D-01, .612556D-01, .456836D-01, .332606D-01,
     +  .235428D-01, .161074D-01, .105925D-01, .660954D-02,
     +  .387730D-02, .209323D-02, .100964D-02, .414270D-03,
     +  .132211D-03, .279000D-04, .274565D-05, .000000D+00 /
        DATA (UPDI(I),I=8373,8424) /
     +  .110466D+07, .831843D+06, .615292D+06, .455013D+06,
     +  .336378D+06, .248597D+06, .183669D+06, .135659D+06,
     +  .100173D+06, .739509D+05, .545818D+05, .402789D+05,
     +  .297204D+05, .219282D+05, .161792D+05, .119385D+05,
     +  .881113D+04, .650507D+04, .480493D+04, .355142D+04,
     +  .262727D+04, .194576D+04, .144312D+04, .107218D+04,
     +  .798341D+03, .595928D+03, .446316D+03, .334163D+03,
     +  .252351D+03, .191535D+03, .146219D+03, .112358D+03,
     +  .869668D+02, .679047D+02, .534511D+02, .424702D+02,
     +  .340782D+02, .276224D+02, .226196D+02, .187101D+02,
     +  .156329D+02, .131840D+02, .112167D+02, .961998D+01,
     +  .831017D+01, .722433D+01, .631761D+01, .554511D+01,
     +  .488853D+01, .431841D+01, .382416D+01, .339078D+01 /
        DATA (UPDI(I),I=8425,8476) /
     +  .300831D+01, .266889D+01, .236631D+01, .209561D+01,
     +  .185281D+01, .163465D+01, .143849D+01, .126206D+01,
     +  .110349D+01, .961175D+00, .833513D+00, .719851D+00,
     +  .617876D+00, .527285D+00, .447123D+00, .376508D+00,
     +  .314619D+00, .260689D+00, .213990D+00, .173855D+00,
     +  .139655D+00, .110674D+00, .866248D-01, .666023D-01,
     +  .502741D-01, .371546D-01, .267922D-01, .187711D-01,
     +  .127020D-01, .825441D-02, .508371D-02, .293944D-02,
     +  .156128D-02, .739150D-03, .296754D-03, .923348D-04,
     +  .190189D-04, .189234D-05, .000000D+00, .142989D+07,
     +  .107264D+07, .789803D+06, .581363D+06, .427758D+06,
     +  .314609D+06, .231297D+06, .169981D+06, .124874D+06,
     +  .917038D+05, .673231D+05, .494099D+05, .362542D+05 /
        DATA (UPDI(I),I=8477,8528) /
     +  .265960D+05, .195085D+05, .143090D+05, .104961D+05,
     +  .770047D+04, .565143D+04, .414967D+04, .304925D+04,
     +  .224278D+04, .165176D+04, .121844D+04, .900653D+03,
     +  .667335D+03, .496077D+03, .368598D+03, .276268D+03,
     +  .208122D+03, .157709D+03, .120308D+03, .924630D+02,
     +  .717047D+02, .560730D+02, .442755D+02, .353167D+02,
     +  .284660D+02, .231867D+02, .190821D+02, .158661D+02,
     +  .133175D+02, .112778D+02, .962773D+01, .827840D+01,
     +  .716304D+01, .623435D+01, .544543D+01, .477698D+01,
     +  .419850D+01, .369885D+01, .326248D+01, .287904D+01,
     +  .254038D+01, .224000D+01, .197272D+01, .173434D+01,
     +  .152144D+01, .133115D+01, .116111D+01, .100927D+01,
     +  .873890D+00, .753266D+00, .646606D+00, .551580D+00 /
        DATA (UPDI(I),I=8529,8580) /
     +  .467760D+00, .394122D+00, .329726D+00, .273706D+00,
     +  .225255D+00, .183623D+00, .148123D+00, .118114D+00,
     +  .928919D-01, .721376D-01, .550088D-01, .411667D-01,
     +  .301495D-01, .215335D-01, .149335D-01, .999481D-02,
     +  .641866D-02, .390191D-02, .222385D-02, .116221D-02,
     +  .540118D-03, .212231D-03, .644205D-04, .129679D-04,
     +  .130420D-05, .000000D+00, .182190D+07, .136174D+07,
     +  .998307D+06, .731586D+06, .535861D+06, .392304D+06,
     +  .287066D+06, .209957D+06, .153488D+06, .112156D+06,
     +  .819192D+05, .598100D+05, .436523D+05, .318496D+05,
     +  .232325D+05, .169438D+05, .123567D+05, .901169D+04,
     +  .657358D+04, .479678D+04, .350237D+04, .255932D+04,
     +  .187240D+04, .137185D+04, .100708D+04, .740968D+03 /
        DATA (UPDI(I),I=8581,8632) /
     +  .546929D+03, .403453D+03, .300239D+03, .224576D+03,
     +  .168982D+03, .128020D+03, .977282D+02, .752967D+02,
     +  .585148D+02, .459289D+02, .364288D+02, .292051D+02,
     +  .236677D+02, .193830D+02, .160407D+02, .134024D+02,
     +  .112983D+02, .960169D+01, .821845D+01, .707831D+01,
     +  .613175D+01, .533000D+01, .465284D+01, .406883D+01,
     +  .356627D+01, .312915D+01, .274676D+01, .241062D+01,
     +  .211399D+01, .185146D+01, .161864D+01, .141191D+01,
     +  .122827D+01, .106519D+01, .920498D+00, .792334D+00,
     +  .678890D+00, .579256D+00, .491096D+00, .413874D+00,
     +  .346512D+00, .288027D+00, .237520D+00, .194160D+00,
     +  .157185D+00, .125898D+00, .996608D-01, .777857D-01,
     +  .599358D-01, .453308D-01, .336341D-01, .244114D-01 /
        DATA (UPDI(I),I=8633,8684) /
     +  .172694D-01, .118550D-01, .784795D-02, .498077D-02,
     +  .298870D-02, .167910D-02, .863479D-03, .393972D-03,
     +  .151550D-03, .449033D-04, .884419D-05, .898844D-06,
     +  .000000D+00, .228678D+07, .170326D+07, .124345D+07,
     +  .907356D+06, .661728D+06, .482316D+06, .351347D+06,
     +  .255795D+06, .186126D+06, .135358D+06, .983864D+05,
     +  .714771D+05, .519039D+05, .376746D+05, .273366D+05,
     +  .198296D+05, .143815D+05, .104293D+05, .756382D+04,
     +  .548685D+04, .398210D+04, .289198D+04, .210249D+04,
     +  .153057D+04, .111627D+04, .815863D+03, .598188D+03,
     +  .438252D+03, .323936D+03, .240673D+03, .179889D+03,
     +  .135393D+03, .102698D+03, .786395D+02, .607511D+02,
     +  .474151D+02, .374058D+02, .298354D+02, .240609D+02 /
        DATA (UPDI(I),I=8685,8736) /
     +  .196130D+02, .161576D+02, .134400D+02, .112800D+02,
     +  .954377D+01, .813231D+01, .697217D+01, .601178D+01,
     +  .520072D+01, .451792D+01, .393109D+01, .342803D+01,
     +  .299227D+01, .261277D+01, .228076D+01, .198926D+01,
     +  .173265D+01, .150636D+01, .130659D+01, .113020D+01,
     +  .974520D+00, .837269D+00, .716476D+00, .610252D+00,
     +  .517577D+00, .436129D+00, .365275D+00, .303899D+00,
     +  .250987D+00, .205621D+00, .166960D+00, .134237D+00,
     +  .106761D+00, .838985D-01, .649893D-01, .496870D-01,
     +  .372734D-01, .274200D-01, .197229D-01, .138203D-01,
     +  .939139D-02, .614952D-02, .385714D-02, .228466D-02,
     +  .126534D-02, .640338D-03, .286872D-03, .108061D-03,
     +  .312721D-04, .603325D-05, .619467D-06, .000000D+00 /
        DATA (UPDI(I),I=8737,8788) /
     +  .283003D+07, .210082D+07, .152749D+07, .111006D+07,
     +  .806188D+06, .585118D+06, .424395D+06, .307620D+06,
     +  .222835D+06, .161316D+06, .116710D+06, .843874D+05,
     +  .609829D+05, .440465D+05, .317993D+05, .229482D+05,
     +  .165560D+05, .119419D+05, .861339D+04, .621324D+04,
     +  .448351D+04, .323711D+04, .233939D+04, .169268D+04,
     +  .122689D+04, .891078D+03, .649203D+03, .472553D+03,
     +  .347059D+03, .256213D+03, .190300D+03, .142343D+03,
     +  .107319D+03, .817008D+02, .627629D+02, .487236D+02,
     +  .382425D+02, .303549D+02, .243663D+02, .197730D+02,
     +  .162184D+02, .134324D+02, .112252D+02, .945613D+01,
     +  .802211D+01, .684666D+01, .587642D+01, .505948D+01,
     +  .437398D+01, .378691D+01, .328559D+01, .285315D+01 /
        DATA (UPDI(I),I=8789,8840) /
     +  .247823D+01, .215180D+01, .186666D+01, .161699D+01,
     +  .139803D+01, .120586D+01, .103719D+01, .889219D+00,
     +  .759584D+00, .646217D+00, .547162D+00, .461309D+00,
     +  .386358D+00, .321597D+00, .265885D+00, .218191D+00,
     +  .177590D+00, .143239D+00, .114379D+00, .903289D-01,
     +  .704722D-01, .541788D-01, .411015D-01, .305825D-01,
     +  .223068D-01, .159016D-01, .110372D-01, .742457D-02,
     +  .480896D-02, .298107D-02, .174307D-02, .951727D-03,
     +  .474003D-03, .208539D-03, .769439D-04, .217614D-04,
     +  .411667D-05, .426921D-06, .000000D+00, .345639D+07,
     +  .255750D+07, .185229D+07, .134077D+07, .969829D+06,
     +  .701010D+06, .506341D+06, .365468D+06, .263600D+06,
     +  .189992D+06, .136843D+06, .984960D+05, .708493D+05 /
        DATA (UPDI(I),I=8841,8892) /
     +  .509313D+05, .365929D+05, .262780D+05, .188633D+05,
     +  .135365D+05, .971261D+04, .696881D+04, .500138D+04,
     +  .359097D+04, .258044D+04, .185633D+04, .133762D+04,
     +  .965714D+03, .699362D+03, .505948D+03, .369341D+03,
     +  .271022D+03, .200102D+03, .148802D+03, .111551D+03,
     +  .844563D+02, .645371D+02, .498482D+02, .389368D+02,
     +  .307638D+02, .245853D+02, .198651D+02, .162254D+02,
     +  .133821D+02, .111361D+02, .934110D+01, .789006D+01,
     +  .670388D+01, .572762D+01, .490808D+01, .422269D+01,
     +  .363782D+01, .314033D+01, .271301D+01, .234419D+01,
     +  .202463D+01, .174691D+01, .150503D+01, .129408D+01,
     +  .111000D+01, .949374D+00, .809321D+00, .687375D+00,
     +  .581401D+00, .489393D+00, .410163D+00, .341449D+00 /
        DATA (UPDI(I),I=8893,8944) /
     +  .282474D+00, .232085D+00, .189245D+00, .153031D+00,
     +  .122612D+00, .972423D-01, .762588D-01, .590666D-01,
     +  .450701D-01, .339276D-01, .250404D-01, .181096D-01,
     +  .127945D-01, .879678D-02, .585796D-02, .375325D-02,
     +  .229953D-02, .132735D-02, .714529D-03, .350260D-03,
     +  .151352D-03, .547149D-04, .151319D-04, .280959D-05,
     +  .294219D-06, .000000D+00, .690363D+05, .100780D+06,
     +  .775819D+05, .597301D+05, .459918D+05, .354183D+05,
     +  .272802D+05, .210160D+05, .161937D+05, .124812D+05,
     +  .962255D+04, .742118D+04, .572566D+04, .441953D+04,
     +  .341314D+04, .263752D+04, .203959D+04, .157849D+04,
     +  .122278D+04, .948260D+03, .736289D+03, .572526D+03,
     +  .445926D+03, .347985D+03, .272151D+03, .213377D+03 /
        DATA (UPDI(I),I=8945,8996) /
     +  .167775D+03, .131908D+03, .104455D+03, .830595D+02,
     +  .663530D+02, .532801D+02, .430253D+02, .349801D+02,
     +  .286142D+02, .235740D+02, .195665D+02, .163643D+02,
     +  .137911D+02, .117092D+02, .100150D+02, .862308D+01,
     +  .747017D+01, .650653D+01, .569360D+01, .500156D+01,
     +  .440926D+01, .389311D+01, .344545D+01, .304986D+01,
     +  .270182D+01, .239302D+01, .211807D+01, .187259D+01,
     +  .165303D+01, .145643D+01, .128033D+01, .112263D+01,
     +  .981515D+00, .855406D+00, .742893D+00, .642715D+00,
     +  .553730D+00, .475242D+00, .405495D+00, .344128D+00,
     +  .290338D+00, .243387D+00, .202594D+00, .167334D+00,
     +  .137031D+00, .111154D+00, .892005D-01, .707082D-01,
     +  .554115D-01, .427013D-01, .323434D-01, .240144D-01 /
        DATA (UPDI(I),I=8997,9048) /
     +  .174203D-01, .122950D-01, .839772D-02, .551608D-02,
     +  .344114D-02, .201988D-02, .109188D-02, .527384D-03,
     +  .216366D-03, .685688D-04, .135633D-04, .846929D-06,
     +  .000000D+00, .160093D+06, .124218D+06, .951561D+05,
     +  .729075D+05, .558713D+05, .428245D+05, .328316D+05,
     +  .251766D+05, .193117D+05, .148174D+05, .113729D+05,
     +  .873243D+04, .670787D+04, .515519D+04, .396410D+04,
     +  .305013D+04, .234857D+04, .180987D+04, .139605D+04,
     +  .107802D+04, .833476D+03, .645327D+03, .500476D+03,
     +  .388870D+03, .302808D+03, .236371D+03, .185037D+03,
     +  .144822D+03, .114166D+03, .903687D+02, .718600D+02,
     +  .574335D+02, .461607D+02, .373507D+02, .304058D+02,
     +  .249278D+02, .205880D+02, .171326D+02, .143657D+02 /
        DATA (UPDI(I),I=9049,9100) /
     +  .121349D+02, .103257D+02, .884453D+01, .762202D+01,
     +  .660396D+01, .574844D+01, .502310D+01, .440501D+01,
     +  .386883D+01, .340608D+01, .299924D+01, .264321D+01,
     +  .232906D+01, .205092D+01, .180403D+01, .158447D+01,
     +  .138903D+01, .121499D+01, .106005D+01, .922221D+00,
     +  .799762D+00, .691141D+00, .595003D+00, .510080D+00,
     +  .435606D+00, .369806D+00, .312245D+00, .262083D+00,
     +  .218554D+00, .180956D+00, .148652D+00, .121055D+00,
     +  .976323D-01, .778928D-01, .613677D-01, .477894D-01,
     +  .365846D-01, .275191D-01, .202838D-01, .146008D-01,
     +  .102207D-01, .691886D-02, .450123D-02, .277838D-02,
     +  .161174D-02, .859855D-03, .409831D-03, .165502D-03,
     +  .514465D-04, .998197D-05, .631777D-06, .000000D+00 /
        DATA (UPDI(I),I=9101,9152) /
     +  .203226D+06, .157001D+06, .119672D+06, .912369D+05,
     +  .695715D+05, .530616D+05, .404785D+05, .308868D+05,
     +  .235741D+05, .179981D+05, .137455D+05, .105015D+05,
     +  .802644D+04, .613758D+04, .469573D+04, .359477D+04,
     +  .275386D+04, .211132D+04, .162019D+04, .124460D+04,
     +  .957247D+03, .737254D+03, .568736D+03, .439541D+03,
     +  .340419D+03, .264281D+03, .205752D+03, .160135D+03,
     +  .125538D+03, .988165D+02, .781384D+02, .621018D+02,
     +  .496331D+02, .399363D+02, .323293D+02, .263575D+02,
     +  .216485D+02, .179162D+02, .149408D+02, .125521D+02,
     +  .106231D+02, .905042D+01, .775778D+01, .668585D+01,
     +  .578892D+01, .503185D+01, .438966D+01, .383524D+01,
     +  .335912D+01, .294267D+01, .258016D+01, .226202D+01 /
        DATA (UPDI(I),I=9153,9204) /
     +  .198190D+01, .173464D+01, .151600D+01, .132248D+01,
     +  .115112D+01, .999433D+00, .865259D+00, .746724D+00,
     +  .642178D+00, .550175D+00, .469346D+00, .398857D+00,
     +  .336928D+00, .283057D+00, .236378D+00, .196100D+00,
     +  .161513D+00, .131967D+00, .106877D+00, .857092D-01,
     +  .679857D-01, .532390D-01, .412015D-01, .313358D-01,
     +  .234101D-01, .171316D-01, .122383D-01, .849807D-02,
     +  .570281D-02, .367564D-02, .224568D-02, .128817D-02,
     +  .678530D-03, .318154D-03, .126084D-03, .383636D-04,
     +  .728544D-05, .468066D-06, .000000D+00, .261334D+06,
     +  .201043D+06, .152495D+06, .115692D+06, .877842D+05,
     +  .666187D+05, .505653D+05, .383878D+05, .291493D+05,
     +  .221396D+05, .168202D+05, .127829D+05, .971817D+04 /
        DATA (UPDI(I),I=9205,9256) /
     +  .739124D+04, .562416D+04, .428187D+04, .326202D+04,
     +  .248687D+04, .189755D+04, .144929D+04, .110820D+04,
     +  .848505D+03, .650672D+03, .499848D+03, .384781D+03,
     +  .296891D+03, .229719D+03, .177666D+03, .138416D+03,
     +  .108275D+03, .850853D+02, .672037D+02, .533792D+02,
     +  .426884D+02, .343480D+02, .278360D+02, .227282D+02,
     +  .187008D+02, .155060D+02, .129537D+02, .109024D+02,
     +  .923767D+01, .787560D+01, .675120D+01, .581466D+01,
     +  .502779D+01, .436349D+01, .379275D+01, .330505D+01,
     +  .288066D+01, .251317D+01, .219237D+01, .191144D+01,
     +  .166480D+01, .144791D+01, .125699D+01, .108888D+01,
     +  .940875D+00, .810681D+00, .696293D+00, .595959D+00,
     +  .508149D+00, .431414D+00, .364859D+00, .306705D+00 /
        DATA (UPDI(I),I=9257,9308) /
     +  .256397D+00, .213044D+00, .175846D+00, .144082D+00,
     +  .117103D+00, .943253D-01, .752227D-01, .593283D-01,
     +  .461832D-01, .355224D-01, .268432D-01, .199192D-01,
     +  .144741D-01, .102627D-01, .706988D-02, .470387D-02,
     +  .300408D-02, .181701D-02, .103084D-02, .536349D-03,
     +  .248032D-03, .967644D-04, .288899D-04, .539917D-05,
     +  .352453D-06, .000000D+00, .210378D+06, .258406D+06,
     +  .195090D+06, .147307D+06, .111236D+06, .840044D+05,
     +  .634462D+05, .479250D+05, .362061D+05, .273573D+05,
     +  .206753D+05, .156291D+05, .118178D+05, .893890D+04,
     +  .676397D+04, .512056D+04, .387859D+04, .293973D+04,
     +  .222984D+04, .169288D+04, .128660D+04, .979022D+03,
     +  .746072D+03, .569509D+03, .435603D+03, .333928D+03 /
        DATA (UPDI(I),I=9309,9360) /
     +  .256694D+03, .197210D+03, .152633D+03, .118610D+03,
     +  .925945D+02, .726567D+02, .573362D+02, .455598D+02,
     +  .364269D+02, .293377D+02, .238087D+02, .194732D+02,
     +  .160525D+02, .133338D+02, .111597D+02, .940390D+01,
     +  .797416D+01, .679945D+01, .582560D+01, .501123D+01,
     +  .432701D+01, .374197D+01, .324455D+01, .281388D+01,
     +  .244286D+01, .212068D+01, .184001D+01, .159492D+01,
     +  .138054D+01, .119284D+01, .102844D+01, .884483D+00,
     +  .758527D+00, .648451D+00, .552416D+00, .468819D+00,
     +  .396144D+00, .333446D+00, .278953D+00, .232065D+00,
     +  .191878D+00, .157584D+00, .128462D+00, .103865D+00,
     +  .832154D-01, .659991D-01, .517617D-01, .400570D-01,
     +  .306244D-01, .229956D-01, .169512D-01, .122317D-01 /
        DATA (UPDI(I),I=9361,9412) /
     +  .860906D-02, .588439D-02, .388218D-02, .245698D-02,
     +  .147144D-02, .825772D-03, .424494D-03, .193659D-03,
     +  .744008D-04, .218342D-04, .402334D-05, .267307D-06,
     +  .000000D+00, .462597D+06, .352767D+06, .264853D+06,
     +  .198855D+06, .149298D+06, .112090D+06, .841537D+05,
     +  .631809D+05, .474364D+05, .356172D+05, .267451D+05,
     +  .200854D+05, .150863D+05, .113338D+05, .851698D+04,
     +  .640232D+04, .481474D+04, .362266D+04, .272748D+04,
     +  .205504D+04, .154985D+04, .117013D+04, .884631D+03,
     +  .669839D+03, .508161D+03, .386327D+03, .294499D+03,
     +  .224327D+03, .172156D+03, .132651D+03, .102682D+03,
     +  .798959D+02, .625243D+02, .492755D+02, .390797D+02,
     +  .312251D+02, .251445D+02, .204106D+02, .167015D+02 /
        DATA (UPDI(I),I=9413,9464) /
     +  .137734D+02, .114469D+02, .957984D+01, .806880D+01,
     +  .683476D+01, .581782D+01, .497245D+01, .426646D+01,
     +  .366645D+01, .315945D+01, .272323D+01, .234982D+01,
     +  .202764D+01, .174879D+01, .150688D+01, .129666D+01,
     +  .111381D+01, .954715D+00, .816319D+00, .696020D+00,
     +  .591577D+00, .501054D+00, .422771D+00, .355151D+00,
     +  .297194D+00, .247152D+00, .204378D+00, .167960D+00,
     +  .137090D+00, .111053D+00, .892126D-01, .710059D-01,
     +  .559351D-01, .435647D-01, .334697D-01, .253977D-01,
     +  .189218D-01, .138340D-01, .989631D-02, .690176D-02,
     +  .467151D-02, .304957D-02, .190815D-02, .112845D-02,
     +  .624496D-03, .315985D-03, .141541D-03, .532091D-04,
     +  .152055D-04, .272110D-05, .182605D-06, .000000D+00 /
        DATA (UPDI(I),I=9465,9516) /
     +  .627679D+06, .476518D+06, .355882D+06, .265769D+06,
     +  .198446D+06, .148158D+06, .110600D+06, .825537D+05,
     +  .616143D+05, .459829D+05, .343158D+05, .256086D+05,
     +  .191113D+05, .142635D+05, .106468D+05, .794873D+04,
     +  .593607D+04, .443463D+04, .331461D+04, .247897D+04,
     +  .185549D+04, .139014D+04, .104277D+04, .783312D+03,
     +  .589459D+03, .444466D+03, .336024D+03, .253796D+03,
     +  .193140D+03, .147570D+03, .113272D+03, .874001D+02,
     +  .678307D+02, .530220D+02, .417136D+02, .330679D+02,
     +  .264243D+02, .212893D+02, .172940D+02, .141610D+02,
     +  .116880D+02, .971570D+01, .812926D+01, .684137D+01,
     +  .578634D+01, .491444D+01, .419060D+01, .357905D+01,
     +  .306544D+01, .262623D+01, .225259D+01, .193222D+01 /
        DATA (UPDI(I),I=9517,9568) /
     +  .165669D+01, .141918D+01, .121410D+01, .103686D+01,
     +  .883627D+00, .751191D+00, .636810D+00, .538142D+00,
     +  .453174D+00, .380166D+00, .317502D+00, .264138D+00,
     +  .218359D+00, .179484D+00, .146604D+00, .118918D+00,
     +  .957241D-01, .764023D-01, .604072D-01, .472623D-01,
     +  .365527D-01, .278779D-01, .209956D-01, .155189D-01,
     +  .112525D-01, .797984D-02, .551418D-02, .369593D-02,
     +  .238742D-02, .147705D-02, .862768D-03, .471047D-03,
     +  .234793D-03, .103424D-03, .381574D-04, .106830D-04,
     +  .188219D-05, .128946D-06, .000000D+00, .839216D+06,
     +  .634432D+06, .471458D+06, .350294D+06, .260205D+06,
     +  .193239D+06, .143474D+06, .106502D+06, .790407D+05,
     +  .586493D+05, .435116D+05, .322765D+05, .239401D+05 /
        DATA (UPDI(I),I=9569,9620) /
     +  .177558D+05, .131690D+05, .976760D+04, .724580D+04,
     +  .537626D+04, .399051D+04, .296330D+04, .220196D+04,
     +  .163754D+04, .121910D+04, .908757D+03, .678532D+03,
     +  .507574D+03, .380663D+03, .285152D+03, .215234D+03,
     +  .163106D+03, .124172D+03, .950294D+02, .731551D+02,
     +  .567286D+02, .442793D+02, .348321D+02, .276254D+02,
     +  .220944D+02, .178205D+02, .144912D+02, .118799D+02,
     +  .981022D+01, .815538D+01, .681985D+01, .573214D+01,
     +  .483838D+01, .410070D+01, .348107D+01, .296376D+01,
     +  .252402D+01, .215219D+01, .183532D+01, .156448D+01,
     +  .133245D+01, .113336D+01, .962369D+00, .815472D+00,
     +  .689304D+00, .581022D+00, .488203D+00, .408775D+00,
     +  .340959D+00, .283112D+00, .234163D+00, .192439D+00 /
        DATA (UPDI(I),I=9621,9672) /
     +  .157235D+00, .127654D+00, .102909D+00, .823173D-01,
     +  .652797D-01, .512730D-01, .398443D-01, .306011D-01,
     +  .231693D-01, .173190D-01, .127009D-01, .913357D-02,
     +  .642122D-02, .439664D-02, .291827D-02, .186541D-02,
     +  .114119D-02, .658448D-03, .354701D-03, .174196D-03,
     +  .754766D-04, .273427D-04, .750839D-05, .130466D-05,
     +  .914950D-07, .000000D+00, .110417D+07, .831401D+06,
     +  .614902D+06, .454668D+06, .336073D+06, .248328D+06,
     +  .183431D+06, .135449D+06, .999874D+05, .737874D+05,
     +  .544376D+05, .401516D+05, .296082D+05, .218292D+05,
     +  .160920D+05, .118617D+05, .874351D+04, .644555D+04,
     +  .475256D+04, .350535D+04, .258678D+04, .191017D+04,
     +  .141186D+04, .104473D+04, .774243D+03, .574771D+03 /
        DATA (UPDI(I),I=9673,9724) /
     +  .427749D+03, .317898D+03, .238071D+03, .178991D+03,
     +  .135189D+03, .102647D+03, .784019D+02, .603290D+02,
     +  .467319D+02, .364879D+02, .287284D+02, .228139D+02,
     +  .182740D+02, .147601D+02, .120211D+02, .986320D+01,
     +  .814786D+01, .677142D+01, .565673D+01, .474590D+01,
     +  .399840D+01, .337406D+01, .285583D+01, .241787D+01,
     +  .204974D+01, .173790D+01, .147295D+01, .124735D+01,
     +  .105495D+01, .890726D+00, .750505D+00, .630813D+00,
     +  .528722D+00, .441751D+00, .367789D+00, .305030D+00,
     +  .251826D+00, .207087D+00, .169192D+00, .137421D+00,
     +  .110896D+00, .888521D-01, .706293D-01, .556527D-01,
     +  .434250D-01, .335183D-01, .255641D-01, .192157D-01,
     +  .142567D-01, .103735D-01, .739881D-02, .515688D-02 /
        DATA (UPDI(I),I=9725,9776) /
     +  .349884D-02, .229989D-02, .145488D-02, .880147D-03,
     +  .501665D-03, .266669D-03, .129054D-03, .550146D-04,
     +  .195764D-04, .527573D-05, .904562D-06, .648922D-07,
     +  .000000D+00, .142936D+07, .107218D+07, .789390D+06,
     +  .580998D+06, .427435D+06, .314324D+06, .231046D+06,
     +  .169759D+06, .124678D+06, .915310D+05, .671707D+05,
     +  .492754D+05, .361357D+05, .264916D+05, .194166D+05,
     +  .142281D+05, .104248D+05, .763776D+04, .559628D+04,
     +  .410118D+04, .300664D+04, .220535D+04, .161891D+04,
     +  .118959D+04, .875343D+03, .645122D+03, .476591D+03,
     +  .351533D+03, .261289D+03, .194967D+03, .146144D+03,
     +  .110129D+03, .834855D+02, .637659D+02, .490337D+02,
     +  .380111D+02, .297183D+02, .234390D+02, .186497D+02 /
        DATA (UPDI(I),I=9777,9828) /
     +  .149658D+02, .121113D+02, .987540D+01, .810807D+01,
     +  .669774D+01, .556187D+01, .463877D+01, .388537D+01,
     +  .325956D+01, .274303D+01, .230901D+01, .194628D+01,
     +  .164081D+01, .138280D+01, .116442D+01, .979287D+00,
     +  .822212D+00, .688905D+00, .575804D+00, .479919D+00,
     +  .398731D+00, .330109D+00, .272235D+00, .223471D+00,
     +  .182718D+00, .148413D+00, .119834D+00, .961246D-01,
     +  .765478D-01, .604702D-01, .473446D-01, .367011D-01,
     +  .281383D-01, .213126D-01, .159046D-01, .117126D-01,
     +  .845595D-02, .598200D-02, .413365D-02, .277920D-02,
     +  .180926D-02, .113269D-02, .677658D-03, .381592D-03,
     +  .200180D-03, .954784D-04, .400539D-04, .140048D-04,
     +  .370594D-05, .627227D-06, .459963D-07, .000000D+00 /
        DATA (UPDI(I),I=9829,9880) /
     +  .182134D+07, .136125D+07, .997869D+06, .731200D+06,
     +  .535519D+06, .392003D+06, .286800D+06, .209722D+06,
     +  .153281D+06, .111974D+06, .817583D+05, .596681D+05,
     +  .435273D+05, .317395D+05, .231356D+05, .168585D+05,
     +  .122816D+05, .894566D+04, .651554D+04, .474578D+04,
     +  .345757D+04, .251999D+04, .183789D+04, .134156D+04,
     +  .980514D+03, .717663D+03, .526492D+03, .385561D+03,
     +  .284540D+03, .210793D+03, .156870D+03, .117361D+03,
     +  .883317D+02, .669907D+02, .511538D+02, .393830D+02,
     +  .305843D+02, .239639D+02, .189454D+02, .151078D+02,
     +  .121514D+02, .984836D+01, .803788D+01, .660080D+01,
     +  .544953D+01, .451883D+01, .376329D+01, .313906D+01,
     +  .262669D+01, .219853D+01, .184274D+01, .154481D+01 /
        DATA (UPDI(I),I=9881,9932) /
     +  .129463D+01, .108410D+01, .906680D+00, .757032D+00,
     +  .630781D+00, .524303D+00, .434572D+00, .359050D+00,
     +  .295600D+00, .242410D+00, .197862D+00, .160859D+00,
     +  .129902D+00, .104272D+00, .831436D-01, .658090D-01,
     +  .516650D-01, .401944D-01, .309557D-01, .235748D-01,
     +  .177331D-01, .131385D-01, .960400D-02, .687985D-02,
     +  .482750D-02, .330739D-02, .220361D-02, .142079D-02,
     +  .880348D-03, .520896D-03, .289804D-03, .150049D-03,
     +  .705456D-04, .291296D-04, .100112D-04, .260253D-05,
     +  .434967D-06, .325833D-07, .000000D+00, .228619D+07,
     +  .170273D+07, .124298D+07, .906947D+06, .661367D+06,
     +  .481998D+06, .351065D+06, .255547D+06, .185907D+06,
     +  .135165D+06, .982165D+05, .713274D+05, .517720D+05 /
        DATA (UPDI(I),I=9933,9984) /
     +  .375585D+05, .272344D+05, .197397D+05, .143024D+05,
     +  .103598D+05, .750276D+04, .543322D+04, .393503D+04,
     +  .285067D+04, .206625D+04, .149878D+04, .108841D+04,
     +  .791430D+03, .576771D+03, .419511D+03, .307499D+03,
     +  .226248D+03, .167218D+03, .124247D+03, .928774D+02,
     +  .699640D+02, .530686D+02, .405897D+02, .313194D+02,
     +  .243857D+02, .191604D+02, .151872D+02, .121430D+02,
     +  .978420D+01, .793950D+01, .648278D+01, .532175D+01,
     +  .438794D+01, .363381D+01, .301402D+01, .250801D+01,
     +  .208747D+01, .173994D+01, .145055D+01, .120893D+01,
     +  .100676D+01, .837366D+00, .695319D+00, .576180D+00,
     +  .476288D+00, .392603D+00, .322586D+00, .264108D+00,
     +  .215379D+00, .174809D+00, .141313D+00, .113461D+00 /
        DATA (UPDI(I),I=9985,10036) /
     +  .905430D-01, .717681D-01, .564621D-01, .440537D-01,
     +  .340565D-01, .260588D-01, .197133D-01, .147267D-01,
     +  .108330D-01, .786039D-02, .558727D-02, .388878D-02,
     +  .264159D-02, .174419D-02, .111383D-02, .683093D-03,
     +  .399759D-03, .219761D-03, .112314D-03, .520578D-04,
     +  .211626D-04, .715126D-05, .182715D-05, .301671D-06,
     +  .230685D-07, .000000D+00, .282940D+07, .210026D+07,
     +  .152700D+07, .110963D+07, .805806D+06, .584781D+06,
     +  .424098D+06, .307359D+06, .222604D+06, .161113D+06,
     +  .116530D+06, .842295D+05, .608439D+05, .439241D+05,
     +  .316917D+05, .228536D+05, .164728D+05, .118688D+05,
     +  .854920D+04, .615689D+04, .443407D+04, .319375D+04,
     +  .230137D+04, .165936D+04, .119768D+04, .865483D+03 /
        DATA (UPDI(I),I=10037,10088) /
     +  .626778D+03, .452940D+03, .329867D+03, .241133D+03,
     +  .177060D+03, .130705D+03, .970717D+02, .726553D+02,
     +  .547605D+02, .416226D+02, .319196D+02, .247038D+02,
     +  .192960D+02, .152060D+02, .120887D+02, .968548D+01,
     +  .781542D+01, .634598D+01, .518060D+01, .424792D+01,
     +  .349853D+01, .288575D+01, .238810D+01, .197672D+01,
     +  .163859D+01, .135859D+01, .112610D+01, .932667D+00,
     +  .771511D+00, .637146D+00, .525099D+00, .431696D+00,
     +  .353902D+00, .289193D+00, .235465D+00, .190957D+00,
     +  .154119D+00, .123887D+00, .988986D-01, .784636D-01,
     +  .618262D-01, .483478D-01, .374909D-01, .288008D-01,
     +  .218950D-01, .164535D-01, .122073D-01, .891573D-02,
     +  .642172D-02, .452946D-02, .312710D-02, .210619D-02 /
        DATA (UPDI(I),I=10089,10140) /
     +  .137822D-02, .871748D-03, .529186D-03, .306319D-03,
     +  .166402D-03, .839536D-04, .383683D-04, .153592D-04,
     +  .510478D-05, .128244D-05, .209246D-06, .163233D-07,
     +  .000000D+00, .345572D+07, .255691D+07, .185177D+07,
     +  .134032D+07, .969426D+06, .700654D+06, .506027D+06,
     +  .365191D+06, .263357D+06, .189777D+06, .136654D+06,
     +  .983295D+05, .707028D+05, .508024D+05, .364796D+05,
     +  .261784D+05, .187758D+05, .134597D+05, .964516D+04,
     +  .690964D+04, .494949D+04, .354548D+04, .254057D+04,
     +  .182141D+04, .130704D+04, .938924D+03, .675905D+03,
     +  .485443D+03, .351378D+03, .255276D+03, .186287D+03,
     +  .136667D+03, .100875D+03, .750420D+02, .562183D+02,
     +  .424767D+02, .323843D+02, .249195D+02, .193545D+02 /
        DATA (UPDI(I),I=10141,10192) /
     +  .151671D+02, .119914D+02, .955504D+01, .766827D+01,
     +  .619273D+01, .502812D+01, .410054D+01, .335890D+01,
     +  .275550D+01, .226798D+01, .186707D+01, .153931D+01,
     +  .126936D+01, .104645D+01, .862013D+00, .709212D+00,
     +  .582532D+00, .477493D+00, .390432D+00, .318336D+00,
     +  .258712D+00, .209494D+00, .168958D+00, .135605D+00,
     +  .108393D+00, .860362D-01, .678637D-01, .531593D-01,
     +  .413211D-01, .318459D-01, .243108D-01, .183627D-01,
     +  .137078D-01, .101008D-01, .732476D-02, .523716D-02,
     +  .366556D-02, .251032D-02, .167648D-02, .108724D-02,
     +  .681181D-03, .409315D-03, .234368D-03, .125819D-03,
     +  .626718D-04, .282455D-04, .111365D-04, .364152D-05,
     +  .899880D-06, .145153D-06, .115445D-07, .000000D+00 /
C-----------------------------------------------------------------------
C
      Dr = DrI
      Fl = FlI
      Al = AlI
      DO I=1,6
         Amass(I) = AmassI(I)
      ENDDO
      Iorder = Nint(Dr)
      Nfl = Nint(Fl)
      Alambda = Al
C
      NX = NxI
      NT = NTI
      NfMx = NfMxI
C
      QINI = QINII
      QMAX = QMAXI
      DO I=0,NT
         QL(I) = QLI(I)
      ENDDO
C
      XMIN = XMINI
      DO I=0,NX
         XV(I) = XVI(I)
      ENDDO
C
      Do 11 Iq = 0, NT
         QL(Iq) = Log (QL(Iq) /Al)
   11 Continue
C
C                  Since quark = anti-quark for nfl>2 at this stage, 
C                  we Read  out only the non-redundent data points
C     No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence) 

      Nblk = (NX+1) * (NT+1)
      Npts =  Nblk  * (NfMx+3)
      DO I=1,Npts
         UPD(I) = UPDI(I)
      ENDDO
C
      Return
C                        ****************************
      End

Generated by  Doxygen 1.6.0   Back to index